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

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

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