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

Diff of /gcl/lsp/gcl_seq.c

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

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_seq.h"
4    void init_gcl_seq(){do_init(VV);}
5    /*      local entry for function MAKE-SEQUENCE  */
6    
7    static object LI1(object V2,object V1,object first,...)
8    {      
9            va_list ap;
10            int narg = VFUN_NARGS; VMB1 VMS1 VMV1
11            {register object V3;
12            register object V4;
13            register object V5;
14            object V6;
15            va_start(ap,first);
16            if(narg <2) too_few_arguments();
17            V3= V2;
18            V4= V1;
19            narg= narg - 2;
20            {
21            parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI1key,first,ap);
22            if(Vcs[2]==0){
23            V5= Cnil;
24            V6= Cnil;
25            }else{
26            V5=(Vcs[2]);
27            V6= Ct;}
28            {object V7;
29            register object V8;
30            V7= Cnil;
31            V8= Cnil;
32            if(!(((V3))==(VV[0]))){
33            goto T7;}
34            if(((V6))==Cnil){
35            goto T10;}
36            base[0]= (V4);
37            base[1]= VV[1];
38            base[2]= (V5);
39            vs_top=(vs_base=base+0)+3;
40            Lmake_list();
41            vs_top=sup;
42            {object V9 = vs_base[0];
43            VMR1(V9)}
44            goto T10;
45    T10:;
46            base[0]= (V4);
47            vs_top=(vs_base=base+0)+1;
48            Lmake_list();
49            vs_top=sup;
50            {object V10 = vs_base[0];
51            VMR1(V10)}
52            goto T7;
53    T7:;
54            if(((V3))==(VV[2])){
55            goto T16;}
56            if(!(((V3))==(VV[3]))){
57            goto T17;}
58            goto T16;
59    T16:;
60            V7= VV[4];
61            goto T5;
62            goto T17;
63    T17:;
64            if(((V3))==(VV[5])){
65            goto T21;}
66            if(!(((V3))==(VV[6]))){
67            goto T22;}
68            goto T21;
69    T21:;
70            V7= VV[7];
71            goto T5;
72            goto T22;
73    T22:;
74            if(((V3))==(VV[8])){
75            goto T26;}
76            if(!(((V3))==(VV[9]))){
77            goto T27;}
78            goto T26;
79    T26:;
80            V7= Ct;
81            goto T5;
82            goto T27;
83    T27:;
84            V3= (*(LnkLI21))((V3));
85            base[0]= car((V3));
86            base[1]= VV[0];
87            vs_top=(vs_base=base+0)+2;
88            (void) (*Lnk22)();
89            vs_top=sup;
90            if((vs_base[0])==Cnil){
91            goto T33;}
92            if(!((VV[10])==(car((V3))))){
93            goto T40;}
94            if(!(equal((V4),small_fixnum(0)))){
95            goto T39;}
96            goto T40;
97    T40:;
98            if(!((VV[11])==(car((V3))))){
99            goto T38;}
100            if(!(equal((V4),small_fixnum(0)))){
101            goto T38;}
102            goto T39;
103    T39:;
104            base[0]= VV[12];
105            base[1]= VV[13];
106            base[2]= (V3);
107            base[4]= Cnil;
108            base[5]= VV[14];
109            base[6]= (V4);
110            vs_top=(vs_base=base+4)+3;
111            Lformat();
112            vs_top=sup;
113            base[3]= vs_base[0];
114            vs_top=(vs_base=base+0)+4;
115            (void) (*Lnk23)();
116            vs_top=sup;
117            goto T38;
118    T38:;
119            if(((V6))==Cnil){
120            goto T55;}
121            base[0]= (V4);
122            base[1]= VV[1];
123            base[2]= (V5);
124            vs_top=(vs_base=base+0)+3;
125            Lmake_list();
126            vs_top=sup;
127            {object V11 = vs_base[0];
128            VMR1(V11)}
129            goto T55;
130    T55:;
131            base[0]= (V4);
132            vs_top=(vs_base=base+0)+1;
133            Lmake_list();
134            vs_top=sup;
135            {object V12 = vs_base[0];
136            VMR1(V12)}
137            goto T33;
138    T33:;
139            if((car((V3)))==(VV[15])){
140            goto T61;}
141            if((car((V3)))==(VV[16])){
142            goto T61;}
143            base[0]= VV[12];
144            base[1]= VV[17];
145            base[2]= (V3);
146            base[3]= VV[18];
147            vs_top=(vs_base=base+0)+4;
148            (void) (*Lnk23)();
149            vs_top=sup;
150            goto T61;
151    T61:;
152            {object V13;
153            V13= caddr((V3));
154            if(!(type_of((V13))==t_cons||((V13))==Cnil)){
155            goto T72;}
156            V13= car((V13));
157            goto T72;
158    T72:;
159            if(type_of((V13))==t_fixnum){
160            goto T76;}
161            V13= (V4);
162            goto T76;
163    T76:;
164            if(equal((V13),(V4))){
165            goto T70;}
166            base[0]= VV[12];
167            base[1]= VV[19];
168            base[2]= (V3);
169            base[4]= Cnil;
170            base[5]= VV[20];
171            base[6]= (V3);
172            base[7]= (V4);
173            vs_top=(vs_base=base+4)+4;
174            Lformat();
175            vs_top=sup;
176            base[3]= vs_base[0];
177            vs_top=(vs_base=base+0)+4;
178            (void) (*Lnk23)();
179            vs_top=sup;}
180            goto T70;
181    T70:;{object V14;
182            V14= cadr((V3));
183            if(V14==Cnil)goto T90;
184            V7= V14;
185            goto T5;
186            goto T90;
187    T90:;}
188            V7= Ct;
189            goto T5;
190    T5:;
191            V7= (*(LnkLI24))((V7));
192            base[0]= (V7);
193            base[1]= (V4);
194            base[2]= Cnil;
195            base[3]= Cnil;
196            base[4]= Cnil;
197            base[5]= Cnil;
198            base[6]= Cnil;
199            vs_top=(vs_base=base+0)+7;
200            siLmake_vector();
201            vs_top=sup;
202            V8= vs_base[0];
203            if(((V6))==Cnil){
204            goto T103;}
205            {register long V15;
206            register long V16;
207            V15= 0;
208            V16= fix((V4));
209            goto T109;
210    T109:;
211            if(!((V15)>=(V16))){
212            goto T110;}
213            goto T103;
214            goto T110;
215    T110:;
216            (void)(elt_set((V8),V15,(V5)));
217            V15= (long)(V15)+1;
218            goto T109;}
219            goto T103;
220    T103:;
221            {object V17 = (V8);
222            VMR1(V17)}}
223            va_end(ap);
224            base[0]=base[0];
225            return Cnil;}
226            }}
227    /*      local entry for function CONCATENATE    */
228    
229    static object LI2(object V18,object first,...)
230    {      
231            va_list ap;
232            int narg = VFUN_NARGS; VMB2 VMS2 VMV2
233            {object V19;
234            object V20;
235            va_start(ap,first);
236            if(narg <1) too_few_arguments();
237            V19= V18;
238            narg= narg - 1;
239            V21 = list_vector_new(narg,first,ap);
240            V20= V21;
241            {register object V22;
242            register object V23;
243            register long V24;
244            {object V26;
245            {object V27;
246            object V28= (V20);
247            if(endp(V28)){
248            V26= Cnil;
249            goto T120;}
250            base[0]=V27=MMcons(Cnil,Cnil);
251            goto T121;
252    T121:;
253            base[1]= (V28->c.c_car);
254            vs_top=(vs_base=base+1)+1;
255            Llength();
256            vs_top=sup;
257            (V27->c.c_car)= vs_base[0];
258            V28=MMcdr(V28);
259            if(endp(V28)){
260            V26= base[0];
261            goto T120;}
262            V27=MMcdr(V27)=MMcons(Cnil,Cnil);
263            goto T121;}
264            goto T120;
265    T120:;
266             vs_top=base+0;
267             while(!endp(V26))
268             {vs_push(car(V26));V26=cdr(V26);}
269            vs_base=base+0;}
270            Lplus();
271            vs_top=sup;
272            V25= vs_base[0];
273            V22= (VFUN_NARGS=2,(*(LnkLI25))((V19),V25));
274            V24= 0;
275            V23= (V20);
276            goto T126;
277    T126:;
278            if(((V23))!=Cnil){
279            goto T127;}
280            {object V29 = (V22);
281            VMR2(V29)}
282            goto T127;
283    T127:;
284            {register long V30;
285            register long V31;
286            V30= 0;
287            V31= (long)length(car((V23)));
288            goto T135;
289    T135:;
290            if(!((V30)>=(V31))){
291            goto T136;}
292            goto T131;
293            goto T136;
294    T136:;
295            V32= elt(car((V23)),V30);
296            (void)(elt_set((V22),V24,/* INLINE-ARGS */V32));
297            V24= (long)(V24)+(1);
298            V30= (long)(V30)+1;
299            goto T135;}
300            goto T131;
301    T131:;
302            V23= cdr((V23));
303            goto T126;}
304            va_end(ap);
305            base[0]=base[0];
306            return Cnil;}
307            }
308    /*      local entry for function MAP    */
309    
310    static object LI3(object V35,object V34,object V33,object first,...)
311    {      
312            va_list ap;
313            int narg = VFUN_NARGS; VMB3 VMS3 VMV3
314            {object V36;
315            register object V37;
316            object V38;
317            register object V39;
318            va_start(ap,first);
319            if(narg <3) too_few_arguments();
320            V36= V35;
321            V37= V34;
322            V38= V33;
323            narg= narg - 3;
324            V40 = list_vector_new(narg,first,ap);
325            V39= V40;
326            V39= make_cons((V38),(V39));
327            {object V41;
328            {object V42;
329            {object V43;
330            object V44= (V39);
331            if(endp(V44)){
332            V42= Cnil;
333            goto T152;}
334            base[0]=V43=MMcons(Cnil,Cnil);
335            goto T153;
336    T153:;
337            base[1]= (V44->c.c_car);
338            vs_top=(vs_base=base+1)+1;
339            Llength();
340            vs_top=sup;
341            (V43->c.c_car)= vs_base[0];
342            V44=MMcdr(V44);
343            if(endp(V44)){
344            V42= base[0];
345            goto T152;}
346            V43=MMcdr(V43)=MMcons(Cnil,Cnil);
347            goto T153;}
348            goto T152;
349    T152:;
350             vs_top=base+0;
351             while(!endp(V42))
352             {vs_push(car(V42));V42=cdr(V42);}
353            vs_base=base+0;}
354            Lmin();
355            vs_top=sup;
356            V41= vs_base[0];
357            if(((V36))!=Cnil){
358            goto T157;}
359            {register long V45;
360            long V46;
361            V45= 0;
362            V46= fix((V41));
363            goto T162;
364    T162:;
365            if(!((V45)>=(V46))){
366            goto T163;}
367            {object V47 = Cnil;
368            VMR3(V47)}
369            goto T163;
370    T163:;
371            base[0]= (V37);
372            {object V48;
373            {object V49;
374            object V50= (V39);
375            if(endp(V50)){
376            V48= Cnil;
377            goto T169;}
378            base[1]=V49=MMcons(Cnil,Cnil);
379            goto T170;
380    T170:;
381            {register object V51;
382            V51= (V50->c.c_car);
383            (V49->c.c_car)= elt((V51),V45);}
384            V50=MMcdr(V50);
385            if(endp(V50)){
386            V48= base[1];
387            goto T169;}
388            V49=MMcdr(V49)=MMcons(Cnil,Cnil);
389            goto T170;}
390            goto T169;
391    T169:;
392             vs_top=base+1;
393             while(!endp(V48))
394             {vs_push(car(V48));V48=cdr(V48);}
395            vs_base=base+1;}
396            super_funcall_no_event(base[0]);
397            vs_top=sup;
398            V45= (long)(V45)+1;
399            goto T162;}
400            goto T157;
401    T157:;
402            {register object V52;
403            V52= (VFUN_NARGS=2,(*(LnkLI25))((V36),(V41)));
404            {register long V53;
405            long V54;
406            V53= 0;
407            V54= fix((V41));
408            goto T179;
409    T179:;
410            if(!((V53)>=(V54))){
411            goto T180;}
412            {object V55 = (V52);
413            VMR3(V55)}
414            goto T180;
415    T180:;
416            base[0]= (V37);
417            {object V57;
418            {object V58;
419            object V59= (V39);
420            if(endp(V59)){
421            V57= Cnil;
422            goto T187;}
423            base[1]=V58=MMcons(Cnil,Cnil);
424            goto T188;
425    T188:;
426            {register object V60;
427            V60= (V59->c.c_car);
428            (V58->c.c_car)= elt((V60),V53);}
429            V59=MMcdr(V59);
430            if(endp(V59)){
431            V57= base[1];
432            goto T187;}
433            V58=MMcdr(V58)=MMcons(Cnil,Cnil);
434            goto T188;}
435            goto T187;
436    T187:;
437             vs_top=base+1;
438             while(!endp(V57))
439             {vs_push(car(V57));V57=cdr(V57);}
440            vs_base=base+1;}
441            super_funcall_no_event(base[0]);
442            vs_top=sup;
443            V56= vs_base[0];
444            (void)(elt_set((V52),V53,V56));
445            V53= (long)(V53)+1;
446            goto T179;}}}
447            va_end(ap);
448            base[0]=base[0];
449            return Cnil;}
450            }
451    /*      local entry for function SOME   */
452    
453    static object LI4(object V62,object V61,object first,...)
454    {      
455            va_list ap;
456            int narg = VFUN_NARGS; VMB4 VMS4 VMV4
457            {register object V63;
458            object V64;
459            register object V65;
460            va_start(ap,first);
461            if(narg <2) too_few_arguments();
462            V63= V62;
463            V64= V61;
464            narg= narg - 2;
465            V66 = list_vector_new(narg,first,ap);
466            V65= V66;
467            V65= make_cons((V64),(V65));
468            {register long V67;
469            register long V68;
470            V67= 0;
471            {object V69;
472            {object V70;
473            object V71= (V65);
474            if(endp(V71)){
475            V69= Cnil;
476            goto T197;}
477            base[0]=V70=MMcons(Cnil,Cnil);
478            goto T198;
479    T198:;
480            base[1]= (V71->c.c_car);
481            vs_top=(vs_base=base+1)+1;
482            Llength();
483            vs_top=sup;
484            (V70->c.c_car)= vs_base[0];
485            V71=MMcdr(V71);
486            if(endp(V71)){
487            V69= base[0];
488            goto T197;}
489            V70=MMcdr(V70)=MMcons(Cnil,Cnil);
490            goto T198;}
491            goto T197;
492    T197:;
493             vs_top=base+0;
494             while(!endp(V69))
495             {vs_push(car(V69));V69=cdr(V69);}
496            vs_base=base+0;}
497            Lmin();
498            vs_top=sup;
499            V68= fix(vs_base[0]);
500            goto T202;
501    T202:;
502            if(!((V67)>=(V68))){
503            goto T203;}
504            {object V72 = Cnil;
505            VMR4(V72)}
506            goto T203;
507    T203:;
508            {register object V73;
509            base[0]= (V63);
510            {object V74;
511            {object V75;
512            object V76= (V65);
513            if(endp(V76)){
514            V74= Cnil;
515            goto T210;}
516            base[1]=V75=MMcons(Cnil,Cnil);
517            goto T211;
518    T211:;
519            {register object V77;
520            V77= (V76->c.c_car);
521            (V75->c.c_car)= elt((V77),V67);}
522            V76=MMcdr(V76);
523            if(endp(V76)){
524            V74= base[1];
525            goto T210;}
526            V75=MMcdr(V75)=MMcons(Cnil,Cnil);
527            goto T211;}
528            goto T210;
529    T210:;
530             vs_top=base+1;
531             while(!endp(V74))
532             {vs_push(car(V74));V74=cdr(V74);}
533            vs_base=base+1;}
534            super_funcall_no_event(base[0]);
535            vs_top=sup;
536            V73= vs_base[0];
537            if(((V73))==Cnil){
538            goto T207;}
539            {object V78 = (V73);
540            VMR4(V78)}}
541            goto T207;
542    T207:;
543            V67= (long)(V67)+1;
544            goto T202;}
545            va_end(ap);
546            base[0]=base[0];
547            return Cnil;}
548            }
549    /*      local entry for function EVERY  */
550    
551    static object LI5(object V80,object V79,object first,...)
552    {      
553            va_list ap;
554            int narg = VFUN_NARGS; VMB5 VMS5 VMV5
555            {register object V81;
556            object V82;
557            register object V83;
558            va_start(ap,first);
559            if(narg <2) too_few_arguments();
560            V81= V80;
561            V82= V79;
562            narg= narg - 2;
563            V84 = list_vector_new(narg,first,ap);
564            V83= V84;
565            V83= make_cons((V82),(V83));
566            {register long V85;
567            register long V86;
568            V85= 0;
569            {object V87;
570            {object V88;
571            object V89= (V83);
572            if(endp(V89)){
573            V87= Cnil;
574            goto T222;}
575            base[0]=V88=MMcons(Cnil,Cnil);
576            goto T223;
577    T223:;
578            base[1]= (V89->c.c_car);
579            vs_top=(vs_base=base+1)+1;
580            Llength();
581            vs_top=sup;
582            (V88->c.c_car)= vs_base[0];
583            V89=MMcdr(V89);
584            if(endp(V89)){
585            V87= base[0];
586            goto T222;}
587            V88=MMcdr(V88)=MMcons(Cnil,Cnil);
588            goto T223;}
589            goto T222;
590    T222:;
591             vs_top=base+0;
592             while(!endp(V87))
593             {vs_push(car(V87));V87=cdr(V87);}
594            vs_base=base+0;}
595            Lmin();
596            vs_top=sup;
597            V86= fix(vs_base[0]);
598            goto T227;
599    T227:;
600            if(!((V85)>=(V86))){
601            goto T228;}
602            {object V90 = Ct;
603            VMR5(V90)}
604            goto T228;
605    T228:;
606            base[0]= (V81);
607            {object V91;
608            {object V92;
609            object V93= (V83);
610            if(endp(V93)){
611            V91= Cnil;
612            goto T236;}
613            base[1]=V92=MMcons(Cnil,Cnil);
614            goto T237;
615    T237:;
616            {register object V94;
617            V94= (V93->c.c_car);
618            (V92->c.c_car)= elt((V94),V85);}
619            V93=MMcdr(V93);
620            if(endp(V93)){
621            V91= base[1];
622            goto T236;}
623            V92=MMcdr(V92)=MMcons(Cnil,Cnil);
624            goto T237;}
625            goto T236;
626    T236:;
627             vs_top=base+1;
628             while(!endp(V91))
629             {vs_push(car(V91));V91=cdr(V91);}
630            vs_base=base+1;}
631            super_funcall_no_event(base[0]);
632            vs_top=sup;
633            if((vs_base[0])!=Cnil){
634            goto T232;}
635            {object V95 = Cnil;
636            VMR5(V95)}
637            goto T232;
638    T232:;
639            V85= (long)(V85)+1;
640            goto T227;}
641            va_end(ap);
642            base[0]=base[0];
643            return Cnil;}
644            }
645    /*      local entry for function NOTANY */
646    
647    static object LI6(object V97,object V96,object first,...)
648    {      
649            va_list ap;
650            int narg = VFUN_NARGS; VMB6 VMS6 VMV6
651            {object V98;
652            object V99;
653            object V100;
654            va_start(ap,first);
655            if(narg <2) too_few_arguments();
656            V98= V97;
657            V99= V96;
658            narg= narg - 2;
659            V101 = list_vector_new(narg,first,ap);
660            V100= V101;
661            base[0]= (V98);
662            base[1]= (V99);
663            {object V103;
664            V103= (V100);
665             vs_top=base+2;
666             while(!endp(V103))
667             {vs_push(car(V103));V103=cdr(V103);}
668            vs_base=base+0;}
669            (void) (*Lnk26)();
670            vs_top=sup;
671            V102= vs_base[0];
672            {object V104 = ((V102)==Cnil?Ct:Cnil);
673            VMR6(V104)}
674            va_end(ap);
675            base[0]=base[0];
676            return Cnil;}
677            }
678    /*      local entry for function NOTEVERY       */
679    
680    static object LI7(object V106,object V105,object first,...)
681    {      
682            va_list ap;
683            int narg = VFUN_NARGS; VMB7 VMS7 VMV7
684            {object V107;
685            object V108;
686            object V109;
687            va_start(ap,first);
688            if(narg <2) too_few_arguments();
689            V107= V106;
690            V108= V105;
691            narg= narg - 2;
692            V110 = list_vector_new(narg,first,ap);
693            V109= V110;
694            base[0]= (V107);
695            base[1]= (V108);
696            {object V112;
697            V112= (V109);
698             vs_top=base+2;
699             while(!endp(V112))
700             {vs_push(car(V112));V112=cdr(V112);}
701            vs_base=base+0;}
702            (void) (*Lnk27)();
703            vs_top=sup;
704            V111= vs_base[0];
705            {object V113 = ((V111)==Cnil?Ct:Cnil);
706            VMR7(V113)}
707            va_end(ap);
708            base[0]=base[0];
709            return Cnil;}
710            }
711    static void LnkT27(){ call_or_link(VV[27],(void **)(void *)&Lnk27);} /* EVERY */
712    static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* SOME */
713    static object  LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
714    static object  LnkTLI24(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[24],(void **)(void *)&LnkLI24,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
715    static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* SPECIFIC-ERROR */
716    static void LnkT22(){ call_or_link(VV[22],(void **)(void *)&Lnk22);} /* SUBTYPEP */
717    static object  LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[21],(void **)(void *)&LnkLI21,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
718    
719    #ifdef SYSTEM_SPECIAL_INIT
720    SYSTEM_SPECIAL_INIT
721    #endif
722    

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