/[gcl]/gcl/pcl/pcl_iterate.c
ViewVC logotype

Diff of /gcl/pcl/pcl_iterate.c

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

revision 1.4 by camm, Tue Sep 23 21:48:34 2003 UTC revision 1.5 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 121  T18:; Line 121  T18:;
121          goto T18;}          goto T18;}
122          goto T17;          goto T17;
123  T17:;  T17:;
124          V32= append(V26,(V5));          V32 = (V5);
125          {object V33 = list(3,VV[0],(V6),list(3,VV[1],V16,make_cons(VV[2],/* INLINE-ARGS */V32)));          V33= append(V26,V32);
126          VMR2(V33)}}          {object V34 = list(3,VV[0],(V6),list(3,VV[1],V16,make_cons(VV[2],/* INLINE-ARGS */V33)));
127            VMR2(V34)}}
128          base[0]=base[0];          base[0]=base[0];
129          return Cnil;          return Cnil;
130  }  }
131  /*      local entry for function OPTIMIZE-ITERATE-FORM  */  /*      local entry for function OPTIMIZE-ITERATE-FORM  */
132    
133  static object LI3(V37,V38,V39)  static object LI3(V38,V39,V40)
134    
135  object V37;object V38;object V39;  object V38;object V39;object V40;
136  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
137          goto TTL;          goto TTL;
138  TTL:;  TTL:;
139          {object V40;          {object V41;
140          object V41;          object V42;
141          register object V42;          register object V43;
         object V43;  
142          object V44;          object V44;
143          object V45;          object V45;
144          object V46;          object V46;
145          object V47;          object V47;
146            object V48;
147          base[0]=MMcons((VV[8]->s.s_dbind),Cnil);          base[0]=MMcons((VV[8]->s.s_dbind),Cnil);
148          vs_base=vs_top;          vs_base=vs_top;
149          Lgensym();          Lgensym();
150          vs_top=sup;          vs_top=sup;
151          V40= vs_base[0];          V41= vs_base[0];
152          V41= list(2,VV[7],(V40));          V42= list(2,VV[7],(V41));
153          {object V48;          {object V49;
154          object V49= (V37);          object V50= (V38);
155          if(V49==Cnil){          if(V50==Cnil){
156          V42= Cnil;          V43= Cnil;
157          goto T22;}          goto T22;}
158          base[4]=V48=MMcons(Cnil,Cnil);          base[4]=V49=MMcons(Cnil,Cnil);
159          goto T23;          goto T23;
160  T23:;  T23:;
161          {object V51;          {object V52;
162          V51= CMPcar((V49->c.c_car));          V52= CMPcar((V50->c.c_car));
163          if(!(type_of((V51))==t_cons||((V51))==Cnil)){          if(!(type_of((V52))==t_cons||((V52))==Cnil)){
164          goto T27;}          goto T27;}
165          base[5]= (V51);          base[5]= (V52);
166          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
167          Lcopy_list();          Lcopy_list();
168          vs_top=sup;          vs_top=sup;
169          (V48->c.c_cdr)= vs_base[0];          (V49->c.c_cdr)= vs_base[0];
170          goto T24;          goto T24;
171          goto T27;          goto T27;
172  T27:;  T27:;
173          (V48->c.c_cdr)= make_cons((V51),Cnil);}          (V49->c.c_cdr)= make_cons((V52),Cnil);}
174          goto T24;          goto T24;
175  T24:;  T24:;
176          while(MMcdr(V48)!=Cnil)V48=MMcdr(V48);          while(MMcdr(V49)!=Cnil)V49=MMcdr(V49);
177          if((V49=MMcdr(V49))==Cnil){          if((V50=MMcdr(V50))==Cnil){
178          base[4]=base[4]->c.c_cdr;          base[4]=base[4]->c.c_cdr;
179          V42= base[4];          V43= base[4];
180          goto T22;}          goto T22;}
181          goto T23;}          goto T23;}
182          goto T22;          goto T22;
183  T22:;  T22:;
         V43= Cnil;  
184          V44= Cnil;          V44= Cnil;
185          V45= Cnil;          V45= Cnil;
186          V46= Cnil;          V46= Cnil;
187          V47= Cnil;          V47= Cnil;
188          {object V52;          V48= Cnil;
189          V52= (V42);          {object V53;
190            V53= (V43);
191          goto T37;          goto T37;
192  T37:;  T37:;
193          if(((V52))!=Cnil){          if(((V53))!=Cnil){
194          goto T38;}          goto T38;}
195          goto T35;          goto T35;
196          goto T38;          goto T38;
197  T38:;  T38:;
198          {register object x= CMPcar((V52)),V53= CMPcdr((V52));          {register object x= CMPcar((V53)),V54= CMPcdr((V53));
199          while(V53!=Cnil)          while(V54!=Cnil)
200          if(eql(x,V53->c.c_car)){          if(eql(x,V54->c.c_car)){
201          goto T44;          goto T44;
202          }else V53=V53->c.c_cdr;          }else V54=V54->c.c_cdr;
203          goto T42;}          goto T42;}
204          goto T44;          goto T44;
205  T44:;  T44:;
206          base[4]= VV[9];          base[4]= VV[9];
207          base[5]= CMPcar((V52));          base[5]= CMPcar((V53));
208          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
209          (void) (*Lnk126)();          (void) (*Lnk126)();
210          vs_top=sup;          vs_top=sup;
211          goto T42;          goto T42;
212  T42:;  T42:;
213          V52= CMPcdr((V52));          V53= CMPcdr((V53));
214          goto T37;}          goto T37;}
215          goto T35;          goto T35;
216  T35:;  T35:;
217          base[4]=make_cclosure_new(LC4,Cnil,base[0],Cdata);          base[4]=make_cclosure_new(LC4,Cnil,base[0],Cdata);
218          base[4]=MMcons(base[4],base[0]);          base[4]=MMcons(base[4],base[0]);
219          {object V54;          {object V55;
220          register object V55;          register object V56;
221          V54= (V37);          V55= (V38);
222          V55= CMPcar((V54));          V56= CMPcar((V55));
223          goto T54;          goto T54;
224  T54:;  T54:;
225          if(!(((V54))==Cnil)){          if(!(((V55))==Cnil)){
226          goto T55;}          goto T55;}
227          goto T50;          goto T50;
228          goto T55;          goto T55;
229  T55:;  T55:;
230          if(!(type_of((V55))==t_cons)){          if(!(type_of((V56))==t_cons)){
231          goto T60;}          goto T60;}
232          if(type_of(CMPcdr((V55)))==t_cons){          if(type_of(CMPcdr((V56)))==t_cons){
233          goto T61;}          goto T61;}
234          goto T60;          goto T60;
235  T60:;  T60:;
236          base[6]= VV[10];          base[6]= VV[10];
237          base[7]= (V55);          base[7]= (V56);
238          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
239          (void) (*Lnk126)();          (void) (*Lnk126)();
240          vs_top=sup;          vs_top=sup;
241          goto T59;          goto T59;
242          goto T61;          goto T61;
243  T61:;  T61:;
244          if((CMPcddr((V55)))==Cnil){          if((CMPcddr((V56)))==Cnil){
245          goto T67;}          goto T67;}
246          base[6]= VV[11];          base[6]= VV[11];
247          base[7]= (V55);          base[7]= (V56);
248          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
249          (void) (*Lnk126)();          (void) (*Lnk126)();
250          vs_top=sup;          vs_top=sup;
251          goto T67;          goto T67;
252  T67:;  T67:;
253          {register object V56;          {register object V57;
         object V57;  
254          object V58;          object V58;
255          object V59;          object V59;
256          object V60;          object V60;
257          object V61;          object V61;
258          base[6]= CMPcadr((V55));          object V62;
259            base[6]= CMPcadr((V56));
260          base[7]= VV[12];          base[7]= VV[12];
261          base[8]= (V39);          base[8]= (V40);
262          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
263          (void) (*Lnk127)();          (void) (*Lnk127)();
264          if(vs_base>=vs_top){vs_top=sup;goto T76;}          if(vs_base>=vs_top){vs_top=sup;goto T76;}
265          V56= vs_base[0];          V57= vs_base[0];
266          vs_base++;          vs_base++;
267          if(vs_base>=vs_top){vs_top=sup;goto T77;}          if(vs_base>=vs_top){vs_top=sup;goto T77;}
268          V57= vs_base[0];          V58= vs_base[0];
269          vs_base++;          vs_base++;
270          if(vs_base>=vs_top){vs_top=sup;goto T78;}          if(vs_base>=vs_top){vs_top=sup;goto T78;}
271          V58= vs_base[0];          V59= vs_base[0];
272          vs_base++;          vs_base++;
273          if(vs_base>=vs_top){vs_top=sup;goto T79;}          if(vs_base>=vs_top){vs_top=sup;goto T79;}
274          V59= vs_base[0];          V60= vs_base[0];
275          vs_base++;          vs_base++;
276          if(vs_base>=vs_top){vs_top=sup;goto T80;}          if(vs_base>=vs_top){vs_top=sup;goto T80;}
277          V60= vs_base[0];          V61= vs_base[0];
278          vs_base++;          vs_base++;
279          if(vs_base>=vs_top){vs_top=sup;goto T81;}          if(vs_base>=vs_top){vs_top=sup;goto T81;}
280          V61= vs_base[0];          V62= vs_base[0];
281          vs_top=sup;          vs_top=sup;
282          goto T82;          goto T82;
283          goto T76;          goto T76;
284  T76:;  T76:;
285          V56= Cnil;          V57= Cnil;
286          goto T77;          goto T77;
287  T77:;  T77:;
288          V57= Cnil;          V58= Cnil;
289          goto T78;          goto T78;
290  T78:;  T78:;
291          V58= Cnil;          V59= Cnil;
292          goto T79;          goto T79;
293  T79:;  T79:;
294          V59= Cnil;          V60= Cnil;
295          goto T80;          goto T80;
296  T80:;  T80:;
297          V60= Cnil;          V61= Cnil;
298          goto T81;          goto T81;
299  T81:;  T81:;
300          V61= Cnil;          V62= Cnil;
301          goto T82;          goto T82;
302  T82:;  T82:;
303          {register object V62;          {register object V63;
         object V63;  
304          object V64;          object V64;
305          V62= CMPcar((V55));          object V65;
306          V63= Cnil;          V63= CMPcar((V56));
307          V64= Cnil;          V64= Cnil;
308          if(!(type_of((V62))==t_cons||((V62))==Cnil)){          V65= Cnil;
309            if(!(type_of((V63))==t_cons||((V63))==Cnil)){
310          goto T89;}          goto T89;}
311          base[7]= (V62);          base[7]= (V63);
312          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
313          Lcopy_list();          Lcopy_list();
314          vs_top=sup;          vs_top=sup;
315          V62= vs_base[0];          V63= vs_base[0];
316          goto T87;          goto T87;
317          goto T89;          goto T89;
318  T89:;  T89:;
319          V62= make_cons((V62),Cnil);          V63= make_cons((V63),Cnil);
320          goto T87;          goto T87;
321  T87:;  T87:;
322          {object V65;          {object V66;
323          V65= (((V56))==(VV[13])?Ct:Cnil);          V66= (((V57))==(VV[13])?Ct:Cnil);
324          if(((V65))==Cnil){          if(((V66))==Cnil){
325          goto T95;}          goto T95;}
326          goto T92;          goto T92;
327          goto T95;          goto T95;
328  T95:;  T95:;
329          V56= (VFUN_NARGS=2,(*(LnkLI128))((V56),small_fixnum(1)));          V57= (VFUN_NARGS=2,(*(LnkLI128))((V57),small_fixnum(1)));
330          if(((V56))!=Cnil){          if(((V57))!=Cnil){
331          goto T98;}          goto T98;}
332          {object V66;          {object V67;
333          V66= CMPcadr((V55));          V67= CMPcadr((V56));
334          if(!(type_of((V66))==t_cons)){          if(!(type_of((V67))==t_cons)){
335          goto T104;}          goto T104;}
336          base[7]= CMPcar((V66));          base[7]= CMPcar((V67));
337          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
338          Lfboundp();          Lfboundp();
339          vs_top=sup;          vs_top=sup;
340          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
341          goto T104;}          goto T104;}
342          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[15],(V66))));          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[15],(V67))));
343          goto T102;          goto T102;
344          goto T104;          goto T104;
345  T104:;  T104:;
346          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[17],(V66))));          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[17],(V67))));
347          goto T102;          goto T102;
348  T102:;  T102:;
349          V56= VV[13];          V57= VV[13];
350          goto T92;}          goto T92;}
351          goto T98;          goto T98;
352  T98:;  T98:;
353          V56= CMPcdr((V56));          V57= CMPcdr((V57));
354          {object V67;          {object V68;
355          V67= CMPcar((V56));          V68= CMPcar((V57));
356          V56= CMPcdr((V56));          V57= CMPcdr((V57));
357          V63= (V67);}          V64= (V68);}
358          if(((V58))==Cnil){          if(((V59))==Cnil){
359          goto T117;}          goto T117;}
360          base[7]= (V58);          base[7]= (V59);
361          base[8]= (V57);          base[8]= (V58);
362          base[9]= (V39);          base[9]= (V40);
363          base[10]= (V47);          base[10]= (V48);
364          base[11]= (base[4]->c.c_car);          base[11]= (base[4]->c.c_car);
365          vs_top=(vs_base=base+7)+5;          vs_top=(vs_base=base+7)+5;
366          (void) (*Lnk130)();          (void) (*Lnk130)();
367          if(vs_base<vs_top){          if(vs_base<vs_top){
368          V58= vs_base[0];          V59= vs_base[0];
369          vs_base++;          vs_base++;
370          }else{          }else{
371          V58= Cnil;}          V59= Cnil;}
372          if(vs_base<vs_top){          if(vs_base<vs_top){
373          V64= vs_base[0];          V65= vs_base[0];
374          }else{          }else{
375          V64= Cnil;}          V65= Cnil;}
376          vs_top=sup;          vs_top=sup;
377          V47= Cnil;          V48= Cnil;
378          goto T117;          goto T117;
379  T117:;  T117:;
380          {register object V68;          {register object V69;
         object V69;  
381          object V70;          object V70;
382          base[7]= (V56);          object V71;
383          base[8]= (V63);          base[7]= (V57);
384            base[8]= (V64);
385          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
386          (void) (*Lnk131)();          (void) (*Lnk131)();
387          if(vs_base>=vs_top){vs_top=sup;goto T132;}          if(vs_base>=vs_top){vs_top=sup;goto T132;}
388          V68= vs_base[0];          V69= vs_base[0];
389          vs_base++;          vs_base++;
390          if(vs_base>=vs_top){vs_top=sup;goto T133;}          if(vs_base>=vs_top){vs_top=sup;goto T133;}
391          V69= vs_base[0];          V70= vs_base[0];
392          vs_base++;          vs_base++;
393          if(vs_base>=vs_top){vs_top=sup;goto T134;}          if(vs_base>=vs_top){vs_top=sup;goto T134;}
394          V70= vs_base[0];          V71= vs_base[0];
395          vs_top=sup;          vs_top=sup;
396          goto T135;          goto T135;
397          goto T132;          goto T132;
398  T132:;  T132:;
399          V68= Cnil;          V69= Cnil;
400          goto T133;          goto T133;
401  T133:;  T133:;
402          V69= Cnil;          V70= Cnil;
403          goto T134;          goto T134;
404  T134:;  T134:;
405          V70= Cnil;          V71= Cnil;
406          goto T135;          goto T135;
407  T135:;  T135:;
408          if(((V69))==Cnil){          if(((V70))==Cnil){
409          goto T136;}          goto T136;}
410          V60= nconc((V60),(V69));          V61= nconc((V61),(V70));
411          goto T136;          goto T136;
412  T136:;  T136:;
413          if(((V60))==Cnil){          if(((V61))==Cnil){
414          goto T142;}          goto T142;}
415          V56= listA(4,VV[18],Cnil,make_cons(VV[19],(V60)),(V70));          V57= listA(4,VV[18],Cnil,make_cons(VV[19],(V61)),(V71));
416          goto T140;          goto T140;
417          goto T142;          goto T142;
418  T142:;  T142:;
419          if((CMPcdr((V70)))!=Cnil){          if((CMPcdr((V71)))!=Cnil){
420          goto T145;}          goto T145;}
421          V56= CMPcar((V70));          V57= CMPcar((V71));
422          goto T140;          goto T140;
423          goto T145;          goto T145;
424  T145:;  T145:;
425          V56= make_cons(VV[20],(V70));          V57= make_cons(VV[20],(V71));
426          goto T140;          goto T140;
427  T140:;}  T140:;}
428          base[7]= (V56);          base[7]= (V57);
429          base[8]= (V39);          base[8]= (V40);
430          base[9]= (V64);          base[9]= (V65);
431          base[10]= CMPcar((V63));          base[10]= CMPcar((V64));
432          base[11]= (V41);          base[11]= (V42);
433          base[12]= (V42);          base[12]= (V43);
434          base[13]= (V55);          base[13]= (V56);
435          vs_top=(vs_base=base+7)+7;          vs_top=(vs_base=base+7)+7;
436          (void) (*Lnk132)();          (void) (*Lnk132)();
437          vs_top=sup;          vs_top=sup;
438          V56= vs_base[0];          V57= vs_base[0];
439          if(((V56))==(VV[13])){          V72 = (V57);
440            if((V72)==(VV[13])){
441          goto T92;}          goto T92;}
442          if(((V59))==Cnil){          if(((V60))==Cnil){
443          goto T92;}          goto T92;}
444          {object V72;          V73 = (V45);
445          object V73= (V59);          {object V75;
446          if(V73==Cnil){          object V76= (V60);
447          V71= Cnil;          if(V76==Cnil){
448            V74= Cnil;
449          goto T160;}          goto T160;}
450          base[7]=V72=MMcons(Cnil,Cnil);          base[7]=V75=MMcons(Cnil,Cnil);
451          goto T161;          goto T161;
452  T161:;  T161:;
453          {object V75;          {object V78;
454          V75= CMPcar((V73->c.c_car));          V78= CMPcar((V76->c.c_car));
455          if(!(((V75))==(VV[21]))){          V79 = (V78);
456            if(!(((V78))==(VV[21]))){
457          goto T166;}          goto T166;}
458          V77= CMPcadr((V73->c.c_car));          V81= CMPcadr((V76->c.c_car));
459          V78= (check_alist(V64),sublis1(V64,CMPcddr((V73->c.c_car)),&eql));          V82= (check_alist(V65),sublis1(V65,CMPcddr((V76->c.c_car)),&eql));
460          V76= make_cons(/* INLINE-ARGS */V77,V78);          V80= make_cons(/* INLINE-ARGS */V81,V82);
461          goto T164;          goto T164;
462          goto T166;          goto T166;
463  T166:;  T166:;
464          V76= (check_alist(V64),sublis1(V64,CMPcdr((V73->c.c_car)),&eql));          V80= (check_alist(V65),sublis1(V65,CMPcdr((V76->c.c_car)),&eql));
465          goto T164;          goto T164;
466  T164:;  T164:;
467          (V72->c.c_car)= make_cons((V75),V76);}          (V75->c.c_car)= make_cons(V79,V80);}
468          if((V73=MMcdr(V73))==Cnil){          if((V76=MMcdr(V76))==Cnil){
469          V71= base[7];          V74= base[7];
470          goto T160;}          goto T160;}
471          V72=MMcdr(V72)=MMcons(Cnil,Cnil);          V75=MMcdr(V75)=MMcons(Cnil,Cnil);
472          goto T161;}          goto T161;}
473          goto T160;          goto T160;
474  T160:;  T160:;
475          V44= nconc((V44),V71);}          V45= nconc(V73,V74);}
476          goto T92;          goto T92;
477  T92:;  T92:;
478          if(!(((V56))==(VV[13]))){          if(!(((V57))==(VV[13]))){
479          goto T169;}          goto T169;}
480          {object V81;          {object V85;
481          object V82;          object V86;
482          vs_base=vs_top;          vs_base=vs_top;
483          L4(base);          L4(base);
484          vs_top=sup;          vs_top=sup;
485          V81= vs_base[0];          V85= vs_base[0];
486          V82= CMPcadr((V55));          V86= CMPcadr((V56));
487          if(((V47))==Cnil){          V87 = (V85);
488            if(((V48))==Cnil){
489          goto T178;}          goto T178;}
490          {object V85;          {object V90;
491          V85= (V47);          V90= (V48);
492          V47= Cnil;          V48= Cnil;
493          V84= (V85);}          V89= (V90);}
494          V86= append(V84,VV[23]);          V91= append(V89,VV[23]);
495          V83= make_cons(VV[20],/* INLINE-ARGS */V86);          V88= make_cons(VV[20],/* INLINE-ARGS */V91);
496          goto T176;          goto T176;
497          goto T178;          goto T178;
498  T178:;  T178:;
499          V83= (V82);          V88= (V86);
500          goto T176;          goto T176;
501  T176:;  T176:;
502          V87= list(2,(V81),V83);          V92= list(2,V87,V88);
503          V58= make_cons(/* INLINE-ARGS */V87,Cnil);          V59= make_cons(/* INLINE-ARGS */V92,Cnil);
504          V56= list(3,VV[4],(V81),list(2,VV[5],list(3,VV[6],Cnil,(V41))));}          V57= list(3,VV[4],(V85),list(2,VV[5],list(3,VV[6],Cnil,(V42))));}
505          goto T169;          goto T169;
506  T169:;  T169:;
507          {object V88;          {object V93;
508          base[8]= (V62);          base[8]= (V63);
509          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
510          Lcopy_list();          Lcopy_list();
511          vs_top=sup;          vs_top=sup;
512          V89= vs_base[0];          V94= vs_base[0];
513          V88= (*(LnkLI133))(V89,(V56));          V95 = (V57);
514          V45= make_cons((V88),(V45));}          V93= (*(LnkLI133))(V94,V95);
515          {register object V90;          V46= make_cons((V93),(V46));}
516          register object V91;          {register object V96;
517          V90= (V62);          register object V97;
518          V91= CMPcar((V90));          V96= (V63);
519            V97= CMPcar((V96));
520          goto T193;          goto T193;
521  T193:;  T193:;
522          if(!(((V90))==Cnil)){          if(!(((V96))==Cnil)){
523          goto T194;}          goto T194;}
524          goto T189;          goto T189;
525          goto T194;          goto T194;
526  T194:;  T194:;
527          {object V92;          {object V98;
528          V92= CMPcar((V42));          V98= CMPcar((V43));
529          V42= CMPcdr((V42));}          V43= CMPcdr((V43));}
530          V90= CMPcdr((V90));          V96= CMPcdr((V96));
531          V91= CMPcar((V90));          V97= CMPcar((V96));
532          goto T193;}          goto T193;}
533          goto T189;          goto T189;
534  T189:;  T189:;
535          base[7]= (V46);          base[7]= (V47);
536          base[8]= (V58);          base[8]= (V59);
537          if(((V61))==Cnil){          if(((V62))==Cnil){
538          goto T213;}          goto T213;}
539          V93= CMPcar((V62));          V99= CMPcar((V63));
540          V94= append((V61),VV[24]);          V100= append((V62),VV[24]);
541          V95= list(2,/* INLINE-ARGS */V93,make_cons(VV[20],/* INLINE-ARGS */V94));          V101= list(2,/* INLINE-ARGS */V99,make_cons(VV[20],/* INLINE-ARGS */V100));
542          base[9]= make_cons(/* INLINE-ARGS */V95,CMPcdr((V62)));          base[9]= make_cons(/* INLINE-ARGS */V101,CMPcdr((V63)));
543          goto T211;          goto T211;
544          goto T213;          goto T213;
545  T213:;  T213:;
546          base[9]= (V62);          base[9]= (V63);
547          goto T211;          goto T211;
548  T211:;  T211:;
549          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
550          Lnconc();          Lnconc();
551          vs_top=sup;          vs_top=sup;
552          V46= vs_base[0];}}          V47= vs_base[0];}}
553          goto T59;          goto T59;
554  T59:;  T59:;
555          V54= CMPcdr((V54));          V55= CMPcdr((V55));
556          V55= CMPcar((V54));          V56= CMPcar((V55));
557          goto T54;}          goto T54;}
558          goto T50;          goto T50;
559  T50:;  T50:;
560          {register object V96;          {register object V102;
561          V96= (V38);          V102= (V39);
562          goto T222;          goto T222;
563  T222:;  T222:;
564          if(!(type_of((V96))==t_cons)){          if(!(type_of((V102))==t_cons)){
565          goto T224;}          goto T224;}
566          if(!(type_of(CMPcar((V96)))==t_cons)){          if(!(type_of(CMPcar((V102)))==t_cons)){
567          goto T224;}          goto T224;}
568          if((CMPcaar((V96)))==(VV[19])){          if((CMPcaar((V102)))==(VV[19])){
569          goto T223;}          goto T223;}
570          goto T224;          goto T224;
571  T224:;  T224:;
572          if(((V96))==((V38))){          if(((V102))==((V39))){
573          goto T220;}          goto T220;}
574          base[4]= (V38);          base[4]= (V39);
575          base[5]= (V96);          base[5]= (V102);
576          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
577          Lldiff();          Lldiff();
578          vs_top=sup;          vs_top=sup;
579          V43= vs_base[0];          V44= vs_base[0];
580          V38= (V96);          V39= (V102);
581          goto T220;          goto T220;
582          goto T223;          goto T223;
583  T223:;  T223:;
584          V96= CMPcdr((V96));          V102= CMPcdr((V102));
585          goto T222;}          goto T222;}
586          goto T220;          goto T220;
587  T220:;  T220:;
588          if((V44)==Cnil){          V103 = (V47);
589            if((V45)==Cnil){
590          base[4]= Cnil;          base[4]= Cnil;
591          goto T242;}          goto T242;}
592          V98= make_cons(VV[19],(V44));          V105= make_cons(VV[19],(V45));
593          base[4]= make_cons(/* INLINE-ARGS */V98,Cnil);          base[4]= make_cons(/* INLINE-ARGS */V105,Cnil);
594          goto T242;          goto T242;
595  T242:;  T242:;
596          base[5]= (V43);          base[5]= (V44);
597          base[6]= (V47);          base[6]= (V48);
598          V99= nreverse((V45));          V106= nreverse((V46));
599          V100= append(/* INLINE-ARGS */V99,(V38));          V107 = (V39);
600          V101= make_cons(VV[2],/* INLINE-ARGS */V100);          V108= append(/* INLINE-ARGS */V106,V107);
601          base[7]= make_cons(/* INLINE-ARGS */V101,Cnil);          V109= make_cons(VV[2],/* INLINE-ARGS */V108);
602            base[7]= make_cons(/* INLINE-ARGS */V109,Cnil);
603          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
604          Lappend();          Lappend();
605          vs_top=sup;          vs_top=sup;
606          V97= vs_base[0];          V104= vs_base[0];
607          {object V102 = list(3,VV[0],(V40),listA(3,VV[1],(V46),V97));          {object V110 = list(3,VV[0],(V41),listA(3,VV[1],V103,V104));
608          VMR3(V102)}}          VMR3(V110)}}
609          base[0]=base[0];          base[0]=base[0];
610          return Cnil;          return Cnil;
611  }  }
# Line 607  static void L5() Line 615  static void L5()
615  {register object *base=vs_base;  {register object *base=vs_base;
616          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
617          vs_check;          vs_check;
618          {object V103;          {object V111;
619          object V104;          object V112;
620          object V105;          object V113;
621          check_arg(3);          check_arg(3);
622          V103=(base[0]);          V111=(base[0]);
623          V104=(base[1]);          V112=(base[1]);
624          V105=(base[2]);          V113=(base[2]);
625          vs_top=sup;          vs_top=sup;
626          goto TTL;          goto TTL;
627  TTL:;  TTL:;
628          {register object V106;          {register object V114;
629          register object V107;          register object V115;
630          register object V108;          register object V116;
631          register object V109;          register object V117;
632          register object V110;          register object V118;
633          V106= (V103);          V114= (V111);
634          V107= Cnil;          V115= Cnil;
635          V108= Cnil;          V116= Cnil;
636          V109= Cnil;          V117= Cnil;
637          V110= Cnil;          V118= Cnil;
638          goto T247;          goto T247;
639  T247:;  T247:;
640          base[3]= (V106);          base[3]= (V114);
641          base[4]= (V105);          base[4]= (V113);
642          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
643          Lmacroexpand_1();          Lmacroexpand_1();
644          if(vs_base<vs_top){          if(vs_base<vs_top){
645          V106= vs_base[0];          V114= vs_base[0];
646          vs_base++;          vs_base++;
647          }else{          }else{
648          V106= Cnil;}          V114= Cnil;}
649          if(vs_base<vs_top){          if(vs_base<vs_top){
650          V107= vs_base[0];          V115= vs_base[0];
651          }else{          }else{
652          V107= Cnil;}          V115= Cnil;}
653          vs_top=sup;          vs_top=sup;
654          {register object V111;          {register object V119;
655          V111= (((type_of((V106))==t_cons?Ct:Cnil))==Cnil?Ct:Cnil);          V119= (((type_of((V114))==t_cons?Ct:Cnil))==Cnil?Ct:Cnil);
656          if(((V111))==Cnil){          if(((V119))==Cnil){
657          goto T256;}          goto T256;}
658          goto T253;          goto T253;
659          goto T256;          goto T256;
660  T256:;  T256:;
661          V108= CMPcar((V106));          V116= CMPcar((V114));
662          if(!(type_of((V108))==t_symbol)){          V120 = (V116);
663            if(!(type_of(V120)==t_symbol)){
664          goto T259;}          goto T259;}
665          {object V112= (V108);          {object V121= (V116);
666          if((V112!= VV[18])          if((V121!= VV[18])
667          && (V112!= VV[1]))goto T262;          && (V121!= VV[1]))goto T262;
668          V109= CMPcadr((V106));          V117= CMPcadr((V114));
669          V110= CMPcddr((V106));          V118= CMPcddr((V114));
670          goto T248;          goto T248;
671          goto T262;          goto T262;
672  T262:;  T262:;
673          goto T253;}          goto T253;}
674          goto T259;          goto T259;
675  T259:;  T259:;
676          if(!(type_of((V108))==t_cons)){          if(!(type_of((V116))==t_cons)){
677          goto T253;}          goto T253;}
678          if(!((CMPcar((V108)))==(VV[6]))){          if(!((CMPcar((V116)))==(VV[6]))){
679          goto T253;}          goto T253;}
680          base[3]= VV[134];          base[3]= VV[134];
681          V109= CMPcadr((V108));          V117= CMPcadr((V116));
682          base[4]= (V109);          base[4]= (V117);
683          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
684          (void) (*Lnk135)();          (void) (*Lnk135)();
685          vs_top=sup;          vs_top=sup;
686          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
687          goto T253;}          goto T253;}
688          if(!(((long)length(CMPcadr((V106))))==((long)length((V109))))){          if(!(((long)length(CMPcadr((V114))))==((long)length((V117))))){
689          goto T253;}          goto T253;}
690          if((CMPcddr((V106)))!=Cnil){          if((CMPcddr((V114)))!=Cnil){
691          goto T253;}          goto T253;}
692          V110= CMPcddr((V108));          V118= CMPcddr((V116));
693          {object V113;          {object V122;
694          object V114= (V109);          object V123= (V117);
695          object V115= CMPcadr((V106));          object V124= CMPcadr((V114));
696          if(V114==Cnil||V115==Cnil){          if(V123==Cnil||V124==Cnil){
697          V109= Cnil;          V117= Cnil;
698          goto T283;}          goto T283;}
699          base[3]=V113=MMcons(Cnil,Cnil);          base[3]=V122=MMcons(Cnil,Cnil);
700          goto T284;          goto T284;
701  T284:;  T284:;
702          (V113->c.c_car)= list(2,(V114->c.c_car),(V115->c.c_car));          (V122->c.c_car)= list(2,(V123->c.c_car),(V124->c.c_car));
703          if((V114=MMcdr(V114))==Cnil||(V115=MMcdr(V115))==Cnil){          if((V123=MMcdr(V123))==Cnil||(V124=MMcdr(V124))==Cnil){
704          V109= base[3];          V117= base[3];
705          goto T283;}          goto T283;}
706          V113=MMcdr(V113)=MMcons(Cnil,Cnil);          V122=MMcdr(V122)=MMcons(Cnil,Cnil);
707          goto T284;}          goto T284;}
708          goto T283;          goto T283;
709  T283:;  T283:;
710          V108= VV[18];          V116= VV[18];
711          goto T248;}          goto T248;}
712          goto T253;          goto T253;
713  T253:;  T253:;
714          if(((V107))==Cnil){          if(((V115))==Cnil){
715          goto T289;}          goto T289;}
716          goto T247;          goto T247;
717          goto T289;          goto T289;
718  T289:;  T289:;
719          base[3]= (V106);          base[3]= (V114);
720          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
721          return;          return;
722          goto T248;          goto T248;
723  T248:;  T248:;
724          {object V116;          {object V125;
725          object V117;          object V126;
726          object V118;          object V127;
727          V116= (*(LnkLI136))((V109));          V125= (*(LnkLI136))((V117));
728          V117= Cnil;          V126= Cnil;
729          V118= Cnil;          V127= Cnil;
730          {object V119;          {object V128;
731          object V120;          object V129;
732          object V121;          object V130;
733          base[3]= (V110);          base[3]= (V118);
734          base[4]= (V116);          base[4]= (V125);
735          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
736          (void) (*Lnk131)();          (void) (*Lnk131)();
737          if(vs_base>=vs_top){vs_top=sup;goto T296;}          if(vs_base>=vs_top){vs_top=sup;goto T296;}
738          V119= vs_base[0];          V128= vs_base[0];
739          vs_base++;          vs_base++;
740          if(vs_base>=vs_top){vs_top=sup;goto T297;}          if(vs_base>=vs_top){vs_top=sup;goto T297;}
741          V120= vs_base[0];          V129= vs_base[0];
742          vs_base++;          vs_base++;
743          if(vs_base>=vs_top){vs_top=sup;goto T298;}          if(vs_base>=vs_top){vs_top=sup;goto T298;}
744          V121= vs_base[0];          V130= vs_base[0];
745          vs_top=sup;          vs_top=sup;
746          goto T299;          goto T299;
747          goto T296;          goto T296;
748  T296:;  T296:;
749          V119= Cnil;          V128= Cnil;
750          goto T297;          goto T297;
751  T297:;  T297:;
752          V120= Cnil;          V129= Cnil;
753          goto T298;          goto T298;
754  T298:;  T298:;
755          V121= Cnil;          V130= Cnil;
756          goto T299;          goto T299;
757  T299:;  T299:;
758          V118= (*(LnkLI137))((V116),(V119));          V127= (*(LnkLI137))((V125),(V128));
759          if(((V118))==Cnil){          if(((V127))==Cnil){
760          goto T301;}          goto T301;}
761          base[3]= (VV[138]->s.s_gfdef);          base[3]= (VV[138]->s.s_gfdef);
762          base[4]= (V118);          base[4]= (V127);
763          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
764          (void) (*Lnk135)();          (void) (*Lnk135)();
765          vs_top=sup;          vs_top=sup;
766          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
767          goto T307;}          goto T307;}
768          V122= VV[16];          V131= VV[16];
769          goto T305;          goto T305;
770          goto T307;          goto T307;
771  T307:;  T307:;
772          V122= VV[14];          V131= VV[14];
773          goto T305;          goto T305;
774  T305:;  T305:;
775          (void)((VFUN_NARGS=5,(*(LnkLI129))(V122,VV[26],(V104),(V103),(V118))));          V132 = (V112);
776            V133 = (V111);
777            V134 = (V127);
778            (void)((VFUN_NARGS=5,(*(LnkLI129))(V131,VV[26],V132,V133,V134)));
779          base[3]= VV[13];          base[3]= VV[13];
780          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
781          return;          return;
782          goto T301;          goto T301;
783  T301:;  T301:;
784          if(type_of((V121))==t_cons){          if(type_of((V130))==t_cons){
785          goto T313;}          goto T313;}
786          base[3]= Cnil;          base[3]= Cnil;
787          goto T311;          goto T311;
788          goto T313;          goto T313;
789  T313:;  T313:;
790          if((CMPcdr((V121)))!=Cnil){          if((CMPcdr((V130)))!=Cnil){
791          goto T316;}          goto T316;}
792          base[3]= CMPcar((V121));          base[3]= CMPcar((V130));
793          goto T311;          goto T311;
794          goto T316;          goto T316;
795  T316:;  T316:;
796          base[4]= (V121);          base[4]= (V130);
797          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
798          Lbutlast();          Lbutlast();
799          vs_top=sup;          vs_top=sup;
800          V117= vs_base[0];          V126= vs_base[0];
801          base[4]= (V121);          base[4]= (V130);
802          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
803          Llast();          Llast();
804          vs_top=sup;          vs_top=sup;
805          V123= vs_base[0];          V135= vs_base[0];
806          base[3]= CMPcar(V123);          base[3]= CMPcar(V135);
807          goto T311;          goto T311;
808  T311:;  T311:;
809          base[4]= (V108);          base[4]= (V116);
810          base[5]= (V109);          base[5]= (V117);
811          base[6]= (V119);          base[6]= (V128);
812          base[7]= (V120);          base[7]= (V129);
813          base[8]= (V117);          base[8]= (V126);
814          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
815          return;}}          return;}}
816          base[3]= Cnil;          base[3]= Cnil;
# Line 808  T311:; Line 820  T311:;
820  }  }
821  /*      local entry for function VARIABLES-FROM-LET     */  /*      local entry for function VARIABLES-FROM-LET     */
822    
823  static object LI6(V125)  static object LI6(V137)
824    
825  object V125;  object V137;
826  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
827          goto TTL;          goto TTL;
828  TTL:;  TTL:;
829          {object V126;          {object V138;
830          object V127= (V125);          object V139= (V137);
831          if(V127==Cnil){          if(V139==Cnil){
832          {object V128 = Cnil;          {object V140 = Cnil;
833          VMR5(V128)}}          VMR5(V140)}}
834          base[0]=V126=MMcons(Cnil,Cnil);          base[0]=V138=MMcons(Cnil,Cnil);
835          goto T328;          goto T328;
836  T328:;  T328:;
837          if(!(type_of((V127->c.c_car))==t_cons)){          if(!(type_of((V139->c.c_car))==t_cons)){
838          goto T331;}          goto T331;}
839          (V126->c.c_car)= CMPcar((V127->c.c_car));          (V138->c.c_car)= CMPcar((V139->c.c_car));
840          goto T329;          goto T329;
841          goto T331;          goto T331;
842  T331:;  T331:;
843          (V126->c.c_car)= (V127->c.c_car);          (V138->c.c_car)= (V139->c.c_car);
844          goto T329;          goto T329;
845  T329:;  T329:;
846          if((V127=MMcdr(V127))==Cnil){          if((V139=MMcdr(V139))==Cnil){
847          {object V130 = base[0];          {object V142 = base[0];
848          VMR5(V130)}}          VMR5(V142)}}
849          V126=MMcdr(V126)=MMcons(Cnil,Cnil);          V138=MMcdr(V138)=MMcons(Cnil,Cnil);
850          goto T328;}          goto T328;}
851          base[0]=base[0];          base[0]=base[0];
852          return Cnil;          return Cnil;
# Line 845  static void L7() Line 857  static void L7()
857  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
858          register object *VOL sup=base+VM6; VC6          register object *VOL sup=base+VM6; VC6
859          vs_check;          vs_check;
860          {VOL object V131;          {VOL object V143;
861          check_arg(7);          check_arg(7);
862          V131=(base[0]);          V143=(base[0]);
863          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
864          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
865          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
# Line 862  static void L7() Line 874  static void L7()
874          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
875          return;}          return;}
876          else{          else{
877          base[8]= (V131);          base[8]= (V143);
878          base[9]= (base[1]->c.c_car);          base[9]= (base[1]->c.c_car);
879          base[10]=          base[10]=
880          make_cclosure_new(LC38,Cnil,base[7],Cdata);          make_cclosure_new(LC38,Cnil,base[7],Cdata);
# Line 879  static void L8() Line 891  static void L8()
891  {register object *base=vs_base;  {register object *base=vs_base;
892          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
893          vs_check;          vs_check;
894          {register object V132;          {register object V144;
895          object V133;          object V145;
896          check_arg(2);          check_arg(2);
897          V132=(base[0]);          V144=(base[0]);
898          V133=(base[1]);          V145=(base[1]);
899          vs_top=sup;          vs_top=sup;
900          goto TTL;          goto TTL;
901  TTL:;  TTL:;
902          {register object V134;          {register object V146;
903          register object V135;          register object V147;
904          register object V136;          register object V148;
905          V134= Cnil;          V146= Cnil;
906          V135= Cnil;          V147= Cnil;
907          V136= Cnil;          V148= Cnil;
908          goto T337;          goto T337;
909  T337:;  T337:;
910          if(((V132))==Cnil){          if(((V144))==Cnil){
911          goto T340;}          goto T340;}
912          V136= CMPcar((V132));          V148= CMPcar((V144));
913          if(!(type_of((V136))==t_cons)){          V149 = (V148);
914            if(!(type_of(V149)==t_cons)){
915          goto T340;}          goto T340;}
916          if((CMPcar((V136)))==(VV[19])){          if((CMPcar((V148)))==(VV[19])){
917          goto T339;}          goto T339;}
918          goto T340;          goto T340;
919  T340:;  T340:;
920          base[2]= (V134);          base[2]= (V146);
921          base[3]= (V135);          base[3]= (V147);
922          base[4]= (V132);          base[4]= (V144);
923          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
924          return;          return;
925          goto T339;          goto T339;
926  T339:;  T339:;
927          {          {
928          object V137= CMPcdr((V136));          object V150= CMPcdr((V148));
929          if(V137==Cnil){          if(V150==Cnil){
930          goto T350;}          goto T350;}
931          goto T351;          goto T351;
932  T351:;  T351:;
933          {register object V138;          {register object V151;
934          V138= (V137->c.c_car);          V151= (V150->c.c_car);
935          {object V139= CMPcar((V138));          {object V152= CMPcar((V151));
936          if((V139!= VV[140])          if((V152!= VV[140])
937          && (V139!= VV[141])          && (V152!= VV[141])
938          && (V139!= VV[142]))goto T353;          && (V152!= VV[142]))goto T353;
939          V135= make_cons(V138,(V135));          V147= make_cons(V151,(V147));
940          goto T352;          goto T352;
941          goto T353;          goto T353;
942  T353:;  T353:;
943          {object V141;          {object V154;
944          register object V142;          register object V155;
945          object V143;          object V156;
946          if(!((CMPcar((V138)))==(VV[21]))){          if(!((CMPcar((V151)))==(VV[21]))){
947          goto T357;}          goto T357;}
948          V141= CMPcddr((V138));          V154= CMPcddr((V151));
949          goto T355;          goto T355;
950          goto T357;          goto T357;
951  T357:;  T357:;
952          V141= CMPcdr((V138));          V154= CMPcdr((V151));
953          goto T355;          goto T355;
954  T355:;  T355:;
955          base[4]= (V133);          base[4]= (V145);
956          base[5]= (V141);          base[5]= (V154);
957          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
958          (void) (*Lnk143)();          (void) (*Lnk143)();
959          vs_top=sup;          vs_top=sup;
960          V142= vs_base[0];          V155= vs_base[0];
961          V143= Cnil;          V156= Cnil;
962          if(((V142))!=Cnil){          if(((V155))!=Cnil){
963          goto T364;}          goto T364;}
964          V135= make_cons(V138,(V135));          V147= make_cons(V151,(V147));
965          goto T352;          goto T352;
966          goto T364;          goto T364;
967  T364:;  T364:;
968          base[4]= (V141);          base[4]= (V154);
969          base[5]= (V142);          base[5]= (V155);
970          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
971          (void) (*Lnk144)();          (void) (*Lnk144)();
972          vs_top=sup;          vs_top=sup;
973          V143= vs_base[0];          V156= vs_base[0];
974          if(((V143))!=Cnil){          if(((V156))!=Cnil){
975          goto T368;}          goto T368;}
976          V134= make_cons(V138,(V134));          V146= make_cons(V151,(V146));
977          goto T352;          goto T352;
978          goto T368;          goto T368;
979  T368:;  T368:;
980          {object V146;          {object V159;
981          if((CMPcar((V138)))==(VV[21])){          if((CMPcar((V151)))==(VV[21])){
982          goto T376;}          goto T376;}
983          V147= Cnil;          V160= Cnil;
984          goto T375;          goto T375;
985          goto T376;          goto T376;
986  T376:;  T376:;
987          V147= make_cons(CMPcadr((V138)),Cnil);          V160= make_cons(CMPcadr((V151)),Cnil);
988          goto T375;          goto T375;
989  T375:;  T375:;
990          V146= make_cons(VV[21],V147);          V159= make_cons(VV[21],V160);
991          {object V148;          {object V161;
992          V148= append((V146),(V143));          V161= append((V159),(V156));
993          V135= make_cons((V148),(V135));}          V147= make_cons((V161),(V147));}
994          {object V149;          {object V162;
995          V149= append((V146),(V142));          V162= append((V159),(V155));
996          V134= make_cons((V149),(V134));}}}}}          V146= make_cons((V162),(V146));}}}}}
997          goto T352;          goto T352;
998  T352:;  T352:;
999          if((V137=MMcdr(V137))==Cnil){          if((V150=MMcdr(V150))==Cnil){
1000          (void)(CMPcdr((V136)));          (void)(CMPcdr((V148)));
1001          goto T350;}          goto T350;}
1002          goto T351;}          goto T351;}
1003          goto T350;          goto T350;
1004  T350:;  T350:;
1005          {object V150;          {object V163;
1006          V150= CMPcar((V132));          V163= CMPcar((V144));
1007          V132= CMPcdr((V132));}          V144= CMPcdr((V144));}
1008          goto T337;}          goto T337;}
1009          }          }
1010  }  }
1011  /*      local entry for function EXTRACT-SPECIAL-BINDINGS       */  /*      local entry for function EXTRACT-SPECIAL-BINDINGS       */
1012    
1013  static object LI9(V153,V154)  static object LI9(V166,V167)
1014    
1015  register object V153;object V154;  register object V166;object V167;
1016  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
1017          goto TTL;          goto TTL;
1018  TTL:;  TTL:;
1019          {register object V155;          {register object V168;
1020          base[0]= (VV[138]->s.s_gfdef);          base[0]= (VV[138]->s.s_gfdef);
1021          base[1]= (V153);          base[1]= (V166);
1022          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1023          (void) (*Lnk145)();          (void) (*Lnk145)();
1024          vs_top=sup;          vs_top=sup;
1025          V155= vs_base[0];          V168= vs_base[0];
1026          {register object V156;          {register object V169;
1027          register object V157;          register object V170;
1028          V156= (V154);          V169= (V167);
1029          V157= CMPcar((V156));          V170= CMPcar((V169));
1030          goto T394;          goto T394;
1031  T394:;  T394:;
1032          if(!(((V156))==Cnil)){          if(!(((V169))==Cnil)){
1033          goto T395;}          goto T395;}
1034          goto T390;          goto T390;
1035          goto T395;          goto T395;
1036  T395:;  T395:;
1037          if(!((CMPcar((V157)))==(VV[30]))){          if(!((CMPcar((V170)))==(VV[30]))){
1038          goto T399;}          goto T399;}
1039          base[1]= (V155);          base[1]= (V168);
1040          base[3]= (V153);          base[3]= (V166);
1041          base[4]= CMPcdr((V157));          base[4]= CMPcdr((V170));
1042          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1043          (void) (*Lnk143)();          (void) (*Lnk143)();
1044          vs_top=sup;          vs_top=sup;
# Line 1033  T395:; Line 1046  T395:;
1046          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1047          (void) (*Lnk146)();          (void) (*Lnk146)();
1048          vs_top=sup;          vs_top=sup;
1049          V155= vs_base[0];          V168= vs_base[0];
1050          goto T399;          goto T399;
1051  T399:;  T399:;
1052          V156= CMPcdr((V156));          V169= CMPcdr((V169));
1053          V157= CMPcar((V156));          V170= CMPcar((V169));
1054          goto T394;}          goto T394;}
1055          goto T390;          goto T390;
1056  T390:;  T390:;
1057          {object V158 = (V155);          {object V171 = (V168);
1058          VMR8(V158)}}          VMR8(V171)}}
1059          base[0]=base[0];          base[0]=base[0];
1060          return Cnil;          return Cnil;
1061  }  }
1062  /*      local entry for function FUNCTION-LAMBDA-P      */  /*      local entry for function FUNCTION-LAMBDA-P      */
1063    
1064  static object LI10(object V159,object first,...)  static object LI10(object V172,object first,...)
1065  {        {      
1066          va_list ap;          va_list ap;
1067          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
1068          {register object V160;          {register object V173;
1069          object V161;          object V174;
1070          va_start(ap,first);          va_start(ap,first);
1071          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1072          V160= V159;          V173= V172;
1073          narg = narg - 1;          narg = narg - 1;
1074          if (narg <= 0) goto T412;          if (narg <= 0) goto T412;
1075          else {          else {
1076          V161= first;}          V174= first;}
1077          --narg; goto T413;          --narg; goto T413;
1078          goto T412;          goto T412;
1079  T412:;  T412:;
1080          V161= Cnil;          V174= Cnil;
1081          goto T413;          goto T413;
1082  T413:;  T413:;
1083          {object V162;          {object V175;
1084          object V163;          object V176;
1085          V162= Cnil;          V175= Cnil;
1086          V163= Cnil;          V176= Cnil;
1087          if(type_of((V160))==t_cons){          if(type_of((V173))==t_cons){
1088          goto T415;}          goto T415;}
1089          {object V164 = Cnil;          {object V177 = Cnil;
1090          VMR9(V164)}          VMR9(V177)}
1091          goto T415;          goto T415;
1092  T415:;  T415:;
1093          if((CMPcar((V160)))==(VV[5])){          if((CMPcar((V173)))==(VV[5])){
1094          goto T417;}          goto T417;}
1095          {object V165 = Cnil;          {object V178 = Cnil;
1096          VMR9(V165)}          VMR9(V178)}
1097          goto T417;          goto T417;
1098  T417:;  T417:;
1099          V160= CMPcdr((V160));          V173= CMPcdr((V173));
1100          if(type_of((V160))==t_cons){          V179 = (V173);
1101            if(type_of(V179)==t_cons){
1102          goto T419;}          goto T419;}
1103          {object V166 = Cnil;          {object V180 = Cnil;
1104          VMR9(V166)}          VMR9(V180)}
1105          goto T419;          goto T419;
1106  T419:;  T419:;
1107          if((CMPcdr((V160)))==Cnil){          if((CMPcdr((V173)))==Cnil){
1108          goto T422;}          goto T422;}
1109          {object V167 = Cnil;          {object V181 = Cnil;
1110          VMR9(V167)}          VMR9(V181)}
1111          goto T422;          goto T422;
1112  T422:;  T422:;
1113          V160= CMPcar((V160));          V173= CMPcar((V173));
1114          if(type_of((V160))==t_cons){          V182 = (V173);
1115            if(type_of(V182)==t_cons){
1116          goto T424;}          goto T424;}
1117          {object V168 = Cnil;          {object V183 = Cnil;
1118          VMR9(V168)}          VMR9(V183)}
1119          goto T424;          goto T424;
1120  T424:;  T424:;
1121          if((CMPcar((V160)))==(VV[6])){          if((CMPcar((V173)))==(VV[6])){
1122          goto T427;}          goto T427;}
1123          {object V169 = Cnil;          {object V184 = Cnil;
1124          VMR9(V169)}          VMR9(V184)}
1125          goto T427;          goto T427;
1126  T427:;  T427:;
1127          V163= CMPcdr((V160));          V176= CMPcdr((V173));
1128          if(type_of((V163))==t_cons){          V185 = (V176);
1129            if(type_of(V185)==t_cons){
1130          goto T429;}          goto T429;}
1131          {object V170 = Cnil;          {object V186 = Cnil;
1132          VMR9(V170)}          VMR9(V186)}
1133          goto T429;          goto T429;
1134  T429:;  T429:;
1135          V162= CMPcar((V163));          V175= CMPcar((V176));
1136          if(type_of((V162))==t_cons||((V162))==Cnil){          V187 = (V175);
1137            if(type_of(V187)==t_cons||(V187)==Cnil){
1138          goto T432;}          goto T432;}
1139          {object V171 = Cnil;          {object V188 = Cnil;
1140          VMR9(V171)}          VMR9(V188)}
1141          goto T432;          goto T432;
1142  T432:;  T432:;
1143          if(!(((V161))==Cnil)){          if(!(((V174))==Cnil)){
1144          goto T437;}          goto T437;}
1145          goto T435;          goto T435;
1146          goto T437;          goto T437;
1147  T437:;  T437:;
1148          V172 = CMPmake_fixnum((long)length((V162)));          V189 = CMPmake_fixnum((long)length((V175)));
1149          if(eql(V172,(V161))){          if(eql(V189,(V174))){
1150          goto T435;}          goto T435;}
1151          {object V173 = Cnil;          {object V190 = Cnil;
1152          VMR9(V173)}          VMR9(V190)}
1153          goto T435;          goto T435;
1154  T435:;  T435:;
1155          {object V174 = (V160);          {object V191 = (V173);
1156          VMR9(V174)}}          VMR9(V191)}}
1157          va_end(ap);          va_end(ap);
1158          return Cnil;}          return Cnil;}
1159          }          }
# Line 1146  static void L11() Line 1163  static void L11()
1163  {register object *base=vs_base;  {register object *base=vs_base;
1164          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
1165          vs_check;          vs_check;
1166          {object V175;          {object V192;
1167          object V176;          object V193;
1168          object V177;          object V194;
1169          object V178;          object V195;
1170          object V179;          object V196;
1171          if(vs_top-vs_base<4) too_few_arguments();          if(vs_top-vs_base<4) too_few_arguments();
1172          if(vs_top-vs_base>5) too_many_arguments();          if(vs_top-vs_base>5) too_many_arguments();
1173          V175=(base[0]);          V192=(base[0]);
1174          V176=(base[1]);          V193=(base[1]);
1175          V177=(base[2]);          V194=(base[2]);
1176          V178=(base[3]);          V195=(base[3]);
1177          vs_base=vs_base+4;          vs_base=vs_base+4;
1178          if(vs_base>=vs_top){vs_top=sup;goto T439;}          if(vs_base>=vs_top){vs_top=sup;goto T439;}
1179          V179=(base[4]);          V196=(base[4]);
1180          vs_top=sup;          vs_top=sup;
1181          goto T440;          goto T440;
1182          goto T439;          goto T439;
1183  T439:;  T439:;
1184          V179= Cnil;          V196= Cnil;
1185          goto T440;          goto T440;
1186  T440:;  T440:;
1187          {register object V180;          {register object V197;
1188          V180= Cnil;          V197= Cnil;
1189          {object V181;          {object V198;
1190          object V182= (V175);          object V199= (V192);
1191          if(V182==Cnil){          if(V199==Cnil){
1192          base[5]= Cnil;          base[5]= Cnil;
1193          goto T442;}          goto T442;}
1194          base[6]=V181=MMcons(Cnil,Cnil);          base[6]=V198=MMcons(Cnil,Cnil);
1195          goto T443;          goto T443;
1196  T443:;  T443:;
1197          {register object V183;          {register object V200;
1198          V183= (V182->c.c_car);          V200= (V199->c.c_car);
1199          {object V184;          {object V201;
1200          object V185;          object V202;
1201          if(type_of((V183))==t_cons){          if(type_of((V200))==t_cons){
1202          goto T447;}          goto T447;}
1203          V184= Cnil;          V201= Cnil;
1204          goto T445;          goto T445;
1205          goto T447;          goto T447;
1206  T447:;  T447:;
1207          if(((V176))==(VV[18])){          if(((V193))==(VV[18])){
1208          goto T449;}          goto T449;}
1209          if(((V180))!=Cnil){          if(((V197))!=Cnil){
1210          goto T450;}          goto T450;}
1211          goto T449;          goto T449;
1212  T449:;  T449:;
1213          V184= CMPcadr((V183));          V201= CMPcadr((V200));
1214          goto T445;          goto T445;
1215          goto T450;          goto T450;
1216  T450:;  T450:;
1217          base[7]= CMPcadr((V183));          base[7]= CMPcadr((V200));
1218          base[8]= (V180);          base[8]= (V197);
1219          base[9]= (V177);          base[9]= (V194);
1220          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1221          (void) (*Lnk147)();          (void) (*Lnk147)();
1222          vs_top=sup;          vs_top=sup;
1223          V184= vs_base[0];          V201= vs_base[0];
1224          goto T445;          goto T445;
1225  T445:;  T445:;
1226          if(((V179))==Cnil){          if(((V196))==Cnil){
1227          goto T459;}          goto T459;}
1228          V185= (          V202= (
1229          (type_of((V179)) == t_sfun ?(*(((V179))->sfn.sfn_self)):          (type_of((V196)) == t_sfun ?(*(((V196))->sfn.sfn_self)):
1230          (fcall.argd=0,type_of((V179))==t_vfun) ?          (fcall.argd=0,type_of((V196))==t_vfun) ?
1231          (*(((V179))->sfn.sfn_self)):          (*(((V196))->sfn.sfn_self)):
1232          (fcall.fun=((V179)),fcalln))());          (fcall.fun=((V196)),fcalln))());
1233          goto T457;          goto T457;
1234          goto T459;          goto T459;
1235  T459:;  T459:;
1236          vs_base=vs_top;          vs_base=vs_top;
1237          Lgensym();          Lgensym();
1238          vs_top=sup;          vs_top=sup;
1239          V185= vs_base[0];          V202= vs_base[0];
1240          goto T457;          goto T457;
1241  T457:;  T457:;
1242          {object V186;          {object V203;
1243          if(!(type_of((V183))==t_cons)){          if(!(type_of((V200))==t_cons)){
1244          goto T465;}          goto T465;}
1245          V187= CMPcar((V183));          V204= CMPcar((V200));
1246          goto T463;          goto T463;
1247          goto T465;          goto T465;
1248  T465:;  T465:;
1249          V187= (V183);          V204= (V200);
1250          goto T463;          goto T463;
1251  T463:;  T463:;
1252          V186= make_cons(V187,(V185));          V205 = (V202);
1253          V180= make_cons((V186),(V180));}          V203= make_cons(V204,V205);
1254          if(((V178))==Cnil){          V197= make_cons((V203),(V197));}
1255            if(((V195))==Cnil){
1256          goto T468;}          goto T468;}
1257          V188= make_cons((V184),Cnil);          V206= make_cons((V201),Cnil);
1258          V189= append((V178),/* INLINE-ARGS */V188);          V207= append((V195),/* INLINE-ARGS */V206);
1259          V184= make_cons(VV[20],/* INLINE-ARGS */V189);          V201= make_cons(VV[20],/* INLINE-ARGS */V207);
1260          V178= Cnil;          V195= Cnil;
1261          goto T468;          goto T468;
1262  T468:;  T468:;
1263          (V181->c.c_car)= list(2,(V185),(V184));}}          (V198->c.c_car)= list(2,(V202),(V201));}}
1264          if((V182=MMcdr(V182))==Cnil){          if((V199=MMcdr(V199))==Cnil){
1265          base[5]= base[6];          base[5]= base[6];
1266          goto T442;}          goto T442;}
1267          V181=MMcdr(V181)=MMcons(Cnil,Cnil);          V198=MMcdr(V198)=MMcons(Cnil,Cnil);
1268          goto T443;}          goto T443;}
1269          goto T442;          goto T442;
1270  T442:;  T442:;
1271          base[6]= (V180);          base[6]= (V197);
1272          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1273          return;}          return;}
1274          }          }
# Line 1261  static void L12() Line 1279  static void L12()
1279  {register object *base=vs_base;  {register object *base=vs_base;
1280          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
1281          vs_check;          vs_check;
1282          {object V190;          {object V208;
1283          check_arg(3);          check_arg(3);
1284          V190=(base[0]);          V208=(base[0]);
1285          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
1286          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
1287          vs_top=sup;          vs_top=sup;
1288          base[3]= (V190);          base[3]= (V208);
1289          base[4]= (base[2]->c.c_car);          base[4]= (base[2]->c.c_car);
1290          base[5]=          base[5]=
1291          make_cclosure_new(LC39,Cnil,base[2],Cdata);          make_cclosure_new(LC39,Cnil,base[2],Cdata);
# Line 1278  static void L12() Line 1296  static void L12()
1296  }  }
1297  /*      local entry for function MV-SETQ        */  /*      local entry for function MV-SETQ        */
1298    
1299  static object LI13(V193,V194)  static object LI13(V211,V212)
1300    
1301  register object V193;register object V194;  register object V211;register object V212;
1302  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1303          goto TTL;          goto TTL;
1304  TTL:;  TTL:;
1305          if(((V193))!=Cnil){          if(((V211))!=Cnil){
1306          goto T479;}          goto T479;}
1307          {object V195 = (V194);          {object V213 = (V212);
1308          VMR12(V195)}          VMR12(V213)}
1309          goto T479;          goto T479;
1310  T479:;  T479:;
1311          if(type_of((V193))==t_cons){          if(type_of((V211))==t_cons){
1312          goto T482;}          goto T482;}
1313          {object V196 = list(3,VV[3],(V193),(V194));          {object V214 = list(3,VV[3],(V211),(V212));
1314          VMR12(V196)}          VMR12(V214)}
1315          goto T482;          goto T482;
1316  T482:;  T482:;
1317          if(!(type_of((V194))==t_cons||((V194))==Cnil)){          if(!(type_of((V212))==t_cons||((V212))==Cnil)){
1318          goto T485;}          goto T485;}
1319          if(!((CMPcar((V194)))==(VV[31]))){          if(!((CMPcar((V212)))==(VV[31]))){
1320          goto T485;}          goto T485;}
1321          {object V197;          {object V215;
1322          V197= CMPcar((V194));          V215= CMPcar((V212));
1323          V194= CMPcdr((V194));}          V212= CMPcdr((V212));}
1324          {object V199;          {object V217;
1325          object V200= (V193);          object V218= (V211);
1326          if(V200==Cnil){          if(V218==Cnil){
1327          V198= Cnil;          V216= Cnil;
1328          goto T493;}          goto T493;}
1329          base[0]=V199=MMcons(Cnil,Cnil);          base[0]=V217=MMcons(Cnil,Cnil);
1330          goto T494;          goto T494;
1331  T494:;  T494:;
1332          V202= CMPcar(V200);          V220= CMPcar(V218);
1333          if((CMPcdr(V200))!=Cnil){          if((CMPcdr(V218))!=Cnil){
1334          goto T497;}          goto T497;}
1335          if((CMPcdr((V194)))!=Cnil){          if((CMPcdr((V212)))!=Cnil){
1336          goto T498;}          goto T498;}
1337          goto T497;          goto T497;
1338  T497:;  T497:;
1339          {object V204;          {object V222;
1340          V204= CMPcar((V194));          V222= CMPcar((V212));
1341          V194= CMPcdr((V194));          V212= CMPcdr((V212));
1342          V203= (V204);          V221= (V222);
1343          goto T496;}          goto T496;}
1344          goto T498;          goto T498;
1345  T498:;  T498:;
1346          V203= make_cons(VV[33],(V194));          V221= make_cons(VV[33],(V212));
1347          goto T496;          goto T496;
1348  T496:;  T496:;
1349          (V199->c.c_cdr)= list(2,/* INLINE-ARGS */V202,V203);          (V217->c.c_cdr)= list(2,/* INLINE-ARGS */V220,V221);
1350          while(MMcdr(V199)!=Cnil)V199=MMcdr(V199);          while(MMcdr(V217)!=Cnil)V217=MMcdr(V217);
1351          if((V200=MMcdr(V200))==Cnil){          if((V218=MMcdr(V218))==Cnil){
1352          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
1353          V198= base[0];          V216= base[0];
1354          goto T493;}          goto T493;}
1355          goto T494;}          goto T494;}
1356          goto T493;          goto T493;
1357  T493:;  T493:;
1358          {object V205 = make_cons(VV[32],V198);          {object V223 = make_cons(VV[32],V216);
1359          VMR12(V205)}          VMR12(V223)}
1360          goto T485;          goto T485;
1361  T485:;  T485:;
1362          if((CMPcdr((V193)))!=Cnil){          if((CMPcdr((V211)))!=Cnil){
1363          goto T506;}          goto T506;}
1364          {object V206 = list(3,VV[32],CMPcar((V193)),(V194));          {object V224 = list(3,VV[32],CMPcar((V211)),(V212));
1365          VMR12(V206)}          VMR12(V224)}
1366          goto T506;          goto T506;
1367  T506:;  T506:;
1368          {object V207 = list(3,VV[3],(V193),(V194));          {object V225 = list(3,VV[3],(V211),(V212));
1369          VMR12(V207)}          VMR12(V225)}
1370          base[0]=base[0];          base[0]=base[0];
1371          return Cnil;          return Cnil;
1372  }  }
1373  /*      local entry for function VARIABLE-SAME-P        */  /*      local entry for function VARIABLE-SAME-P        */
1374    
1375  static object LI14(V211,V212,V213)  static object LI14(V229,V230,V231)
1376    
1377  object V211;object V212;object V213;  object V229;object V230;object V231;
1378  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1379          goto TTL;          goto TTL;
1380  TTL:;  TTL:;
1381          V214= (*(LnkLI148))((V211),(V212));          V232= (*(LnkLI148))((V229),(V230));
1382          V215= (*(LnkLI148))((V211),(V213));          V233= (*(LnkLI148))((V229),(V231));
1383          {object V216 = ((/* INLINE-ARGS */V214)==(/* INLINE-ARGS */V215)?Ct:Cnil);          {object V234 = ((/* INLINE-ARGS */V232)==(/* INLINE-ARGS */V233)?Ct:Cnil);
1384          VMR13(V216)}          VMR13(V234)}
1385          return Cnil;          return Cnil;
1386  }  }
1387  /*      local entry for function MAYBE-WARN     */  /*      local entry for function MAYBE-WARN     */
1388    
1389  static object LI15(object V217,object first,...)  static object LI15(object V235,object first,...)
1390  {        {      
1391          va_list ap;          va_list ap;
1392          int narg = VFUN_NARGS; VMB14 VMS14 VMV14          int narg = VFUN_NARGS; VMB14 VMS14 VMV14
1393          {object V218;          {object V236;
1394          object V219;          object V237;
1395          va_start(ap,first);          va_start(ap,first);
1396          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1397          V218= V217;          V236= V235;
1398          narg= narg - 1;          narg= narg - 1;
1399          V220 = list_vector_new(narg,first,ap);          V238 = list_vector_new(narg,first,ap);
1400          V219= V220;          V237= V238;
1401          {object V221= (VV[34]->s.s_dbind);          {object V239= (VV[34]->s.s_dbind);
1402          if((V221!= Cnil))goto T511;          if((V239!= Cnil))goto T511;
1403          goto T509;          goto T509;
1404          goto T511;          goto T511;
1405  T511:;  T511:;
1406          if((V221!= VV[16]))goto T512;          if((V239!= VV[16]))goto T512;
1407          if(!(((V218))==(VV[16]))){          if(!(((V236))==(VV[16]))){
1408          goto T509;}          goto T509;}
1409          goto T510;          goto T510;
1410          goto T512;          goto T512;
# Line 1394  T512:;} Line 1412  T512:;}
1412          goto T510;          goto T510;
1413  T510:;  T510:;
1414          base[0]=VV[126]->s.s_gfdef;          base[0]=VV[126]->s.s_gfdef;
1415          {object V222;          {object V240;
1416          V222= (V219);          V240= (V237);
1417           vs_top=base+1;           vs_top=base+1;
1418           while(V222!=Cnil)           while(V240!=Cnil)
1419           {vs_push((V222)->c.c_car);V222=(V222)->c.c_cdr;}           {vs_push((V240)->c.c_car);V240=(V240)->c.c_cdr;}
1420          vs_base=base+1;}          vs_base=base+1;}
1421          (void) (*Lnk126)();          (void) (*Lnk126)();
1422          vs_top=sup;          vs_top=sup;
1423          {object V223 = vs_base[0];          {object V241 = vs_base[0];
1424          VMR14(V223)}          VMR14(V241)}
1425          goto T509;          goto T509;
1426  T509:;  T509:;
1427          {object V224 = Cnil;          {object V242 = Cnil;
1428          VMR14(V224)}          VMR14(V242)}
1429          va_end(ap);          va_end(ap);
1430          base[0]=base[0];          base[0]=base[0];
1431          return Cnil;}          return Cnil;}
# Line 1420  static void L16() Line 1438  static void L16()
1438          vs_check;          vs_check;
1439          check_arg(2);          check_arg(2);
1440          vs_top=sup;          vs_top=sup;
1441          {object V225=base[0]->c.c_cdr;          {object V243=base[0]->c.c_cdr;
1442          {object V226=getf(V225,VV[149],OBJNULL);          {object V244=getf(V243,VV[149],OBJNULL);
1443          if(V226==OBJNULL){          if(V244==OBJNULL){
1444          base[2]= Cnil;} else {          base[2]= Cnil;} else {
1445          base[2]= V226;          base[2]= V244;
1446          }}          }}
1447          {object V227=getf(V225,VV[150],OBJNULL);          {object V245=getf(V243,VV[150],OBJNULL);
1448          if(V227==OBJNULL){          if(V245==OBJNULL){
1449          base[3]= Cnil;} else {          base[3]= Cnil;} else {
1450          base[3]= V227;          base[3]= V245;
1451          }}          }}
1452          {object V228=getf(V225,VV[151],OBJNULL);          {object V246=getf(V243,VV[151],OBJNULL);
1453          if(V228==OBJNULL){          if(V246==OBJNULL){
1454          base[4]= Cnil;} else {          base[4]= Cnil;} else {
1455          base[4]= V228;          base[4]= V246;
1456          }}          }}
1457          {object V229=getf(V225,VV[152],OBJNULL);          {object V247=getf(V243,VV[152],OBJNULL);
1458          if(V229==OBJNULL){          if(V247==OBJNULL){
1459          base[5]= Cnil;} else {          base[5]= Cnil;} else {
1460          base[5]= V229;          base[5]= V247;
1461          }}          }}
1462          {object V230=getf(V225,VV[153],OBJNULL);          {object V248=getf(V243,VV[153],OBJNULL);
1463          if(V230==OBJNULL){          if(V248==OBJNULL){
1464          base[6]= Cnil;} else {          base[6]= Cnil;} else {
1465          base[6]= V230;          base[6]= V248;
1466          }}          }}
1467          {object V231=getf(V225,VV[154],OBJNULL);          {object V249=getf(V243,VV[154],OBJNULL);
1468          if(V231==OBJNULL){          if(V249==OBJNULL){
1469          base[7]= Cnil;} else {          base[7]= Cnil;} else {
1470          base[7]= V231;          base[7]= V249;
1471          }}          }}
1472          {object V232=getf(V225,VV[155],OBJNULL);          {object V250=getf(V243,VV[155],OBJNULL);
1473          if(V232==OBJNULL){          if(V250==OBJNULL){
1474          base[8]= Cnil;} else {          base[8]= Cnil;} else {
1475          base[8]= V232;          base[8]= V250;
1476          }}          }}
1477          {object V233=getf(V225,VV[156],OBJNULL);          {object V251=getf(V243,VV[156],OBJNULL);
1478          if(V233==OBJNULL){          if(V251==OBJNULL){
1479          base[9]= Cnil;} else {          base[9]= Cnil;} else {
1480          base[9]= V233;          base[9]= V251;
1481          }}          }}
1482          check_other_key(V225,8,VV[149],VV[150],VV[151],VV[152],VV[153],VV[154],VV[155],VV[156]);}          check_other_key(V243,8,VV[149],VV[150],VV[151],VV[152],VV[153],VV[154],VV[155],VV[156]);}
1483          if((base[2])==Cnil){          if((base[2])==Cnil){
1484          goto T523;}          goto T523;}
1485          if((base[3])==Cnil){          if((base[3])==Cnil){
# Line 1478  T523:; Line 1496  T523:;
1496          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
1497          (void) (*Lnk157)();          (void) (*Lnk157)();
1498          vs_top=sup;          vs_top=sup;
1499          V234= vs_base[0];          V252= vs_base[0];
1500          if((CMPcdr(V234))==Cnil){          if((CMPcdr(V252))==Cnil){
1501          goto T530;}          goto T530;}
1502          base[10]= VV[36];          base[10]= VV[36];
1503          base[11]= base[0];          base[11]= base[0];
# Line 1488  T523:; Line 1506  T523:;
1506          return;          return;
1507          goto T530;          goto T530;
1508  T530:;  T530:;
1509          {object V235;          {object V253;
1510          register object V236;          register object V254;
1511          object V237;          object V255;
1512          if(base[3]!=Cnil){          if(base[3]!=Cnil){
1513          V235= base[3];          V253= base[3];
1514          goto T537;}          goto T537;}
1515          if(base[5]!=Cnil){          if(base[5]!=Cnil){
1516          V235= base[5];          V253= base[5];
1517          goto T537;}          goto T537;}
1518          V235= base[6];          V253= base[6];
1519          goto T537;          goto T537;
1520  T537:;  T537:;
1521          if(base[4]!=Cnil){          if(base[4]!=Cnil){
1522          V236= base[4];          V254= base[4];
1523          goto T538;}          goto T538;}
1524          if(base[5]!=Cnil){          if(base[5]!=Cnil){
1525          V236= base[5];          V254= base[5];
1526          goto T538;}          goto T538;}
1527          if(base[6]!=Cnil){          if(base[6]!=Cnil){
1528          V236= base[6];          V254= base[6];
1529          goto T538;}          goto T538;}
1530          V236= base[7];          V254= base[7];
1531          goto T538;          goto T538;
1532  T538:;  T538:;
1533          if((base[8])!=Cnil){          if((base[8])!=Cnil){
1534          goto T541;}          goto T541;}
1535          V237= small_fixnum(1);          V255= small_fixnum(1);
1536          goto T539;          goto T539;
1537          goto T541;          goto T541;
1538  T541:;  T541:;
# Line 1524  T541:; Line 1542  T541:;
1542          vs_top=sup;          vs_top=sup;
1543          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1544          goto T544;}          goto T544;}
1545          V237= base[8];          V255= base[8];
1546          goto T539;          goto T539;
1547          goto T544;          goto T544;
1548  T544:;  T544:;
1549          V237= Cnil;          V255= Cnil;
1550          goto T539;          goto T539;
1551  T539:;  T539:;
1552          if(base[2]!=Cnil){          if(base[2]!=Cnil){
1553          V238= base[2];          V256= base[2];
1554          goto T547;}          goto T547;}
1555          if(base[3]!=Cnil){          if(base[3]!=Cnil){
1556          V238= base[3];          V256= base[3];
1557          goto T547;}          goto T547;}
1558          V238= small_fixnum(0);          V256= small_fixnum(0);
1559          goto T547;          goto T547;
1560  T547:;  T547:;
1561          V239= list(2,VV[37],V238);          V257= list(2,VV[37],V256);
1562          if((V236)==Cnil){          if((V254)==Cnil){
1563          V240= Cnil;          V258= Cnil;
1564          goto T548;}          goto T548;}
1565          V241= list(2,VV[38],(V236));          V259= list(2,VV[38],(V254));
1566          V240= make_cons(/* INLINE-ARGS */V241,Cnil);          V258= make_cons(/* INLINE-ARGS */V259,Cnil);
1567          goto T548;          goto T548;
1568  T548:;  T548:;
1569          if(((V237))==Cnil){          if(((V255))==Cnil){
1570          goto T550;}          goto T550;}
1571          V242= Cnil;          V260= Cnil;
1572          goto T549;          goto T549;
1573          goto T550;          goto T550;
1574  T550:;  T550:;
1575          V243= list(2,VV[39],base[8]);          V261= list(2,VV[39],base[8]);
1576          V242= make_cons(/* INLINE-ARGS */V243,Cnil);          V260= make_cons(/* INLINE-ARGS */V261,Cnil);
1577          goto T549;          goto T549;
1578  T549:;  T549:;
1579          V244= append(V240,V242);          V262= append(V258,V260);
1580          V245= make_cons(/* INLINE-ARGS */V239,/* INLINE-ARGS */V244);          V263= make_cons(/* INLINE-ARGS */V257,/* INLINE-ARGS */V262);
1581          if(base[9]==Cnil){          if(base[9]==Cnil){
1582          V246= Cnil;          V264= Cnil;
1583          goto T552;}          goto T552;}
1584          if((V236)==Cnil){          if((V254)==Cnil){
1585          V247= Cnil;          V265= Cnil;
1586          goto T553;}          goto T553;}
1587          V247= VV[40];          V265= VV[40];
1588          goto T553;          goto T553;
1589  T553:;  T553:;
1590          if(((V237))==Cnil){          if(((V255))==Cnil){
1591          goto T555;}          goto T555;}
1592          V248= Cnil;          V266= Cnil;
1593          goto T554;          goto T554;
1594          goto T555;          goto T555;
1595  T555:;  T555:;
1596          V248= VV[41];          V266= VV[41];
1597          goto T554;          goto T554;
1598  T554:;  T554:;
1599          V249= list(2,VV[19],listA(4,VV[21],base[9],VV[37],append(V247,V248)));          V267= list(2,VV[19],listA(4,VV[21],base[9],VV[37],append(V265,V266)));
1600          V246= make_cons(/* INLINE-ARGS */V249,Cnil);          V264= make_cons(/* INLINE-ARGS */V267,Cnil);
1601          goto T552;          goto T552;
1602  T552:;  T552:;
1603          if(((V236))!=Cnil){          if(((V254))!=Cnil){
1604          goto T559;}          goto T559;}
1605          V250= VV[43];          V268= VV[43];
1606          goto T557;          goto T557;
1607          goto T559;          goto T559;
1608  T559:;  T559:;
1609          V250= Cnil;          V268= Cnil;
1610          goto T557;          goto T557;
1611  T557:;  T557:;
1612          if(((V236))==Cnil){          if(((V254))==Cnil){
1613          goto T563;}          goto T563;}
1614          if((base[6])==Cnil){          if((base[6])==Cnil){
1615          goto T567;}          goto T567;}
1616          V252= VV[45];          V270= VV[45];
1617          goto T565;          goto T565;
1618          goto T567;          goto T567;
1619  T567:;  T567:;
1620          if((base[7])==Cnil){          if((base[7])==Cnil){
1621          goto T570;}          goto T570;}
1622          V252= VV[46];          V270= VV[46];
1623          goto T565;          goto T565;
1624          goto T570;          goto T570;
1625  T570:;  T570:;
1626          if(((V235))==Cnil){          if(((V253))==Cnil){
1627          goto T573;}          goto T573;}
1628          V252= VV[47];          V270= VV[47];
1629          goto T565;          goto T565;
1630          goto T573;          goto T573;
1631  T573:;  T573:;
1632          V252= VV[48];          V270= VV[48];
1633          goto T565;          goto T565;
1634  T565:;  T565:;
1635          V251= listA(3,VV[44],make_cons(V252,VV[49]),VV[50]);          V269= listA(3,VV[44],make_cons(V270,VV[49]),VV[50]);
1636          goto T561;          goto T561;
1637          goto T563;          goto T563;
1638  T563:;  T563:;
1639          V251= VV[37];          V269= VV[37];
1640          goto T561;          goto T561;
1641  T561:;  T561:;
1642          if(((V235))==Cnil){          if(((V253))==Cnil){
1643          goto T577;}          goto T577;}
1644          V253= VV[51];          V271= VV[51];
1645          goto T575;          goto T575;
1646          goto T577;          goto T577;
1647  T577:;  T577:;
1648          V253= VV[52];          V271= VV[52];
1649          goto T575;          goto T575;
1650  T575:;  T575:;
1651          if((V237)!=Cnil){          if((V255)!=Cnil){
1652          V254= (V237);          V272= (V255);
1653          goto T579;}          goto T579;}
1654          V254= VV[39];          V272= VV[39];
1655          goto T579;          goto T579;
1656  T579:;  T579:;
1657          V255= list(3,VV[33],V251,list(3,VV[32],VV[37],list(3,V253,VV[37],V254)));          V273= list(3,VV[33],V269,list(3,VV[32],VV[37],list(3,V271,VV[37],V272)));
1658          V256= make_cons(/* INLINE-ARGS */V255,Cnil);          V274= make_cons(/* INLINE-ARGS */V273,Cnil);
1659          V257= list(2,VV[5],listA(3,VV[6],VV[42],append(V250,/* INLINE-ARGS */V256)));          V275= list(2,VV[5],listA(3,VV[6],VV[42],append(V268,/* INLINE-ARGS */V274)));
1660          V258= make_cons(/* INLINE-ARGS */V257,Cnil);          V276= make_cons(/* INLINE-ARGS */V275,Cnil);
1661          base[13]= listA(3,VV[18],/* INLINE-ARGS */V245,append(V246,/* INLINE-ARGS */V258));          base[13]= listA(3,VV[18],/* INLINE-ARGS */V263,append(V264,/* INLINE-ARGS */V276));
1662          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
1663          return;}          return;}
1664  }  }
# Line 1652  static void L17() Line 1670  static void L17()
1670          vs_check;          vs_check;
1671          check_arg(2);          check_arg(2);
1672          vs_top=sup;          vs_top=sup;
1673          {object V259=base[0]->c.c_cdr;          {object V277=base[0]->c.c_cdr;
1674          if(endp(V259))invalid_macro_call();          if(endp(V277))invalid_macro_call();
1675          base[2]= (V259->c.c_car);          base[2]= (V277->c.c_car);
1676          V259=V259->c.c_cdr;          V277=V277->c.c_cdr;
1677          {object V260=getf(V259,VV[155],OBJNULL);          {object V278=getf(V277,VV[155],OBJNULL);
1678          if(V260==OBJNULL){          if(V278==OBJNULL){
1679          base[3]= VV[53];} else {          base[3]= VV[53];} else {
1680          base[3]= V260;          base[3]= V278;
1681          }}          }}
1682          check_other_key(V259,1,VV[155]);}          check_other_key(V277,1,VV[155]);}
1683          V261= list(2,VV[54],base[2]);          V279= list(2,VV[54],base[2]);
1684          V262= make_cons(/* INLINE-ARGS */V261,Cnil);          V280= make_cons(/* INLINE-ARGS */V279,Cnil);
1685          base[4]= list(3,VV[18],/* INLINE-ARGS */V262,list(2,VV[5],list(3,VV[6],VV[55],list(3,VV[33],VV[56],list(3,VV[32],VV[54],list(3,VV[4],base[3],VV[54]))))));          base[4]= list(3,VV[18],/* INLINE-ARGS */V280,list(2,VV[5],list(3,VV[6],VV[55],list(3,VV[33],VV[56],list(3,VV[32],VV[54],list(3,VV[4],base[3],VV[54]))))));
1686          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1687          return;          return;
1688  }  }
# Line 1676  static void L18() Line 1694  static void L18()
1694          vs_check;          vs_check;
1695          check_arg(2);          check_arg(2);
1696          vs_top=sup;          vs_top=sup;
1697          {object V263=base[0]->c.c_cdr;          {object V281=base[0]->c.c_cdr;
1698          if(endp(V263))invalid_macro_call();          if(endp(V281))invalid_macro_call();
1699          base[2]= (V263->c.c_car);          base[2]= (V281->c.c_car);
1700          V263=V263->c.c_cdr;          V281=V281->c.c_cdr;
1701          {object V264=getf(V263,VV[155],OBJNULL);          {object V282=getf(V281,VV[155],OBJNULL);
1702          if(V264==OBJNULL){          if(V282==OBJNULL){
1703          base[3]= VV[57];} else {          base[3]= VV[57];} else {
1704          base[3]= V264;          base[3]= V282;
1705          }}          }}
1706          check_other_key(V263,1,VV[155]);}          check_other_key(V281,1,VV[155]);}
1707          V265= list(2,VV[54],base[2]);          V283= list(2,VV[54],base[2]);
1708          V266= make_cons(/* INLINE-ARGS */V265,Cnil);          V284= make_cons(/* INLINE-ARGS */V283,Cnil);
1709          base[4]= list(3,VV[18],/* INLINE-ARGS */V266,list(2,VV[5],list(3,VV[6],VV[58],list(3,VV[33],VV[59],list(3,VV[32],VV[54],list(3,VV[4],base[3],VV[54]))))));          base[4]= list(3,VV[18],/* INLINE-ARGS */V284,list(2,VV[5],list(3,VV[6],VV[58],list(3,VV[33],VV[59],list(3,VV[32],VV[54],list(3,VV[4],base[3],VV[54]))))));
1710          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1711          return;          return;
1712  }  }
# Line 1700  static void L19() Line 1718  static void L19()
1718          vs_check;          vs_check;
1719          check_arg(2);          check_arg(2);
1720          vs_top=sup;          vs_top=sup;
1721          {object V267=base[0]->c.c_cdr;          {object V285=base[0]->c.c_cdr;
1722          if(endp(V267))invalid_macro_call();          if(endp(V285))invalid_macro_call();
1723          base[2]= (V267->c.c_car);          base[2]= (V285->c.c_car);
1724          V267=V267->c.c_cdr;          V285=V285->c.c_cdr;
1725          if(!endp(V267))invalid_macro_call();}          if(!endp(V285))invalid_macro_call();}
1726          {object V268;          {object V286;
1727          object V269;          object V287;
1728          object V270;          object V288;
1729          if(type_of(base[2])==t_cons){          if(type_of(base[2])==t_cons){
1730          goto T583;}          goto T583;}
1731          V268= Cnil;          V286= Cnil;
1732          goto T582;          goto T582;
1733          goto T583;          goto T583;
1734  T583:;  T583:;
1735          if((CMPcar(base[2]))==(VV[60])){          if((CMPcar(base[2]))==(VV[60])){
1736          goto T585;}          goto T585;}
1737          V268= Cnil;          V286= Cnil;
1738          goto T582;          goto T582;
1739          goto T585;          goto T585;
1740  T585:;  T585:;
1741          V268= CMPcadr(base[2]);          V286= CMPcadr(base[2]);
1742          goto T582;          goto T582;
1743  T582:;  T582:;
1744          if(((V268))==Cnil){          if(((V286))==Cnil){
1745          goto T589;}          goto T589;}
1746          V269= (*(LnkLI158))((V268));          V287= (*(LnkLI158))((V286));
1747          goto T587;          goto T587;
1748          goto T589;          goto T589;
1749  T589:;  T589:;
1750          V269= VV[61];          V287= VV[61];
1751          goto T587;          goto T587;
1752  T587:;  T587:;
1753          V270= (((V268))==(VV[62])?Ct:Cnil);          V288= (((V286))==(VV[62])?Ct:Cnil);
1754          V271= list(2,VV[64],base[2]);          V289= list(2,VV[64],base[2]);
1755          if(((V270))==Cnil){          if(((V288))==Cnil){
1756          goto T593;}          goto T593;}
1757          V272= Cnil;          V290= Cnil;
1758          goto T592;          goto T592;
1759          goto T593;          goto T593;
1760  T593:;  T593:;
1761          V272= VV[65];          V290= VV[65];
1762          goto T592;          goto T592;
1763  T592:;  T592:;
1764          V273= listA(3,VV[63],/* INLINE-ARGS */V271,V272);          V291= listA(3,VV[63],/* INLINE-ARGS */V289,V290);
1765          if(((V270))==Cnil){          if(((V288))==Cnil){
1766          goto T597;}          goto T597;}
1767          V274= VV[68];          V292= VV[68];
1768          goto T595;          goto T595;
1769          goto T597;          goto T597;
1770  T597:;  T597:;
1771          V274= list(2,VV[69],make_cons((V269),VV[70]));          V292= list(2,VV[69],make_cons((V287),VV[70]));
1772          goto T595;          goto T595;
1773  T595:;  T595:;
1774          base[6]= list(3,VV[1],/* INLINE-ARGS */V273,list(2,VV[5],list(3,VV[6],VV[66],list(3,VV[31],list(3,VV[67],V274,VV[71]),VV[72]))));          base[6]= list(3,VV[1],/* INLINE-ARGS */V291,list(2,VV[5],list(3,VV[6],VV[66],list(3,VV[31],list(3,VV[67],V292,VV[71]),VV[72]))));
1775          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1776          return;}          return;}
1777  }  }
# Line 1765  static void L20() Line 1783  static void L20()
1783          vs_check;          vs_check;
1784          check_arg(2);          check_arg(2);
1785          vs_top=sup;          vs_top=sup;
1786          {object V275=base[0]->c.c_cdr;          {object V293=base[0]->c.c_cdr;
1787          if(endp(V275))invalid_macro_call();          if(endp(V293))invalid_macro_call();
1788          base[2]= (V275->c.c_car);          base[2]= (V293->c.c_car);
1789          V275=V275->c.c_cdr;          V293=V293->c.c_cdr;
1790          if(!endp(V275))invalid_macro_call();}          if(!endp(V293))invalid_macro_call();}
1791          V276= list(2,VV[54],base[2]);          V294= list(2,VV[54],base[2]);
1792          base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V276,Cnil),VV[73]);          base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V294,Cnil),VV[73]);
1793          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1794          return;          return;
1795  }  }
1796  /*      local entry for function SEQUENCE-ACCESSOR      */  /*      local entry for function SEQUENCE-ACCESSOR      */
1797    
1798  static object LI21(V278)  static object LI21(V296)
1799    
1800  object V278;  object V296;
1801  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1802          goto TTL;          goto TTL;
1803  TTL:;  TTL:;
1804          if(!(type_of((V278))==t_cons)){          if(!(type_of((V296))==t_cons)){
1805          goto T601;}          goto T601;}
1806          V280= CMPcar((V278));          V298= CMPcar((V296));
1807          goto T599;          goto T599;
1808          goto T601;          goto T601;
1809  T601:;  T601:;
1810          V280= (V278);          V298= (V296);
1811          goto T599;          goto T599;
1812  T599:;  T599:;
1813          {object V279= V280;          {object V297= V298;
1814          if((V279!= VV[159])          if((V297!= VV[159])
1815          && (V279!= VV[160])          && (V297!= VV[160])
1816          && (V279!= VV[161]))goto T603;          && (V297!= VV[161]))goto T603;
1817          {object V281 = VV[74];          {object V299 = VV[74];
1818          VMR20(V281)}          VMR20(V299)}
1819          goto T603;          goto T603;
1820  T603:;  T603:;
1821          if((V279!= VV[162]))goto T604;          if((V297!= VV[162]))goto T604;
1822          {object V282 = VV[75];          {object V300 = VV[75];
1823          VMR20(V282)}          VMR20(V300)}
1824          goto T604;          goto T604;
1825  T604:;  T604:;
1826          if((V279!= VV[163]))goto T605;          if((V297!= VV[163]))goto T605;
1827          {object V283 = VV[76];          {object V301 = VV[76];
1828          VMR20(V283)}          VMR20(V301)}
1829          goto T605;          goto T605;
1830  T605:;  T605:;
1831          if((V279!= VV[164]))goto T606;          if((V297!= VV[164]))goto T606;
1832          {object V284 = VV[77];          {object V302 = VV[77];
1833          VMR20(V284)}          VMR20(V302)}
1834          goto T606;          goto T606;
1835  T606:;  T606:;
1836          if((V279!= VV[165]))goto T607;          if((V297!= VV[165]))goto T607;
1837          {object V285 = VV[78];          {object V303 = VV[78];
1838          VMR20(V285)}          VMR20(V303)}
1839          goto T607;          goto T607;
1840  T607:;  T607:;
1841          if((V279!= VV[166]))goto T608;          if((V297!= VV[166]))goto T608;
1842          {object V286 = VV[79];          {object V304 = VV[79];
1843          VMR20(V286)}          VMR20(V304)}
1844          goto T608;          goto T608;
1845  T608:;  T608:;
1846          {object V287 = VV[61];          {object V305 = VV[61];
1847          VMR20(V287)}}          VMR20(V305)}}
1848          return Cnil;          return Cnil;
1849  }  }
1850  /*      macro definition for EACHTIME   */  /*      macro definition for EACHTIME   */
# Line 1837  static void L22() Line 1855  static void L22()
1855          vs_check;          vs_check;
1856          check_arg(2);          check_arg(2);
1857          vs_top=sup;          vs_top=sup;
1858          {object V288=base[0]->c.c_cdr;          {object V306=base[0]->c.c_cdr;
1859          if(endp(V288))invalid_macro_call();          if(endp(V306))invalid_macro_call();
1860          base[2]= (V288->c.c_car);          base[2]= (V306->c.c_car);
1861          V288=V288->c.c_cdr;          V306=V306->c.c_cdr;
1862          if(!endp(V288))invalid_macro_call();}          if(!endp(V306))invalid_macro_call();}
1863          base[3]= list(2,VV[5],list(4,VV[6],VV[80],VV[81],base[2]));          base[3]= list(2,VV[5],list(4,VV[6],VV[80],VV[81],base[2]));
1864          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1865          return;          return;
# Line 1854  static void L23() Line 1872  static void L23()
1872          vs_check;          vs_check;
1873          check_arg(2);          check_arg(2);
1874          vs_top=sup;          vs_top=sup;
1875          {object V289=base[0]->c.c_cdr;          {object V307=base[0]->c.c_cdr;
1876          if(endp(V289))invalid_macro_call();          if(endp(V307))invalid_macro_call();
1877          base[2]= (V289->c.c_car);          base[2]= (V307->c.c_car);
1878          V289=V289->c.c_cdr;          V307=V307->c.c_cdr;
1879          if(!endp(V289))invalid_macro_call();}          if(!endp(V307))invalid_macro_call();}
1880          base[3]= list(2,VV[5],list(3,VV[6],VV[82],list(3,VV[83],base[2],VV[84])));          base[3]= list(2,VV[5],list(3,VV[6],VV[82],list(3,VV[83],base[2],VV[84])));
1881          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1882          return;          return;
# Line 1871  static void L24() Line 1889  static void L24()
1889          vs_check;          vs_check;
1890          check_arg(2);          check_arg(2);
1891          vs_top=sup;          vs_top=sup;
1892          {object V290=base[0]->c.c_cdr;          {object V308=base[0]->c.c_cdr;
1893          if(endp(V290))invalid_macro_call();          if(endp(V308))invalid_macro_call();
1894          base[2]= (V290->c.c_car);          base[2]= (V308->c.c_car);
1895          V290=V290->c.c_cdr;          V308=V308->c.c_cdr;
1896          if(!endp(V290))invalid_macro_call();}          if(!endp(V308))invalid_macro_call();}
1897          base[3]= list(2,VV[5],list(3,VV[6],VV[85],list(3,VV[86],base[2],VV[87])));          base[3]= list(2,VV[5],list(3,VV[6],VV[85],list(3,VV[86],base[2],VV[87])));
1898          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1899          return;          return;
# Line 1888  static void L25() Line 1906  static void L25()
1906          vs_check;          vs_check;
1907          check_arg(2);          check_arg(2);
1908          vs_top=sup;          vs_top=sup;
1909          {object V291=base[0]->c.c_cdr;          {object V309=base[0]->c.c_cdr;
1910          if(endp(V291))invalid_macro_call();          if(endp(V309))invalid_macro_call();
1911          base[2]= (V291->c.c_car);          base[2]= (V309->c.c_car);
1912          V291=V291->c.c_cdr;          V309=V309->c.c_cdr;
1913          base[3]= V291;}{object V292;          base[3]= V309;}{object V310;
1914          V292= (*(LnkLI167))(base[2],base[3],base[1]);          V310= (*(LnkLI167))(base[2],base[3],base[1]);
1915          if(V292==Cnil)goto T609;          if(V310==Cnil)goto T609;
1916          base[4]= V292;          base[4]= V310;
1917          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1918          return;          return;
1919          goto T609;          goto T609;
# Line 1912  static void L26() Line 1930  static void L26()
1930          vs_check;          vs_check;
1931          check_arg(2);          check_arg(2);
1932          vs_top=sup;          vs_top=sup;
1933          {object V293=base[0]->c.c_cdr;          {object V311=base[0]->c.c_cdr;
1934          if(endp(V293))invalid_macro_call();          if(endp(V311))invalid_macro_call();
1935          base[2]= (V293->c.c_car);          base[2]= (V311->c.c_car);
1936          V293=V293->c.c_cdr;          V311=V311->c.c_cdr;
1937          if(endp(V293))invalid_macro_call();          if(endp(V311))invalid_macro_call();
1938          base[3]= (V293->c.c_car);          base[3]= (V311->c.c_car);
1939          V293=V293->c.c_cdr;          V311=V311->c.c_cdr;
1940          base[4]= V293;}          base[4]= V311;}
1941          {object V295;          {object V313;
1942          object V296= base[2];          object V314= base[2];
1943          if(V296==Cnil){          if(V314==Cnil){
1944          V294= Cnil;          V312= Cnil;
1945          goto T611;}          goto T611;}
1946          base[5]=V295=MMcons(Cnil,Cnil);          base[5]=V313=MMcons(Cnil,Cnil);
1947          goto T612;          goto T612;
1948  T612:;  T612:;
1949          (V295->c.c_car)= CMPcar((V296->c.c_car));          (V313->c.c_car)= CMPcar((V314->c.c_car));
1950          if((V296=MMcdr(V296))==Cnil){          if((V314=MMcdr(V314))==Cnil){
1951          V294= base[5];          V312= base[5];
1952          goto T611;}          goto T611;}
1953          V295=MMcdr(V295)=MMcons(Cnil,Cnil);          V313=MMcdr(V313)=MMcons(Cnil,Cnil);
1954          goto T612;}          goto T612;}
1955          goto T611;          goto T611;
1956  T611:;  T611:;
1957          base[5]= listA(4,VV[88],V294,list(3,VV[89],base[2],base[3]),base[4]);          V315 = base[4];
1958            base[5]= listA(4,VV[88],V312,list(3,VV[89],base[2],base[3]),V315);
1959          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1960          return;          return;
1961  }  }
1962  /*      local entry for function SIMPLE-EXPAND-GATHERING-FORM   */  /*      local entry for function SIMPLE-EXPAND-GATHERING-FORM   */
1963    
1964  static object LI27(V300,V301,V302)  static object LI27(V319,V320,V321)
1965    
1966  register object V300;object V301;object V302;  register object V319;object V320;object V321;
1967  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1968          goto TTL;          goto TTL;
1969  TTL:;  TTL:;
1970          {object V303;          {object V322;
1971          object V304;          object V323;
1972          if(!(type_of((V300))==t_symbol)){          if(!(type_of((V319))==t_symbol)){
1973          goto T618;}          goto T618;}
1974          V308= list(2,VV[90],make_cons((V300),Cnil));          V327= list(2,VV[90],make_cons((V319),Cnil));
1975          V300= make_cons(/* INLINE-ARGS */V308,Cnil);          V319= make_cons(/* INLINE-ARGS */V327,Cnil);
1976          V307= (V300);          V326= (V319);
1977          goto T616;          goto T616;
1978          goto T618;          goto T618;
1979  T618:;  T618:;
1980          V307= (V300);          V326= (V319);
1981          goto T616;          goto T616;
1982  T616:;  T616:;
1983          {object V305;          {object V324;
1984          object V306= V307;          object V325= V326;
1985          if(V306==Cnil){          if(V325==Cnil){
1986          V303= Cnil;          V322= Cnil;
1987          goto T614;}          goto T614;}
1988          base[0]=V305=MMcons(Cnil,Cnil);          base[0]=V324=MMcons(Cnil,Cnil);
1989          goto T615;          goto T615;
1990  T615:;  T615:;
1991          (V305->c.c_car)= CMPcar((V306->c.c_car));          (V324->c.c_car)= CMPcar((V325->c.c_car));
1992          if((V306=MMcdr(V306))==Cnil){          if((V325=MMcdr(V325))==Cnil){
1993          V303= base[0];          V322= base[0];
1994          goto T614;}          goto T614;}
1995          V305=MMcdr(V305)=MMcons(Cnil,Cnil);          V324=MMcdr(V324)=MMcons(Cnil,Cnil);
1996          goto T615;}          goto T615;}
1997          goto T614;          goto T614;
1998  T614:;  T614:;
1999          {object V309;          {object V328;
2000          object V310= (V300);          object V329= (V319);
2001          if(V310==Cnil){          if(V329==Cnil){
2002          V304= Cnil;          V323= Cnil;
2003          goto T622;}          goto T622;}
2004          base[0]=V309=MMcons(Cnil,Cnil);          base[0]=V328=MMcons(Cnil,Cnil);
2005          goto T623;          goto T623;
2006  T623:;  T623:;
2007          vs_base=vs_top;          vs_base=vs_top;
2008          Lgensym();          Lgensym();
2009          vs_top=sup;          vs_top=sup;
2010          (V309->c.c_car)= vs_base[0];          (V328->c.c_car)= vs_base[0];
2011          if((V310=MMcdr(V310))==Cnil){          if((V329=MMcdr(V329))==Cnil){
2012          V304= base[0];          V323= base[0];
2013          goto T622;}          goto T622;}
2014          V309=MMcdr(V309)=MMcons(Cnil,Cnil);          V328=MMcdr(V328)=MMcons(Cnil,Cnil);
2015          goto T623;}          goto T623;}
2016          goto T622;          goto T622;
2017  T622:;  T622:;
2018          {object V313;          {object V332;
2019          object V314= (V303);          object V333= (V322);
2020          object V315= (V304);          object V334= (V323);
2021          if(V314==Cnil||V315==Cnil){          if(V333==Cnil||V334==Cnil){
2022          V312= Cnil;          V331= Cnil;
2023          goto T625;}          goto T625;}
2024          base[0]=V313=MMcons(Cnil,Cnil);          base[0]=V332=MMcons(Cnil,Cnil);
2025          goto T626;          goto T626;
2026  T626:;  T626:;
2027          (V313->c.c_cdr)= list(2,(V314->c.c_car),(V315->c.c_car));          (V332->c.c_cdr)= list(2,(V333->c.c_car),(V334->c.c_car));
2028          while(MMcdr(V313)!=Cnil)V313=MMcdr(V313);          while(MMcdr(V332)!=Cnil)V332=MMcdr(V332);
2029          if((V314=MMcdr(V314))==Cnil||(V315=MMcdr(V315))==Cnil){          if((V333=MMcdr(V333))==Cnil||(V334=MMcdr(V334))==Cnil){
2030          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
2031          V312= base[0];          V331= base[0];
2032          goto T625;}          goto T625;}
2033          goto T626;}          goto T626;}
2034          goto T625;          goto T625;
2035  T625:;  T625:;
2036          {object V317;          {object V336;
2037          object V318= (V304);          object V337= (V323);
2038          if(V318==Cnil){          if(V337==Cnil){
2039          V316= Cnil;          V335= Cnil;
2040          goto T628;}          goto T628;}
2041          base[0]=V317=MMcons(Cnil,Cnil);          base[0]=V336=MMcons(Cnil,Cnil);
2042          goto T629;          goto T629;
2043  T629:;  T629:;
2044          (V317->c.c_car)= list(2,VV[4],(V318->c.c_car));          (V336->c.c_car)= list(2,VV[4],(V337->c.c_car));
2045          if((V318=MMcdr(V318))==Cnil){          if((V337=MMcdr(V337))==Cnil){
2046          V316= base[0];          V335= base[0];
2047          goto T628;}          goto T628;}
2048          V317=MMcdr(V317)=MMcons(Cnil,Cnil);          V336=MMcdr(V336)=MMcons(Cnil,Cnil);
2049          goto T629;}          goto T629;}
2050          goto T628;          goto T628;
2051  T628:;  T628:;
2052          V320= make_cons(VV[31],V316);          V339= make_cons(VV[31],V335);
2053          V321= make_cons(/* INLINE-ARGS */V320,Cnil);          V340= make_cons(/* INLINE-ARGS */V339,Cnil);
2054          V322= list(2,VV[5],list(3,VV[6],V312,listA(3,VV[92],VV[93],append((V301),/* INLINE-ARGS */V321))));          V341= list(2,VV[5],list(3,VV[6],V331,listA(3,VV[92],VV[93],append((V320),/* INLINE-ARGS */V340))));
2055          base[1]=VV[169]->s.s_gfdef;          base[1]=VV[169]->s.s_gfdef;
2056          {object V324;          {object V343;
2057          object V325= (V300);          object V344= (V319);
2058          if(V325==Cnil){          if(V344==Cnil){
2059          V323= Cnil;          V342= Cnil;
2060          goto T631;}          goto T631;}
2061          base[0]=V324=MMcons(Cnil,Cnil);          base[0]=V343=MMcons(Cnil,Cnil);
2062          goto T632;          goto T632;
2063  T632:;  T632:;
2064          base[2]= (V325->c.c_car);          base[2]= (V344->c.c_car);
2065          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2066          (void) (*Lnk169)();          (void) (*Lnk169)();
2067          vs_top=sup;          vs_top=sup;
2068          (V324->c.c_car)= vs_base[0];          (V343->c.c_car)= vs_base[0];
2069          if((V325=MMcdr(V325))==Cnil){          if((V344=MMcdr(V344))==Cnil){
2070          V323= base[0];          V342= base[0];
2071          goto T631;}          goto T631;}
2072          V324=MMcdr(V324)=MMcons(Cnil,Cnil);          V343=MMcdr(V343)=MMcons(Cnil,Cnil);
2073          goto T632;}          goto T632;}
2074          goto T631;          goto T631;
2075  T631:;  T631:;
2076          {object V326 = listA(3,VV[91],/* INLINE-ARGS */V322,V323);          {object V345 = listA(3,VV[91],/* INLINE-ARGS */V341,V342);
2077          VMR26(V326)}}          VMR26(V345)}}
2078          base[0]=base[0];          base[0]=base[0];
2079          return Cnil;          return Cnil;
2080  }  }
2081  /*      local entry for function OPTIMIZE-GATHERING-FORM        */  /*      local entry for function OPTIMIZE-GATHERING-FORM        */
2082    
2083  static object LI28(V330,V331,V332)  static object LI28(V349,V350,V351)
2084    
2085  object V330;object V331;object V332;  object V349;object V350;object V351;
2086  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
2087          goto TTL;          goto TTL;
2088  TTL:;  TTL:;
2089          {object V333;          {object V352;
2090          register object V334;          register object V353;
2091          object V335;          object V354;
2092          register object V336;          register object V355;
2093          object V337;          object V356;
2094          V333= Cnil;          V352= Cnil;
2095          V334= Cnil;          V353= Cnil;
2096          V335= Cnil;          V354= Cnil;
2097          V336= Cnil;          V355= Cnil;
2098          V337= Cnil;          V356= Cnil;
2099          {object V338;          {object V357;
2100          register object V339;          register object V358;
2101          if(!(type_of((V330))==t_symbol)){          if(!(type_of((V349))==t_symbol)){
2102          goto T643;}          goto T643;}
2103          V340= list(2,VV[90],make_cons((V330),Cnil));          V359= list(2,VV[90],make_cons((V349),Cnil));
2104          V338= make_cons(/* INLINE-ARGS */V340,Cnil);          V357= make_cons(/* INLINE-ARGS */V359,Cnil);
2105          goto T641;          goto T641;
2106          goto T643;          goto T643;
2107  T643:;  T643:;
2108          V338= (V330);          V357= (V349);
2109          goto T641;          goto T641;
2110  T641:;  T641:;
2111          V339= CMPcar((V338));          V358= CMPcar((V357));
2112          goto T647;          goto T647;
2113  T647:;  T647:;
2114          if(!(((V338))==Cnil)){          if(!(((V357))==Cnil)){
2115          goto T648;}          goto T648;}
2116          goto T640;          goto T640;
2117          goto T648;          goto T648;
2118  T648:;  T648:;
2119          {register object V341;          {register object V360;
2120          object V342;          object V361;
2121          object V343;          object V362;
2122          object V344;          object V363;
2123          object V345;          object V364;
2124          object V346;          object V365;
2125          base[2]= CMPcadr((V339));          base[2]= CMPcadr((V358));
2126          base[3]= VV[89];          base[3]= VV[89];
2127          base[4]= (V332);          base[4]= (V351);
2128          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2129          (void) (*Lnk127)();          (void) (*Lnk127)();
2130          if(vs_base>=vs_top){vs_top=sup;goto T657;}          if(vs_base>=vs_top){vs_top=sup;goto T657;}
2131          V341= vs_base[0];          V360= vs_base[0];
2132          vs_base++;          vs_base++;
2133          if(vs_base>=vs_top){vs_top=sup;goto T658;}          if(vs_base>=vs_top){vs_top=sup;goto T658;}
2134          V342= vs_base[0];          V361= vs_base[0];
2135          vs_base++;          vs_base++;
2136          if(vs_base>=vs_top){vs_top=sup;goto T659;}          if(vs_base>=vs_top){vs_top=sup;goto T659;}
2137          V343= vs_base[0];          V362= vs_base[0];
2138          vs_base++;          vs_base++;
2139          if(vs_base>=vs_top){vs_top=sup;goto T660;}          if(vs_base>=vs_top){vs_top=sup;goto T660;}
2140          V344= vs_base[0];          V363= vs_base[0];
2141          vs_base++;          vs_base++;
2142          if(vs_base>=vs_top){vs_top=sup;goto T661;}          if(vs_base>=vs_top){vs_top=sup;goto T661;}
2143          V345= vs_base[0];          V364= vs_base[0];
2144          vs_base++;          vs_base++;
2145          if(vs_base>=vs_top){vs_top=sup;goto T662;}          if(vs_base>=vs_top){vs_top=sup;goto T662;}
2146          V346= vs_base[0];          V365= vs_base[0];
2147          vs_top=sup;          vs_top=sup;
2148          goto T663;          goto T663;
2149          goto T657;          goto T657;
2150  T657:;  T657:;
2151          V341= Cnil;          V360= Cnil;
2152          goto T658;          goto T658;
2153  T658:;  T658:;
2154          V342= Cnil;          V361= Cnil;
2155          goto T659;          goto T659;
2156  T659:;  T659:;
2157          V343= Cnil;          V362= Cnil;
2158          goto T660;          goto T660;
2159  T660:;  T660:;
2160          V344= Cnil;          V363= Cnil;
2161          goto T661;          goto T661;
2162  T661:;  T661:;
2163          V345= Cnil;          V364= Cnil;
2164          goto T662;          goto T662;
2165  T662:;  T662:;
2166          V346= Cnil;          V365= Cnil;
2167          goto T663;          goto T663;
2168  T663:;  T663:;
2169          {object V347;          {object V366;
2170          object V348;          object V367;
2171          object V349;          object V368;
2172          register object V350;          register object V369;
2173          V347= CMPcar((V339));          V366= CMPcar((V358));
2174          V348= Cnil;          V367= Cnil;
2175          V349= Cnil;          V368= Cnil;
2176          V350= Cnil;          V369= Cnil;
2177          if(!(type_of((V341))==t_cons)){          if(!(type_of((V360))==t_cons)){
2178          goto T670;}          goto T670;}
2179          if(!((CMPcar((V341)))==(VV[31]))){          if(!((CMPcar((V360)))==(VV[31]))){
2180          goto T670;}          goto T670;}
2181          V341= CMPcdr((V341));          V360= CMPcdr((V360));
2182          if(!(type_of((V341))==t_cons)){          V370 = (V360);
2183            if(!(type_of(V370)==t_cons)){
2184          goto T670;}          goto T670;}
2185          V349= (VFUN_NARGS=1,(*(LnkLI128))(CMPcar((V341))));          V368= (VFUN_NARGS=1,(*(LnkLI128))(CMPcar((V360))));
2186          if(((V349))==Cnil){          if(((V368))==Cnil){
2187          goto T670;}          goto T670;}
2188          V341= CMPcdr((V341));          V360= CMPcdr((V360));
2189          if(!(type_of((V341))==t_cons)){          V371 = (V360);
2190            if(!(type_of(V371)==t_cons)){
2191          goto T670;}          goto T670;}
2192          V350= (VFUN_NARGS=2,(*(LnkLI128))(CMPcar((V341)),small_fixnum(0)));          V369= (VFUN_NARGS=2,(*(LnkLI128))(CMPcar((V360)),small_fixnum(0)));
2193          if(((V350))==Cnil){          if(((V369))==Cnil){
2194          goto T670;}          goto T670;}
2195          if((CMPcdr((V341)))!=Cnil){          if((CMPcdr((V360)))!=Cnil){
2196          goto T670;}          goto T670;}
2197          if(((V342))==Cnil){          if(((V361))==Cnil){
2198          goto T689;}          goto T689;}
2199          if(((V345))==Cnil){          if(((V364))==Cnil){
2200          goto T692;}          goto T692;}
2201          V351= CMPcadr((V339));          V372= CMPcadr((V358));
2202          V352= make_cons(VV[19],(V345));          V373= make_cons(VV[19],(V364));
2203          (void)((VFUN_NARGS=4,(*(LnkLI129))(VV[14],VV[94],/* INLINE-ARGS */V351,/* INLINE-ARGS */V352)));          (void)((VFUN_NARGS=4,(*(LnkLI129))(VV[14],VV[94],/* INLINE-ARGS */V372,/* INLINE-ARGS */V373)));
2204          goto T669;          goto T669;
2205          goto T692;          goto T692;
2206  T692:;  T692:;
2207          if(((V343))==Cnil){          if(((V362))==Cnil){
2208          goto T689;}          goto T689;}
2209          base[3]= (V343);          base[3]= (V362);
2210          base[4]= (V342);          base[4]= (V361);
2211          base[5]= (V332);          base[5]= (V351);
2212          base[6]= (V334);          base[6]= (V353);
2213          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
2214          (void) (*Lnk130)();          (void) (*Lnk130)();
2215          if(vs_base<vs_top){          if(vs_base<vs_top){
2216          V343= vs_base[0];          V362= vs_base[0];
2217          vs_base++;          vs_base++;
2218          }else{          }else{
2219          V343= Cnil;}          V362= Cnil;}
2220          if(vs_base<vs_top){          if(vs_base<vs_top){
2221          V348= vs_base[0];          V367= vs_base[0];
2222          }else{          }else{
2223          V348= Cnil;}          V367= Cnil;}
2224          vs_top=sup;          vs_top=sup;
2225          V335= nconc((V335),(V343));          V354= nconc((V354),(V362));
2226          V334= Cnil;          V353= Cnil;
2227          goto T689;          goto T689;
2228  T689:;  T689:;
2229          V334= nconc((V334),(V346));          V353= nconc((V353),(V365));
2230          {object V353;          {object V374;
2231          V354= (*(LnkLI170))((V349),(V348),(V332));          V375 = (V366);
2232          V353= make_cons((V347),/* INLINE-ARGS */V354);          V376= (*(LnkLI170))((V368),(V367),(V351));
2233          V333= make_cons((V353),(V333));}          V374= make_cons(V375,/* INLINE-ARGS */V376);
2234          base[3]= (V350);          V352= make_cons((V374),(V352));}
2235          base[4]= (V348);          base[3]= (V369);
2236          base[5]= (V332);          base[4]= (V367);
2237            base[5]= (V351);
2238          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2239          (void) (*Lnk147)();          (void) (*Lnk147)();
2240          vs_top=sup;          vs_top=sup;
2241          V350= vs_base[0];          V369= vs_base[0];
2242          {object V355;          {object V377;
2243          if((CMPcdddr((V350)))!=Cnil){          if((CMPcdddr((V369)))!=Cnil){
2244          goto T720;}          goto T720;}
2245          V355= CMPcaddr((V350));          V377= CMPcaddr((V369));
2246          goto T718;          goto T718;
2247          goto T720;          goto T720;
2248  T720:;  T720:;
2249          V355= make_cons(VV[18],CMPcdr((V350)));          V377= make_cons(VV[18],CMPcdr((V369)));
2250          goto T718;          goto T718;
2251  T718:;  T718:;
2252          V336= make_cons((V355),(V336));}          V355= make_cons((V377),(V355));}
2253          if(((V344))==Cnil){          if(((V363))==Cnil){
2254          goto T723;}          goto T723;}
2255          V356= (check_alist(V348),sublis1(V348,(V344),&eql));          V378 = (V356);
2256          V337= nconc((V337),V356);          V379= (check_alist(V367),sublis1(V367,(V363),&eql));
2257            V356= nconc(V378,V379);
2258          goto T723;          goto T723;
2259  T723:;  T723:;
2260          goto T652;          goto T652;
2261          goto T670;          goto T670;
2262  T670:;  T670:;
2263          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[95],CMPcadr((V339)))));          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[95],CMPcadr((V358)))));
2264          goto T669;          goto T669;
2265  T669:;  T669:;
2266          {register object V358;          {register object V381;
2267          object V359;          object V382;
2268          vs_base=vs_top;          vs_base=vs_top;
2269          Lgensym();          Lgensym();
2270          vs_top=sup;          vs_top=sup;
2271          V358= vs_base[0];          V381= vs_base[0];
2272          V359= list(2,VV[96],CMPcadr((V339)));          V382= list(2,VV[96],CMPcadr((V358)));
2273          {object V360;          {object V383;
2274          V360= list(2,(V347),(V358));          V383= list(2,(V366),(V381));
2275          V333= make_cons((V360),(V333));}          V352= make_cons((V383),(V352));}
2276          {object V361;          {object V384;
2277          V361= list(2,VV[4],list(2,VV[97],(V358)));          V384= list(2,VV[4],list(2,VV[97],(V381)));
2278          V336= make_cons((V361),(V336));}          V355= make_cons((V384),(V355));}
2279          if(((V334))==Cnil){          V385 = (V381);
2280            if(((V353))==Cnil){
2281          goto T740;}          goto T740;}
2282          {object V364;          {object V388;
2283          V364= (V334);          V388= (V353);
2284          V334= Cnil;          V353= Cnil;
2285          V363= (V364);}          V387= (V388);}
2286          V365= make_cons((V359),Cnil);          V389= make_cons((V382),Cnil);
2287          V366= append(V363,/* INLINE-ARGS */V365);          V390= append(V387,/* INLINE-ARGS */V389);
2288          V362= make_cons(VV[20],/* INLINE-ARGS */V366);          V386= make_cons(VV[20],/* INLINE-ARGS */V390);
2289          goto T738;          goto T738;
2290          goto T740;          goto T740;
2291  T740:;  T740:;
2292          V362= (V359);          V386= (V382);
2293          goto T738;          goto T738;
2294  T738:;  T738:;
2295          V367= list(2,(V358),V362);          V391= list(2,V385,V386);
2296          V368= make_cons(/* INLINE-ARGS */V367,Cnil);          V392= make_cons(/* INLINE-ARGS */V391,Cnil);
2297          V335= nconc((V335),/* INLINE-ARGS */V368);}          V354= nconc((V354),/* INLINE-ARGS */V392);}
2298          goto T652;}}          goto T652;}}
2299          goto T652;          goto T652;
2300  T652:;  T652:;
2301          V338= CMPcdr((V338));          V357= CMPcdr((V357));
2302          V339= CMPcar((V338));          V358= CMPcar((V357));
2303          goto T647;}          goto T647;}
2304          goto T640;          goto T640;
2305  T640:;  T640:;
2306          base[0]= (V331);          base[0]= (V350);
2307          base[1]= (V332);          base[1]= (V351);
2308          base[2]= (V333);          base[2]= (V352);
2309          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2310          (void) (*Lnk171)();          (void) (*Lnk171)();
2311          vs_top=sup;          vs_top=sup;
2312          V331= vs_base[0];          V350= vs_base[0];
2313          if(!(((V331))==(VV[13]))){          if(!(((V350))==(VV[13]))){
2314          goto T756;}          goto T756;}
2315          {object V369 = Cnil;          {object V393 = Cnil;
2316          VMR27(V369)}          VMR27(V393)}
2317          goto T756;          goto T756;
2318  T756:;  T756:;
2319          if((V337)==Cnil){          if((V356)==Cnil){
2320          V370= Cnil;          V394= Cnil;
2321          goto T758;}          goto T758;}
2322          V371= make_cons(VV[19],(V337));          V395= make_cons(VV[19],(V356));
2323          V370= make_cons(/* INLINE-ARGS */V371,Cnil);          V394= make_cons(/* INLINE-ARGS */V395,Cnil);
2324          goto T758;          goto T758;
2325  T758:;  T758:;
2326          if((CMPcdr((V336)))!=Cnil){          V396 = (V350);
2327            if((CMPcdr((V355)))!=Cnil){
2328          goto T761;}          goto T761;}
2329          V372= CMPcar((V336));          V397= CMPcar((V355));
2330          goto T759;          goto T759;
2331          goto T761;          goto T761;
2332  T761:;  T761:;
2333          V373= reverse((V336));          V398= reverse((V355));
2334          V372= make_cons(VV[31],/* INLINE-ARGS */V373);          V397= make_cons(VV[31],/* INLINE-ARGS */V398);
2335          goto T759;          goto T759;
2336  T759:;  T759:;
2337          V374= list(2,(V331),V372);          V399= list(2,V396,V397);
2338          {object V375 = listA(3,VV[1],(V335),append(V370,/* INLINE-ARGS */V374));          {object V400 = listA(3,VV[1],(V354),append(V394,/* INLINE-ARGS */V399));
2339          VMR27(V375)}}          VMR27(V400)}}
2340          base[0]=base[0];          base[0]=base[0];
2341          return Cnil;          return Cnil;
2342  }  }
2343  /*      local entry for function RENAME-AND-CAPTURE-VARIABLES   */  /*      local entry for function RENAME-AND-CAPTURE-VARIABLES   */
2344    
2345  static object LI30(V379,V380,V381)  static object LI30(V404,V405,V406)
2346    
2347  object V379;object V380;object V381;  object V404;object V405;object V406;
2348  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
2349          goto TTL;          goto TTL;
2350  TTL:;  TTL:;
2351          base[0]=MMcons((V381),Cnil);          base[0]=MMcons((V406),Cnil);
2352          base[1]=MMcons((V380),base[0]);          base[1]=MMcons((V405),base[0]);
2353          base[2]=MMcons(Cnil,base[1]);          base[2]=MMcons(Cnil,base[1]);
2354          base[3]= (V379);          base[3]= (V404);
2355          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
2356          base[5]=          base[5]=
2357          make_cclosure_new(LC40,Cnil,base[2],Cdata);          make_cclosure_new(LC40,Cnil,base[2],Cdata);
2358          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2359          (void) (*Lnk139)();          (void) (*Lnk139)();
2360          vs_top=sup;          vs_top=sup;
2361          V382= vs_base[0];          V407= vs_base[0];
2362          {object V383 = list(2,V382,(base[2]->c.c_car));          V408 = (base[2]->c.c_car);
2363          VMR28(V383)}          {object V409 = list(2,V407,V408);
2364            VMR28(V409)}
2365          base[0]=base[0];          base[0]=base[0];
2366          return Cnil;          return Cnil;
2367  }  }
# Line 2346  static void L31() Line 2372  static void L31()
2372          register object *VOL sup=base+VM29; VC29          register object *VOL sup=base+VM29; VC29
2373          vs_check;          vs_check;
2374          bds_check;          bds_check;
2375          {VOL object V384;          {VOL object V410;
2376          check_arg(3);          check_arg(3);
2377          V384=(base[0]);          V410=(base[0]);
2378          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
2379          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
2380          vs_top=sup;          vs_top=sup;
# Line 2359  static void L31() Line 2385  static void L31()
2385          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
2386          return;}          return;}
2387          else{          else{
2388          {object V386;          {object V412;
2389          object V387= (base[2]->c.c_car);          object V413= (base[2]->c.c_car);
2390          if(V387==Cnil){          if(V413==Cnil){
2391          V385= Cnil;          V411= Cnil;
2392          goto T768;}          goto T768;}
2393          base[5]=V386=MMcons(Cnil,Cnil);          base[5]=V412=MMcons(Cnil,Cnil);
2394          goto T769;          goto T769;
2395  T769:;  T769:;
2396          (V386->c.c_car)= CMPcar((V387->c.c_car));          (V412->c.c_car)= CMPcar((V413->c.c_car));
2397          if((V387=MMcdr(V387))==Cnil){          if((V413=MMcdr(V413))==Cnil){
2398          V385= base[5];          V411= base[5];
2399          goto T768;}          goto T768;}
2400          V386=MMcdr(V386)=MMcons(Cnil,Cnil);          V412=MMcdr(V412)=MMcons(Cnil,Cnil);
2401          goto T769;}          goto T769;}
2402          goto T768;          goto T768;
2403  T768:;  T768:;
2404          base[4]= nconc(V385,(VV[98]->s.s_dbind));          V414 = (VV[98]->s.s_dbind);
2405            base[4]= nconc(V411,V414);
2406          bds_bind(VV[98],base[4]);          bds_bind(VV[98],base[4]);
2407          base[5]= make_cons(VV[20],(V384));          base[5]= make_cons(VV[20],(V410));
2408          base[6]= (base[1]->c.c_car);          base[6]= (base[1]->c.c_car);
2409          base[7]=          base[7]=
2410          make_cclosure_new(LC41,Cnil,base[3],Cdata);          make_cclosure_new(LC41,Cnil,base[3],Cdata);
# Line 2397  static void L32() Line 2424  static void L32()
2424          vs_check;          vs_check;
2425          check_arg(2);          check_arg(2);
2426          vs_top=sup;          vs_top=sup;
2427          {object V388=base[0]->c.c_cdr;          {object V415=base[0]->c.c_cdr;
2428          {object V389=getf(V388,VV[172],OBJNULL);          {object V416=getf(V415,VV[172],OBJNULL);
2429          if(V389==OBJNULL){          if(V416==OBJNULL){
2430          base[2]= Cnil;} else {          base[2]= Cnil;} else {
2431          base[2]= V389;          base[2]= V416;
2432          }}          }}
2433          check_other_key(V388,1,VV[172]);}          check_other_key(V415,1,VV[172]);}
2434          V390= list(2,VV[108],base[2]);          V417= list(2,VV[108],base[2]);
2435          if(base[2]==Cnil){          if(base[2]==Cnil){
2436          V391= Cnil;          V418= Cnil;
2437          goto T775;}          goto T775;}
2438          V391= VV[109];          V418= VV[109];
2439          goto T775;          goto T775;
2440  T775:;  T775:;
2441          base[3]= list(3,VV[1],list(2,/* INLINE-ARGS */V390,list(2,VV[54],V391)),VV[110]);          base[3]= list(3,VV[1],list(2,/* INLINE-ARGS */V417,list(2,VV[54],V418)),VV[110]);
2442          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2443          return;          return;
2444  }  }
# Line 2423  static void L33() Line 2450  static void L33()
2450          vs_check;          vs_check;
2451          check_arg(2);          check_arg(2);
2452          vs_top=sup;          vs_top=sup;
2453          {object V392=base[0]->c.c_cdr;          {object V419=base[0]->c.c_cdr;
2454          {object V393=getf(V392,VV[172],OBJNULL);          {object V420=getf(V419,VV[172],OBJNULL);
2455          if(V393==OBJNULL){          if(V420==OBJNULL){
2456          base[2]= Cnil;} else {          base[2]= Cnil;} else {
2457          base[2]= V393;          base[2]= V420;
2458          }}          }}
2459          check_other_key(V392,1,VV[172]);}          check_other_key(V419,1,VV[172]);}
2460          V394= list(2,VV[111],base[2]);          V421= list(2,VV[111],base[2]);
2461          base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V394,Cnil),VV[112]);          base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V421,Cnil),VV[112]);
2462          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2463          return;          return;
2464  }  }
# Line 2443  static void L34() Line 2470  static void L34()
2470          vs_check;          vs_check;
2471          check_arg(2);          check_arg(2);
2472          vs_top=sup;          vs_top=sup;
2473          {object V395=base[0]->c.c_cdr;          {object V422=base[0]->c.c_cdr;
2474          {object V396=getf(V395,VV[172],OBJNULL);          {object V423=getf(V422,VV[172],OBJNULL);
2475          if(V396==OBJNULL){          if(V423==OBJNULL){
2476          base[2]= Cnil;} else {          base[2]= Cnil;} else {
2477          base[2]= V396;          base[2]= V423;
2478          }}          }}
2479          check_other_key(V395,1,VV[172]);}          check_other_key(V422,1,VV[172]);}
2480          V397= list(2,VV[111],base[2]);          V424= list(2,VV[111],base[2]);
2481          V398= make_cons(/* INLINE-ARGS */V397,Cnil);          V425= make_cons(/* INLINE-ARGS */V424,Cnil);
2482          base[3]= base[2];          base[3]= base[2];
2483          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2484          Lconstantp();          Lconstantp();
# Line 2464  static void L34() Line 2491  static void L34()
2491          vs_top=sup;          vs_top=sup;
2492          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2493          goto T780;}          goto T780;}
2494          V399= VV[114];          V426= VV[114];
2495          goto T778;          goto T778;
2496          goto T780;          goto T780;
2497  T780:;  T780:;
2498          V399= VV[115];          V426= VV[115];
2499          goto T778;          goto T778;
2500  T778:;  T778:;
2501          base[3]= list(3,VV[18],/* INLINE-ARGS */V398,list(3,VV[31],list(2,VV[5],list(3,VV[6],VV[113],list(3,VV[86],V399,VV[116]))),VV[117]));          base[3]= list(3,VV[18],/* INLINE-ARGS */V425,list(3,VV[31],list(2,VV[5],list(3,VV[6],VV[113],list(3,VV[86],V426,VV[116]))),VV[117]));
2502          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2503          return;          return;
2504  }  }
# Line 2483  static void L35() Line 2510  static void L35()
2510          vs_check;          vs_check;
2511          check_arg(2);          check_arg(2);
2512          vs_top=sup;          vs_top=sup;
2513          {object V400=base[0]->c.c_cdr;          {object V427=base[0]->c.c_cdr;
2514          {object V401=getf(V400,VV[172],OBJNULL);          {object V428=getf(V427,VV[172],OBJNULL);
2515          if(V401==OBJNULL){          if(V428==OBJNULL){
2516          base[2]= Cnil;} else {          base[2]= Cnil;} else {
2517          base[2]= V401;          base[2]= V428;
2518          }}          }}
2519          check_other_key(V400,1,VV[172]);}          check_other_key(V427,1,VV[172]);}
2520          V402= list(2,VV[111],base[2]);          V429= list(2,VV[111],base[2]);
2521          V403= make_cons(/* INLINE-ARGS */V402,Cnil);          V430= make_cons(/* INLINE-ARGS */V429,Cnil);
2522          base[3]= base[2];          base[3]= base[2];
2523          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2524          Lconstantp();          Lconstantp();
# Line 2504  static void L35() Line 2531  static void L35()
2531          vs_top=sup;          vs_top=sup;
2532          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2533          goto T789;}          goto T789;}
2534          V404= VV[119];          V431= VV[119];
2535          goto T787;          goto T787;
2536          goto T789;          goto T789;
2537  T789:;  T789:;
2538          V404= VV[120];          V431= VV[120];
2539          goto T787;          goto T787;
2540  T787:;  T787:;
2541          base[3]= list(3,VV[18],/* INLINE-ARGS */V403,list(3,VV[31],list(2,VV[5],list(3,VV[6],VV[118],list(3,VV[86],V404,VV[121]))),VV[122]));          base[3]= list(3,VV[18],/* INLINE-ARGS */V430,list(3,VV[31],list(2,VV[5],list(3,VV[6],VV[118],list(3,VV[86],V431,VV[121]))),VV[122]));
2542          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2543          return;          return;
2544  }  }
# Line 2523  static void L36() Line 2550  static void L36()
2550          vs_check;          vs_check;
2551          check_arg(2);          check_arg(2);
2552          vs_top=sup;          vs_top=sup;
2553          {object V405=base[0]->c.c_cdr;          {object V432=base[0]->c.c_cdr;
2554          {object V406=getf(V405,VV[172],OBJNULL);          {object V433=getf(V432,VV[172],OBJNULL);
2555          if(V406==OBJNULL){          if(V433==OBJNULL){
2556          base[2]= small_fixnum(0);} else {          base[2]= small_fixnum(0);} else {
2557          base[2]= V406;          base[2]= V433;
2558          }}          }}
2559          check_other_key(V405,1,VV[172]);}          check_other_key(V432,1,VV[172]);}
2560          V407= list(2,VV[123],base[2]);          V434= list(2,VV[123],base[2]);
2561          base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V407,Cnil),VV[124]);          base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V434,Cnil),VV[124]);
2562          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2563          return;          return;
2564  }  }
# Line 2542  register object *base0; Line 2569  register object *base0;
2569  {       register object *base=vs_base;  {       register object *base=vs_base;
2570          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
2571          vs_check;          vs_check;
2572          {register object V408;          {register object V435;
2573          object V409;          object V436;
2574          register object V410;          register object V437;
2575          check_arg(3);          check_arg(3);
2576          V408=(base[0]);          V435=(base[0]);
2577          V409=(base[1]);          V436=(base[1]);
2578          V410=(base[2]);          V437=(base[2]);
2579          vs_top=sup;          vs_top=sup;
2580          {register object V411;          {register object V438;
2581          register object V412;          register object V439;
2582          V411= Cnil;          V438= Cnil;
2583          V412= Cnil;          V439= Cnil;
2584          if(!(type_of((V408))==t_cons)){          if(!(type_of((V435))==t_cons)){
2585          goto T797;}          goto T797;}
2586          if((CMPcar((V408)))==(VV[99])){          if((CMPcar((V435)))==(VV[99])){
2587          goto T800;}          goto T800;}
2588          if(!((CMPcar((V408)))==(VV[5]))){          if(!((CMPcar((V435)))==(VV[5]))){
2589          goto T802;}          goto T802;}
2590          if(!((CMPcadr((V408)))==(VV[99]))){          if(!((CMPcadr((V435)))==(VV[99]))){
2591          goto T802;}          goto T802;}
2592          (void)((VFUN_NARGS=2,(*(LnkLI129))(VV[16],VV[100])));          (void)((VFUN_NARGS=2,(*(LnkLI129))(VV[16],VV[100])));
2593          {frame_ptr fr;          {frame_ptr fr;
# Line 2571  register object *base0; Line 2598  register object *base0;
2598          unwind(fr,Cnil);}          unwind(fr,Cnil);}
2599          goto T802;          goto T802;
2600  T802:;  T802:;
2601          base[3]= (V408);          base[3]= (V435);
2602          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2603          return;          return;
2604          goto T800;          goto T800;
2605  T800:;  T800:;
2606          if((CMPcddr((V408)))!=Cnil){          if((CMPcddr((V435)))!=Cnil){
2607          goto T815;}          goto T815;}
2608          V412= VV[90];          V439= VV[90];
2609          goto T813;          goto T813;
2610          goto T815;          goto T815;
2611  T815:;  T815:;
2612          V412= CMPcaddr((V408));          V439= CMPcaddr((V435));
2613          goto T813;          goto T813;
2614  T813:;  T813:;
2615          {register object x= (V412),V413= (base0[1]->c.c_car);          V441 = (V439);
2616          while(V413!=Cnil)          V442 = (base0[1]->c.c_car);
2617          if(eql(x,V413->c.c_car->c.c_car) &&V413->c.c_car != Cnil){          {register object x= V441,V440= V442;
2618          V411= (V413->c.c_car);          while(V440!=Cnil)
2619            if(eql(x,V440->c.c_car->c.c_car) &&V440->c.c_car != Cnil){
2620            V438= (V440->c.c_car);
2621          goto T812;          goto T812;
2622          }else V413=V413->c.c_cdr;          }else V440=V440->c.c_cdr;
2623          V411= Cnil;}          V438= Cnil;}
2624          goto T812;          goto T812;
2625  T812:;  T812:;
2626          if(((V411))==Cnil){          if(((V438))==Cnil){
2627          goto T810;}          goto T810;}
2628          if((CMPcdddr((V408)))==Cnil){          if((CMPcdddr((V435)))==Cnil){
2629          goto T817;}          goto T817;}
2630          base[3]= VV[101];          base[3]= VV[101];
2631          base[4]= (V408);          base[4]= (V435);
2632          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2633          (void) (*Lnk126)();          (void) (*Lnk126)();
2634          vs_top=sup;          vs_top=sup;
2635          goto T817;          goto T817;
2636  T817:;  T817:;
2637          {object V414;          {object V443;
2638          V414= CMPcadr((V411));          V443= CMPcadr((V438));
2639          if(!(type_of((V414))==t_symbol)){          if(!(type_of((V443))==t_symbol)){
2640          goto T824;}          goto T824;}
2641          base[3]= list(3,VV[4],list(2,VV[102],(V414)),CMPcadr((V408)));          base[3]= list(3,VV[4],list(2,VV[102],(V443)),CMPcadr((V435)));
2642          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2643          return;          return;
2644          goto T824;          goto T824;
2645  T824:;  T824:;
2646          {register object V415;          {register object V444;
2647          register object V416;          register object V445;
2648          V415= CMPcaddr((V411));          V444= CMPcaddr((V438));
2649          V416= CMPcar((V415));          V445= CMPcar((V444));
2650          goto T830;          goto T830;
2651  T830:;  T830:;
2652          if(!(((V415))==Cnil)){          if(!(((V444))==Cnil)){
2653          goto T831;}          goto T831;}
2654          goto T826;          goto T826;
2655          goto T831;          goto T831;
2656  T831:;  T831:;
2657          if(((*(LnkLI173))((V416),(V410),(base0[2]->c.c_car)))!=Cnil){          if(((*(LnkLI173))((V445),(V437),(base0[2]->c.c_car)))!=Cnil){
2658          goto T835;}          goto T835;}
2659          if(((*(LnkLI174))((V416),(V410)))==Cnil){          if(((*(LnkLI174))((V445),(V437)))==Cnil){
2660          goto T836;}          goto T836;}
2661          if(((*(LnkLI174))((V416),(base0[2]->c.c_car)))!=Cnil){          if(((*(LnkLI174))((V445),(base0[2]->c.c_car)))!=Cnil){
2662          goto T835;}          goto T835;}
2663          goto T836;          goto T836;
2664  T836:;  T836:;
2665          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[103],(V416))));          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[103],(V445))));
2666          {frame_ptr fr;          {frame_ptr fr;
2667          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
2668          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[171]);          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[171]);
# Line 2642  T836:; Line 2671  T836:;
2671          unwind(fr,Cnil);}          unwind(fr,Cnil);}
2672          goto T835;          goto T835;
2673  T835:;  T835:;
2674          V415= CMPcdr((V415));          V444= CMPcdr((V444));
2675          V416= CMPcar((V415));          V445= CMPcar((V444));
2676          goto T830;}          goto T830;}
2677          goto T826;          goto T826;
2678  T826:;  T826:;
2679          base[3]= list(2,(V414),CMPcadr((V408)));          base[3]= list(2,(V443),CMPcadr((V435)));
2680          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2681          return;}          return;}
2682          goto T810;          goto T810;
2683  T810:;  T810:;
2684          {register object x= (V412),V417= (VV[98]->s.s_dbind);          {register object x= (V439),V446= (VV[98]->s.s_dbind);
2685          while(V417!=Cnil)          while(V446!=Cnil)
2686          if(eql(x,V417->c.c_car)){          if(eql(x,V446->c.c_car)){
2687          V411= V417;          V438= V446;
2688          goto T853;          goto T853;
2689          }else V417=V417->c.c_cdr;          }else V446=V446->c.c_cdr;
2690          V411= Cnil;}          V438= Cnil;}
2691          goto T853;          goto T853;
2692  T853:;  T853:;
2693          if(((V411))==Cnil){          if(((V438))==Cnil){
2694          goto T850;}          goto T850;}
2695          if(((V412))==(VV[90])){          if(((V439))==(VV[90])){
2696          goto T849;}          goto T849;}
2697          if(((*(LnkLI173))((V412),(V410),CMPcadddr((V411))))==Cnil){          if(((*(LnkLI173))((V439),(V437),CMPcadddr((V438))))==Cnil){
2698          goto T850;}          goto T850;}
2699          goto T849;          goto T849;
2700  T849:;  T849:;
2701          base[3]= (V408);          base[3]= (V435);
2702          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2703          return;          return;
2704          goto T850;          goto T850;
2705  T850:;  T850:;
2706          if(!(((V412))==(VV[90]))){          if(!(((V439))==(VV[90]))){
2707          goto T859;}          goto T859;}
2708          base[3]= VV[104];          base[3]= VV[104];
2709          base[4]= (V408);          base[4]= (V435);
2710          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2711          (void) (*Lnk126)();          (void) (*Lnk126)();
2712          vs_top=sup;          vs_top=sup;
# Line 2685  T850:; Line 2714  T850:;
2714          goto T859;          goto T859;
2715  T859:;  T859:;
2716          base[3]= VV[105];          base[3]= VV[105];
2717          base[4]= (V412);          base[4]= (V439);
2718          base[5]= (V408);          base[5]= (V435);
2719          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2720          (void) (*Lnk126)();          (void) (*Lnk126)();
2721          vs_top=sup;          vs_top=sup;
2722          goto T857;          goto T857;
2723  T857:;  T857:;
2724          base[3]= make_cons(VV[106],CMPcdr((V408)));          base[3]= make_cons(VV[106],CMPcdr((V435)));
2725          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2726          return;          return;
2727          goto T797;          goto T797;
2728  T797:;  T797:;
2729          if(!(type_of((V408))==t_symbol)){          if(!(type_of((V435))==t_symbol)){
2730          goto T867;}          goto T867;}
2731          {register object x= (V408),V418= (base0[1]->c.c_car);          {register object x= (V435),V447= (base0[1]->c.c_car);
2732          while(V418!=Cnil)          while(V447!=Cnil)
2733          if(eql(x,V418->c.c_car->c.c_car) &&V418->c.c_car != Cnil){          if(eql(x,V447->c.c_car->c.c_car) &&V447->c.c_car != Cnil){
2734          V411= (V418->c.c_car);          V438= (V447->c.c_car);
2735          goto T872;          goto T872;
2736          }else V418=V418->c.c_cdr;          }else V447=V447->c.c_cdr;
2737          V411= Cnil;}          V438= Cnil;}
2738          goto T872;          goto T872;
2739  T872:;  T872:;
2740          if(((V411))==Cnil){          if(((V438))==Cnil){
2741          goto T867;}          goto T867;}
2742          if(((*(LnkLI173))((V408),(V410),(base0[2]->c.c_car)))==Cnil){          if(((*(LnkLI173))((V435),(V437),(base0[2]->c.c_car)))==Cnil){
2743          goto T867;}          goto T867;}
2744          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[107],(V408))));          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[107],(V435))));
2745          {frame_ptr fr;          {frame_ptr fr;
2746          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
2747          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[171]);          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[171]);
# Line 2721  T872:; Line 2750  T872:;
2750          unwind(fr,Cnil);}          unwind(fr,Cnil);}
2751          goto T867;          goto T867;
2752  T867:;  T867:;
2753          base[3]= (V408);          base[3]= (V435);
2754          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2755          return;}          return;}
2756          }          }
# Line 2733  register object *base0; Line 2762  register object *base0;
2762  {       register object *base=vs_base;  {       register object *base=vs_base;
2763          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2764          vs_check;          vs_check;
2765          {register object V419;          {register object V448;
2766          object V420;          object V449;
2767          object V421;          object V450;
2768          check_arg(3);          check_arg(3);
2769          V419=(base[0]);          V448=(base[0]);
2770          V420=(base[1]);          V449=(base[1]);
2771          V421=(base[2]);          V450=(base[2]);
2772          vs_top=sup;          vs_top=sup;
2773          {object V422;          {object V451;
2774          V422= Cnil;          V451= Cnil;
2775          if(!(type_of((V419))==t_symbol)){          if(!(type_of((V448))==t_symbol)){
2776          goto T876;}          goto T876;}
2777          if(((*(LnkLI173))((V419),(V421),(base0[2]->c.c_car)))!=Cnil){          if(((*(LnkLI173))((V448),(V450),(base0[2]->c.c_car)))!=Cnil){
2778          goto T877;}          goto T877;}
2779          goto T876;          goto T876;
2780  T876:;  T876:;
2781          base[3]= (V419);          base[3]= (V448);
2782          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2783          return;          return;
2784          goto T877;          goto T877;
2785  T877:;  T877:;
2786          {register object x= (V419),V423= (base0[1]->c.c_car);          {register object x= (V448),V452= (base0[1]->c.c_car);
2787          while(V423!=Cnil)          while(V452!=Cnil)
2788          if(eql(x,V423->c.c_car->c.c_car) &&V423->c.c_car != Cnil){          if(eql(x,V452->c.c_car->c.c_car) &&V452->c.c_car != Cnil){
2789          V422= (V423->c.c_car);          V451= (V452->c.c_car);
2790          goto T884;          goto T884;
2791          }else V423=V423->c.c_cdr;          }else V452=V452->c.c_cdr;
2792          V422= Cnil;}          V451= Cnil;}
2793          goto T884;          goto T884;
2794  T884:;  T884:;
2795          if(((V422))==Cnil){          if(((V451))==Cnil){
2796          goto T882;}          goto T882;}
2797          base[3]= CMPcdr((V422));          base[3]= CMPcdr((V451));
2798          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2799          return;          return;
2800          goto T882;          goto T882;
2801  T882:;  T882:;
2802          base[3]= V419;          base[3]= V448;
2803          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
2804          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2805          Ladjoin();          Ladjoin();
2806          vs_top=sup;          vs_top=sup;
2807          (base0[0]->c.c_car)= vs_base[0];          (base0[0]->c.c_car)= vs_base[0];
2808          base[3]= (V419);          base[3]= (V448);
2809          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2810          return;}          return;}
2811          }          }
# Line 2788  register object *base0; Line 2817  register object *base0;
2817  {       register object *base=vs_base;  {       register object *base=vs_base;
2818          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
2819          vs_check;          vs_check;
2820          {register object V425;          {register object V454;
2821          object V426;          object V455;
2822          object V427;          object V456;
2823          check_arg(3);          check_arg(3);
2824          V425=(base[0]);          V454=(base[0]);
2825          V426=(base[1]);          V455=(base[1]);
2826          V427=(base[2]);          V456=(base[2]);
2827          vs_top=sup;          vs_top=sup;
2828          {object V428;          {object V457;
2829          V428= Cnil;          V457= Cnil;
2830          if(!(type_of((V425))==t_symbol)){          if(!(type_of((V454))==t_symbol)){
2831          goto T890;}          goto T890;}
2832          {register object x= (V425),V429= (base0[1]->c.c_car);          {register object x= (V454),V458= (base0[1]->c.c_car);
2833          while(V429!=Cnil)          while(V458!=Cnil)
2834          if(eql(x,V429->c.c_car->c.c_car) &&V429->c.c_car != Cnil){          if(eql(x,V458->c.c_car->c.c_car) &&V458->c.c_car != Cnil){
2835          V428= (V429->c.c_car);          V457= (V458->c.c_car);
2836          goto T895;          goto T895;
2837          }else V429=V429->c.c_cdr;          }else V458=V458->c.c_cdr;
2838          V428= Cnil;}          V457= Cnil;}
2839          goto T895;          goto T895;
2840  T895:;  T895:;
2841          if(((V428))==Cnil){          if(((V457))==Cnil){
2842          goto T890;}          goto T890;}
2843          if(((*(LnkLI173))((V425),(V427),(base0[0]->c.c_car)))==Cnil){          if(((*(LnkLI173))((V454),(V456),(base0[0]->c.c_car)))==Cnil){
2844          goto T890;}          goto T890;}
2845          base[3]= CMPcdr((V428));          base[3]= CMPcdr((V457));
2846          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2847          return;          return;
2848          goto T890;          goto T890;
2849  T890:;  T890:;
2850          base[3]= (V425);          base[3]= (V454);
2851          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2852          return;}          return;}
2853          }          }
# Line 2830  register object *base0; Line 2859  register object *base0;
2859  {       register object *base=vs_base;  {       register object *base=vs_base;
2860          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
2861          vs_check;          vs_check;
2862          {register object V430;          {register object V459;
2863          object V431;          object V460;
2864          register object V432;          register object V461;
2865          check_arg(3);          check_arg(3);
2866          V430=(base[0]);          V459=(base[0]);
2867          V431=(base[1]);          V460=(base[1]);
2868          V432=(base[2]);          V461=(base[2]);
2869          vs_top=sup;          vs_top=sup;
2870          if(!(type_of((V430))==t_symbol)){          if(!(type_of((V459))==t_symbol)){
2871          goto T898;}          goto T898;}
2872          {object V433;          {object V462;
2873          V433= Cnil;          V462= Cnil;
2874          if(!(((V430))==((base0[4]->c.c_car)))){          if(!(((V459))==((base0[4]->c.c_car)))){
2875          goto T901;}          goto T901;}
2876          if(((*(LnkLI173))((V430),(V432),(base0[6]->c.c_car)))==Cnil){          if(((*(LnkLI173))((V459),(V461),(base0[6]->c.c_car)))==Cnil){
2877          goto T901;}          goto T901;}
2878          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[27],CMPcadr((base0[1]->c.c_car)))));          (void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[27],CMPcadr((base0[1]->c.c_car)))));
2879          {frame_ptr fr;          {frame_ptr fr;
# Line 2855  register object *base0; Line 2884  register object *base0;
2884          unwind(fr,Cnil);}          unwind(fr,Cnil);}
2885          goto T901;          goto T901;
2886  T901:;  T901:;
2887          {register object x= (V430),V434= (base0[5]->c.c_car);          {register object x= (V459),V463= (base0[5]->c.c_car);
2888          while(V434!=Cnil)          while(V463!=Cnil)
2889          if(eql(x,V434->c.c_car->c.c_car) &&V434->c.c_car != Cnil){          if(eql(x,V463->c.c_car->c.c_car) &&V463->c.c_car != Cnil){
2890          V433= (V434->c.c_car);          V462= (V463->c.c_car);
2891          goto T911;          goto T911;
2892          }else V434=V434->c.c_cdr;          }else V463=V463->c.c_cdr;
2893          V433= Cnil;}          V462= Cnil;}
2894          goto T911;          goto T911;
2895  T911:;  T911:;
2896          if(((V433))==Cnil){          if(((V462))==Cnil){
2897          goto T908;}          goto T908;}
2898          if(((*(LnkLI173))((V430),(V432),(base0[6]->c.c_car)))==Cnil){          if(((*(LnkLI173))((V459),(V461),(base0[6]->c.c_car)))==Cnil){
2899          goto T908;}          goto T908;}
2900          base[3]= CMPcdr((V433));          base[3]= CMPcdr((V462));
2901          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2902          return;          return;
2903          goto T908;          goto T908;
2904  T908:;  T908:;
2905          {register object x= (V430),V435= (base0[2]->c.c_car);          {register object x= (V459),V464= (base0[2]->c.c_car);
2906          while(V435!=Cnil)          while(V464!=Cnil)
2907          if(eql(x,V435->c.c_car)){          if(eql(x,V464->c.c_car)){
2908          goto T916;          goto T916;
2909          }else V435=V435->c.c_cdr;          }else V464=V464->c.c_cdr;
2910          goto T914;}          goto T914;}
2911          goto T916;          goto T916;
2912  T916:;  T916:;
2913          if(((*(LnkLI173))((V430),(V432),(base0[6]->c.c_car)))==Cnil){          if(((*(LnkLI173))((V459),(V461),(base0[6]->c.c_car)))==Cnil){
2914          goto T914;}          goto T914;}
2915          (void)((VFUN_NARGS=4,(*(LnkLI129))(VV[16],VV[28],CMPcadr((base0[1]->c.c_car)),(V430))));          (void)((VFUN_NARGS=4,(*(LnkLI129))(VV[16],VV[28],CMPcadr((base0[1]->c.c_car)),(V459))));
2916          {frame_ptr fr;          {frame_ptr fr;
2917          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
2918          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[132]);          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[132]);
# Line 2892  T916:; Line 2921  T916:;
2921          unwind(fr,Cnil);}          unwind(fr,Cnil);}
2922          goto T914;          goto T914;
2923  T914:;  T914:;
2924          base[3]= (V430);          base[3]= (V459);
2925          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2926          return;}          return;}
2927          goto T898;          goto T898;
2928  T898:;  T898:;
2929          if(!(type_of((V430))==t_cons)){          if(!(type_of((V459))==t_cons)){
2930          goto T921;}          goto T921;}
2931          if(!((CMPcar((V430)))==(VV[4]))){          if(!((CMPcar((V459)))==(VV[4]))){
2932          goto T921;}          goto T921;}
2933          if(!((CMPcadr((V430)))==((base0[4]->c.c_car)))){          if(!((CMPcadr((V459)))==((base0[4]->c.c_car)))){
2934          goto T921;}          goto T921;}
2935          if(((*(LnkLI173))(CMPcadr((V430)),(V432),(base0[6]->c.c_car)))==Cnil){          if(((*(LnkLI173))(CMPcadr((V459)),(V461),(base0[6]->c.c_car)))==Cnil){
2936          goto T921;}          goto T921;}
2937          if((CMPcddr((V430)))==Cnil){          if((CMPcddr((V459)))==Cnil){
2938          goto T929;}          goto T929;}
2939          (void)((VFUN_NARGS=4,(*(LnkLI129))(VV[14],VV[29],CMPcadr((base0[1]->c.c_car)),CMPcddr((V430)))));          (void)((VFUN_NARGS=4,(*(LnkLI129))(VV[14],VV[29],CMPcadr((base0[1]->c.c_car)),CMPcddr((V459)))));
2940          goto T929;          goto T929;
2941  T929:;  T929:;
2942          base[3]= (base0[3]->c.c_car);          base[3]= (base0[3]->c.c_car);
# Line 2915  T929:; Line 2944  T929:;
2944          return;          return;
2945          goto T921;          goto T921;
2946  T921:;  T921:;
2947          base[3]= (V430);          base[3]= (V459);
2948          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2949          return;          return;
2950          }          }
# Line 2927  register object *base0; Line 2956  register object *base0;
2956  {       register object *base=vs_base;  {       register object *base=vs_base;
2957          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
2958          vs_check;          vs_check;
2959          {object V436;          {object V465;
2960          check_arg(1);          check_arg(1);
2961          V436=(base[0]);          V465=(base[0]);
2962          vs_top=sup;          vs_top=sup;
2963          {register object x= (V436),V437= VV[25];          {register object x= (V465),V466= VV[25];
2964          while(V437!=Cnil)          while(V466!=Cnil)
2965          if(eql(x,V437->c.c_car)){          if(eql(x,V466->c.c_car)){
2966          base[1]= V437;          base[1]= V466;
2967          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2968          return;          return;
2969          }else V437=V437->c.c_cdr;          }else V466=V466->c.c_cdr;
2970          base[1]= Cnil;          base[1]= Cnil;
2971          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2972          return;}          return;}
# Line 2951  register object *base0; Line 2980  register object *base0;
2980          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
2981          vs_check;          vs_check;
2982          check_arg(0);          check_arg(0);
2983          vs_top=sup;{object V438;          vs_top=sup;{object V467;
2984          {object V439;          {object V468;
2985          V439= CMPcar((base0[0]->c.c_car));          V468= CMPcar((base0[0]->c.c_car));
2986          (base0[0]->c.c_car)= CMPcdr((base0[0]->c.c_car));          (base0[0]->c.c_car)= CMPcdr((base0[0]->c.c_car));
2987          V438= (V439);}          V467= (V468);}
2988          if(V438==Cnil)goto T932;          if(V467==Cnil)goto T932;
2989          base[0]= V438;          base[0]= V467;
2990          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2991          return;          return;
2992          goto T932;          goto T932;
# Line 2976  register object *base0; Line 3005  register object *base0;
3005          check_arg(0);          check_arg(0);
3006          vs_top=sup;          vs_top=sup;
3007          goto TTL;          goto TTL;
3008  TTL:;{object V440;  TTL:;{object V469;
3009          {object V441;          {object V470;
3010          V441= CMPcar((base0[0]->c.c_car));          V470= CMPcar((base0[0]->c.c_car));
3011          (base0[0]->c.c_car)= CMPcdr((base0[0]->c.c_car));          (base0[0]->c.c_car)= CMPcdr((base0[0]->c.c_car));
3012          V440= (V441);}          V469= (V470);}
3013          if(V440==Cnil)goto T937;          if(V469==Cnil)goto T937;
3014          base[0]= V440;          base[0]= V469;
3015          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3016          return;          return;
3017          goto T937;          goto T937;

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

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