/[gcl]/gcl/lsp/gcl_arraylib.c
ViewVC logotype

Diff of /gcl/lsp/gcl_arraylib.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Sun Sep 14 02:30:34 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:03 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_arraylib.h"
4    void init_gcl_arraylib(){do_init(VV);}
5    /*      local entry for function BEST-ARRAY-ELEMENT-TYPE        */
6    
7    static object LI1(V2)
8    
9    register object V2;
10    {        VMB1 VMS1 VMV1
11            goto TTL;
12    TTL:;
13            if(eql(Ct,(V2))){
14            goto T1;}
15            if(((V2))!=Cnil){
16            goto T2;}
17            goto T1;
18    T1:;
19            {object V3 = Ct;
20            VMR1(V3)}
21            goto T2;
22    T2:;
23            {register object x= (V2),V4= VV[0];
24            while(!endp(V4))
25            if(x==(V4->c.c_car)){
26            goto T8;
27            }else V4=V4->c.c_cdr;
28            goto T7;}
29            goto T8;
30    T8:;
31            {object V5 = (V2);
32            VMR1(V5)}
33            goto T7;
34    T7:;
35            base[0]= (V2);
36            base[1]= VV[1];
37            vs_top=(vs_base=base+0)+2;
38            (void) (*Lnk18)();
39            vs_top=sup;
40            if((vs_base[0])==Cnil){
41            goto T10;}
42            {register object V6;
43            register object V7;
44            V6= VV[2];
45            V7= car((V6));
46            goto T17;
47    T17:;
48            if(!(endp_prop((V6)))){
49            goto T18;}
50            {object V8 = VV[1];
51            VMR1(V8)}
52            goto T18;
53    T18:;
54            base[1]= (V2);
55            base[2]= (V7);
56            vs_top=(vs_base=base+1)+2;
57            (void) (*Lnk18)();
58            vs_top=sup;
59            if((vs_base[0])==Cnil){
60            goto T22;}
61            {object V9 = (V7);
62            VMR1(V9)}
63            goto T22;
64    T22:;
65            V6= cdr((V6));
66            V7= car((V6));
67            goto T17;}
68            goto T10;
69    T10:;
70            if(!(eql((V2),VV[3]))){
71            goto T33;}
72            {object V10 = VV[4];
73            VMR1(V10)}
74            goto T33;
75    T33:;{object V11;
76            {register object V12;
77            register object V13;
78            V12= VV[5];
79            V13= car((V12));
80            goto T40;
81    T40:;
82            if(!(endp_prop((V12)))){
83            goto T41;}
84            V11= Cnil;
85            goto T36;
86            goto T41;
87    T41:;
88            base[1]= (V2);
89            base[2]= (V13);
90            vs_top=(vs_base=base+1)+2;
91            (void) (*Lnk18)();
92            vs_top=sup;
93            if((vs_base[0])==Cnil){
94            goto T45;}
95            V11= (V13);
96            goto T36;
97            goto T45;
98    T45:;
99            V12= cdr((V12));
100            V13= car((V12));
101            goto T40;}
102            goto T36;
103    T36:;
104            if(V11==Cnil)goto T35;
105            {object V14 = V11;
106            VMR1(V14)}
107            goto T35;
108    T35:;}
109            {object V15 = Ct;
110            VMR1(V15)}
111            base[0]=base[0];
112            return Cnil;
113    }
114    /*      function definition for UPGRADED-ARRAY-ELEMENT-TYPE     */
115    
116    static void L2()
117    {register object *base=vs_base;
118            register object *sup=base+VM2; VC2
119            vs_reserve(VM2);
120            {object V16;
121            object V17;
122            if(vs_top-vs_base<1) too_few_arguments();
123            if(vs_top-vs_base>2) too_many_arguments();
124            V16=(base[0]);
125            vs_base=vs_base+1;
126            if(vs_base>=vs_top){vs_top=sup;goto T55;}
127            V17=(base[1]);
128            vs_top=sup;
129            goto T56;
130            goto T55;
131    T55:;
132            V17= Cnil;
133            goto T56;
134    T56:;
135            base[2]= (*(LnkLI19))((V16));
136            vs_top=(vs_base=base+2)+1;
137            return;
138            }
139    }
140    /*      local entry for function MAKE-ARRAY     */
141    
142    static object LI3(object V18,object first,...)
143    {      
144            va_list ap;
145            int narg = VFUN_NARGS; VMB3 VMS3 VMV3
146            {register object V19;
147            object V20;
148            object V21;
149            register object V22;
150            object V23;
151            object V24;
152            object V25;
153            object V26;
154            object V27;
155            object V28;
156            va_start(ap,first);
157            if(narg <1) too_few_arguments();
158            V19= V18;
159            narg= narg - 1;
160            {
161            parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI3key,first,ap);
162            if(Vcs[1]==0){
163            V20= Ct;
164            }else{
165            V20=(Vcs[1]);}
166            V21=(Vcs[2]);
167            if(Vcs[3]==0){
168            V22= Cnil;
169            V23= Cnil;
170            }else{
171            V22=(Vcs[3]);
172            V23= Ct;}
173            V24=(Vcs[4]);
174            V25=(Vcs[5]);
175            V26=(Vcs[6]);
176            V27=(Vcs[7]);
177            V28=(Vcs[8]);
178            if(!(type_of((V19))==t_fixnum||type_of((V19))==t_bignum)){
179            goto T60;}
180            V19= make_cons((V19),Cnil);
181            goto T60;
182    T60:;
183            V20= (*(LnkLI19))((V20));
184            if(!(((long)length((V19)))==(1))){
185            goto T67;}
186            {register object V29;
187            base[0]= (V20);
188            base[1]= car((V19));
189            base[2]= (V24);
190            base[3]= (V25);
191            base[4]= (V26);
192            base[5]= (V27);
193            base[6]= (V28);
194            base[7]= (V21);
195            vs_top=(vs_base=base+0)+8;
196            siLmake_vector();
197            vs_top=sup;
198            V29= vs_base[0];
199            if(((V23))==Cnil){
200            goto T78;}
201            {long V30;
202            register long V31;
203            V30= fix(car((V19)));
204            V31= 0;
205            goto T84;
206    T84:;
207            if(!((V31)>=(V30))){
208            goto T85;}
209            goto T78;
210            goto T85;
211    T85:;
212            V32= elt((V22),V31);
213            (void)(aset1((V29),V31,/* INLINE-ARGS */V32));
214            V31= (long)(V31)+1;
215            goto T84;}
216            goto T78;
217    T78:;
218            {object V33 = (V29);
219            VMR3(V33)}}
220            goto T67;
221    T67:;
222            {register object V34;
223            base[1]= (V20);
224            vs_top=(vs_base=base+1)+1;
225            (void) (*Lnk23)();
226            vs_top=sup;
227            base[0]= vs_base[0];
228            base[1]= (V28);
229            base[2]= (V21);
230            base[3]= (V26);
231            base[4]= (V27);
232            base[5]= (V19);
233            vs_top=(vs_base=base+0)+6;
234            (void) (*Lnk24)();
235            vs_top=sup;
236            V34= vs_base[0];
237            if(((V25))==Cnil){
238            goto T101;}
239            base[0]= VV[6];
240            vs_top=(vs_base=base+0)+1;
241            Lerror();
242            vs_top=sup;
243            goto T101;
244    T101:;
245            {register object x= small_fixnum(0),V35= (V19);
246            while(!endp(V35))
247            if(eql(x,V35->c.c_car)){
248            goto T105;
249            }else V35=V35->c.c_cdr;}
250            if(((V23))==Cnil){
251            goto T105;}
252            {register object V36;
253            base[0]= make_fixnum((long)length((V19)));
254            base[1]= VV[7];
255            base[2]= small_fixnum(0);
256            vs_top=(vs_base=base+0)+3;
257            Lmake_list();
258            vs_top=sup;
259            V36= vs_base[0];
260            goto T115;
261    T115:;
262            base[0]= (V34);
263            base[1]= (*(LnkLI25))((V22),(V36));
264            base[2]= (V36);
265            vs_top=(vs_base=base+0)+3;
266            (void) (*Lnk26)();
267            vs_top=sup;
268            if(((*(LnkLI27))((V36),(V19)))==Cnil){
269            goto T122;}
270            goto T105;
271            goto T122;
272    T122:;
273            goto T115;}
274            goto T105;
275    T105:;
276            {object V37 = (V34);
277            VMR3(V37)}}
278            va_end(ap);
279            base[0]=base[0];
280            return Cnil;}
281            }}
282    /*      local entry for function INCREMENT-CURSOR       */
283    
284    static object LI4(V40,V41)
285    
286    register object V40;object V41;
287    {        VMB4 VMS4 VMV4
288            goto TTL;
289    TTL:;
290            if(((V40))!=Cnil){
291            goto T128;}
292            {object V42 = Ct;
293            VMR4(V42)}
294            goto T128;
295    T128:;
296            {object V43;
297            V43= (*(LnkLI27))(cdr((V40)),cdr((V41)));
298            if(((V43))==Cnil){
299            goto T132;}
300            if(!(((long)(fix(car((V40))))+1)>=(fix(car((V41)))))){
301            goto T135;}
302            if(type_of((V40))!=t_cons)FEwrong_type_argument(Scons,(V40));
303            ((V40))->c.c_car = small_fixnum(0);
304            {object V44 = Ct;
305            VMR4(V44)}
306            goto T135;
307    T135:;
308            V45 = make_fixnum((long)(fix(car((V40))))+1);
309            if(type_of((V40))!=t_cons)FEwrong_type_argument(Scons,(V40));
310            ((V40))->c.c_car = V45;
311            {object V46 = Cnil;
312            VMR4(V46)}
313            goto T132;
314    T132:;
315            {object V47 = Cnil;
316            VMR4(V47)}}
317            return Cnil;
318    }
319    /*      local entry for function SEQUENCE-CURSOR        */
320    
321    static object LI5(V50,V51)
322    
323    object V50;object V51;
324    {        VMB5 VMS5 VMV5
325            goto TTL;
326    TTL:;
327            if(((V51))!=Cnil){
328            goto T140;}
329            {object V52 = (V50);
330            VMR5(V52)}
331            goto T140;
332    T140:;
333            V50= elt((V50),fix(car((V51))));
334            V51= cdr((V51));
335            goto TTL;
336            return Cnil;
337    }
338    /*      local entry for function VECTOR */
339    
340    static object LI6(object first,...)
341    {      
342            va_list ap;
343            int narg = VFUN_NARGS; VMB6 VMS6 VMV6
344            {object V53;
345            va_start(ap,first);
346            narg= narg - 0;
347            V54 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));
348            V53= V54;
349            {object V55;
350            V56 = make_fixnum((long)length((V53)));
351            V55= make_cons(V56,Cnil);
352            {object V57 = (VFUN_NARGS=5,(*(LnkLI28))((V55),VV[8],Ct,VV[9],(V53)));
353            VMR6(V57)}}
354            va_end(ap);
355            base[0]=base[0];
356            return Cnil;}
357            }
358    /*      local entry for function ARRAY-DIMENSIONS       */
359    
360    static object LI7(V59)
361    
362    register object V59;
363    {        VMB7 VMS7 VMV7
364            goto TTL;
365    TTL:;
366            {register object V60;
367            register object V61;
368            base[0]= (V59);
369            vs_top=(vs_base=base+0)+1;
370            Larray_rank();
371            vs_top=sup;
372            V60= vs_base[0];
373            V61= Cnil;
374            goto T149;
375    T149:;
376            if(!(number_compare((V60),small_fixnum(0))==0)){
377            goto T150;}
378            {object V62 = (V61);
379            VMR7(V62)}
380            goto T150;
381    T150:;
382            V60= one_minus((V60));
383            base[0]= (V59);
384            base[1]= (V60);
385            vs_top=(vs_base=base+0)+2;
386            Larray_dimension();
387            vs_top=sup;
388            V63= vs_base[0];
389            V61= make_cons(V63,(V61));
390            goto T149;}
391            base[0]=base[0];
392            return Cnil;
393    }
394    /*      local entry for function ARRAY-IN-BOUNDS-P      */
395    
396    static object LI8(object V64,object first,...)
397    {      
398            va_list ap;
399            int narg = VFUN_NARGS; VMB8 VMS8 VMV8
400            {register object V65;
401            object V66;
402            va_start(ap,first);
403            if(narg <1) too_few_arguments();
404            V65= V64;
405            narg= narg - 1;
406            V67 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));
407            V66= V67;
408            {register object V68;
409            base[1]= (V65);
410            vs_top=(vs_base=base+1)+1;
411            Larray_rank();
412            vs_top=sup;
413            V68= vs_base[0];
414            V69 = make_fixnum((long)length((V66)));
415            if(!(number_compare((V68),V69)!=0)){
416            goto T165;}
417            base[1]= VV[10];
418            base[2]= (V68);
419            base[3]= make_fixnum((long)length((V66)));
420            vs_top=(vs_base=base+1)+3;
421            Lerror();
422            vs_top=sup;
423            goto T165;
424    T165:;
425            {register object V70;
426            register object V71;
427            V70= small_fixnum(0);
428            V71= (V66);
429            goto T172;
430    T172:;
431            if(!(number_compare((V70),(V68))>=0)){
432            goto T173;}
433            {object V72 = Ct;
434            VMR8(V72)}
435            goto T173;
436    T173:;
437            if(number_compare(car((V71)),small_fixnum(0))<0){
438            goto T178;}
439            V73= car((V71));
440            base[1]= (V65);
441            base[2]= (V70);
442            vs_top=(vs_base=base+1)+2;
443            Larray_dimension();
444            vs_top=sup;
445            V74= vs_base[0];
446            if(!(number_compare(/* INLINE-ARGS */V73,V74)>=0)){
447            goto T177;}
448            goto T178;
449    T178:;
450            {object V75 = Cnil;
451            VMR8(V75)}
452            goto T177;
453    T177:;
454            V70= one_plus((V70));
455            V71= cdr((V71));
456            goto T172;}}
457            va_end(ap);
458            base[0]=base[0];
459            return Cnil;}
460            }
461    /*      local entry for function ARRAY-ROW-MAJOR-INDEX  */
462    
463    static object LI9(object V76,object first,...)
464    {      
465            va_list ap;
466            int narg = VFUN_NARGS; VMB9 VMS9 VMV9
467            {register object V77;
468            object V78;
469            va_start(ap,first);
470            if(narg <1) too_few_arguments();
471            V77= V76;
472            narg= narg - 1;
473            V79 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));
474            V78= V79;
475            {register object V80;
476            register object V81;
477            register object V82;
478            V80= small_fixnum(0);
479            V81= small_fixnum(0);
480            V82= (V78);
481            goto T190;
482    T190:;
483            if(((V82))!=Cnil){
484            goto T191;}
485            {object V83 = (V81);
486            VMR9(V83)}
487            goto T191;
488    T191:;
489            {object V84;
490            V84= one_plus((V80));
491            base[0]= (V77);
492            base[1]= (V80);
493            vs_top=(vs_base=base+0)+2;
494            Larray_dimension();
495            vs_top=sup;
496            V85= vs_base[0];
497            V86= number_times((V81),V85);
498            V81= number_plus(/* INLINE-ARGS */V86,car((V82)));
499            V82= cdr((V82));
500            V80= (V84);}
501            goto T190;}
502            va_end(ap);
503            base[0]=base[0];
504            return Cnil;}
505            }
506    /*      local entry for function BIT    */
507    
508    static object LI10(object V87,object first,...)
509    {      
510            va_list ap;
511            int narg = VFUN_NARGS; VMB10 VMS10 VMV10
512            {object V88;
513            object V89;
514            va_start(ap,first);
515            if(narg <1) too_few_arguments();
516            V88= V87;
517            narg= narg - 1;
518            V90 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));
519            V89= V90;
520            base[0]= (V88);
521            {object V91;
522            V91= (V89);
523             vs_top=base+1;
524             while(!endp(V91))
525             {vs_push(car(V91));V91=cdr(V91);}
526            vs_base=base+0;}
527            Laref();
528            vs_top=sup;
529            {object V92 = vs_base[0];
530            VMR10(V92)}
531            va_end(ap);
532            base[0]=base[0];
533            return Cnil;}
534            }
535    /*      local entry for function SBIT   */
536    
537    static object LI11(object V93,object first,...)
538    {      
539            va_list ap;
540            int narg = VFUN_NARGS; VMB11 VMS11 VMV11
541            {object V94;
542            object V95;
543            va_start(ap,first);
544            if(narg <1) too_few_arguments();
545            V94= V93;
546            narg= narg - 1;
547            V96 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));
548            V95= V96;
549            base[0]= (V94);
550            {object V97;
551            V97= (V95);
552             vs_top=base+1;
553             while(!endp(V97))
554             {vs_push(car(V97));V97=cdr(V97);}
555            vs_base=base+0;}
556            Laref();
557            vs_top=sup;
558            {object V98 = vs_base[0];
559            VMR11(V98)}
560            va_end(ap);
561            base[0]=base[0];
562            return Cnil;}
563            }
564    /*      local entry for function BIT-AND        */
565    
566    static object LI12(object V100,object V99,object first,...)
567    {      
568            va_list ap;
569            int narg = VFUN_NARGS; VMB12 VMS12 VMV12
570            {object V101;
571            object V102;
572            object V103;
573            va_start(ap,first);
574            if(narg <2) too_few_arguments();
575            V101= V100;
576            V102= V99;
577            narg = narg - 2;
578            if (narg <= 0) goto T207;
579            else {
580            V103= first;}
581            --narg; goto T208;
582            goto T207;
583    T207:;
584            V103= Cnil;
585            goto T208;
586    T208:;
587            base[0]= small_fixnum(1);
588            base[1]= (V101);
589            base[2]= (V102);
590            base[3]= (V103);
591            vs_top=(vs_base=base+0)+4;
592            siLbit_array_op();
593            vs_top=sup;
594            {object V104 = vs_base[0];
595            VMR12(V104)}
596            va_end(ap);
597            base[0]=base[0];
598            return Cnil;}
599            }
600    /*      local entry for function BIT-IOR        */
601    
602    static object LI13(object V106,object V105,object first,...)
603    {      
604            va_list ap;
605            int narg = VFUN_NARGS; VMB13 VMS13 VMV13
606            {object V107;
607            object V108;
608            object V109;
609            va_start(ap,first);
610            if(narg <2) too_few_arguments();
611            V107= V106;
612            V108= V105;
613            narg = narg - 2;
614            if (narg <= 0) goto T214;
615            else {
616            V109= first;}
617            --narg; goto T215;
618            goto T214;
619    T214:;
620            V109= Cnil;
621            goto T215;
622    T215:;
623            base[0]= small_fixnum(7);
624            base[1]= (V107);
625            base[2]= (V108);
626            base[3]= (V109);
627            vs_top=(vs_base=base+0)+4;
628            siLbit_array_op();
629            vs_top=sup;
630            {object V110 = vs_base[0];
631            VMR13(V110)}
632            va_end(ap);
633            base[0]=base[0];
634            return Cnil;}
635            }
636    /*      local entry for function BIT-XOR        */
637    
638    static object LI14(object V112,object V111,object first,...)
639    {      
640            va_list ap;
641            int narg = VFUN_NARGS; VMB14 VMS14 VMV14
642            {object V113;
643            object V114;
644            object V115;
645            va_start(ap,first);
646            if(narg <2) too_few_arguments();
647            V113= V112;
648            V114= V111;
649            narg = narg - 2;
650            if (narg <= 0) goto T221;
651            else {
652            V115= first;}
653            --narg; goto T222;
654            goto T221;
655    T221:;
656            V115= Cnil;
657            goto T222;
658    T222:;
659            base[0]= small_fixnum(6);
660            base[1]= (V113);
661            base[2]= (V114);
662            base[3]= (V115);
663            vs_top=(vs_base=base+0)+4;
664            siLbit_array_op();
665            vs_top=sup;
666            {object V116 = vs_base[0];
667            VMR14(V116)}
668            va_end(ap);
669            base[0]=base[0];
670            return Cnil;}
671            }
672    /*      local entry for function BIT-EQV        */
673    
674    static object LI15(object V118,object V117,object first,...)
675    {      
676            va_list ap;
677            int narg = VFUN_NARGS; VMB15 VMS15 VMV15
678            {object V119;
679            object V120;
680            object V121;
681            va_start(ap,first);
682            if(narg <2) too_few_arguments();
683            V119= V118;
684            V120= V117;
685            narg = narg - 2;
686            if (narg <= 0) goto T228;
687            else {
688            V121= first;}
689            --narg; goto T229;
690            goto T228;
691    T228:;
692            V121= Cnil;
693            goto T229;
694    T229:;
695            base[0]= small_fixnum(9);
696            base[1]= (V119);
697            base[2]= (V120);
698            base[3]= (V121);
699            vs_top=(vs_base=base+0)+4;
700            siLbit_array_op();
701            vs_top=sup;
702            {object V122 = vs_base[0];
703            VMR15(V122)}
704            va_end(ap);
705            base[0]=base[0];
706            return Cnil;}
707            }
708    /*      local entry for function BIT-NAND       */
709    
710    static object LI16(object V124,object V123,object first,...)
711    {      
712            va_list ap;
713            int narg = VFUN_NARGS; VMB16 VMS16 VMV16
714            {object V125;
715            object V126;
716            object V127;
717            va_start(ap,first);
718            if(narg <2) too_few_arguments();
719            V125= V124;
720            V126= V123;
721            narg = narg - 2;
722            if (narg <= 0) goto T235;
723            else {
724            V127= first;}
725            --narg; goto T236;
726            goto T235;
727    T235:;
728            V127= Cnil;
729            goto T236;
730    T236:;
731            base[0]= small_fixnum(14);
732            base[1]= (V125);
733            base[2]= (V126);
734            base[3]= (V127);
735            vs_top=(vs_base=base+0)+4;
736            siLbit_array_op();
737            vs_top=sup;
738            {object V128 = vs_base[0];
739            VMR16(V128)}
740            va_end(ap);
741            base[0]=base[0];
742            return Cnil;}
743            }
744    /*      local entry for function BIT-NOR        */
745    
746    static object LI17(object V130,object V129,object first,...)
747    {      
748            va_list ap;
749            int narg = VFUN_NARGS; VMB17 VMS17 VMV17
750            {object V131;
751            object V132;
752            object V133;
753            va_start(ap,first);
754            if(narg <2) too_few_arguments();
755            V131= V130;
756            V132= V129;
757            narg = narg - 2;
758            if (narg <= 0) goto T242;
759            else {
760            V133= first;}
761            --narg; goto T243;
762            goto T242;
763    T242:;
764            V133= Cnil;
765            goto T243;
766    T243:;
767            base[0]= small_fixnum(8);
768            base[1]= (V131);
769            base[2]= (V132);
770            base[3]= (V133);
771            vs_top=(vs_base=base+0)+4;
772            siLbit_array_op();
773            vs_top=sup;
774            {object V134 = vs_base[0];
775            VMR17(V134)}
776            va_end(ap);
777            base[0]=base[0];
778            return Cnil;}
779            }
780    /*      local entry for function BIT-ANDC1      */
781    
782    static object LI18(object V136,object V135,object first,...)
783    {      
784            va_list ap;
785            int narg = VFUN_NARGS; VMB18 VMS18 VMV18
786            {object V137;
787            object V138;
788            object V139;
789            va_start(ap,first);
790            if(narg <2) too_few_arguments();
791            V137= V136;
792            V138= V135;
793            narg = narg - 2;
794            if (narg <= 0) goto T249;
795            else {
796            V139= first;}
797            --narg; goto T250;
798            goto T249;
799    T249:;
800            V139= Cnil;
801            goto T250;
802    T250:;
803            base[0]= small_fixnum(4);
804            base[1]= (V137);
805            base[2]= (V138);
806            base[3]= (V139);
807            vs_top=(vs_base=base+0)+4;
808            siLbit_array_op();
809            vs_top=sup;
810            {object V140 = vs_base[0];
811            VMR18(V140)}
812            va_end(ap);
813            base[0]=base[0];
814            return Cnil;}
815            }
816    /*      local entry for function BIT-ANDC2      */
817    
818    static object LI19(object V142,object V141,object first,...)
819    {      
820            va_list ap;
821            int narg = VFUN_NARGS; VMB19 VMS19 VMV19
822            {object V143;
823            object V144;
824            object V145;
825            va_start(ap,first);
826            if(narg <2) too_few_arguments();
827            V143= V142;
828            V144= V141;
829            narg = narg - 2;
830            if (narg <= 0) goto T256;
831            else {
832            V145= first;}
833            --narg; goto T257;
834            goto T256;
835    T256:;
836            V145= Cnil;
837            goto T257;
838    T257:;
839            base[0]= small_fixnum(2);
840            base[1]= (V143);
841            base[2]= (V144);
842            base[3]= (V145);
843            vs_top=(vs_base=base+0)+4;
844            siLbit_array_op();
845            vs_top=sup;
846            {object V146 = vs_base[0];
847            VMR19(V146)}
848            va_end(ap);
849            base[0]=base[0];
850            return Cnil;}
851            }
852    /*      local entry for function BIT-ORC1       */
853    
854    static object LI20(object V148,object V147,object first,...)
855    {      
856            va_list ap;
857            int narg = VFUN_NARGS; VMB20 VMS20 VMV20
858            {object V149;
859            object V150;
860            object V151;
861            va_start(ap,first);
862            if(narg <2) too_few_arguments();
863            V149= V148;
864            V150= V147;
865            narg = narg - 2;
866            if (narg <= 0) goto T263;
867            else {
868            V151= first;}
869            --narg; goto T264;
870            goto T263;
871    T263:;
872            V151= Cnil;
873            goto T264;
874    T264:;
875            base[0]= small_fixnum(13);
876            base[1]= (V149);
877            base[2]= (V150);
878            base[3]= (V151);
879            vs_top=(vs_base=base+0)+4;
880            siLbit_array_op();
881            vs_top=sup;
882            {object V152 = vs_base[0];
883            VMR20(V152)}
884            va_end(ap);
885            base[0]=base[0];
886            return Cnil;}
887            }
888    /*      local entry for function BIT-ORC2       */
889    
890    static object LI21(object V154,object V153,object first,...)
891    {      
892            va_list ap;
893            int narg = VFUN_NARGS; VMB21 VMS21 VMV21
894            {object V155;
895            object V156;
896            object V157;
897            va_start(ap,first);
898            if(narg <2) too_few_arguments();
899            V155= V154;
900            V156= V153;
901            narg = narg - 2;
902            if (narg <= 0) goto T270;
903            else {
904            V157= first;}
905            --narg; goto T271;
906            goto T270;
907    T270:;
908            V157= Cnil;
909            goto T271;
910    T271:;
911            base[0]= small_fixnum(11);
912            base[1]= (V155);
913            base[2]= (V156);
914            base[3]= (V157);
915            vs_top=(vs_base=base+0)+4;
916            siLbit_array_op();
917            vs_top=sup;
918            {object V158 = vs_base[0];
919            VMR21(V158)}
920            va_end(ap);
921            base[0]=base[0];
922            return Cnil;}
923            }
924    /*      local entry for function BIT-NOT        */
925    
926    static object LI22(object V159,object first,...)
927    {      
928            va_list ap;
929            int narg = VFUN_NARGS; VMB22 VMS22 VMV22
930            {object V160;
931            object V161;
932            va_start(ap,first);
933            if(narg <1) too_few_arguments();
934            V160= V159;
935            narg = narg - 1;
936            if (narg <= 0) goto T277;
937            else {
938            V161= first;}
939            --narg; goto T278;
940            goto T277;
941    T277:;
942            V161= Cnil;
943            goto T278;
944    T278:;
945            base[0]= small_fixnum(12);
946            base[1]= (V160);
947            base[2]= (V160);
948            base[3]= (V161);
949            vs_top=(vs_base=base+0)+4;
950            siLbit_array_op();
951            vs_top=sup;
952            {object V162 = vs_base[0];
953            VMR22(V162)}
954            va_end(ap);
955            base[0]=base[0];
956            return Cnil;}
957            }
958    /*      local entry for function VECTOR-PUSH    */
959    
960    static object LI23(V165,V166)
961    
962    object V165;register object V166;
963    {        VMB23 VMS23 VMV23
964            goto TTL;
965    TTL:;
966            {register long V167;
967            base[0]= (V166);
968            vs_top=(vs_base=base+0)+1;
969            Lfill_pointer();
970            vs_top=sup;
971            V167= fix(vs_base[0]);
972            base[0]= (V166);
973            base[1]= small_fixnum(0);
974            vs_top=(vs_base=base+0)+2;
975            Larray_dimension();
976            vs_top=sup;
977            V168= vs_base[0];
978            if(!((V167)<(fix(V168)))){
979            goto T287;}
980            (void)(aset1((V166),V167,(V165)));
981            base[0]= (V166);
982            base[1]= make_fixnum((long)(V167)+1);
983            vs_top=(vs_base=base+0)+2;
984            siLfill_pointer_set();
985            vs_top=sup;
986            {object V169 = make_fixnum(V167);
987            VMR23(V169)}
988            goto T287;
989    T287:;
990            {object V170 = Cnil;
991            VMR23(V170)}}
992            base[0]=base[0];
993            return Cnil;
994    }
995    /*      local entry for function VECTOR-PUSH-EXTEND     */
996    
997    static object LI24(object V172,object V171,object first,...)
998    {      
999            va_list ap;
1000            int narg = VFUN_NARGS; VMB24 VMS24 VMV24
1001            {object V173;
1002            register object V174;
1003            object V175;
1004            va_start(ap,first);
1005            if(narg <2) too_few_arguments();
1006            V173= V172;
1007            V174= V171;
1008            narg = narg - 2;
1009            if (narg <= 0) goto T296;
1010            else {
1011            V175= first;}
1012            --narg; goto T297;
1013            goto T296;
1014    T296:;
1015            V175= Cnil;
1016            goto T297;
1017    T297:;
1018            {register long V176;
1019            base[0]= (V174);
1020            vs_top=(vs_base=base+0)+1;
1021            Lfill_pointer();
1022            vs_top=sup;
1023            V176= fix(vs_base[0]);
1024            base[0]= (V174);
1025            base[1]= small_fixnum(0);
1026            vs_top=(vs_base=base+0)+2;
1027            Larray_dimension();
1028            vs_top=sup;
1029            V177= vs_base[0];
1030            if(!((V176)<(fix(V177)))){
1031            goto T302;}
1032            (void)(aset1((V174),V176,(V173)));
1033            base[0]= (V174);
1034            base[1]= make_fixnum((long)(V176)+1);
1035            vs_top=(vs_base=base+0)+2;
1036            siLfill_pointer_set();
1037            vs_top=sup;
1038            {object V178 = make_fixnum(V176);
1039            VMR24(V178)}
1040            goto T302;
1041    T302:;
1042            base[0]= (V174);
1043            base[1]= small_fixnum(0);
1044            vs_top=(vs_base=base+0)+2;
1045            Larray_dimension();
1046            vs_top=sup;
1047            V179= vs_base[0];
1048            if((V175)!=Cnil){
1049            V180= (V175);
1050            goto T315;}
1051            base[0]= (V174);
1052            base[1]= small_fixnum(0);
1053            vs_top=(vs_base=base+0)+2;
1054            Larray_dimension();
1055            vs_top=sup;
1056            V181= vs_base[0];
1057            if(!((fix(V181))>(0))){
1058            goto T317;}
1059            base[0]= (V174);
1060            base[1]= small_fixnum(0);
1061            vs_top=(vs_base=base+0)+2;
1062            Larray_dimension();
1063            vs_top=sup;
1064            V180= vs_base[0];
1065            goto T315;
1066            goto T317;
1067    T317:;
1068            V180= small_fixnum(5);
1069            goto T315;
1070    T315:;
1071            V182= number_plus(V179,V180);
1072            V183= make_cons(/* INLINE-ARGS */V182,Cnil);
1073            base[0]= (V174);
1074            vs_top=(vs_base=base+0)+1;
1075            Larray_element_type();
1076            vs_top=sup;
1077            V184= vs_base[0];
1078            V185 = make_fixnum(V176);
1079            (void)((VFUN_NARGS=6,(*(LnkLI29))((V174),/* INLINE-ARGS */V183,VV[8],V184,VV[11],V185)));
1080            (void)(aset1((V174),V176,(V173)));
1081            base[0]= (V174);
1082            base[1]= make_fixnum((long)(V176)+1);
1083            vs_top=(vs_base=base+0)+2;
1084            siLfill_pointer_set();
1085            vs_top=sup;
1086            {object V186 = make_fixnum(V176);
1087            VMR24(V186)}}
1088            va_end(ap);
1089            base[0]=base[0];
1090            return Cnil;}
1091            }
1092    /*      local entry for function VECTOR-POP     */
1093    
1094    static object LI25(V188)
1095    
1096    register object V188;
1097    {        VMB25 VMS25 VMV25
1098            goto TTL;
1099    TTL:;
1100            {long V189;
1101            base[0]= (V188);
1102            vs_top=(vs_base=base+0)+1;
1103            Lfill_pointer();
1104            vs_top=sup;
1105            V189= fix(vs_base[0]);
1106            if(!((V189)==(0))){
1107            goto T332;}
1108            base[0]= VV[12];
1109            base[1]= (V188);
1110            vs_top=(vs_base=base+0)+2;
1111            Lerror();
1112            vs_top=sup;
1113            goto T332;
1114    T332:;
1115            base[0]= (V188);
1116            base[1]= make_fixnum((long)(V189)-1);
1117            vs_top=(vs_base=base+0)+2;
1118            siLfill_pointer_set();
1119            vs_top=sup;
1120            {object V190 = aref1((V188),(long)(V189)-1);
1121            VMR25(V190)}}
1122            base[0]=base[0];
1123            return Cnil;
1124    }
1125    /*      local entry for function ADJUST-ARRAY   */
1126    
1127    static object LI26(object V192,object V191,object first,...)
1128    {      
1129            va_list ap;
1130            int narg = VFUN_NARGS; VMB26 VMS26 VMV26
1131            {register object V193;
1132            register object V194;
1133            register object V195;
1134            object V196;
1135            object V197;
1136            object V198;
1137            object V199;
1138            object V200;
1139            object V201;
1140            object V202;
1141            va_start(ap,first);
1142            if(narg <2) too_few_arguments();
1143            V193= V192;
1144            V194= V191;
1145            narg= narg - 2;
1146            V203 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));
1147            V195= V203;
1148            {
1149            parse_key_rest_new(V203,narg,Vcs +3,(struct key *)(void *)&LI26key,first,ap);
1150            V196=(Vcs[3]);
1151            V197=(Vcs[4]);
1152            V198=(Vcs[5]);
1153            V199=(Vcs[6]);
1154            V200=(Vcs[7]);
1155            V201=(Vcs[8]);
1156            V202=(Vcs[9]);
1157            {register object V204;
1158            V204= Cnil;
1159            if(!(type_of((V194))==t_fixnum||type_of((V194))==t_bignum)){
1160            goto T341;}
1161            V194= make_cons((V194),Cnil);
1162            goto T341;
1163    T341:;
1164            {register object x= VV[11],V205= (V195);
1165            while(!endp(V205))
1166            if(eql(x,V205->c.c_car)){
1167            V204= V205;
1168            goto T349;
1169            }else V205=V205->c.c_cdr;
1170            V204= Cnil;}
1171            goto T349;
1172    T349:;
1173            if(((V204))==Cnil){
1174            goto T347;}
1175            base[0]= (V193);
1176            vs_top=(vs_base=base+0)+1;
1177            (void) (*Lnk30)();
1178            vs_top=sup;
1179            if((vs_base[0])!=Cnil){
1180            goto T345;}
1181            base[0]= VV[13];
1182            vs_top=(vs_base=base+0)+1;
1183            Lerror();
1184            vs_top=sup;
1185            goto T345;
1186            goto T347;
1187    T347:;
1188            base[0]= (V193);
1189            vs_top=(vs_base=base+0)+1;
1190            (void) (*Lnk30)();
1191            vs_top=sup;
1192            if((vs_base[0])==Cnil){
1193            goto T345;}
1194            {object V206;
1195            base[1]= (V193);
1196            vs_top=(vs_base=base+1)+1;
1197            Lfill_pointer();
1198            vs_top=sup;
1199            V206= vs_base[0];
1200            V195= ON_STACK_CONS((V206),(V195));}
1201            V195= ON_STACK_CONS(VV[11],(V195));
1202            goto T345;
1203    T345:;
1204            base[0]= (V193);
1205            vs_top=(vs_base=base+0)+1;
1206            Larray_element_type();
1207            vs_top=sup;
1208            V196= vs_base[0];
1209            if(((V196))==(Ct)){
1210            goto T365;}
1211            V195= ON_STACK_CONS(V196,(V195));
1212            V195= ON_STACK_CONS(VV[8],(V195));
1213            goto T365;
1214    T365:;
1215            {register object x= VV[14],V210= (V195);
1216            while(!endp(V210))
1217            if(eql(x,V210->c.c_car)){
1218            goto T371;
1219            }else V210=V210->c.c_cdr;}
1220            {object V211;
1221            base[1]= (V193);
1222            vs_top=(vs_base=base+1)+1;
1223            (void) (*Lnk31)();
1224            vs_top=sup;
1225            V211= vs_base[0];
1226            V195= ON_STACK_CONS((V211),(V195));}
1227            V195= ON_STACK_CONS(VV[14],(V195));
1228            goto T371;
1229    T371:;
1230            {register object V213;
1231            base[0]= (V194);
1232            base[1]= VV[15];
1233            base[2]= Ct;
1234            {object V214;
1235            V214= (V195);
1236             vs_top=base+3;
1237             while(!endp(V214))
1238             {vs_push(car(V214));V214=cdr(V214);}
1239            vs_base=base+0;}
1240            (void) (*Lnk28)();
1241            vs_top=sup;
1242            V213= vs_base[0];
1243            if((cdr((V194)))==Cnil){
1244            goto T385;}
1245            V215= cdr((V194));
1246            V216= (*(LnkLI32))((V193));
1247            if(!(equal(/* INLINE-ARGS */V215,cdr(/* INLINE-ARGS */V216)))){
1248            goto T386;}
1249            if(!(((V196))==(VV[16]))){
1250            goto T385;}
1251            base[0]= (V194);
1252            vs_top=(vs_base=base+0)+1;
1253            Llast();
1254            vs_top=sup;
1255            V217= vs_base[0];
1256            {int V218= fix(car(V217));
1257            if(!((0)==((long)(V218>=0&&(8)>0?(V218)%(8):imod(V218,8))))){
1258            goto T386;}}
1259            goto T385;
1260    T385:;
1261            base[0]= (V193);
1262            base[1]= (V213);
1263            base[2]= small_fixnum(0);
1264            base[3]= small_fixnum(0);
1265            base[5]= (V213);
1266            vs_top=(vs_base=base+5)+1;
1267            (void) (*Lnk33)();
1268            vs_top=sup;
1269            V219= vs_base[0];
1270            base[5]= (V193);
1271            vs_top=(vs_base=base+5)+1;
1272            (void) (*Lnk33)();
1273            vs_top=sup;
1274            V220= vs_base[0];
1275            base[4]= (number_compare(V219,V220)<=0?(V219):V220);
1276            vs_top=(vs_base=base+0)+5;
1277            (void) (*Lnk34)();
1278            vs_top=sup;
1279            goto T384;
1280            goto T386;
1281    T386:;
1282            {register object V221;
1283            base[0]= make_fixnum((long)length((V194)));
1284            base[1]= VV[7];
1285            base[2]= small_fixnum(0);
1286            vs_top=(vs_base=base+0)+3;
1287            Lmake_list();
1288            vs_top=sup;
1289            V221= vs_base[0];
1290            goto T410;
1291    T410:;
1292            base[0]= (V193);
1293            {object V222;
1294            V222= (V221);
1295             vs_top=base+1;
1296             while(!endp(V222))
1297             {vs_push(car(V222));V222=cdr(V222);}
1298            vs_base=base+0;}
1299            (void) (*Lnk35)();
1300            vs_top=sup;
1301            if((vs_base[0])==Cnil){
1302            goto T413;}
1303            base[0]= (V213);
1304            base[2]= (V193);
1305            {object V223;
1306            V223= (V221);
1307             vs_top=base+3;
1308             while(!endp(V223))
1309             {vs_push(car(V223));V223=cdr(V223);}
1310            vs_base=base+2;}
1311            Laref();
1312            vs_top=sup;
1313            base[1]= vs_base[0];
1314            base[2]= (V221);
1315            vs_top=(vs_base=base+0)+3;
1316            (void) (*Lnk26)();
1317            vs_top=sup;
1318            goto T413;
1319    T413:;
1320            if(((*(LnkLI27))((V221),(V194)))==Cnil){
1321            goto T423;}
1322            goto T384;
1323            goto T423;
1324    T423:;
1325            goto T410;}
1326            goto T384;
1327    T384:;
1328            base[0]= (V193);
1329            base[1]= (V213);
1330            vs_top=(vs_base=base+0)+2;
1331            siLreplace_array();
1332            vs_top=sup;
1333            V204= cadr((V204));
1334            if(((V204))==Cnil){
1335            goto T433;}
1336            if(!(eql(Ct,(V204)))){
1337            goto T437;}
1338            base[0]= (V193);
1339            base[2]= (V193);
1340            vs_top=(vs_base=base+2)+1;
1341            (void) (*Lnk33)();
1342            vs_top=sup;
1343            base[1]= vs_base[0];
1344            vs_top=(vs_base=base+0)+2;
1345            siLfill_pointer_set();
1346            vs_top=sup;
1347            goto T433;
1348            goto T437;
1349    T437:;
1350            if(!(type_of((V204))==t_fixnum)){
1351            goto T443;}
1352            base[0]= (V193);
1353            base[1]= (V204);
1354            vs_top=(vs_base=base+0)+2;
1355            siLfill_pointer_set();
1356            vs_top=sup;
1357            goto T433;
1358            goto T443;
1359    T443:;
1360            base[0]= VV[17];
1361            base[1]= (V204);
1362            vs_top=(vs_base=base+0)+2;
1363            Lerror();
1364            vs_top=sup;
1365            goto T433;
1366    T433:;
1367            {object V224 = (V193);
1368            VMR26(V224)}}}
1369            va_end(ap);
1370            base[0]=base[0];
1371            return Cnil;}
1372            }}
1373    static void LnkT35(){ call_or_link(VV[35],(void **)(void *)&Lnk35);} /* ARRAY-IN-BOUNDS-P */
1374    static void LnkT34(){ call_or_link(VV[34],(void **)(void *)&Lnk34);} /* COPY-ARRAY-PORTION */
1375    static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* ARRAY-TOTAL-SIZE */
1376    static object  LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)(void *)&LnkLI32,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
1377    static void LnkT28(){ call_or_link(VV[28],(void **)(void *)&Lnk28);} /* MAKE-ARRAY */
1378    static void LnkT31(){ call_or_link(VV[31],(void **)(void *)&Lnk31);} /* STATICP */
1379    static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* ARRAY-HAS-FILL-POINTER-P */
1380    static object  LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)(void *)&LnkLI29,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */
1381    static object  LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[28],(void **)(void *)&LnkLI28,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
1382    static object  LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)(void *)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* INCREMENT-CURSOR */
1383    static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* ASET-BY-CURSOR */
1384    static object  LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)(void *)&LnkLI25,2,first,ap);va_end(ap);return V1;} /* SEQUENCE-CURSOR */
1385    static void LnkT24(){ call_or_link(VV[24],(void **)(void *)&Lnk24);} /* MAKE-ARRAY1 */
1386    static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* GET-AELTTYPE */
1387    static object  LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
1388    static void LnkT18(){ call_or_link(VV[18],(void **)(void *)&Lnk18);} /* SUBTYPEP */
1389    
1390    #ifdef SYSTEM_SPECIAL_INIT
1391    SYSTEM_SPECIAL_INIT
1392    #endif
1393    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26