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

Diff of /gcl/lsp/gcl_loop.c

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

revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC revision 1.3 by camm, Mon Sep 22 21:57:44 2003 UTC
# Line 7  void init_gcl_loop(){do_init(VV);} Line 7  void init_gcl_loop(){do_init(VV);}
7  static void L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_check;
         check_arg(2);  
11          vs_top=sup;          vs_top=sup;
12          {object V1=base[0]->c.c_cdr;          {object V1=base[0]->c.c_cdr;
13          if(endp(V1))invalid_macro_call();          base[2]= (V1->c.c_car);}
         base[2]= (V1->c.c_car);  
         V1=V1->c.c_cdr;  
         if(!endp(V1))invalid_macro_call();}  
14          base[3]= list(2,VV[0],base[2]);          base[3]= list(2,VV[0],base[2]);
15          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
16          return;          return;
# Line 24  static void L1() Line 20  static void L1()
20  static void L2()  static void L2()
21  {register object *base=vs_base;  {register object *base=vs_base;
22          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
23          vs_reserve(VM2);          vs_check;
24          {object V2;          {object V2;
         if(vs_top-vs_base>1) too_many_arguments();  
25          if(vs_base>=vs_top){vs_top=sup;goto T1;}          if(vs_base>=vs_top){vs_top=sup;goto T1;}
26          V2=(base[0]);          V2=(base[0]);
27          vs_top=sup;          vs_top=sup;
# Line 36  T1:; Line 31  T1:;
31          V2= VV[1];          V2= VV[1];
32          goto T2;          goto T2;
33  T2:;  T2:;
34          if((symbol_value(VV[2]))==Cnil){          if(((VV[2]->s.s_dbind))==Cnil){
35          goto T5;}          goto T5;}
36          base[1]= coerce_to_string((V2));          base[1]= coerce_to_string((V2));
37          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
38          Lgentemp();          Lgensym();
39          return;          return;
40          goto T5;          goto T5;
41  T5:;  T5:;
# Line 54  T5:; Line 49  T5:;
49  static void L3()  static void L3()
50  {register object *base=vs_base;  {register object *base=vs_base;
51          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
52          vs_reserve(VM3);          vs_check;
53          {object V3;          {object V3;
         check_arg(1);  
54          V3=(base[0]);          V3=(base[0]);
55          vs_top=sup;          vs_top=sup;
56          goto TTL;          goto TTL;
# Line 75  TTL:; Line 69  TTL:;
69  static void L4()  static void L4()
70  {register object *base=vs_base;  {register object *base=vs_base;
71          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
72          vs_reserve(VM4);          vs_check;
73          {object V4;          {object V4;
74          object V5;          object V5;
         check_arg(2);  
75          V4=(base[0]);          V4=(base[0]);
76          V5=(base[1]);          V5=(base[1]);
77          vs_top=sup;          vs_top=sup;
# Line 94  TTL:; Line 87  TTL:;
87  static void L5()  static void L5()
88  {register object *base=vs_base;  {register object *base=vs_base;
89          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
90          vs_reserve(VM5);          vs_check;
91          {object V6;          {object V6;
92          object V7;          object V7;
93          object V8;          object V8;
         check_arg(3);  
94          V6=(base[0]);          V6=(base[0]);
95          V7=(base[1]);          V7=(base[1]);
96          V8=(base[2]);          V8=(base[2]);
# Line 115  TTL:; Line 107  TTL:;
107  static void L6()  static void L6()
108  {register object *base=vs_base;  {register object *base=vs_base;
109          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
110          vs_reserve(VM6);          vs_check;
         check_arg(2);  
111          vs_top=sup;          vs_top=sup;
112          {object V9=base[0]->c.c_cdr;          {object V9=base[0]->c.c_cdr;
         if(endp(V9))invalid_macro_call();  
113          {object V10= (V9->c.c_car);          {object V10= (V9->c.c_car);
         if(endp(V10))invalid_macro_call();  
114          base[2]= (V10->c.c_car);          base[2]= (V10->c.c_car);
115          V10=V10->c.c_cdr;          V10=V10->c.c_cdr;
         if(endp(V10))invalid_macro_call();  
116          base[3]= (V10->c.c_car);          base[3]= (V10->c.c_car);
117          V10=V10->c.c_cdr;          V10=V10->c.c_cdr;
118          if(endp(V10)){          if(endp(V10)){
119          base[4]= Cnil;          base[4]= Cnil;
120          } else {          } else {
121          base[4]= (V10->c.c_car);          base[4]= (V10->c.c_car);}}
         V10=V10->c.c_cdr;}  
         if(!endp(V10))invalid_macro_call();}  
122          V9=V9->c.c_cdr;          V9=V9->c.c_cdr;
123          base[5]= V9;}          base[5]= V9;}
124          {object V11;          {object V11;
# Line 153  T14:; Line 139  T14:;
139  static void L7()  static void L7()
140  {register object *base=vs_base;  {register object *base=vs_base;
141          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
142          vs_reserve(VM7);          vs_check;
         check_arg(2);  
143          vs_top=sup;          vs_top=sup;
144          {object V14=base[0]->c.c_cdr;          {object V14=base[0]->c.c_cdr;
         if(endp(V14))invalid_macro_call();  
145          {object V15= (V14->c.c_car);          {object V15= (V14->c.c_car);
         if(endp(V15))invalid_macro_call();  
146          base[2]= (V15->c.c_car);          base[2]= (V15->c.c_car);
147          V15=V15->c.c_cdr;          V15=V15->c.c_cdr;
         if(endp(V15))invalid_macro_call();  
148          base[3]= (V15->c.c_car);          base[3]= (V15->c.c_car);
149          V15=V15->c.c_cdr;          V15=V15->c.c_cdr;
150          if(endp(V15)){          if(endp(V15)){
151          base[4]= Cnil;          base[4]= Cnil;
152          } else {          } else {
153          base[4]= (V15->c.c_car);          base[4]= (V15->c.c_car);}}
         V15=V15->c.c_cdr;}  
         if(!endp(V15))invalid_macro_call();}  
         V14=V14->c.c_cdr;  
         if(endp(V14))invalid_macro_call();  
         base[5]= (V14->c.c_car);  
154          V14=V14->c.c_cdr;          V14=V14->c.c_cdr;
155          if(!endp(V14))invalid_macro_call();}          base[5]= (V14->c.c_car);}
156          base[6]= base[5];          base[6]= base[5];
157          base[7]= base[1];          base[7]= base[1];
158          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
# Line 186  static void L7() Line 163  static void L7()
163          V17= Cnil;          V17= Cnil;
164          if(!(type_of(base[5])==t_cons)){          if(!(type_of(base[5])==t_cons)){
165          goto T20;}          goto T20;}
166          if(!((car(base[5]))==(VV[5]))){          if(!((CMPcar(base[5]))==(VV[5]))){
167          goto T24;}          goto T24;}
168          V18 = make_fixnum((long)length(cdr(base[5])));          V18 = CMPmake_fixnum((long)length(CMPcdr(base[5])));
169          V17= one_minus(V18);          V17= one_minus(V18);
170          goto T20;          goto T20;
171          goto T24;          goto T24;
172  T24:;  T24:;
173          {register object x= car(base[5]),V19= VV[6];          {register object x= CMPcar(base[5]),V19= VV[6];
174          while(!endp(V19))          while(V19!=Cnil)
175          if(eql(x,V19->c.c_car)){          if(eql(x,V19->c.c_car)){
176          goto T28;          goto T28;
177          }else V19=V19->c.c_cdr;          }else V19=V19->c.c_cdr;
178          goto T20;}          goto T20;}
179          goto T28;          goto T28;
180  T28:;  T28:;
181          if((cddr(base[5]))==Cnil){          if((CMPcddr(base[5]))==Cnil){
182          goto T20;}          goto T20;}
183          base[6]= base[5];          base[6]= base[5];
184          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
185          Llast();          Llast();
186          vs_top=sup;          vs_top=sup;
187          V21= vs_base[0];          V21= vs_base[0];
188          {register object x= car(V21),V20= VV[7];          {register object x= CMPcar(V21),V20= VV[7];
189          while(!endp(V20))          while(V20!=Cnil)
190          if(eql(x,V20->c.c_car)){          if(eql(x,V20->c.c_car)){
191          goto T32;          goto T32;
192          }else V20=V20->c.c_cdr;          }else V20=V20->c.c_cdr;
193          goto T20;}          goto T20;}
194          goto T32;          goto T32;
195  T32:;  T32:;
196          V22 = make_fixnum((long)length(cdr(base[5])));          V22 = CMPmake_fixnum((long)length(CMPcdr(base[5])));
197          V17= number_minus(V22,small_fixnum(2));          V17= number_minus(V22,small_fixnum(2));
198          goto T20;          goto T20;
199  T20:;  T20:;
# Line 264  T49:; Line 241  T49:;
241  static void L9()  static void L9()
242  {register object *base=vs_base;  {register object *base=vs_base;
243          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
244          vs_reserve(VM8);          vs_check;
         check_arg(2);  
245          vs_top=sup;          vs_top=sup;
246          {object V26=base[0]->c.c_cdr;          {object V26=base[0]->c.c_cdr;
         if(endp(V26))invalid_macro_call();  
247          base[2]= (V26->c.c_car);          base[2]= (V26->c.c_car);
248          V26=V26->c.c_cdr;          V26=V26->c.c_cdr;
249          if(endp(V26)){          if(endp(V26)){
250          base[3]= Cnil;          base[3]= Cnil;
251          } else {          } else {
252          base[3]= (V26->c.c_car);          base[3]= (V26->c.c_car);}}
         V26=V26->c.c_cdr;}  
         if(!endp(V26))invalid_macro_call();}  
253          if(base[3]!=Cnil){          if(base[3]!=Cnil){
254          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
255          return;}          return;}
# Line 289  static void L9() Line 262  static void L9()
262  static void L10()  static void L10()
263  {register object *base=vs_base;  {register object *base=vs_base;
264          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
265          vs_reserve(VM9);          vs_check;
266          {object V27;          {object V27;
267          object V28;          object V28;
268          object V29;          object V29;
# Line 321  static void L10() Line 294  static void L10()
294  static void L11()  static void L11()
295  {register object *base=vs_base;  {register object *base=vs_base;
296          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
297          vs_reserve(VM10);          vs_check;
298          {object V33;          {object V33;
299          object V34;          object V34;
         check_arg(2);  
300          V33=(base[0]);          V33=(base[0]);
301          V34=(base[1]);          V34=(base[1]);
302          vs_top=sup;          vs_top=sup;
# Line 332  static void L11() Line 304  static void L11()
304  TTL:;  TTL:;
305          {object V35;          {object V35;
306          base[2]= (V34);          base[2]= (V34);
307          base[3]= symbol_value(VV[19]);          base[3]= (VV[19]->s.s_dbind);
308          base[4]= VV[20];          base[4]= VV[20];
309          base[5]= symbol_function(VV[326]);          base[5]= (VV[333]->s.s_gfdef);
310          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
311          Lassoc();          Lassoc();
312          vs_top=sup;          vs_top=sup;
313          V36= vs_base[0];          V36= vs_base[0];
314          V35= cdr(V36);          V35= CMPcdr(V36);
315          base[2]= VV[21];          base[2]= VV[21];
316          base[3]= (V33);          base[3]= (V33);
317          base[4]= VV[22];          base[4]= VV[22];
# Line 347  TTL:; Line 319  TTL:;
319          base[6]= VV[23];          base[6]= VV[23];
320          base[8]= VV[24];          base[8]= VV[24];
321          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
322          (void) (*Lnk327)();          (void) (*Lnk334)();
323          vs_top=sup;          vs_top=sup;
324          base[7]= vs_base[0];          base[7]= vs_base[0];
325          base[8]= VV[25];          base[8]= VV[25];
# Line 359  TTL:; Line 331  TTL:;
331  T76:;  T76:;
332          base[10]= VV[26];          base[10]= VV[26];
333          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
334          (void) (*Lnk327)();          (void) (*Lnk334)();
335          vs_top=sup;          vs_top=sup;
336          base[9]= vs_base[0];          base[9]= vs_base[0];
337          goto T75;          goto T75;
# Line 369  T75:; Line 341  T75:;
341          base[12]= VV[28];          base[12]= VV[28];
342          base[13]= (V35);          base[13]= (V35);
343          vs_top=(vs_base=base+2)+12;          vs_top=(vs_base=base+2)+12;
344          (void) (*Lnk328)();          (void) (*Lnk335)();
345          return;}          return;}
346          }          }
347  }  }
# Line 378  T75:; Line 350  T75:;
350  static void L12()  static void L12()
351  {register object *base=vs_base;  {register object *base=vs_base;
352          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
353          vs_reserve(VM11);          vs_check;
354          {object V37;          {object V37;
355          register object V38;          register object V38;
         check_arg(2);  
356          V37=(base[0]);          V37=(base[0]);
357          V38=(base[1]);          V38=(base[1]);
358          vs_top=sup;          vs_top=sup;
# Line 389  static void L12() Line 360  static void L12()
360  TTL:;  TTL:;
361          {object V41;          {object V41;
362          base[3]= V37;          base[3]= V37;
363          base[4]= structure_ref(V38,VV[18],4);          base[4]= STREF(object,V38,16);
364          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
365          Ladjoin();          Ladjoin();
366          vs_top=sup;          vs_top=sup;
367          V41= vs_base[0];          V41= vs_base[0];
368          (void)(structure_set(V38,VV[18],4,(V41)));}          V42= Ct;
369          V42= structure_ref((V38),VV[18],4);          STSET(object,V38,16, (V41));
370          if((cdr(/* INLINE-ARGS */V42))==Cnil){          (void)((V41));}
371            if((CMPcdr(STREF(object,(V38),16)))==Cnil){
372          goto T87;}          goto T87;}
373          if((structure_ref((V38),VV[18],3))!=Cnil){          if((STREF(object,(V38),12))!=Cnil){
374          goto T87;}          goto T87;}
375          base[2]= VV[26];          base[2]= VV[26];
376          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
377          (void) (*Lnk327)();          (void) (*Lnk334)();
378          vs_top=sup;          vs_top=sup;
379          V43= vs_base[0];          V43= vs_base[0];
380          (void)(structure_set((V38),VV[18],3,V43));          V44= Ct;
381            STSET(object,(V38),12, V43);
382            (void)(V43);
383          goto T87;          goto T87;
384  T87:;  T87:;
385          base[2]= (V37);          base[2]= (V37);
# Line 418  T87:; Line 392  T87:;
392  static void L13()  static void L13()
393  {register object *base=vs_base;  {register object *base=vs_base;
394          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
395          vs_reserve(VM12);          vs_check;
         check_arg(2);  
396          vs_top=sup;          vs_top=sup;
397          {object V44=base[0]->c.c_cdr;          {object V45=base[0]->c.c_cdr;
398          if(endp(V44))invalid_macro_call();          base[2]= (V45->c.c_car);
399          base[2]= (V44->c.c_car);          V45=V45->c.c_cdr;
400          V44=V44->c.c_cdr;          base[3]= V45;}
401          base[3]= V44;}          {object V46;
         {object V45;  
         object V46;  
402          object V47;          object V47;
403          register object V48;          object V48;
404          register object V49;          register object V49;
405          object V50;          register object V50;
406          object V51;          object V51;
407          base[4]= structure_ref(base[2],VV[18],1);          object V52;
408            base[4]= STREF(object,base[2],4);
409          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
410          (void) (*Lnk329)();          (void) (*Lnk336)();
411          vs_top=sup;          vs_top=sup;
412          V45= vs_base[0];          V46= vs_base[0];
413          V52= structure_ref(base[2],VV[18],4);          V47= CMPcar(STREF(object,base[2],16));
414          V46= car(/* INLINE-ARGS */V52);          V48= STREF(object,base[2],20);
415          V47= structure_ref(base[2],VV[18],5);          V49= STREF(object,base[2],0);
416          V48= structure_ref(base[2],VV[18],0);          V50= STREF(object,base[2],8);
417          V49= structure_ref(base[2],VV[18],2);          V51= STREF(object,base[2],12);
418          V50= structure_ref(base[2],VV[18],3);          V52= STREF(object,base[2],4);
419          V51= structure_ref(base[2],VV[18],1);          if(((V51))==Cnil){
         if(((V50))==Cnil){  
420          goto T103;}          goto T103;}
421          V53= list(2,(V48),(V45));          V53= list(2,(V49),(V46));
422          V54= list(2,(V49),(V45));          V54= list(2,(V50),(V46));
423          V55= list(3,/* INLINE-ARGS */V53,/* INLINE-ARGS */V54,list(2,(V50),Cnil));          V55= list(3,/* INLINE-ARGS */V53,/* INLINE-ARGS */V54,list(2,(V51),Cnil));
424          base[4]= listA(4,VV[29],/* INLINE-ARGS */V55,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]);          base[4]= listA(4,VV[29],/* INLINE-ARGS */V55,list(2,VV[30],list(4,VV[31],(V52),(V49),(V50))),base[3]);
425          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
426          return;          return;
427          goto T103;          goto T103;
428  T103:;  T103:;
429          if(!(((V46))==(VV[32]))){          if(!(((V47))==(VV[32]))){
430          goto T107;}          goto T107;}
431          V56= car((V47));          V56= CMPcar((V48));
432          goto T105;          goto T105;
433          goto T107;          goto T107;
434  T107:;  T107:;
435          V56= cadr((V47));          V56= CMPcadr((V48));
436          goto T105;          goto T105;
437  T105:;  T105:;
438          V57= list(2,(V48),V56);          V57= list(2,(V49),V56);
439          V58= list(2,/* INLINE-ARGS */V57,list(2,(V49),(V45)));          V58= list(2,/* INLINE-ARGS */V57,list(2,(V50),(V46)));
440          base[4]= listA(4,VV[29],/* INLINE-ARGS */V58,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]);          base[4]= listA(4,VV[29],/* INLINE-ARGS */V58,list(2,VV[30],list(4,VV[31],(V52),(V49),(V50))),base[3]);
441          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
442          return;}          return;}
443  }  }
# Line 475  T105:; Line 446  T105:;
446  static void L14()  static void L14()
447  {register object *base=vs_base;  {register object *base=vs_base;
448          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
449          vs_reserve(VM13);          vs_check;
         check_arg(2);  
450          vs_top=sup;          vs_top=sup;
451          {object V59=base[0]->c.c_cdr;          {object V59=base[0]->c.c_cdr;
         if(endp(V59))invalid_macro_call();  
452          base[2]= (V59->c.c_car);          base[2]= (V59->c.c_car);
453          V59=V59->c.c_cdr;          V59=V59->c.c_cdr;
         if(endp(V59))invalid_macro_call();  
454          base[3]= (V59->c.c_car);          base[3]= (V59->c.c_car);
455          V59=V59->c.c_cdr;          V59=V59->c.c_cdr;
456          if(endp(V59))invalid_macro_call();          base[4]= (V59->c.c_car);}
         base[4]= (V59->c.c_car);  
         V59=V59->c.c_cdr;  
         if(!endp(V59))invalid_macro_call();}  
457          {object V60;          {object V60;
458          object V61;          object V61;
459          register object V62;          register object V62;
460          object V63;          object V63;
461          V60= structure_ref(base[2],VV[18],0);          V60= STREF(object,base[2],0);
462          V61= structure_ref(base[2],VV[18],2);          V61= STREF(object,base[2],8);
463          V62= structure_ref(base[2],VV[18],3);          V62= STREF(object,base[2],12);
464          base[9]= Ct;          base[9]= Ct;
465          base[10]= structure_ref(base[2],VV[18],0);          base[10]= STREF(object,base[2],0);
466          {object V65= base[3];          {object V65= base[3];
467          if((V65!= VV[32]))goto T117;          if((V65!= VV[32]))goto T117;
468          V64= VV[33];          V64= VV[33];
469          goto T116;          goto T116;
470          goto T117;          goto T117;
471  T117:;  T117:;
472          if((V65!= VV[330]))goto T118;          if((V65!= VV[337]))goto T118;
473          V64= VV[34];          V64= VV[34];
474          goto T116;          goto T116;
475          goto T118;          goto T118;
# Line 516  T118:; Line 481  T118:;
481  T116:;  T116:;
482          base[11]= list(3,V64,(V61),(V60));          base[11]= list(3,V64,(V61),(V60));
483          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
484          (void) (*Lnk331)();          (void) (*Lnk338)();
485          vs_top=sup;          vs_top=sup;
486          V63= vs_base[0];          V63= vs_base[0];
487          V66= list(3,VV[11],(V61),base[4]);          V66= list(3,VV[11],(V61),base[4]);
# Line 546  T123:; Line 511  T123:;
511  static void L15()  static void L15()
512  {register object *base=vs_base;  {register object *base=vs_base;
513          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
514          vs_reserve(VM14);          vs_check;
515          {object V71;          {object V71;
516          object V72;          object V72;
         check_arg(2);  
517          V71=(base[0]);          V71=(base[0]);
518          V72=(base[1]);          V72=(base[1]);
519          vs_top=sup;          vs_top=sup;
# Line 574  T124:; Line 538  T124:;
538  static void L16()  static void L16()
539  {register object *base=vs_base;  {register object *base=vs_base;
540          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
541          vs_reserve(VM15);          vs_check;
542          {object V73;          {object V73;
543          object V74;          object V74;
         check_arg(2);  
544          V73=(base[0]);          V73=(base[0]);
545          V74=(base[1]);          V74=(base[1]);
546          vs_top=sup;          vs_top=sup;
# Line 593  T128:; Line 556  T128:;
556          base[2]= (V73);          base[2]= (V73);
557          base[3]= (V74);          base[3]= (V74);
558          base[4]= VV[20];          base[4]= VV[20];
559          base[5]= symbol_function(VV[332]);          base[5]= (VV[339]->s.s_gfdef);
560          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
561          Lassoc();          Lassoc();
562          return;          return;
# Line 604  T128:; Line 567  T128:;
567  static void L17()  static void L17()
568  {register object *base=vs_base;  {register object *base=vs_base;
569          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
570          vs_reserve(VM16);          vs_check;
571          {object V75;          {object V75;
572          object V76;          object V76;
         check_arg(2);  
573          V75=(base[0]);          V75=(base[0]);
574          V76=(base[1]);          V76=(base[1]);
575          vs_top=sup;          vs_top=sup;
# Line 623  T134:; Line 585  T134:;
585          base[2]= (V75);          base[2]= (V75);
586          base[3]= (V76);          base[3]= (V76);
587          base[4]= VV[20];          base[4]= VV[20];
588          base[5]= symbol_function(VV[332]);          base[5]= (VV[339]->s.s_gfdef);
589          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
590          Lmember();          Lmember();
591          return;          return;
# Line 634  T134:; Line 596  T134:;
596  static void L18()  static void L18()
597  {register object *base=vs_base;  {register object *base=vs_base;
598          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
599          vs_reserve(VM17);          vs_check;
600          {object V77;          {object V77;
601          object V78;          object V78;
         check_arg(2);  
602          V77=(base[0]);          V77=(base[0]);
603          V78=(base[1]);          V78=(base[1]);
604          vs_top=sup;          vs_top=sup;
# Line 665  T140:; Line 626  T140:;
626  static void L19()  static void L19()
627  {register object *base=vs_base;  {register object *base=vs_base;
628          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
629          vs_reserve(VM18);          vs_check;
         check_arg(2);  
630          vs_top=sup;          vs_top=sup;
631          {object V79=base[0]->c.c_cdr;          {object V79=base[0]->c.c_cdr;
         if(endp(V79))invalid_macro_call();  
632          base[2]= (V79->c.c_car);          base[2]= (V79->c.c_car);
633          V79=V79->c.c_cdr;          V79=V79->c.c_cdr;
         if(endp(V79))invalid_macro_call();  
634          base[3]= (V79->c.c_car);          base[3]= (V79->c.c_car);
635          V79=V79->c.c_cdr;          V79=V79->c.c_cdr;
636          if(endp(V79))invalid_macro_call();          base[4]= (V79->c.c_car);}
         base[4]= (V79->c.c_car);  
         V79=V79->c.c_cdr;  
         if(!endp(V79))invalid_macro_call();}  
637          base[5]= list(3,VV[9],list(3,VV[37],list(2,VV[38],base[2]),base[3]),base[4]);          base[5]= list(3,VV[9],list(3,VV[37],list(2,VV[38],base[2]),base[3]),base[4]);
638          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
639          return;          return;
# Line 688  static void L19() Line 643  static void L19()
643  static void L20()  static void L20()
644  {register object *base=vs_base;  {register object *base=vs_base;
645          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
646          vs_reserve(VM19);          vs_check;
647          {object V80;          {object V80;
648          object V81;          object V81;
649          object V82;          object V82;
# Line 726  static void L20() Line 681  static void L20()
681  static void L21()  static void L21()
682  {register object *base=vs_base;  {register object *base=vs_base;
683          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
684          vs_reserve(VM20);          vs_check;
685          {object V88;          {object V88;
686          object V89;          object V89;
687          object V90;          object V90;
         check_arg(3);  
688          V88=(base[0]);          V88=(base[0]);
689          V89=(base[1]);          V89=(base[1]);
690          V90=(base[2]);          V90=(base[2]);
# Line 738  static void L21() Line 692  static void L21()
692          goto TTL;          goto TTL;
693  TTL:;  TTL:;
694          {object V91;          {object V91;
695          V93= structure_ref((V88),VV[39],6);          {object V92= STREF(object,(V88),24);
         {object V92= /* INLINE-ARGS */V93;  
696          if((V92!= Cnil))goto T155;          if((V92!= Cnil))goto T155;
697          V91= VV[40];          V91= VV[40];
698          goto T154;          goto T154;
# Line 750  T155:; Line 703  T155:;
703          goto T154;          goto T154;
704          goto T156;          goto T156;
705  T156:;  T156:;
706          if((V92!= VV[307]))goto T157;          if((V92!= VV[314]))goto T157;
707          V91= VV[42];          V91= VV[42];
708          goto T154;          goto T154;
709          goto T157;          goto T157;
710  T157:;  T157:;
711          V91= structure_ref((V88),VV[39],6);}          V91= STREF(object,(V88),24);}
712          goto T154;          goto T154;
713  T154:;  T154:;
714          base[3]= (V89);          base[3]= (V89);
# Line 776  T154:; Line 729  T154:;
729  static void L22()  static void L22()
730  {register object *base=vs_base;  {register object *base=vs_base;
731          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
732          vs_reserve(VM21);          vs_check;
733          bds_check;          bds_check;
734          {object V94;          {object V93;
735            object V94;
736          object V95;          object V95;
737          object V96;          object V96;
738          object V97;          object V97;
739          object V98;          object V98;
740          object V99;          register object V99;
         register object V100;  
741          parse_key(vs_base,FALSE,FALSE,7,VV[53],VV[54],VV[55],VV[56],VV[59],VV[60],VV[57]);          parse_key(vs_base,FALSE,FALSE,7,VV[53],VV[54],VV[55],VV[56],VV[59],VV[60],VV[57]);
742          vs_top=sup;          vs_top=sup;
743          V94=(base[0]);          V93=(base[0]);
744          V95=(base[1]);          V94=(base[1]);
745          V96=(base[2]);          V95=(base[2]);
746          V97=(base[3]);          V96=(base[3]);
747          V98=(base[4]);          V97=(base[4]);
748          V99=(base[5]);          V98=(base[5]);
749          V100=(base[6]);          V99=(base[6]);
750          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
751          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
752          goto T165;          goto T165;
753  T165:;  T165:;
754          base[16]= (V100);          base[16]= (V99);
755          base[17]= VV[46];          base[17]= VV[46];
756          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
757          (void) (*Lnk333)();          (void) (*Lnk340)();
758          vs_top=sup;          vs_top=sup;
759          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
760          goto T166;}          goto T166;}
# Line 813  T166:; Line 766  T166:;
766          base[16]= VV[47];          base[16]= VV[47];
767          base[17]= VV[48];          base[17]= VV[48];
768          base[18]= VV[49];          base[18]= VV[49];
769          base[19]= (V100);          base[19]= (V99);
770          base[20]= VV[46];          base[20]= VV[46];
771          vs_top=(vs_base=base+16)+5;          vs_top=(vs_base=base+16)+5;
772          Lcerror();          Lcerror();
773          vs_top=sup;          vs_top=sup;
774          base[16]= symbol_value(VV[50]);          base[16]= (VV[50]->s.s_dbind);
775          base[17]= VV[51];          base[17]= VV[51];
776          base[18]= VV[49];          base[18]= VV[49];
777          vs_top=(vs_base=base+16)+3;          vs_top=(vs_base=base+16)+3;
778          Lformat();          Lformat();
779          vs_top=sup;          vs_top=sup;
780          base[16]= symbol_value(VV[50]);          base[16]= (VV[50]->s.s_dbind);
781          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
782          Lfinish_output();          Lfinish_output();
783          vs_top=sup;          vs_top=sup;
784          vs_base=vs_top;          vs_base=vs_top;
785          Lread();          Lread();
786          vs_top=sup;          vs_top=sup;
787          V100= vs_base[0];          V99= vs_base[0];
788          base[16]= symbol_value(VV[50]);          base[16]= (VV[50]->s.s_dbind);
789          base[17]= VV[52];          base[17]= VV[52];
790          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
791          Lformat();          Lformat();
# Line 841  T166:; Line 794  T166:;
794          goto T163;          goto T163;
795  T163:;  T163:;
796          base[14]= VV[53];          base[14]= VV[53];
797          base[16]= (V94);          base[16]= (V93);
798          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
799          L23(base);          L23(base);
800          vs_top=sup;          vs_top=sup;
801          base[15]= vs_base[0];          base[15]= vs_base[0];
802          base[16]= VV[54];          base[16]= VV[54];
803          base[18]= (V95);          base[18]= (V94);
804          vs_top=(vs_base=base+18)+1;          vs_top=(vs_base=base+18)+1;
805          L23(base);          L23(base);
806          vs_top=sup;          vs_top=sup;
807          base[17]= vs_base[0];          base[17]= vs_base[0];
808          base[18]= VV[55];          base[18]= VV[55];
809          base[20]= (V96);          base[20]= (V95);
810          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
811          L23(base);          L23(base);
812          vs_top=sup;          vs_top=sup;
813          base[19]= vs_base[0];          base[19]= vs_base[0];
814          base[20]= VV[56];          base[20]= VV[56];
815          base[22]= (V97);          base[22]= (V96);
816          vs_top=(vs_base=base+22)+1;          vs_top=(vs_base=base+22)+1;
817          L23(base);          L23(base);
818          vs_top=sup;          vs_top=sup;
819          base[21]= vs_base[0];          base[21]= vs_base[0];
820          base[22]= VV[57];          base[22]= VV[57];
821          base[23]= (V100);          base[23]= (V99);
822          base[24]= VV[58];          base[24]= VV[58];
823          base[25]= (((((V100))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          base[25]= (((((V99))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
824          base[26]= VV[59];          base[26]= VV[59];
825          base[28]= (V98);          base[28]= (V97);
826          vs_top=(vs_base=base+28)+1;          vs_top=(vs_base=base+28)+1;
827          L23(base);          L23(base);
828          vs_top=sup;          vs_top=sup;
829          base[27]= vs_base[0];          base[27]= vs_base[0];
830          base[28]= VV[60];          base[28]= VV[60];
831          {object V101;          {object V100;
832          object V102;          object V101;
833          V101= make_fixnum((long)length((V99)));          V100= CMPmake_fixnum((long)length((V98)));
834          base[32]= VV[61];          base[32]= VV[61];
835          if(!(number_compare((V101),small_fixnum(10))<0)){          if(!(number_compare((V100),small_fixnum(10))<0)){
836          goto T217;}          goto T217;}
837          base[33]= small_fixnum(10);          base[33]= small_fixnum(10);
838          goto T215;          goto T215;
839          goto T217;          goto T217;
840  T217:;  T217:;
841          base[33]= (V101);          base[33]= (V100);
842          goto T215;          goto T215;
843  T215:;  T215:;
844          base[34]= VV[20];          base[34]= VV[20];
845          base[35]= symbol_function(VV[334]);          base[35]= (VV[341]->s.s_gfdef);
846          vs_top=(vs_base=base+32)+4;          vs_top=(vs_base=base+32)+4;
847          Lmake_hash_table();          Lmake_hash_table();
848          vs_top=sup;          vs_top=sup;
849          V102= vs_base[0];          V101= vs_base[0];
850          {register object V103;          {register object V102;
851          register object V104;          register object V103;
852          V103= (V99);          V102= (V98);
853          V104= car((V103));          V103= CMPcar((V102));
854          goto T225;          goto T225;
855  T225:;  T225:;
856          if(!(endp_prop((V103)))){          if(!(((V102))==Cnil)){
857          goto T226;}          goto T226;}
858          goto T221;          goto T221;
859          goto T226;          goto T226;
860  T226:;  T226:;
861          if(!(type_of((V104))!=t_cons)){          if(!(type_of((V103))!=t_cons)){
862          goto T232;}          goto T232;}
863          base[33]= V104;          base[33]= V103;
864          base[34]= V102;          base[34]= V101;
865          base[35]= V104;          base[35]= V103;
866          vs_top=(vs_base=base+33)+3;          vs_top=(vs_base=base+33)+3;
867          siLhash_set();          siLhash_set();
868          vs_top=sup;          vs_top=sup;
869          goto T230;          goto T230;
870          goto T232;          goto T232;
871  T232:;  T232:;
872          {object V108;          {object V107;
873          object V110;          object V109;
874          V108= car((V104));          V107= CMPcar((V103));
875          V110= cadr((V104));          V109= CMPcadr((V103));
876          base[35]= (V108);          base[35]= (V107);
877          base[36]= V102;          base[36]= V101;
878          base[37]= (V110);          base[37]= (V109);
879          vs_top=(vs_base=base+35)+3;          vs_top=(vs_base=base+35)+3;
880          siLhash_set();          siLhash_set();
881          vs_top=sup;}          vs_top=sup;}
882          goto T230;          goto T230;
883  T230:;  T230:;
884          V103= cdr((V103));          V102= CMPcdr((V102));
885          V104= car((V103));          V103= CMPcar((V102));
886          goto T225;}          goto T225;}
887          goto T221;          goto T221;
888  T221:;  T221:;
889          base[29]= (V102);}          base[29]= (V101);}
890          vs_top=(vs_base=base+14)+16;          vs_top=(vs_base=base+14)+16;
891          (void) (*Lnk335)();          (void) (*Lnk342)();
892          return;          return;
893          }          }
894  }  }
# Line 944  T221:; Line 897  T221:;
897  static void L24()  static void L24()
898  {register object *base=vs_base;  {register object *base=vs_base;
899          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
900          vs_reserve(VM22);          vs_check;
901          {register object V111;          {register object V110;
902          check_arg(1);          V110=(base[0]);
         V111=(base[0]);  
903          vs_top=sup;          vs_top=sup;
904          goto TTL;          goto TTL;
905  TTL:;  TTL:;
906          if((V111)==Cnil){          if((V110)==Cnil){
907          base[1]= Cnil;          base[1]= Cnil;
908          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
909          return;}          return;}
910          V112= car((V111));          V111= CMPcar((V110));
911          if((cddr((V111)))!=Cnil){          if((CMPcddr((V110)))!=Cnil){
912          goto T250;}          goto T250;}
913          V113= cadr((V111));          V112= CMPcadr((V110));
914          goto T248;          goto T248;
915          goto T250;          goto T250;
916  T250:;  T250:;
917          V114= cadr((V111));          V113= CMPcadr((V110));
918          base[2]= cddr((V111));          base[2]= CMPcddr((V110));
919          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
920          (void) (*Lnk336)();          (void) (*Lnk343)();
921          vs_top=sup;          vs_top=sup;
922          V115= vs_base[0];          V114= vs_base[0];
923          V113= list(3,VV[62],/* INLINE-ARGS */V114,V115);          V112= list(3,VV[62],/* INLINE-ARGS */V113,V114);
924          goto T248;          goto T248;
925  T248:;  T248:;
926          base[1]= list(2,/* INLINE-ARGS */V112,V113);          base[1]= list(2,/* INLINE-ARGS */V111,V112);
927          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
928          (void) (*Lnk337)();          (void) (*Lnk344)();
929          return;          return;
930          }          }
931  }  }
# Line 982  T248:; Line 934  T248:;
934  static void L25()  static void L25()
935  {register object *base=vs_base;  {register object *base=vs_base;
936          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
937          vs_reserve(VM23);          vs_check;
938          {object V116;          {object V115;
939          check_arg(1);          V115=(base[0]);
         V116=(base[0]);  
940          vs_top=sup;          vs_top=sup;
941          goto TTL;          goto TTL;
942  TTL:;  TTL:;
943          if(((V116))!=Cnil){          if(((V115))!=Cnil){
944          goto T255;}          goto T255;}
945          base[1]= Cnil;          base[1]= Cnil;
946          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
947          return;          return;
948          goto T255;          goto T255;
949  T255:;  T255:;
950          if((symbol_value(VV[63]))==Cnil){          if(((VV[63]->s.s_dbind))==Cnil){
951          goto T259;}          goto T259;}
952          V117= cadr(symbol_value(VV[63]));          V116= CMPcadr((VV[63]->s.s_dbind));
953          goto T257;          goto T257;
954          goto T259;          goto T259;
955  T259:;  T259:;
956          V117= VV[64];          V116= VV[64];
957          goto T257;          goto T257;
958  T257:;  T257:;
959          base[1]= make_cons(V117,(V116));          base[1]= make_cons(V116,(V115));
960          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
961          return;          return;
962          }          }
# Line 1015  T257:; Line 966  T257:;
966  static void L26()  static void L26()
967  {register object *base=vs_base;  {register object *base=vs_base;
968          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
969          vs_reserve(VM24);          vs_check;
         check_arg(2);  
970          vs_top=sup;          vs_top=sup;
971          {object V118=base[0]->c.c_cdr;          {object V117=base[0]->c.c_cdr;
972          base[2]= V118;}          base[2]= V117;}
973          {register object V119;          {register object V118;
974          V119= Cnil;          V118= Cnil;
975          goto T262;          goto T262;
976  T262:;  T262:;
977          if((base[2])!=Cnil){          if((base[2])!=Cnil){
978          goto T263;}          goto T263;}
979          if((cdr((V119)))!=Cnil){          if((CMPcdr((V118)))!=Cnil){
980          goto T267;}          goto T267;}
981          base[3]= car((V119));          base[3]= CMPcar((V118));
982          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
983          return;          return;
984          goto T267;          goto T267;
985  T267:;  T267:;
986          V120= nreverse((V119));          V119= nreverse((V118));
987          base[3]= make_cons(VV[14],/* INLINE-ARGS */V120);          base[3]= make_cons(VV[14],/* INLINE-ARGS */V119);
988          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
989          return;          return;
990          goto T263;          goto T263;
991  T263:;  T263:;
992            {register object V120;
993            V120= CMPcar(base[2]);
994            base[2]= CMPcdr(base[2]);
995            base[4]= (V120);}
996          {register object V121;          {register object V121;
997          V121= car(base[2]);          V121= CMPcar(base[2]);
998          base[2]= cdr(base[2]);          base[2]= CMPcdr(base[2]);
999          base[4]= (V121);}          base[5]= (V121);}
         {register object V122;  
         V122= car(base[2]);  
         base[2]= cdr(base[2]);  
         base[5]= (V122);}  
1000          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1001          L28(base);          L28(base);
1002          vs_top=sup;          vs_top=sup;
1003          base[3]= vs_base[0];          base[3]= vs_base[0];
1004          base[4]= (V119);          base[4]= (V118);
1005          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1006          Lrevappend();          Lrevappend();
1007          vs_top=sup;          vs_top=sup;
1008          V119= vs_base[0];          V118= vs_base[0];
1009          goto T262;}          goto T262;}
1010  }  }
1011  /*      function definition for LOOP-CONSTANT-FOLD-IF-POSSIBLE  */  /*      function definition for LOOP-CONSTANT-FOLD-IF-POSSIBLE  */
# Line 1063  T263:; Line 1013  T263:;
1013  static void L29()  static void L29()
1014  {register object *base=vs_base;  {register object *base=vs_base;
1015          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
1016          vs_reserve(VM25);          vs_check;
1017          {object V123;          {object V122;
1018          object V124;          object V123;
1019          if(vs_top-vs_base<1) too_few_arguments();          V122=(base[0]);
         if(vs_top-vs_base>2) too_many_arguments();  
         V123=(base[0]);  
1020          vs_base=vs_base+1;          vs_base=vs_base+1;
1021          if(vs_base>=vs_top){vs_top=sup;goto T284;}          if(vs_base>=vs_top){vs_top=sup;goto T284;}
1022          V124=(base[1]);          V123=(base[1]);
1023          vs_top=sup;          vs_top=sup;
1024          goto T285;          goto T285;
1025          goto T284;          goto T284;
1026  T284:;  T284:;
1027          V124= Cnil;          V123= Cnil;
1028          goto T285;          goto T285;
1029  T285:;  T285:;
1030          {register object V126;          {register object V125;
1031          register object V127;          register object V126;
1032            V125= Cnil;
1033          V126= Cnil;          V126= Cnil;
1034          V127= Cnil;          base[2]= V122;
         base[2]= V123;  
1035          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1036          Lconstantp();          Lconstantp();
1037          vs_top=sup;          vs_top=sup;
1038          V126= vs_base[0];          V125= vs_base[0];
1039          if(((V126))==Cnil){          if(((V125))==Cnil){
1040          goto T287;}          goto T287;}
1041          base[2]= V123;          base[2]= V122;
1042          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1043          Leval();          Leval();
1044          vs_top=sup;          vs_top=sup;
1045          V127= vs_base[0];          V126= vs_base[0];
1046          goto T287;          goto T287;
1047  T287:;  T287:;
1048          if(((V126))==Cnil){          if(((V125))==Cnil){
1049          goto T294;}          goto T294;}
1050          if(((V124))==Cnil){          if(((V123))==Cnil){
1051          goto T294;}          goto T294;}
1052          base[2]= (V127);          base[2]= (V126);
1053          base[3]= (V124);          base[3]= (V123);
1054          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1055          (void) (*Lnk333)();          (void) (*Lnk340)();
1056          vs_top=sup;          vs_top=sup;
1057          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1058          goto T294;}          goto T294;}
1059          base[2]= VV[67];          base[2]= VV[67];
1060          base[3]= (V123);          base[3]= (V122);
1061          base[4]= (V127);          base[4]= (V126);
1062          base[5]= (V124);          base[5]= (V123);
1063          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1064          (void) (*Lnk338)();          (void) (*Lnk345)();
1065          vs_top=sup;          vs_top=sup;
1066            V125= Cnil;
1067          V126= Cnil;          V126= Cnil;
         V127= Cnil;  
1068          goto T294;          goto T294;
1069  T294:;  T294:;
1070          base[2]= V123;          base[2]= V122;
1071          base[3]= (V126);          base[3]= (V125);
1072          base[4]= (V127);          base[4]= (V126);
1073          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1074          return;}          return;}
1075          }          }
# Line 1131  T294:; Line 1079  T294:;
1079  static void L30()  static void L30()
1080  {register object *base=vs_base;  {register object *base=vs_base;
1081          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
1082          vs_reserve(VM26);          vs_check;
1083          {object V128;          {object V127;
1084          check_arg(1);          V127=(base[0]);
         V128=(base[0]);  
1085          vs_top=sup;          vs_top=sup;
1086          goto TTL;          goto TTL;
1087  TTL:;  TTL:;
1088          base[1]= (V128);          base[1]= (V127);
1089          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1090          Lconstantp();          Lconstantp();
1091          return;          return;
# Line 1149  TTL:; Line 1096  TTL:;
1096  static void L31()  static void L31()
1097  {register object *base=vs_base;  {register object *base=vs_base;
1098          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
1099          vs_reserve(VM27);          vs_check;
1100          {object V129;          {object V128;
1101          check_arg(1);          V128=(base[0]);
         V129=(base[0]);  
1102          vs_top=sup;          vs_top=sup;
1103          goto TTL;          goto TTL;
1104  TTL:;  TTL:;
1105          {object V130;          {object V129;
1106          object V131;          object V130;
1107          base[1]= (V129);          base[1]= (V128);
1108          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1109          (void) (*Lnk339)();          (void) (*Lnk346)();
1110          if(vs_base>=vs_top){vs_top=sup;goto T317;}          if(vs_base>=vs_top){vs_top=sup;goto T317;}
1111          V130= vs_base[0];          V129= vs_base[0];
1112          vs_base++;          vs_base++;
1113          if(vs_base>=vs_top){vs_top=sup;goto T318;}          if(vs_base>=vs_top){vs_top=sup;goto T318;}
1114          V131= vs_base[0];          V130= vs_base[0];
1115          vs_top=sup;          vs_top=sup;
1116          goto T319;          goto T319;
1117          goto T317;          goto T317;
1118  T317:;  T317:;
1119          V130= Cnil;          V129= Cnil;
1120          goto T318;          goto T318;
1121  T318:;  T318:;
1122          V131= Cnil;          V130= Cnil;
1123          goto T319;          goto T319;
1124  T319:;  T319:;
1125          V132= number_minus((V130),(V131));          V131= number_minus((V129),(V130));
1126          V133= number_times(/* INLINE-ARGS */V132,small_fixnum(10));          V132= number_times(/* INLINE-ARGS */V131,small_fixnum(10));
1127          base[1]= number_plus(small_fixnum(40),/* INLINE-ARGS */V133);          base[1]= number_plus(small_fixnum(40),/* INLINE-ARGS */V132);
1128          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1129          return;}          return;}
1130          }          }
# Line 1188  T319:; Line 1134  T319:;
1134  static void L32()  static void L32()
1135  {register object *base=vs_base;  {register object *base=vs_base;
1136          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
1137          vs_reserve(VM28);          vs_check;
         check_arg(2);  
1138          vs_top=sup;          vs_top=sup;
1139          {object V134=base[0]->c.c_cdr;          {object V133=base[0]->c.c_cdr;
1140          if(endp(V134))invalid_macro_call();          base[2]= (V133->c.c_car);
1141          base[2]= (V134->c.c_car);          V133=V133->c.c_cdr;
1142          V134=V134->c.c_cdr;          base[3]= (V133->c.c_car);
1143          if(endp(V134))invalid_macro_call();          V133=V133->c.c_cdr;
1144          base[3]= (V134->c.c_car);          base[4]= (V133->c.c_car);
1145          V134=V134->c.c_cdr;          V133=V133->c.c_cdr;
1146          if(endp(V134))invalid_macro_call();          base[5]= (V133->c.c_car);
1147          base[4]= (V134->c.c_car);          V133=V133->c.c_cdr;
1148          V134=V134->c.c_cdr;          base[6]= (V133->c.c_car);
         if(endp(V134))invalid_macro_call();  
         base[5]= (V134->c.c_car);  
         V134=V134->c.c_cdr;  
         if(endp(V134))invalid_macro_call();  
         base[6]= (V134->c.c_car);  
         V134=V134->c.c_cdr;  
         if(!endp(V134))invalid_macro_call();  
1149          base[7]= Cnil;          base[7]= Cnil;
1150          base[8]= Cnil;          base[8]= Cnil;
1151          base[9]= Cnil;}          base[9]= Cnil;}
# Line 1221  static void L32() Line 1159  static void L32()
1159  T323:;  T323:;
1160          base[7]= reverse(base[3]);          base[7]= reverse(base[3]);
1161          base[8]= reverse(base[5]);          base[8]= reverse(base[5]);
1162          if((symbol_value(VV[69]))!=Cnil){          if(((VV[69]->s.s_dbind))!=Cnil){
1163          goto T332;}          goto T332;}
1164          if((base[7])!=Cnil){          if((base[7])!=Cnil){
1165          goto T331;}          goto T331;}
# Line 1232  T332:; Line 1170  T332:;
1170          return;          return;
1171          goto T331;          goto T331;
1172  T331:;  T331:;
1173          {register long V135;          {register long V134;
1174          base[10]= base[1];          base[10]= base[1];
1175          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1176          (void) (*Lnk340)();          (void) (*Lnk347)();
1177          vs_top=sup;          vs_top=sup;
1178          V135= fix(vs_base[0]);          V134= fix(vs_base[0]);
1179          goto T339;          goto T339;
1180  T339:;  T339:;
1181          goto T344;          goto T344;
1182  T344:;  T344:;
1183          if((base[7])==Cnil){          if((base[7])==Cnil){
1184          goto T346;}          goto T346;}
1185          if(equal(car(base[7]),car(base[8]))){          if(equal(CMPcar(base[7]),CMPcar(base[8]))){
1186          goto T345;}          goto T345;}
1187          goto T346;          goto T346;
1188  T346:;  T346:;
1189          goto T342;          goto T342;
1190          goto T345;          goto T345;
1191  T345:;  T345:;
1192            {register object V135;
1193          {register object V136;          {register object V136;
1194            V136= CMPcar(base[7]);
1195            base[7]= CMPcdr(base[7]);
1196            V135= (V136);}
1197            base[4]= make_cons((V135),base[4]);}
1198          {register object V137;          {register object V137;
1199          V137= car(base[7]);          V137= CMPcar(base[8]);
1200          base[7]= cdr(base[7]);          base[8]= CMPcdr(base[8]);}
         V136= (V137);}  
         base[4]= make_cons((V136),base[4]);}  
         {register object V138;  
         V138= car(base[8]);  
         base[8]= cdr(base[8]);}  
1201          goto T344;          goto T344;
1202          goto T342;          goto T342;
1203  T342:;  T342:;
# Line 1270  T342:; Line 1208  T342:;
1208          return;          return;
1209          goto T363;          goto T363;
1210  T363:;  T363:;
1211          {register object V139;          {register object V138;
1212            register object V139;
1213          register object V140;          register object V140;
1214          register object V141;          register object V141;
1215          register object V142;          register object V142;
1216          register object V143;          V138= base[7];
1217          V139= base[7];          V139= base[8];
1218          V140= base[8];          V140= Cnil;
1219          V141= Cnil;          V141= small_fixnum(0);
1220          V142= small_fixnum(0);          V142= Cnil;
         V143= Cnil;  
1221          goto T368;          goto T368;
1222  T368:;  T368:;
1223          if(((V139))!=Cnil){          if(((V138))!=Cnil){
1224          goto T369;}          goto T369;}
1225          vs_base=vs_top;          vs_base=vs_top;
1226          L35(base);          L35(base);
1227          return;          return;
1228          goto T369;          goto T369;
1229  T369:;  T369:;
1230          if(equal(car((V139)),car((V140)))){          if(equal(CMPcar((V138)),CMPcar((V139)))){
1231          goto T375;}          goto T375;}
1232          V141= (V139);          V140= (V138);
1233          V142= small_fixnum(0);          V141= small_fixnum(0);
1234          goto T373;          goto T373;
1235          goto T375;          goto T375;
1236  T375:;  T375:;
1237          base[10]= car((V139));          base[10]= CMPcar((V138));
1238          base[11]= base[1];          base[11]= base[1];
1239          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
1240          (void) (*Lnk77)();          (void) (*Lnk77)();
1241          vs_top=sup;          vs_top=sup;
1242          V143= vs_base[0];          V142= vs_base[0];
1243          if(((V143))==Cnil){          if(((V142))==Cnil){
1244          goto T380;}          goto T380;}
1245          V142= number_plus((V142),(V143));          V141= number_plus((V141),(V142));
1246          V144 = make_fixnum(V135);          V143 = CMPmake_fixnum(V134);
1247          if(!(number_compare((V142),V144)>0)){          if(!(number_compare((V141),V143)>0)){
1248          goto T373;}          goto T373;}
1249          goto T380;          goto T380;
1250  T380:;  T380:;
1251          {register object V145;          {register object V144;
1252          register object V146;          register object V145;
1253            V144= Cnil;
1254          V145= Cnil;          V145= Cnil;
         V146= Cnil;  
1255          goto T391;          goto T391;
1256  T391:;  T391:;
1257            {register object V146;
1258          {register object V147;          {register object V147;
1259            V147= CMPcar(base[7]);
1260            base[7]= CMPcdr(base[7]);
1261            V146= (V147);}
1262            V145= make_cons((V146),(V145));}
1263          {register object V148;          {register object V148;
         V148= car(base[7]);  
         base[7]= cdr(base[7]);  
         V147= (V148);}  
         V146= make_cons((V147),(V146));}  
1264          {register object V149;          {register object V149;
1265          {register object V150;          V149= CMPcar(base[8]);
1266          V150= car(base[8]);          base[8]= CMPcdr(base[8]);
1267          base[8]= cdr(base[8]);          V148= (V149);}
1268          V149= (V150);}          V144= make_cons((V148),(V144));}
1269          V145= make_cons((V149),(V145));}          if(!((base[7])==(CMPcdr((V140))))){
         if(!((base[7])==(cdr((V141))))){  
1270          goto T406;}          goto T406;}
1271          goto T389;          goto T389;
1272          goto T406;          goto T406;
# Line 1338  T406:; Line 1276  T406:;
1276  T389:;  T389:;
1277          if((base[9])!=Cnil){          if((base[9])!=Cnil){
1278          goto T411;}          goto T411;}
1279          {register object V151;          {register object V150;
1280          base[9]= symbol_value(VV[70]);          base[9]= (VV[70]->s.s_dbind);
1281          V151= list(3,VV[11],base[9],Ct);          V150= list(3,VV[11],base[9],Ct);
1282          V146= make_cons((V151),(V146));}          V145= make_cons((V150),(V145));}
1283          goto T411;          goto T411;
1284  T411:;  T411:;
1285          {register object V152;          {register object V151;
1286          base[12]= (V145);          base[12]= (V144);
1287          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
1288          L33(base);          L33(base);
1289          vs_top=sup;          vs_top=sup;
# Line 1353  T411:; Line 1291  T411:;
1291          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1292          L34(base);          L34(base);
1293          vs_top=sup;          vs_top=sup;
1294          V153= vs_base[0];          V152= vs_base[0];
1295          base[12]= (V146);          base[12]= (V145);
1296          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
1297          L33(base);          L33(base);
1298          vs_top=sup;          vs_top=sup;
# Line 1362  T411:; Line 1300  T411:;
1300          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1301          L34(base);          L34(base);
1302          vs_top=sup;          vs_top=sup;
1303          V154= vs_base[0];          V153= vs_base[0];
1304          V152= list(4,VV[71],base[9],V153,V154);          V151= list(4,VV[71],base[9],V152,V153);
1305          base[4]= make_cons((V152),base[4]);}}          base[4]= make_cons((V151),base[4]);}}
1306          goto T427;          goto T427;
1307  T427:;  T427:;
1308            {register object V154;
1309            V154= CMPcar(base[8]);
1310            base[8]= CMPcdr(base[8]);}
1311          {register object V155;          {register object V155;
         V155= car(base[8]);  
         base[8]= cdr(base[8]);}  
1312          {register object V156;          {register object V156;
1313          {register object V157;          V156= CMPcar(base[7]);
1314          V157= car(base[7]);          base[7]= CMPcdr(base[7]);
1315          base[7]= cdr(base[7]);          V155= (V156);}
1316          V156= (V157);}          base[4]= make_cons((V155),base[4]);}
1317          base[4]= make_cons((V156),base[4]);}          if(!((base[7])==(CMPcdr((V138))))){
         if(!((base[7])==(cdr((V139))))){  
1318          goto T440;}          goto T440;}
1319          goto T425;          goto T425;
1320          goto T440;          goto T440;
# Line 1387  T425:; Line 1325  T425:;
1325          goto T366;          goto T366;
1326          goto T373;          goto T373;
1327  T373:;  T373:;
1328          V139= cdr((V139));          V138= CMPcdr((V138));
1329          V140= cdr((V140));          V139= CMPcdr((V139));
1330          goto T368;}          goto T368;}
1331          goto T366;          goto T366;
1332  T366:;  T366:;
# Line 1399  T366:; Line 1337  T366:;
1337  static void L36()  static void L36()
1338  {register object *base=vs_base;  {register object *base=vs_base;
1339          register object *sup=base+VM29; VC29          register object *sup=base+VM29; VC29
1340          vs_reserve(VM29);          vs_check;
1341          {object V158;          {object V157;
1342          object V159;          object V158;
1343          check_arg(2);          V157=(base[0]);
1344          V158=(base[0]);          V158=(base[1]);
         V159=(base[1]);  
1345          vs_top=sup;          vs_top=sup;
1346          goto TTL;          goto TTL;
1347  TTL:;  TTL:;
1348          if(((V158))!=Cnil){          if(((V157))!=Cnil){
1349          goto T452;}          goto T452;}
1350          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
1351          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1352          return;          return;
1353          goto T452;          goto T452;
1354  T452:;  T452:;
1355          {long V160;          {long V159;
1356          base[2]= (V158);          base[2]= (V157);
1357          base[3]= (V159);          base[3]= (V158);
1358          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1359          (void) (*Lnk77)();          (void) (*Lnk77)();
1360          vs_top=sup;          vs_top=sup;
1361          V160= fix(vs_base[0]);          V159= fix(vs_base[0]);
1362          base[2]= make_fixnum(V160);          base[2]= CMPmake_fixnum(V159);
1363          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1364          return;}          return;}
1365          }          }
# Line 1432  T452:; Line 1369  T452:;
1369  static void L37()  static void L37()
1370  {register object *base=vs_base;  {register object *base=vs_base;
1371          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
1372          vs_reserve(VM30);          vs_check;
1373          {object V161;          {object V160;
1374          check_arg(1);          V160=(base[0]);
         V161=(base[0]);  
1375          vs_top=sup;          vs_top=sup;
1376          goto TTL;          goto TTL;
1377  TTL:;  TTL:;
1378          {register object V162;          {register object V161;
1379          register object V163;          register object V162;
1380          V162= (V161);          V161= (V160);
1381          V163= small_fixnum(0);          V162= small_fixnum(0);
1382          goto T458;          goto T458;
1383  T458:;  T458:;
1384          if(!(type_of((V162))!=t_cons)){          if(!(type_of((V161))!=t_cons)){
1385          goto T459;}          goto T459;}
1386          if(((V162))!=Cnil){          if(((V161))!=Cnil){
1387          goto T464;}          goto T464;}
1388          V164= small_fixnum(0);          V163= small_fixnum(0);
1389          goto T462;          goto T462;
1390          goto T464;          goto T464;
1391  T464:;  T464:;
1392          V164= small_fixnum(1);          V163= small_fixnum(1);
1393          goto T462;          goto T462;
1394  T462:;  T462:;
1395          base[1]= number_plus((V163),V164);          base[1]= number_plus((V162),V163);
1396          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1397          return;          return;
1398          goto T459;          goto T459;
1399  T459:;  T459:;
1400          {object V165;          {object V164;
1401          V165= cdr((V162));          V164= CMPcdr((V161));
1402          base[1]= car((V162));          base[1]= CMPcar((V161));
1403          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1404          (void) (*Lnk341)();          (void) (*Lnk348)();
1405          vs_top=sup;          vs_top=sup;
1406          V166= vs_base[0];          V165= vs_base[0];
1407          V163= number_plus(V166,(V163));          V162= number_plus(V165,(V162));
1408          V162= (V165);}          V161= (V164);}
1409          goto T458;}          goto T458;}
1410          }          }
1411  }  }
# Line 1478  T459:; Line 1414  T459:;
1414  static void L38()  static void L38()
1415  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
1416          register object *VOL sup=base+VM31; VC31          register object *VOL sup=base+VM31; VC31
1417          vs_reserve(VM31);          vs_check;
1418          {VOL object V167;          {VOL object V166;
1419          VOL object V168;          VOL object V167;
1420          check_arg(2);          V166=(base[0]);
1421          V167=(base[0]);          V167=(base[1]);
         V168=(base[1]);  
1422          vs_top=sup;          vs_top=sup;
1423          goto TTL;          goto TTL;
1424  TTL:;  TTL:;
# Line 1492  TTL:; Line 1427  TTL:;
1427          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
1428          return;}          return;}
1429          else{          else{
1430          base[2]= (V167);          base[2]= (V166);
1431          base[3]= (V168);          base[3]= (V167);
1432          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1433          (void) (*Lnk342)();          (void) (*Lnk349)();
1434          frs_pop();          frs_pop();
1435          return;}          return;}
1436          }          }
# Line 1505  TTL:; Line 1440  TTL:;
1440  static void L39()  static void L39()
1441  {register object *base=vs_base;  {register object *base=vs_base;
1442          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
1443          vs_reserve(VM32);          vs_check;
1444          {object V169;          {object V168;
1445          check_arg(2);          V168=(base[0]);
         V169=(base[0]);  
1446          vs_top=sup;          vs_top=sup;
1447          goto TTL;          goto TTL;
1448  TTL:;  TTL:;
1449          base[2]= (V169);          base[2]= (V168);
1450          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1451          Lconstantp();          Lconstantp();
1452          vs_top=sup;          vs_top=sup;
# Line 1523  TTL:; Line 1457  TTL:;
1457          return;          return;
1458          goto T477;          goto T477;
1459  T477:;  T477:;
1460          if(!(type_of((V169))==t_symbol)){          if(!(type_of((V168))==t_symbol)){
1461          goto T481;}          goto T481;}
1462          {object V170;          {object V169;
1463          object V171;          object V170;
1464          base[2]= (V169);          base[2]= (V168);
1465          base[3]= base[1];          base[3]= base[1];
1466          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1467          Lmacroexpand_1();          Lmacroexpand_1();
1468          if(vs_base>=vs_top){vs_top=sup;goto T486;}          if(vs_base>=vs_top){vs_top=sup;goto T486;}
1469          V170= vs_base[0];          V169= vs_base[0];
1470          vs_base++;          vs_base++;
1471          if(vs_base>=vs_top){vs_top=sup;goto T487;}          if(vs_base>=vs_top){vs_top=sup;goto T487;}
1472          V171= vs_base[0];          V170= vs_base[0];
1473          vs_top=sup;          vs_top=sup;
1474          goto T488;          goto T488;
1475          goto T486;          goto T486;
1476  T486:;  T486:;
1477          V170= Cnil;          V169= Cnil;
1478          goto T487;          goto T487;
1479  T487:;  T487:;
1480          V171= Cnil;          V170= Cnil;
1481          goto T488;          goto T488;
1482  T488:;  T488:;
1483          if(((V171))==Cnil){          if(((V170))==Cnil){
1484          goto T490;}          goto T490;}
1485          V169= (V170);          V168= (V169);
1486          goto TTL;          goto TTL;
1487          goto T490;          goto T490;
1488  T490:;  T490:;
# Line 1557  T490:; Line 1491  T490:;
1491          return;}          return;}
1492          goto T481;          goto T481;
1493  T481:;  T481:;
1494          if(!(type_of((V169))!=t_cons)){          if(!(type_of((V168))!=t_cons)){
1495          goto T496;}          goto T496;}
1496          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1497          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1498          return;          return;
1499          goto T496;          goto T496;
1500  T496:;  T496:;
1501          if(!(type_of(car((V169)))==t_symbol)){          if(!(type_of(CMPcar((V168)))==t_symbol)){
1502          goto T499;}          goto T499;}
1503          {object V172;          {object V171;
1504          object V173;          object V172;
1505          register long V174;          register long V173;
1506          V172= car((V169));          V171= CMPcar((V168));
1507          V174= 0;          V173= 0;
1508          V173= Cnil;          V172= Cnil;
1509          V173= get((V172),VV[77],Cnil);          {object V174 =((V171))->s.s_plist;
1510          if(((V173))==Cnil){           object ind= VV[77];
1511            while(V174!=Cnil){
1512            if(V174->c.c_car==ind){
1513            V172= (V174->c.c_cdr->c.c_car);
1514            goto T506;
1515            }else V174=V174->c.c_cdr->c.c_cdr;}
1516            V172= Cnil;}
1517            goto T506;
1518    T506:;
1519            if(((V172))==Cnil){
1520          goto T504;}          goto T504;}
1521          if(!(type_of(V173)==t_fixnum)){          if(!(type_of(V172)==t_fixnum)){
1522          goto T508;}          goto T508;}
1523          base[2]= cdr((V169));          base[2]= CMPcdr((V168));
1524          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1525          L40(base);          L40(base);
1526          vs_top=sup;          vs_top=sup;
1527          V176= fix(vs_base[0]);          V176= fix(vs_base[0]);
1528          base[2]= make_fixnum((long)(fix((V173)))+(V176));          base[2]= CMPmake_fixnum((long)(fix((V172)))+(V176));
1529          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1530          return;          return;
1531          goto T508;          goto T508;
1532  T508:;  T508:;
1533          base[2]= (V169);          base[2]= (V168);
1534          base[3]= base[1];          base[3]= base[1];
1535          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1536          super_funcall_no_event((V173));          super_funcall_no_event((V172));
1537          return;          return;
1538          goto T504;          goto T504;
1539  T504:;  T504:;
1540          {register object x= (V172),V177= symbol_value(VV[78]);          {register object x= (V171),V177= (VV[78]->s.s_dbind);
1541          while(!endp(V177))          while(V177!=Cnil)
1542          if(type_of(V177->c.c_car)==t_cons &&eql(x,V177->c.c_car->c.c_car)){          if(eql(x,V177->c.c_car->c.c_car) &&V177->c.c_car != Cnil){
1543          V173= (V177->c.c_car);          V172= (V177->c.c_car);
1544          goto T517;          goto T517;
1545          }else V177=V177->c.c_cdr;          }else V177=V177->c.c_cdr;
1546          V173= Cnil;}          V172= Cnil;}
1547          goto T517;          goto T517;
1548  T517:;  T517:;
1549          if(((V173))==Cnil){          if(((V172))==Cnil){
1550          goto T515;}          goto T515;}
1551          {long V178= fix(cadr((V173)));          {long V178= fix(CMPcadr((V172)));
1552          base[2]= cdr((V169));          base[2]= CMPcdr((V168));
1553          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1554          L40(base);          L40(base);
1555          vs_top=sup;          vs_top=sup;
1556          V179= fix(vs_base[0]);          V179= fix(vs_base[0]);
1557          base[2]= make_fixnum((long)(/* INLINE-ARGS */V178)+(V179));          base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V178)+(V179));
1558          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1559          return;}          return;}
1560          goto T515;          goto T515;
1561  T515:;  T515:;
1562          if(!(((V172))==(VV[79]))){          if(!(((V171))==(VV[79]))){
1563          goto T521;}          goto T521;}
1564          {register object V180;          {register object V180;
1565          object V181;          object V181;
1566          V180= cdr((V169));          V180= CMPcdr((V168));
1567          V181= car((V180));          V181= CMPcar((V180));
1568          goto T526;          goto T526;
1569  T526:;  T526:;
1570          if(!(endp_prop((V180)))){          if(!(((V180))==Cnil)){
1571          goto T527;}          goto T527;}
1572          base[4]= make_fixnum(V174);          base[4]= CMPmake_fixnum(V173);
1573          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1574          return;          return;
1575          goto T527;          goto T527;
1576  T527:;  T527:;
1577          V182 = make_fixnum(V174);          V182 = CMPmake_fixnum(V173);
1578          base[4]= (V181);          base[4]= (V181);
1579          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1580          L40(base);          L40(base);
1581          vs_top=sup;          vs_top=sup;
1582          V183= vs_base[0];          V183= vs_base[0];
1583          V174= fix(number_plus(V182,V183));          V173= fix(number_plus(V182,V183));
1584          V174= (long)(V174)+(1);          V173= (long)(V173)+(1);
1585          V180= cdr((V180));          V180= CMPcdr((V180));
1586          V181= car((V180));          V181= CMPcar((V180));
1587          goto T526;}          goto T526;}
1588          goto T521;          goto T521;
1589  T521:;  T521:;
1590          if(!(((V172))==(VV[80]))){          if(!(((V171))==(VV[80]))){
1591          goto T543;}          goto T543;}
1592          {register object V184;          {register object V184;
1593          V184= cdr((V169));          V184= CMPcdr((V168));
1594          goto T547;          goto T547;
1595  T547:;  T547:;
1596          if(((V184))!=Cnil){          if(((V184))!=Cnil){
1597          goto T548;}          goto T548;}
1598          base[2]= make_fixnum(V174);          base[2]= CMPmake_fixnum(V173);
1599          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1600          return;          return;
1601          goto T548;          goto T548;
1602  T548:;  T548:;
1603          base[2]= make_fixnum(V174);          base[2]= CMPmake_fixnum(V173);
1604          base[4]= car((V184));          base[4]= CMPcar((V184));
1605          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1606          (void) (*Lnk341)();          (void) (*Lnk348)();
1607          vs_top=sup;          vs_top=sup;
1608          base[3]= vs_base[0];          base[3]= vs_base[0];
1609          base[5]= cadr((V184));          base[5]= CMPcadr((V184));
1610          base[6]= base[1];          base[6]= base[1];
1611          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1612          (void) (*Lnk342)();          (void) (*Lnk349)();
1613          vs_top=sup;          vs_top=sup;
1614          base[4]= vs_base[0];          base[4]= vs_base[0];
1615          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1616          Lplus();          Lplus();
1617          vs_top=sup;          vs_top=sup;
1618          V174= fix(vs_base[0]);          V173= fix(vs_base[0]);
1619          V184= cdr((V184));          V184= CMPcdr((V184));
1620          goto T547;}          goto T547;}
1621          goto T543;          goto T543;
1622  T543:;  T543:;
1623          {register object x= (V172),V185= VV[81];          {register object x= (V171),V185= VV[81];
1624          while(!endp(V185))          while(V185!=Cnil)
1625          if(eql(x,V185->c.c_car)){          if(eql(x,V185->c.c_car)){
1626          goto T565;          goto T565;
1627          }else V185=V185->c.c_cdr;          }else V185=V185->c.c_cdr;
# Line 1686  T543:; Line 1629  T543:;
1629          goto T565;          goto T565;
1630  T565:;  T565:;
1631          {register object V186;          {register object V186;
1632          V186= cdr((V169));          V186= CMPcdr((V168));
1633          goto T568;          goto T568;
1634  T568:;  T568:;
1635          if(((V186))!=Cnil){          if(((V186))!=Cnil){
1636          goto T569;}          goto T569;}
1637          base[2]= make_fixnum(V174);          base[2]= CMPmake_fixnum(V173);
1638          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1639          return;          return;
1640          goto T569;          goto T569;
1641  T569:;  T569:;
1642          base[2]= make_fixnum(V174);          base[2]= CMPmake_fixnum(V173);
1643          base[4]= cadr((V186));          base[4]= CMPcadr((V186));
1644          base[5]= base[1];          base[5]= base[1];
1645          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1646          (void) (*Lnk342)();          (void) (*Lnk349)();
1647          vs_top=sup;          vs_top=sup;
1648          base[3]= vs_base[0];          base[3]= vs_base[0];
1649          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
1650          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1651          Lplus();          Lplus();
1652          vs_top=sup;          vs_top=sup;
1653          V174= fix(vs_base[0]);          V173= fix(vs_base[0]);
1654          V186= cdr((V186));          V186= CMPcdr((V186));
1655          goto T568;}          goto T568;}
1656          goto T564;          goto T564;
1657  T564:;  T564:;
1658          if(!(((V172))==(VV[82]))){          if(!(((V171))==(VV[82]))){
1659          goto T584;}          goto T584;}
1660          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1661          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1662          return;          return;
1663          goto T584;          goto T584;
1664  T584:;  T584:;
1665          if(!(((V172))==(VV[83]))){          if(!(((V171))==(VV[83]))){
1666          goto T587;}          goto T587;}
         if(type_of(cadr((V169)))==t_symbol){  
         goto T589;}  
         if(!(type_of(cadr((V169)))==t_cons)){  
         goto T590;}  
         if(!((caadr((V169)))==(VV[9]))){  
         goto T590;}  
         goto T589;  
 T589:;  
1667          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1668          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1669          return;          return;
         goto T590;  
 T590:;  
         {frame_ptr fr;  
         fr=frs_sch_catch(VV[84]);  
         if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[84]);  
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
         unwind(fr,VV[84]);}  
1670          goto T587;          goto T587;
1671  T587:;  T587:;
1672          if(!(((V172))==(VV[85]))){          if(!(((V171))==(VV[84]))){
1673          goto T598;}          goto T590;}
1674          {long V187= (long)length(cadr((V169)));          {long V187= (long)length(CMPcadr((V168)));
1675          base[2]= cddr((V169));          base[2]= CMPcddr((V168));
1676          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1677          L40(base);          L40(base);
1678          vs_top=sup;          vs_top=sup;
1679          V188= fix(vs_base[0]);          V188= fix(vs_base[0]);
1680          base[2]= make_fixnum((long)(/* INLINE-ARGS */V187)+(V188));          base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V187)+(V188));
1681          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1682          return;}          return;}
1683          goto T598;          goto T590;
1684  T598:;  T590:;
1685          if(!(((V172))==(VV[86]))){          if(!(((V171))==(VV[85]))){
1686          goto T603;}          goto T595;}
1687          base[2]= caddr((V169));          base[2]= CMPcaddr((V168));
1688          base[3]= base[1];          base[3]= base[1];
1689          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1690          (void) (*Lnk342)();          (void) (*Lnk349)();
1691          vs_top=sup;          vs_top=sup;
1692          V189= vs_base[0];          V189= vs_base[0];
1693          base[2]= one_plus(V189);          base[2]= one_plus(V189);
1694          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1695          return;          return;
1696          goto T603;          goto T595;
1697  T603:;  T595:;
1698          base[2]= (V172);          base[2]= (V171);
1699          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1700          (void) (*Lnk343)();          (void) (*Lnk350)();
1701          vs_top=sup;          vs_top=sup;
1702          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1703          goto T608;}          goto T600;}
1704          {register object x= (V172),V190= symbol_value(VV[87]);          {register object x= (V171),V190= (VV[86]->s.s_dbind);
1705          while(!endp(V190))          while(V190!=Cnil)
1706          if(eql(x,V190->c.c_car)){          if(eql(x,V190->c.c_car)){
1707          goto T613;          goto T605;
1708          }else V190=V190->c.c_cdr;          }else V190=V190->c.c_cdr;
1709          goto T609;}          goto T601;}
1710          goto T613;          goto T605;
1711  T613:;  T605:;
1712          goto T608;          goto T600;
1713  T608:;  T600:;
1714          {frame_ptr fr;          {frame_ptr fr;
1715          fr=frs_sch_catch(VV[77]);          fr=frs_sch_catch(VV[77]);
1716          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[77]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[77]);
1717          base[2]= Cnil;          base[2]= Cnil;
1718          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1719          unwind(fr,VV[77]);}          unwind(fr,VV[77]);}
1720          goto T609;          goto T601;
1721  T609:;  T601:;
1722          {object V191;          {object V191;
1723          object V192;          object V192;
1724          base[2]= (V169);          base[2]= (V168);
1725          base[3]= base[1];          base[3]= base[1];
1726          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1727          Lmacroexpand_1();          Lmacroexpand_1();
1728          if(vs_base>=vs_top){vs_top=sup;goto T618;}          if(vs_base>=vs_top){vs_top=sup;goto T610;}
1729          V191= vs_base[0];          V191= vs_base[0];
1730          vs_base++;          vs_base++;
1731          if(vs_base>=vs_top){vs_top=sup;goto T619;}          if(vs_base>=vs_top){vs_top=sup;goto T611;}
1732          V192= vs_base[0];          V192= vs_base[0];
1733          vs_top=sup;          vs_top=sup;
1734          goto T620;          goto T612;
1735          goto T618;          goto T610;
1736  T618:;  T610:;
1737          V191= Cnil;          V191= Cnil;
1738          goto T619;          goto T611;
1739  T619:;  T611:;
1740          V192= Cnil;          V192= Cnil;
1741          goto T620;          goto T612;
1742  T620:;  T612:;
1743          if(((V192))==Cnil){          if(((V192))==Cnil){
1744          goto T622;}          goto T614;}
1745          V169= (V191);          V168= (V191);
1746          goto TTL;          goto TTL;
1747          goto T622;          goto T614;
1748  T622:;  T614:;
1749          base[2]= cdr((V169));          base[2]= CMPcdr((V168));
1750          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1751          L40(base);          L40(base);
1752          vs_top=sup;          vs_top=sup;
1753          V193= fix(vs_base[0]);          V193= fix(vs_base[0]);
1754          base[2]= make_fixnum((long)(3)+(V193));          base[2]= CMPmake_fixnum((long)(3)+(V193));
1755          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1756          return;}}          return;}}
1757          goto T499;          goto T499;
# Line 1842  T499:; Line 1769  T499:;
1769  static void L41()  static void L41()
1770  {register object *base=vs_base;  {register object *base=vs_base;
1771          register object *sup=base+VM33; VC33          register object *sup=base+VM33; VC33
1772          vs_reserve(VM33);          vs_check;
         check_arg(0);  
1773          vs_top=sup;          vs_top=sup;
1774          goto TTL;          goto TTL;
1775  TTL:;  TTL:;
1776          {register object V194;          {register object V194;
1777          register object V195;          register object V195;
1778          V194= symbol_value(VV[88]);          V194= (VV[87]->s.s_dbind);
1779          V195= Cnil;          V195= Cnil;
1780          goto T631;          goto T623;
1781  T631:;  T623:;
1782          if(!(((V194))==(cdr(symbol_value(VV[89]))))){          if(!(((V194))==(CMPcdr((VV[88]->s.s_dbind))))){
1783          goto T632;}          goto T624;}
1784          base[0]= nreverse((V195));          base[0]= nreverse((V195));
1785          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1786          return;          return;
1787          goto T632;          goto T624;
1788  T632:;  T624:;
1789          {object V196;          {object V196;
1790          V196= cdr((V194));          V196= CMPcdr((V194));
1791          V195= make_cons(car((V194)),(V195));          V195= make_cons(CMPcar((V194)),(V195));
1792          V194= (V196);}          V194= (V196);}
1793          goto T631;}          goto T623;}
1794  }  }
1795  /*      function definition for LOOP-ERROR      */  /*      function definition for LOOP-ERROR      */
1796    
1797  static void L42()  static void L42()
1798  {register object *base=vs_base;  {register object *base=vs_base;
1799          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
1800          vs_reserve(VM34);          vs_check;
1801          {object V197;          {object V197;
1802          object V198;          object V198;
         if(vs_top-vs_base<1) too_few_arguments();  
1803          V197=(base[0]);          V197=(base[0]);
1804          vs_base=vs_base+1;          vs_base=vs_base+1;
1805          vs_top[0]=Cnil;          vs_top[0]=Cnil;
# Line 1882  static void L42() Line 1807  static void L42()
1807           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1808          V198=(base[1]);          V198=(base[1]);
1809          vs_top=sup;          vs_top=sup;
1810          base[2]= VV[90];          base[2]= VV[89];
1811          base[3]= VV[91];          base[3]= VV[90];
1812          base[4]= (V197);          base[4]= (V197);
1813          base[5]= (V198);          base[5]= (V198);
1814          vs_base=vs_top;          vs_base=vs_top;
1815          (void) (*Lnk344)();          (void) (*Lnk351)();
1816          vs_top=sup;          vs_top=sup;
1817          base[6]= vs_base[0];          base[6]= vs_base[0];
1818          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1819          (void) (*Lnk345)();          (void) (*Lnk352)();
1820          return;          return;
1821          }          }
1822  }  }
# Line 1900  static void L42() Line 1825  static void L42()
1825  static void L43()  static void L43()
1826  {register object *base=vs_base;  {register object *base=vs_base;
1827          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
1828          vs_reserve(VM35);          vs_check;
1829          {object V199;          {object V199;
1830          object V200;          object V200;
         if(vs_top-vs_base<1) too_few_arguments();  
1831          V199=(base[0]);          V199=(base[0]);
1832          vs_base=vs_base+1;          vs_base=vs_base+1;
1833          vs_top[0]=Cnil;          vs_top[0]=Cnil;
# Line 1911  static void L43() Line 1835  static void L43()
1835           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1836          V200=(base[1]);          V200=(base[1]);
1837          vs_top=sup;          vs_top=sup;
1838            base[2]= VV[91];
1839            base[3]= (V199);
1840            base[4]= (V200);
1841          vs_base=vs_top;          vs_base=vs_top;
1842          (void) (*Lnk344)();          (void) (*Lnk351)();
1843          vs_top=sup;          vs_top=sup;
1844          V201= vs_base[0];          base[5]= vs_base[0];
1845          base[2]= (VFUN_NARGS=4,(*(LnkLI346))(VV[92],(V199),(V200),V201));          vs_top=(vs_base=base+2)+4;
1846          vs_top=(vs_base=base+2)+1;          (void) (*Lnk353)();
1847          return;          return;
1848          }          }
1849  }  }
# Line 1925  static void L43() Line 1852  static void L43()
1852  static void L44()  static void L44()
1853  {register object *base=vs_base;  {register object *base=vs_base;
1854          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
1855          vs_reserve(VM36);          vs_check;
1856          {register object V202;          {register object V201;
1857          register object V203;          register object V202;
1858          object V204;          object V203;
1859          if(vs_top-vs_base<2) too_few_arguments();          V201=(base[0]);
1860          if(vs_top-vs_base>3) too_many_arguments();          V202=(base[1]);
         V202=(base[0]);  
         V203=(base[1]);  
1861          vs_base=vs_base+2;          vs_base=vs_base+2;
1862          if(vs_base>=vs_top){vs_top=sup;goto T646;}          if(vs_base>=vs_top){vs_top=sup;goto T641;}
1863          V204=(base[2]);          V203=(base[2]);
1864          vs_top=sup;          vs_top=sup;
1865          goto T647;          goto T642;
1866          goto T646;          goto T641;
1867  T646:;  T641:;
1868          V204= (V203);          V203= (V202);
1869          goto T647;          goto T642;
1870  T647:;  T642:;
1871          if(((V202))!=Cnil){          if(((V201))!=Cnil){
1872          goto T650;}          goto T645;}
1873          base[3]= (V204);          base[3]= (V203);
1874          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1875          return;          return;
1876          goto T650;          goto T645;
1877  T650:;  T645:;
1878          {object V205;          {object V204;
1879          object V206;          object V205;
1880          base[3]= (V202);          base[3]= (V201);
1881          base[4]= (V203);          base[4]= (V202);
1882          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1883          (void) (*Lnk326)();          (void) (*Lnk333)();
1884          if(vs_base>=vs_top){vs_top=sup;goto T655;}          if(vs_base>=vs_top){vs_top=sup;goto T650;}
1885          V205= vs_base[0];          V204= vs_base[0];
1886          vs_base++;          vs_base++;
1887          if(vs_base>=vs_top){vs_top=sup;goto T656;}          if(vs_base>=vs_top){vs_top=sup;goto T651;}
1888          V206= vs_base[0];          V205= vs_base[0];
1889          vs_top=sup;          vs_top=sup;
1890          goto T657;          goto T652;
1891          goto T655;          goto T650;
1892  T655:;  T650:;
1893            V204= Cnil;
1894            goto T651;
1895    T651:;
1896          V205= Cnil;          V205= Cnil;
1897          goto T656;          goto T652;
1898  T656:;  T652:;
1899          V206= Cnil;          if(((V205))!=Cnil){
1900          goto T657;          goto T655;}
1901  T657:;          base[3]= VV[92];
1902          if(((V206))!=Cnil){          base[4]= (V201);
1903          goto T660;}          base[5]= (V202);
         base[3]= VV[93];  
         base[4]= (V202);  
         base[5]= (V203);  
1904          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1905          (void) (*Lnk338)();          (void) (*Lnk345)();
1906          vs_top=sup;          vs_top=sup;
1907          goto T658;          goto T653;
1908          goto T660;          goto T655;
1909  T660:;  T655:;
1910          if(((V205))!=Cnil){          if(((V204))!=Cnil){
1911          goto T658;}          goto T653;}
1912          base[3]= VV[94];          base[3]= VV[93];
1913          base[4]= (V202);          base[4]= (V201);
1914          base[5]= (V203);          base[5]= (V202);
1915          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1916          (void) (*Lnk347)();          (void) (*Lnk354)();
1917          vs_top=sup;          vs_top=sup;
1918          goto T658;          goto T653;
1919  T658:;  T653:;
1920          base[3]= (V202);          base[3]= (V201);
1921          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1922          return;}          return;}
1923          }          }
# Line 2002  T658:; Line 1927  T658:;
1927  static void L45()  static void L45()
1928  {register object *base=vs_base;  {register object *base=vs_base;
1929          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
1930          vs_reserve(VM37);          vs_check;
         check_arg(2);  
1931          vs_top=sup;          vs_top=sup;
1932          {object V207=base[0]->c.c_cdr;          {object V206=base[0]->c.c_cdr;}
1933          if(!endp(V207))invalid_macro_call();}          base[2]= VV[94];
         base[2]= VV[95];  
1934          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1935          return;          return;
1936  }  }
1937  /*      function definition for LOOP-TRANSLATE  */  /*      function definition for SUBST-GENSYMS-FOR-NIL   */
1938    
1939  static void L46()  static void L46()
1940  {register object *base=vs_base;  {register object *base=vs_base;
1941          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
1942          vs_reserve(VM38);          vs_check;
1943            {register object V207;
1944            V207=(base[0]);
1945            vs_top=sup;
1946            goto TTL;
1947    TTL:;
1948            if(((V207))!=Cnil){
1949            goto T666;}
1950            {object V209;
1951            vs_base=vs_top;
1952            (void) (*Lnk334)();
1953            vs_top=sup;
1954            V209= vs_base[0];
1955            (VV[95]->s.s_dbind)= make_cons((V209),(VV[95]->s.s_dbind));
1956            V208= (VV[95]->s.s_dbind);}
1957            base[1]= CMPcar(V208);
1958            vs_top=(vs_base=base+1)+1;
1959            return;
1960            goto T666;
1961    T666:;
1962            if(!(type_of((V207))!=t_cons)){
1963            goto T672;}
1964            base[1]= (V207);
1965            vs_top=(vs_base=base+1)+1;
1966            return;
1967            goto T672;
1968    T672:;
1969            base[1]= CMPcar((V207));
1970            vs_top=(vs_base=base+1)+1;
1971            (void) (*Lnk355)();
1972            vs_top=sup;
1973            V210= vs_base[0];
1974            base[1]= CMPcdr((V207));
1975            vs_top=(vs_base=base+1)+1;
1976            (void) (*Lnk355)();
1977            vs_top=sup;
1978            V211= vs_base[0];
1979            base[1]= make_cons(V210,V211);
1980            vs_top=(vs_base=base+1)+1;
1981            return;
1982            }
1983    }
1984    /*      function definition for LOOP-BUILD-DESTRUCTURING-BINDINGS       */
1985    
1986    static void L47()
1987    {register object *base=vs_base;
1988            register object *sup=base+VM39; VC39
1989            vs_check;
1990          bds_check;          bds_check;
1991          check_arg(3);          {register object V212;
1992          bds_bind(VV[89],base[0]);          object V213;
1993          bds_bind(VV[96],base[1]);          V212=(base[0]);
1994          bds_bind(VV[97],base[2]);          V213=(base[1]);
1995          vs_top=sup;          vs_top=sup;
1996          goto TTL;          goto TTL;
1997  TTL:;  TTL:;
1998          bds_bind(VV[98],(VV[89]->s.s_dbind));          if(((V212))==Cnil){
1999          bds_bind(VV[88],Cnil);          goto T679;}
2000          bds_bind(VV[99],Cnil);          bds_bind(VV[95],Cnil);
2001          bds_bind(VV[100],Cnil);          base[3]= CMPcar((V212));
2002            vs_top=(vs_base=base+3)+1;
2003            (void) (*Lnk355)();
2004            vs_top=sup;
2005            V214= vs_base[0];
2006            V215= CMPcadr((V212));
2007            V216= list(2,VV[30],make_cons(VV[97],(VV[95]->s.s_dbind)));
2008            base[3]= CMPcddr((V212));
2009            base[4]= (V213);
2010            vs_top=(vs_base=base+3)+2;
2011            (void) (*Lnk356)();
2012            vs_top=sup;
2013            V217= vs_base[0];
2014            V218= listA(5,VV[96],V214,/* INLINE-ARGS */V215,/* INLINE-ARGS */V216,V217);
2015            base[3]= make_cons(/* INLINE-ARGS */V218,Cnil);
2016            vs_top=(vs_base=base+3)+1;
2017            bds_unwind1;
2018            return;
2019            goto T679;
2020    T679:;
2021            base[2]= (V213);
2022            vs_top=(vs_base=base+2)+1;
2023            return;
2024            }
2025    }
2026    /*      function definition for LOOP-TRANSLATE  */
2027    
2028    static void L48()
2029    {register object *base=vs_base;
2030            register object *sup=base+VM40; VC40
2031            vs_check;
2032            bds_check;
2033            bds_bind(VV[88],base[0]);
2034            bds_bind(VV[98],base[1]);
2035            bds_bind(VV[99],base[2]);
2036            vs_top=sup;
2037            goto TTL;
2038    TTL:;
2039            bds_bind(VV[100],(VV[88]->s.s_dbind));
2040            bds_bind(VV[87],Cnil);
2041          bds_bind(VV[101],Cnil);          bds_bind(VV[101],Cnil);
2042          bds_bind(VV[102],Cnil);          bds_bind(VV[102],Cnil);
2043          bds_bind(VV[103],Cnil);          bds_bind(VV[103],Cnil);
# Line 2049  TTL:; Line 2058  TTL:;
2058          bds_bind(VV[118],Cnil);          bds_bind(VV[118],Cnil);
2059          bds_bind(VV[119],Cnil);          bds_bind(VV[119],Cnil);
2060          bds_bind(VV[120],Cnil);          bds_bind(VV[120],Cnil);
2061            bds_bind(VV[121],Cnil);
2062          vs_base=vs_top;          vs_base=vs_top;
2063          (void) (*Lnk348)();          (void) (*Lnk357)();
2064          vs_top=sup;          vs_top=sup;
2065          vs_base=vs_top;          vs_base=vs_top;
2066          (void) (*Lnk349)();          (void) (*Lnk358)();
2067          vs_top=sup;          vs_top=sup;
2068          {register object V208;          {register object V219;
2069          V209= nreverse((VV[106]->s.s_dbind));          V220= nreverse((VV[108]->s.s_dbind));
2070          V210= nreverse((VV[108]->s.s_dbind));          V221= nreverse((VV[110]->s.s_dbind));
2071          V211= nreverse((VV[109]->s.s_dbind));          V222= nreverse((VV[111]->s.s_dbind));
2072          V212= nreverse((VV[111]->s.s_dbind));          V223= nreverse((VV[113]->s.s_dbind));
2073          base[27]= (VV[112]->s.s_dbind);          base[26]= (VV[114]->s.s_dbind);
2074          base[28]= nreverse((VV[113]->s.s_dbind));          base[27]= nreverse((VV[115]->s.s_dbind));
2075          vs_top=(vs_base=base+27)+2;          vs_top=(vs_base=base+26)+2;
2076          Lreconc();          Lreconc();
2077          vs_top=sup;          vs_top=sup;
2078          V213= vs_base[0];          V224= vs_base[0];
2079          V208= list(6,VV[121],/* INLINE-ARGS */V209,/* INLINE-ARGS */V210,/* INLINE-ARGS */V211,/* INLINE-ARGS */V212,V213);          V219= list(6,VV[122],/* INLINE-ARGS */V220,/* INLINE-ARGS */V221,/* INLINE-ARGS */V222,/* INLINE-ARGS */V223,V224);
2080          {register object V214;          {register object V225;
2081          register object V215;          register object V226;
2082          V214= (VV[105]->s.s_dbind);          V225= (VV[107]->s.s_dbind);
2083          V215= car((V214));          V226= CMPcar((V225));
2084          goto T680;          goto T696;
2085  T680:;  T696:;
2086          if(!(endp_prop((V214)))){          if(!(((V225))==Cnil)){
2087          goto T681;}          goto T697;}
2088          goto T676;          goto T692;
2089          goto T681;          goto T697;
2090  T681:;  T697:;
2091          {object V216;          {object V227;
2092          object V217;          object V228;
2093          object V218;          object V229;
2094          object V219;          object V230;
2095          V216= car((V215));          V227= CMPcar((V226));
2096          V217= cadr((V215));          V228= CMPcadr((V226));
2097          V218= caddr((V215));          V229= CMPcaddr((V226));
2098          V219= cadddr((V215));          V230= CMPcadddr((V226));
2099          {register object V220;          {register object V231;
2100          register object V221;          register object V232;
2101          V220= (V219);          V231= (V230);
2102          V221= car((V220));          V232= CMPcar((V231));
2103          goto T694;          goto T710;
2104  T694:;  T710:;
2105          if(!(endp_prop((V220)))){          if(!(((V231))==Cnil)){
2106          goto T695;}          goto T711;}
2107          goto T690;          goto T706;
2108          goto T695;          goto T711;
2109  T695:;  T711:;
2110          V222= make_cons((V208),Cnil);          V233= make_cons((V219),Cnil);
2111          V208= append((V221),/* INLINE-ARGS */V222);          V219= append((V232),/* INLINE-ARGS */V233);
2112          V220= cdr((V220));          V231= CMPcdr((V231));
2113          V221= car((V220));          V232= CMPcar((V231));
2114          goto T694;}          goto T710;}
         goto T690;  
 T690:;  
         if(((V216))!=Cnil){  
         goto T706;}  
         if(((V217))!=Cnil){  
         goto T706;}  
         if(((V218))==Cnil){  
         goto T685;}  
2115          goto T706;          goto T706;
2116  T706:;  T706:;
2117          {register object V223;          if(((V227))!=Cnil){
2118          V223= make_cons((V208),Cnil);          goto T722;}
2119          if(((V217))==Cnil){          if(((V228))!=Cnil){
2120          goto T713;}          goto T722;}
2121          {object V224;          if(((V229))==Cnil){
2122          V224= make_cons(VV[30],(V217));          goto T701;}
2123          V223= make_cons((V224),(V223));}          goto T722;
2124          goto T713;  T722:;
2125  T713:;          {object V234;
2126          if(((V216))!=Cnil){          V234= make_cons((V219),Cnil);
2127          goto T721;}          if(((V228))==Cnil){
2128          V225= VV[122];          goto T729;}
2129          goto T719;          {object V235;
2130          goto T721;          V235= make_cons(VV[30],(V228));
2131  T721:;          V234= make_cons((V235),(V234));}
2132          if((symbol_value(VV[63]))==Cnil){          goto T729;
2133          goto T724;}  T729:;
2134          V225= car(symbol_value(VV[63]));          if(((V227))!=Cnil){
2135          goto T719;          goto T737;}
2136          goto T724;          V236= VV[123];
2137  T724:;          goto T735;
2138          V225= VV[29];          goto T737;
2139          goto T719;  T737:;
2140  T719:;          if(((VV[63]->s.s_dbind))==Cnil){
2141          if(((V218))==Cnil){          goto T740;}
2142          goto T728;}          V236= CMPcar((VV[63]->s.s_dbind));
2143          V227= append((V218),(V223));          goto T735;
2144          V228= make_cons(VV[123],/* INLINE-ARGS */V227);          goto T740;
2145          V226= make_cons(/* INLINE-ARGS */V228,Cnil);  T740:;
2146          goto T726;          V236= VV[29];
2147          goto T728;          goto T735;
2148  T728:;  T735:;
2149          V226= (V223);          base[27]= (V229);
2150          goto T726;          base[28]= (V234);
2151  T726:;          vs_top=(vs_base=base+27)+2;
2152          V208= listA(3,V225,(V216),V226);}}          (void) (*Lnk356)();
2153          goto T685;          vs_top=sup;
2154  T685:;          V237= vs_base[0];
2155          V214= cdr((V214));          V219= listA(3,V236,(V227),V237);}}
2156          V215= car((V214));          goto T701;
2157          goto T680;}  T701:;
2158          goto T676;          V225= CMPcdr((V225));
2159  T676:;          V226= CMPcar((V225));
2160          V208= list(3,VV[124],car((VV[118]->s.s_dbind)),(V208));          goto T696;}
2161          base[27]= (V208);          goto T692;
2162          vs_top=(vs_base=base+27)+1;  T692:;
2163            if(((VV[120]->s.s_dbind))==Cnil){
2164            goto T751;}
2165            goto T754;
2166    T754:;
2167            if((CMPcar((VV[120]->s.s_dbind)))!=Cnil){
2168            goto T755;}
2169            base[26]= (V219);
2170            vs_top=(vs_base=base+26)+1;
2171          bds_unwind1;          bds_unwind1;
2172          bds_unwind1;          bds_unwind1;
2173          bds_unwind1;          bds_unwind1;
# Line 2184  T676:; Line 2194  T676:;
2194          bds_unwind1;          bds_unwind1;
2195          bds_unwind1;          bds_unwind1;
2196          bds_unwind1;          bds_unwind1;
2197            return;
2198            goto T755;
2199    T755:;
2200            {object V239;
2201            V239= CMPcar((VV[120]->s.s_dbind));
2202            (VV[120]->s.s_dbind)= CMPcdr((VV[120]->s.s_dbind));
2203            V238= (V239);}
2204            V219= list(3,VV[124],V238,(V219));
2205            goto T754;
2206            goto T751;
2207    T751:;
2208            base[26]= list(3,VV[124],Cnil,(V219));
2209            vs_top=(vs_base=base+26)+1;
2210            bds_unwind1;
2211            bds_unwind1;
2212            bds_unwind1;
2213            bds_unwind1;
2214            bds_unwind1;
2215            bds_unwind1;
2216            bds_unwind1;
2217            bds_unwind1;
2218            bds_unwind1;
2219            bds_unwind1;
2220            bds_unwind1;
2221            bds_unwind1;
2222            bds_unwind1;
2223            bds_unwind1;
2224            bds_unwind1;
2225            bds_unwind1;
2226            bds_unwind1;
2227            bds_unwind1;
2228            bds_unwind1;
2229            bds_unwind1;
2230            bds_unwind1;
2231            bds_unwind1;
2232            bds_unwind1;
2233            bds_unwind1;
2234            bds_unwind1;
2235          bds_unwind1;          bds_unwind1;
2236          return;}          return;}
2237  }  }
2238  /*      function definition for LOOP-ITERATION-DRIVER   */  /*      function definition for LOOP-ITERATION-DRIVER   */
2239    
2240  static void L47()  static void L49()
2241  {register object *base=vs_base;  {register object *base=vs_base;
2242          register object *sup=base+VM39; VC39          register object *sup=base+VM41; VC41
2243          vs_reserve(VM39);          vs_check;
         check_arg(0);  
2244          vs_top=sup;          vs_top=sup;
2245          goto TTL;          goto TTL;
2246  TTL:;  TTL:;
2247          goto T738;          goto T768;
2248  T738:;  T768:;
2249          if((symbol_value(VV[89]))!=Cnil){          if(((VV[88]->s.s_dbind))!=Cnil){
2250          goto T739;}          goto T769;}
2251          base[0]= Cnil;          base[0]= Cnil;
2252          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2253          return;          return;
2254          goto T739;          goto T769;
2255  T739:;  T769:;
2256          {register object V229;          {register object V240;
2257          register object V230;          register object V241;
2258          V229= car(symbol_value(VV[89]));          V240= CMPcar((VV[88]->s.s_dbind));
2259          V230= Cnil;          V241= Cnil;
2260          if(type_of((V229))==t_symbol){          if(type_of((V240))==t_symbol){
2261          goto T746;}          goto T776;}
2262          base[0]= VV[125];          base[0]= VV[125];
2263          base[1]= (V229);          base[1]= (V240);
2264          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2265          (void) (*Lnk347)();          (void) (*Lnk354)();
2266          vs_top=sup;          vs_top=sup;
2267          goto T743;          goto T773;
2268          goto T746;          goto T776;
2269  T746:;  T776:;
2270          setq(VV[88],symbol_value(VV[89]));          (VV[87]->s.s_dbind)= (VV[88]->s.s_dbind);
2271          vs_base=vs_top;          vs_base=vs_top;
2272          (void) (*Lnk350)();          (void) (*Lnk359)();
2273          vs_top=sup;          vs_top=sup;
2274          base[0]= (V229);          base[0]= (V240);
2275          base[1]= structure_ref(symbol_value(VV[97]),VV[39],0);          base[1]= STREF(object,(VV[99]->s.s_dbind),0);
2276          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2277          (void) (*Lnk351)();          (void) (*Lnk360)();
2278          vs_top=sup;          vs_top=sup;
2279          V230= vs_base[0];          V241= vs_base[0];
2280          if(((V230))==Cnil){          if(((V241))==Cnil){
2281          goto T754;}          goto T784;}
2282          base[1]= car((V230));          base[1]= CMPcar((V241));
2283          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2284          Lsymbol_function();          Lsymbol_function();
2285          vs_top=sup;          vs_top=sup;
2286          base[0]= vs_base[0];          base[0]= vs_base[0];
2287          {object V231;          {object V242;
2288          V231= cdr((V230));          V242= CMPcdr((V241));
2289           vs_top=base+1;           vs_top=base+1;
2290           while(!endp(V231))           while(V242!=Cnil)
2291           {vs_push(car(V231));V231=cdr(V231);}           {vs_push((V242)->c.c_car);V242=(V242)->c.c_cdr;}
2292          vs_base=base+1;}          vs_base=base+1;}
2293          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
2294          vs_top=sup;          vs_top=sup;
2295          goto T743;          goto T773;
2296          goto T754;          goto T784;
2297  T754:;  T784:;
2298          base[0]= (V229);          base[0]= (V240);
2299          base[1]= structure_ref(symbol_value(VV[97]),VV[39],1);          base[1]= STREF(object,(VV[99]->s.s_dbind),4);
2300          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2301          (void) (*Lnk351)();          (void) (*Lnk360)();
2302          vs_top=sup;          vs_top=sup;
2303          V230= vs_base[0];          V241= vs_base[0];
2304          if(((V230))==Cnil){          if(((V241))==Cnil){
2305          goto T763;}          goto T793;}
2306          base[0]= (V230);          base[0]= (V241);
2307          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2308          (void) (*Lnk352)();          (void) (*Lnk361)();
2309          vs_top=sup;          vs_top=sup;
2310          goto T743;          goto T773;
2311          goto T763;          goto T793;
2312  T763:;  T793:;
2313          base[0]= (V229);          base[0]= (V240);
2314          base[1]= VV[126];          base[1]= VV[126];
2315          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2316          (void) (*Lnk353)();          (void) (*Lnk362)();
2317          vs_top=sup;          vs_top=sup;
2318          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2319          goto T770;}          goto T800;}
2320          base[0]= VV[127];          base[0]= VV[127];
2321          base[1]= (V229);          base[1]= (V240);
2322          base[2]= car(symbol_value(VV[89]));          base[2]= CMPcar((VV[88]->s.s_dbind));
2323          base[3]= cadr(symbol_value(VV[89]));          base[3]= CMPcadr((VV[88]->s.s_dbind));
2324          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
2325          (void) (*Lnk347)();          (void) (*Lnk354)();
2326          vs_top=sup;          vs_top=sup;
2327          goto T743;          goto T773;
2328          goto T770;          goto T800;
2329  T770:;  T800:;
2330          base[0]= VV[128];          base[0]= VV[128];
2331          base[1]= (V229);          base[1]= (V240);
2332          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2333          (void) (*Lnk347)();          (void) (*Lnk354)();
2334          vs_top=sup;}          vs_top=sup;}
2335          goto T743;          goto T773;
2336  T743:;  T773:;
2337          goto T738;          goto T768;
2338  }  }
2339  /*      function definition for LOOP-POP-SOURCE */  /*      function definition for LOOP-POP-SOURCE */
2340    
2341  static void L48()  static void L50()
2342  {register object *base=vs_base;  {register object *base=vs_base;
2343          register object *sup=base+VM40; VC40          register object *sup=base+VM42; VC42
2344          vs_reserve(VM40);          vs_check;
         check_arg(0);  
2345          vs_top=sup;          vs_top=sup;
2346          goto TTL;          goto TTL;
2347  TTL:;  TTL:;
2348          if((symbol_value(VV[89]))==Cnil){          if(((VV[88]->s.s_dbind))==Cnil){
2349          goto T783;}          goto T813;}
2350          {object V232;          {object V243;
2351          V232= car(symbol_value(VV[89]));          V243= CMPcar((VV[88]->s.s_dbind));
2352          setq(VV[89],cdr(symbol_value(VV[89])));          (VV[88]->s.s_dbind)= CMPcdr((VV[88]->s.s_dbind));
2353          base[0]= (V232);          base[0]= (V243);
2354          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2355          return;}          return;}
2356          goto T783;          goto T813;
2357  T783:;  T813:;
2358          base[0]= VV[129];          base[0]= VV[129];
2359          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2360          (void) (*Lnk347)();          (void) (*Lnk354)();
2361          return;          return;
2362  }  }
2363    /*      function definition for LOOP-GET-COMPOUND-FORM  */
2364    
2365    static void L51()
2366    {register object *base=vs_base;
2367            register object *sup=base+VM43; VC43
2368            vs_check;
2369            vs_top=sup;
2370            goto TTL;
2371    TTL:;
2372            {object V244;
2373            vs_base=vs_top;
2374            (void) (*Lnk363)();
2375            vs_top=sup;
2376            V244= vs_base[0];
2377            if(type_of((V244))==t_cons){
2378            goto T820;}
2379            base[0]= VV[130];
2380            base[1]= (V244);
2381            vs_top=(vs_base=base+0)+2;
2382            (void) (*Lnk354)();
2383            vs_top=sup;
2384            goto T820;
2385    T820:;
2386            base[0]= (V244);
2387            vs_top=(vs_base=base+0)+1;
2388            return;}
2389    }
2390  /*      function definition for LOOP-GET-PROGN  */  /*      function definition for LOOP-GET-PROGN  */
2391    
2392  static void L49()  static void L52()
2393  {register object *base=vs_base;  {register object *base=vs_base;
2394          register object *sup=base+VM41; VC41          register object *sup=base+VM44; VC44
2395          vs_reserve(VM41);          vs_check;
         check_arg(0);  
2396          vs_top=sup;          vs_top=sup;
2397          goto TTL;          goto TTL;
2398  TTL:;  TTL:;
2399          {register object V233;          {register object V245;
2400          register object V234;          register object V246;
2401          vs_base=vs_top;          vs_base=vs_top;
2402          (void) (*Lnk350)();          (void) (*Lnk364)();
2403          vs_top=sup;          vs_top=sup;
2404          V235= vs_base[0];          V247= vs_base[0];
2405          V233= make_cons(V235,Cnil);          V245= make_cons(V247,Cnil);
2406          V234= car(symbol_value(VV[89]));          V246= CMPcar((VV[88]->s.s_dbind));
2407          goto T793;          goto T829;
2408  T793:;  T829:;
2409          if(!(type_of((V234))!=t_cons)){          if(!(type_of((V246))!=t_cons)){
2410          goto T794;}          goto T830;}
2411          if((cdr((V233)))!=Cnil){          if((CMPcdr((V245)))!=Cnil){
2412          goto T798;}          goto T834;}
2413          base[0]= car((V233));          base[0]= CMPcar((V245));
2414          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2415          return;          return;
2416          goto T798;          goto T834;
2417  T798:;  T834:;
2418          V236= nreverse((V233));          V248= nreverse((V245));
2419          base[0]= make_cons(VV[14],/* INLINE-ARGS */V236);          base[0]= make_cons(VV[14],/* INLINE-ARGS */V248);
2420          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2421          return;          return;
2422          goto T794;          goto T830;
2423  T794:;  T830:;
2424          vs_base=vs_top;          vs_base=vs_top;
2425          (void) (*Lnk350)();          (void) (*Lnk364)();
2426          vs_top=sup;          vs_top=sup;
2427          V237= vs_base[0];          V249= vs_base[0];
2428          V233= make_cons(V237,(V233));          V245= make_cons(V249,(V245));
2429          V234= car(symbol_value(VV[89]));          V246= CMPcar((VV[88]->s.s_dbind));
2430          goto T793;}          goto T829;}
2431  }  }
2432  /*      function definition for LOOP-GET-FORM   */  /*      function definition for LOOP-GET-FORM   */
2433    
2434  static void L50()  static void L53()
2435  {register object *base=vs_base;  {register object *base=vs_base;
2436          register object *sup=base+VM42; VC42          register object *sup=base+VM45; VC45
2437          vs_reserve(VM42);          vs_check;
         check_arg(0);  
2438          vs_top=sup;          vs_top=sup;
2439          goto TTL;          goto TTL;
2440  TTL:;  TTL:;
2441          if((symbol_value(VV[89]))==Cnil){          if(((VV[88]->s.s_dbind))==Cnil){
2442          goto T807;}          goto T843;}
2443          vs_base=vs_top;          vs_base=vs_top;
2444          (void) (*Lnk350)();          (void) (*Lnk359)();
2445          return;          return;
2446          goto T807;          goto T843;
2447  T807:;  T843:;
2448          base[0]= VV[130];          base[0]= VV[131];
2449          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2450          (void) (*Lnk347)();          (void) (*Lnk354)();
2451          return;          return;
2452  }  }
2453  /*      function definition for LOOP-CONSTRUCT-RETURN   */  /*      function definition for LOOP-CONSTRUCT-RETURN   */
2454    
2455  static void L51()  static void L54()
2456  {register object *base=vs_base;  {register object *base=vs_base;
2457          register object *sup=base+VM43; VC43          register object *sup=base+VM46; VC46
2458          vs_reserve(VM43);          vs_check;
2459          {object V238;          {object V250;
2460          check_arg(1);          V250=(base[0]);
         V238=(base[0]);  
2461          vs_top=sup;          vs_top=sup;
2462          goto TTL;          goto TTL;
2463  TTL:;  TTL:;
2464          base[1]= list(3,VV[86],car(symbol_value(VV[118])),(V238));          base[1]= list(3,VV[85],CMPcar((VV[120]->s.s_dbind)),(V250));
2465          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2466          return;          return;
2467          }          }
2468  }  }
2469  /*      function definition for LOOP-PSEUDO-BODY        */  /*      function definition for LOOP-PSEUDO-BODY        */
2470    
2471  static void L52()  static void L55()
2472  {register object *base=vs_base;  {register object *base=vs_base;
2473          register object *sup=base+VM44; VC44          register object *sup=base+VM47; VC47
2474          vs_reserve(VM44);          vs_check;
2475          {object V239;          {object V251;
2476          check_arg(1);          V251=(base[0]);
         V239=(base[0]);  
2477          vs_top=sup;          vs_top=sup;
2478          goto TTL;          goto TTL;
2479  TTL:;  TTL:;
2480          if((symbol_value(VV[110]))!=Cnil){          if(((VV[112]->s.s_dbind))!=Cnil){
2481          goto T810;}          goto T846;}
2482          if((symbol_value(VV[115]))==Cnil){          if(((VV[117]->s.s_dbind))==Cnil){
2483          goto T811;}          goto T847;}
2484          goto T810;          goto T846;
2485  T810:;  T846:;
2486          setq(VV[109],make_cons(V239,symbol_value(VV[109])));          (VV[111]->s.s_dbind)= make_cons(V251,(VV[111]->s.s_dbind));
2487          base[1]= symbol_value(VV[109]);          base[1]= (VV[111]->s.s_dbind);
2488          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2489          return;          return;
2490          goto T811;          goto T847;
2491  T811:;  T847:;
2492          setq(VV[108],make_cons(V239,symbol_value(VV[108])));          (VV[110]->s.s_dbind)= make_cons(V251,(VV[110]->s.s_dbind));
2493          setq(VV[111],make_cons(V239,symbol_value(VV[111])));          (VV[113]->s.s_dbind)= make_cons(V251,(VV[113]->s.s_dbind));
2494          base[1]= symbol_value(VV[111]);          base[1]= (VV[113]->s.s_dbind);
2495          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2496          return;          return;
2497          }          }
2498  }  }
2499  /*      function definition for LOOP-EMIT-BODY  */  /*      function definition for LOOP-EMIT-BODY  */
2500    
2501  static void L53()  static void L56()
2502  {register object *base=vs_base;  {register object *base=vs_base;
2503          register object *sup=base+VM45; VC45          register object *sup=base+VM48; VC48
2504          vs_reserve(VM45);          vs_check;
2505          {object V243;          {object V255;
2506          check_arg(1);          V255=(base[0]);
         V243=(base[0]);  
2507          vs_top=sup;          vs_top=sup;
2508          goto TTL;          goto TTL;
2509  TTL:;  TTL:;
2510          setq(VV[110],Ct);          (VV[112]->s.s_dbind)= Ct;
2511          base[1]= (V243);          base[1]= (V255);
2512          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2513          (void) (*Lnk354)();          (void) (*Lnk365)();
2514          return;          return;
2515          }          }
2516  }  }
2517  /*      function definition for LOOP-EMIT-FINAL-VALUE   */  /*      function definition for LOOP-EMIT-FINAL-VALUE   */
2518    
2519  static void L54()  static void L57()
2520  {register object *base=vs_base;  {register object *base=vs_base;
2521          register object *sup=base+VM46; VC46          register object *sup=base+VM49; VC49
2522          vs_reserve(VM46);          vs_check;
2523          {object V244;          {object V256;
2524          check_arg(1);          object V257;
2525          V244=(base[0]);          if(vs_base>=vs_top){vs_top=sup;goto T858;}
2526          vs_top=sup;          V256=(base[0]);
2527          goto TTL;          V257= Ct;
2528  TTL:;          vs_top=sup;
2529          {object V245;          goto T859;
2530          base[2]= (V244);          goto T858;
2531          vs_top=(vs_base=base+2)+1;  T858:;
2532          (void) (*Lnk355)();          V256= Cnil;
2533            V257= Cnil;
2534            goto T859;
2535    T859:;
2536            if(((V257))==Cnil){
2537            goto T861;}
2538            {object V258;
2539            base[3]= (V256);
2540            vs_top=(vs_base=base+3)+1;
2541            (void) (*Lnk366)();
2542          vs_top=sup;          vs_top=sup;
2543          V245= vs_base[0];          V258= vs_base[0];
2544          setq(VV[113],make_cons((V245),symbol_value(VV[113])));}          (VV[115]->s.s_dbind)= make_cons((V258),(VV[115]->s.s_dbind));}
2545          if((symbol_value(VV[114]))==Cnil){          goto T861;
2546          goto T826;}  T861:;
2547          if((symbol_value(VV[119]))==Cnil){          if(((VV[116]->s.s_dbind))==Cnil){
2548          goto T830;}          goto T867;}
2549          base[1]= VV[90];          base[2]= VV[132];
2550          base[2]= VV[131];          base[3]= (VV[116]->s.s_dbind);
2551          base[3]= symbol_value(VV[114]);          vs_top=(vs_base=base+2)+2;
         vs_top=(vs_base=base+1)+3;  
2552          (void) (*Lnk345)();          (void) (*Lnk345)();
2553          vs_top=sup;          vs_top=sup;
2554          goto T826;          goto T867;
2555          goto T830;  T867:;
2556  T830:;          (VV[116]->s.s_dbind)= CMPcar((VV[87]->s.s_dbind));
2557          base[1]= VV[132];          base[2]= (VV[116]->s.s_dbind);
2558          base[2]= symbol_value(VV[114]);          vs_top=(vs_base=base+2)+1;
         vs_top=(vs_base=base+1)+2;  
         (void) (*Lnk338)();  
         vs_top=sup;  
         goto T826;  
 T826:;  
         setq(VV[114],car(symbol_value(VV[88])));  
         base[1]= symbol_value(VV[114]);  
         vs_top=(vs_base=base+1)+1;  
2559          return;          return;
2560          }          }
2561  }  }
2562  /*      function definition for LOOP-DISALLOW-CONDITIONAL       */  /*      function definition for LOOP-DISALLOW-CONDITIONAL       */
2563    
2564  static void L55()  static void L58()
2565  {register object *base=vs_base;  {register object *base=vs_base;
2566          register object *sup=base+VM47; VC47          register object *sup=base+VM50; VC50
2567          vs_reserve(VM47);          vs_check;
2568          {object V246;          {object V259;
2569          if(vs_top-vs_base>1) too_many_arguments();          if(vs_base>=vs_top){vs_top=sup;goto T873;}
2570          if(vs_base>=vs_top){vs_top=sup;goto T838;}          V259=(base[0]);
2571          V246=(base[0]);          vs_top=sup;
2572          vs_top=sup;          goto T874;
2573          goto T839;          goto T873;
2574          goto T838;  T873:;
2575  T838:;          V259= Cnil;
2576          V246= Cnil;          goto T874;
2577          goto T839;  T874:;
2578  T839:;          if(((VV[117]->s.s_dbind))==Cnil){
2579          if((symbol_value(VV[115]))==Cnil){          goto T877;}
         goto T842;}  
2580          base[1]= VV[133];          base[1]= VV[133];
2581          base[2]= (V246);          base[2]= (V259);
2582          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2583          (void) (*Lnk347)();          (void) (*Lnk354)();
2584          return;          return;
2585          goto T842;          goto T877;
2586  T842:;  T877:;
2587          base[1]= Cnil;          base[1]= Cnil;
2588          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2589          return;          return;
2590          }          }
2591  }  }
2592    /*      function definition for LOOP-DISALLOW-ANONYMOUS-COLLECTORS      */
2593    
2594    static void L59()
2595    {register object *base=vs_base;
2596            register object *sup=base+VM51; VC51
2597            vs_check;
2598            vs_top=sup;
2599            goto TTL;
2600    TTL:;
2601            base[0]= VV[134];
2602            base[1]= (VV[121]->s.s_dbind);
2603            vs_top=(vs_base=base+0)+2;
2604            (void) (*Lnk367)();
2605            vs_top=sup;
2606            if((vs_base[0])==Cnil){
2607            goto T882;}
2608            base[0]= VV[135];
2609            vs_top=(vs_base=base+0)+1;
2610            (void) (*Lnk354)();
2611            return;
2612            goto T882;
2613    T882:;
2614            base[0]= Cnil;
2615            vs_top=(vs_base=base+0)+1;
2616            return;
2617    }
2618    /*      function definition for LOOP-DISALLOW-AGGREGATE-BOOLEANS        */
2619    
2620    static void L60()
2621    {register object *base=vs_base;
2622            register object *sup=base+VM52; VC52
2623            vs_check;
2624            vs_top=sup;
2625            goto TTL;
2626    TTL:;
2627            base[0]= (VV[116]->s.s_dbind);
2628            base[1]= VV[136];
2629            vs_top=(vs_base=base+0)+2;
2630            (void) (*Lnk362)();
2631            vs_top=sup;
2632            if((vs_base[0])==Cnil){
2633            goto T888;}
2634            base[0]= VV[137];
2635            vs_top=(vs_base=base+0)+1;
2636            (void) (*Lnk354)();
2637            return;
2638            goto T888;
2639    T888:;
2640            base[0]= Cnil;
2641            vs_top=(vs_base=base+0)+1;
2642            return;
2643    }
2644  /*      function definition for LOOP-TYPED-INIT */  /*      function definition for LOOP-TYPED-INIT */
2645    
2646  static void L56()  static void L61()
2647  {register object *base=vs_base;  {register object *base=vs_base;
2648          register object *sup=base+VM48; VC48          register object *sup=base+VM53; VC53
2649          vs_reserve(VM48);          vs_check;
2650          {register object V247;          {register object V260;
2651          check_arg(1);          V260=(base[0]);
         V247=(base[0]);  
2652          vs_top=sup;          vs_top=sup;
2653          goto TTL;          goto TTL;
2654  TTL:;  TTL:;
2655          if(((V247))==Cnil){          if(((V260))==Cnil){
2656          goto T847;}          goto T894;}
2657          base[1]= (V247);          base[1]= (V260);
2658          base[2]= VV[134];          base[2]= VV[138];
2659          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2660          (void) (*Lnk326)();          (void) (*Lnk333)();
2661          vs_top=sup;          vs_top=sup;
2662          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2663          goto T847;}          goto T894;}
2664          base[1]= (V247);          base[1]= (V260);
2665          base[2]= VV[135];          base[2]= VV[139];
2666          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2667          (void) (*Lnk326)();          (void) (*Lnk333)();
2668          vs_top=sup;          vs_top=sup;
2669          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2670          goto T853;}          goto T900;}
2671          base[1]= (V247);          base[1]= (V260);
2672          base[2]= VV[136];          base[2]= VV[140];
2673          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2674          (void) (*Lnk326)();          (void) (*Lnk333)();
2675          vs_top=sup;          vs_top=sup;
2676          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2677          goto T854;}          goto T901;}
2678          goto T853;          goto T900;
2679  T853:;  T900:;
2680          base[1]= (*(LnkLI356))(small_fixnum(0),(V247));          base[1]= small_fixnum(0);
2681          vs_top=(vs_base=base+1)+1;          base[2]= (V260);
2682            vs_top=(vs_base=base+1)+2;
2683            (void) (*Lnk368)();
2684          return;          return;
2685          goto T854;          goto T901;
2686  T854:;  T901:;
2687          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
2688          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2689          return;          return;
2690          goto T847;          goto T894;
2691  T847:;  T894:;
2692          base[1]= Cnil;          base[1]= Cnil;
2693          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2694          return;          return;
# Line 2576  T847:; Line 2696  T847:;
2696  }  }
2697  /*      function definition for LOOP-OPTIONAL-TYPE      */  /*      function definition for LOOP-OPTIONAL-TYPE      */
2698    
2699  static void L57()  static void L62()
2700  {register object *base=vs_base;  {register object *base=vs_base;
2701          register object *sup=base+VM49; VC49          register object *sup=base+VM54; VC54
2702          vs_reserve(VM49);          vs_check;
2703          if(vs_top-vs_base>1) too_many_arguments();          if(vs_base>=vs_top){vs_top=sup;goto T911;}
2704          if(vs_base>=vs_top){vs_top=sup;goto T862;}          vs_top=sup;
2705          vs_top=sup;          goto T912;
2706          goto T863;          goto T911;
2707          goto T862;  T911:;
 T862:;  
2708          base[0]= Cnil;          base[0]= Cnil;
2709          goto T863;          goto T912;
2710  T863:;  T912:;
2711          if(symbol_value(VV[89])==Cnil){          if((VV[88]->s.s_dbind)==Cnil){
2712          base[1]= Cnil;          base[1]= Cnil;
2713          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2714          return;}          return;}
2715          base[1]= car(symbol_value(VV[89]));          base[1]= CMPcar((VV[88]->s.s_dbind));
2716          base[2]= base[1];          base[2]= base[1];
2717          base[3]= VV[137];          base[3]= VV[141];
2718          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2719          (void) (*Lnk357)();          (void) (*Lnk369)();
2720          vs_top=sup;          vs_top=sup;
2721          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2722          goto T867;}          goto T916;}
2723          vs_base=vs_top;          vs_base=vs_top;
2724          (void) (*Lnk350)();          (void) (*Lnk359)();
2725          vs_top=sup;          vs_top=sup;
2726          vs_base=vs_top;          vs_base=vs_top;
2727          (void) (*Lnk350)();          (void) (*Lnk359)();
2728          return;          return;
2729          goto T867;          goto T916;
2730  T867:;  T916:;
2731          if(!(type_of(base[1])==t_symbol)){          if(!(type_of(base[1])==t_symbol)){
2732          goto T873;}          goto T922;}
2733          {object V248;{object V249;          {object V261;{object V262;
2734          base[2]= base[1];          base[2]= base[1];
2735          base[3]= structure_ref(symbol_value(VV[97]),VV[39],4);          base[3]= STREF(object,(VV[99]->s.s_dbind),16);
2736          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2737          Lgethash();          Lgethash();
2738          vs_top=sup;          vs_top=sup;
2739          V249= vs_base[0];          V262= vs_base[0];
2740          if(V249==Cnil)goto T876;          if(V262==Cnil)goto T925;
2741          V248= V249;          V261= V262;
2742          goto T875;          goto T924;
2743          goto T876;          goto T925;
2744  T876:;}  T925:;}
2745          base[2]= symbol_name(base[1]);          base[2]= symbol_name(base[1]);
2746          base[3]= structure_ref(symbol_value(VV[97]),VV[39],5);          base[3]= STREF(object,(VV[99]->s.s_dbind),20);
2747          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2748          Lgethash();          Lgethash();
2749          vs_top=sup;          vs_top=sup;
2750          V248= vs_base[0];          V261= vs_base[0];
2751          goto T875;          goto T924;
2752  T875:;  T924:;
2753          if(((V248))==Cnil){          if(((V261))==Cnil){
2754          goto T883;}          goto T932;}
2755          vs_base=vs_top;          vs_base=vs_top;
2756          (void) (*Lnk350)();          (void) (*Lnk359)();
2757          vs_top=sup;          vs_top=sup;
2758          base[2]= (V248);          base[2]= (V261);
2759          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2760          return;          return;
2761          goto T883;          goto T932;
2762  T883:;  T932:;
2763          base[2]= Cnil;          base[2]= Cnil;
2764          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2765          return;}          return;}
2766          goto T873;          goto T922;
2767  T873:;  T922:;
2768          if(!(type_of(base[0])==t_cons)){          if(!(type_of(base[0])==t_cons)){
2769          goto T888;}          goto T937;}
2770          if(type_of(base[1])==t_cons){          if(type_of(base[1])==t_cons){
2771          goto T886;}          goto T935;}
2772          base[2]= VV[138];          base[2]= VV[142];
2773          base[3]= base[1];          base[3]= base[1];
2774          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2775          (void) (*Lnk347)();          (void) (*Lnk354)();
2776          vs_top=sup;          vs_top=sup;
2777          goto T886;          goto T935;
2778          goto T888;          goto T937;
2779  T888:;  T937:;
2780          base[2]= VV[139];          base[2]= VV[143];
2781          base[3]= base[1];          base[3]= base[1];
2782          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2783          (void) (*Lnk347)();          (void) (*Lnk354)();
2784          vs_top=sup;          vs_top=sup;
2785          goto T886;          goto T935;
2786  T886:;  T935:;
2787          vs_base=vs_top;          vs_base=vs_top;
2788          (void) (*Lnk350)();          (void) (*Lnk359)();
2789          vs_top=sup;          vs_top=sup;
2790          base[2]= base[1];          base[2]= base[1];
2791          base[3]= base[0];          base[3]= base[0];
2792          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2793          L58(base);          L63(base);
2794          return;          return;
2795  }  }
2796  /*      function definition for LOOP-BIND-BLOCK */  /*      function definition for LOOP-BIND-BLOCK */
2797    
2798  static void L60()  static void L65()
2799  {register object *base=vs_base;  {register object *base=vs_base;
2800          register object *sup=base+VM50; VC50          register object *sup=base+VM55; VC55
2801          vs_reserve(VM50);          vs_check;
         check_arg(0);  
2802          vs_top=sup;          vs_top=sup;
2803          goto TTL;          goto TTL;
2804  TTL:;  TTL:;
2805          if((symbol_value(VV[100]))!=Cnil){          if(((VV[102]->s.s_dbind))!=Cnil){
2806          goto T899;}          goto T948;}
2807          if((symbol_value(VV[103]))!=Cnil){          if(((VV[105]->s.s_dbind))!=Cnil){
2808          goto T899;}          goto T948;}
2809          if((symbol_value(VV[107]))==Cnil){          if(((VV[109]->s.s_dbind))==Cnil){
2810          goto T900;}          goto T949;}
2811          goto T899;          goto T948;
2812  T899:;  T948:;
2813          {object V250;          {object V263;
2814          V251= nreverse(symbol_value(VV[100]));          V264= nreverse((VV[102]->s.s_dbind));
2815          V250= list(4,/* INLINE-ARGS */V251,symbol_value(VV[103]),symbol_value(VV[104]),symbol_value(VV[107]));          V263= list(4,/* INLINE-ARGS */V264,(VV[105]->s.s_dbind),(VV[106]->s.s_dbind),(VV[109]->s.s_dbind));
2816          setq(VV[105],make_cons((V250),symbol_value(VV[105])));}          (VV[107]->s.s_dbind)= make_cons((V263),(VV[107]->s.s_dbind));}
2817          setq(VV[100],Cnil);          (VV[102]->s.s_dbind)= Cnil;
2818          setq(VV[103],Cnil);          (VV[105]->s.s_dbind)= Cnil;
2819          setq(VV[104],Cnil);          (VV[106]->s.s_dbind)= Cnil;
2820          setq(VV[107],Cnil);          (VV[109]->s.s_dbind)= Cnil;
2821          base[0]= Cnil;          base[0]= Cnil;
2822          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2823          return;          return;
2824          goto T900;          goto T949;
2825  T900:;  T949:;
2826          base[0]= Cnil;          base[0]= Cnil;
2827          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2828          return;          return;
2829  }  }
2830    /*      function definition for LOOP-VARIABLE-P */
2831    
2832    static void L66()
2833    {register object *base=vs_base;
2834            register object *sup=base+VM56; VC56
2835            vs_check;
2836            {register object V265;
2837            V265=(base[0]);
2838            vs_top=sup;
2839            goto TTL;
2840    TTL:;
2841            {register object V266;
2842            V266= (VV[107]->s.s_dbind);
2843            goto T966;
2844    T966:;
2845            if(((V266))!=Cnil){
2846            goto T971;}
2847            base[1]= Cnil;
2848            vs_top=(vs_base=base+1)+1;
2849            return;
2850            goto T971;
2851    T971:;
2852            {register object x= (V265),V267= CMPcaar((V266));
2853            while(V267!=Cnil)
2854            if(EQ(x,V267->c.c_car->c.c_car) &&V267->c.c_car != Cnil){
2855            goto T974;
2856            }else V267=V267->c.c_cdr;
2857            goto T969;}
2858            goto T974;
2859    T974:;
2860            base[1]= Ct;
2861            vs_top=(vs_base=base+1)+1;
2862            return;
2863            goto T969;
2864    T969:;
2865            V266= CMPcdr((V266));
2866            goto T966;}
2867            }
2868    }
2869  /*      function definition for LOOP-MAKE-VARIABLE      */  /*      function definition for LOOP-MAKE-VARIABLE      */
2870    
2871  static void L61()  static void L67()
2872  {register object *base=vs_base;  {register object *base=vs_base;
2873          register object *sup=base+VM51; VC51          register object *sup=base+VM57; VC57
2874          vs_reserve(VM51);          vs_check;
2875          {register object V252;          {register object V268;
2876          register object V253;          register object V269;
2877          register object V254;          register object V270;
2878          object V255;          object V271;
2879          if(vs_top-vs_base<3) too_few_arguments();          V268=(base[0]);
2880          if(vs_top-vs_base>4) too_many_arguments();          V269=(base[1]);
2881          V252=(base[0]);          V270=(base[2]);
         V253=(base[1]);  
         V254=(base[2]);  
2882          vs_base=vs_base+3;          vs_base=vs_base+3;
2883          if(vs_base>=vs_top){vs_top=sup;goto T916;}          if(vs_base>=vs_top){vs_top=sup;goto T978;}
2884          V255=(base[3]);          V271=(base[3]);
2885          vs_top=sup;          vs_top=sup;
2886          goto T917;          goto T979;
2887          goto T916;          goto T978;
2888  T916:;  T978:;
2889          V255= Cnil;          V271= Cnil;
2890          goto T917;          goto T979;
2891  T917:;  T979:;
2892          if(((V252))!=Cnil){          if(((V268))!=Cnil){
2893          goto T921;}          goto T983;}
2894          if(((V253))==Cnil){          if(((V269))==Cnil){
2895          goto T919;}          goto T981;}
2896          {object V256;          {object V272;
2897          base[5]= VV[142];          base[5]= VV[146];
2898          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2899          (void) (*Lnk327)();          (void) (*Lnk334)();
2900          vs_top=sup;          vs_top=sup;
2901          V252= vs_base[0];          V268= vs_base[0];
2902          V256= list(2,(V252),(V253));          V272= list(2,(V268),(V269));
2903          setq(VV[100],make_cons((V256),symbol_value(VV[100])));}          (VV[102]->s.s_dbind)= make_cons((V272),(VV[102]->s.s_dbind));}
2904          {object V257;          {object V273;
2905          V257= list(2,VV[143],(V252));          V273= list(2,VV[97],(V268));
2906          setq(VV[103],make_cons((V257),symbol_value(VV[103])));          (VV[105]->s.s_dbind)= make_cons((V273),(VV[105]->s.s_dbind));
2907          goto T919;}          goto T981;}
2908          goto T921;          goto T983;
2909  T921:;  T983:;
2910          if(!(type_of((V252))!=t_cons)){          if(!(type_of((V268))!=t_cons)){
2911          goto T933;}          goto T995;}
2912          if(((V255))==Cnil){          if(((V271))==Cnil){
2913          goto T937;}          goto T999;}
2914          {register object x= (V252),V258= symbol_value(VV[99]);          {register object x= (V268),V274= (VV[101]->s.s_dbind);
2915          while(!endp(V258))          while(V274!=Cnil)
2916          if(eql(x,V258->c.c_car)){          if(eql(x,V274->c.c_car)){
2917          goto T941;          goto T1003;
2918          }else V258=V258->c.c_cdr;          }else V274=V274->c.c_cdr;
2919          goto T940;}          goto T1002;}
2920          goto T941;          goto T1003;
2921  T941:;  T1003:;
2922          base[4]= VV[144];          base[4]= VV[147];
2923          base[5]= (V252);          base[5]= (V268);
2924          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2925          (void) (*Lnk347)();          (void) (*Lnk354)();
2926          vs_top=sup;          vs_top=sup;
2927          goto T935;          goto T997;
2928          goto T940;          goto T1002;
2929  T940:;  T1002:;
2930          setq(VV[99],make_cons(V252,symbol_value(VV[99])));          (VV[101]->s.s_dbind)= make_cons(V268,(VV[101]->s.s_dbind));
2931          goto T935;          goto T997;
2932          goto T937;          goto T999;
2933  T937:;  T999:;
2934          {register object x= (V252),V260= symbol_value(VV[100]);          {register object x= (V268),V276= (VV[102]->s.s_dbind);
2935          while(!endp(V260))          while(V276!=Cnil)
2936          if(type_of(V260->c.c_car)==t_cons &&eql(x,V260->c.c_car->c.c_car)){          if(eql(x,V276->c.c_car->c.c_car) &&V276->c.c_car != Cnil){
2937          goto T946;          goto T1008;
2938          }else V260=V260->c.c_cdr;          }else V276=V276->c.c_cdr;
2939          goto T935;}          goto T997;}
2940          goto T946;          goto T1008;
2941  T946:;  T1008:;
2942          base[4]= VV[145];          base[4]= VV[148];
2943          base[5]= (V252);          base[5]= (V268);
2944          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2945          (void) (*Lnk347)();          (void) (*Lnk354)();
2946          vs_top=sup;          vs_top=sup;
2947          goto T935;          goto T997;
2948  T935:;  T997:;
2949          if(type_of((V252))==t_symbol){          if(type_of((V268))==t_symbol){
2950          goto T949;}          goto T1011;}
2951          base[4]= VV[146];          base[4]= VV[149];
2952          base[5]= (V252);          base[5]= (V268);
2953          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2954          (void) (*Lnk347)();          (void) (*Lnk354)();
2955          vs_top=sup;          vs_top=sup;
2956          goto T949;          goto T1011;
2957  T949:;  T1011:;
2958          base[4]= (V252);          base[4]= (V268);
2959          base[5]= (V254);          base[5]= (V270);
2960          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2961          (void) (*Lnk358)();          (void) (*Lnk370)();
2962          vs_top=sup;          vs_top=sup;
2963          {object V261;          {object V277;
2964          if((V253)!=Cnil){          if((V269)!=Cnil){
2965          V262= (V253);          V278= (V269);
2966          goto T958;}          goto T1020;}
2967          base[5]= (V254);          base[5]= (V270);
2968          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2969          (void) (*Lnk329)();          (void) (*Lnk336)();
2970          vs_top=sup;          vs_top=sup;
2971          V262= vs_base[0];          V278= vs_base[0];
2972          goto T958;          goto T1020;
2973  T958:;  T1020:;
2974          V261= list(2,(V252),V262);          V277= list(2,(V268),V278);
2975          setq(VV[100],make_cons((V261),symbol_value(VV[100])));          (VV[102]->s.s_dbind)= make_cons((V277),(VV[102]->s.s_dbind));
2976          goto T919;}          goto T981;}
2977          goto T933;          goto T995;
2978  T933:;  T995:;
2979          if(((V253))==Cnil){          if(((V269))==Cnil){
2980          goto T962;}          goto T1024;}
2981          if((symbol_value(VV[63]))==Cnil){          if(((VV[63]->s.s_dbind))==Cnil){
2982          goto T965;}          goto T1027;}
2983          base[4]= (V252);          base[4]= (V268);
2984          base[5]= (V254);          base[5]= (V270);
2985          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2986          (void) (*Lnk358)();          (void) (*Lnk370)();
2987          vs_top=sup;          vs_top=sup;
2988          {object V263;          {object V279;
2989          V263= list(2,(V252),(V253));          V279= list(2,(V268),(V269));
2990          setq(VV[100],make_cons((V263),symbol_value(VV[100])));          (VV[102]->s.s_dbind)= make_cons((V279),(VV[102]->s.s_dbind));
2991          goto T919;}          goto T981;}
2992          goto T965;          goto T1027;
2993  T965:;  T1027:;
2994          {object V264;          {object V280;
2995          base[4]= VV[147];          base[4]= VV[150];
2996          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2997          (void) (*Lnk327)();          (void) (*Lnk334)();
2998          vs_top=sup;          vs_top=sup;
2999          V264= vs_base[0];          V280= vs_base[0];
3000          {object V265;          base[4]= (V268);
3001          V265= list(2,(V264),(V253));          base[5]= (V270);
3002          setq(VV[100],make_cons((V265),symbol_value(VV[100])));}          vs_top=(vs_base=base+4)+2;
3003          setq(VV[104],listA(3,(V252),(V264),symbol_value(VV[104])));          (void) (*Lnk370)();
3004          goto T919;}          vs_top=sup;
3005          goto T962;          {object V281;
3006  T962:;          V281= list(2,(V280),(V269));
3007          {object V266;          (VV[102]->s.s_dbind)= make_cons((V281),(VV[102]->s.s_dbind));}
3008          object V267;          (VV[106]->s.s_dbind)= listA(3,(V268),(V280),(VV[106]->s.s_dbind));
3009          V266= Cnil;          goto T981;}
3010          V267= Cnil;          goto T1024;
3011          if(!(type_of((V254))!=t_cons)){  T1024:;
3012          goto T980;}          {object V282;
3013          V267= (V254);          object V283;
3014          V266= (V267);          V282= Cnil;
3015          goto T978;          V283= Cnil;
3016          goto T980;          if(!(type_of((V270))!=t_cons)){
3017  T980:;          goto T1045;}
3018          V266= car((V254));          V283= (V270);
3019          V267= cdr((V254));          V282= (V283);
3020          goto T978;          goto T1043;
3021  T978:;          goto T1045;
3022          base[4]= car((V252));  T1045:;
3023            V282= CMPcar((V270));
3024            V283= CMPcdr((V270));
3025            goto T1043;
3026    T1043:;
3027            base[4]= CMPcar((V268));
3028          base[5]= Cnil;          base[5]= Cnil;
3029          base[6]= (V266);          base[6]= (V282);
3030          base[7]= (V255);          base[7]= (V271);
3031          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
3032          (void) (*Lnk359)();          (void) (*Lnk371)();
3033          vs_top=sup;          vs_top=sup;
3034          base[4]= cdr((V252));          base[4]= CMPcdr((V268));
3035          base[5]= Cnil;          base[5]= Cnil;
3036          base[6]= (V267);          base[6]= (V283);
3037          base[7]= (V255);          base[7]= (V271);
3038          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
3039          (void) (*Lnk359)();          (void) (*Lnk371)();
3040          vs_top=sup;}          vs_top=sup;}
3041          goto T919;          goto T981;
3042  T919:;  T981:;
3043          base[4]= (V252);          base[4]= (V268);
3044          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3045          return;          return;
3046          }          }
3047  }  }
3048  /*      function definition for LOOP-MAKE-ITERATION-VARIABLE    */  /*      function definition for LOOP-MAKE-ITERATION-VARIABLE    */
3049    
3050  static void L62()  static void L68()
3051  {register object *base=vs_base;  {register object *base=vs_base;
3052          register object *sup=base+VM52; VC52          register object *sup=base+VM58; VC58
3053          vs_reserve(VM52);          vs_check;
3054          {object V268;          {object V284;
3055          object V269;          object V285;
3056          object V270;          object V286;
3057          check_arg(3);          V284=(base[0]);
3058          V268=(base[0]);          V285=(base[1]);
3059          V269=(base[1]);          V286=(base[2]);
         V270=(base[2]);  
3060          vs_top=sup;          vs_top=sup;
3061          goto TTL;          goto TTL;
3062  TTL:;  TTL:;
3063          base[3]= (V268);          base[3]= (V284);
3064          base[4]= (V269);          base[4]= (V285);
3065          base[5]= (V270);          base[5]= (V286);
3066          base[6]= Ct;          base[6]= Ct;
3067          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3068          (void) (*Lnk359)();          (void) (*Lnk371)();
3069          return;          return;
3070          }          }
3071  }  }
3072  /*      function definition for LOOP-DECLARE-VARIABLE   */  /*      function definition for LOOP-DECLARE-VARIABLE   */
3073    
3074  static void L63()  static void L69()
3075  {register object *base=vs_base;  {register object *base=vs_base;
3076          register object *sup=base+VM53; VC53          register object *sup=base+VM59; VC59
3077          vs_reserve(VM53);          vs_check;
3078          {register object V271;          {register object V287;
3079          register object V272;          register object V288;
3080          check_arg(2);          V287=(base[0]);
3081          V271=(base[0]);          V288=(base[1]);
         V272=(base[1]);  
3082          vs_top=sup;          vs_top=sup;
3083          goto TTL;          goto TTL;
3084  TTL:;  TTL:;
3085          if(((V271))==Cnil){          if(((V287))==Cnil){
3086          goto T1000;}          goto T1065;}
3087          if(((V272))==Cnil){          if(((V288))==Cnil){
3088          goto T1000;}          goto T1065;}
3089          if(!(((V272))==(Ct))){          if(!(((V288))==(Ct))){
3090          goto T1001;}          goto T1066;}
3091          goto T1000;          goto T1065;
3092  T1000:;  T1065:;
3093          base[2]= Cnil;          base[2]= Cnil;
3094          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3095          return;          return;
3096          goto T1001;          goto T1066;
3097  T1001:;  T1066:;
3098          if(!(type_of((V271))==t_symbol)){          if(!(type_of((V287))==t_symbol)){
3099          goto T1008;}          goto T1073;}
3100          if(((V272))==(Ct)){          if(((V288))==(Ct)){
3101          goto T1011;}          goto T1076;}
3102          {register object x= (V271),V273= symbol_value(VV[101]);          {register object x= (V287),V289= (VV[103]->s.s_dbind);
3103          while(!endp(V273))          while(V289!=Cnil)
3104          if(eql(x,V273->c.c_car)){          if(eql(x,V289->c.c_car)){
3105          goto T1011;          goto T1076;
3106          }else V273=V273->c.c_cdr;}          }else V289=V289->c.c_cdr;}
3107          {object V275;          {object V291;
3108          V275= list(3,VV[31],V272,(V271));          V291= list(3,VV[31],V288,(V287));
3109          setq(VV[103],make_cons((V275),symbol_value(VV[103])));          (VV[105]->s.s_dbind)= make_cons((V291),(VV[105]->s.s_dbind));
3110          base[3]= symbol_value(VV[103]);          base[3]= (VV[105]->s.s_dbind);
3111          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3112          return;}          return;}
3113          goto T1011;          goto T1076;
3114  T1011:;  T1076:;
3115          base[2]= Cnil;          base[2]= Cnil;
3116          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3117          return;          return;
3118          goto T1008;          goto T1073;
3119  T1008:;  T1073:;
3120          if(!(type_of((V271))==t_cons)){          if(!(type_of((V287))==t_cons)){
3121          goto T1018;}          goto T1083;}
3122          if(!(type_of((V272))==t_cons)){          if(!(type_of((V288))==t_cons)){
3123          goto T1021;}          goto T1086;}
3124          base[2]= car((V271));          base[2]= CMPcar((V287));
3125          base[3]= car((V272));          base[3]= CMPcar((V288));
3126          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3127          (void) (*Lnk358)();          (void) (*Lnk370)();
3128          vs_top=sup;          vs_top=sup;
3129          V271= cdr((V271));          V287= CMPcdr((V287));
3130          V272= cdr((V272));          V288= CMPcdr((V288));
3131          goto TTL;          goto TTL;
3132          goto T1021;          goto T1086;
3133  T1021:;  T1086:;
3134          base[2]= car((V271));          base[2]= CMPcar((V287));
3135          base[3]= (V272);          base[3]= (V288);
3136          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3137          (void) (*Lnk358)();          (void) (*Lnk370)();
3138          vs_top=sup;          vs_top=sup;
3139          V271= cdr((V271));          V287= CMPcdr((V287));
3140          goto TTL;          goto TTL;
3141          goto T1018;          goto T1083;
3142  T1018:;  T1083:;
3143          base[2]= VV[148];          base[2]= VV[151];
3144          base[3]= (V271);          base[3]= (V287);
3145          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3146          Lerror();          Lerror();
3147          return;          return;
# Line 2991  T1018:; Line 3149  T1018:;
3149  }  }
3150  /*      function definition for LOOP-MAYBE-BIND-FORM    */  /*      function definition for LOOP-MAYBE-BIND-FORM    */
3151    
3152  static void L64()  static void L70()
3153  {register object *base=vs_base;  {register object *base=vs_base;
3154          register object *sup=base+VM54; VC54          register object *sup=base+VM60; VC60
3155          vs_reserve(VM54);          vs_check;
3156          {object V276;          {object V292;
3157          object V277;          object V293;
3158          check_arg(2);          V292=(base[0]);
3159          V276=(base[0]);          V293=(base[1]);
         V277=(base[1]);  
3160          vs_top=sup;          vs_top=sup;
3161          goto TTL;          goto TTL;
3162  TTL:;  TTL:;
3163          base[2]= (V276);          base[2]= (V292);
3164          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3165          (void) (*Lnk360)();          (void) (*Lnk372)();
3166          vs_top=sup;          vs_top=sup;
3167          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3168          goto T1038;}          goto T1103;}
3169          base[2]= (V276);          base[2]= (V292);
3170          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3171          return;          return;
3172          goto T1038;          goto T1103;
3173  T1038:;  T1103:;
3174          base[3]= VV[149];          base[3]= VV[152];
3175          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3176          (void) (*Lnk327)();          (void) (*Lnk334)();
3177          vs_top=sup;          vs_top=sup;
3178          base[2]= vs_base[0];          base[2]= vs_base[0];
3179          base[3]= (V276);          base[3]= (V292);
3180          base[4]= (V277);          base[4]= (V293);
3181          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
3182          (void) (*Lnk359)();          (void) (*Lnk371)();
3183          return;          return;
3184          }          }
3185  }  }
3186  /*      function definition for LOOP-DO-IF      */  /*      function definition for LOOP-DO-IF      */
3187    
3188  static void L65()  static void L71()
3189  {register object *base=vs_base;  {register object *base=vs_base;
3190          register object *sup=base+VM55; VC55          register object *sup=base+VM61; VC61
3191          vs_reserve(VM55);          vs_check;
3192          bds_check;          bds_check;
3193          {object V278;          {object V294;
3194          object V279;          object V295;
3195          check_arg(2);          V294=(base[0]);
3196          V278=(base[0]);          V295=(base[1]);
         V279=(base[1]);  
3197          vs_top=sup;          vs_top=sup;
3198          goto TTL;          goto TTL;
3199  TTL:;  TTL:;
3200          {object V280;          {object V296;
3201          vs_base=vs_top;          vs_base=vs_top;
3202          (void) (*Lnk361)();          (void) (*Lnk363)();
3203          vs_top=sup;          vs_top=sup;
3204          V280= vs_base[0];          V296= vs_base[0];
3205          bds_bind(VV[115],Ct);          bds_bind(VV[117],Ct);
3206          base[3]= Cnil;          base[3]= Cnil;
3207          {object V281;          base[4]= Ct;
3208          object V282;          {object V297;
3209          base[4]= (V278);          object V298;
3210          vs_top=(vs_base=base+4)+1;          base[5]= (V294);
3211          L66(base);          vs_top=(vs_base=base+5)+1;
3212            L72(base);
3213          vs_top=sup;          vs_top=sup;
3214          V281= vs_base[0];          V297= vs_base[0];
3215          base[4]= car(symbol_value(VV[89]));          base[5]= CMPcar((VV[88]->s.s_dbind));
3216          base[5]= VV[150];          base[6]= VV[153];
3217          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+5)+2;
3218          (void) (*Lnk357)();          (void) (*Lnk369)();
3219          vs_top=sup;          vs_top=sup;
3220          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3221          goto T1050;}          goto T1115;}
3222          vs_base=vs_top;          vs_base=vs_top;
3223          (void) (*Lnk350)();          (void) (*Lnk359)();
3224          vs_top=sup;          vs_top=sup;
3225          base[4]= VV[150];          base[5]= VV[153];
3226          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+5)+1;
3227          L66(base);          L72(base);
3228          vs_top=sup;          vs_top=sup;
3229          V283= vs_base[0];          V299= vs_base[0];
3230          V282= make_cons(V283,Cnil);          V298= make_cons(V299,Cnil);
3231          goto T1048;          goto T1113;
3232          goto T1050;          goto T1115;
3233  T1050:;  T1115:;
3234          V282= Cnil;          V298= Cnil;
3235          goto T1048;          goto T1113;
3236  T1048:;  T1113:;
3237          base[4]= car(symbol_value(VV[89]));          base[5]= CMPcar((VV[88]->s.s_dbind));
3238          base[5]= VV[151];          base[6]= VV[154];
3239          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+5)+2;
3240          (void) (*Lnk357)();          (void) (*Lnk369)();
3241          vs_top=sup;          vs_top=sup;
3242          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3243          goto T1057;}          goto T1122;}
3244          vs_base=vs_top;          vs_base=vs_top;
3245          (void) (*Lnk350)();          (void) (*Lnk359)();
3246          vs_top=sup;          vs_top=sup;
3247          goto T1057;          goto T1122;
3248  T1057:;  T1122:;
3249          if((base[3])==Cnil){          if((base[3])==Cnil){
3250          goto T1062;}          goto T1127;}
3251          V280= list(3,VV[11],base[3],(V280));          V296= list(3,VV[11],base[3],(V296));
3252          goto T1062;          goto T1127;
3253  T1062:;  T1127:;
3254          if(((V279))==Cnil){          if(((V295))==Cnil){
3255          goto T1069;}          goto T1134;}
3256          V284= list(2,VV[36],(V280));          V300= list(2,VV[36],(V296));
3257          goto T1067;          goto T1132;
3258          goto T1069;          goto T1134;
3259  T1069:;  T1134:;
3260          V284= (V280);          V300= (V296);
3261          goto T1067;          goto T1132;
3262  T1067:;  T1132:;
3263          base[4]= listA(4,VV[71],V284,(V281),(V282));          base[5]= listA(4,VV[71],V300,(V297),(V298));
3264          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+5)+1;
3265          (void) (*Lnk354)();          (void) (*Lnk365)();
3266          bds_unwind1;          bds_unwind1;
3267          return;}}          return;}}
3268          }          }
3269  }  }
3270  /*      function definition for LOOP-DO-INITIALLY       */  /*      function definition for LOOP-DO-INITIALLY       */
3271    
3272  static void L67()  static void L73()
3273  {register object *base=vs_base;  {register object *base=vs_base;
3274          register object *sup=base+VM56; VC56          register object *sup=base+VM62; VC62
3275          vs_reserve(VM56);          vs_check;
         check_arg(0);  
3276          vs_top=sup;          vs_top=sup;
3277          goto TTL;          goto TTL;
3278  TTL:;  TTL:;
3279          base[0]= VV[156];          base[0]= VV[159];
3280          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3281          (void) (*Lnk362)();          (void) (*Lnk373)();
3282          vs_top=sup;          vs_top=sup;
3283          {object V285;          {object V301;
3284          vs_base=vs_top;          vs_base=vs_top;
3285          (void) (*Lnk363)();          (void) (*Lnk374)();
3286          vs_top=sup;          vs_top=sup;
3287          V285= vs_base[0];          V301= vs_base[0];
3288          setq(VV[106],make_cons((V285),symbol_value(VV[106])));          (VV[108]->s.s_dbind)= make_cons((V301),(VV[108]->s.s_dbind));
3289          base[1]= symbol_value(VV[106]);          base[1]= (VV[108]->s.s_dbind);
3290          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3291          return;}          return;}
3292  }  }
3293  /*      function definition for LOOP-DO-FINALLY */  /*      function definition for LOOP-DO-FINALLY */
3294    
3295  static void L68()  static void L74()
3296  {register object *base=vs_base;  {register object *base=vs_base;
3297          register object *sup=base+VM57; VC57          register object *sup=base+VM63; VC63
3298          vs_reserve(VM57);          vs_check;
         check_arg(0);  
3299          vs_top=sup;          vs_top=sup;
3300          goto TTL;          goto TTL;
3301  TTL:;  TTL:;
3302          base[0]= VV[157];          base[0]= VV[160];
3303          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3304          (void) (*Lnk362)();          (void) (*Lnk373)();
3305          vs_top=sup;          vs_top=sup;
3306          {object V286;          {object V302;
3307          vs_base=vs_top;          vs_base=vs_top;
3308          (void) (*Lnk363)();          (void) (*Lnk374)();
3309          vs_top=sup;          vs_top=sup;
3310          V286= vs_base[0];          V302= vs_base[0];
3311          setq(VV[112],make_cons((V286),symbol_value(VV[112])));          (VV[114]->s.s_dbind)= make_cons((V302),(VV[114]->s.s_dbind));
3312          base[1]= symbol_value(VV[112]);          base[1]= (VV[114]->s.s_dbind);
3313          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3314          return;}          return;}
3315  }  }
3316  /*      function definition for LOOP-DO-DO      */  /*      function definition for LOOP-DO-DO      */
3317    
3318  static void L69()  static void L75()
3319  {register object *base=vs_base;  {register object *base=vs_base;
3320          register object *sup=base+VM58; VC58          register object *sup=base+VM64; VC64
3321          vs_reserve(VM58);          vs_check;
         check_arg(0);  
3322          vs_top=sup;          vs_top=sup;
3323          goto TTL;          goto TTL;
3324  TTL:;  TTL:;
3325          vs_base=vs_top;          vs_base=vs_top;
3326          (void) (*Lnk363)();          (void) (*Lnk374)();
3327          vs_top=sup;          vs_top=sup;
3328          base[0]= vs_base[0];          base[0]= vs_base[0];
3329          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3330          (void) (*Lnk364)();          (void) (*Lnk375)();
3331          return;          return;
3332  }  }
3333  /*      function definition for LOOP-DO-NAMED   */  /*      function definition for LOOP-DO-NAMED   */
3334    
3335  static void L70()  static void L76()
3336  {register object *base=vs_base;  {register object *base=vs_base;
3337          register object *sup=base+VM59; VC59          register object *sup=base+VM65; VC65
3338          vs_reserve(VM59);          vs_check;
         check_arg(0);  
3339          vs_top=sup;          vs_top=sup;
3340          goto TTL;          goto TTL;
3341  TTL:;  TTL:;
3342          {register object V287;          {register object V303;
3343          vs_base=vs_top;          vs_base=vs_top;
3344          (void) (*Lnk350)();          (void) (*Lnk359)();
3345          vs_top=sup;          vs_top=sup;
3346          V287= vs_base[0];          V303= vs_base[0];
3347          if(type_of((V287))==t_symbol){          if(type_of((V303))==t_symbol){
3348          goto T1081;}          goto T1146;}
3349          base[0]= VV[158];          base[0]= VV[161];
3350          base[1]= (V287);          base[1]= (V303);
3351          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3352          (void) (*Lnk347)();          (void) (*Lnk354)();
3353          vs_top=sup;          vs_top=sup;
3354          goto T1081;          goto T1146;
3355  T1081:;  T1146:;
3356          if((symbol_value(VV[108]))!=Cnil){          if(((VV[110]->s.s_dbind))!=Cnil){
3357          goto T1087;}          goto T1152;}
3358          if((symbol_value(VV[109]))!=Cnil){          if(((VV[111]->s.s_dbind))!=Cnil){
3359          goto T1087;}          goto T1152;}
3360          if((symbol_value(VV[113]))!=Cnil){          if(((VV[115]->s.s_dbind))!=Cnil){
3361          goto T1087;}          goto T1152;}
3362          if((symbol_value(VV[115]))==Cnil){          if(((VV[117]->s.s_dbind))==Cnil){
3363          goto T1086;}          goto T1151;}
3364          goto T1087;          goto T1152;
3365  T1087:;  T1152:;
3366          base[0]= VV[159];          base[0]= VV[162];
3367          base[1]= (V287);          base[1]= (V303);
3368          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3369          (void) (*Lnk347)();          (void) (*Lnk354)();
3370          vs_top=sup;          vs_top=sup;
3371          goto T1086;          goto T1151;
3372  T1086:;  T1151:;
3373          if((symbol_value(VV[118]))==Cnil){          if(((VV[120]->s.s_dbind))==Cnil){
3374          goto T1097;}          goto T1162;}
3375          base[0]= VV[160];          base[0]= VV[163];
3376          base[1]= car(symbol_value(VV[118]));          base[1]= CMPcar((VV[120]->s.s_dbind));
3377          base[2]= (V287);          base[2]= (V303);
3378          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3379          (void) (*Lnk347)();          (void) (*Lnk354)();
3380          vs_top=sup;          vs_top=sup;
3381          goto T1097;          goto T1162;
3382  T1097:;  T1162:;
3383          setq(VV[118],list(2,(V287),Cnil));          (VV[120]->s.s_dbind)= list(2,(V303),Cnil);
3384          base[0]= symbol_value(VV[118]);          base[0]= (VV[120]->s.s_dbind);
3385          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3386          return;}          return;}
3387  }  }
3388  /*      function definition for LOOP-DO-RETURN  */  /*      function definition for LOOP-DO-RETURN  */
3389    
3390  static void L71()  static void L77()
3391  {register object *base=vs_base;  {register object *base=vs_base;
3392          register object *sup=base+VM60; VC60          register object *sup=base+VM66; VC66
3393          vs_reserve(VM60);          vs_check;
         check_arg(0);  
3394          vs_top=sup;          vs_top=sup;
3395          goto TTL;          goto TTL;
3396  TTL:;  TTL:;
3397          vs_base=vs_top;          vs_base=vs_top;
3398          (void) (*Lnk361)();          (void) (*Lnk363)();
3399          vs_top=sup;          vs_top=sup;
3400          base[1]= vs_base[0];          base[1]= vs_base[0];
3401          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3402          (void) (*Lnk355)();          (void) (*Lnk366)();
3403          vs_top=sup;          vs_top=sup;
3404          base[0]= vs_base[0];          base[0]= vs_base[0];
3405          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3406          (void) (*Lnk354)();          (void) (*Lnk365)();
3407          return;          return;
3408  }  }
3409  /*      function definition for MAKE-LOOP-COLLECTOR     */  /*      function definition for MAKE-LOOP-COLLECTOR     */
3410    
3411  static void L72()  static void L78()
3412  {register object *base=vs_base;  {register object *base=vs_base;
3413          register object *sup=base+VM61; VC61          register object *sup=base+VM67; VC67
3414          vs_reserve(VM61);          vs_check;
3415          {object V288;          {object V304;
3416          object V289;          object V305;
3417          object V290;          object V306;
3418          object V291;          object V307;
3419          object V292;          object V308;
3420          object V293;          object V309;
3421          parse_key(vs_base,FALSE,FALSE,6,VV[165],VV[166],VV[167],VV[365],VV[168],VV[366]);          parse_key(vs_base,FALSE,FALSE,6,VV[169],VV[170],VV[171],VV[376],VV[172],VV[377]);
3422          vs_top=sup;          vs_top=sup;
3423          V288=(base[0]);          V304=(base[0]);
3424          V289=(base[1]);          V305=(base[1]);
3425          V290=(base[2]);          V306=(base[2]);
3426          V291=(base[3]);          V307=(base[3]);
3427          V292=(base[4]);          V308=(base[4]);
3428          V293=(base[5]);          V309=(base[5]);
3429          base[12]= VV[161];          base[12]= VV[164];
3430          base[13]= (V288);          base[13]= (V304);
3431          base[14]= (V289);          base[14]= (V305);
3432          base[15]= (V290);          base[15]= (V306);
3433          base[16]= (V291);          base[16]= (V307);
3434          base[17]= (V292);          base[17]= (V308);
3435          base[18]= (V293);          base[18]= (V309);
3436          vs_top=(vs_base=base+12)+7;          vs_top=(vs_base=base+12)+7;
3437          siLmake_structure();          siLmake_structure();
3438          return;          return;
# Line 3288  static void L72() Line 3440  static void L72()
3440  }  }
3441  /*      function definition for LOOP-GET-COLLECTION-INFO        */  /*      function definition for LOOP-GET-COLLECTION-INFO        */
3442    
3443  static void L73()  static void L79()
3444  {register object *base=vs_base;  {register object *base=vs_base;
3445          register object *sup=base+VM62; VC62          register object *sup=base+VM68; VC68
3446          vs_reserve(VM62);          vs_check;
3447          {object V294;          {object V310;
3448          object V295;          object V311;
3449          object V296;          object V312;
3450          check_arg(3);          V310=(base[0]);
3451          V294=(base[0]);          V311=(base[1]);
3452          V295=(base[1]);          V312=(base[2]);
         V296=(base[2]);  
3453          vs_top=sup;          vs_top=sup;
3454          goto TTL;          goto TTL;
3455  TTL:;  TTL:;
3456          base[3]= car(symbol_value(VV[89]));          {object V313;
3457          base[4]= VV[162];          register object V314;
3458          vs_top=(vs_base=base+3)+2;          register object V315;
         (void) (*Lnk357)();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T1113;}  
         setq(VV[119],Ct);  
         goto T1113;  
 T1113:;  
         {object V297;  
         register object V298;  
         register object V299;  
3459          vs_base=vs_top;          vs_base=vs_top;
3460          (void) (*Lnk361)();          (void) (*Lnk363)();
3461          vs_top=sup;          vs_top=sup;
3462          V297= vs_base[0];          V313= vs_base[0];
3463          V300= structure_ref(symbol_value(VV[97]),VV[39],6);          if((STREF(object,(VV[99]->s.s_dbind),24))==Cnil){
3464          if((/* INLINE-ARGS */V300)==Cnil){          goto T1180;}
3465          goto T1121;}          V314= Cnil;
3466          V298= Cnil;          goto T1179;
3467          goto T1120;          goto T1180;
3468          goto T1121;  T1180:;
 T1121:;  
3469          vs_base=vs_top;          vs_base=vs_top;
3470          (void) (*Lnk367)();          (void) (*Lnk378)();
3471          vs_top=sup;          vs_top=sup;
3472          V298= vs_base[0];          V314= vs_base[0];
3473          goto T1120;          goto T1179;
3474  T1120:;  T1179:;
3475          base[3]= car(symbol_value(VV[89]));          base[3]= CMPcar((VV[88]->s.s_dbind));
3476          base[4]= VV[162];          base[4]= VV[165];
3477          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3478          (void) (*Lnk357)();          (void) (*Lnk369)();
3479          vs_top=sup;          vs_top=sup;
3480          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3481          goto T1125;}          goto T1184;}
3482          vs_base=vs_top;          vs_base=vs_top;
3483          (void) (*Lnk350)();          (void) (*Lnk359)();
3484          vs_top=sup;          vs_top=sup;
3485          vs_base=vs_top;          vs_base=vs_top;
3486          (void) (*Lnk350)();          (void) (*Lnk359)();
3487          vs_top=sup;          vs_top=sup;
3488          V299= vs_base[0];          V315= vs_base[0];
3489          goto T1123;          goto T1182;
3490          goto T1125;          goto T1184;
3491  T1125:;  T1184:;
3492          V299= Cnil;          V315= Cnil;
3493          goto T1123;          goto T1182;
3494  T1123:;  T1182:;
3495          if(type_of((V299))==t_symbol){          if(type_of((V315))==t_symbol){
3496          goto T1130;}          goto T1189;}
3497          base[3]= VV[163];          base[3]= VV[166];
3498          base[4]= (V299);          base[4]= (V315);
3499          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3500          (void) (*Lnk347)();          (void) (*Lnk354)();
3501          vs_top=sup;          vs_top=sup;
3502          goto T1130;          goto T1189;
3503  T1130:;  T1189:;
3504          if(((V298))!=Cnil){          if(((V315))!=Cnil){
3505          goto T1135;}{object V301;          goto T1194;}
3506          vs_base=vs_top;          vs_base=vs_top;
3507          (void) (*Lnk367)();          (void) (*Lnk379)();
3508          vs_top=sup;          vs_top=sup;
3509          V301= vs_base[0];          goto T1194;
3510          if(V301==Cnil)goto T1139;  T1194:;
3511          V298= V301;          if(((V314))!=Cnil){
3512          goto T1138;          goto T1197;}{object V316;
3513          goto T1139;          vs_base=vs_top;
3514  T1139:;}          (void) (*Lnk378)();
3515          V298= (V296);          vs_top=sup;
3516          goto T1138;          V316= vs_base[0];
3517  T1138:;          if(V316==Cnil)goto T1201;
3518          goto T1135;          V314= V316;
3519  T1135:;          goto T1200;
3520          {register object V302;{object V303;          goto T1201;
3521          V303= symbol_value(VV[120]);  T1201:;}
3522          V304= symbol_function(VV[369]);          V314= (V312);
3523          V302= (VFUN_NARGS=4,(*(LnkLI368))((V299),V303,VV[164],V304));}          goto T1200;
3524          if(((V302))!=Cnil){  T1200:;
3525          goto T1145;}          goto T1197;
3526          {object V305;  T1197:;
3527          base[4]= VV[165];          {register object V317;
3528          base[5]= (V299);          base[3]= (V315);
3529          base[6]= VV[166];          base[4]= (VV[121]->s.s_dbind);
3530          base[7]= (V295);          base[5]= VV[167];
3531          base[8]= VV[167];          base[6]= (VV[134]->s.s_gfdef);
3532          base[9]= make_cons((V294),Cnil);          vs_top=(vs_base=base+3)+4;
3533          base[10]= VV[168];          (void) (*Lnk380)();
3534          base[11]= (V298);          vs_top=sup;
3535            V317= vs_base[0];
3536            if(((V317))!=Cnil){
3537            goto T1210;}
3538            if(((V315))==Cnil){
3539            goto T1212;}
3540            base[3]= (V315);
3541            vs_top=(vs_base=base+3)+1;
3542            (void) (*Lnk381)();
3543            vs_top=sup;
3544            if((vs_base[0])==Cnil){
3545            goto T1212;}
3546            base[3]= VV[168];
3547            base[4]= (V315);
3548            vs_top=(vs_base=base+3)+2;
3549            (void) (*Lnk354)();
3550            vs_top=sup;
3551            goto T1212;
3552    T1212:;
3553            {object V318;
3554            base[4]= VV[169];
3555            base[5]= (V315);
3556            base[6]= VV[170];
3557            base[7]= (V311);
3558            base[8]= VV[171];
3559            base[9]= make_cons((V310),Cnil);
3560            base[10]= VV[172];
3561            base[11]= (V314);
3562          vs_top=(vs_base=base+4)+8;          vs_top=(vs_base=base+4)+8;
3563          (void) (*Lnk370)();          (void) (*Lnk382)();
3564          vs_top=sup;          vs_top=sup;
3565          V302= vs_base[0];          V317= vs_base[0];
3566          V305= (V302);          V318= (V317);
3567          setq(VV[120],make_cons((V305),symbol_value(VV[120])));          (VV[121]->s.s_dbind)= make_cons((V318),(VV[121]->s.s_dbind));
3568          goto T1143;}          goto T1208;}
3569          goto T1145;          goto T1210;
3570  T1145:;  T1210:;
3571          V306= structure_ref((V302),VV[161],1);          if((STREF(object,(V317),4))==((V311))){
3572          if((/* INLINE-ARGS */V306)==((V295))){          goto T1231;}
3573          goto T1158;}          base[3]= VV[173];
3574          base[3]= VV[169];          base[4]= (V315);
3575          base[4]= (V299);          base[5]= CMPcar(STREF(object,(V317),8));
3576          V307= structure_ref((V302),VV[161],2);          base[6]= (V310);
         base[5]= car(/* INLINE-ARGS */V307);  
         base[6]= (V294);  
3577          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3578          (void) (*Lnk347)();          (void) (*Lnk354)();
3579          vs_top=sup;          vs_top=sup;
3580          goto T1158;          goto T1231;
3581  T1158:;  T1231:;
3582          V308= structure_ref((V302),VV[161],4);          if(equal((V314),STREF(object,(V317),16))){
3583          if(equal((V298),/* INLINE-ARGS */V308)){          goto T1238;}
3584          goto T1165;}          base[3]= VV[174];
3585          base[3]= VV[170];          base[4]= (V315);
3586          base[4]= (V299);          base[5]= (V314);
3587          base[5]= (V298);          base[6]= STREF(object,(V317),16);
         base[6]= structure_ref((V302),VV[161],4);  
3588          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3589          (void) (*Lnk338)();          (void) (*Lnk345)();
3590          vs_top=sup;          vs_top=sup;
3591          V309= structure_ref((V302),VV[161],4);          if(!((STREF(object,(V317),16))==(Ct))){
3592          if(!((/* INLINE-ARGS */V309)==(Ct))){          goto T1238;}
3593          goto T1165;}          V319= Ct;
3594          (void)(structure_set((V302),VV[161],4,(V298)));          STSET(object,(V317),16, (V314));
3595          goto T1165;          (void)((V314));
3596  T1165:;          goto T1238;
3597          {object V312;  T1238:;
3598          V313= structure_ref(V302,VV[161],2);          {object V322;
3599          V312= make_cons(V294,/* INLINE-ARGS */V313);          V322= make_cons(V310,STREF(object,V317,8));
3600          (void)(structure_set(V302,VV[161],2,(V312)));}          V323= Ct;
3601          goto T1143;          STSET(object,V317,8, (V322));
3602  T1143:;          (void)((V322));}
3603          base[3]= (V302);          goto T1208;
3604          base[4]= (V297);  T1208:;
3605            base[3]= (V317);
3606            base[4]= (V313);
3607          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3608          return;}}          return;}}
3609          }          }
3610  }  }
3611  /*      function definition for LOOP-LIST-COLLECTION    */  /*      function definition for LOOP-LIST-COLLECTION    */
3612    
3613  static void L74()  static void L80()
3614  {register object *base=vs_base;  {register object *base=vs_base;
3615          register object *sup=base+VM63; VC63          register object *sup=base+VM69; VC69
3616          vs_reserve(VM63);          vs_check;
3617          {object V314;          {object V324;
3618          check_arg(1);          V324=(base[0]);
         V314=(base[0]);  
3619          vs_top=sup;          vs_top=sup;
3620          goto TTL;          goto TTL;
3621  TTL:;  TTL:;
3622          {register object V315;          {register object V325;
3623          register object V316;          register object V326;
3624          base[1]= (V314);          base[1]= (V324);
3625          base[2]= VV[5];          base[2]= VV[5];
3626          base[3]= VV[5];          base[3]= VV[5];
3627          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3628          (void) (*Lnk371)();          (void) (*Lnk383)();
3629          if(vs_base>=vs_top){vs_top=sup;goto T1182;}          if(vs_base>=vs_top){vs_top=sup;goto T1255;}
3630          V315= vs_base[0];          V325= vs_base[0];
3631          vs_base++;          vs_base++;
3632          if(vs_base>=vs_top){vs_top=sup;goto T1183;}          if(vs_base>=vs_top){vs_top=sup;goto T1256;}
3633          V316= vs_base[0];          V326= vs_base[0];
3634          vs_top=sup;          vs_top=sup;
3635          goto T1184;          goto T1257;
3636          goto T1182;          goto T1255;
3637  T1182:;  T1255:;
3638          V315= Cnil;          V325= Cnil;
3639          goto T1183;          goto T1256;
3640  T1183:;  T1256:;
3641          V316= Cnil;          V326= Cnil;
3642          goto T1184;          goto T1257;
3643  T1184:;  T1257:;
3644          {register object V317;          {register object V327;
3645          V317= structure_ref((V315),VV[161],3);          V327= STREF(object,(V325),12);
3646          if(((V317))!=Cnil){          if(((V327))!=Cnil){
3647          goto T1186;}          goto T1259;}
3648          base[1]= VV[171];          base[1]= VV[175];
3649          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3650          (void) (*Lnk327)();          (void) (*Lnk334)();
3651          vs_top=sup;          vs_top=sup;
3652          V318= vs_base[0];          V328= vs_base[0];
3653          base[1]= VV[172];          base[1]= VV[176];
3654          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3655          (void) (*Lnk327)();          (void) (*Lnk334)();
3656          vs_top=sup;          vs_top=sup;
3657          V319= vs_base[0];          V329= vs_base[0];
3658          if((structure_ref((V315),VV[161],0))!=Cnil){          if((STREF(object,(V325),0))!=Cnil){
3659          goto T1196;}          goto T1269;}
3660          V320= Cnil;          V330= Cnil;
3661          goto T1195;          goto T1268;
3662          goto T1196;          goto T1269;
3663  T1196:;  T1269:;
3664          V321= structure_ref((V315),VV[161],0);          V330= make_cons(STREF(object,(V325),0),Cnil);
3665          V320= make_cons(/* INLINE-ARGS */V321,Cnil);          goto T1268;
3666          goto T1195;  T1268:;
3667  T1195:;          V327= listA(3,V328,V329,V330);
3668          V317= listA(3,V318,V319,V320);          V331= Ct;
3669          (void)(structure_set((V315),VV[161],3,(V317)));          STSET(object,(V325),12, (V327));
3670          {object V322;          (void)((V327));
3671          V322= list(2,VV[173],(V317));          {object V332;
3672          setq(VV[107],make_cons((V322),symbol_value(VV[107])));}          V332= list(2,VV[177],(V327));
3673          if((structure_ref((V315),VV[161],0))!=Cnil){          (VV[109]->s.s_dbind)= make_cons((V332),(VV[109]->s.s_dbind));}
3674          goto T1186;}          if((STREF(object,(V325),0))!=Cnil){
3675          base[1]= listA(3,VV[174],car((V317)),cddr((V317)));          goto T1259;}
3676            base[1]= listA(3,VV[178],CMPcar((V327)),CMPcddr((V327)));
3677          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3678          (void) (*Lnk372)();          (void) (*Lnk384)();
3679          vs_top=sup;          vs_top=sup;
3680          goto T1186;          goto T1259;
3681  T1186:;  T1259:;
3682          {object V323= (V314);          {object V333= (V324);
3683          if((V323!= VV[5]))goto T1205;          if((V333!= VV[5]))goto T1278;
3684          V316= list(2,VV[5],(V316));          V326= list(2,VV[5],(V326));
3685          goto T1204;          goto T1277;
3686          goto T1205;          goto T1278;
3687  T1205:;  T1278:;
3688          if((V323!= VV[373]))goto T1207;          if((V333!= VV[385]))goto T1280;
3689          goto T1204;          goto T1277;
3690          goto T1207;          goto T1280;
3691  T1207:;  T1280:;
3692          if((V323!= VV[374]))goto T1208;          if((V333!= VV[386]))goto T1281;
3693          if(!(type_of((V316))==t_cons)){          if(!(type_of((V326))==t_cons)){
3694          goto T1209;}          goto T1282;}
3695          if((car((V316)))==(VV[5])){          if((CMPcar((V326)))==(VV[5])){
3696          goto T1204;}          goto T1277;}
3697          goto T1209;          goto T1282;
3698  T1209:;  T1282:;
3699          V316= list(2,VV[175],(V316));          V326= list(2,VV[179],(V326));
3700          goto T1204;          goto T1277;
3701          goto T1208;          goto T1281;
3702  T1208:;  T1281:;
3703          FEerror("The ECASE key value ~s is illegal.",1,V323);          FEerror("The ECASE key value ~s is illegal.",1,V333);
3704          goto T1204;}          goto T1277;}
3705          goto T1204;          goto T1277;
3706  T1204:;  T1277:;
3707          base[1]= list(3,VV[176],(V317),(V316));          base[1]= list(3,VV[180],(V327),(V326));
3708          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3709          (void) (*Lnk364)();          (void) (*Lnk375)();
3710          return;}}          return;}}
3711          }          }
3712  }  }
3713  /*      function definition for LOOP-SUM-COLLECTION     */  /*      function definition for LOOP-SUM-COLLECTION     */
3714    
3715  static void L75()  static void L81()
3716  {register object *base=vs_base;  {register object *base=vs_base;
3717          register object *sup=base+VM64; VC64          register object *sup=base+VM70; VC70
3718          vs_reserve(VM64);          vs_check;
3719          {object V324;          {object V334;
3720          object V325;          object V335;
3721          object V326;          object V336;
3722          check_arg(3);          V334=(base[0]);
3723          V324=(base[0]);          V335=(base[1]);
3724          V325=(base[1]);          V336=(base[2]);
         V326=(base[2]);  
3725          vs_top=sup;          vs_top=sup;
3726          goto TTL;          goto TTL;
3727  TTL:;  TTL:;
3728          {register object V327;          {register object V337;
3729          object V328;          object V338;
3730          base[3]= (V324);          base[3]= (V334);
3731          base[4]= VV[177];          base[4]= VV[181];
3732          base[5]= (V326);          base[5]= (V336);
3733          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3734          (void) (*Lnk371)();          (void) (*Lnk383)();
3735          if(vs_base>=vs_top){vs_top=sup;goto T1219;}          if(vs_base>=vs_top){vs_top=sup;goto T1292;}
3736          V327= vs_base[0];          V337= vs_base[0];
3737          vs_base++;          vs_base++;
3738          if(vs_base>=vs_top){vs_top=sup;goto T1220;}          if(vs_base>=vs_top){vs_top=sup;goto T1293;}
3739          V328= vs_base[0];          V338= vs_base[0];
3740          vs_top=sup;          vs_top=sup;
3741          goto T1221;          goto T1294;
3742          goto T1219;          goto T1292;
3743  T1219:;  T1292:;
3744          V327= Cnil;          V337= Cnil;
3745          goto T1220;          goto T1293;
3746  T1220:;  T1293:;
3747          V328= Cnil;          V338= Cnil;
3748          goto T1221;          goto T1294;
3749  T1221:;  T1294:;
3750          base[3]= structure_ref((V327),VV[161],4);          base[3]= STREF(object,(V337),16);
3751          base[4]= (V325);          base[4]= (V335);
3752          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3753          (void) (*Lnk375)();          (void) (*Lnk387)();
3754          vs_top=sup;          vs_top=sup;
3755          {register object V329;          {register object V339;
3756          V329= structure_ref((V327),VV[161],3);          V339= STREF(object,(V337),12);
3757          if(((V329))!=Cnil){          if(((V339))!=Cnil){
3758          goto T1226;}{object V331;          goto T1299;}{object V341;
3759          V331= structure_ref((V327),VV[161],0);          V341= STREF(object,(V337),0);
3760          if(V331==Cnil)goto T1233;          if(V341==Cnil)goto T1306;
3761          base[3]= V331;          base[3]= V341;
3762          goto T1232;          goto T1305;
3763          goto T1233;          goto T1306;
3764  T1233:;}  T1306:;}
3765          base[4]= VV[178];          base[4]= VV[182];
3766          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3767          (void) (*Lnk327)();          (void) (*Lnk334)();
3768          vs_top=sup;          vs_top=sup;
3769          base[3]= vs_base[0];          base[3]= vs_base[0];
3770          goto T1232;          goto T1305;
3771  T1232:;  T1305:;
3772          base[4]= Cnil;          base[4]= Cnil;
3773          base[5]= structure_ref((V327),VV[161],4);          base[5]= STREF(object,(V337),16);
3774          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3775          (void) (*Lnk359)();          (void) (*Lnk371)();
3776          vs_top=sup;          vs_top=sup;
3777          V330= vs_base[0];          V340= vs_base[0];
3778          V329= make_cons(V330,Cnil);          V339= make_cons(V340,Cnil);
3779          (void)(structure_set((V327),VV[161],3,(V329)));          V342= Ct;
3780          if((structure_ref((V327),VV[161],0))!=Cnil){          STSET(object,(V337),12, (V339));
3781          goto T1226;}          (void)((V339));
3782          V332= structure_ref((V327),VV[161],3);          if((STREF(object,(V337),0))!=Cnil){
3783          base[3]= car(/* INLINE-ARGS */V332);          goto T1299;}
3784            base[3]= CMPcar(STREF(object,(V337),12));
3785          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3786          (void) (*Lnk372)();          (void) (*Lnk384)();
3787          vs_top=sup;          vs_top=sup;
3788          goto T1226;          goto T1299;
3789  T1226:;  T1299:;
3790          if(!(((V324))==(VV[179]))){          if(!(((V334))==(VV[183]))){
3791          goto T1243;}          goto T1316;}
3792          V333= car((V329));          V343= CMPcar((V339));
3793          base[4]= Ct;          base[4]= Ct;
3794          base[5]= car((V329));          base[5]= CMPcar((V339));
3795          base[6]= list(2,VV[180],car((V329)));          base[6]= list(2,VV[184],CMPcar((V339)));
3796          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3797          (void) (*Lnk331)();          (void) (*Lnk338)();
3798          vs_top=sup;          vs_top=sup;
3799          V334= vs_base[0];          V344= vs_base[0];
3800          base[3]= list(3,VV[8],(V328),list(3,VV[11],/* INLINE-ARGS */V333,V334));          base[3]= list(3,VV[8],(V338),list(3,VV[11],/* INLINE-ARGS */V343,V344));
3801          goto T1241;          goto T1314;
3802          goto T1243;          goto T1316;
3803  T1243:;  T1316:;
3804          V335= car((V329));          V345= CMPcar((V339));
3805          base[4]= Ct;          base[4]= Ct;
3806          base[5]= car((V329));          base[5]= CMPcar((V339));
3807          base[6]= car((V329));          base[6]= CMPcar((V339));
3808          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3809          (void) (*Lnk331)();          (void) (*Lnk338)();
3810          vs_top=sup;          vs_top=sup;
3811          V336= vs_base[0];          V346= vs_base[0];
3812          base[3]= list(3,VV[11],/* INLINE-ARGS */V335,list(3,VV[181],V336,(V328)));          base[3]= list(3,VV[11],/* INLINE-ARGS */V345,list(3,VV[185],V346,(V338)));
3813          goto T1241;          goto T1314;
3814  T1241:;  T1314:;
3815          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3816          (void) (*Lnk364)();          (void) (*Lnk375)();
3817          return;}}          return;}}
3818          }          }
3819  }  }
3820  /*      function definition for LOOP-MAXMIN-COLLECTION  */  /*      function definition for LOOP-MAXMIN-COLLECTION  */
3821    
3822  static void L76()  static void L82()
3823  {register object *base=vs_base;  {register object *base=vs_base;
3824          register object *sup=base+VM65; VC65          register object *sup=base+VM71; VC71
3825          vs_reserve(VM65);          vs_check;
3826          {object V337;          {object V347;
3827          check_arg(1);          V347=(base[0]);
         V337=(base[0]);  
3828          vs_top=sup;          vs_top=sup;
3829          goto TTL;          goto TTL;
3830  TTL:;  TTL:;
3831          {register object V338;          {register object V348;
3832          object V339;          object V349;
3833          base[1]= (V337);          base[1]= (V347);
3834          base[2]= VV[182];          base[2]= VV[186];
3835          base[3]= symbol_value(VV[183]);          base[3]= (VV[187]->s.s_dbind);
3836          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3837          (void) (*Lnk371)();          (void) (*Lnk383)();
3838          if(vs_base>=vs_top){vs_top=sup;goto T1257;}          if(vs_base>=vs_top){vs_top=sup;goto T1330;}
3839          V338= vs_base[0];          V348= vs_base[0];
3840          vs_base++;          vs_base++;
3841          if(vs_base>=vs_top){vs_top=sup;goto T1258;}          if(vs_base>=vs_top){vs_top=sup;goto T1331;}
3842          V339= vs_base[0];          V349= vs_base[0];
3843          vs_top=sup;          vs_top=sup;
3844          goto T1259;          goto T1332;
3845          goto T1257;          goto T1330;
3846  T1257:;  T1330:;
3847          V338= Cnil;          V348= Cnil;
3848          goto T1258;          goto T1331;
3849  T1258:;  T1331:;
3850          V339= Cnil;          V349= Cnil;
3851          goto T1259;          goto T1332;
3852  T1259:;  T1332:;
3853          base[1]= structure_ref((V338),VV[161],4);          base[1]= STREF(object,(V348),16);
3854          base[2]= symbol_value(VV[183]);          base[2]= (VV[187]->s.s_dbind);
3855          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3856          (void) (*Lnk375)();          (void) (*Lnk387)();
3857          vs_top=sup;          vs_top=sup;
3858          {register object V340;          {register object V350;
3859          V340= structure_ref((V338),VV[161],5);          V350= STREF(object,(V348),20);
3860          if(((V340))!=Cnil){          if(((V350))!=Cnil){
3861          goto T1264;}{object V341;          goto T1337;}{object V351;
3862          V341= structure_ref((V338),VV[161],0);          V351= STREF(object,(V348),0);
3863          if(V341==Cnil)goto T1270;          if(V351==Cnil)goto T1343;
3864          base[1]= V341;          base[1]= V351;
3865          goto T1269;          goto T1342;
3866          goto T1270;          goto T1343;
3867  T1270:;}  T1343:;}
3868          base[2]= VV[184];          base[2]= VV[188];
3869          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3870          (void) (*Lnk327)();          (void) (*Lnk334)();
3871          vs_top=sup;          vs_top=sup;
3872          base[1]= vs_base[0];          base[1]= vs_base[0];
3873          goto T1269;          goto T1342;
3874  T1269:;  T1342:;
3875          base[2]= structure_ref((V338),VV[161],4);          base[2]= STREF(object,(V348),16);
3876          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3877          (void) (*Lnk376)();          (void) (*Lnk388)();
3878          vs_top=sup;          vs_top=sup;
3879          V340= vs_base[0];          V350= vs_base[0];
3880          (void)(structure_set((V338),VV[161],5,(V340)));          V352= Ct;
3881          if((structure_ref((V338),VV[161],0))!=Cnil){          STSET(object,(V348),20, (V350));
3882          goto T1264;}          (void)((V350));
3883          base[1]= structure_ref((V340),VV[18],0);          if((STREF(object,(V348),0))!=Cnil){
3884            goto T1337;}
3885            base[1]= STREF(object,(V350),0);
3886          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3887          (void) (*Lnk372)();          (void) (*Lnk384)();
3888          vs_top=sup;          vs_top=sup;
3889          goto T1264;          goto T1337;
3890  T1264:;  T1337:;
3891          base[1]= (V337);          base[1]= (V347);
3892          base[2]= (V340);          base[2]= (V350);
3893          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3894          (void) (*Lnk377)();          (void) (*Lnk389)();
3895          vs_top=sup;          vs_top=sup;
3896          {object V342;          {object V353;
3897          V342= list(2,VV[185],(V340));          V353= list(2,VV[189],(V350));
3898          setq(VV[107],make_cons((V342),symbol_value(VV[107])));}          (VV[109]->s.s_dbind)= make_cons((V353),(VV[109]->s.s_dbind));}
3899          base[1]= list(4,VV[186],(V340),(V337),(V339));          base[1]= list(4,VV[190],(V350),(V347),(V349));
3900          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3901          (void) (*Lnk364)();          (void) (*Lnk375)();
3902          return;}}          return;}}
3903          }          }
3904  }  }
3905  /*      function definition for LOOP-DO-ALWAYS  */  /*      function definition for LOOP-DO-ALWAYS  */
3906    
3907  static void L77()  static void L83()
3908  {register object *base=vs_base;  {register object *base=vs_base;
3909          register object *sup=base+VM66; VC66          register object *sup=base+VM72; VC72
3910          vs_reserve(VM66);          vs_check;
3911          {object V343;          {object V354;
3912          object V344;          object V355;
3913          check_arg(2);          V354=(base[0]);
3914          V343=(base[0]);          V355=(base[1]);
         V344=(base[1]);  
3915          vs_top=sup;          vs_top=sup;
3916          goto TTL;          goto TTL;
3917  TTL:;  TTL:;
3918          {object V345;          {object V356;
3919          vs_base=vs_top;          vs_base=vs_top;
3920          (void) (*Lnk361)();          (void) (*Lnk363)();
3921          vs_top=sup;          vs_top=sup;
3922          V345= vs_base[0];          V356= vs_base[0];
3923          if(((V343))==Cnil){          if(((V354))==Cnil){
3924          goto T1285;}          goto T1358;}
3925          vs_base=vs_top;          vs_base=vs_top;
3926          (void) (*Lnk362)();          (void) (*Lnk373)();
3927          vs_top=sup;          vs_top=sup;
3928          goto T1285;          goto T1358;
3929  T1285:;  T1358:;
3930          if(((V344))==Cnil){          vs_base=vs_top;
3931          goto T1292;}          (void) (*Lnk390)();
3932          V346= VV[8];          vs_top=sup;
3933          goto T1290;          if(((V355))==Cnil){
3934          goto T1292;          goto T1366;}
3935  T1292:;          V357= VV[8];
3936          V346= VV[187];          goto T1364;
3937          goto T1290;          goto T1366;
3938  T1290:;  T1366:;
3939            V357= VV[191];
3940            goto T1364;
3941    T1364:;
3942          base[3]= Cnil;          base[3]= Cnil;
3943          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3944          (void) (*Lnk355)();          (void) (*Lnk366)();
3945          vs_top=sup;          vs_top=sup;
3946          V347= vs_base[0];          V358= vs_base[0];
3947          base[2]= list(3,V346,(V345),V347);          base[2]= list(3,V357,(V356),V358);
3948          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3949          (void) (*Lnk364)();          (void) (*Lnk375)();
3950          vs_top=sup;          vs_top=sup;
3951          base[2]= Ct;          base[2]= Ct;
3952          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3953          (void) (*Lnk372)();          (void) (*Lnk384)();
3954          return;}          return;}
3955          }          }
3956  }  }
3957  /*      function definition for LOOP-DO-THEREIS */  /*      function definition for LOOP-DO-THEREIS */
3958    
3959  static void L78()  static void L84()
3960  {register object *base=vs_base;  {register object *base=vs_base;
3961          register object *sup=base+VM67; VC67          register object *sup=base+VM73; VC73
3962          vs_reserve(VM67);          vs_check;
3963          {object V348;          {object V359;
3964          check_arg(1);          V359=(base[0]);
         V348=(base[0]);  
3965          vs_top=sup;          vs_top=sup;
3966          goto TTL;          goto TTL;
3967  TTL:;  TTL:;
3968          if(((V348))==Cnil){          if(((V359))==Cnil){
3969          goto T1297;}          goto T1371;}
3970          vs_base=vs_top;          vs_base=vs_top;
3971          (void) (*Lnk362)();          (void) (*Lnk373)();
3972          vs_top=sup;          vs_top=sup;
3973          goto T1297;          goto T1371;
3974  T1297:;  T1371:;
3975          vs_base=vs_top;          vs_base=vs_top;
3976          (void) (*Lnk378)();          (void) (*Lnk390)();
3977          vs_top=sup;          vs_top=sup;
         V349= vs_base[0];  
3978          vs_base=vs_top;          vs_base=vs_top;
3979          (void) (*Lnk361)();          (void) (*Lnk384)();
3980          vs_top=sup;          vs_top=sup;
3981          V350= vs_base[0];          vs_base=vs_top;
3982          V351= list(3,VV[11],V349,V350);          (void) (*Lnk391)();
         base[2]= symbol_value(VV[116]);  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk355)();  
3983          vs_top=sup;          vs_top=sup;
3984          V352= vs_base[0];          V360= vs_base[0];
3985          base[1]= list(3,VV[8],/* INLINE-ARGS */V351,V352);          vs_base=vs_top;
3986          vs_top=(vs_base=base+1)+1;          (void) (*Lnk363)();
         (void) (*Lnk364)();  
3987          vs_top=sup;          vs_top=sup;
3988          base[1]= Cnil;          V361= vs_base[0];
3989            V362= list(3,VV[11],V360,V361);
3990            base[2]= (VV[118]->s.s_dbind);
3991            vs_top=(vs_base=base+2)+1;
3992            (void) (*Lnk366)();
3993            vs_top=sup;
3994            V363= vs_base[0];
3995            base[1]= list(3,VV[8],/* INLINE-ARGS */V362,V363);
3996          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3997          (void) (*Lnk372)();          (void) (*Lnk375)();
3998          return;          return;
3999          }          }
4000  }  }
4001  /*      function definition for LOOP-DO-WHILE   */  /*      function definition for LOOP-DO-WHILE   */
4002    
4003  static void L79()  static void L85()
4004  {register object *base=vs_base;  {register object *base=vs_base;
4005          register object *sup=base+VM68; VC68          register object *sup=base+VM74; VC74
4006          vs_reserve(VM68);          vs_check;
4007          {object V353;          {object V364;
4008          object V354;          object V365;
4009          check_arg(2);          V364=(base[0]);
4010          V353=(base[0]);          V365=(base[1]);
         V354=(base[1]);  
4011          vs_top=sup;          vs_top=sup;
4012          goto TTL;          goto TTL;
4013  TTL:;  TTL:;
4014          {object V355;          {object V366;
4015          vs_base=vs_top;          vs_base=vs_top;
4016          (void) (*Lnk361)();          (void) (*Lnk363)();
4017          vs_top=sup;          vs_top=sup;
4018          V355= vs_base[0];          V366= vs_base[0];
4019          base[3]= (V354);          base[3]= (V365);
4020          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4021          (void) (*Lnk362)();          (void) (*Lnk373)();
4022          vs_top=sup;          vs_top=sup;
4023          if(((V353))==Cnil){          if(((V364))==Cnil){
4024          goto T1313;}          goto T1387;}
4025          V356= VV[8];          V367= VV[8];
4026          goto T1311;          goto T1385;
4027          goto T1313;          goto T1387;
4028  T1313:;  T1387:;
4029          V356= VV[187];          V367= VV[191];
4030          goto T1311;          goto T1385;
4031  T1311:;  T1385:;
4032          base[3]= list(3,V356,(V355),VV[188]);          base[3]= list(3,V367,(V366),VV[192]);
4033          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4034          (void) (*Lnk354)();          (void) (*Lnk365)();
4035          return;}          return;}
4036          }          }
4037  }  }
4038  /*      function definition for LOOP-DO-WITH    */  /*      function definition for LOOP-DO-WITH    */
4039    
4040  static void L80()  static void L86()
4041  {register object *base=vs_base;  {register object *base=vs_base;
4042          register object *sup=base+VM69; VC69          register object *sup=base+VM75; VC75
4043          vs_reserve(VM69);          vs_check;
         check_arg(0);  
4044          vs_top=sup;          vs_top=sup;
4045          goto TTL;          goto TTL;
4046  TTL:;  TTL:;
4047          base[0]= VV[189];          base[0]= VV[193];
4048          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4049          (void) (*Lnk362)();          (void) (*Lnk373)();
4050          vs_top=sup;          vs_top=sup;
4051          {register object V357;          {register object V368;
4052          register object V358;          register object V369;
4053          register object V359;          register object V370;
4054          V357= Cnil;          V368= Cnil;
4055          V358= Cnil;          V369= Cnil;
4056          V359= Cnil;          V370= Cnil;
4057          goto T1318;          goto T1392;
4058  T1318:;  T1392:;
4059          vs_base=vs_top;          vs_base=vs_top;
4060          (void) (*Lnk350)();          (void) (*Lnk359)();
4061          vs_top=sup;          vs_top=sup;
4062          V357= vs_base[0];          V368= vs_base[0];
4063          base[0]= (V357);          base[0]= (V368);
4064          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4065          (void) (*Lnk367)();          (void) (*Lnk378)();
4066          vs_top=sup;          vs_top=sup;
4067          V359= vs_base[0];          V370= vs_base[0];
4068          base[0]= car(symbol_value(VV[89]));          base[0]= CMPcar((VV[88]->s.s_dbind));
4069          base[1]= VV[190];          base[1]= VV[194];
4070          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4071          (void) (*Lnk357)();          (void) (*Lnk369)();
4072          vs_top=sup;          vs_top=sup;
4073          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4074          goto T1329;}          goto T1403;}
4075          vs_base=vs_top;          vs_base=vs_top;
4076          (void) (*Lnk350)();          (void) (*Lnk359)();
4077          vs_top=sup;          vs_top=sup;
4078          vs_base=vs_top;          vs_base=vs_top;
4079          (void) (*Lnk361)();          (void) (*Lnk363)();
4080          vs_top=sup;          vs_top=sup;
4081          V358= vs_base[0];          V369= vs_base[0];
4082          goto T1327;          goto T1401;
4083          goto T1329;          goto T1403;
4084  T1329:;  T1403:;
4085          V358= Cnil;          V369= Cnil;
4086          goto T1327;          goto T1401;
4087  T1327:;  T1401:;
4088          base[0]= (V357);          if(((V368))==Cnil){
4089          base[1]= (V358);          goto T1408;}
4090          base[2]= (V359);          base[0]= (V368);
4091            vs_top=(vs_base=base+0)+1;
4092            (void) (*Lnk381)();
4093            vs_top=sup;
4094            if((vs_base[0])==Cnil){
4095            goto T1408;}
4096            base[0]= VV[195];
4097            base[1]= (V368);
4098            vs_top=(vs_base=base+0)+2;
4099            (void) (*Lnk354)();
4100            vs_top=sup;
4101            goto T1408;
4102    T1408:;
4103            base[0]= (V368);
4104            base[1]= (V369);
4105            base[2]= (V370);
4106          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
4107          (void) (*Lnk359)();          (void) (*Lnk371)();
4108          vs_top=sup;          vs_top=sup;
4109          base[0]= car(symbol_value(VV[89]));          base[0]= CMPcar((VV[88]->s.s_dbind));
4110          base[1]= VV[155];          base[1]= VV[158];
4111          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4112          (void) (*Lnk357)();          (void) (*Lnk369)();
4113          vs_top=sup;          vs_top=sup;
4114          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4115          goto T1340;}          goto T1422;}
4116          vs_base=vs_top;          vs_base=vs_top;
4117          (void) (*Lnk350)();          (void) (*Lnk359)();
4118          vs_top=sup;          vs_top=sup;
4119          goto T1338;          goto T1420;
4120          goto T1340;          goto T1422;
4121  T1340:;  T1422:;
4122          vs_base=vs_top;          vs_base=vs_top;
4123          (void) (*Lnk349)();          (void) (*Lnk358)();
4124          return;          return;
4125          goto T1338;          goto T1420;
4126  T1338:;  T1420:;
4127          goto T1318;}          goto T1392;}
4128  }  }
4129  /*      function definition for LOOP-HACK-ITERATION     */  /*      function definition for LOOP-HACK-ITERATION     */
4130    
4131  static void L81()  static void L87()
4132  {register object *base=vs_base;  {register object *base=vs_base;
4133          register object *sup=base+VM70; VC70          register object *sup=base+VM76; VC76
4134          vs_reserve(VM70);          vs_check;
4135          {register object V360;          {register object V371;
4136          check_arg(1);          V371=(base[0]);
         V360=(base[0]);  
4137          vs_top=sup;          vs_top=sup;
4138          goto TTL;          goto TTL;
4139  TTL:;  TTL:;
4140          {register object V361;          {register object V372;
4141          register object V362;          register object V373;
4142          register object V363;          register object V374;
4143          register object V364;          register object V375;
4144          register object V365;          register object V376;
4145          register object V366;          register object V377;
4146          register object V367;          register object V378;
4147          register object V368;          register object V379;
4148          register object V369;          register object V380;
4149          object V370;          object V381;
4150          V361= Cnil;          V372= Cnil;
4151          V362= Cnil;          V373= Cnil;
4152          V363= Cnil;          V374= Cnil;
4153          V364= Cnil;          V375= Cnil;
4154          V365= Cnil;          V376= Cnil;
4155          V366= Cnil;          V377= Cnil;
4156          V367= Cnil;          V378= Cnil;
4157          V368= Cnil;          V379= Cnil;
4158          V369= Cnil;          V380= Cnil;
4159          V370= Cnil;          V381= Cnil;
4160          goto T1347;          goto T1429;
4161  T1347:;  T1429:;
4162          base[2]= car((V360));          base[2]= CMPcar((V371));
4163          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4164          Lsymbol_function();          Lsymbol_function();
4165          vs_top=sup;          vs_top=sup;
4166          base[1]= vs_base[0];          base[1]= vs_base[0];
4167          {object V371;          {object V382;
4168          V371= cdr((V360));          V382= CMPcdr((V371));
4169           vs_top=base+2;           vs_top=base+2;
4170           while(!endp(V371))           while(V382!=Cnil)
4171           {vs_push(car(V371));V371=cdr(V371);}           {vs_push((V382)->c.c_car);V382=(V382)->c.c_cdr;}
4172          vs_base=base+2;}          vs_base=base+2;}
4173          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
4174          vs_top=sup;          vs_top=sup;
4175          V370= vs_base[0];          V381= vs_base[0];
4176          V369= (V370);          V380= (V381);
4177          if((car((V369)))!=Cnil){          if((CMPcar((V380)))!=Cnil){
4178          goto T1357;}          goto T1439;}
4179          goto T1356;          goto T1438;
4180          goto T1357;          goto T1439;
4181  T1357:;  T1439:;
4182          {object V372;          {object V383;
4183          V372= car((V369));          V383= CMPcar((V380));
4184          V361= make_cons((V372),(V361));}          V372= make_cons((V383),(V372));}
4185          goto T1356;          goto T1438;
4186  T1356:;  T1438:;
4187          V369= cdr((V369));          V380= CMPcdr((V380));
4188          base[1]= car((V369));          base[1]= CMPcar((V380));
4189          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4190          Lcopy_list();          Lcopy_list();
4191          vs_top=sup;          vs_top=sup;
4192          V373= vs_base[0];          V384= vs_base[0];
4193          V362= nconc((V362),V373);          V373= nconc((V373),V384);
4194          V369= cdr((V369));          V380= CMPcdr((V380));
4195          if((car((V369)))!=Cnil){          if((CMPcar((V380)))!=Cnil){
4196          goto T1367;}          goto T1449;}
4197          goto T1366;          goto T1448;
4198          goto T1367;          goto T1449;
4199  T1367:;  T1449:;
4200          {object V374;          {object V385;
4201          V374= car((V369));          V385= CMPcar((V380));
4202          V363= make_cons((V374),(V363));}          V374= make_cons((V385),(V374));}
4203          goto T1366;          goto T1448;
4204  T1366:;  T1448:;
4205          V369= cdr((V369));          V380= CMPcdr((V380));
4206          base[1]= car((V369));          base[1]= CMPcar((V380));
4207          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4208          Lcopy_list();          Lcopy_list();
4209          vs_top=sup;          vs_top=sup;
4210          V375= vs_base[0];          V386= vs_base[0];
4211          V364= nconc((V364),V375);          V375= nconc((V375),V386);
4212          V369= cdr((V369));          V380= CMPcdr((V380));
4213          if((symbol_value(VV[110]))==Cnil){          if(((VV[112]->s.s_dbind))==Cnil){
4214          goto T1379;}          goto T1461;}
4215          base[1]= VV[191];          base[1]= VV[196];
4216          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4217          (void) (*Lnk347)();          (void) (*Lnk354)();
4218          vs_top=sup;          vs_top=sup;
4219          goto T1379;          goto T1461;
4220  T1379:;  T1461:;
4221          if(((V369))!=Cnil){          if(((V380))!=Cnil){
4222          goto T1383;}          goto T1465;}
4223          V369= (V370);          V380= (V381);
4224          goto T1383;          goto T1465;
4225  T1383:;  T1465:;
4226          if((car((V369)))==Cnil){          if((CMPcar((V380)))==Cnil){
4227          goto T1387;}          goto T1469;}
4228          {object V376;          {object V387;
4229          V376= car((V369));          V387= CMPcar((V380));
4230          V365= make_cons((V376),(V365));}          V376= make_cons((V387),(V376));}
4231          goto T1387;          goto T1469;
4232  T1387:;  T1469:;
4233          V369= cdr((V369));          V380= CMPcdr((V380));
4234          base[1]= car((V369));          base[1]= CMPcar((V380));
4235          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4236          Lcopy_list();          Lcopy_list();
4237          vs_top=sup;          vs_top=sup;
4238          V377= vs_base[0];          V388= vs_base[0];
4239          V366= nconc((V366),V377);          V377= nconc((V377),V388);
4240          V369= cdr((V369));          V380= CMPcdr((V380));
4241          if((car((V369)))==Cnil){          if((CMPcar((V380)))==Cnil){
4242          goto T1397;}          goto T1479;}
4243          {object V378;          {object V389;
4244          V378= car((V369));          V389= CMPcar((V380));
4245          V367= make_cons((V378),(V367));}          V378= make_cons((V389),(V378));}
4246          goto T1397;          goto T1479;
4247  T1397:;  T1479:;
4248          base[1]= cadr((V369));          base[1]= CMPcadr((V380));
4249          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4250          Lcopy_list();          Lcopy_list();
4251          vs_top=sup;          vs_top=sup;
4252          V379= vs_base[0];          V390= vs_base[0];
4253          V368= nconc((V368),V379);          V379= nconc((V379),V390);
4254          base[1]= car(symbol_value(VV[89]));          base[1]= CMPcar((VV[88]->s.s_dbind));
4255          base[2]= VV[155];          base[2]= VV[158];
4256          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4257          (void) (*Lnk357)();          (void) (*Lnk369)();
4258          vs_top=sup;          vs_top=sup;
4259          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4260          goto T1407;}          goto T1489;}
4261          base[1]= (V368);          base[1]= (V379);
4262          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4263          (void) (*Lnk337)();          (void) (*Lnk344)();
4264          vs_top=sup;          vs_top=sup;
4265          V380= vs_base[0];          V391= vs_base[0];
4266          base[1]= (V367);          base[1]= (V378);
4267          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4268          L82(base);          L88(base);
4269          vs_top=sup;          vs_top=sup;
4270          V381= vs_base[0];          V392= vs_base[0];
4271          base[1]= (V366);          base[1]= (V377);
4272          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4273          (void) (*Lnk336)();          (void) (*Lnk343)();
4274          vs_top=sup;          vs_top=sup;
4275          V382= vs_base[0];          V393= vs_base[0];
4276          base[1]= (V365);          base[1]= (V376);
4277          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4278          L82(base);          L88(base);
4279          vs_top=sup;          vs_top=sup;
4280          V383= vs_base[0];          V394= vs_base[0];
4281          setq(VV[108],listA(5,V380,V381,V382,V383,symbol_value(VV[108])));          (VV[110]->s.s_dbind)= listA(5,V391,V392,V393,V394,(VV[110]->s.s_dbind));
4282          base[1]= (V364);          base[1]= (V375);
4283          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4284          (void) (*Lnk337)();          (void) (*Lnk344)();
4285          vs_top=sup;          vs_top=sup;
4286          V384= vs_base[0];          V395= vs_base[0];
4287          base[1]= (V363);          base[1]= (V374);
4288          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4289          L82(base);          L88(base);
4290          vs_top=sup;          vs_top=sup;
4291          V385= vs_base[0];          V396= vs_base[0];
4292          base[1]= (V362);          base[1]= (V373);
4293          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4294          (void) (*Lnk336)();          (void) (*Lnk343)();
4295          vs_top=sup;          vs_top=sup;
4296          V386= vs_base[0];          V397= vs_base[0];
4297          base[1]= (V361);          base[1]= (V372);
4298          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4299          L82(base);          L88(base);
4300          vs_top=sup;          vs_top=sup;
4301          V387= vs_base[0];          V398= vs_base[0];
4302          setq(VV[111],listA(5,V384,V385,V386,V387,symbol_value(VV[111])));          (VV[113]->s.s_dbind)= listA(5,V395,V396,V397,V398,(VV[113]->s.s_dbind));
4303          vs_base=vs_top;          vs_base=vs_top;
4304          (void) (*Lnk349)();          (void) (*Lnk358)();
4305          vs_top=sup;          vs_top=sup;
4306          base[1]= Cnil;          base[1]= Cnil;
4307          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4308          return;          return;
4309          goto T1407;          goto T1489;
4310  T1407:;  T1489:;
4311          vs_base=vs_top;          vs_base=vs_top;
4312          (void) (*Lnk350)();          (void) (*Lnk359)();
4313          vs_top=sup;          vs_top=sup;
4314          if((structure_ref(symbol_value(VV[97]),VV[39],7))!=Cnil){          if((STREF(object,(VV[99]->s.s_dbind),28))!=Cnil){
4315          goto T1434;}          goto T1516;}
4316          base[1]= car(symbol_value(VV[89]));          base[1]= CMPcar((VV[88]->s.s_dbind));
4317          base[2]= structure_ref(symbol_value(VV[97]),VV[39],1);          base[2]= STREF(object,(VV[99]->s.s_dbind),4);
4318          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4319          (void) (*Lnk351)();          (void) (*Lnk360)();
4320          vs_top=sup;          vs_top=sup;
4321          V369= vs_base[0];          V380= vs_base[0];
4322          if(((V369))==Cnil){          if(((V380))==Cnil){
4323          goto T1434;}          goto T1516;}
4324          vs_base=vs_top;          vs_base=vs_top;
4325          (void) (*Lnk350)();          (void) (*Lnk359)();
4326          vs_top=sup;          vs_top=sup;
4327          V360= (V369);          V371= (V380);
4328          goto T1434;          goto T1516;
4329  T1434:;  T1516:;
4330          goto T1347;}          goto T1429;}
4331          }          }
4332  }  }
4333  /*      function definition for LOOP-DO-FOR     */  /*      function definition for LOOP-DO-FOR     */
4334    
4335  static void L83()  static void L89()
4336  {register object *base=vs_base;  {register object *base=vs_base;
4337          register object *sup=base+VM71; VC71          register object *sup=base+VM77; VC77
4338          vs_reserve(VM71);          vs_check;
         check_arg(0);  
4339          vs_top=sup;          vs_top=sup;
4340          goto TTL;          goto TTL;
4341  TTL:;  TTL:;
4342          {object V388;          {object V399;
4343          object V389;          object V400;
4344          object V390;          object V401;
4345          object V391;          object V402;
4346          object V392;          object V403;
4347          vs_base=vs_top;          vs_base=vs_top;
4348          (void) (*Lnk350)();          (void) (*Lnk359)();
4349          vs_top=sup;          vs_top=sup;
4350          V388= vs_base[0];          V399= vs_base[0];
4351          base[3]= (V388);          base[3]= (V399);
4352          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4353          (void) (*Lnk367)();          (void) (*Lnk378)();
4354          vs_top=sup;          vs_top=sup;
4355          V389= vs_base[0];          V400= vs_base[0];
4356          vs_base=vs_top;          vs_base=vs_top;
4357          (void) (*Lnk350)();          (void) (*Lnk359)();
4358          vs_top=sup;          vs_top=sup;
4359          V390= vs_base[0];          V401= vs_base[0];
4360          V391= Cnil;          V402= Cnil;
4361          V392= Cnil;          V403= Cnil;
4362          vs_base=vs_top;          vs_base=vs_top;
4363          (void) (*Lnk361)();          (void) (*Lnk363)();
4364          vs_top=sup;          vs_top=sup;
4365          V391= vs_base[0];          V402= vs_base[0];
4366          if(!(type_of((V390))==t_symbol)){          if(!(type_of((V401))==t_symbol)){
4367          goto T1455;}          goto T1537;}
4368          base[3]= (V390);          base[3]= (V401);
4369          base[4]= structure_ref(symbol_value(VV[97]),VV[39],2);          base[4]= STREF(object,(VV[99]->s.s_dbind),8);
4370          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4371          (void) (*Lnk351)();          (void) (*Lnk360)();
4372          vs_top=sup;          vs_top=sup;
4373          V392= vs_base[0];          V403= vs_base[0];
4374          if(((V392))!=Cnil){          if(((V403))!=Cnil){
4375          goto T1454;}          goto T1536;}
4376          goto T1455;          goto T1537;
4377  T1455:;  T1537:;
4378          base[3]= VV[194];          base[3]= VV[199];
4379          base[4]= (V390);          base[4]= (V401);
4380          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4381          (void) (*Lnk347)();          (void) (*Lnk354)();
4382          vs_top=sup;          vs_top=sup;
4383          goto T1454;          goto T1536;
4384  T1454:;  T1536:;
4385          base[3]= car((V392));          base[3]= CMPcar((V403));
4386          base[4]= (V388);          base[4]= (V399);
4387          base[5]= (V391);          base[5]= (V402);
4388          base[6]= (V389);          base[6]= (V400);
4389          {object V393;          {object V404;
4390          V393= cdr((V392));          V404= CMPcdr((V403));
4391           vs_top=base+7;           vs_top=base+7;
4392           while(!endp(V393))           while(V404!=Cnil)
4393           {vs_push(car(V393));V393=cdr(V393);}           {vs_push((V404)->c.c_car);V404=(V404)->c.c_cdr;}
4394          vs_base=base+4;}          vs_base=base+4;}
4395          super_funcall_no_event(base[3]);          super_funcall_no_event(base[3]);
4396          return;}          return;}
4397  }  }
4398  /*      function definition for LOOP-DO-REPEAT  */  /*      function definition for LOOP-DO-REPEAT  */
4399    
4400  static void L84()  static void L90()
4401  {register object *base=vs_base;  {register object *base=vs_base;
4402          register object *sup=base+VM72; VC72          register object *sup=base+VM78; VC78
4403          vs_reserve(VM72);          vs_check;
         check_arg(0);  
4404          vs_top=sup;          vs_top=sup;
4405          goto TTL;          goto TTL;
4406  TTL:;  TTL:;
4407          {register object V394;          base[0]= VV[200];
4408          register object V395;          vs_top=(vs_base=base+0)+1;
4409          vs_base=vs_top;          (void) (*Lnk373)();
         (void) (*Lnk361)();  
4410          vs_top=sup;          vs_top=sup;
4411          V394= vs_base[0];          {object V405;
4412          vs_base=vs_top;          vs_base=vs_top;
4413          (void) (*Lnk367)();          (void) (*Lnk363)();
         vs_top=sup;  
         base[0]= vs_base[0];  
         base[1]= symbol_value(VV[183]);  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk375)();  
         vs_top=sup;  
         V395= vs_base[0];  
         if(!(type_of((V394))==t_cons)){  
         goto T1473;}  
         if(!((car((V394)))==(VV[195]))){  
         goto T1473;}  
         base[0]= cadr((V394));  
         base[1]= (V395);  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk326)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T1473;}  
         V395= cadr((V394));  
         goto T1473;  
 T1473:;  
         {object V396;  
         object V397;  
         object V398;  
         base[0]= (V394);  
         base[1]= (V395);  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk379)();  
         if(vs_base>=vs_top){vs_top=sup;goto T1486;}  
         V396= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T1487;}  
         V397= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T1488;}  
         V398= vs_base[0];  
4414          vs_top=sup;          vs_top=sup;
4415          goto T1489;          V405= vs_base[0];
4416          goto T1486;          {object V407;
4417  T1486:;          vs_base=vs_top;
4418          V396= Cnil;          (void) (*Lnk334)();
         goto T1487;  
 T1487:;  
         V397= Cnil;  
         goto T1488;  
 T1488:;  
         V398= Cnil;  
         goto T1489;  
 T1489:;  
         if(((V397))==Cnil){  
         goto T1491;}  
         if(!(number_compare((V398),small_fixnum(1))<=0)){  
         goto T1491;}  
         base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V398),small_fixnum(0))<=0?Ct:Cnil),VV[196]);  
         vs_top=(vs_base=base+0)+1;  
         return;  
         goto T1491;  
 T1491:;  
         {register object V399;  
         base[1]= VV[197];  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk327)();  
4419          vs_top=sup;          vs_top=sup;
4420          base[0]= vs_base[0];          base[0]= vs_base[0];
4421          base[1]= (V396);          base[1]= (V405);
4422          base[2]= (V395);          base[2]= VV[201];
4423          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
4424          (void) (*Lnk359)();          (void) (*Lnk371)();
4425          vs_top=sup;          vs_top=sup;
4426          V399= vs_base[0];          V407= vs_base[0];
4427          if(((V397))==Cnil){          {object V408;
4428          goto T1501;}          V408= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V407))),VV[204]);
4429          V400= list(2,VV[36],list(2,VV[198],list(3,VV[11],(V399),list(2,VV[199],(V399)))));          (VV[110]->s.s_dbind)= make_cons((V408),(VV[110]->s.s_dbind));}
4430          base[0]= make_cons(/* INLINE-ARGS */V400,VV[200]);          {object V409;
4431          vs_top=(vs_base=base+0)+1;          V409= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V407))),VV[205]);
4432          return;          (VV[113]->s.s_dbind)= make_cons((V409),(VV[113]->s.s_dbind));
4433          goto T1501;          base[1]= (VV[113]->s.s_dbind);
4434  T1501:;          vs_top=(vs_base=base+1)+1;
         V401= list(2,VV[201],list(3,VV[11],(V399),list(2,VV[199],(V399))));  
         base[0]= make_cons(/* INLINE-ARGS */V401,VV[202]);  
         vs_top=(vs_base=base+0)+1;  
4435          return;}}}          return;}}}
4436  }  }
4437  /*      function definition for LOOP-WHEN-IT-VARIABLE   */  /*      function definition for LOOP-WHEN-IT-VARIABLE   */
4438    
4439  static void L85()  static void L91()
4440  {register object *base=vs_base;  {register object *base=vs_base;
4441          register object *sup=base+VM73; VC73          register object *sup=base+VM79; VC79
4442          vs_reserve(VM73);          vs_check;
         check_arg(0);  
4443          vs_top=sup;          vs_top=sup;
4444          goto TTL;          goto TTL;
4445  TTL:;  TTL:;
4446          if(symbol_value(VV[116])!=Cnil){          if((VV[118]->s.s_dbind)!=Cnil){
4447          base[0]= symbol_value(VV[116]);          base[0]= (VV[118]->s.s_dbind);
4448          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4449          return;}          return;}
4450          base[1]= VV[203];          base[1]= VV[206];
4451          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4452          (void) (*Lnk327)();          (void) (*Lnk334)();
4453          vs_top=sup;          vs_top=sup;
4454          base[0]= vs_base[0];          base[0]= vs_base[0];
4455          base[1]= Cnil;          base[1]= Cnil;
4456          base[2]= Cnil;          base[2]= Cnil;
4457          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
4458          (void) (*Lnk359)();          (void) (*Lnk371)();
4459          vs_top=sup;          vs_top=sup;
4460          setq(VV[116],vs_base[0]);          (VV[118]->s.s_dbind)= vs_base[0];
4461          base[0]= symbol_value(VV[116]);          base[0]= (VV[118]->s.s_dbind);
4462          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4463          return;          return;
4464  }  }
4465  /*      function definition for LOOP-ANSI-FOR-EQUALS    */  /*      function definition for LOOP-ANSI-FOR-EQUALS    */
4466    
4467  static void L86()  static void L92()
4468  {register object *base=vs_base;  {register object *base=vs_base;
4469          register object *sup=base+VM74; VC74          register object *sup=base+VM80; VC80
4470          vs_reserve(VM74);          vs_check;
4471          {register object V402;          {register object V410;
4472          object V403;          object V411;
4473          object V404;          object V412;
4474          check_arg(3);          V410=(base[0]);
4475          V402=(base[0]);          V411=(base[1]);
4476          V403=(base[1]);          V412=(base[2]);
         V404=(base[2]);  
4477          vs_top=sup;          vs_top=sup;
4478          goto TTL;          goto TTL;
4479  TTL:;  TTL:;
4480          base[3]= (V402);          base[3]= (V410);
4481          base[4]= Cnil;          base[4]= Cnil;
4482          base[5]= (V404);          base[5]= (V412);
4483          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4484          (void) (*Lnk380)();          (void) (*Lnk392)();
4485          vs_top=sup;          vs_top=sup;
4486          base[3]= car(symbol_value(VV[89]));          base[3]= CMPcar((VV[88]->s.s_dbind));
4487          base[4]= VV[204];          base[4]= VV[207];
4488          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4489          (void) (*Lnk357)();          (void) (*Lnk369)();
4490          vs_top=sup;          vs_top=sup;
4491          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4492          goto T1513;}          goto T1573;}
4493          vs_base=vs_top;          vs_base=vs_top;
4494          (void) (*Lnk350)();          (void) (*Lnk359)();
4495          vs_top=sup;          vs_top=sup;
4496          vs_base=vs_top;          vs_base=vs_top;
4497          (void) (*Lnk361)();          (void) (*Lnk363)();
4498          vs_top=sup;          vs_top=sup;
4499          V405= vs_base[0];          V413= vs_base[0];
4500          V406= list(2,(V402),V405);          V414= list(2,(V410),V413);
4501          base[3]= listA(7,Cnil,/* INLINE-ARGS */V406,Cnil,Cnil,Cnil,list(2,(V402),(V403)),VV[205]);          base[3]= listA(7,Cnil,/* INLINE-ARGS */V414,Cnil,Cnil,Cnil,list(2,(V410),(V411)),VV[208]);
4502          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4503          return;          return;
4504          goto T1513;          goto T1573;
4505  T1513:;  T1573:;
4506          base[3]= listA(3,Cnil,list(2,(V402),(V403)),VV[206]);          base[3]= listA(3,Cnil,list(2,(V410),(V411)),VV[209]);
4507          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4508          return;          return;
4509          }          }
4510  }  }
4511  /*      function definition for LOOP-FOR-ACROSS */  /*      function definition for LOOP-FOR-ACROSS */
4512    
4513  static void L87()  static void L93()
4514  {register object *base=vs_base;  {register object *base=vs_base;
4515          register object *sup=base+VM75; VC75          register object *sup=base+VM81; VC81
4516          vs_reserve(VM75);          vs_check;
4517          {object V407;          {object V415;
4518          object V408;          object V416;
4519          object V409;          object V417;
4520          check_arg(3);          V415=(base[0]);
4521          V407=(base[0]);          V416=(base[1]);
4522          V408=(base[1]);          V417=(base[2]);
         V409=(base[2]);  
4523          vs_top=sup;          vs_top=sup;
4524          goto TTL;          goto TTL;
4525  TTL:;  TTL:;
4526          base[3]= (V407);          base[3]= (V415);
4527          base[4]= Cnil;          base[4]= Cnil;
4528          base[5]= (V409);          base[5]= (V417);
4529          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4530          (void) (*Lnk380)();          (void) (*Lnk392)();
4531          vs_top=sup;          vs_top=sup;
4532          {object V410;          {object V418;
4533          register object V411;          register object V419;
4534          base[3]= VV[207];          base[3]= VV[210];
4535          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4536          (void) (*Lnk327)();          (void) (*Lnk334)();
4537          vs_top=sup;          vs_top=sup;
4538          V410= vs_base[0];          V418= vs_base[0];
4539          base[3]= VV[208];          base[3]= VV[211];
4540          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4541          (void) (*Lnk327)();          (void) (*Lnk334)();
4542          vs_top=sup;          vs_top=sup;
4543          V411= vs_base[0];          V419= vs_base[0];
4544          {register object V412;          {register object V420;
4545          object V413;          object V421;
4546          object V414;          object V422;
4547          base[3]= (V408);          base[3]= (V416);
4548          base[4]= VV[209];          base[4]= VV[212];
4549          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4550          (void) (*Lnk379)();          (void) (*Lnk393)();
4551          if(vs_base>=vs_top){vs_top=sup;goto T1530;}          if(vs_base>=vs_top){vs_top=sup;goto T1590;}
4552          V412= vs_base[0];          V420= vs_base[0];
4553          vs_base++;          vs_base++;
4554          if(vs_base>=vs_top){vs_top=sup;goto T1531;}          if(vs_base>=vs_top){vs_top=sup;goto T1591;}
4555          V413= vs_base[0];          V421= vs_base[0];
4556          vs_base++;          vs_base++;
4557          if(vs_base>=vs_top){vs_top=sup;goto T1532;}          if(vs_base>=vs_top){vs_top=sup;goto T1592;}
4558          V414= vs_base[0];          V422= vs_base[0];
4559          vs_top=sup;          vs_top=sup;
4560          goto T1533;          goto T1593;
4561          goto T1530;          goto T1590;
4562  T1530:;  T1590:;
4563          V412= Cnil;          V420= Cnil;
4564          goto T1531;          goto T1591;
4565  T1531:;  T1591:;
4566          V413= Cnil;          V421= Cnil;
4567          goto T1532;          goto T1592;
4568  T1532:;  T1592:;
4569          V414= Cnil;          V422= Cnil;
4570          goto T1533;          goto T1593;
4571  T1533:;  T1593:;
4572          base[3]= (V410);          base[3]= (V418);
4573          base[4]= (V412);          base[4]= (V420);
4574          if(!(type_of((V412))==t_cons)){          if(!(type_of((V420))==t_cons)){
4575          goto T1539;}          goto T1599;}
4576          if(!((car((V412)))==(VV[195]))){          if(!((CMPcar((V420)))==(VV[213]))){
4577          goto T1539;}          goto T1599;}
4578          base[5]= cadr((V412));          base[5]= CMPcadr((V420));
4579          goto T1537;          goto T1597;
4580          goto T1539;          goto T1599;
4581  T1539:;  T1599:;
4582          base[5]= VV[209];          base[5]= VV[212];
4583          goto T1537;          goto T1597;
4584  T1537:;  T1597:;
4585          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4586          (void) (*Lnk359)();          (void) (*Lnk371)();
4587          vs_top=sup;          vs_top=sup;
4588          base[3]= (V411);          base[3]= (V419);
4589          base[4]= small_fixnum(0);          base[4]= small_fixnum(0);
4590          base[5]= VV[210];          base[5]= VV[214];
4591          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4592          (void) (*Lnk359)();          (void) (*Lnk371)();
4593          vs_top=sup;          vs_top=sup;
4594          {long V415;          {long V423;
4595          object V416;          object V424;
4596          register object V417;          register object V425;
4597          object V418;          object V426;
4598          object V419;          object V427;
4599          object V420;          object V428;
4600          V415= 0;          V423= 0;
4601          if(((V413))!=Cnil){          if(((V421))!=Cnil){
4602          goto T1550;}          goto T1610;}
4603          {object V421;          {object V429;
4604          base[7]= VV[211];          base[7]= VV[215];
4605          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4606          (void) (*Lnk327)();          (void) (*Lnk334)();
4607          vs_top=sup;          vs_top=sup;
4608          V421= vs_base[0];          V429= vs_base[0];
4609          {object V422;          {object V430;
4610          V422= list(3,VV[11],(V421),list(2,VV[212],(V410)));          V430= list(3,VV[11],(V429),list(2,VV[216],(V418)));
4611          setq(VV[106],make_cons((V422),symbol_value(VV[106])));}          (VV[108]->s.s_dbind)= make_cons((V430),(VV[108]->s.s_dbind));}
4612          base[7]= (V421);          base[7]= (V429);
4613          base[8]= small_fixnum(0);          base[8]= small_fixnum(0);
4614          base[9]= VV[210];          base[9]= VV[214];
4615          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
4616          (void) (*Lnk359)();          (void) (*Lnk371)();
4617          vs_top=sup;          vs_top=sup;
4618          V416= vs_base[0];          V424= vs_base[0];
4619          goto T1548;}          goto T1608;}
4620          goto T1550;          goto T1610;
4621  T1550:;  T1610:;
4622          V415= (long)length((V414));          V423= (long)length((V422));
4623          V416= make_fixnum(V415);          V424= CMPmake_fixnum(V423);
4624          goto T1548;          goto T1608;
4625  T1548:;  T1608:;
4626          V417= list(3,VV[213],(V411),(V416));          V425= list(3,VV[217],(V419),(V424));
4627          V418= (V417);          V426= (V425);
4628          V419= list(2,(V407),list(3,VV[214],(V410),(V411)));          V427= list(2,(V415),list(3,VV[218],(V418),(V419)));
4629          V420= list(2,(V411),list(2,VV[180],(V411)));          V428= list(2,(V419),list(2,VV[184],(V419)));
4630          if(((V413))==Cnil){          if(((V421))==Cnil){
4631          goto T1565;}          goto T1625;}
4632          V417= ((V415)==(0)?Ct:Cnil);          V425= ((V423)==(0)?Ct:Cnil);
4633          if(!((V415)<=(1))){          if(!((V423)<=(1))){
4634          goto T1565;}          goto T1625;}
4635          V418= Ct;          V426= Ct;
4636          goto T1565;          goto T1625;
4637  T1565:;  T1625:;
4638          if(((((V417))==((V418))?Ct:Cnil))==Cnil){          if(((((V425))==((V426))?Ct:Cnil))==Cnil){
4639          goto T1574;}          goto T1634;}
4640          V423= Cnil;          V431= Cnil;
4641          goto T1573;          goto T1633;
4642          goto T1574;          goto T1634;
4643  T1574:;  T1634:;
4644          V423= list(4,(V417),(V419),Cnil,(V420));          V431= list(4,(V425),(V427),Cnil,(V428));
4645          goto T1573;          goto T1633;
4646  T1573:;  T1633:;
4647          base[7]= listA(5,(V418),(V419),Cnil,(V420),V423);          base[7]= listA(5,(V426),(V427),Cnil,(V428),V431);
4648          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4649          return;}}}          return;}}}
4650          }          }
4651  }  }
4652  /*      function definition for LOOP-LIST-STEP  */  /*      function definition for LOOP-LIST-STEP  */
4653    
4654  static void L88()  static void L94()
4655  {register object *base=vs_base;  {register object *base=vs_base;
4656          register object *sup=base+VM76; VC76          register object *sup=base+VM82; VC82
4657          vs_reserve(VM76);          vs_check;
4658          {object V424;          {object V432;
4659          check_arg(1);          V432=(base[0]);
         V424=(base[0]);  
4660          vs_top=sup;          vs_top=sup;
4661          goto TTL;          goto TTL;
4662  TTL:;  TTL:;
4663          {register object V425;          {register object V433;
4664          base[1]= car(symbol_value(VV[89]));          base[1]= CMPcar((VV[88]->s.s_dbind));
4665          base[2]= VV[215];          base[2]= VV[219];
4666          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4667          (void) (*Lnk357)();          (void) (*Lnk369)();
4668          vs_top=sup;          vs_top=sup;
4669          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4670          goto T1578;}          goto T1638;}
4671          vs_base=vs_top;          vs_base=vs_top;
4672          (void) (*Lnk350)();          (void) (*Lnk359)();
4673          vs_top=sup;          vs_top=sup;
4674          vs_base=vs_top;          vs_base=vs_top;
4675          (void) (*Lnk361)();          (void) (*Lnk363)();
4676          vs_top=sup;          vs_top=sup;
4677          V425= vs_base[0];          V433= vs_base[0];
4678          goto T1576;          goto T1636;
4679          goto T1578;          goto T1638;
4680  T1578:;  T1638:;
4681          V425= VV[216];          V433= VV[220];
4682          goto T1576;          goto T1636;
4683  T1576:;  T1636:;
4684          if(!(type_of((V425))==t_cons)){          if(!(type_of((V433))==t_cons)){
4685          goto T1584;}          goto T1644;}
4686          if(!((car((V425)))==(VV[217]))){          if(!((CMPcar((V433)))==(VV[221]))){
4687          goto T1584;}          goto T1644;}
4688          base[1]= VV[218];          base[1]= VV[222];
4689          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4690          (void) (*Lnk338)();          (void) (*Lnk345)();
4691          vs_top=sup;          vs_top=sup;
4692          base[1]= list(3,VV[219],(V425),(V424));          base[1]= list(3,VV[223],(V433),(V432));
4693          base[2]= Cnil;          base[2]= Cnil;
4694          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4695          return;          return;
4696          goto T1584;          goto T1644;
4697  T1584:;  T1644:;
4698          if(!(type_of((V425))==t_cons)){          if(!(type_of((V433))==t_cons)){
4699          goto T1593;}          goto T1653;}
4700          if(!((car((V425)))==(VV[83]))){          if(!((CMPcar((V433)))==(VV[83]))){
4701          goto T1593;}          goto T1653;}
4702          base[1]= list(2,cadr((V425)),(V424));          base[1]= list(2,CMPcadr((V433)),(V432));
4703          base[2]= cadr((V425));          base[2]= CMPcadr((V433));
4704          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4705          return;          return;
4706          goto T1593;          goto T1653;
4707  T1593:;  T1653:;
4708          base[3]= VV[220];          base[3]= VV[224];
4709          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4710          (void) (*Lnk327)();          (void) (*Lnk334)();
4711          vs_top=sup;          vs_top=sup;
4712          base[2]= vs_base[0];          base[2]= vs_base[0];
4713          base[3]= (V425);          base[3]= (V433);
4714          base[4]= VV[83];          base[4]= VV[83];
4715          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
4716          (void) (*Lnk359)();          (void) (*Lnk371)();
4717          vs_top=sup;          vs_top=sup;
4718          V426= vs_base[0];          V434= vs_base[0];
4719          base[1]= list(3,VV[219],V426,(V424));          base[1]= list(3,VV[223],V434,(V432));
4720          base[2]= Cnil;          base[2]= Cnil;
4721          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4722          return;}          return;}
# Line 4609  T1593:; Line 4724  T1593:;
4724  }  }
4725  /*      function definition for LOOP-FOR-ON     */  /*      function definition for LOOP-FOR-ON     */
4726    
4727  static void L89()  static void L95()
4728  {register object *base=vs_base;  {register object *base=vs_base;
4729          register object *sup=base+VM77; VC77          register object *sup=base+VM83; VC83
4730          vs_reserve(VM77);          vs_check;
4731          {register object V427;          {register object V435;
4732          object V428;          object V436;
4733          object V429;          object V437;
4734          check_arg(3);          V435=(base[0]);
4735          V427=(base[0]);          V436=(base[1]);
4736          V428=(base[1]);          V437=(base[2]);
         V429=(base[2]);  
4737          vs_top=sup;          vs_top=sup;
4738          goto TTL;          goto TTL;
4739  TTL:;  TTL:;
4740          {object V430;          {object V438;
4741          object V431;          object V439;
4742          object V432;          object V440;
4743          base[3]= (V428);          base[3]= (V436);
4744          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4745          (void) (*Lnk379)();          (void) (*Lnk393)();
4746          if(vs_base>=vs_top){vs_top=sup;goto T1608;}          if(vs_base>=vs_top){vs_top=sup;goto T1668;}
4747          V430= vs_base[0];          V438= vs_base[0];
4748          vs_base++;          vs_base++;
4749          if(vs_base>=vs_top){vs_top=sup;goto T1609;}          if(vs_base>=vs_top){vs_top=sup;goto T1669;}
4750          V431= vs_base[0];          V439= vs_base[0];
4751          vs_base++;          vs_base++;
4752          if(vs_base>=vs_top){vs_top=sup;goto T1610;}          if(vs_base>=vs_top){vs_top=sup;goto T1670;}
4753          V432= vs_base[0];          V440= vs_base[0];
4754          vs_top=sup;          vs_top=sup;
4755          goto T1611;          goto T1671;
4756          goto T1608;          goto T1668;
4757  T1608:;  T1668:;
4758          V430= Cnil;          V438= Cnil;
4759          goto T1609;          goto T1669;
4760  T1609:;  T1669:;
4761          V431= Cnil;          V439= Cnil;
4762          goto T1610;          goto T1670;
4763  T1610:;  T1670:;
4764          V432= Cnil;          V440= Cnil;
4765          goto T1611;          goto T1671;
4766  T1611:;  T1671:;
4767          {register object V433;          {register object V441;
4768          V433= (V427);          V441= (V435);
4769          if(((V427))==Cnil){          if(((V435))==Cnil){
4770          goto T1614;}          goto T1674;}
4771          if(!(type_of((V427))==t_symbol)){          if(!(type_of((V435))==t_symbol)){
4772          goto T1614;}          goto T1674;}
4773          base[3]= (V427);          base[3]= (V435);
4774          base[4]= (V430);          base[4]= (V438);
4775          base[5]= (V429);          base[5]= (V437);
4776          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4777          (void) (*Lnk380)();          (void) (*Lnk392)();
4778          vs_top=sup;          vs_top=sup;
4779          goto T1612;          goto T1672;
4780          goto T1614;          goto T1674;
4781  T1614:;  T1674:;
4782          vs_base=vs_top;          vs_base=vs_top;
4783          (void) (*Lnk327)();          (void) (*Lnk334)();
4784          vs_top=sup;          vs_top=sup;
4785          V433= vs_base[0];          V441= vs_base[0];
4786          base[3]= (V433);          base[3]= (V441);
4787          base[4]= (V430);          base[4]= (V438);
4788          base[5]= VV[5];          base[5]= VV[5];
4789          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4790          (void) (*Lnk359)();          (void) (*Lnk371)();
4791          vs_top=sup;          vs_top=sup;
4792          base[3]= (V427);          base[3]= (V435);
4793          base[4]= Cnil;          base[4]= Cnil;
4794          base[5]= (V429);          base[5]= (V437);
4795          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4796          (void) (*Lnk380)();          (void) (*Lnk392)();
4797          vs_top=sup;          vs_top=sup;
4798          goto T1612;          goto T1672;
4799  T1612:;  T1672:;
4800          {object V434;          {object V442;
4801          object V435;          object V443;
4802          base[3]= (V433);          base[3]= (V441);
4803          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4804          (void) (*Lnk381)();          (void) (*Lnk394)();
4805          if(vs_base>=vs_top){vs_top=sup;goto T1631;}          if(vs_base>=vs_top){vs_top=sup;goto T1691;}
4806          V434= vs_base[0];          V442= vs_base[0];
4807          vs_base++;          vs_base++;
4808          if(vs_base>=vs_top){vs_top=sup;goto T1632;}          if(vs_base>=vs_top){vs_top=sup;goto T1692;}
4809          V435= vs_base[0];          V443= vs_base[0];
4810          vs_top=sup;          vs_top=sup;
4811          goto T1633;          goto T1693;
4812          goto T1631;          goto T1691;
4813  T1631:;  T1691:;
4814          V434= Cnil;          V442= Cnil;
4815          goto T1632;          goto T1692;
4816  T1632:;  T1692:;
4817          V435= Cnil;          V443= Cnil;
4818          goto T1633;          goto T1693;
4819  T1633:;  T1693:;
4820          {register object V436;          {register object V444;
4821          object V437;          object V445;
4822          base[4]= (((V427))==((V433))?Ct:Cnil);          base[4]= (((V435))==((V441))?Ct:Cnil);
4823          base[5]= (V433);          base[5]= (V441);
4824          base[6]= list(2,VV[221],(V433));          base[6]= list(2,VV[225],(V441));
4825          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4826          (void) (*Lnk331)();          (void) (*Lnk338)();
4827          vs_top=sup;          vs_top=sup;
4828          V436= vs_base[0];          V444= vs_base[0];
4829          V437= (V436);          V445= (V444);
4830          if(((V431))==Cnil){          if(((V439))==Cnil){
4831          goto T1639;}          goto T1699;}
4832          if(!(type_of((V432))==t_cons||((V432))==Cnil)){          if(!(type_of((V440))==t_cons||((V440))==Cnil)){
4833          goto T1639;}          goto T1699;}
4834          V436= (((V432))==Cnil?Ct:Cnil);          V444= (((V440))==Cnil?Ct:Cnil);
4835          goto T1639;          goto T1699;
4836  T1639:;  T1699:;
4837          if(!(((V427))==((V433)))){          if(!(((V435))==((V441)))){
4838          goto T1646;}          goto T1706;}
4839          base[4]= Ct;          base[4]= Ct;
4840          base[5]= (V433);          base[5]= (V441);
4841          base[6]= (V434);          base[6]= (V442);
4842          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4843          (void) (*Lnk331)();          (void) (*Lnk338)();
4844          vs_top=sup;          vs_top=sup;
4845          V438= vs_base[0];          V446= vs_base[0];
4846          base[4]= list(8,Cnil,list(2,(V433),V438),(V437),Cnil,Cnil,Cnil,(V436),Cnil);          base[4]= list(8,Cnil,list(2,(V441),V446),(V445),Cnil,Cnil,Cnil,(V444),Cnil);
4847          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4848          return;          return;
4849          goto T1646;          goto T1706;
4850  T1646:;  T1706:;
4851          {object V439;          {object V447;
4852          object V440;          object V448;
4853          V439= list(2,(V427),(V433));          V447= list(2,(V435),(V441));
4854          V440= list(2,(V433),(V434));          V448= list(2,(V441),(V442));
4855          if(((((V436))==((V437))?Ct:Cnil))==Cnil){          if(((((V444))==((V445))?Ct:Cnil))==Cnil){
4856          goto T1655;}          goto T1715;}
4857          V441= Cnil;          V449= Cnil;
4858          goto T1654;          goto T1714;
4859          goto T1655;          goto T1715;
4860  T1655:;  T1715:;
4861          V441= list(4,(V436),(V439),Cnil,(V440));          V449= list(4,(V444),(V447),Cnil,(V448));
4862          goto T1654;          goto T1714;
4863  T1654:;  T1714:;
4864          base[4]= listA(5,(V437),(V439),Cnil,(V440),V441);          base[4]= listA(5,(V445),(V447),Cnil,(V448),V449);
4865          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4866          return;}}}}}          return;}}}}}
4867          }          }
4868  }  }
4869  /*      function definition for LOOP-FOR-IN     */  /*      function definition for LOOP-FOR-IN     */
4870    
4871  static void L90()  static void L96()
4872  {register object *base=vs_base;  {register object *base=vs_base;
4873          register object *sup=base+VM78; VC78          register object *sup=base+VM84; VC84
4874          vs_reserve(VM78);          vs_check;
4875          {object V442;          {object V450;
4876          object V443;          object V451;
4877          object V444;          object V452;
4878          check_arg(3);          V450=(base[0]);
4879          V442=(base[0]);          V451=(base[1]);
4880          V443=(base[1]);          V452=(base[2]);
         V444=(base[2]);  
4881          vs_top=sup;          vs_top=sup;
4882          goto TTL;          goto TTL;
4883  TTL:;  TTL:;
4884          {object V445;          {object V453;
4885          object V446;          object V454;
4886          object V447;          object V455;
4887          base[3]= (V443);          base[3]= (V451);
4888          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4889          (void) (*Lnk379)();          (void) (*Lnk393)();
4890          if(vs_base>=vs_top){vs_top=sup;goto T1659;}          if(vs_base>=vs_top){vs_top=sup;goto T1719;}
4891          V445= vs_base[0];          V453= vs_base[0];
4892          vs_base++;          vs_base++;
4893          if(vs_base>=vs_top){vs_top=sup;goto T1660;}          if(vs_base>=vs_top){vs_top=sup;goto T1720;}
4894          V446= vs_base[0];          V454= vs_base[0];
4895          vs_base++;          vs_base++;
4896          if(vs_base>=vs_top){vs_top=sup;goto T1661;}          if(vs_base>=vs_top){vs_top=sup;goto T1721;}
4897          V447= vs_base[0];          V455= vs_base[0];
4898          vs_top=sup;          vs_top=sup;
4899          goto T1662;          goto T1722;
4900          goto T1659;          goto T1719;
4901  T1659:;  T1719:;
4902          V445= Cnil;          V453= Cnil;
4903          goto T1660;          goto T1720;
4904  T1660:;  T1720:;
4905          V446= Cnil;          V454= Cnil;
4906          goto T1661;          goto T1721;
4907  T1661:;  T1721:;
4908          V447= Cnil;          V455= Cnil;
4909          goto T1662;          goto T1722;
4910  T1662:;  T1722:;
4911          {register object V448;          {register object V456;
4912          base[3]= VV[222];          base[3]= VV[226];
4913          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4914          (void) (*Lnk327)();          (void) (*Lnk334)();
4915          vs_top=sup;          vs_top=sup;
4916          V448= vs_base[0];          V456= vs_base[0];
4917          base[3]= (V442);          base[3]= (V450);
4918          base[4]= Cnil;          base[4]= Cnil;
4919          base[5]= (V444);          base[5]= (V452);
4920          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4921          (void) (*Lnk380)();          (void) (*Lnk392)();
4922          vs_top=sup;          vs_top=sup;
4923          base[3]= (V448);          base[3]= (V456);
4924          base[4]= (V445);          base[4]= (V453);
4925          base[5]= VV[5];          base[5]= VV[5];
4926          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4927          (void) (*Lnk359)();          (void) (*Lnk371)();
4928          vs_top=sup;          vs_top=sup;
4929          {object V449;          {object V457;
4930          object V450;          object V458;
4931          base[3]= (V448);          base[3]= (V456);
4932          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4933          (void) (*Lnk381)();          (void) (*Lnk394)();
4934          if(vs_base>=vs_top){vs_top=sup;goto T1675;}          if(vs_base>=vs_top){vs_top=sup;goto T1735;}
4935          V449= vs_base[0];          V457= vs_base[0];
4936          vs_base++;          vs_base++;
4937          if(vs_base>=vs_top){vs_top=sup;goto T1676;}          if(vs_base>=vs_top){vs_top=sup;goto T1736;}
4938          V450= vs_base[0];          V458= vs_base[0];
4939          vs_top=sup;          vs_top=sup;
4940          goto T1677;          goto T1737;
4941          goto T1675;          goto T1735;
4942  T1675:;  T1735:;
4943          V449= Cnil;          V457= Cnil;
4944          goto T1676;          goto T1736;
4945  T1676:;  T1736:;
4946          V450= Cnil;          V458= Cnil;
4947          goto T1677;          goto T1737;
4948  T1677:;  T1737:;
4949          {register object V451;          {register object V459;
4950          object V452;          object V460;
4951          object V453;          object V461;
4952          object V454;          object V462;
4953          V451= list(2,VV[223],(V448));          V459= list(2,VV[227],(V456));
4954          V452= (V451);          V460= (V459);
4955          V453= list(2,(V442),list(2,VV[65],(V448)));          V461= list(2,(V450),list(2,VV[65],(V456)));
4956          V454= list(2,(V448),(V449));          V462= list(2,(V456),(V457));
4957          if(((V446))==Cnil){          if(((V454))==Cnil){
4958          goto T1682;}          goto T1742;}
4959          if(!(type_of((V447))==t_cons||((V447))==Cnil)){          if(!(type_of((V455))==t_cons||((V455))==Cnil)){
4960          goto T1682;}          goto T1742;}
4961          V451= (((V447))==Cnil?Ct:Cnil);          V459= (((V455))==Cnil?Ct:Cnil);
4962          goto T1682;          goto T1742;
4963  T1682:;  T1742:;
4964          if(((((V451))==((V452))?Ct:Cnil))==Cnil){          if(((((V459))==((V460))?Ct:Cnil))==Cnil){
4965          goto T1689;}          goto T1749;}
4966          V455= Cnil;          V463= Cnil;
4967          goto T1688;          goto T1748;
4968          goto T1689;          goto T1749;
4969  T1689:;  T1749:;
4970          V455= list(4,(V451),(V453),Cnil,(V454));          V463= list(4,(V459),(V461),Cnil,(V462));
4971          goto T1688;          goto T1748;
4972  T1688:;  T1748:;
4973          base[6]= listA(5,(V452),(V453),Cnil,(V454),V455);          base[6]= listA(5,(V460),(V461),Cnil,(V462),V463);
4974          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
4975          return;}}}}          return;}}}}
4976          }          }
4977  }  }
4978  /*      function definition for MAKE-LOOP-PATH  */  /*      function definition for MAKE-LOOP-PATH  */
4979    
4980  static void L91()  static void L97()
4981  {register object *base=vs_base;  {register object *base=vs_base;
4982          register object *sup=base+VM79; VC79          register object *sup=base+VM85; VC85
4983          vs_reserve(VM79);          vs_check;
4984          {object V456;          {object V464;
4985          object V457;          object V465;
4986          object V458;          object V466;
4987          object V459;          object V467;
4988          object V460;          object V468;
4989          parse_key(vs_base,FALSE,FALSE,5,VV[226],VV[229],VV[230],VV[227],VV[228]);          parse_key(vs_base,FALSE,FALSE,5,VV[230],VV[233],VV[234],VV[231],VV[232]);
4990          vs_top=sup;          vs_top=sup;
4991          V456=(base[0]);          V464=(base[0]);
4992          V457=(base[1]);          V465=(base[1]);
4993          V458=(base[2]);          V466=(base[2]);
4994          V459=(base[3]);          V467=(base[3]);
4995          V460=(base[4]);          V468=(base[4]);
4996          base[10]= VV[224];          base[10]= VV[228];
4997          base[11]= (V456);          base[11]= (V464);
4998          base[12]= (V457);          base[12]= (V465);
4999          base[13]= (V458);          base[13]= (V466);
5000          base[14]= (V459);          base[14]= (V467);
5001          base[15]= (V460);          base[15]= (V468);
5002          vs_top=(vs_base=base+10)+6;          vs_top=(vs_base=base+10)+6;
5003          siLmake_structure();          siLmake_structure();
5004          return;          return;
# Line 4893  static void L91() Line 5006  static void L91()
5006  }  }
5007  /*      function definition for ADD-LOOP-PATH   */  /*      function definition for ADD-LOOP-PATH   */
5008    
5009  static void L92()  static void L98()
5010  {register object *base=vs_base;  {register object *base=vs_base;
5011          register object *sup=base+VM80; VC80          register object *sup=base+VM86; VC86
5012          vs_reserve(VM80);          vs_check;
5013          bds_check;          bds_check;
5014          {object V461;          {object V469;
5015          object V462;          object V470;
5016          register object V463;          register object V471;
5017          object V464;          object V472;
5018          object V465;          object V473;
5019          object V466;          object V474;
5020          if(vs_top-vs_base<3) too_few_arguments();          parse_key(vs_base+3,FALSE,FALSE,3,VV[233],VV[234],VV[232]);
5021          parse_key(vs_base+3,FALSE,FALSE,3,VV[229],VV[230],VV[228]);          V469=(base[0]);
5022          V461=(base[0]);          V470=(base[1]);
5023          V462=(base[1]);          V471=(base[2]);
5024          V463=(base[2]);          vs_top=sup;
5025          vs_top=sup;          V472=(base[3]);
5026          V464=(base[3]);          V473=(base[4]);
5027          V465=(base[4]);          V474=(base[5]);
5028          V466=(base[5]);          if(type_of((V469))==t_cons||((V469))==Cnil){
5029          if(type_of((V461))==t_cons||((V461))==Cnil){          goto T1757;}
5030          goto T1697;}          V469= make_cons((V469),Cnil);
5031          V461= make_cons((V461),Cnil);          goto T1757;
5032          goto T1697;  T1757:;
 T1697:;  
5033          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
5034          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
5035          goto T1703;          goto T1763;
5036  T1703:;  T1763:;
5037          base[11]= (V463);          base[11]= (V471);
5038          base[12]= VV[39];          base[12]= VV[39];
5039          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
5040          (void) (*Lnk382)();          (void) (*Lnk395)();
5041          vs_top=sup;          vs_top=sup;
5042          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5043          goto T1704;}          goto T1764;}
5044          bds_unwind1;          bds_unwind1;
5045          bds_unwind1;          bds_unwind1;
5046          goto T1701;          goto T1761;
5047          goto T1704;          goto T1764;
5048  T1704:;  T1764:;
5049          base[11]= VV[47];          base[11]= VV[47];
5050          base[12]= VV[48];          base[12]= VV[48];
5051          base[13]= VV[225];          base[13]= VV[229];
5052          base[14]= (V463);          base[14]= (V471);
5053          base[15]= VV[39];          base[15]= VV[39];
5054          vs_top=(vs_base=base+11)+5;          vs_top=(vs_base=base+11)+5;
5055          Lcerror();          Lcerror();
5056          vs_top=sup;          vs_top=sup;
5057          base[11]= symbol_value(VV[50]);          base[11]= (VV[50]->s.s_dbind);
5058          base[12]= VV[51];          base[12]= VV[51];
5059          base[13]= VV[225];          base[13]= VV[229];
5060          vs_top=(vs_base=base+11)+3;          vs_top=(vs_base=base+11)+3;
5061          Lformat();          Lformat();
5062          vs_top=sup;          vs_top=sup;
5063          base[11]= symbol_value(VV[50]);          base[11]= (VV[50]->s.s_dbind);
5064          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
5065          Lfinish_output();          Lfinish_output();
5066          vs_top=sup;          vs_top=sup;
5067          vs_base=vs_top;          vs_base=vs_top;
5068          Lread();          Lread();
5069          vs_top=sup;          vs_top=sup;
5070          V463= vs_base[0];          V471= vs_base[0];
5071          base[11]= symbol_value(VV[50]);          base[11]= (VV[50]->s.s_dbind);
5072          base[12]= VV[52];          base[12]= VV[52];
5073          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
5074          Lformat();          Lformat();
5075          vs_top=sup;          vs_top=sup;
5076          goto T1703;          goto T1763;
5077          goto T1701;          goto T1761;
5078  T1701:;  T1761:;
5079          {object V467;          {object V475;
5080          object V468;          object V476;
5081          V467= structure_ref((V463),VV[39],3);          V475= STREF(object,(V471),12);
5082          base[9]= VV[226];          base[9]= VV[230];
5083          {object V469;          {object V477;
5084          object V470= (V461);          object V478= (V469);
5085          if(endp(V470)){          if(V478==Cnil){
5086          base[10]= Cnil;          base[10]= Cnil;
5087          goto T1732;}          goto T1792;}
5088          base[11]=V469=MMcons(Cnil,Cnil);          base[11]=V477=MMcons(Cnil,Cnil);
5089          goto T1733;          goto T1793;
5090  T1733:;  T1793:;
5091          (V469->c.c_car)= symbol_name((V470->c.c_car));          (V477->c.c_car)= symbol_name((V478->c.c_car));
5092          V470=MMcdr(V470);          if((V478=MMcdr(V478))==Cnil){
         if(endp(V470)){  
5093          base[10]= base[11];          base[10]= base[11];
5094          goto T1732;}          goto T1792;}
5095          V469=MMcdr(V469)=MMcons(Cnil,Cnil);          V477=MMcdr(V477)=MMcons(Cnil,Cnil);
5096          goto T1733;}          goto T1793;}
5097          goto T1732;          goto T1792;
5098  T1732:;  T1792:;
5099          base[11]= VV[227];          base[11]= VV[231];
5100          base[12]= (V462);          base[12]= (V470);
5101          base[13]= VV[228];          base[13]= VV[232];
5102          base[14]= (V466);          base[14]= (V474);
5103          base[15]= VV[229];          base[15]= VV[233];
5104          {object V471;          {object V479;
5105          object V472= (V464);          object V480= (V472);
5106          if(endp(V472)){          if(V480==Cnil){
5107          base[16]= Cnil;          base[16]= Cnil;
5108          goto T1740;}          goto T1800;}
5109          base[17]=V471=MMcons(Cnil,Cnil);          base[17]=V479=MMcons(Cnil,Cnil);
5110          goto T1741;          goto T1801;
5111  T1741:;  T1801:;
5112          if(!(type_of((V472->c.c_car))==t_cons||((V472->c.c_car))==Cnil)){          if(!(type_of((V480->c.c_car))==t_cons||((V480->c.c_car))==Cnil)){
5113          goto T1744;}          goto T1804;}
5114          (V471->c.c_car)= (V472->c.c_car);          (V479->c.c_car)= (V480->c.c_car);
5115          goto T1742;          goto T1802;
5116          goto T1744;          goto T1804;
5117  T1744:;  T1804:;
5118          (V471->c.c_car)= make_cons((V472->c.c_car),Cnil);          (V479->c.c_car)= make_cons((V480->c.c_car),Cnil);
5119          goto T1742;          goto T1802;
5120  T1742:;  T1802:;
5121          V472=MMcdr(V472);          if((V480=MMcdr(V480))==Cnil){
         if(endp(V472)){  
5122          base[16]= base[17];          base[16]= base[17];
5123          goto T1740;}          goto T1800;}
5124          V471=MMcdr(V471)=MMcons(Cnil,Cnil);          V479=MMcdr(V479)=MMcons(Cnil,Cnil);
5125          goto T1741;}          goto T1801;}
5126          goto T1740;          goto T1800;
5127  T1740:;  T1800:;
5128          base[17]= VV[230];          base[17]= VV[234];
5129          base[18]= (V465);          base[18]= (V473);
5130          vs_top=(vs_base=base+9)+10;          vs_top=(vs_base=base+9)+10;
5131          (void) (*Lnk383)();          (void) (*Lnk396)();
5132          vs_top=sup;          vs_top=sup;
5133          V468= vs_base[0];          V476= vs_base[0];
5134          {register object V474;          {register object V482;
5135          register object V475;          register object V483;
5136          V474= (V461);          V482= (V469);
5137          V475= car((V474));          V483= CMPcar((V482));
5138          goto T1752;          goto T1812;
5139  T1752:;  T1812:;
5140          if(!(endp_prop((V474)))){          if(!(((V482))==Cnil)){
5141          goto T1753;}          goto T1813;}
5142          goto T1748;          goto T1808;
5143          goto T1753;          goto T1813;
5144  T1753:;  T1813:;
5145          {register object V476;          {register object V484;
5146          register object V477;          register object V485;
5147          register object V478;          register object V486;
5148          V476= symbol_name((V475));          V484= symbol_name((V483));
5149          V477= (V467);          V485= (V475);
5150          V478= (V468);          V486= (V476);
5151          base[11]= (V476);          base[11]= (V484);
5152          base[12]= (V477);          base[12]= (V485);
5153          base[13]= (V478);          base[13]= (V486);
5154          vs_top=(vs_base=base+11)+3;          vs_top=(vs_base=base+11)+3;
5155          siLhash_set();          siLhash_set();
5156          vs_top=sup;}          vs_top=sup;}
5157          V474= cdr((V474));          V482= CMPcdr((V482));
5158          V475= car((V474));          V483= CMPcar((V482));
5159          goto T1752;}          goto T1812;}
5160          goto T1748;          goto T1808;
5161  T1748:;  T1808:;
5162          base[9]= (V468);          base[9]= (V476);
5163          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
5164          return;}          return;}
5165          }          }
5166  }  }
5167  /*      function definition for LOOP-FOR-BEING  */  /*      function definition for LOOP-FOR-BEING  */
5168    
5169  static void L93()  static void L99()
5170  {register object *base=vs_base;  {register object *base=vs_base;
5171          register object *sup=base+VM81; VC81          register object *sup=base+VM87; VC87
5172          vs_reserve(VM81);          vs_check;
5173          {object V479;          {object V487;
5174          object V480;          object V488;
5175          object V481;          object V489;
5176          check_arg(3);          V487=(base[0]);
5177          V479=(base[0]);          V488=(base[1]);
5178          V480=(base[1]);          V489=(base[2]);
         V481=(base[2]);  
5179          vs_top=sup;          vs_top=sup;
5180          goto TTL;          goto TTL;
5181  TTL:;  TTL:;
5182          {register object V482;          {register object V490;
5183          object V483;          object V491;
5184          object V484;          object V492;
5185          object V485;          object V493;
5186          object V486;          object V494;
5187          V482= Cnil;          V490= Cnil;
5188          V483= Cnil;          V491= Cnil;
5189          V484= Cnil;          V492= Cnil;
5190          V485= Cnil;          V493= Cnil;
5191          V486= Cnil;          V494= Cnil;
5192          base[3]= (V480);          base[3]= (V488);
5193          base[4]= VV[231];          base[4]= VV[235];
5194          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5195          (void) (*Lnk353)();          (void) (*Lnk362)();
5196          vs_top=sup;          vs_top=sup;
5197          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5198          goto T1771;}          goto T1831;}
5199          vs_base=vs_top;          vs_base=vs_top;
5200          (void) (*Lnk350)();          (void) (*Lnk359)();
5201          vs_top=sup;          vs_top=sup;
5202          V482= vs_base[0];          V490= vs_base[0];
5203          goto T1769;          goto T1829;
5204          goto T1771;          goto T1831;
5205  T1771:;  T1831:;
5206          base[3]= car(symbol_value(VV[89]));          base[3]= CMPcar((VV[88]->s.s_dbind));
5207          base[4]= VV[155];          base[4]= VV[158];
5208          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5209          (void) (*Lnk357)();          (void) (*Lnk369)();
5210          vs_top=sup;          vs_top=sup;
5211          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5212          goto T1777;}          goto T1837;}
5213          vs_base=vs_top;          vs_base=vs_top;
5214          (void) (*Lnk350)();          (void) (*Lnk359)();
5215          vs_top=sup;          vs_top=sup;
5216          V484= Ct;          V492= Ct;
5217          base[3]= car(symbol_value(VV[89]));          base[3]= CMPcar((VV[88]->s.s_dbind));
5218          base[4]= VV[232];          base[4]= VV[236];
5219          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5220          (void) (*Lnk353)();          (void) (*Lnk362)();
5221          vs_top=sup;          vs_top=sup;
5222          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5223          goto T1784;}          goto T1844;}
5224          base[3]= VV[233];          base[3]= VV[237];
5225          base[4]= car(symbol_value(VV[89]));          base[4]= CMPcar((VV[88]->s.s_dbind));
5226          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5227          (void) (*Lnk347)();          (void) (*Lnk354)();
5228          vs_top=sup;          vs_top=sup;
5229          goto T1784;          goto T1844;
5230  T1784:;  T1844:;
5231          vs_base=vs_top;          vs_base=vs_top;
5232          (void) (*Lnk350)();          (void) (*Lnk359)();
5233          vs_top=sup;          vs_top=sup;
5234          vs_base=vs_top;          vs_base=vs_top;
5235          (void) (*Lnk350)();          (void) (*Lnk359)();
5236          vs_top=sup;          vs_top=sup;
5237          V482= vs_base[0];          V490= vs_base[0];
5238          V487= list(2,VV[234],(V480));          V495= list(2,VV[238],(V488));
5239          V486= make_cons(/* INLINE-ARGS */V487,Cnil);          V494= make_cons(/* INLINE-ARGS */V495,Cnil);
5240          goto T1769;          goto T1829;
5241          goto T1777;          goto T1837;
5242  T1777:;  T1837:;
5243          base[3]= VV[235];          base[3]= VV[239];
5244          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5245          (void) (*Lnk347)();          (void) (*Lnk354)();
5246          vs_top=sup;          vs_top=sup;
5247          goto T1769;          goto T1829;
5248  T1769:;  T1829:;
5249          if(type_of((V482))==t_symbol){          if(type_of((V490))==t_symbol){
5250          goto T1798;}          goto T1858;}
5251          base[3]= VV[236];          base[3]= VV[240];
5252          base[4]= (V482);          base[4]= (V490);
5253          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5254          (void) (*Lnk347)();          (void) (*Lnk354)();
5255          vs_top=sup;          vs_top=sup;
5256          goto T1796;          goto T1856;
5257          goto T1798;          goto T1858;
5258  T1798:;  T1858:;
5259          base[3]= (V482);          base[3]= (V490);
5260          base[4]= structure_ref(symbol_value(VV[97]),VV[39],3);          base[4]= STREF(object,(VV[99]->s.s_dbind),12);
5261          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5262          (void) (*Lnk351)();          (void) (*Lnk360)();
5263          vs_top=sup;          vs_top=sup;
5264          V483= vs_base[0];          V491= vs_base[0];
5265          if(((V483))!=Cnil){          if(((V491))!=Cnil){
5266          goto T1803;}          goto T1863;}
5267          base[3]= VV[237];          base[3]= VV[241];
5268          base[4]= (V482);          base[4]= (V490);
5269          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5270          (void) (*Lnk347)();          (void) (*Lnk354)();
5271          vs_top=sup;          vs_top=sup;
5272          goto T1796;          goto T1856;
5273          goto T1803;          goto T1863;
5274  T1803:;  T1863:;
5275          if(((V484))==Cnil){          if(((V492))==Cnil){
5276          goto T1796;}          goto T1856;}
5277          if((structure_ref((V483),VV[224],2))!=Cnil){          if((STREF(object,(V491),8))!=Cnil){
5278          goto T1796;}          goto T1856;}
5279          base[3]= VV[238];          base[3]= VV[242];
5280          base[4]= (V482);          base[4]= (V490);
5281          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5282          (void) (*Lnk347)();          (void) (*Lnk354)();
5283          vs_top=sup;          vs_top=sup;
5284          goto T1796;          goto T1856;
5285  T1796:;  T1856:;
5286          {object V488;          {object V496;
5287          object V489;          object V497;
5288          object V490;          object V498;
5289          V488= structure_ref((V483),VV[224],3);          V496= STREF(object,(V491),12);
5290          base[3]= structure_ref((V483),VV[224],1);          base[3]= STREF(object,(V491),4);
5291          base[4]= Ct;          base[4]= Ct;
5292          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5293          (void) (*Lnk384)();          (void) (*Lnk397)();
5294          vs_top=sup;          vs_top=sup;
5295          V491= vs_base[0];          V499= vs_base[0];
5296          V489= nconc((V486),V491);          V497= nconc((V494),V499);
5297          V490= structure_ref((V483),VV[224],4);          V498= STREF(object,(V491),16);
5298          if(!(type_of((V488))==t_symbol)){          if(!(type_of((V496))==t_symbol)){
5299          goto T1823;}          goto T1883;}
5300          base[3]= (V488);          base[3]= (V496);
5301          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5302          Lsymbol_function();          Lsymbol_function();
5303          vs_top=sup;          vs_top=sup;
5304          V488= vs_base[0];          V496= vs_base[0];
5305          goto T1823;          goto T1883;
5306  T1823:;  T1883:;
5307          if(((V484))==Cnil){          if(((V492))==Cnil){
5308          goto T1830;}          goto T1890;}
5309          base[3]= (V488);          base[3]= (V496);
5310          base[4]= (V479);          base[4]= (V487);
5311          base[5]= (V481);          base[5]= (V489);
5312          base[6]= (V489);          base[6]= (V497);
5313          base[7]= VV[239];          base[7]= VV[243];
5314          base[8]= Ct;          base[8]= Ct;
5315          {object V492;          {object V500;
5316          V492= (V490);          V500= (V498);
5317           vs_top=base+9;           vs_top=base+9;
5318           while(!endp(V492))           while(V500!=Cnil)
5319           {vs_push(car(V492));V492=cdr(V492);}           {vs_push((V500)->c.c_car);V500=(V500)->c.c_cdr;}
5320          vs_base=base+4;}          vs_base=base+4;}
5321          super_funcall_no_event(base[3]);          super_funcall_no_event(base[3]);
5322          vs_top=sup;          vs_top=sup;
5323          V485= vs_base[0];          V493= vs_base[0];
5324          goto T1828;          goto T1888;
5325          goto T1830;          goto T1890;
5326  T1830:;  T1890:;
5327          base[3]= (V488);          base[3]= (V496);
5328          base[4]= (V479);          base[4]= (V487);
5329          base[5]= (V481);          base[5]= (V489);
5330          base[6]= (V489);          base[6]= (V497);
5331          {object V493;          {object V501;
5332          V493= (V490);          V501= (V498);
5333           vs_top=base+7;           vs_top=base+7;
5334           while(!endp(V493))           while(V501!=Cnil)
5335           {vs_push(car(V493));V493=cdr(V493);}           {vs_push((V501)->c.c_car);V501=(V501)->c.c_cdr;}
5336          vs_base=base+4;}          vs_base=base+4;}
5337          super_funcall_no_event(base[3]);          super_funcall_no_event(base[3]);
5338          vs_top=sup;          vs_top=sup;
5339          V485= vs_base[0];          V493= vs_base[0];
5340          goto T1828;          goto T1888;
5341  T1828:;}  T1888:;}
5342          if((symbol_value(VV[102]))==Cnil){          if(((VV[104]->s.s_dbind))==Cnil){
5343          goto T1844;}          goto T1904;}
5344          base[3]= VV[240];          base[3]= VV[244];
5345          base[4]= symbol_value(VV[102]);          base[4]= (VV[104]->s.s_dbind);
5346          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5347          (void) (*Lnk347)();          (void) (*Lnk354)();
5348          vs_top=sup;          vs_top=sup;
5349          goto T1844;          goto T1904;
5350  T1844:;  T1904:;
5351          V495 = make_fixnum((long)length((V485)));          V503 = CMPmake_fixnum((long)length((V493)));
5352          {register object x= V495,V494= VV[241];          {register object x= V503,V502= VV[245];
5353          while(!endp(V494))          while(V502!=Cnil)
5354          if(eql(x,V494->c.c_car)){          if(eql(x,V502->c.c_car)){
5355          goto T1849;          goto T1909;
5356          }else V494=V494->c.c_cdr;}          }else V502=V502->c.c_cdr;}
5357          base[3]= VV[242];          base[3]= VV[246];
5358          base[4]= (V482);          base[4]= (V490);
5359          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5360          (void) (*Lnk347)();          (void) (*Lnk354)();
5361          vs_top=sup;          vs_top=sup;
5362          goto T1849;          goto T1909;
5363  T1849:;  T1909:;
5364          {register object V496;          {register object V504;
5365          register object V497;          register object V505;
5366          V496= car((V485));          V504= CMPcar((V493));
5367          V497= Cnil;          V505= Cnil;
5368          goto T1857;          goto T1917;
5369  T1857:;  T1917:;
5370          if(((V496))!=Cnil){          if(((V504))!=Cnil){
5371          goto T1858;}          goto T1918;}
5372          goto T1854;          goto T1914;
5373          goto T1858;          goto T1918;
5374  T1858:;  T1918:;
5375          V497= car((V496));          V505= CMPcar((V504));
5376          if(!(type_of((V497))!=t_cons)){          if(!(type_of((V505))!=t_cons)){
5377          goto T1864;}          goto T1924;}
5378          base[3]= (V497);          base[3]= (V505);
5379          base[4]= Cnil;          base[4]= Cnil;
5380          base[5]= Cnil;          base[5]= Cnil;
5381          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
5382          (void) (*Lnk380)();          (void) (*Lnk392)();
5383          vs_top=sup;          vs_top=sup;
5384          goto T1862;          goto T1922;
5385          goto T1864;          goto T1924;
5386  T1864:;  T1924:;
5387          base[3]= car((V497));          base[3]= CMPcar((V505));
5388          base[4]= cadr((V497));          base[4]= CMPcadr((V505));
5389          base[5]= caddr((V497));          base[5]= CMPcaddr((V505));
5390          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
5391          (void) (*Lnk380)();          (void) (*Lnk392)();
5392          vs_top=sup;          vs_top=sup;
5393          goto T1862;          goto T1922;
5394  T1862:;  T1922:;
5395          V496= cdr((V496));          V504= CMPcdr((V504));
5396          goto T1857;}          goto T1917;}
5397          goto T1854;          goto T1914;
5398  T1854:;  T1914:;
5399          V498= reverse(cadr((V485)));          V506= reverse(CMPcadr((V493)));
5400          setq(VV[106],nconc(/* INLINE-ARGS */V498,symbol_value(VV[106])));          (VV[108]->s.s_dbind)= nconc(/* INLINE-ARGS */V506,(VV[108]->s.s_dbind));
5401          base[3]= cddr((V485));          base[3]= CMPcddr((V493));
5402          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5403          return;}          return;}
5404          }          }
5405  }  }
5406  /*      function definition for NAMED-VARIABLE  */  /*      function definition for NAMED-VARIABLE  */
5407    
5408  static void L94()  static void L100()
5409  {register object *base=vs_base;  {register object *base=vs_base;
5410          register object *sup=base+VM82; VC82          register object *sup=base+VM88; VC88
5411          vs_reserve(VM82);          vs_check;
5412          {object V499;          {object V507;
5413          check_arg(1);          V507=(base[0]);
         V499=(base[0]);  
5414          vs_top=sup;          vs_top=sup;
5415          goto TTL;          goto TTL;
5416  TTL:;  TTL:;
5417          {object V500;          {object V508;
5418          base[1]= (V499);          base[1]= (V507);
5419          base[2]= symbol_value(VV[102]);          base[2]= (VV[104]->s.s_dbind);
5420          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5421          (void) (*Lnk385)();          (void) (*Lnk398)();
5422          vs_top=sup;          vs_top=sup;
5423          V500= vs_base[0];          V508= vs_base[0];
5424          if(((V500))!=Cnil){          if(((V508))!=Cnil){
5425          goto T1882;}          goto T1942;}
5426          vs_base=vs_top;          vs_base=vs_top;
5427          (void) (*Lnk327)();          (void) (*Lnk334)();
5428          vs_top=sup;          vs_top=sup;
5429          base[1]= vs_base[0];          base[1]= vs_base[0];
5430          base[2]= Cnil;          base[2]= Cnil;
5431          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5432          return;          return;
5433          goto T1882;          goto T1942;
5434  T1882:;  T1942:;
5435          setq(VV[102],(VFUN_NARGS=2,(*(LnkLI386))((V500),symbol_value(VV[102]))));          base[1]= (V508);
5436          base[1]= cdr((V500));          base[2]= (VV[104]->s.s_dbind);
5437            vs_top=(vs_base=base+1)+2;
5438            (void) (*Lnk399)();
5439            vs_top=sup;
5440            (VV[104]->s.s_dbind)= vs_base[0];
5441            base[1]= CMPcdr((V508));
5442          base[2]= Ct;          base[2]= Ct;
5443          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5444          return;}          return;}
# Line 5333  T1882:; Line 5446  T1882:;
5446  }  }
5447  /*      function definition for LOOP-COLLECT-PREPOSITIONAL-PHRASES      */  /*      function definition for LOOP-COLLECT-PREPOSITIONAL-PHRASES      */
5448    
5449  static void L95()  static void L101()
5450  {register object *base=vs_base;  {register object *base=vs_base;
5451          register object *sup=base+VM83; VC83          register object *sup=base+VM89; VC89
5452          vs_reserve(VM83);          vs_check;
5453          {object V501;          {object V509;
5454          object V502;          object V510;
5455          object V503;          object V511;
5456          if(vs_top-vs_base<1) too_few_arguments();          V509=(base[0]);
         if(vs_top-vs_base>3) too_many_arguments();  
         V501=(base[0]);  
5457          vs_base=vs_base+1;          vs_base=vs_base+1;
5458          if(vs_base>=vs_top){vs_top=sup;goto T1890;}          if(vs_base>=vs_top){vs_top=sup;goto T1952;}
5459          V502=(base[1]);          V510=(base[1]);
5460          vs_base++;          vs_base++;
5461          if(vs_base>=vs_top){vs_top=sup;goto T1891;}          if(vs_base>=vs_top){vs_top=sup;goto T1953;}
5462          V503=(base[2]);          V511=(base[2]);
5463          vs_top=sup;          vs_top=sup;
5464          goto T1892;          goto T1954;
5465          goto T1890;          goto T1952;
5466  T1890:;  T1952:;
5467          V502= Cnil;          V510= Cnil;
5468          goto T1891;          goto T1953;
5469  T1891:;  T1953:;
5470          V503= Cnil;          V511= Cnil;
5471          goto T1892;          goto T1954;
5472  T1892:;  T1954:;
5473          base[3]=make_cclosure_new(LC96,Cnil,Cnil,Cdata);          base[3]=make_cclosure_new(LC102,Cnil,Cnil,Cdata);
5474          base[3]=MMcons(base[3],Cnil);          base[3]=MMcons(base[3],Cnil);
5475          {object V504;          {object V512;
5476          object V505;          object V513;
5477          register object V506;          register object V514;
5478          register object V507;          register object V515;
5479          object V508;          object V516;
5480          object V509;          object V517;
5481          {object V510;          {object V518;
5482          object V511= (V503);          object V519= (V511);
5483          if(endp(V511)){          if(V519==Cnil){
5484          V508= Cnil;          V516= Cnil;
5485          goto T1895;}          goto T1957;}
5486          base[4]=V510=MMcons(Cnil,Cnil);          base[4]=V518=MMcons(Cnil,Cnil);
5487          goto T1896;          goto T1958;
5488  T1896:;  T1958:;
5489          V513= car((V511->c.c_car));          base[6]= CMPcar((V519->c.c_car));
5490          V514= (base[3]->c.c_car);          base[7]= (V509);
5491          base[5]= (VFUN_NARGS=4,(*(LnkLI368))(/* INLINE-ARGS */V513,(V501),VV[20],V514));          base[8]= VV[20];
5492            base[9]= (base[3]->c.c_car);
5493            vs_top=(vs_base=base+6)+4;
5494            (void) (*Lnk380)();
5495            vs_top=sup;
5496            base[5]= vs_base[0];
5497          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
5498          Lcopy_list();          Lcopy_list();
5499          vs_top=sup;          vs_top=sup;
5500          (V510->c.c_cdr)= vs_base[0];          (V518->c.c_cdr)= vs_base[0];
5501          {object cdr_V510=MMcdr(V510);while(!endp(cdr_V510)) {cdr_V510=MMcdr(cdr_V510);V510=MMcdr(V510);}}          while(MMcdr(V518)!=Cnil)V518=MMcdr(V518);
5502          V511=MMcdr(V511);          if((V519=MMcdr(V519))==Cnil){
         if(endp(V511)){  
5503          base[4]=base[4]->c.c_cdr;          base[4]=base[4]->c.c_cdr;
5504          V508= base[4];          V516= base[4];
5505          goto T1895;}          goto T1957;}
5506          goto T1896;}          goto T1958;}
5507          goto T1895;          goto T1957;
5508  T1895:;  T1957:;
5509          {object V515;          {object V521;
5510          object V516= (V503);          object V522= (V511);
5511          if(endp(V516)){          if(V522==Cnil){
5512          V509= Cnil;          V517= Cnil;
5513          goto T1900;}          goto T1965;}
5514          base[4]=V515=MMcons(Cnil,Cnil);          base[4]=V521=MMcons(Cnil,Cnil);
5515          goto T1901;          goto T1966;
5516  T1901:;  T1966:;
5517          (V515->c.c_car)= car((V516->c.c_car));          (V521->c.c_car)= CMPcar((V522->c.c_car));
5518          V516=MMcdr(V516);          if((V522=MMcdr(V522))==Cnil){
5519          if(endp(V516)){          V517= base[4];
5520          V509= base[4];          goto T1965;}
5521          goto T1900;}          V521=MMcdr(V521)=MMcons(Cnil,Cnil);
5522          V515=MMcdr(V515)=MMcons(Cnil,Cnil);          goto T1966;}
5523          goto T1901;}          goto T1965;
5524          goto T1900;  T1965:;
5525  T1900:;          V512= Cnil;
5526          V504= Cnil;          V513= (V511);
5527          V505= (V503);          V514= Cnil;
5528          V506= Cnil;          V515= Cnil;
5529          V507= Cnil;          goto T1969;
5530          goto T1904;  T1969:;
5531  T1904:;          if(((VV[88]->s.s_dbind))!=Cnil){
5532          if((symbol_value(VV[89]))!=Cnil){          goto T1970;}
5533          goto T1905;}          base[4]= nreverse((V513));
         base[4]= nreverse((V505));  
5534          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5535          return;          return;
5536          goto T1905;          goto T1970;
5537  T1905:;  T1970:;
5538          V504= car(symbol_value(VV[89]));          V512= CMPcar((VV[88]->s.s_dbind));
5539          {register object V517;          {register object V523;
5540          register object V518;          register object V524;
5541          V517= (V501);          V523= (V509);
5542          V518= car((V517));          V524= CMPcar((V523));
5543          goto T1915;          goto T1980;
5544  T1915:;  T1980:;
5545          if(!(endp_prop((V517)))){          if(!(((V523))==Cnil)){
5546          goto T1916;}          goto T1981;}
5547          goto T1911;          goto T1976;
5548          goto T1916;          goto T1981;
5549  T1916:;  T1981:;
5550          base[5]= (V504);          base[5]= (V512);
5551          base[6]= (V518);          base[6]= (V524);
5552          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
5553          L96(base);          L102(base);
5554          vs_top=sup;          vs_top=sup;
5555          V507= vs_base[0];          V515= vs_base[0];
5556          if(((V507))==Cnil){          if(((V515))==Cnil){
5557          goto T1920;}          goto T1985;}
5558          V506= (V518);          V514= (V524);
5559          goto T1911;          goto T1976;
5560          goto T1920;          goto T1985;
5561  T1920:;  T1985:;
5562          V517= cdr((V517));          V523= CMPcdr((V523));
5563          V518= car((V517));          V524= CMPcar((V523));
5564          goto T1915;}          goto T1980;}
5565          goto T1911;          goto T1976;
5566  T1911:;  T1976:;
5567          if(((V506))==Cnil){          if(((V514))==Cnil){
5568          goto T1934;}          goto T1999;}
5569          {register object x= (V507),V519= (V508);          {register object x= (V515),V525= (V516);
5570          while(!endp(V519))          while(V525!=Cnil)
5571          if(eql(x,V519->c.c_car)){          if(eql(x,V525->c.c_car)){
5572          goto T1938;          goto T2003;
5573          }else V519=V519->c.c_cdr;          }else V525=V525->c.c_cdr;
5574          goto T1936;}          goto T2001;}
5575          goto T1938;          goto T2003;
5576  T1938:;  T2003:;
5577          {register object x= (V507),V520= (V509);          {register object x= (V515),V526= (V517);
5578          while(!endp(V520))          while(V526!=Cnil)
5579          if(eql(x,V520->c.c_car)){          if(eql(x,V526->c.c_car)){
5580          goto T1942;          goto T2007;
5581          }else V520=V520->c.c_cdr;          }else V526=V526->c.c_cdr;
5582          goto T1941;}          goto T2006;}
5583          goto T1942;          goto T2007;
5584  T1942:;  T2007:;
5585          base[4]= VV[243];          base[4]= VV[247];
5586          goto T1939;          goto T2004;
5587          goto T1941;          goto T2006;
5588  T1941:;  T2006:;
5589          base[4]= VV[244];          base[4]= VV[248];
5590          goto T1939;          goto T2004;
5591  T1939:;  T2004:;
5592          base[5]= (V504);          base[5]= (V512);
5593          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5594          (void) (*Lnk347)();          (void) (*Lnk354)();
5595          vs_top=sup;          vs_top=sup;
5596          goto T1936;          goto T2001;
5597  T1936:;  T2001:;
5598          if(!(type_of((V506))==t_cons||((V506))==Cnil)){          if(!(type_of((V514))==t_cons||((V514))==Cnil)){
5599          goto T1947;}          goto T2012;}
5600          V509= append((V506),(V509));          V517= append((V514),(V517));
5601          goto T1945;          goto T2010;
5602          goto T1947;          goto T2012;
5603  T1947:;  T2012:;
5604          V509= make_cons((V506),(V509));          V517= make_cons((V514),(V517));
5605          goto T1945;          goto T2010;
5606  T1945:;  T2010:;
5607          vs_base=vs_top;          vs_base=vs_top;
5608          (void) (*Lnk350)();          (void) (*Lnk359)();
5609          vs_top=sup;          vs_top=sup;
5610          {object V521;          {object V527;
5611          vs_base=vs_top;          vs_base=vs_top;
5612          (void) (*Lnk361)();          (void) (*Lnk363)();
5613          vs_top=sup;          vs_top=sup;
5614          V522= vs_base[0];          V528= vs_base[0];
5615          V521= list(2,(V507),V522);          V527= list(2,(V515),V528);
5616          V505= make_cons((V521),(V505));          V513= make_cons((V527),(V513));
5617          goto T1932;}          goto T1997;}
5618          goto T1934;          goto T1999;
5619  T1934:;  T1999:;
5620          if(((V502))==Cnil){          if(((V510))==Cnil){
5621          goto T1954;}          goto T2019;}
5622          base[4]= (V504);          base[4]= (V512);
5623          base[5]= VV[245];          base[5]= VV[249];
5624          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5625          (void) (*Lnk357)();          (void) (*Lnk369)();
5626          vs_top=sup;          vs_top=sup;
5627          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5628          goto T1954;}          goto T2019;}
5629          vs_base=vs_top;          vs_base=vs_top;
5630          (void) (*Lnk350)();          (void) (*Lnk359)();
5631          vs_top=sup;          vs_top=sup;
5632          {register object V523;          {register object V529;
5633          object V524;          object V530;
5634          vs_base=vs_top;          vs_base=vs_top;
5635          (void) (*Lnk350)();          (void) (*Lnk359)();
         vs_top=sup;  
         V523= vs_base[0];  
         V524= Cnil;  
         goto T1963;  
 T1963:;  
         if(type_of((V523))!=t_cons){  
         goto T1967;}  
         if(type_of(cdr((V523)))!=t_cons){  
         goto T1967;}  
         if((cddr((V523)))!=Cnil){  
         goto T1967;}  
         if(!(type_of(car((V523)))==t_symbol)){  
         goto T1967;}  
         if((cadr((V523)))==Cnil){  
         goto T1966;}  
         if(type_of(cadr((V523)))==t_symbol){  
         goto T1966;}  
         goto T1967;  
 T1967:;  
         base[4]= VV[246];  
         base[5]= (V523);  
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk347)();  
5636          vs_top=sup;          vs_top=sup;
5637          goto T1966;          V529= vs_base[0];
5638  T1966:;          V530= Cnil;
5639          if((cadr((V523)))==Cnil){          goto T2028;
5640          goto T1981;}  T2028:;
5641          base[4]= car((V523));          if((CMPcadr((V529)))==Cnil){
5642          base[5]= symbol_value(VV[102]);          goto T2031;}
5643            base[4]= CMPcar((V529));
5644            base[5]= (VV[104]->s.s_dbind);
5645          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5646          (void) (*Lnk385)();          (void) (*Lnk398)();
5647          vs_top=sup;          vs_top=sup;
5648          V524= vs_base[0];          V530= vs_base[0];
5649          if(((V524))==Cnil){          if(((V530))==Cnil){
5650          goto T1985;}          goto T2035;}
5651          base[4]= VV[247];          base[4]= VV[250];
5652          base[5]= car((V523));          base[5]= CMPcar((V529));
5653          base[6]= cadr((V523));          base[6]= CMPcadr((V529));
5654          base[7]= cadr((V524));          base[7]= CMPcadr((V530));
5655          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
5656          (void) (*Lnk347)();          (void) (*Lnk354)();
5657          vs_top=sup;          vs_top=sup;
5658          goto T1981;          goto T2031;
5659          goto T1985;          goto T2035;
5660  T1985:;  T2035:;
5661          {object V525;          {object V531;
5662          V525= make_cons(car((V523)),cadr((V523)));          V531= make_cons(CMPcar((V529)),CMPcadr((V529)));
5663          setq(VV[102],make_cons((V525),symbol_value(VV[102])));}          (VV[104]->s.s_dbind)= make_cons((V531),(VV[104]->s.s_dbind));}
5664          goto T1981;          goto T2031;
5665  T1981:;  T2031:;
5666          if((symbol_value(VV[89]))==Cnil){          if(((VV[88]->s.s_dbind))==Cnil){
5667          goto T1997;}          goto T2047;}
5668          if(!(type_of(car(symbol_value(VV[89])))==t_symbol)){          if(!(type_of(CMPcar((VV[88]->s.s_dbind)))==t_symbol)){
5669          goto T1996;}          goto T2046;}
5670            goto T2047;
5671    T2047:;
5672          goto T1997;          goto T1997;
5673  T1997:;          goto T2046;
5674          goto T1932;  T2046:;
         goto T1996;  
 T1996:;  
5675          vs_base=vs_top;          vs_base=vs_top;
5676          (void) (*Lnk350)();          (void) (*Lnk359)();
5677          vs_top=sup;          vs_top=sup;
5678          V523= vs_base[0];          V529= vs_base[0];
5679          goto T1963;}          goto T2028;}
5680          goto T1954;          goto T2019;
5681  T1954:;  T2019:;
5682          base[4]= nreverse((V505));          base[4]= nreverse((V513));
5683          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5684          return;          return;
5685          goto T1932;          goto T1997;
5686  T1932:;  T1997:;
5687          V506= Cnil;          V514= Cnil;
5688          V507= Cnil;          V515= Cnil;
5689          goto T1904;}          goto T1969;}
5690          }          }
5691  }  }
5692  /*      function definition for LOOP-SEQUENCER  */  /*      function definition for LOOP-SEQUENCER  */
5693    
5694  static void L97()  static void L103()
5695  {register object *base=vs_base;  {register object *base=vs_base;
5696          register object *sup=base+VM84; VC84          register object *sup=base+VM90; VC90
5697          vs_reserve(VM84);          vs_check;
5698          {object V526;          {object V532;
5699          register object V527;          register object V533;
         object V528;  
         object V529;  
         object V530;  
         object V531;  
         object V532;  
         object V533;  
5700          object V534;          object V534;
5701          object V535;          object V535;
5702          check_arg(10);          object V536;
         V526=(base[0]);  
         V527=(base[1]);  
         V528=(base[2]);  
         V529=(base[3]);  
         V530=(base[4]);  
         V531=(base[5]);  
         V532=(base[6]);  
         V533=(base[7]);  
         V534=(base[8]);  
         V535=(base[9]);  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         {object V536;  
5703          object V537;          object V537;
5704          object V538;          object V538;
5705          object V539;          object V539;
5706          object V540;          object V540;
5707          object V541;          object V541;
5708          object V542;          V532=(base[0]);
5709          register object V543;          V533=(base[1]);
5710          register object V544;          V534=(base[2]);
5711            V535=(base[3]);
5712            V536=(base[4]);
5713            V537=(base[5]);
5714            V538=(base[6]);
5715            V539=(base[7]);
5716            V540=(base[8]);
5717            V541=(base[9]);
5718            vs_top=sup;
5719            goto TTL;
5720    TTL:;
5721            {object V542;
5722            object V543;
5723            object V544;
5724          object V545;          object V545;
5725          object V546;          object V546;
5726          object V547;          object V547;
5727          object V548;          object V548;
5728          object V549;          register object V549;
5729          object V550;{object V552;          register object V550;
5730          base[10]= (V527);          object V551;
5731            object V552;
5732            object V553;
5733            object V554;
5734            object V555;
5735            object V556;{object V558;
5736            base[10]= (V533);
5737          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5738          (void) (*Lnk329)();          (void) (*Lnk336)();
5739          vs_top=sup;          vs_top=sup;
5740          V552= vs_base[0];          V558= vs_base[0];
5741          if(V552==Cnil)goto T2010;          if(V558==Cnil)goto T2060;
5742          V551= V552;          V557= V558;
5743          goto T2009;          goto T2059;
5744          goto T2010;          goto T2060;
5745  T2010:;}  T2060:;}
5746          V551= small_fixnum(0);          V557= small_fixnum(0);
5747          goto T2009;          goto T2059;
5748  T2009:;  T2059:;
5749          V540= one_plus(V551);          V546= one_plus(V557);
         V536= Cnil;  
         V537= Cnil;  
         V538= Cnil;  
         V539= Cnil;  
         V541= Ct;  
5750          V542= Cnil;          V542= Cnil;
5751          V543= Cnil;          V543= Cnil;
5752          V544= Cnil;          V544= Cnil;
5753          V545= Cnil;          V545= Cnil;
5754          V546= Cnil;          V547= Ct;
         V547= Cnil;  
5755          V548= Cnil;          V548= Cnil;
5756          V549= Cnil;          V549= Cnil;
5757          V550= Cnil;          V550= Cnil;
5758          if(((V529))==Cnil){          V551= Cnil;
5759          goto T2013;}          V552= Cnil;
5760          base[10]= (V529);          V553= Cnil;
         base[11]= Cnil;  
         base[12]= (V530);  
         vs_top=(vs_base=base+10)+3;  
         (void) (*Lnk380)();  
         vs_top=sup;  
         goto T2013;  
 T2013:;  
         {register object V553;  
         register object V554;  
         register object V555;  
         object V556;  
         V553= (V535);  
5761          V554= Cnil;          V554= Cnil;
5762          V555= Cnil;          V555= Cnil;
5763          V556= Cnil;          V556= Cnil;
5764          goto T2021;          if(((V535))==Cnil){
5765  T2021:;          goto T2063;}
5766          if(((V553))!=Cnil){          base[10]= (V535);
5767          goto T2022;}          base[11]= Cnil;
5768          goto T2019;          base[12]= (V536);
         goto T2022;  
 T2022:;  
         V554= caar((V553));  
         V555= cadar((V553));  
         {object V557= (V554);  
         if((V557!= VV[387])  
         && (V557!= VV[234]))goto T2031;  
         V537= Ct;  
         base[10]= (V531);  
         base[11]= (V555);  
         base[12]= (V532);  
5769          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5770          (void) (*Lnk359)();          (void) (*Lnk392)();
5771          vs_top=sup;          vs_top=sup;
5772          goto T2030;          goto T2063;
5773          goto T2031;  T2063:;
5774  T2031:;          {register object V559;
5775          if((V557!= VV[388])          register object V560;
5776          && (V557!= VV[248])          register object V561;
5777          && (V557!= VV[250]))goto T2037;          object V562;
5778          V545= Ct;          V559= (V541);
5779          if(!(((V554))==(VV[248]))){          V560= Cnil;
5780          goto T2042;}          V561= Cnil;
5781          V543= VV[249];          V562= Cnil;
5782          goto T2040;          goto T2071;
5783          goto T2042;  T2071:;
5784  T2042:;          if(((V559))!=Cnil){
5785          if(!(((V554))==(VV[250]))){          goto T2072;}
5786          goto T2040;}          goto T2069;
5787          V543= VV[251];          goto T2072;
5788          goto T2040;  T2072:;
5789  T2040:;          V560= CMPcaar((V559));
5790          base[10]= (V555);          V561= CMPcadar((V559));
5791          base[11]= (V527);          {object V563= (V560);
5792            if((V563!= VV[400])
5793            && (V563!= VV[238]))goto T2081;
5794            V543= Ct;
5795            base[10]= (V537);
5796            base[11]= (V561);
5797            base[12]= (V538);
5798            vs_top=(vs_base=base+10)+3;
5799            (void) (*Lnk371)();
5800            vs_top=sup;
5801            goto T2080;
5802            goto T2081;
5803    T2081:;
5804            if((V563!= VV[401])
5805            && (V563!= VV[251])
5806            && (V563!= VV[253]))goto T2087;
5807            V551= Ct;
5808            if(!(((V560))==(VV[251]))){
5809            goto T2092;}
5810            V549= VV[252];
5811            goto T2090;
5812            goto T2092;
5813    T2092:;
5814            if(!(((V560))==(VV[253]))){
5815            goto T2090;}
5816            V549= VV[254];
5817            goto T2090;
5818    T2090:;
5819            base[10]= (V561);
5820            base[11]= (V533);
5821          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5822          (void) (*Lnk379)();          (void) (*Lnk393)();
5823          if(vs_base<vs_top){          if(vs_base<vs_top){
5824          V555= vs_base[0];          V561= vs_base[0];
5825          vs_base++;          vs_base++;
5826          }else{          }else{
5827          V555= Cnil;}          V561= Cnil;}
5828          if(vs_base<vs_top){          if(vs_base<vs_top){
5829          V547= vs_base[0];          V553= vs_base[0];
5830          vs_base++;          vs_base++;
5831          }else{          }else{
5832          V547= Cnil;}          V553= Cnil;}
5833          if(vs_base<vs_top){          if(vs_base<vs_top){
5834          V546= vs_base[0];          V552= vs_base[0];
5835          }else{          }else{
5836          V546= Cnil;}          V552= Cnil;}
5837          vs_top=sup;          vs_top=sup;
5838          base[10]= (V526);          base[10]= (V532);
5839          base[11]= (V555);          base[11]= (V561);
5840          base[12]= (V527);          base[12]= (V533);
5841          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5842          (void) (*Lnk380)();          (void) (*Lnk392)();
5843          vs_top=sup;          vs_top=sup;
5844          goto T2030;          goto T2080;
5845          goto T2037;          goto T2087;
5846  T2037:;  T2087:;
5847          if((V557!= VV[252])          if((V563!= VV[255])
5848          && (V557!= VV[253])          && (V563!= VV[256])
5849          && (V557!= VV[254])          && (V563!= VV[257])
5850          && (V557!= VV[255])          && (V563!= VV[258])
5851          && (V557!= VV[256]))goto T2055;          && (V563!= VV[259]))goto T2105;
5852          base[10]= (V554);          base[10]= (V560);
5853          base[11]= VV[252];          base[11]= VV[255];
5854          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5855          (void) (*Lnk357)();          (void) (*Lnk369)();
5856          vs_top=sup;          vs_top=sup;
5857          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5858          goto T2058;}          goto T2108;}
5859          V543= VV[251];          V549= VV[254];
5860          V544= VV[251];          V550= VV[254];
5861          goto T2056;          goto T2106;
5862          goto T2058;          goto T2108;
5863  T2058:;  T2108:;
5864          base[10]= (V554);          base[10]= (V560);
5865          base[11]= VV[253];          base[11]= VV[256];
5866          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5867          (void) (*Lnk357)();          (void) (*Lnk369)();
5868          vs_top=sup;          vs_top=sup;
5869          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5870          goto T2065;}          goto T2115;}
5871          V544= Ct;          V550= Ct;
5872          goto T2056;          goto T2106;
5873          goto T2065;          goto T2115;
5874  T2065:;  T2115:;
5875          base[10]= (V554);          base[10]= (V560);
5876          base[11]= VV[254];          base[11]= VV[257];
5877          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5878          (void) (*Lnk357)();          (void) (*Lnk369)();
5879          vs_top=sup;          vs_top=sup;
5880          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5881          goto T2071;}          goto T2121;}
5882          V543= VV[249];          V549= VV[252];
5883          V544= VV[249];          V550= VV[252];
5884          goto T2056;          goto T2106;
5885          goto T2071;          goto T2121;
5886  T2071:;  T2121:;
5887          base[10]= (V554);          base[10]= (V560);
5888          base[11]= VV[255];          base[11]= VV[258];
5889          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5890          (void) (*Lnk357)();          (void) (*Lnk369)();
5891          vs_top=sup;          vs_top=sup;
5892          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5893          goto T2078;}          goto T2128;}
5894          V543= VV[249];          V549= VV[252];
5895          goto T2056;          goto T2106;
5896          goto T2078;          goto T2128;
5897  T2078:;  T2128:;
5898          base[10]= (V554);          base[10]= (V560);
5899          base[11]= VV[256];          base[11]= VV[259];
5900          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5901          (void) (*Lnk357)();          (void) (*Lnk369)();
5902          vs_top=sup;          vs_top=sup;
5903          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5904          goto T2056;}          goto T2106;}
5905          V543= VV[251];          V549= VV[254];
5906          goto T2056;          goto T2106;
5907  T2056:;  T2106:;
5908          V548= Ct;          V554= Ct;
5909          base[10]= (V555);          base[10]= (V561);
5910          base[11]= (V527);          base[11]= (V533);
5911          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5912          (void) (*Lnk379)();          (void) (*Lnk393)();
5913          if(vs_base<vs_top){          if(vs_base<vs_top){
5914          V555= vs_base[0];          V561= vs_base[0];
5915          vs_base++;          vs_base++;
5916          }else{          }else{
5917          V555= Cnil;}          V561= Cnil;}
5918          if(vs_base<vs_top){          if(vs_base<vs_top){
5919          V549= vs_base[0];          V555= vs_base[0];
5920          vs_base++;          vs_base++;
5921          }else{          }else{
5922          V549= Cnil;}          V555= Cnil;}
5923          if(vs_base<vs_top){          if(vs_base<vs_top){
5924          V550= vs_base[0];          V556= vs_base[0];
5925          }else{          }else{
5926          V550= Cnil;}          V556= Cnil;}
5927          vs_top=sup;          vs_top=sup;
5928          if(((V549))==Cnil){          if(((V555))==Cnil){
5929          goto T2096;}          goto T2146;}
5930          V536= list(2,VV[217],(V550));          V542= list(2,VV[221],(V556));
5931          goto T2094;          goto T2144;
5932          goto T2096;          goto T2146;
5933  T2096:;  T2146:;
5934          base[11]= VV[257];          base[11]= VV[260];
5935          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
5936          (void) (*Lnk327)();          (void) (*Lnk334)();
5937          vs_top=sup;          vs_top=sup;
5938          base[10]= vs_base[0];          base[10]= vs_base[0];
5939          base[11]= (V555);          base[11]= (V561);
5940          base[12]= (V527);          base[12]= (V533);
5941          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5942          (void) (*Lnk359)();          (void) (*Lnk371)();
5943          vs_top=sup;          vs_top=sup;
5944          V536= vs_base[0];          V542= vs_base[0];
5945          goto T2094;          goto T2144;
5946  T2094:;  T2144:;
5947          goto T2030;          goto T2080;
5948          goto T2055;          goto T2105;
5949  T2055:;  T2105:;
5950          if((V557!= VV[215]))goto T2102;          if((V563!= VV[219]))goto T2152;
5951          base[10]= (V555);          base[10]= (V561);
5952          base[11]= (V527);          base[11]= (V533);
5953          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5954          (void) (*Lnk379)();          (void) (*Lnk393)();
5955          if(vs_base<vs_top){          if(vs_base<vs_top){
5956          V555= vs_base[0];          V561= vs_base[0];
5957          vs_base++;          vs_base++;
5958          }else{          }else{
5959          V555= Cnil;}          V561= Cnil;}
5960          if(vs_base<vs_top){          if(vs_base<vs_top){
5961          V541= vs_base[0];          V547= vs_base[0];
5962          vs_base++;          vs_base++;
5963          }else{          }else{
5964          V541= Cnil;}          V547= Cnil;}
5965          if(vs_base<vs_top){          if(vs_base<vs_top){
5966          V540= vs_base[0];          V546= vs_base[0];
5967          }else{          }else{
5968          V540= Cnil;}          V546= Cnil;}
5969          vs_top=sup;          vs_top=sup;
5970          if(((V541))!=Cnil){          if(((V547))!=Cnil){
5971          goto T2030;}          goto T2080;}
5972          base[11]= VV[258];          base[11]= VV[261];
5973          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
5974          (void) (*Lnk327)();          (void) (*Lnk334)();
5975          vs_top=sup;          vs_top=sup;
5976          V540= vs_base[0];          V546= vs_base[0];
5977          base[10]= (V540);          base[10]= (V546);
5978          base[11]= (V555);          base[11]= (V561);
5979          base[12]= (V527);          base[12]= (V533);
5980          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5981          (void) (*Lnk359)();          (void) (*Lnk371)();
5982          vs_top=sup;          vs_top=sup;
5983          goto T2030;          goto T2080;
5984          goto T2102;          goto T2152;
5985  T2102:;  T2152:;
5986          base[10]= VV[259];          base[10]= VV[262];
5987          base[11]= (V554);          base[11]= (V560);
5988          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5989          (void) (*Lnk347)();          (void) (*Lnk354)();
5990          vs_top=sup;}          vs_top=sup;}
5991          goto T2030;          goto T2080;
5992  T2030:;  T2080:;
5993          if(((V556))==Cnil){          if(((V562))==Cnil){
5994          goto T2116;}          goto T2166;}
5995          if(((V543))==Cnil){          if(((V549))==Cnil){
5996          goto T2116;}          goto T2166;}
5997          if(((V543))==((V556))){          if(((V549))==((V562))){
5998          goto T2116;}          goto T2166;}
5999          base[10]= VV[260];          base[10]= VV[263];
6000          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6001          (void) (*Lnk347)();          (void) (*Lnk354)();
6002          vs_top=sup;          vs_top=sup;
6003          goto T2116;          goto T2166;
6004  T2116:;  T2166:;
6005          V556= (V543);          V562= (V549);
6006          V553= cdr((V553));          V559= CMPcdr((V559));
6007          goto T2021;}          goto T2071;}
6008          goto T2019;          goto T2069;
6009  T2019:;  T2069:;
6010          if(((V531))==Cnil){          if(((V537))==Cnil){
6011          goto T2129;}          goto T2179;}
6012          if(((V537))!=Cnil){          if(((V543))!=Cnil){
6013          goto T2129;}          goto T2179;}
6014          base[10]= VV[261];          base[10]= VV[264];
6015          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6016          (void) (*Lnk347)();          (void) (*Lnk354)();
6017          vs_top=sup;          vs_top=sup;
6018          goto T2129;          goto T2179;
6019  T2129:;  T2179:;
6020          if(((V545))!=Cnil){          if(((V551))!=Cnil){
6021          goto T2135;}          goto T2185;}
6022          base[10]= (V526);          base[10]= (V532);
6023          V547= Ct;{object V558;          V553= Ct;{object V564;
6024          base[12]= (V527);          base[12]= (V533);
6025          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
6026          (void) (*Lnk329)();          (void) (*Lnk336)();
6027          vs_top=sup;          vs_top=sup;
6028          V558= vs_base[0];          V564= vs_base[0];
6029          if(V558==Cnil)goto T2143;          if(V564==Cnil)goto T2193;
6030          V546= V558;          V552= V564;
6031          goto T2142;          goto T2192;
6032          goto T2143;          goto T2193;
6033  T2143:;}  T2193:;}
6034          V546= small_fixnum(0);          V552= small_fixnum(0);
6035          goto T2142;          goto T2192;
6036  T2142:;  T2192:;
6037          base[11]= (V546);          base[11]= (V552);
6038          base[12]= (V527);          base[12]= (V533);
6039          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
6040          (void) (*Lnk380)();          (void) (*Lnk392)();
6041          vs_top=sup;          vs_top=sup;
6042          goto T2135;          goto T2185;
6043  T2135:;  T2185:;
6044          {register object x= (V543),V559= VV[262];          {register object x= (V549),V565= VV[265];
6045          while(!endp(V559))          while(V565!=Cnil)
6046          if(eql(x,V559->c.c_car)){          if(eql(x,V565->c.c_car)){
6047          goto T2150;          goto T2200;
6048          }else V559=V559->c.c_cdr;          }else V565=V565->c.c_cdr;
6049          goto T2149;}          goto T2199;}
6050          goto T2150;          goto T2200;
6051  T2150:;  T2200:;
6052          if(((V548))!=Cnil){          if(((V554))!=Cnil){
6053          goto T2152;}          goto T2202;}
6054          if(((V534))==Cnil){          if(((V540))==Cnil){
6055          goto T2151;}          goto T2201;}
6056          goto T2152;          goto T2202;
6057  T2152:;  T2202:;
6058          if(((V548))!=Cnil){          if(((V554))!=Cnil){
6059          goto T2156;}          goto T2206;}
6060          base[11]= VV[263];          base[11]= VV[266];
6061          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
6062          (void) (*Lnk327)();          (void) (*Lnk334)();
6063          vs_top=sup;          vs_top=sup;
6064          V536= vs_base[0];          V542= vs_base[0];
6065          base[10]= (V536);          base[10]= (V542);
6066          base[11]= Cnil;          base[11]= Cnil;
6067          base[12]= (V527);          base[12]= (V533);
6068          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
6069          (void) (*Lnk359)();          (void) (*Lnk371)();
6070          vs_top=sup;          vs_top=sup;
6071          {object V560;          {object V566;
6072          V560= list(3,VV[11],(V536),(V534));          V566= list(3,VV[11],(V542),(V540));
6073          setq(VV[106],make_cons((V560),symbol_value(VV[106])));}          (VV[108]->s.s_dbind)= make_cons((V566),(VV[108]->s.s_dbind));}
6074          goto T2156;          goto T2206;
6075  T2156:;  T2206:;
6076          if(((V544))==Cnil){          if(((V550))==Cnil){
6077          goto T2169;}          goto T2219;}
6078          V538= VV[34];          V544= VV[34];
6079          goto T2167;          goto T2217;
6080          goto T2169;          goto T2219;
6081  T2169:;  T2219:;
6082          V538= VV[213];          V544= VV[217];
6083          goto T2167;          goto T2217;
6084  T2167:;  T2217:;
6085          goto T2151;          goto T2201;
6086  T2151:;  T2201:;
6087          if(!(eql((V540),small_fixnum(1)))){          if(!(eql((V546),small_fixnum(1)))){
6088          goto T2173;}          goto T2223;}
6089          V542= list(2,VV[180],(V526));          V548= list(2,VV[184],(V532));
6090          goto T2171;          goto T2221;
6091          goto T2173;          goto T2223;
6092  T2173:;  T2223:;
6093          V542= list(3,VV[181],(V526),(V540));          V548= list(3,VV[185],(V532),(V546));
6094          goto T2171;          goto T2221;
6095  T2171:;  T2221:;
6096          goto T2147;          goto T2197;
6097          goto T2149;          goto T2199;
6098  T2149:;  T2199:;
6099          if(((V545))!=Cnil){          if(((V551))!=Cnil){
6100          goto T2175;}          goto T2225;}
6101          if(((V534))!=Cnil){          if(((V540))!=Cnil){
6102          goto T2178;}          goto T2228;}
6103          base[10]= VV[264];          base[10]= VV[267];
6104          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6105          (void) (*Lnk347)();          (void) (*Lnk354)();
6106          vs_top=sup;          vs_top=sup;
6107          goto T2178;          goto T2228;
6108  T2178:;  T2228:;
6109          {object V561;          {object V567;
6110          V561= list(3,VV[11],(V526),list(2,VV[199],(V534)));          V567= list(3,VV[11],(V532),list(2,VV[268],(V540)));
6111          setq(VV[106],make_cons((V561),symbol_value(VV[106])));}          (VV[108]->s.s_dbind)= make_cons((V567),(VV[108]->s.s_dbind));}
6112          goto T2175;          goto T2225;
6113  T2175:;  T2225:;
6114          if(((V534))==Cnil){          if(((V540))==Cnil){
6115          goto T2184;}          goto T2234;}
6116          if(((V536))!=Cnil){          if(((V542))!=Cnil){
6117          goto T2184;}          goto T2234;}
6118          base[10]= (V527);          base[10]= (V533);
6119          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6120          (void) (*Lnk329)();          (void) (*Lnk336)();
6121          vs_top=sup;          vs_top=sup;
6122          V536= vs_base[0];          V542= vs_base[0];
6123          V544= Ct;          V550= Ct;
6124          goto T2184;          goto T2234;
6125  T2184:;  T2234:;
6126          if(((V536))==Cnil){          if(((V542))==Cnil){
6127          goto T2193;}          goto T2243;}
6128            if(((V550))==Cnil){
6129            goto T2248;}
6130            V544= VV[33];
6131            goto T2246;
6132            goto T2248;
6133    T2248:;
6134            V544= VV[269];
6135            goto T2246;
6136    T2246:;
6137            goto T2243;
6138    T2243:;
6139            if(!(eql((V546),small_fixnum(1)))){
6140            goto T2252;}
6141            V548= list(2,VV[268],(V532));
6142            goto T2250;
6143            goto T2252;
6144    T2252:;
6145            V548= list(3,VV[270],(V532),(V546));
6146            goto T2250;
6147    T2250:;
6148            goto T2197;
6149    T2197:;
6150          if(((V544))==Cnil){          if(((V544))==Cnil){
6151          goto T2198;}          goto T2254;}
         V538= VV[33];  
         goto T2196;  
         goto T2198;  
 T2198:;  
         V538= VV[265];  
         goto T2196;  
 T2196:;  
         goto T2193;  
 T2193:;  
         if(!(eql((V540),small_fixnum(1)))){  
         goto T2202;}  
         V542= list(2,VV[199],(V526));  
         goto T2200;  
         goto T2202;  
 T2202:;  
         V542= list(3,VV[266],(V526),(V540));  
         goto T2200;  
 T2200:;  
         goto T2147;  
 T2147:;  
         if(((V538))==Cnil){  
         goto T2204;}  
6152          base[10]= Ct;          base[10]= Ct;
6153          base[11]= (V526);          base[11]= (V532);
6154          base[12]= list(3,(V538),(V526),(V536));          base[12]= list(3,(V544),(V532),(V542));
6155          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
6156          (void) (*Lnk331)();          (void) (*Lnk338)();
6157          vs_top=sup;          vs_top=sup;
6158          V539= vs_base[0];          V545= vs_base[0];
6159          goto T2204;          goto T2254;
6160  T2204:;  T2254:;
6161          if(((V533))==Cnil){          if(((V539))==Cnil){
6162          goto T2211;}          goto T2261;}
6163          base[10]= (V528);          base[10]= (V534);
6164          base[11]= (V526);          base[11]= (V532);
6165          base[12]= (V533);          base[12]= (V539);
6166          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
6167          (void) (*Lnk331)();          (void) (*Lnk338)();
6168          vs_top=sup;          vs_top=sup;
6169          V562= vs_base[0];          V568= vs_base[0];
6170          V533= list(2,(V529),V562);          V539= list(2,(V535),V568);
6171          goto T2211;          goto T2261;
6172  T2211:;  T2261:;
6173          {object V563;          {object V569;
6174          object V564;          object V570;
6175          V563= (V539);          V569= (V545);
6176          V564= (V539);          V570= (V545);
         if(((V541))==Cnil){  
         goto T2219;}  
6177          if(((V547))==Cnil){          if(((V547))==Cnil){
6178          goto T2219;}          goto T2269;}
6179          if(((V549))==Cnil){          if(((V553))==Cnil){
6180          goto T2219;}          goto T2269;}
6181          base[10]= (V538);          if(((V555))==Cnil){
6182            goto T2269;}
6183            base[10]= (V544);
6184          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6185          Lsymbol_function();          Lsymbol_function();
6186          vs_top=sup;          vs_top=sup;
6187          V565= vs_base[0];          V571= vs_base[0];
6188          V563= (          V569= (
6189          V566 = V565,          V572 = V571,
6190          (type_of(V566) == t_sfun ?(*((V566)->sfn.sfn_self)):          (type_of(V572) == t_sfun ?(*((V572)->sfn.sfn_self)):
6191          (fcall.fun=(V566),fcall.argd=2,fcalln))((V546),(V550)));          (fcall.argd=2,type_of(V572)==t_vfun) ?
6192          if(((V563))==Cnil){          (*((V572)->sfn.sfn_self)):
6193          goto T2219;}          (fcall.fun=(V572),fcalln))((V552),(V556)));
6194          V564= Ct;          if(((V569))==Cnil){
6195          goto T2219;          goto T2269;}
6196  T2219:;          V570= Ct;
6197            goto T2269;
6198    T2269:;
6199          base[10]= Ct;          base[10]= Ct;
6200          base[11]= (V526);          base[11]= (V532);
6201          base[12]= (V542);          base[12]= (V548);
6202          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
6203          (void) (*Lnk331)();          (void) (*Lnk338)();
6204          vs_top=sup;          vs_top=sup;
6205          V567= vs_base[0];          V573= vs_base[0];
6206          base[10]= list(8,Cnil,list(2,(V526),V567),(V564),(V533),Cnil,Cnil,(V563),(V533));          base[10]= list(8,Cnil,list(2,(V532),V573),(V570),(V539),Cnil,Cnil,(V569),(V539));
6207          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6208          return;}}          return;}}
6209          }          }
6210  }  }
6211  /*      function definition for LOOP-FOR-ARITHMETIC     */  /*      function definition for LOOP-FOR-ARITHMETIC     */
6212    
6213  static void L98()  static void L104()
6214  {register object *base=vs_base;  {register object *base=vs_base;
6215          register object *sup=base+VM85; VC85          register object *sup=base+VM91; VC91
6216          vs_reserve(VM85);          vs_check;
6217          {object V568;          {object V574;
6218          object V569;          object V575;
6219          object V570;          object V576;
6220          object V571;          object V577;
6221          check_arg(4);          V574=(base[0]);
6222          V568=(base[0]);          V575=(base[1]);
6223          V569=(base[1]);          V576=(base[2]);
6224          V570=(base[2]);          V577=(base[3]);
         V571=(base[3]);  
6225          vs_top=sup;          vs_top=sup;
6226          goto TTL;          goto TTL;
6227  TTL:;  TTL:;
6228          base[4]= (V568);          base[4]= (V574);
6229          base[6]= (V570);          base[6]= (V576);
6230          base[7]= symbol_value(VV[183]);          base[7]= (VV[187]->s.s_dbind);
6231          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
6232          (void) (*Lnk375)();          (void) (*Lnk387)();
6233          vs_top=sup;          vs_top=sup;
6234          base[5]= vs_base[0];          base[5]= vs_base[0];
6235          base[6]= Ct;          base[6]= Ct;
# Line 6146  TTL:; Line 6239  TTL:;
6239          base[10]= Cnil;          base[10]= Cnil;
6240          base[11]= Cnil;          base[11]= Cnil;
6241          base[12]= Cnil;          base[12]= Cnil;
6242          base[14]= VV[267];          base[14]= VV[271];
6243          base[15]= Cnil;          base[15]= Cnil;
6244          V572= list(2,(V571),(V569));          V578= list(2,(V577),(V575));
6245          base[16]= make_cons(/* INLINE-ARGS */V572,Cnil);          base[16]= make_cons(/* INLINE-ARGS */V578,Cnil);
6246          vs_top=(vs_base=base+14)+3;          vs_top=(vs_base=base+14)+3;
6247          (void) (*Lnk384)();          (void) (*Lnk397)();
6248          vs_top=sup;          vs_top=sup;
6249          base[13]= vs_base[0];          base[13]= vs_base[0];
6250          vs_top=(vs_base=base+4)+10;          vs_top=(vs_base=base+4)+10;
6251          (void) (*Lnk389)();          (void) (*Lnk402)();
6252          return;          return;
6253          }          }
6254  }  }
6255  /*      function definition for LOOP-SEQUENCE-ELEMENTS-PATH     */  /*      function definition for LOOP-SEQUENCE-ELEMENTS-PATH     */
6256    
6257  static void L99()  static void L105()
6258  {register object *base=vs_base;  {register object *base=vs_base;
6259          register object *sup=base+VM86; VC86          register object *sup=base+VM92; VC92
6260          vs_reserve(VM86);          vs_check;
6261          {object V573;          {object V579;
6262          object V574;          object V580;
         object V575;  
         object V576;  
         object V577;  
         object V578;  
         object V579;  
         if(vs_top-vs_base<3) too_few_arguments();  
         parse_key(vs_base+3,FALSE,FALSE,4,VV[390],VV[391],VV[392],VV[393]);  
         V573=(base[0]);  
         V574=(base[1]);  
         V575=(base[2]);  
         vs_top=sup;  
         V576=(base[3]);  
         V577=(base[4]);  
         V578=(base[5]);  
         V579=(base[6]);  
         {object V580;  
6263          object V581;          object V581;
6264          base[11]= VV[268];          object V582;
6265            object V583;
6266            object V584;
6267            object V585;
6268            parse_key(vs_base+3,FALSE,FALSE,4,VV[403],VV[404],VV[405],VV[406]);
6269            V579=(base[0]);
6270            V580=(base[1]);
6271            V581=(base[2]);
6272            vs_top=sup;
6273            V582=(base[3]);
6274            V583=(base[4]);
6275            V584=(base[5]);
6276            V585=(base[6]);
6277            {object V586;
6278            object V587;
6279            base[11]= VV[272];
6280          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
6281          (void) (*Lnk394)();          (void) (*Lnk407)();
6282          if(vs_base>=vs_top){vs_top=sup;goto T2253;}          if(vs_base>=vs_top){vs_top=sup;goto T2303;}
6283          V580= vs_base[0];          V586= vs_base[0];
6284          vs_base++;          vs_base++;
6285          if(vs_base>=vs_top){vs_top=sup;goto T2254;}          if(vs_base>=vs_top){vs_top=sup;goto T2304;}
6286          V581= vs_base[0];          V587= vs_base[0];
6287          vs_top=sup;          vs_top=sup;
6288          goto T2255;          goto T2305;
6289          goto T2253;          goto T2303;
6290  T2253:;  T2303:;
6291          V580= Cnil;          V586= Cnil;
6292          goto T2254;          goto T2304;
6293  T2254:;  T2304:;
6294          V581= Cnil;          V587= Cnil;
6295          goto T2255;          goto T2305;
6296  T2255:;  T2305:;
6297          {object V582;          {object V588;
6298          base[11]= VV[269];          base[11]= VV[273];
6299          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
6300          (void) (*Lnk394)();          (void) (*Lnk407)();
6301          vs_top=sup;          vs_top=sup;
6302          V582= vs_base[0];          V588= vs_base[0];
6303          base[11]= (V580);          base[11]= (V586);
6304          base[12]= VV[210];          base[12]= VV[214];
6305          base[13]= (V581);          base[13]= (V587);
6306          base[14]= (V573);          base[14]= (V579);
6307          if((V574)!=Cnil){          if((V580)!=Cnil){
6308          base[15]= (V574);          base[15]= (V580);
6309          goto T2263;}          goto T2313;}
6310          base[15]= (V579);          base[15]= (V585);
6311          goto T2263;          goto T2313;
6312  T2263:;  T2313:;
6313          base[16]= (V582);          base[16]= (V588);
6314          base[17]= (V578);          base[17]= (V584);
6315          base[18]= list(3,(V576),(V582),(V580));          base[18]= list(3,(V582),(V588),(V586));
6316          base[19]= list(2,(V577),(V582));          base[19]= list(2,(V583),(V588));
6317          base[20]= (V575);          base[20]= (V581);
6318          vs_top=(vs_base=base+11)+10;          vs_top=(vs_base=base+11)+10;
6319          (void) (*Lnk389)();          (void) (*Lnk402)();
6320          vs_top=sup;          vs_top=sup;
6321          V583= vs_base[0];          V589= vs_base[0];
6322          base[11]= listA(3,Cnil,Cnil,V583);          base[11]= listA(3,Cnil,Cnil,V589);
6323          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
6324          return;}}          return;}}
6325          }          }
6326  }  }
6327  /*      function definition for LOOP-HASH-TABLE-ITERATION-PATH  */  /*      function definition for LOOP-HASH-TABLE-ITERATION-PATH  */
6328    
6329  static void L100()  static void L106()
6330  {register object *base=vs_base;  {register object *base=vs_base;
6331          register object *sup=base+VM87; VC87          register object *sup=base+VM93; VC93
6332          vs_reserve(VM87);          vs_check;
6333          bds_check;          bds_check;
6334          {object V584;          {object V590;
6335          object V585;          object V591;
6336          object V586;          object V592;
6337          register object V587;          register object V593;
6338          if(vs_top-vs_base<3) too_few_arguments();          parse_key(vs_base+3,FALSE,FALSE,1,VV[408]);
6339          parse_key(vs_base+3,FALSE,FALSE,1,VV[395]);          V590=(base[0]);
6340          V584=(base[0]);          V591=(base[1]);
6341          V585=(base[1]);          V592=(base[2]);
         V586=(base[2]);  
6342          vs_top=sup;          vs_top=sup;
6343          V587=(base[3]);          V593=(base[3]);
6344          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
6345          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
6346          goto T2271;          goto T2321;
6347  T2271:;  T2321:;
6348          base[7]= (V587);          base[7]= (V593);
6349          base[8]= VV[270];          base[8]= VV[274];
6350          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
6351          (void) (*Lnk333)();          (void) (*Lnk340)();
6352          vs_top=sup;          vs_top=sup;
6353          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6354          goto T2272;}          goto T2322;}
6355          bds_unwind1;          bds_unwind1;
6356          bds_unwind1;          bds_unwind1;
6357          goto T2269;          goto T2319;
6358          goto T2272;          goto T2322;
6359  T2272:;  T2322:;
6360          base[7]= VV[47];          base[7]= VV[47];
6361          base[8]= VV[48];          base[8]= VV[48];
6362          base[9]= VV[271];          base[9]= VV[275];
6363          base[10]= (V587);          base[10]= (V593);
6364          base[11]= VV[270];          base[11]= VV[274];
6365          vs_top=(vs_base=base+7)+5;          vs_top=(vs_base=base+7)+5;
6366          Lcerror();          Lcerror();
6367          vs_top=sup;          vs_top=sup;
6368          base[7]= symbol_value(VV[50]);          base[7]= (VV[50]->s.s_dbind);
6369          base[8]= VV[51];          base[8]= VV[51];
6370          base[9]= VV[271];          base[9]= VV[275];
6371          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
6372          Lformat();          Lformat();
6373          vs_top=sup;          vs_top=sup;
6374          base[7]= symbol_value(VV[50]);          base[7]= (VV[50]->s.s_dbind);
6375          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
6376          Lfinish_output();          Lfinish_output();
6377          vs_top=sup;          vs_top=sup;
6378          vs_base=vs_top;          vs_base=vs_top;
6379          Lread();          Lread();
6380          vs_top=sup;          vs_top=sup;
6381          V587= vs_base[0];          V593= vs_base[0];
6382          base[7]= symbol_value(VV[50]);          base[7]= (VV[50]->s.s_dbind);
6383          base[8]= VV[52];          base[8]= VV[52];
6384          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
6385          Lformat();          Lformat();
6386          vs_top=sup;          vs_top=sup;
6387          goto T2271;          goto T2321;
6388          goto T2269;          goto T2319;
6389  T2269:;  T2319:;
6390          if((cdr((V586)))!=Cnil){          if((CMPcdr((V592)))!=Cnil){
6391          goto T2298;}          goto T2348;}
6392          {register object x= caar((V586)),V588= VV[272];          {register object x= CMPcaar((V592)),V594= VV[276];
6393          while(!endp(V588))          while(V594!=Cnil)
6394          if(eql(x,V588->c.c_car)){          if(eql(x,V594->c.c_car)){
6395          goto T2299;          goto T2349;
6396          }else V588=V588->c.c_cdr;}          }else V594=V594->c.c_cdr;}
6397          goto T2298;          goto T2348;
6398  T2298:;  T2348:;
6399          base[5]= VV[273];          base[5]= VV[277];
6400          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6401          (void) (*Lnk347)();          (void) (*Lnk354)();
6402          vs_top=sup;          vs_top=sup;
6403          goto T2297;          goto T2347;
6404          goto T2299;          goto T2349;
6405  T2299:;  T2349:;
6406          if(((V586))!=Cnil){          if(((V592))!=Cnil){
6407          goto T2297;}          goto T2347;}
6408          base[5]= VV[274];          base[5]= VV[278];
6409          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6410          (void) (*Lnk347)();          (void) (*Lnk354)();
6411          vs_top=sup;          vs_top=sup;
6412          goto T2297;          goto T2347;
6413  T2297:;  T2347:;
6414          {object V589;          {object V595;
6415          object V590;          object V596;
6416          object V591;          object V597;
6417          register object V592;          register object V598;
6418          base[5]= VV[275];          base[5]= VV[279];
6419          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6420          (void) (*Lnk327)();          (void) (*Lnk334)();
6421          vs_top=sup;          vs_top=sup;
6422          V589= vs_base[0];          V595= vs_base[0];
6423          base[5]= VV[276];          base[5]= VV[280];
6424          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6425          (void) (*Lnk327)();          (void) (*Lnk334)();
6426          vs_top=sup;          vs_top=sup;
6427          V590= vs_base[0];          V596= vs_base[0];
6428          V591= Cnil;          V597= Cnil;
6429          V592= Cnil;          V598= Cnil;
6430          {object V593;          {object V599;
6431          object V594;          object V600;
6432          if(!(((V587))==(VV[277]))){          if(!(((V593))==(VV[281]))){
6433          goto T2314;}          goto T2364;}
6434          base[5]= VV[278];          base[5]= VV[282];
6435          goto T2312;          goto T2362;
6436          goto T2314;          goto T2364;
6437  T2314:;  T2364:;
6438          base[5]= VV[277];          base[5]= VV[281];
6439          goto T2312;          goto T2362;
6440  T2312:;  T2362:;
6441          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6442          (void) (*Lnk394)();          (void) (*Lnk407)();
6443          if(vs_base>=vs_top){vs_top=sup;goto T2316;}          if(vs_base>=vs_top){vs_top=sup;goto T2366;}
6444          V593= vs_base[0];          V599= vs_base[0];
6445          vs_base++;          vs_base++;
6446          if(vs_base>=vs_top){vs_top=sup;goto T2317;}          if(vs_base>=vs_top){vs_top=sup;goto T2367;}
6447          V594= vs_base[0];          V600= vs_base[0];
6448          vs_top=sup;          vs_top=sup;
6449          goto T2318;          goto T2368;
6450          goto T2316;          goto T2366;
6451  T2316:;  T2366:;
6452          V593= Cnil;          V599= Cnil;
6453          goto T2317;          goto T2367;
6454  T2317:;  T2367:;
         V594= Cnil;  
         goto T2318;  
 T2318:;  
         V594= Ct;  
         vs_base=vs_top;  
         (void) (*Lnk378)();  
         vs_top=sup;  
         V591= vs_base[0];  
         {register object V595;  
         register object V596;  
         register object V597;  
         V598= list(3,(V584),Cnil,(V585));  
         V599= list(2,(V589),cadar((V586)));  
         if((V594)==Cnil){  
         V600= Cnil;  
         goto T2324;}  
         if((V593)==Cnil){  
6455          V600= Cnil;          V600= Cnil;
6456          goto T2324;}          goto T2368;
6457          V601= list(2,(V593),Cnil);  T2368:;
6458          V600= make_cons(/* INLINE-ARGS */V601,Cnil);          V600= Ct;
6459          goto T2324;          vs_base=vs_top;
6460  T2324:;          (void) (*Lnk391)();
6461          V597= listA(3,/* INLINE-ARGS */V598,/* INLINE-ARGS */V599,V600);          vs_top=sup;
6462          V595= Cnil;          V597= vs_base[0];
6463          V596= Cnil;          {register object V601;
6464          if(!(((V587))==(VV[277]))){          register object V602;
6465          goto T2327;}          object V603;
6466          V595= (V584);          object V604;
6467          if((V594)==Cnil){          object V605;
6468          V596= Cnil;          object V606;
6469          goto T2331;}          register object V607;
6470          V596= (V593);          V601= Cnil;
6471          goto T2331;          V602= Cnil;
6472  T2331:;          base[10]= VV[283];
6473          goto T2325;          vs_top=(vs_base=base+10)+1;
6474          goto T2327;          (void) (*Lnk334)();
 T2327:;  
         if((V594)==Cnil){  
         V595= Cnil;  
         goto T2333;}  
         V595= (V593);  
         goto T2333;  
 T2333:;  
         V596= (V584);  
         goto T2325;  
 T2325:;  
         {object V602;  
         V602= list(2,VV[279],list(2,(V590),(V589)));  
         setq(VV[107],make_cons((V602),symbol_value(VV[107])));}  
         if(!(type_of((V595))==t_cons)){  
         goto T2338;}{object V603;  
         V603= (V595);  
         base[5]= VV[280];  
         vs_top=(vs_base=base+5)+1;  
         (void) (*Lnk327)();  
6475          vs_top=sup;          vs_top=sup;
6476          V595= vs_base[0];          V603= vs_base[0];
6477          V592= listA(3,V603,(V595),(V592));}          base[10]= VV[284];
6478          {object V604;          vs_top=(vs_base=base+10)+1;
6479          V604= list(2,(V595),Cnil);          (void) (*Lnk334)();
         V597= make_cons((V604),(V597));}  
         goto T2338;  
 T2338:;  
         if(!(type_of((V596))==t_cons)){  
         goto T2347;}{object V605;  
         V605= (V596);  
         base[5]= VV[281];  
         vs_top=(vs_base=base+5)+1;  
         (void) (*Lnk327)();  
6480          vs_top=sup;          vs_top=sup;
6481          V596= vs_base[0];          V604= vs_base[0];
6482          V592= listA(3,V605,(V596),(V592));}          base[10]= VV[285];
6483          {object V606;          vs_top=(vs_base=base+10)+1;
6484          V606= list(2,(V596),Cnil);          (void) (*Lnk334)();
6485          V597= make_cons((V606),(V597));}          vs_top=sup;
6486          goto T2347;          V605= vs_base[0];
6487  T2347:;          if((V590)!=Cnil){
6488          V607= list(3,(V591),(V595),(V596));          V606= (V590);
6489          base[5]= list(6,(V597),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V607,make_cons((V590),Cnil))),(V592));          goto T2381;}
6490          vs_top=(vs_base=base+5)+1;          vs_base=vs_top;
6491            (void) (*Lnk334)();
6492            vs_top=sup;
6493            V606= vs_base[0];
6494            goto T2381;
6495    T2381:;
6496            V608= list(3,(V606),Cnil,(V591));
6497            V609= list(2,(V595),CMPcadar((V592)));
6498            if((V600)==Cnil){
6499            V610= Cnil;
6500            goto T2383;}
6501            if((V599)==Cnil){
6502            V610= Cnil;
6503            goto T2383;}
6504            V611= list(2,(V599),Cnil);
6505            V610= make_cons(/* INLINE-ARGS */V611,Cnil);
6506            goto T2383;
6507    T2383:;
6508            V607= listA(3,/* INLINE-ARGS */V608,/* INLINE-ARGS */V609,V610);
6509            if(!(((V593))==(VV[281]))){
6510            goto T2386;}
6511            V601= (V606);
6512            if((V600)==Cnil){
6513            V602= Cnil;
6514            goto T2390;}
6515            V602= (V599);
6516            goto T2390;
6517    T2390:;
6518            goto T2384;
6519            goto T2386;
6520    T2386:;
6521            if((V600)==Cnil){
6522            V601= Cnil;
6523            goto T2392;}
6524            V601= (V599);
6525            goto T2392;
6526    T2392:;
6527            V602= (V606);
6528            goto T2384;
6529    T2384:;
6530            {object V612;
6531            V612= list(2,VV[286],list(2,(V596),(V595)));
6532            (VV[109]->s.s_dbind)= make_cons((V612),(VV[109]->s.s_dbind));}
6533            if(!(type_of((V601))==t_cons)){
6534            goto T2397;}{object V613;
6535            V613= (V601);
6536            base[10]= VV[284];
6537            vs_top=(vs_base=base+10)+1;
6538            (void) (*Lnk334)();
6539            vs_top=sup;
6540            V601= vs_base[0];
6541            V598= listA(3,V613,(V601),(V598));}
6542            {object V614;
6543            V614= list(2,(V601),Cnil);
6544            V607= make_cons((V614),(V607));}
6545            goto T2397;
6546    T2397:;
6547            if(!(type_of((V602))==t_cons)){
6548            goto T2406;}{object V615;
6549            V615= (V602);
6550            base[10]= VV[283];
6551            vs_top=(vs_base=base+10)+1;
6552            (void) (*Lnk334)();
6553            vs_top=sup;
6554            V602= vs_base[0];
6555            V598= listA(3,V615,(V602),(V598));}
6556            {object V616;
6557            V616= list(2,(V602),Cnil);
6558            V607= make_cons((V616),(V607));}
6559            goto T2406;
6560    T2406:;
6561            V617= list(3,(V605),(V604),(V603));
6562            V618= make_cons((V596),Cnil);
6563            V619= list(3,VV[11],(V602),(V603));
6564            V620= list(4,VV[8],(V605),/* INLINE-ARGS */V619,list(3,VV[11],(V601),(V604)));
6565            base[10]= list(6,(V607),Cnil,Cnil,Cnil,list(2,VV[36],list(5,VV[287],/* INLINE-ARGS */V617,/* INLINE-ARGS */V618,/* INLINE-ARGS */V620,list(3,VV[11],(V597),(V605)))),(V598));
6566            vs_top=(vs_base=base+10)+1;
6567          return;}}}          return;}}}
6568          }          }
6569  }  }
6570  /*      function definition for LOOP-PACKAGE-SYMBOLS-ITERATION-PATH     */  /*      function definition for LOOP-PACKAGE-SYMBOLS-ITERATION-PATH     */
6571    
6572  static void L101()  static void L107()
6573  {register object *base=vs_base;  {register object *base=vs_base;
6574          register object *sup=base+VM88; VC88          register object *sup=base+VM94; VC94
6575          vs_reserve(VM88);          vs_check;
6576          {object V608;          {object V621;
6577          object V609;          object V622;
6578          register object V610;          register object V623;
6579          object V611;          object V624;
6580          if(vs_top-vs_base<3) too_few_arguments();          parse_key(vs_base+3,FALSE,FALSE,1,VV[409]);
6581          parse_key(vs_base+3,FALSE,FALSE,1,VV[396]);          V621=(base[0]);
6582          V608=(base[0]);          V622=(base[1]);
6583          V609=(base[1]);          V623=(base[2]);
6584          V610=(base[2]);          vs_top=sup;
6585          vs_top=sup;          V624=(base[3]);
6586          V611=(base[3]);          if(((V623))==Cnil){
6587          if((cdr((V610)))!=Cnil){          goto T2417;}
6588          goto T2357;}          if((CMPcdr((V623)))==Cnil){
6589          {register object x= caar((V610)),V612= VV[282];          goto T2417;}
6590          while(!endp(V612))          base[5]= VV[288];
         if(eql(x,V612->c.c_car)){  
         goto T2358;  
         }else V612=V612->c.c_cdr;}  
         goto T2357;  
 T2357:;  
         base[5]= VV[283];  
6591          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6592          (void) (*Lnk347)();          (void) (*Lnk354)();
6593          vs_top=sup;          vs_top=sup;
6594          goto T2356;          goto T2415;
6595          goto T2358;          goto T2417;
6596  T2358:;  T2417:;
6597          if(((V610))!=Cnil){          if(((V623))==Cnil){
6598          goto T2356;}          goto T2415;}
6599          base[5]= VV[284];          {register object x= CMPcaar((V623)),V625= VV[289];
6600          vs_top=(vs_base=base+5)+1;          while(V625!=Cnil)
6601          (void) (*Lnk347)();          if(eql(x,V625->c.c_car)){
6602            goto T2415;
6603            }else V625=V625->c.c_cdr;}
6604            base[5]= VV[290];
6605            base[6]= CMPcaar((V623));
6606            vs_top=(vs_base=base+5)+2;
6607            (void) (*Lnk354)();
6608          vs_top=sup;          vs_top=sup;
6609          goto T2356;          goto T2415;
6610  T2356:;  T2415:;
6611          if(type_of((V608))==t_symbol){          if(type_of((V621))==t_symbol){
6612          goto T2366;}          goto T2428;}
6613          base[5]= VV[285];          base[5]= VV[291];
6614          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6615          (void) (*Lnk347)();          (void) (*Lnk354)();
6616          vs_top=sup;          vs_top=sup;
6617          goto T2366;          goto T2428;
6618  T2366:;  T2428:;
6619          {object V613;          {object V626;
6620          object V614;          object V627;
6621          base[5]= VV[286];          object V628;
6622            object V629;
6623            base[5]= VV[292];
6624          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6625          (void) (*Lnk327)();          (void) (*Lnk334)();
6626          vs_top=sup;          vs_top=sup;
6627          V613= vs_base[0];          V626= vs_base[0];
6628          base[5]= VV[287];          base[5]= VV[293];
6629          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6630          (void) (*Lnk327)();          (void) (*Lnk334)();
6631          vs_top=sup;          vs_top=sup;
6632          V614= vs_base[0];          V627= vs_base[0];
6633          {object V615;          if((V621)!=Cnil){
6634          V615= list(2,VV[288],listA(3,(V614),(V613),(V611)));          V628= (V621);
6635          setq(VV[107],make_cons((V615),symbol_value(VV[107])));}          goto T2436;}
6636          V616= list(3,(V608),Cnil,(V609));          vs_base=vs_top;
6637          V617= list(2,/* INLINE-ARGS */V616,list(2,(V613),cadar((V610))));          (void) (*Lnk334)();
6638          vs_base=vs_top;          vs_top=sup;
6639          (void) (*Lnk378)();          V628= vs_base[0];
6640          vs_top=sup;          goto T2436;
6641          V618= vs_base[0];  T2436:;{object V630;
6642          V619= list(2,V618,(V608));          V630= CMPcadar((V623));
6643          base[5]= list(6,/* INLINE-ARGS */V617,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V619,make_cons((V614),Cnil))),Cnil);          if(V630==Cnil)goto T2438;
6644            V629= V630;
6645            goto T2437;
6646            goto T2438;
6647    T2438:;}
6648            V629= VV[294];
6649            goto T2437;
6650    T2437:;
6651            {object V631;
6652            V631= list(2,VV[295],listA(3,(V627),(V626),(V624)));
6653            (VV[109]->s.s_dbind)= make_cons((V631),(VV[109]->s.s_dbind));}
6654            V632= list(3,(V628),Cnil,(V622));
6655            V633= list(2,/* INLINE-ARGS */V632,list(2,(V626),(V629)));
6656            vs_base=vs_top;
6657            (void) (*Lnk391)();
6658            vs_top=sup;
6659            V634= vs_base[0];
6660            V635= list(2,V634,(V628));
6661            base[5]= list(6,/* INLINE-ARGS */V633,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[84],/* INLINE-ARGS */V635,make_cons((V627),Cnil))),Cnil);
6662          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6663          return;}          return;}
6664          }          }
6665  }  }
6666  /*      function definition for MAKE-ANSI-LOOP-UNIVERSE */  /*      function definition for MAKE-ANSI-LOOP-UNIVERSE */
6667    
6668  static void L102()  static void L108()
6669  {register object *base=vs_base;  {register object *base=vs_base;
6670          register object *sup=base+VM89; VC89          register object *sup=base+VM95; VC95
6671          vs_reserve(VM89);          vs_check;
6672          {object V620;          {object V636;
6673          check_arg(1);          V636=(base[0]);
         V620=(base[0]);  
6674          vs_top=sup;          vs_top=sup;
6675          goto TTL;          goto TTL;
6676  TTL:;  TTL:;
6677          {register object V621;          {register object V637;
6678          base[1]= VV[53];          base[1]= VV[53];
6679          base[3]= VV[289];          base[3]= VV[296];
6680          base[4]= VV[290];          base[4]= VV[297];
6681          base[5]= VV[291];          base[5]= VV[298];
6682          base[6]= VV[292];          base[6]= VV[299];
6683          base[7]= VV[293];          base[7]= VV[300];
6684          base[8]= VV[294];          base[8]= VV[301];
6685          base[9]= VV[295];          base[9]= VV[302];
6686          base[10]= VV[296];          base[10]= VV[303];
6687          base[11]= VV[297];          base[11]= VV[304];
6688          base[12]= VV[298];          base[12]= VV[305];
6689          base[13]= VV[299];          base[13]= VV[306];
6690          base[14]= VV[300];          base[14]= VV[307];
6691          base[15]= list(2,VV[179],list(4,VV[301],VV[179],symbol_value(VV[183]),VV[210]));          base[15]= list(2,VV[183],list(4,VV[308],VV[183],(VV[187]->s.s_dbind),VV[214]));
6692          base[16]= list(2,VV[302],list(4,VV[301],VV[179],symbol_value(VV[183]),VV[210]));          base[16]= list(2,VV[309],list(4,VV[308],VV[183],(VV[187]->s.s_dbind),VV[214]));
6693          base[17]= VV[303];          base[17]= VV[310];
6694          vs_top=(vs_base=base+3)+15;          vs_top=(vs_base=base+3)+15;
6695          LlistA();          LlistA();
6696          vs_top=sup;          vs_top=sup;
6697          base[2]= vs_base[0];          base[2]= vs_base[0];
6698          base[3]= VV[54];          base[3]= VV[54];
6699          base[4]= VV[304];          base[4]= VV[311];
6700          base[5]= VV[55];          base[5]= VV[55];
6701          base[6]= VV[305];          base[6]= VV[312];
6702          base[7]= VV[60];          base[7]= VV[60];
6703          base[8]= VV[306];          base[8]= VV[313];
6704          base[9]= VV[59];          base[9]= VV[59];
6705          base[10]= Cnil;          base[10]= Cnil;
6706          base[11]= VV[57];          base[11]= VV[57];
6707          if(((V620))==Cnil){          if(((V636))==Cnil){
6708          goto T2407;}          goto T2473;}
6709          base[12]= VV[307];          base[12]= VV[314];
6710          goto T2405;          goto T2471;
6711          goto T2407;          goto T2473;
6712  T2407:;  T2473:;
6713          base[12]= Ct;          base[12]= Ct;
6714          goto T2405;          goto T2471;
6715  T2405:;  T2471:;
6716          vs_top=(vs_base=base+1)+12;          vs_top=(vs_base=base+1)+12;
6717          (void) (*Lnk397)();          (void) (*Lnk410)();
         vs_top=sup;  
         V621= vs_base[0];  
         base[1]= VV[308];  
         base[2]= VV[309];  
         base[3]= (V621);  
         base[4]= VV[229];  
         base[5]= VV[310];  
         base[6]= VV[230];  
         base[7]= Cnil;  
         base[8]= VV[228];  
         base[9]= VV[311];  
         vs_top=(vs_base=base+1)+9;  
         (void) (*Lnk398)();  
         vs_top=sup;  
         base[1]= VV[312];  
         base[2]= VV[309];  
         base[3]= (V621);  
         base[4]= VV[229];  
         base[5]= VV[313];  
         base[6]= VV[230];  
         base[7]= Cnil;  
         base[8]= VV[228];  
         base[9]= VV[314];  
         vs_top=(vs_base=base+1)+9;  
         (void) (*Lnk398)();  
6718          vs_top=sup;          vs_top=sup;
6719            V637= vs_base[0];
6720          base[1]= VV[315];          base[1]= VV[315];
6721          base[2]= VV[316];          base[2]= VV[316];
6722          base[3]= (V621);          base[3]= (V637);
6723          base[4]= VV[229];          base[4]= VV[233];
6724          base[5]= VV[317];          base[5]= VV[317];
6725          base[6]= VV[230];          base[6]= VV[234];
6726          base[7]= Cnil;          base[7]= Cnil;
6727          base[8]= VV[228];          base[8]= VV[232];
6728          base[9]= VV[318];          base[9]= VV[318];
6729          vs_top=(vs_base=base+1)+9;          vs_top=(vs_base=base+1)+9;
6730          (void) (*Lnk398)();          (void) (*Lnk411)();
6731          vs_top=sup;          vs_top=sup;
6732          base[1]= VV[319];          base[1]= VV[319];
6733          base[2]= VV[316];          base[2]= VV[316];
6734          base[3]= (V621);          base[3]= (V637);
6735          base[4]= VV[229];          base[4]= VV[233];
6736          base[5]= VV[320];          base[5]= VV[320];
6737          base[6]= VV[230];          base[6]= VV[234];
6738          base[7]= Cnil;          base[7]= Cnil;
6739          base[8]= VV[228];          base[8]= VV[232];
6740          base[9]= VV[321];          base[9]= VV[321];
6741          vs_top=(vs_base=base+1)+9;          vs_top=(vs_base=base+1)+9;
6742          (void) (*Lnk398)();          (void) (*Lnk411)();
6743          vs_top=sup;          vs_top=sup;
6744          base[1]= VV[322];          base[1]= VV[322];
6745          base[2]= VV[316];          base[2]= VV[323];
6746          base[3]= (V621);          base[3]= (V637);
6747          base[4]= VV[229];          base[4]= VV[233];
6748          base[5]= VV[323];          base[5]= VV[324];
6749          base[6]= VV[230];          base[6]= VV[234];
6750          base[7]= Cnil;          base[7]= Cnil;
6751          base[8]= VV[228];          base[8]= VV[232];
6752          base[9]= VV[324];          base[9]= VV[325];
6753          vs_top=(vs_base=base+1)+9;          vs_top=(vs_base=base+1)+9;
6754          (void) (*Lnk398)();          (void) (*Lnk411)();
6755            vs_top=sup;
6756            base[1]= VV[326];
6757            base[2]= VV[323];
6758            base[3]= (V637);
6759            base[4]= VV[233];
6760            base[5]= VV[327];
6761            base[6]= VV[234];
6762            base[7]= Cnil;
6763            base[8]= VV[232];
6764            base[9]= VV[328];
6765            vs_top=(vs_base=base+1)+9;
6766            (void) (*Lnk411)();
6767            vs_top=sup;
6768            base[1]= VV[329];
6769            base[2]= VV[323];
6770            base[3]= (V637);
6771            base[4]= VV[233];
6772            base[5]= VV[330];
6773            base[6]= VV[234];
6774            base[7]= Cnil;
6775            base[8]= VV[232];
6776            base[9]= VV[331];
6777            vs_top=(vs_base=base+1)+9;
6778            (void) (*Lnk411)();
6779          vs_top=sup;          vs_top=sup;
6780          base[1]= (V621);          base[1]= (V637);
6781          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6782          return;}          return;}
6783          }          }
6784  }  }
6785  /*      function definition for LOOP-STANDARD-EXPANSION */  /*      function definition for LOOP-STANDARD-EXPANSION */
6786    
6787  static void L103()  static void L109()
6788  {register object *base=vs_base;  {register object *base=vs_base;
6789          register object *sup=base+VM90; VC90          register object *sup=base+VM96; VC96
6790          vs_reserve(VM90);          vs_check;
6791          {register object V622;          {register object V638;
6792          object V623;          object V639;
6793          object V624;          object V640;
6794          check_arg(3);          V638=(base[0]);
6795          V622=(base[0]);          V639=(base[1]);
6796          V623=(base[1]);          V640=(base[2]);
         V624=(base[2]);  
6797          vs_top=sup;          vs_top=sup;
6798          goto TTL;          goto TTL;
6799  TTL:;  TTL:;
6800          if(((V622))==Cnil){          if(((V638))==Cnil){
6801          goto T2460;}          goto T2526;}
6802          if(!(type_of(car((V622)))==t_symbol)){          if(!(type_of(CMPcar((V638)))==t_symbol)){
6803          goto T2460;}          goto T2526;}
6804          base[3]= (V622);          base[3]= (V638);
6805          base[4]= (V623);          base[4]= (V639);
6806          base[5]= (V624);          base[5]= (V640);
6807          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
6808          (void) (*Lnk399)();          (void) (*Lnk412)();
6809          return;          return;
6810          goto T2460;          goto T2526;
6811  T2460:;  T2526:;
6812          {object V625;          {object V641;
6813          vs_base=vs_top;          vs_base=vs_top;
6814          Lgensym();          Lgensym();
6815          vs_top=sup;          vs_top=sup;
6816          V625= vs_base[0];          V641= vs_base[0];
6817          V626= make_cons(VV[14],(V622));          V642= make_cons(VV[14],(V638));
6818          base[3]= list(3,VV[124],Cnil,list(4,VV[73],(V625),/* INLINE-ARGS */V626,list(2,VV[82],(V625))));          base[3]= list(3,VV[124],Cnil,list(4,VV[73],(V641),/* INLINE-ARGS */V642,list(2,VV[82],(V641))));
6819          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6820          return;}          return;}
6821          }          }
6822  }  }
6823  /*      macro definition for LOOP       */  /*      macro definition for LOOP       */
6824    
6825  static void L104()  static void L110()
6826  {register object *base=vs_base;  {register object *base=vs_base;
6827          register object *sup=base+VM91; VC91          register object *sup=base+VM97; VC97
6828          vs_reserve(VM91);          vs_check;
         check_arg(2);  
6829          vs_top=sup;          vs_top=sup;
6830          {object V627=base[0]->c.c_cdr;          {object V643=base[0]->c.c_cdr;
6831          base[2]= V627;}          base[2]= V643;}
6832          base[3]= base[2];          base[3]= base[2];
6833          base[4]= base[1];          base[4]= base[1];
6834          base[5]= symbol_value(VV[325]);          base[5]= (VV[332]->s.s_dbind);
6835          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
6836          (void) (*Lnk400)();          (void) (*Lnk413)();
6837          return;          return;
6838  }  }
6839  /*      local function IN-GROUP-P       */  /*      local function IN-GROUP-P       */
6840    
6841  static void LC96(base0)  static void LC102(base0)
6842  register object *base0;  register object *base0;
6843  {       register object *base=vs_base;  {       register object *base=vs_base;
6844          register object *sup=base+VM92; VC92          register object *sup=base+VM98; VC98
6845          vs_reserve(VM92);          vs_check;
6846          {object V628;          {object V644;
6847          object V629;          object V645;
6848          check_arg(2);          V644=(base[0]);
6849          V628=(base[0]);          V645=(base[1]);
         V629=(base[1]);  
6850          vs_top=sup;          vs_top=sup;
6851          base[2]= (V628);          base[2]= (V644);
6852          base[3]= (V629);          base[3]= (V645);
6853          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6854          (void) (*Lnk353)();          (void) (*Lnk362)();
6855          vs_top=sup;          vs_top=sup;
6856          V630= vs_base[0];          V646= vs_base[0];
6857          base[2]= car(V630);          base[2]= CMPcar(V646);
6858          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6859          return;          return;
6860          }          }
6861  }  }
6862  /*      local function IN-GROUP-P       */  /*      local function IN-GROUP-P       */
6863    
6864  static void L96(base0)  static void L102(base0)
6865  register object *base0;  register object *base0;
6866  {       register object *base=vs_base;  {       register object *base=vs_base;
6867          register object *sup=base+VM93; VC93          register object *sup=base+VM99; VC99
6868          vs_reserve(VM93);          vs_check;
6869          {object V631;          {object V647;
6870          object V632;          object V648;
6871          check_arg(2);          V647=(base[0]);
6872          V631=(base[0]);          V648=(base[1]);
         V632=(base[1]);  
6873          vs_top=sup;          vs_top=sup;
6874          goto TTL;          goto TTL;
6875  TTL:;  TTL:;
6876          base[2]= (V631);          base[2]= (V647);
6877          base[3]= (V632);          base[3]= (V648);
6878          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6879          (void) (*Lnk353)();          (void) (*Lnk362)();
6880          vs_top=sup;          vs_top=sup;
6881          V633= vs_base[0];          V649= vs_base[0];
6882          base[2]= car(V633);          base[2]= CMPcar(V649);
6883          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6884          return;          return;
6885          }          }
6886  }  }
6887  /*      local function MAKE-ENDTEST     */  /*      local function MAKE-ENDTEST     */
6888    
6889  static void L82(base0)  static void L88(base0)
6890  register object *base0;  register object *base0;
6891  {       register object *base=vs_base;  {       register object *base=vs_base;
6892          register object *sup=base+VM94; VC94          register object *sup=base+VM100; VC100
6893          vs_reserve(VM94);          vs_check;
6894          {object V634;          {object V650;
6895          check_arg(1);          V650=(base[0]);
         V634=(base[0]);  
6896          vs_top=sup;          vs_top=sup;
6897          goto TTL;          goto TTL;
6898  TTL:;  TTL:;
6899          if(((V634))!=Cnil){          if(((V650))!=Cnil){
6900          goto T2478;}          goto T2544;}
6901          base[1]= Cnil;          base[1]= Cnil;
6902          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6903          return;          return;
6904          goto T2478;          goto T2544;
6905  T2478:;  T2544:;
6906          {register object x= Ct,V635= (V634);          {register object x= Ct,V651= (V650);
6907          while(!endp(V635))          while(V651!=Cnil)
6908          if(eql(x,V635->c.c_car)){          if(eql(x,V651->c.c_car)){
6909          goto T2482;          goto T2548;
6910          }else V635=V635->c.c_cdr;          }else V651=V651->c.c_cdr;
6911          goto T2481;}          goto T2547;}
6912          goto T2482;          goto T2548;
6913  T2482:;  T2548:;
6914          base[1]= VV[192];          base[1]= VV[197];
6915          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6916          return;          return;
6917          goto T2481;          goto T2547;
6918  T2481:;  T2547:;
6919          V634= nreverse((V634));          V650= nreverse((V650));
6920          if((cdr((V634)))!=Cnil){          if((CMPcdr((V650)))!=Cnil){
6921          goto T2485;}          goto T2551;}
6922          V636= car((V634));          V652= CMPcar((V650));
6923          goto T2483;          goto T2549;
6924          goto T2485;          goto T2551;
6925  T2485:;  T2551:;
6926          V636= make_cons(VV[35],(V634));          V652= make_cons(VV[35],(V650));
6927          goto T2483;          goto T2549;
6928  T2483:;  T2549:;
6929          base[1]= list(3,VV[8],V636,VV[193]);          base[1]= list(3,VV[8],V652,VV[198]);
6930          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6931          return;          return;
6932          }          }
6933  }  }
6934  /*      local function GET-CLAUSE       */  /*      local function GET-CLAUSE       */
6935    
6936  static void L66(base0)  static void L72(base0)
6937  register object *base0;  register object *base0;
6938  {       register object *base=vs_base;  {       register object *base=vs_base;
6939          register object *sup=base+VM95; VC95          register object *sup=base+VM101; VC101
6940          vs_reserve(VM95);          vs_check;
6941          {object V637;          {object V653;
6942          check_arg(1);          V653=(base[0]);
         V637=(base[0]);  
6943          vs_top=sup;          vs_top=sup;
6944          goto TTL;          goto TTL;
6945  TTL:;  TTL:;
6946          {register object V638;          {register object V654;
6947          V638= Cnil;          V654= Cnil;
6948          goto T2489;          goto T2555;
6949  T2489:;  T2555:;
6950          {register object V639;          {register object V655;
6951          register object V640;          register object V656;
6952          V639= car(symbol_value(VV[89]));          V655= CMPcar((VV[88]->s.s_dbind));
6953          bds_bind(VV[109],Cnil);          bds_bind(VV[111],Cnil);
6954          V640= Cnil;          V656= Cnil;
6955          if(type_of((V639))==t_symbol){          if(type_of((V655))==t_symbol){
6956          goto T2495;}          goto T2561;}
6957          base[2]= VV[152];          base[2]= VV[155];
6958          base[3]= (V639);          base[3]= (V655);
6959          base[4]= (V637);          base[4]= (V653);
6960          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
6961          (void) (*Lnk347)();          (void) (*Lnk354)();
6962          vs_top=sup;          vs_top=sup;
6963          bds_unwind1;          bds_unwind1;
6964          goto T2492;          goto T2558;
6965          goto T2495;          goto T2561;
6966  T2495:;  T2561:;
6967          setq(VV[88],symbol_value(VV[89]));          (VV[87]->s.s_dbind)= (VV[88]->s.s_dbind);
6968          vs_base=vs_top;          vs_base=vs_top;
6969          (void) (*Lnk350)();          (void) (*Lnk359)();
6970          vs_top=sup;          vs_top=sup;
6971          base[2]= car(symbol_value(VV[89]));          base[2]= CMPcar((VV[88]->s.s_dbind));
6972          base[3]= VV[153];          base[3]= VV[156];
6973          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6974          (void) (*Lnk357)();          (void) (*Lnk369)();
6975          vs_top=sup;          vs_top=sup;
6976          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6977          goto T2503;}          goto T2569;}
6978            if((base0[4])==Cnil){
6979            goto T2569;}
6980          if(base0[3]!=Cnil){          if(base0[3]!=Cnil){
6981          V641= base0[3];          V657= base0[3];
6982          goto T2509;}          goto T2577;}
6983          vs_base=vs_top;          vs_base=vs_top;
6984          (void) (*Lnk378)();          (void) (*Lnk391)();
6985          vs_top=sup;          vs_top=sup;
6986          base0[3]= vs_base[0];          base0[3]= vs_base[0];
6987          V641= base0[3];          V657= base0[3];
6988          goto T2509;          goto T2577;
6989  T2509:;  T2577:;
6990          setq(VV[89],make_cons(V641,cdr(symbol_value(VV[89]))));          (VV[88]->s.s_dbind)= make_cons(V657,CMPcdr((VV[88]->s.s_dbind)));
6991          goto T2503;          goto T2569;
6992  T2503:;  T2569:;
6993          base[2]= (V639);          base[2]= (V655);
6994          base[3]= structure_ref(symbol_value(VV[97]),VV[39],0);          base[3]= STREF(object,(VV[99]->s.s_dbind),0);
6995          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6996          (void) (*Lnk351)();          (void) (*Lnk360)();
6997          vs_top=sup;          vs_top=sup;
6998          V640= vs_base[0];          V656= vs_base[0];
6999          if(((V640))==Cnil){          if(((V656))==Cnil){
7000          goto T2511;}          goto T2579;}
7001          base[3]= car((V640));          base[3]= CMPcar((V656));
7002          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7003          Lsymbol_function();          Lsymbol_function();
7004          vs_top=sup;          vs_top=sup;
7005          base[2]= vs_base[0];          base[2]= vs_base[0];
7006          {object V642;          {object V658;
7007          V642= cdr((V640));          V658= CMPcdr((V656));
7008           vs_top=base+3;           vs_top=base+3;
7009           while(!endp(V642))           while(V658!=Cnil)
7010           {vs_push(car(V642));V642=cdr(V642);}           {vs_push((V658)->c.c_car);V658=(V658)->c.c_cdr;}
7011          vs_base=base+3;}          vs_base=base+3;}
7012          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
7013          vs_top=sup;          vs_top=sup;
7014          if(!(((VV[109]->s.s_dbind))==Cnil)){          if(!(((VV[111]->s.s_dbind))==Cnil)){
7015          goto T2512;}          goto T2580;}
7016          goto T2511;          goto T2579;
7017  T2511:;  T2579:;
7018          base[2]= VV[154];          base[2]= VV[157];
7019          base[3]= (V639);          base[3]= (V655);
7020          base[4]= (V637);          base[4]= (V653);
7021          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7022          (void) (*Lnk347)();          (void) (*Lnk354)();
7023          vs_top=sup;          vs_top=sup;
7024          bds_unwind1;          bds_unwind1;
7025          goto T2492;          goto T2558;
7026          goto T2512;          goto T2580;
7027  T2512:;  T2580:;
7028          base[2]= (VV[109]->s.s_dbind);          base[2]= (VV[111]->s.s_dbind);
7029          base[3]= (V638);          base[3]= (V654);
7030          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7031          Lreconc();          Lreconc();
7032          vs_top=sup;          vs_top=sup;
7033          V638= vs_base[0];          V654= vs_base[0];
7034          bds_unwind1;}          bds_unwind1;}
7035          goto T2492;          goto T2558;
7036  T2492:;  T2558:;
7037          base[1]= car(symbol_value(VV[89]));          base0[4]= Cnil;
7038          base[2]= VV[155];          base[1]= CMPcar((VV[88]->s.s_dbind));
7039            base[2]= VV[158];
7040          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7041          (void) (*Lnk357)();          (void) (*Lnk369)();
7042          vs_top=sup;          vs_top=sup;
7043          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7044          goto T2531;}          goto T2601;}
7045          vs_base=vs_top;          vs_base=vs_top;
7046          (void) (*Lnk350)();          (void) (*Lnk359)();
7047          vs_top=sup;          vs_top=sup;
7048          goto T2529;          goto T2599;
7049          goto T2531;          goto T2601;
7050  T2531:;  T2601:;
7051          if((cdr((V638)))==Cnil){          if((CMPcdr((V654)))==Cnil){
7052          goto T2536;}          goto T2606;}
7053          V643= nreverse((V638));          V659= nreverse((V654));
7054          base[1]= make_cons(VV[14],/* INLINE-ARGS */V643);          base[1]= make_cons(VV[14],/* INLINE-ARGS */V659);
7055          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7056          return;          return;
7057          goto T2536;          goto T2606;
7058  T2536:;  T2606:;
7059          base[1]= car((V638));          base[1]= CMPcar((V654));
7060          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7061          return;          return;
7062          goto T2529;          goto T2599;
7063  T2529:;  T2599:;
7064          goto T2489;}          goto T2555;}
7065          }          }
7066  }  }
7067  /*      local function REPLICATE        */  /*      local function REPLICATE        */
7068    
7069  static void L59(base0)  static void L64(base0)
7070  register object *base0;  register object *base0;
7071  {       register object *base=vs_base;  {       register object *base=vs_base;
7072          register object *sup=base+VM96; VC96          register object *sup=base+VM102; VC102
7073          vs_reserve(VM96);          vs_check;
7074          {object V644;          {object V660;
7075          object V645;          object V661;
7076          check_arg(2);          V660=(base[0]);
7077          V644=(base[0]);          V661=(base[1]);
         V645=(base[1]);  
7078          vs_top=sup;          vs_top=sup;
7079          goto TTL;          goto TTL;
7080  TTL:;  TTL:;
7081          if(!(type_of((V645))!=t_cons)){          if(!(type_of((V661))!=t_cons)){
7082          goto T2541;}          goto T2611;}
7083          base[2]= (V644);          base[2]= (V660);
7084          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7085          return;          return;
7086          goto T2541;          goto T2611;
7087  T2541:;  T2611:;
7088          base[2]= (V644);          base[2]= (V660);
7089          base[3]= car((V645));          base[3]= CMPcar((V661));
7090          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7091          L59(base0);          L64(base0);
7092          vs_top=sup;          vs_top=sup;
7093          V646= vs_base[0];          V662= vs_base[0];
7094          base[2]= (V644);          base[2]= (V660);
7095          base[3]= cdr((V645));          base[3]= CMPcdr((V661));
7096          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7097          L59(base0);          L64(base0);
7098          vs_top=sup;          vs_top=sup;
7099          V647= vs_base[0];          V663= vs_base[0];
7100          base[2]= make_cons(V646,V647);          base[2]= make_cons(V662,V663);
7101          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7102          return;          return;
7103          }          }
7104  }  }
7105  /*      local function TRANSLATE        */  /*      local function TRANSLATE        */
7106    
7107  static void L58(base0)  static void L63(base0)
7108  register object *base0;  register object *base0;
7109  {       register object *base=vs_base;  {       register object *base=vs_base;
7110          register object *sup=base+VM97; VC97          register object *sup=base+VM103; VC103
7111          vs_reserve(VM97);          vs_check;
7112          {register object V648;          {register object V664;
7113          register object V649;          register object V665;
7114          check_arg(2);          V664=(base[0]);
7115          V648=(base[0]);          V665=(base[1]);
         V649=(base[1]);  
7116          vs_top=sup;          vs_top=sup;
7117          goto TTL;          goto TTL;
7118  TTL:;  TTL:;
7119          if(((V648))!=Cnil){          if(((V664))!=Cnil){
7120          goto T2550;}          goto T2620;}
7121          base[2]= Cnil;          base[2]= Cnil;
7122          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7123          return;          return;
7124          goto T2550;          goto T2620;
7125  T2550:;  T2620:;
7126          if(!(type_of((V648))!=t_cons)){          if(!(type_of((V664))!=t_cons)){
7127          goto T2553;}{object V650;          goto T2623;}{object V666;
7128          base[3]= (V648);          base[3]= (V664);
7129          base[4]= structure_ref(symbol_value(VV[97]),VV[39],4);          base[4]= STREF(object,(VV[99]->s.s_dbind),16);
7130          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7131          Lgethash();          Lgethash();
7132          vs_top=sup;          vs_top=sup;
7133          V650= vs_base[0];          V666= vs_base[0];
7134          if(V650==Cnil)goto T2556;          if(V666==Cnil)goto T2626;
7135          base[2]= V650;          base[2]= V666;
7136          goto T2555;          goto T2625;
7137          goto T2556;          goto T2626;
7138  T2556:;}{object V651;  T2626:;}{object V667;
7139          base[3]= symbol_name((V648));          base[3]= symbol_name((V664));
7140          base[4]= structure_ref(symbol_value(VV[97]),VV[39],5);          base[4]= STREF(object,(VV[99]->s.s_dbind),20);
7141          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7142          Lgethash();          Lgethash();
7143          vs_top=sup;          vs_top=sup;
7144          V651= vs_base[0];          V667= vs_base[0];
7145          if(V651==Cnil)goto T2560;          if(V667==Cnil)goto T2630;
7146          base[2]= V651;          base[2]= V667;
7147          goto T2555;          goto T2625;
7148          goto T2560;          goto T2630;
7149  T2560:;}  T2630:;}
7150          base[3]= VV[140];          base[3]= VV[144];
7151          base[4]= base0[1];          base[4]= base0[1];
7152          base[5]= (V648);          base[5]= (V664);
7153          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7154          (void) (*Lnk347)();          (void) (*Lnk354)();
7155          vs_top=sup;          vs_top=sup;
7156          base[2]= vs_base[0];          base[2]= vs_base[0];
7157          goto T2555;          goto T2625;
7158  T2555:;  T2625:;
7159          base[3]= (V649);          base[3]= (V665);
7160          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7161          L59(base0);          L64(base0);
7162          return;          return;
7163          goto T2553;          goto T2623;
7164  T2553:;  T2623:;
7165          if(!(type_of((V649))!=t_cons)){          if(!(type_of((V665))!=t_cons)){
7166          goto T2569;}          goto T2639;}
7167          base[2]= VV[141];          base[2]= VV[145];
7168          base[3]= base0[1];          base[3]= base0[1];
7169          base[4]= base0[0];          base[4]= base0[0];
7170          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7171          (void) (*Lnk347)();          (void) (*Lnk354)();
7172          return;          return;
7173          goto T2569;          goto T2639;
7174  T2569:;  T2639:;
7175          base[2]= car((V648));          base[2]= CMPcar((V664));
7176          base[3]= car((V649));          base[3]= CMPcar((V665));
7177          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7178          L58(base0);          L63(base0);
7179          vs_top=sup;          vs_top=sup;
7180          V652= vs_base[0];          V668= vs_base[0];
7181          base[2]= cdr((V648));          base[2]= CMPcdr((V664));
7182          base[3]= cdr((V649));          base[3]= CMPcdr((V665));
7183          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7184          L58(base0);          L63(base0);
7185          vs_top=sup;          vs_top=sup;
7186          V653= vs_base[0];          V669= vs_base[0];
7187          base[2]= make_cons(V652,V653);          base[2]= make_cons(V668,V669);
7188          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7189          return;          return;
7190          }          }
# Line 7058  T2569:; Line 7194  T2569:;
7194  static void L40(base0)  static void L40(base0)
7195  register object *base0;  register object *base0;
7196  {       register object *base=vs_base;  {       register object *base=vs_base;
7197          register object *sup=base+VM98; VC98          register object *sup=base+VM104; VC104
7198          vs_reserve(VM98);          vs_check;
7199          {object V654;          {object V670;
7200          check_arg(1);          V670=(base[0]);
         V654=(base[0]);  
7201          vs_top=sup;          vs_top=sup;
7202          goto TTL;          goto TTL;
7203  TTL:;  TTL:;
7204          {long V655;          {long V671;
7205          V655= 0;          V671= 0;
7206          {register object V656;          {register object V672;
7207          object V657;          object V673;
7208          V656= (V654);          V672= (V670);
7209          V657= car((V656));          V673= CMPcar((V672));
7210          goto T2584;          goto T2654;
7211  T2584:;  T2654:;
7212          if(!(endp_prop((V656)))){          if(!(((V672))==Cnil)){
7213          goto T2585;}          goto T2655;}
7214          base[2]= make_fixnum(V655);          base[2]= CMPmake_fixnum(V671);
7215          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7216          return;          return;
7217          goto T2585;          goto T2655;
7218  T2585:;  T2655:;
7219          V658 = make_fixnum(V655);          V674 = CMPmake_fixnum(V671);
7220          base[2]= (V657);          base[2]= (V673);
7221          base[3]= base0[1];          base[3]= base0[1];
7222          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7223          (void) (*Lnk342)();          (void) (*Lnk349)();
7224          vs_top=sup;          vs_top=sup;
7225          V659= vs_base[0];          V675= vs_base[0];
7226          V655= fix(number_plus(V658,V659));          V671= fix(number_plus(V674,V675));
7227          V656= cdr((V656));          V672= CMPcdr((V672));
7228          V657= car((V656));          V673= CMPcar((V672));
7229          goto T2584;}}          goto T2654;}}
7230          }          }
7231  }  }
7232  /*      local function MAKEBODY */  /*      local function MAKEBODY */
# Line 7099  T2585:; Line 7234  T2585:;
7234  static void L35(base0)  static void L35(base0)
7235  register object *base0;  register object *base0;
7236  {       register object *base=vs_base;  {       register object *base=vs_base;
7237          register object *sup=base+VM99; VC99          register object *sup=base+VM105; VC105
7238          vs_reserve(VM99);          vs_check;
         check_arg(0);  
7239          vs_top=sup;          vs_top=sup;
7240          goto TTL;          goto TTL;
7241  TTL:;  TTL:;
7242          {object V660;          {object V676;
7243          V662= nreverse(base0[7]);          V678= nreverse(base0[7]);
7244          base[0]= append(base0[2],/* INLINE-ARGS */V662);          base[0]= append(base0[2],/* INLINE-ARGS */V678);
7245          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7246          L33(base0);          L33(base0);
7247          vs_top=sup;          vs_top=sup;
7248          V661= vs_base[0];          V677= vs_base[0];
7249          base[1]= base0[8];          base[1]= base0[8];
7250          base[2]= VV[75];          base[2]= VV[75];
7251          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7252          Lreconc();          Lreconc();
7253          vs_top=sup;          vs_top=sup;
7254          V664= vs_base[0];          V680= vs_base[0];
7255          base[0]= append(base0[4],V664);          base[0]= append(base0[4],V680);
7256          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7257          L33(base0);          L33(base0);
7258          vs_top=sup;          vs_top=sup;
7259          V663= vs_base[0];          V679= vs_base[0];
7260          base[0]= base0[6];          base[0]= base0[6];
7261          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7262          L33(base0);          L33(base0);
7263          vs_top=sup;          vs_top=sup;
7264          V665= vs_base[0];          V681= vs_base[0];
7265          V666= make_cons(VV[76],V665);          V682= make_cons(VV[76],V681);
7266          V667= append(V663,/* INLINE-ARGS */V666);          V683= append(V679,/* INLINE-ARGS */V682);
7267          V668= make_cons(VV[74],/* INLINE-ARGS */V667);          V684= make_cons(VV[74],/* INLINE-ARGS */V683);
7268          V669= append(V661,/* INLINE-ARGS */V668);          V685= append(V677,/* INLINE-ARGS */V684);
7269          V660= make_cons(VV[73],/* INLINE-ARGS */V669);          V676= make_cons(VV[73],/* INLINE-ARGS */V685);
7270          if((base0[9])==Cnil){          if((base0[9])==Cnil){
7271          goto T2610;}          goto T2680;}
7272          V670= list(2,base0[9],Cnil);          V686= list(2,base0[9],Cnil);
7273          base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V670,Cnil),(V660));          base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V686,Cnil),(V676));
7274          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7275          return;          return;
7276          goto T2610;          goto T2680;
7277  T2610:;  T2680:;
7278          base[0]= (V660);          base[0]= (V676);
7279          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7280          return;}          return;}
7281  }  }
# Line 7150  T2610:; Line 7284  T2610:;
7284  static void L34(base0)  static void L34(base0)
7285  register object *base0;  register object *base0;
7286  {       register object *base=vs_base;  {       register object *base=vs_base;
7287          register object *sup=base+VM100; VC100          register object *sup=base+VM106; VC106
7288          vs_reserve(VM100);          vs_check;
7289          {object V671;          {object V687;
7290          check_arg(1);          V687=(base[0]);
         V671=(base[0]);  
7291          vs_top=sup;          vs_top=sup;
7292          goto TTL;          goto TTL;
7293  TTL:;  TTL:;
7294          if((cdr((V671)))!=Cnil){          if((CMPcdr((V687)))!=Cnil){
7295          goto T2613;}          goto T2683;}
7296          base[1]= car((V671));          base[1]= CMPcar((V687));
7297          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7298          return;          return;
7299          goto T2613;          goto T2683;
7300  T2613:;  T2683:;
7301          base[1]= make_cons(VV[14],(V671));          base[1]= make_cons(VV[14],(V687));
7302          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7303          return;          return;
7304          }          }
# Line 7175  T2613:; Line 7308  T2613:;
7308  static void L33(base0)  static void L33(base0)
7309  register object *base0;  register object *base0;
7310  {       register object *base=vs_base;  {       register object *base=vs_base;
7311          register object *sup=base+VM101; VC101          register object *sup=base+VM107; VC107
7312          vs_reserve(VM101);          vs_check;
7313          {object V672;          {object V688;
7314          check_arg(1);          V688=(base[0]);
         V672=(base[0]);  
7315          vs_top=sup;          vs_top=sup;
7316          goto TTL;          goto TTL;
7317  TTL:;  TTL:;
7318          {register object V673;          {register object V689;
7319          V673= Cnil;          V689= Cnil;
7320          {register object V674;          {register object V690;
7321          register object V675;          register object V691;
7322          V674= (V672);          V690= (V688);
7323          V675= car((V674));          V691= CMPcar((V690));
7324          goto T2619;          goto T2689;
7325  T2619:;  T2689:;
7326          if(!(endp_prop((V674)))){          if(!(((V690))==Cnil)){
7327          goto T2620;}          goto T2690;}
7328          goto T2615;          goto T2685;
7329          goto T2620;          goto T2690;
7330  T2620:;  T2690:;
7331          if(((V675))==Cnil){          if(((V691))==Cnil){
7332          goto T2624;}          goto T2694;}
7333          {register object V676;          {register object V692;
7334          V676= (V675);          V692= (V691);
7335          V673= make_cons((V676),(V673));}          V689= make_cons((V692),(V689));}
7336          if(!(type_of((V675))==t_cons)){          if(!(type_of((V691))==t_cons)){
7337          goto T2624;}          goto T2694;}
7338          {register object x= car((V675)),V677= VV[72];          {register object x= CMPcar((V691)),V693= VV[72];
7339          while(!endp(V677))          while(V693!=Cnil)
7340          if(eql(x,V677->c.c_car)){          if(eql(x,V693->c.c_car)){
7341          goto T2633;          goto T2703;
7342          }else V677=V677->c.c_cdr;          }else V693=V693->c.c_cdr;
7343          goto T2624;}          goto T2694;}
7344          goto T2633;          goto T2703;
7345  T2633:;  T2703:;
7346          goto T2615;          goto T2685;
7347          goto T2624;          goto T2694;
7348  T2624:;  T2694:;
7349          V674= cdr((V674));          V690= CMPcdr((V690));
7350          V675= car((V674));          V691= CMPcar((V690));
7351          goto T2619;}          goto T2689;}
7352          goto T2615;          goto T2685;
7353  T2615:;  T2685:;
7354          base[1]= nreverse((V673));          base[1]= nreverse((V689));
7355          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7356          return;}          return;}
7357          }          }
# Line 7229  T2615:; Line 7361  T2615:;
7361  static void L27(base0)  static void L27(base0)
7362  register object *base0;  register object *base0;
7363  {       register object *base=vs_base;  {       register object *base=vs_base;
7364          register object *sup=base+VM102; VC102          register object *sup=base+VM108; VC108
7365          vs_reserve(VM102);          vs_check;
7366          {object V678;          {object V694;
7367          check_arg(1);          V694=(base[0]);
         V678=(base[0]);  
7368          vs_top=sup;          vs_top=sup;
7369          goto TTL;          goto TTL;
7370  TTL:;  TTL:;
7371          {register object V679;          {register object V695;
7372          V679= (V678);          V695= (V694);
7373          goto T2640;          goto T2710;
7374  T2640:;  T2710:;
7375          if(type_of((V679))==t_cons){          if(type_of((V695))==t_cons){
7376          goto T2641;}          goto T2711;}
7377          base[1]= (V679);          base[1]= (V695);
7378          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7379          return;          return;
7380          goto T2641;          goto T2711;
7381  T2641:;  T2711:;
7382          {register object V680;          {register object V696;
7383          V680= car((V679));          V696= CMPcar((V695));
7384          V679= cdr((V679));          V695= CMPcdr((V695));
7385          base[1]= (V680);}          base[1]= (V696);}
7386          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7387          L27(base0);          L27(base0);
7388          vs_top=sup;          vs_top=sup;
7389          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7390          goto T2645;}          goto T2715;}
7391          base[1]= Ct;          base[1]= Ct;
7392          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7393          return;          return;
7394          goto T2645;          goto T2715;
7395  T2645:;  T2715:;
7396          goto T2640;}          goto T2710;}
7397          }          }
7398  }  }
7399  /*      local function LOOP-DESETQ-INTERNAL     */  /*      local function LOOP-DESETQ-INTERNAL     */
# Line 7270  T2645:; Line 7401  T2645:;
7401  static void L28(base0)  static void L28(base0)
7402  register object *base0;  register object *base0;
7403  {       register object *base=vs_base;  {       register object *base=vs_base;
7404          register object *sup=base+VM103; VC103          register object *sup=base+VM109; VC109
7405          vs_reserve(VM103);          vs_check;
7406          {register object V681;          {register object V697;
7407          register object V682;          register object V698;
7408          object V683;          object V699;
7409          if(vs_top-vs_base<2) too_few_arguments();          V697=(base[0]);
7410          if(vs_top-vs_base>3) too_many_arguments();          V698=(base[1]);
         V681=(base[0]);  
         V682=(base[1]);  
7411          vs_base=vs_base+2;          vs_base=vs_base+2;
7412          if(vs_base>=vs_top){vs_top=sup;goto T2654;}          if(vs_base>=vs_top){vs_top=sup;goto T2724;}
7413          V683=(base[2]);          V699=(base[2]);
7414          vs_top=sup;          vs_top=sup;
7415          goto T2655;          goto T2725;
7416          goto T2654;          goto T2724;
7417  T2654:;  T2724:;
7418          V683= Cnil;          V699= Cnil;
7419          goto T2655;          goto T2725;
7420  T2655:;  T2725:;
7421          {register object V684;          {register object V700;
7422          V684= (V681);          V700= (V697);
7423          if(!(((V684))==Cnil)){          if(!(((V700))==Cnil)){
7424          goto T2658;}          goto T2728;}
7425          if(!(type_of((V682))==t_cons)){          if(!(type_of((V698))==t_cons)){
7426          goto T2661;}          goto T2731;}
7427          if(!((car((V682)))==(VV[62]))){          if(!((CMPcar((V698)))==(VV[62]))){
7428          goto T2664;}          goto T2734;}
7429          {object V685;          {object V701;
7430          object V686= cdr((V682));          object V702= CMPcdr((V698));
7431          if(endp(V686)){          if(V702==Cnil){
7432          base[4]= Cnil;          base[4]= Cnil;
7433          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7434          return;}          return;}
7435          base[3]=V685=MMcons(Cnil,Cnil);          base[3]=V701=MMcons(Cnil,Cnil);
7436          goto T2666;          goto T2736;
7437  T2666:;  T2736:;
7438          {register object V687;          {register object V703;
7439          V687= (V686->c.c_car);          V703= (V702->c.c_car);
7440          if(type_of((V687))==t_cons){          if(type_of((V703))==t_cons){
7441          goto T2668;}          goto T2738;}
7442          (V685->c.c_cdr)= Cnil;          (V701->c.c_cdr)= Cnil;
7443          goto T2667;          goto T2737;
7444          goto T2668;          goto T2738;
7445  T2668:;  T2738:;
7446          if(!((((car((V687)))==(VV[65])?Ct:Cnil))==Cnil)){          if(!((((CMPcar((V703)))==(VV[65])?Ct:Cnil))==Cnil)){
7447          goto T2672;}          goto T2742;}
7448          goto T2670;          goto T2740;
7449          goto T2672;          goto T2742;
7450  T2672:;  T2742:;
7451          if(!(((type_of(cadr((V687)))==t_symbol?Ct:Cnil))==Cnil)){          if(!(((type_of(CMPcadr((V703)))==t_symbol?Ct:Cnil))==Cnil)){
7452          goto T2674;}          goto T2744;}
7453          goto T2670;          goto T2740;
7454          goto T2674;          goto T2744;
7455  T2674:;  T2744:;
7456          base[4]= (V687);          base[4]= (V703);
7457          base[5]= base0[1];          base[5]= base0[1];
7458          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7459          Lmacroexpand();          Lmacroexpand();
7460          vs_top=sup;          vs_top=sup;
7461          V687= vs_base[0];          V703= vs_base[0];
7462          if(((type_of((V687))==t_symbol?Ct:Cnil))==Cnil){          if(((type_of((V703))==t_symbol?Ct:Cnil))==Cnil){
7463          goto T2670;}          goto T2740;}
7464          (V685->c.c_cdr)= Cnil;          (V701->c.c_cdr)= Cnil;
7465          goto T2667;          goto T2737;
7466          goto T2670;          goto T2740;
7467  T2670:;  T2740:;
7468          (V685->c.c_cdr)= make_cons((V687),Cnil);}          (V701->c.c_cdr)= make_cons((V703),Cnil);}
7469          goto T2667;          goto T2737;
7470  T2667:;  T2737:;
7471          {object cdr_V685=MMcdr(V685);while(!endp(cdr_V685)) {cdr_V685=MMcdr(cdr_V685);V685=MMcdr(V685);}}          while(MMcdr(V701)!=Cnil)V701=MMcdr(V701);
7472          V686=MMcdr(V686);          if((V702=MMcdr(V702))==Cnil){
         if(endp(V686)){  
7473          base[3]=base[3]->c.c_cdr;          base[3]=base[3]->c.c_cdr;
7474          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7475          return;}          return;}
7476          goto T2666;}          goto T2736;}
7477          goto T2664;          goto T2734;
7478  T2664:;  T2734:;
7479          base[3]= make_cons((V682),Cnil);          base[3]= make_cons((V698),Cnil);
7480          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7481          return;          return;
7482          goto T2661;          goto T2731;
7483  T2661:;  T2731:;
7484          base[3]= Cnil;          base[3]= Cnil;
7485          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7486          return;          return;
7487          goto T2658;          goto T2728;
7488  T2658:;  T2728:;
7489          if(!(type_of((V684))==t_cons)){          if(!(type_of((V700))==t_cons)){
7490          goto T2680;}          goto T2750;}
7491          {object V688;          {object V704;
7492          object V689;          object V705;
7493          object V690;          object V706;
7494          object V691;          object V707;
7495          V688= car((V681));          V704= CMPcar((V697));
7496          V689= cdr((V681));          V705= CMPcdr((V697));
7497          base[7]= (V688);          base[7]= (V704);
7498          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
7499          L27(base0);          L27(base0);
7500          vs_top=sup;          vs_top=sup;
7501          V690= vs_base[0];          V706= vs_base[0];
7502          base[7]= (V689);          base[7]= (V705);
7503          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
7504          L27(base0);          L27(base0);
7505          vs_top=sup;          vs_top=sup;
7506          V691= vs_base[0];          V707= vs_base[0];
7507          if(((V690))!=Cnil){          if(((V706))!=Cnil){
7508          goto T2688;}          goto T2758;}
7509          if(((V691))==Cnil){          if(((V707))==Cnil){
7510          goto T2689;}          goto T2759;}
7511          goto T2688;          goto T2758;
7512  T2688:;  T2758:;
7513          if(((V691))==Cnil){          if(((V707))==Cnil){
7514          goto T2694;}          goto T2764;}
7515          {register object V693;          {register object V709;
7516          object V694;          object V710;
7517          if((V683)!=Cnil){          if((V699)!=Cnil){
7518          V693= (V683);          V709= (V699);
7519          goto T2696;}          goto T2766;}
7520          V693= symbol_value(VV[66]);          V709= (VV[66]->s.s_dbind);
7521          goto T2696;          goto T2766;
7522  T2696:;  T2766:;
7523          base[9]= (V688);          base[9]= (V704);
7524          base[10]= list(2,VV[65],(V693));          base[10]= list(2,VV[65],(V709));
7525          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
7526          L28(base0);          L28(base0);
7527          vs_top=sup;          vs_top=sup;
7528          V695= vs_base[0];          V711= vs_base[0];
7529          V696= list(3,VV[11],(V693),list(2,VV[10],(V693)));          V712= list(3,VV[11],(V709),list(2,VV[10],(V709)));
7530          base[9]= (V689);          base[9]= (V705);
7531          base[10]= (V693);          base[10]= (V709);
7532          base[11]= (V693);          base[11]= (V709);
7533          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
7534          L28(base0);          L28(base0);
7535          vs_top=sup;          vs_top=sup;
7536          V697= vs_base[0];          V713= vs_base[0];
7537          V698= make_cons(/* INLINE-ARGS */V696,V697);          V714= make_cons(/* INLINE-ARGS */V712,V713);
7538          V694= append(V695,/* INLINE-ARGS */V698);          V710= append(V711,/* INLINE-ARGS */V714);
7539          if((V683)==Cnil){          if((V699)==Cnil){
7540          goto T2706;}          goto T2776;}
7541          if(((V693))==((V682))){          if(((V709))==((V698))){
7542          goto T2710;}          goto T2780;}
7543          V700= list(3,VV[11],(V693),(V682));          V716= list(3,VV[11],(V709),(V698));
7544          V699= make_cons(/* INLINE-ARGS */V700,Cnil);          V715= make_cons(/* INLINE-ARGS */V716,Cnil);
7545          goto T2708;          goto T2778;
7546          goto T2710;          goto T2780;
7547  T2710:;  T2780:;
7548          V699= Cnil;          V715= Cnil;
7549          goto T2708;          goto T2778;
7550  T2708:;  T2778:;
7551          base[9]= append(V699,(V694));          base[9]= append(V715,(V710));
7552          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7553          return;          return;
7554          goto T2706;          goto T2776;
7555  T2706:;  T2776:;
7556          V701= list(2,(V693),(V682));          V717= list(2,(V709),(V698));
7557          V702= listA(3,VV[29],make_cons(/* INLINE-ARGS */V701,Cnil),(V694));          V718= listA(3,VV[29],make_cons(/* INLINE-ARGS */V717,Cnil),(V710));
7558          base[9]= make_cons(/* INLINE-ARGS */V702,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V718,Cnil);
7559          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7560          return;}          return;}
7561          goto T2694;          goto T2764;
7562  T2694:;  T2764:;
7563          base[7]= (V688);          base[7]= (V704);
7564          base[8]= list(2,VV[65],(V682));          base[8]= list(2,VV[65],(V698));
7565          base[9]= (V683);          base[9]= (V699);
7566          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
7567          L28(base0);          L28(base0);
7568          return;          return;
7569          goto T2689;          goto T2759;
7570  T2689:;  T2759:;
7571          base[7]= Cnil;          base[7]= Cnil;
7572          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
7573          return;}          return;}
7574          goto T2680;          goto T2750;
7575  T2680:;  T2750:;
7576          if(((V681))==((V682))){          if(((V697))==((V698))){
7577          goto T2716;}          goto T2786;}
7578          V703= list(3,VV[11],(V681),(V682));          V719= list(3,VV[11],(V697),(V698));
7579          base[3]= make_cons(/* INLINE-ARGS */V703,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V719,Cnil);
7580          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7581          return;          return;
7582          goto T2716;          goto T2786;
7583  T2716:;  T2786:;
7584          base[3]= Cnil;          base[3]= Cnil;
7585          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7586          return;}          return;}
# Line 7463  T2716:; Line 7591  T2716:;
7591  static void L23(base0)  static void L23(base0)
7592  register object *base0;  register object *base0;
7593  {       register object *base=vs_base;  {       register object *base=vs_base;
7594          register object *sup=base+VM104; VC104          register object *sup=base+VM110; VC110
7595          vs_reserve(VM104);          vs_check;
7596          {object V704;          {object V720;
7597          check_arg(1);          V720=(base[0]);
         V704=(base[0]);  
7598          vs_top=sup;          vs_top=sup;
7599          goto TTL;          goto TTL;
7600  TTL:;  TTL:;
7601          {object V705;          {object V721;
7602          object V706;          object V722;
7603          V705= make_fixnum((long)length((V704)));          V721= CMPmake_fixnum((long)length((V720)));
7604          base[3]= VV[61];          base[3]= VV[61];
7605          if(!(number_compare((V705),small_fixnum(10))<0)){          if(!(number_compare((V721),small_fixnum(10))<0)){
7606          goto T2723;}          goto T2793;}
7607          base[4]= small_fixnum(10);          base[4]= small_fixnum(10);
7608          goto T2721;          goto T2791;
7609          goto T2723;          goto T2793;
7610  T2723:;  T2793:;
7611          base[4]= (V705);          base[4]= (V721);
7612          goto T2721;          goto T2791;
7613  T2721:;  T2791:;
7614          base[5]= VV[20];          base[5]= VV[20];
7615          base[6]= symbol_function(VV[401]);          base[6]= (VV[414]->s.s_gfdef);
7616          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
7617          Lmake_hash_table();          Lmake_hash_table();
7618          vs_top=sup;          vs_top=sup;
7619          V706= vs_base[0];          V722= vs_base[0];
7620          {register object V707;          {register object V723;
7621          register object V708;          register object V724;
7622          V707= (V704);          V723= (V720);
7623          V708= car((V707));          V724= CMPcar((V723));
7624          goto T2731;          goto T2801;
7625  T2731:;  T2801:;
7626          if(!(endp_prop((V707)))){          if(!(((V723))==Cnil)){
7627          goto T2732;}          goto T2802;}
7628          goto T2727;          goto T2797;
7629          goto T2732;          goto T2802;
7630  T2732:;  T2802:;
7631          {object V709;          {object V725;
7632          object V711;          object V727;
7633          V709= symbol_name(car((V708)));          V725= symbol_name(CMPcar((V724)));
7634          V711= cadr((V708));          V727= CMPcadr((V724));
7635          base[6]= (V709);          base[6]= (V725);
7636          base[7]= V706;          base[7]= V722;
7637          base[8]= (V711);          base[8]= (V727);
7638          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
7639          siLhash_set();          siLhash_set();
7640          vs_top=sup;}          vs_top=sup;}
7641          V707= cdr((V707));          V723= CMPcdr((V723));
7642          V708= car((V707));          V724= CMPcar((V723));
7643          goto T2731;}          goto T2801;}
7644          goto T2727;          goto T2797;
7645  T2727:;  T2797:;
7646          base[3]= (V706);          base[3]= (V722);
7647          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7648          return;}          return;}
7649          }          }
# Line 7526  T2727:; Line 7653  T2727:;
7653  static void L8(base0)  static void L8(base0)
7654  register object *base0;  register object *base0;
7655  {       register object *base=vs_base;  {       register object *base=vs_base;
7656          register object *sup=base+VM105; VC105          register object *sup=base+VM111; VC111
7657          vs_reserve(VM105);          vs_check;
7658          {register object V712;          {register object V728;
7659          register long V713;          register long V729;
7660          check_arg(2);          V728=(base[0]);
7661          V712=(base[0]);          V729=fix(base[1]);
         V713=fix(base[1]);  
7662          vs_top=sup;          vs_top=sup;
7663          goto TTL;          goto TTL;
7664  TTL:;  TTL:;
7665          goto T2748;          goto T2818;
7666  T2748:;  T2818:;
7667          if(!((V713)<=(4))){          if(!((V729)<=(4))){
7668          goto T2749;}switch(V713){          goto T2819;}switch(V729){
7669          case 1:          case 1:
7670          goto T2755;          goto T2825;
7671  T2755:;  T2825:;
7672          V714= VV[10];          V730= VV[10];
7673          goto T2753;          goto T2823;
7674          case 2:          case 2:
7675          goto T2756;          goto T2826;
7676  T2756:;  T2826:;
7677          V714= VV[15];          V730= VV[15];
7678          goto T2753;          goto T2823;
7679          case 3:          case 3:
7680          goto T2757;          goto T2827;
7681  T2757:;  T2827:;
7682          V714= VV[16];          V730= VV[16];
7683          goto T2753;          goto T2823;
7684          case 4:          case 4:
7685          goto T2758;          goto T2828;
7686  T2758:;  T2828:;
7687          V714= VV[17];          V730= VV[17];
7688          goto T2753;          goto T2823;
7689          default:          default:
7690          goto T2759;          goto T2829;
7691  T2759:;  T2829:;
7692          V714= Cnil;          V730= Cnil;
7693          goto T2753;}          goto T2823;}
7694          V714= Cnil;          V730= Cnil;
7695          goto T2753;          goto T2823;
7696  T2753:;  T2823:;
7697          V712= list(2,V714,(V712));          V728= list(2,V730,(V728));
7698          base[2]= (V712);          base[2]= (V728);
7699          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7700          return;          return;
7701          goto T2749;          goto T2819;
7702  T2749:;  T2819:;
7703          V712= list(2,VV[17],(V712));          V728= list(2,VV[17],(V728));
7704          V713= (long)(V713)-(4);          V729= (long)(V729)-(4);
7705          goto T2748;          goto T2818;
7706          }          }
7707  }  }
7708  static void LnkT400(){ call_or_link(VV[400],(void **)(void *)&Lnk400);} /* LOOP-STANDARD-EXPANSION */  static void LnkT413(){ call_or_link(VV[413],(void **)(void *)&Lnk413);} /* LOOP-STANDARD-EXPANSION */
7709  static void LnkT399(){ call_or_link(VV[399],(void **)(void *)&Lnk399);} /* LOOP-TRANSLATE */  static void LnkT412(){ call_or_link(VV[412],(void **)(void *)&Lnk412);} /* LOOP-TRANSLATE */
7710  static void LnkT398(){ call_or_link(VV[398],(void **)(void *)&Lnk398);} /* ADD-LOOP-PATH */  static void LnkT411(){ call_or_link(VV[411],(void **)(void *)&Lnk411);} /* ADD-LOOP-PATH */
7711  static void LnkT397(){ call_or_link(VV[397],(void **)(void *)&Lnk397);} /* MAKE-STANDARD-LOOP-UNIVERSE */  static void LnkT410(){ call_or_link(VV[410],(void **)(void *)&Lnk410);} /* MAKE-STANDARD-LOOP-UNIVERSE */
7712  static void LnkT394(){ call_or_link(VV[394],(void **)(void *)&Lnk394);} /* NAMED-VARIABLE */  static void LnkT407(){ call_or_link(VV[407],(void **)(void *)&Lnk407);} /* NAMED-VARIABLE */
7713  static void LnkT389(){ call_or_link(VV[389],(void **)(void *)&Lnk389);} /* LOOP-SEQUENCER */  static void LnkT402(){ call_or_link(VV[402],(void **)(void *)&Lnk402);} /* LOOP-SEQUENCER */
7714  static object  LnkTLI386(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[386],(void **)(void *)&LnkLI386,first,ap);va_end(ap);return V1;} /* DELETE */  static void LnkT399(){ call_or_link(VV[399],(void **)(void *)&Lnk399);} /* DELETE */
7715  static void LnkT385(){ call_or_link(VV[385],(void **)(void *)&Lnk385);} /* LOOP-TASSOC */  static void LnkT398(){ call_or_link(VV[398],(void **)(void *)&Lnk398);} /* LOOP-TASSOC */
7716  static void LnkT384(){ call_or_link(VV[384],(void **)(void *)&Lnk384);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */  static void LnkT397(){ call_or_link(VV[397],(void **)(void *)&Lnk397);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */
7717  static void LnkT383(){ call_or_link(VV[383],(void **)(void *)&Lnk383);} /* MAKE-LOOP-PATH */  static void LnkT396(){ call_or_link(VV[396],(void **)(void *)&Lnk396);} /* MAKE-LOOP-PATH */
7718  static void LnkT382(){ call_or_link(VV[382],(void **)(void *)&Lnk382);} /* STRUCTURE-SUBTYPE-P */  static void LnkT395(){ call_or_link(VV[395],(void **)(void *)&Lnk395);} /* STRUCTURE-SUBTYPE-P */
7719  static void LnkT381(){ call_or_link(VV[381],(void **)(void *)&Lnk381);} /* LOOP-LIST-STEP */  static void LnkT394(){ call_or_link(VV[394],(void **)(void *)&Lnk394);} /* LOOP-LIST-STEP */
7720  static void LnkT380(){ call_or_link(VV[380],(void **)(void *)&Lnk380);} /* LOOP-MAKE-ITERATION-VARIABLE */  static void LnkT393(){ call_or_link(VV[393],(void **)(void *)&Lnk393);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */
7721  static void LnkT379(){ call_or_link(VV[379],(void **)(void *)&Lnk379);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */  static void LnkT392(){ call_or_link(VV[392],(void **)(void *)&Lnk392);} /* LOOP-MAKE-ITERATION-VARIABLE */
7722  static void LnkT378(){ call_or_link(VV[378],(void **)(void *)&Lnk378);} /* LOOP-WHEN-IT-VARIABLE */  static void LnkT391(){ call_or_link(VV[391],(void **)(void *)&Lnk391);} /* LOOP-WHEN-IT-VARIABLE */
7723  static void LnkT377(){ call_or_link(VV[377],(void **)(void *)&Lnk377);} /* LOOP-NOTE-MINIMAX-OPERATION */  static void LnkT390(){ call_or_link(VV[390],(void **)(void *)&Lnk390);} /* LOOP-DISALLOW-ANONYMOUS-COLLECTORS */
7724  static void LnkT376(){ call_or_link(VV[376],(void **)(void *)&Lnk376);} /* MAKE-LOOP-MINIMAX */  static void LnkT389(){ call_or_link(VV[389],(void **)(void *)&Lnk389);} /* LOOP-NOTE-MINIMAX-OPERATION */
7725  static void LnkT375(){ call_or_link(VV[375],(void **)(void *)&Lnk375);} /* LOOP-CHECK-DATA-TYPE */  static void LnkT388(){ call_or_link(VV[388],(void **)(void *)&Lnk388);} /* MAKE-LOOP-MINIMAX */
7726  static void LnkT372(){ call_or_link(VV[372],(void **)(void *)&Lnk372);} /* LOOP-EMIT-FINAL-VALUE */  static void LnkT387(){ call_or_link(VV[387],(void **)(void *)&Lnk387);} /* LOOP-CHECK-DATA-TYPE */
7727  static void LnkT371(){ call_or_link(VV[371],(void **)(void *)&Lnk371);} /* LOOP-GET-COLLECTION-INFO */  static void LnkT384(){ call_or_link(VV[384],(void **)(void *)&Lnk384);} /* LOOP-EMIT-FINAL-VALUE */
7728  static void LnkT370(){ call_or_link(VV[370],(void **)(void *)&Lnk370);} /* MAKE-LOOP-COLLECTOR */  static void LnkT383(){ call_or_link(VV[383],(void **)(void *)&Lnk383);} /* LOOP-GET-COLLECTION-INFO */
7729  static object  LnkTLI368(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[368],(void **)(void *)&LnkLI368,first,ap);va_end(ap);return V1;} /* FIND */  static void LnkT382(){ call_or_link(VV[382],(void **)(void *)&Lnk382);} /* MAKE-LOOP-COLLECTOR */
7730  static void LnkT367(){ call_or_link(VV[367],(void **)(void *)&Lnk367);} /* LOOP-OPTIONAL-TYPE */  static void LnkT381(){ call_or_link(VV[381],(void **)(void *)&Lnk381);} /* LOOP-VARIABLE-P */
7731  static void LnkT364(){ call_or_link(VV[364],(void **)(void *)&Lnk364);} /* LOOP-EMIT-BODY */  static void LnkT380(){ call_or_link(VV[380],(void **)(void *)&Lnk380);} /* FIND */
7732  static void LnkT363(){ call_or_link(VV[363],(void **)(void *)&Lnk363);} /* LOOP-GET-PROGN */  static void LnkT379(){ call_or_link(VV[379],(void **)(void *)&Lnk379);} /* LOOP-DISALLOW-AGGREGATE-BOOLEANS */
7733  static void LnkT362(){ call_or_link(VV[362],(void **)(void *)&Lnk362);} /* LOOP-DISALLOW-CONDITIONAL */  static void LnkT378(){ call_or_link(VV[378],(void **)(void *)&Lnk378);} /* LOOP-OPTIONAL-TYPE */
7734  static void LnkT361(){ call_or_link(VV[361],(void **)(void *)&Lnk361);} /* LOOP-GET-FORM */  static void LnkT375(){ call_or_link(VV[375],(void **)(void *)&Lnk375);} /* LOOP-EMIT-BODY */
7735  static void LnkT360(){ call_or_link(VV[360],(void **)(void *)&Lnk360);} /* LOOP-CONSTANTP */  static void LnkT374(){ call_or_link(VV[374],(void **)(void *)&Lnk374);} /* LOOP-GET-PROGN */
7736  static void LnkT359(){ call_or_link(VV[359],(void **)(void *)&Lnk359);} /* LOOP-MAKE-VARIABLE */  static void LnkT373(){ call_or_link(VV[373],(void **)(void *)&Lnk373);} /* LOOP-DISALLOW-CONDITIONAL */
7737  static void LnkT358(){ call_or_link(VV[358],(void **)(void *)&Lnk358);} /* LOOP-DECLARE-VARIABLE */  static void LnkT372(){ call_or_link(VV[372],(void **)(void *)&Lnk372);} /* LOOP-CONSTANTP */
7738  static void LnkT357(){ call_or_link(VV[357],(void **)(void *)&Lnk357);} /* LOOP-TEQUAL */  static void LnkT371(){ call_or_link(VV[371],(void **)(void *)&Lnk371);} /* LOOP-MAKE-VARIABLE */
7739  static object  LnkTLI356(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[356],(void **)(void *)&LnkLI356,2,first,ap);va_end(ap);return V1;} /* COERCE */  static void LnkT370(){ call_or_link(VV[370],(void **)(void *)&Lnk370);} /* LOOP-DECLARE-VARIABLE */
7740  static void LnkT355(){ call_or_link(VV[355],(void **)(void *)&Lnk355);} /* LOOP-CONSTRUCT-RETURN */  static void LnkT369(){ call_or_link(VV[369],(void **)(void *)&Lnk369);} /* LOOP-TEQUAL */
7741  static void LnkT354(){ call_or_link(VV[354],(void **)(void *)&Lnk354);} /* LOOP-PSEUDO-BODY */  static void LnkT368(){ call_or_link(VV[368],(void **)(void *)&Lnk368);} /* COERCE */
7742  static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* LOOP-TMEMBER */  static void LnkT367(){ call_or_link(VV[367],(void **)(void *)&Lnk367);} /* FIND-IF-NOT */
7743  static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* LOOP-HACK-ITERATION */  static void LnkT366(){ call_or_link(VV[366],(void **)(void *)&Lnk366);} /* LOOP-CONSTRUCT-RETURN */
7744  static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* LOOP-LOOKUP-KEYWORD */  static void LnkT365(){ call_or_link(VV[365],(void **)(void *)&Lnk365);} /* LOOP-PSEUDO-BODY */
7745  static void LnkT350(){ call_or_link(VV[350],(void **)(void *)&Lnk350);} /* LOOP-POP-SOURCE */  static void LnkT364(){ call_or_link(VV[364],(void **)(void *)&Lnk364);} /* LOOP-GET-COMPOUND-FORM */
7746  static void LnkT349(){ call_or_link(VV[349],(void **)(void *)&Lnk349);} /* LOOP-BIND-BLOCK */  static void LnkT363(){ call_or_link(VV[363],(void **)(void *)&Lnk363);} /* LOOP-GET-FORM */
7747  static void LnkT348(){ call_or_link(VV[348],(void **)(void *)&Lnk348);} /* LOOP-ITERATION-DRIVER */  static void LnkT362(){ call_or_link(VV[362],(void **)(void *)&Lnk362);} /* LOOP-TMEMBER */
7748  static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* LOOP-ERROR */  static void LnkT361(){ call_or_link(VV[361],(void **)(void *)&Lnk361);} /* LOOP-HACK-ITERATION */
7749  static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* SUBTYPEP */  static void LnkT360(){ call_or_link(VV[360],(void **)(void *)&Lnk360);} /* LOOP-LOOKUP-KEYWORD */
7750  static object  LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[346],(void **)(void *)&LnkLI346,first,ap);va_end(ap);return V1;} /* WARN */  static void LnkT359(){ call_or_link(VV[359],(void **)(void *)&Lnk359);} /* LOOP-POP-SOURCE */
7751  static void LnkT345(){ call_or_link(VV[345],(void **)(void *)&Lnk345);} /* SPECIFIC-ERROR */  static void LnkT358(){ call_or_link(VV[358],(void **)(void *)&Lnk358);} /* LOOP-BIND-BLOCK */
7752  static void LnkT344(){ call_or_link(VV[344],(void **)(void *)&Lnk344);} /* LOOP-CONTEXT */  static void LnkT357(){ call_or_link(VV[357],(void **)(void *)&Lnk357);} /* LOOP-ITERATION-DRIVER */
7753  static void LnkT343(){ call_or_link(VV[343],(void **)(void *)&Lnk343);} /* SPECIAL-OPERATOR-P */  static void LnkT356(){ call_or_link(VV[356],(void **)(void *)&Lnk356);} /* LOOP-BUILD-DESTRUCTURING-BINDINGS */
7754  static void LnkT342(){ call_or_link(VV[342],(void **)(void *)&Lnk342);} /* ESTIMATE-CODE-SIZE-1 */  static void LnkT355(){ call_or_link(VV[355],(void **)(void *)&Lnk355);} /* SUBST-GENSYMS-FOR-NIL */
7755  static void LnkT341(){ call_or_link(VV[341],(void **)(void *)&Lnk341);} /* DESTRUCTURING-SIZE */  static void LnkT354(){ call_or_link(VV[354],(void **)(void *)&Lnk354);} /* LOOP-ERROR */
7756    static void LnkT333(){ call_or_link(VV[333],(void **)(void *)&Lnk333);} /* SUBTYPEP */
7757    static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* WARN */
7758    static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* SPECIFIC-ERROR */
7759    static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* LOOP-CONTEXT */
7760    static void LnkT350(){ call_or_link(VV[350],(void **)(void *)&Lnk350);} /* SPECIAL-OPERATOR-P */
7761    static void LnkT349(){ call_or_link(VV[349],(void **)(void *)&Lnk349);} /* ESTIMATE-CODE-SIZE-1 */
7762    static void LnkT348(){ call_or_link(VV[348],(void **)(void *)&Lnk348);} /* DESTRUCTURING-SIZE */
7763  static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* ESTIMATE-CODE-SIZE */  static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* ESTIMATE-CODE-SIZE */
7764  static void LnkT340(){ call_or_link(VV[340],(void **)(void *)&Lnk340);} /* LOOP-CODE-DUPLICATION-THRESHOLD */  static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* LOOP-CODE-DUPLICATION-THRESHOLD */
7765  static void LnkT339(){ call_or_link(VV[339],(void **)(void *)&Lnk339);} /* LOOP-OPTIMIZATION-QUANTITIES */  static void LnkT346(){ call_or_link(VV[346],(void **)(void *)&Lnk346);} /* LOOP-OPTIMIZATION-QUANTITIES */
7766  static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* LOOP-WARN */  static void LnkT345(){ call_or_link(VV[345],(void **)(void *)&Lnk345);} /* LOOP-WARN */
7767  static void LnkT337(){ call_or_link(VV[337],(void **)(void *)&Lnk337);} /* LOOP-MAKE-DESETQ */  static void LnkT344(){ call_or_link(VV[344],(void **)(void *)&Lnk344);} /* LOOP-MAKE-DESETQ */
7768  static void LnkT336(){ call_or_link(VV[336],(void **)(void *)&Lnk336);} /* LOOP-MAKE-PSETQ */  static void LnkT343(){ call_or_link(VV[343],(void **)(void *)&Lnk343);} /* LOOP-MAKE-PSETQ */
7769  static void LnkT335(){ call_or_link(VV[335],(void **)(void *)&Lnk335);} /* MAKE-LOOP-UNIVERSE */  static void LnkT342(){ call_or_link(VV[342],(void **)(void *)&Lnk342);} /* MAKE-LOOP-UNIVERSE */
7770  static void LnkT333(){ call_or_link(VV[333],(void **)(void *)&Lnk333);} /* TYPEP */  static void LnkT340(){ call_or_link(VV[340],(void **)(void *)&Lnk340);} /* TYPEP */
7771  static void LnkT331(){ call_or_link(VV[331],(void **)(void *)&Lnk331);} /* HIDE-VARIABLE-REFERENCE */  static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* HIDE-VARIABLE-REFERENCE */
7772  static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* LOOP-TYPED-INIT */  static void LnkT336(){ call_or_link(VV[336],(void **)(void *)&Lnk336);} /* LOOP-TYPED-INIT */
7773  static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* MAKE-LOOP-MINIMAX-INTERNAL */  static void LnkT335(){ call_or_link(VV[335],(void **)(void *)&Lnk335);} /* MAKE-LOOP-MINIMAX-INTERNAL */
7774  static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* LOOP-GENTEMP */  static void LnkT334(){ call_or_link(VV[334],(void **)(void *)&Lnk334);} /* LOOP-GENTEMP */
7775    
7776  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
7777  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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