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

Diff of /gcl/lsp/gcl_listlib.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_listlib.h"
4    void init_gcl_listlib(){do_init(VV);}
5    /*      function definition for KEY-LIST        */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_check;
11            {object V1;
12            object V2;
13            object V3;
14            V1=(base[0]);
15            V2=(base[1]);
16            V3=(base[2]);
17            vs_top=sup;
18            goto TTL;
19    TTL:;
20            {register object V4;
21            V4= Cnil;
22            if(((V1))==Cnil){
23            goto T2;}
24            V4= make_cons(VV[0],(V4));
25            V4= make_cons(V1,(V4));
26            goto T2;
27    T2:;
28            if(((V2))==Cnil){
29            goto T8;}
30            V4= make_cons(VV[1],(V4));
31            V4= make_cons(V2,(V4));
32            goto T8;
33    T8:;
34            if(((V3))==Cnil){
35            goto T14;}
36            V4= make_cons(VV[2],(V4));
37            V4= make_cons(V3,(V4));
38            goto T14;
39    T14:;
40            base[3]= nreverse((V4));
41            vs_top=(vs_base=base+3)+1;
42            return;}
43            }
44    }
45    /*      local entry for function UNION  */
46    
47    static object LI2(object V12,object V11,object first,...)
48    {      
49            va_list ap;
50            int narg = VFUN_NARGS; VMB2 VMS2 VMV2
51            {object V13;
52            register object V14;
53            register object V15;
54            register object V16;
55            register object V17;
56            va_start(ap,first);
57            V13= V12;
58            V14= V11;
59            narg= narg - 2;
60            {
61            parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI2key,first,ap);
62            V15=(Vcs[2]);
63            V16=(Vcs[3]);
64            V17=(Vcs[4]);
65            {register object V18;
66            register object V19;
67            V18= Cnil;
68            V19= Cnil;
69            {register object V20;
70            V20= (V13);
71            goto T23;
72    T23:;
73            if(((V20))!=Cnil){
74            goto T24;}
75            if(((V19))==Cnil){
76            goto T27;}
77            ((V19))->c.c_cdr = (V14);
78            goto T27;
79    T27:;
80            if((V18)!=Cnil){
81            {object V21 = (V18);
82            VMR2(V21)}}
83            {object V22 = (V14);
84            VMR2(V22)}
85            goto T24;
86    T24:;
87            if(!(type_of((V20))==t_cons)){
88            goto T32;}
89            goto T31;
90            goto T32;
91    T32:;
92            base[0]= VV[3];
93            vs_top=(vs_base=base+0)+1;
94            Lerror();
95            vs_top=sup;
96            goto T31;
97    T31:;
98            base[0]=VV[14]->s.s_gfdef;
99            base[1]= CMPcar((V20));
100            base[2]= (V14);
101            {object V23;
102            base[3]= (V17);
103            base[4]= (V15);
104            base[5]= (V16);
105            vs_top=(vs_base=base+3)+3;
106            (void) (*Lnk15)();
107            vs_top=sup;
108            V23= vs_base[0];
109             vs_top=base+3;
110             while(V23!=Cnil)
111             {vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;}
112            vs_base=base+1;}
113            (void) (*Lnk14)();
114            vs_top=sup;
115            if((vs_base[0])!=Cnil){
116            goto T35;}
117            if(((V19))==Cnil){
118            goto T45;}
119            V24= make_cons(CMPcar((V20)),Cnil);
120            ((V19))->c.c_cdr = /* INLINE-ARGS */V24;
121            V19= CMPcdr((V19));
122            goto T35;
123            goto T45;
124    T45:;
125            V18= make_cons(CMPcar((V20)),Cnil);
126            V19= (V18);
127            goto T35;
128    T35:;
129            V20= CMPcdr((V20));
130            goto T23;}}
131            va_end(ap);
132            base[0]=base[0];
133            return Cnil;}
134            }}
135    /*      local entry for function NUNION */
136    
137    static object LI3(object V26,object V25,object first,...)
138    {      
139            va_list ap;
140            int narg = VFUN_NARGS; VMB3 VMS3 VMV3
141            {object V27;
142            register object V28;
143            register object V29;
144            register object V30;
145            register object V31;
146            va_start(ap,first);
147            V27= V26;
148            V28= V25;
149            narg= narg - 2;
150            {
151            parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI3key,first,ap);
152            V29=(Vcs[2]);
153            V30=(Vcs[3]);
154            V31=(Vcs[4]);
155            {register object V32;
156            register object V33;
157            V32= Cnil;
158            V33= Cnil;
159            {register object V34;
160            V34= (V27);
161            goto T58;
162    T58:;
163            if(((V34))!=Cnil){
164            goto T59;}
165            if(((V33))==Cnil){
166            goto T62;}
167            ((V33))->c.c_cdr = (V28);
168            goto T62;
169    T62:;
170            if((V32)!=Cnil){
171            {object V35 = (V32);
172            VMR3(V35)}}
173            {object V36 = (V28);
174            VMR3(V36)}
175            goto T59;
176    T59:;
177            if(!(type_of((V34))==t_cons)){
178            goto T67;}
179            goto T66;
180            goto T67;
181    T67:;
182            base[0]= VV[4];
183            vs_top=(vs_base=base+0)+1;
184            Lerror();
185            vs_top=sup;
186            goto T66;
187    T66:;
188            base[0]=VV[14]->s.s_gfdef;
189            base[1]= CMPcar((V34));
190            base[2]= (V28);
191            {object V37;
192            base[3]= (V31);
193            base[4]= (V29);
194            base[5]= (V30);
195            vs_top=(vs_base=base+3)+3;
196            (void) (*Lnk15)();
197            vs_top=sup;
198            V37= vs_base[0];
199             vs_top=base+3;
200             while(V37!=Cnil)
201             {vs_push((V37)->c.c_car);V37=(V37)->c.c_cdr;}
202            vs_base=base+1;}
203            (void) (*Lnk14)();
204            vs_top=sup;
205            if((vs_base[0])!=Cnil){
206            goto T70;}
207            if(((V33))==Cnil){
208            goto T81;}
209            ((V33))->c.c_cdr = (V34);
210            goto T79;
211            goto T81;
212    T81:;
213            V32= (V34);
214            goto T79;
215    T79:;
216            V33= (V34);
217            goto T70;
218    T70:;
219            V34= CMPcdr((V34));
220            goto T58;}}
221            va_end(ap);
222            base[0]=base[0];
223            return Cnil;}
224            }}
225    /*      local entry for function INTERSECTION   */
226    
227    static object LI4(object V39,object V38,object first,...)
228    {      
229            va_list ap;
230            int narg = VFUN_NARGS; VMB4 VMS4 VMV4
231            {object V40;
232            register object V41;
233            register object V42;
234            register object V43;
235            register object V44;
236            va_start(ap,first);
237            V40= V39;
238            V41= V38;
239            narg= narg - 2;
240            {
241            parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI4key,first,ap);
242            V42=(Vcs[2]);
243            V43=(Vcs[3]);
244            V44=(Vcs[4]);
245            {register object V45;
246            V45= Cnil;
247            {register object V46;
248            V46= (V40);
249            goto T90;
250    T90:;
251            if(((V46))!=Cnil){
252            goto T91;}
253            {object V47 = (V45);
254            VMR4(V47)}
255            goto T91;
256    T91:;
257            if(!(type_of((V46))==t_cons)){
258            goto T96;}
259            goto T95;
260            goto T96;
261    T96:;
262            base[0]= VV[5];
263            vs_top=(vs_base=base+0)+1;
264            Lerror();
265            vs_top=sup;
266            goto T95;
267    T95:;
268            base[0]=VV[14]->s.s_gfdef;
269            base[1]= CMPcar((V46));
270            base[2]= (V41);
271            {object V48;
272            base[3]= (V44);
273            base[4]= (V42);
274            base[5]= (V43);
275            vs_top=(vs_base=base+3)+3;
276            (void) (*Lnk15)();
277            vs_top=sup;
278            V48= vs_base[0];
279             vs_top=base+3;
280             while(V48!=Cnil)
281             {vs_push((V48)->c.c_car);V48=(V48)->c.c_cdr;}
282            vs_base=base+1;}
283            (void) (*Lnk14)();
284            vs_top=sup;
285            if((vs_base[0])==Cnil){
286            goto T99;}
287            V45= make_cons(CMPcar((V46)),(V45));
288            goto T99;
289    T99:;
290            V46= CMPcdr((V46));
291            goto T90;}}
292            va_end(ap);
293            base[0]=base[0];
294            return Cnil;}
295            }}
296    /*      local entry for function NINTERSECTION  */
297    
298    static object LI5(object V50,object V49,object first,...)
299    {      
300            va_list ap;
301            int narg = VFUN_NARGS; VMB5 VMS5 VMV5
302            {object V51;
303            register object V52;
304            register object V53;
305            register object V54;
306            register object V55;
307            va_start(ap,first);
308            V51= V50;
309            V52= V49;
310            narg= narg - 2;
311            {
312            parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI5key,first,ap);
313            V53=(Vcs[2]);
314            V54=(Vcs[3]);
315            V55=(Vcs[4]);
316            {register object V56;
317            register object V57;
318            V56= Cnil;
319            V57= Cnil;
320            {register object V58;
321            V58= (V51);
322            goto T115;
323    T115:;
324            if(((V58))!=Cnil){
325            goto T116;}
326            if(((V57))==Cnil){
327            goto T119;}
328            ((V57))->c.c_cdr = Cnil;
329            goto T119;
330    T119:;
331            {object V59 = (V56);
332            VMR5(V59)}
333            goto T116;
334    T116:;
335            if(!(type_of((V58))==t_cons)){
336            goto T124;}
337            goto T123;
338            goto T124;
339    T124:;
340            base[0]= VV[6];
341            vs_top=(vs_base=base+0)+1;
342            Lerror();
343            vs_top=sup;
344            goto T123;
345    T123:;
346            base[0]=VV[14]->s.s_gfdef;
347            base[1]= CMPcar((V58));
348            base[2]= (V52);
349            {object V60;
350            base[3]= (V55);
351            base[4]= (V53);
352            base[5]= (V54);
353            vs_top=(vs_base=base+3)+3;
354            (void) (*Lnk15)();
355            vs_top=sup;
356            V60= vs_base[0];
357             vs_top=base+3;
358             while(V60!=Cnil)
359             {vs_push((V60)->c.c_car);V60=(V60)->c.c_cdr;}
360            vs_base=base+1;}
361            (void) (*Lnk14)();
362            vs_top=sup;
363            if((vs_base[0])==Cnil){
364            goto T127;}
365            if(((V57))==Cnil){
366            goto T138;}
367            ((V57))->c.c_cdr = (V58);
368            goto T136;
369            goto T138;
370    T138:;
371            V56= (V58);
372            goto T136;
373    T136:;
374            V57= (V58);
375            goto T127;
376    T127:;
377            V58= CMPcdr((V58));
378            goto T115;}}
379            va_end(ap);
380            base[0]=base[0];
381            return Cnil;}
382            }}
383    /*      local entry for function SET-DIFFERENCE */
384    
385    static object LI6(object V62,object V61,object first,...)
386    {      
387            va_list ap;
388            int narg = VFUN_NARGS; VMB6 VMS6 VMV6
389            {object V63;
390            register object V64;
391            register object V65;
392            register object V66;
393            register object V67;
394            va_start(ap,first);
395            V63= V62;
396            V64= V61;
397            narg= narg - 2;
398            {
399            parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI6key,first,ap);
400            V65=(Vcs[2]);
401            V66=(Vcs[3]);
402            V67=(Vcs[4]);
403            {register object V68;
404            V68= Cnil;
405            {register object V69;
406            V69= (V63);
407            goto T147;
408    T147:;
409            if(((V69))!=Cnil){
410            goto T148;}
411            {object V70 = (V68);
412            VMR6(V70)}
413            goto T148;
414    T148:;
415            if(!(type_of((V69))==t_cons)){
416            goto T153;}
417            goto T152;
418            goto T153;
419    T153:;
420            base[0]= VV[7];
421            vs_top=(vs_base=base+0)+1;
422            Lerror();
423            vs_top=sup;
424            goto T152;
425    T152:;
426            base[0]=VV[14]->s.s_gfdef;
427            base[1]= CMPcar((V69));
428            base[2]= (V64);
429            {object V71;
430            base[3]= (V67);
431            base[4]= (V65);
432            base[5]= (V66);
433            vs_top=(vs_base=base+3)+3;
434            (void) (*Lnk15)();
435            vs_top=sup;
436            V71= vs_base[0];
437             vs_top=base+3;
438             while(V71!=Cnil)
439             {vs_push((V71)->c.c_car);V71=(V71)->c.c_cdr;}
440            vs_base=base+1;}
441            (void) (*Lnk14)();
442            vs_top=sup;
443            if((vs_base[0])!=Cnil){
444            goto T156;}
445            V68= make_cons(CMPcar((V69)),(V68));
446            goto T156;
447    T156:;
448            V69= CMPcdr((V69));
449            goto T147;}}
450            va_end(ap);
451            base[0]=base[0];
452            return Cnil;}
453            }}
454    /*      function definition for SET-DIFFERENCE-REV      */
455    
456    static void L7()
457    {register object *base=vs_base;
458            register object *sup=base+VM7; VC7
459            vs_check;
460            {object V72;
461            register object V73;
462            register object V74;
463            register object V75;
464            register object V76;
465            parse_key(vs_base+2,FALSE,FALSE,3,VV[1],VV[2],VV[0]);
466            V72=(base[0]);
467            V73=(base[1]);
468            vs_top=sup;
469            V74=(base[2]);
470            V75=(base[3]);
471            V76=(base[4]);
472            {register object V77;
473            V77= Cnil;
474            {register object V78;
475            V78= (V72);
476            goto T171;
477    T171:;
478            if(((V78))!=Cnil){
479            goto T172;}
480            base[8]= (V77);
481            vs_top=(vs_base=base+8)+1;
482            return;
483            goto T172;
484    T172:;
485            if(!(type_of((V78))==t_cons)){
486            goto T177;}
487            goto T176;
488            goto T177;
489    T177:;
490            base[8]= VV[8];
491            vs_top=(vs_base=base+8)+1;
492            Lerror();
493            vs_top=sup;
494            goto T176;
495    T176:;
496            base[8]=VV[14]->s.s_gfdef;
497            base[9]= CMPcar((V78));
498            base[10]= (V73);
499            base[11]= VV[9];
500            base[12]= Ct;
501            {object V79;
502            base[13]= (V76);
503            base[14]= (V74);
504            base[15]= (V75);
505            vs_top=(vs_base=base+13)+3;
506            (void) (*Lnk15)();
507            vs_top=sup;
508            V79= vs_base[0];
509             vs_top=base+13;
510             while(V79!=Cnil)
511             {vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;}
512            vs_base=base+9;}
513            (void) (*Lnk14)();
514            vs_top=sup;
515            if((vs_base[0])!=Cnil){
516            goto T180;}
517            V77= make_cons(CMPcar((V78)),(V77));
518            goto T180;
519    T180:;
520            V78= CMPcdr((V78));
521            goto T171;}}
522            }
523    }
524    /*      local entry for function NSET-DIFFERENCE        */
525    
526    static object LI8(object V81,object V80,object first,...)
527    {      
528            va_list ap;
529            int narg = VFUN_NARGS; VMB8 VMS8 VMV8
530            {object V82;
531            register object V83;
532            register object V84;
533            register object V85;
534            register object V86;
535            va_start(ap,first);
536            V82= V81;
537            V83= V80;
538            narg= narg - 2;
539            {
540            parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI8key,first,ap);
541            V84=(Vcs[2]);
542            V85=(Vcs[3]);
543            V86=(Vcs[4]);
544            {register object V87;
545            register object V88;
546            V87= Cnil;
547            V88= Cnil;
548            {register object V89;
549            V89= (V82);
550            goto T198;
551    T198:;
552            if(((V89))!=Cnil){
553            goto T199;}
554            if(((V88))==Cnil){
555            goto T202;}
556            ((V88))->c.c_cdr = Cnil;
557            goto T202;
558    T202:;
559            {object V90 = (V87);
560            VMR8(V90)}
561            goto T199;
562    T199:;
563            if(!(type_of((V89))==t_cons)){
564            goto T207;}
565            goto T206;
566            goto T207;
567    T207:;
568            base[0]= VV[10];
569            vs_top=(vs_base=base+0)+1;
570            Lerror();
571            vs_top=sup;
572            goto T206;
573    T206:;
574            base[0]=VV[14]->s.s_gfdef;
575            base[1]= CMPcar((V89));
576            base[2]= (V83);
577            {object V91;
578            base[3]= (V86);
579            base[4]= (V84);
580            base[5]= (V85);
581            vs_top=(vs_base=base+3)+3;
582            (void) (*Lnk15)();
583            vs_top=sup;
584            V91= vs_base[0];
585             vs_top=base+3;
586             while(V91!=Cnil)
587             {vs_push((V91)->c.c_car);V91=(V91)->c.c_cdr;}
588            vs_base=base+1;}
589            (void) (*Lnk14)();
590            vs_top=sup;
591            if((vs_base[0])!=Cnil){
592            goto T210;}
593            if(((V88))==Cnil){
594            goto T221;}
595            ((V88))->c.c_cdr = (V89);
596            goto T219;
597            goto T221;
598    T221:;
599            V87= (V89);
600            goto T219;
601    T219:;
602            V88= (V89);
603            goto T210;
604    T210:;
605            V89= CMPcdr((V89));
606            goto T198;}}
607            va_end(ap);
608            base[0]=base[0];
609            return Cnil;}
610            }}
611    /*      function definition for NSET-DIFFERENCE-REV     */
612    
613    static void L9()
614    {register object *base=vs_base;
615            register object *sup=base+VM9; VC9
616            vs_check;
617            {object V92;
618            register object V93;
619            register object V94;
620            register object V95;
621            register object V96;
622            parse_key(vs_base+2,FALSE,FALSE,3,VV[1],VV[2],VV[0]);
623            V92=(base[0]);
624            V93=(base[1]);
625            vs_top=sup;
626            V94=(base[2]);
627            V95=(base[3]);
628            V96=(base[4]);
629            {register object V97;
630            register object V98;
631            V97= Cnil;
632            V98= Cnil;
633            {register object V99;
634            V99= (V92);
635            goto T231;
636    T231:;
637            if(((V99))!=Cnil){
638            goto T232;}
639            if(((V98))==Cnil){
640            goto T235;}
641            ((V98))->c.c_cdr = Cnil;
642            goto T235;
643    T235:;
644            base[8]= (V97);
645            vs_top=(vs_base=base+8)+1;
646            return;
647            goto T232;
648    T232:;
649            if(!(type_of((V99))==t_cons)){
650            goto T240;}
651            goto T239;
652            goto T240;
653    T240:;
654            base[8]= VV[11];
655            vs_top=(vs_base=base+8)+1;
656            Lerror();
657            vs_top=sup;
658            goto T239;
659    T239:;
660            base[8]=VV[14]->s.s_gfdef;
661            base[9]= CMPcar((V99));
662            base[10]= (V93);
663            base[11]= VV[9];
664            base[12]= Ct;
665            {object V100;
666            base[13]= (V96);
667            base[14]= (V94);
668            base[15]= (V95);
669            vs_top=(vs_base=base+13)+3;
670            (void) (*Lnk15)();
671            vs_top=sup;
672            V100= vs_base[0];
673             vs_top=base+13;
674             while(V100!=Cnil)
675             {vs_push((V100)->c.c_car);V100=(V100)->c.c_cdr;}
676            vs_base=base+9;}
677            (void) (*Lnk14)();
678            vs_top=sup;
679            if((vs_base[0])!=Cnil){
680            goto T243;}
681            if(((V98))==Cnil){
682            goto T256;}
683            ((V98))->c.c_cdr = (V99);
684            goto T254;
685            goto T256;
686    T256:;
687            V97= (V99);
688            goto T254;
689    T254:;
690            V98= (V99);
691            goto T243;
692    T243:;
693            V99= CMPcdr((V99));
694            goto T231;}}
695            }
696    }
697    /*      local entry for function SET-EXCLUSIVE-OR       */
698    
699    static object LI10(object V102,object V101,object first,...)
700    {      
701            va_list ap;
702            int narg = VFUN_NARGS; VMB10 VMS10 VMV10
703            {object V103;
704            object V104;
705            object V105;
706            object V106;
707            object V107;
708            va_start(ap,first);
709            V103= V102;
710            V104= V101;
711            narg= narg - 2;
712            {
713            parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI10key,first,ap);
714            V105=(Vcs[2]);
715            V106=(Vcs[3]);
716            V107=(Vcs[4]);
717            base[0]= (V103);
718            base[1]= (V104);
719            {object V109;
720            base[2]= (V107);
721            base[3]= (V105);
722            base[4]= (V106);
723            vs_top=(vs_base=base+2)+3;
724            (void) (*Lnk15)();
725            vs_top=sup;
726            V109= vs_base[0];
727             vs_top=base+2;
728             while(V109!=Cnil)
729             {vs_push((V109)->c.c_car);V109=(V109)->c.c_cdr;}
730            vs_base=base+0;}
731            (void) (*Lnk16)();
732            vs_top=sup;
733            V108= vs_base[0];
734            base[0]= (V104);
735            base[1]= (V103);
736            {object V111;
737            base[2]= (V107);
738            base[3]= (V105);
739            base[4]= (V106);
740            vs_top=(vs_base=base+2)+3;
741            (void) (*Lnk15)();
742            vs_top=sup;
743            V111= vs_base[0];
744             vs_top=base+2;
745             while(V111!=Cnil)
746             {vs_push((V111)->c.c_car);V111=(V111)->c.c_cdr;}
747            vs_base=base+0;}
748            (void) (*Lnk17)();
749            vs_top=sup;
750            V110= vs_base[0];
751            {object V112 = nconc(V108,V110);
752            VMR10(V112)}
753            va_end(ap);
754            base[0]=base[0];
755            return Cnil;}
756            }}
757    /*      local entry for function NSET-EXCLUSIVE-OR      */
758    
759    static object LI11(object V114,object V113,object first,...)
760    {      
761            va_list ap;
762            int narg = VFUN_NARGS; VMB11 VMS11 VMV11
763            {object V115;
764            register object V116;
765            register object V117;
766            register object V118;
767            register object V119;
768            va_start(ap,first);
769            V115= V114;
770            V116= V113;
771            narg= narg - 2;
772            {
773            parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI11key,first,ap);
774            V117=(Vcs[2]);
775            V118=(Vcs[3]);
776            V119=(Vcs[4]);
777            {object V120;
778            register object V121;
779            register object V122;
780            register object V123;
781            V120= Cnil;
782            V121= Cnil;
783            V122= Cnil;
784            V123= Cnil;
785            {register object V124;
786            V124= (V115);
787            goto T282;
788    T282:;
789            if(((V124))!=Cnil){
790            goto T283;}
791            if(((V123))==Cnil){
792            goto T286;}
793            ((V123))->c.c_cdr = Cnil;
794            goto T286;
795    T286:;
796            if(((V121))==Cnil){
797            goto T290;}
798            base[0]= (V116);
799            base[1]= (V122);
800            {object V126;
801            base[2]= (V119);
802            base[3]= (V117);
803            base[4]= (V118);
804            vs_top=(vs_base=base+2)+3;
805            (void) (*Lnk15)();
806            vs_top=sup;
807            V126= vs_base[0];
808             vs_top=base+2;
809             while(V126!=Cnil)
810             {vs_push((V126)->c.c_car);V126=(V126)->c.c_cdr;}
811            vs_base=base+0;}
812            (void) (*Lnk18)();
813            vs_top=sup;
814            V125= vs_base[0];
815            ((V121))->c.c_cdr = V125;
816            {object V127 = (V120);
817            VMR11(V127)}
818            goto T290;
819    T290:;
820            base[0]= (V116);
821            base[1]= (V122);
822            {object V128;
823            base[2]= (V119);
824            base[3]= (V117);
825            base[4]= (V118);
826            vs_top=(vs_base=base+2)+3;
827            (void) (*Lnk15)();
828            vs_top=sup;
829            V128= vs_base[0];
830             vs_top=base+2;
831             while(V128!=Cnil)
832             {vs_push((V128)->c.c_car);V128=(V128)->c.c_cdr;}
833            vs_base=base+0;}
834            (void) (*Lnk18)();
835            vs_top=sup;
836            {object V129 = vs_base[0];
837            VMR11(V129)}
838            goto T283;
839    T283:;
840            if(!(type_of((V124))==t_cons)){
841            goto T308;}
842            goto T307;
843            goto T308;
844    T308:;
845            base[0]= VV[12];
846            vs_top=(vs_base=base+0)+1;
847            Lerror();
848            vs_top=sup;
849            goto T307;
850    T307:;
851            base[0]=VV[14]->s.s_gfdef;
852            base[1]= CMPcar((V124));
853            base[2]= (V116);
854            {object V130;
855            base[3]= (V119);
856            base[4]= (V117);
857            base[5]= (V118);
858            vs_top=(vs_base=base+3)+3;
859            (void) (*Lnk15)();
860            vs_top=sup;
861            V130= vs_base[0];
862             vs_top=base+3;
863             while(V130!=Cnil)
864             {vs_push((V130)->c.c_car);V130=(V130)->c.c_cdr;}
865            vs_base=base+1;}
866            (void) (*Lnk14)();
867            vs_top=sup;
868            if((vs_base[0])==Cnil){
869            goto T313;}
870            if(((V123))==Cnil){
871            goto T323;}
872            ((V123))->c.c_cdr = (V124);
873            goto T321;
874            goto T323;
875    T323:;
876            V122= (V124);
877            goto T321;
878    T321:;
879            V123= (V124);
880            goto T311;
881            goto T313;
882    T313:;
883            if(((V121))==Cnil){
884            goto T329;}
885            ((V121))->c.c_cdr = (V124);
886            goto T327;
887            goto T329;
888    T329:;
889            V120= (V124);
890            goto T327;
891    T327:;
892            V121= (V124);
893            goto T311;
894    T311:;
895            V124= CMPcdr((V124));
896            goto T282;}}
897            va_end(ap);
898            base[0]=base[0];
899            return Cnil;}
900            }}
901    /*      local entry for function SUBSETP        */
902    
903    static object LI12(object V132,object V131,object first,...)
904    {      
905            va_list ap;
906            int narg = VFUN_NARGS; VMB12 VMS12 VMV12
907            {object V133;
908            register object V134;
909            register object V135;
910            register object V136;
911            register object V137;
912            va_start(ap,first);
913            V133= V132;
914            V134= V131;
915            narg= narg - 2;
916            {
917            parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI12key,first,ap);
918            V135=(Vcs[2]);
919            V136=(Vcs[3]);
920            V137=(Vcs[4]);
921            {register object V138;
922            V138= (V133);
923            goto T337;
924    T337:;
925            if(((V138))!=Cnil){
926            goto T338;}
927            {object V139 = Ct;
928            VMR12(V139)}
929            goto T338;
930    T338:;
931            if(!(type_of((V138))==t_cons)){
932            goto T343;}
933            goto T342;
934            goto T343;
935    T343:;
936            base[0]= VV[13];
937            vs_top=(vs_base=base+0)+1;
938            Lerror();
939            vs_top=sup;
940            goto T342;
941    T342:;
942            base[0]=VV[14]->s.s_gfdef;
943            base[1]= CMPcar((V138));
944            base[2]= (V134);
945            {object V140;
946            base[3]= (V137);
947            base[4]= (V135);
948            base[5]= (V136);
949            vs_top=(vs_base=base+3)+3;
950            (void) (*Lnk15)();
951            vs_top=sup;
952            V140= vs_base[0];
953             vs_top=base+3;
954             while(V140!=Cnil)
955             {vs_push((V140)->c.c_car);V140=(V140)->c.c_cdr;}
956            vs_base=base+1;}
957            (void) (*Lnk14)();
958            vs_top=sup;
959            if((vs_base[0])!=Cnil){
960            goto T346;}
961            {object V141 = Cnil;
962            VMR12(V141)}
963            goto T346;
964    T346:;
965            V138= CMPcdr((V138));
966            goto T337;}
967            va_end(ap);
968            base[0]=base[0];
969            return Cnil;}
970            }}
971    static void LnkT18(){ call_or_link(VV[18],(void **)(void *)&Lnk18);} /* NSET-DIFFERENCE-REV */
972    static void LnkT17(){ call_or_link(VV[17],(void **)(void *)&Lnk17);} /* SET-DIFFERENCE-REV */
973    static void LnkT16(){ call_or_link(VV[16],(void **)(void *)&Lnk16);} /* SET-DIFFERENCE */
974    static void LnkT14(){ call_or_link(VV[14],(void **)(void *)&Lnk14);} /* MEMBER1 */
975    static void LnkT15(){ call_or_link(VV[15],(void **)(void *)&Lnk15);} /* KEY-LIST */
976    
977    #ifdef SYSTEM_SPECIAL_INIT
978    SYSTEM_SPECIAL_INIT
979    #endif
980    

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