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

Diff of /gcl/lsp/listlib.c

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

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

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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