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

Diff of /gcl/lsp/sloop.c

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

revision 1.3 by camm, Thu Jan 31 19:17:46 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "sloop.h"  #include "sloop.h"
4  init_sloop(){do_init(VV);}  void init_sloop(){do_init(VV);}
5  /*      macro definition for LCASE      */  /*      macro definition for LCASE      */
6    
7  static 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_reserve(VM1);
# Line 25  static L1() Line 25  static L1()
25          register object V6;          register object V6;
26          V5= base[3];          V5= base[3];
27          V6= Cnil;          V6= Cnil;
28    goto T3;
29  T3:;  T3:;
30          if(((V3))!=Cnil){          if(((V3))!=Cnil){
31          goto T5;}          goto T5;}
32          if(((V5))!=Cnil){          if(((V5))!=Cnil){
33          goto T4;}          goto T4;}
34    goto T5;
35  T5:;  T5:;
36          goto T1;          goto T1;
37    goto T4;
38  T4:;  T4:;
39          V6= car((V5));          V6= car((V5));
40          if(!(eql(car((V6)),Ct))){          if(!(eql(car((V6)),Ct))){
# Line 39  T4:; Line 42  T4:;
42          V3= Ct;          V3= Ct;
43          V7= (V6);          V7= (V6);
44          goto T14;          goto T14;
45    goto T16;
46  T16:;  T16:;
47          if(!(eql(car((V6)),VV[0]))){          if(!(eql(car((V6)),VV[0]))){
48          goto T21;}          goto T21;}
49          V7= make_cons(VV[1],cdr((V6)));          V7= make_cons(VV[1],cdr((V6)));
50          goto T14;          goto T14;
51    goto T21;
52  T21:;  T21:;
53          if(!(eql(car((V6)),VV[2]))){          if(!(eql(car((V6)),VV[2]))){
54          goto T24;}          goto T24;}
55          V7= make_cons(VV[3],cdr((V6)));          V7= make_cons(VV[3],cdr((V6)));
56          goto T14;          goto T14;
57    goto T24;
58  T24:;  T24:;
59          {register object x= car((V6)),V8= VV[4];          {register object x= car((V6)),V8= VV[4];
60          while(!endp(V8))          while(!endp(V8))
# Line 57  T24:; Line 63  T24:;
63          goto T29;          goto T29;
64          }else V8=V8->c.c_cdr;          }else V8=V8->c.c_cdr;
65          V4= Cnil;}          V4= Cnil;}
66    goto T29;
67  T29:;  T29:;
68          if(((V4))==Cnil){          if(((V4))==Cnil){
69          goto T27;}          goto T27;}
70          V9= list(3,VV[5],VV[6],list(3,VV[7],VV[8],car((V4))));          V9= list(3,VV[5],VV[6],list(3,VV[7],VV[8],car((V4))));
71          V7= make_cons(/* INLINE-ARGS */V9,cdr((V6)));          V7= make_cons(/* INLINE-ARGS */V9,cdr((V6)));
72          goto T14;          goto T14;
73    goto T27;
74  T27:;  T27:;
75          V10= list(3,VV[9],VV[8],list(2,VV[10],car((V6))));          V10= list(3,VV[9],VV[8],list(2,VV[10],car((V6))));
76          V7= make_cons(/* INLINE-ARGS */V10,cdr((V6)));          V7= make_cons(/* INLINE-ARGS */V10,cdr((V6)));
77    goto T14;
78  T14:;  T14:;
79          V2= make_cons(V7,(V2));          V2= make_cons(V7,(V2));
80          V5= cdr((V5));          V5= cdr((V5));
81          goto T3;}          goto T3;}
82    goto T1;
83  T1:;  T1:;
84          if((V3)!=Cnil){          if((V3)!=Cnil){
85          goto T33;}          goto T33;}
86          V2= make_cons(VV[11],(V2));          V2= make_cons(VV[11],(V2));
87    goto T33;
88  T33:;  T33:;
89          V11= list(2,VV[8],list(2,VV[13],base[2]));          V11= list(2,VV[8],list(2,VV[13],base[2]));
90          V12= make_cons(/* INLINE-ARGS */V11,Cnil);          V12= make_cons(/* INLINE-ARGS */V11,Cnil);
# Line 88  static object LI2(V16,V17) Line 99  static object LI2(V16,V17)
99    
100  register object V16;register object V17;  register object V16;register object V17;
101  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
102    goto TTL;
103  TTL:;  TTL:;
104          if(!(type_of((V16))==t_symbol)){          if(!(type_of((V16))==t_symbol)){
105          goto T36;}          goto T36;}
# Line 96  TTL:; Line 108  TTL:;
108          VMR2(V18)}}          VMR2(V18)}}
109          {object V19 = list(3,VV[15],(V16),(V17));          {object V19 = list(3,VV[15],(V16),(V17));
110          VMR2(V19)}          VMR2(V19)}
111    goto T36;
112  T36:;  T36:;
113          if(!(type_of((V16))==t_cons)){          if(!(type_of((V16))==t_cons)){
114          goto T39;}          goto T39;}
# Line 109  T36:; Line 122  T36:;
122          V26= (*(LnkLI246))(/* INLINE-ARGS */V24,/* INLINE-ARGS */V25);          V26= (*(LnkLI246))(/* INLINE-ARGS */V24,/* INLINE-ARGS */V25);
123          V23= make_cons(/* INLINE-ARGS */V26,Cnil);          V23= make_cons(/* INLINE-ARGS */V26,Cnil);
124          goto T41;          goto T41;
125    goto T43;
126  T43:;  T43:;
127          if((cdr((V16)))!=Cnil){          if((cdr((V16)))!=Cnil){
128          goto T45;}          goto T45;}
129          V23= Cnil;          V23= Cnil;
130          goto T41;          goto T41;
131    goto T45;
132  T45:;  T45:;
133          V27= cdr((V16));          V27= cdr((V16));
134          V28= list(3,VV[15],/* INLINE-ARGS */V27,list(2,VV[18],(V17)));          V28= list(3,VV[15],/* INLINE-ARGS */V27,list(2,VV[18],(V17)));
135          V23= make_cons(/* INLINE-ARGS */V28,Cnil);          V23= make_cons(/* INLINE-ARGS */V28,Cnil);
136    goto T41;
137  T41:;  T41:;
138          {object V29 = listA(3,VV[16],/* INLINE-ARGS */V22,V23);          {object V29 = listA(3,VV[16],/* INLINE-ARGS */V22,V23);
139          VMR2(V29)}          VMR2(V29)}
140    goto T39;
141  T39:;  T39:;
142          base[0]= VV[19];          base[0]= VV[19];
143          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 128  T39:; Line 145  T39:;
145          vs_top=sup;          vs_top=sup;
146          {object V30 = vs_base[0];          {object V30 = vs_base[0];
147          VMR2(V30)}          VMR2(V30)}
148            base[0]=base[0];
149            return Cnil;
150  }  }
151  /*      macro definition for DESETQ     */  /*      macro definition for DESETQ     */
152    
153  static L3()  static void L3()
154  {register object *base=vs_base;  {register object *base=vs_base;
155          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
156          vs_reserve(VM3);          vs_reserve(VM3);
# Line 150  static L3() Line 169  static L3()
169          base[4]= (*(LnkLI246))(base[2],base[3]);          base[4]= (*(LnkLI246))(base[2],base[3]);
170          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
171          return;          return;
172    goto T49;
173  T49:;  T49:;
174          {object V32;          {object V32;
175          vs_base=vs_top;          vs_base=vs_top;
# Line 164  T49:; Line 184  T49:;
184  }  }
185  /*      macro definition for LOOP-RETURN        */  /*      macro definition for LOOP-RETURN        */
186    
187  static L4()  static void L4()
188  {register object *base=vs_base;  {register object *base=vs_base;
189          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
190          vs_reserve(VM4);          vs_reserve(VM4);
# Line 177  static L4() Line 197  static L4()
197          base[3]= make_cons(VV[20],base[2]);          base[3]= make_cons(VV[20],base[2]);
198          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
199          return;          return;
200    goto T53;
201  T53:;  T53:;
202          base[3]= list(2,VV[20],make_cons(VV[21],base[2]));          base[3]= list(2,VV[20],make_cons(VV[21],base[2]));
203          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 184  T53:; Line 205  T53:;
205  }  }
206  /*      macro definition for LOOP-FINISH        */  /*      macro definition for LOOP-FINISH        */
207    
208  static L5()  static void L5()
209  {register object *base=vs_base;  {register object *base=vs_base;
210          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
211          vs_reserve(VM5);          vs_reserve(VM5);
# Line 198  static L5() Line 219  static L5()
219  }  }
220  /*      macro definition for LOCAL-FINISH       */  /*      macro definition for LOCAL-FINISH       */
221    
222  static L6()  static void L6()
223  {register object *base=vs_base;  {register object *base=vs_base;
224          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
225          vs_reserve(VM6);          vs_reserve(VM6);
# Line 212  static L6() Line 233  static L6()
233  }  }
234  /*      macro definition for SLOOP      */  /*      macro definition for SLOOP      */
235    
236  static L7()  static void L7()
237  {register object *base=vs_base;  {register object *base=vs_base;
238          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
239          vs_reserve(VM7);          vs_reserve(VM7);
# Line 226  static L7() Line 247  static L7()
247  }  }
248  /*      macro definition for DEF-LOOP-MAP       */  /*      macro definition for DEF-LOOP-MAP       */
249    
250  static L8()  static void L8()
251  {register object *base=vs_base;  {register object *base=vs_base;
252          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
253          vs_reserve(VM8);          vs_reserve(VM8);
# Line 246  static L8() Line 267  static L8()
267  }  }
268  /*      macro definition for DEF-LOOP-FOR       */  /*      macro definition for DEF-LOOP-FOR       */
269    
270  static L9()  static void L9()
271  {register object *base=vs_base;  {register object *base=vs_base;
272          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
273          vs_reserve(VM9);          vs_reserve(VM9);
# Line 266  static L9() Line 287  static L9()
287  }  }
288  /*      macro definition for DEF-LOOP-MACRO     */  /*      macro definition for DEF-LOOP-MACRO     */
289    
290  static L10()  static void L10()
291  {register object *base=vs_base;  {register object *base=vs_base;
292          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
293          vs_reserve(VM10);          vs_reserve(VM10);
# Line 286  static L10() Line 307  static L10()
307  }  }
308  /*      macro definition for DEF-LOOP-COLLECT   */  /*      macro definition for DEF-LOOP-COLLECT   */
309    
310  static L11()  static void L11()
311  {register object *base=vs_base;  {register object *base=vs_base;
312          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
313          vs_reserve(VM11);          vs_reserve(VM11);
# Line 306  static L11() Line 327  static L11()
327  }  }
328  /*      macro definition for SLOOP-SWAP */  /*      macro definition for SLOOP-SWAP */
329    
330  static L12()  static void L12()
331  {register object *base=vs_base;  {register object *base=vs_base;
332          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
333          vs_reserve(VM12);          vs_reserve(VM12);
# Line 324  static object LI13(V46,V47) Line 345  static object LI13(V46,V47)
345    
346  object V46;register object V47;  object V46;register object V47;
347  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
348    goto TTL;
349  TTL:;  TTL:;
350          if(type_of((V46))==t_symbol){          if(type_of((V46))==t_symbol){
351          goto T55;}          goto T55;}
352          {object V48 = Cnil;          {object V48 = Cnil;
353          VMR13(V48)}          VMR13(V48)}
354    goto T55;
355  T55:;  T55:;
356          if(!(type_of((V47))==t_symbol)){          if(!(type_of((V47))==t_symbol)){
357          goto T58;}          goto T58;}
# Line 336  T55:; Line 359  T55:;
359          V50= symbol_name((V47));          V50= symbol_name((V47));
360          {object V51 = (equal(/* INLINE-ARGS */V49,/* INLINE-ARGS */V50)?Ct:Cnil);          {object V51 = (equal(/* INLINE-ARGS */V49,/* INLINE-ARGS */V50)?Ct:Cnil);
361          VMR13(V51)}          VMR13(V51)}
362    goto T58;
363  T58:;  T58:;
364          if(!(type_of((V47))==t_cons||((V47))==Cnil)){          if(!(type_of((V47))==t_cons||((V47))==Cnil)){
365          goto T61;}          goto T61;}
# Line 348  T58:; Line 372  T58:;
372          vs_top=sup;          vs_top=sup;
373          {object V52 = vs_base[0];          {object V52 = vs_base[0];
374          VMR13(V52)}          VMR13(V52)}
375    goto T61;
376  T61:;  T61:;
377          {object V53 = Cnil;          {object V53 = Cnil;
378          VMR13(V53)}          VMR13(V53)}
379            base[0]=base[0];
380            return Cnil;
381  }  }
382  /*      local entry for function LOOP-COLLECT-KEYWORD-P */  /*      local entry for function LOOP-COLLECT-KEYWORD-P */
383    
# Line 358  static object LI14(V55) Line 385  static object LI14(V55)
385    
386  object V55;  object V55;
387  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
388    goto TTL;
389  TTL:;{object V56;  TTL:;{object V56;
390          base[0]= (V55);          base[0]= (V55);
391          base[1]= VV[31];          base[1]= VV[31];
# Line 370  TTL:;{object V56; Line 398  TTL:;{object V56;
398          if(V56==Cnil)goto T67;          if(V56==Cnil)goto T67;
399          {object V57 = V56;          {object V57 = V56;
400          VMR14(V57)}          VMR14(V57)}
401    goto T67;
402  T67:;}  T67:;}
403          {object V58 = (VFUN_NARGS=4,(*(LnkLI249))((V55),symbol_value(VV[28]),VV[30],VV[9]));          {object V58 = (VFUN_NARGS=4,(*(LnkLI249))((V55),symbol_value(VV[28]),VV[30],VV[9]));
404          VMR14(V58)}          VMR14(V58)}
405            base[0]=base[0];
406            return Cnil;
407  }  }
408  /*      local entry for function TRANSLATE-NAME */  /*      local entry for function TRANSLATE-NAME */
409    
# Line 380  static object LI15(V60) Line 411  static object LI15(V60)
411    
412  object V60;  object V60;
413  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
414    goto TTL;
415  TTL:;  TTL:;
416          {object V61;          {object V61;
417          if(type_of((V60))==t_symbol){          if(type_of((V60))==t_symbol){
418          goto T74;}          goto T74;}
419          V61= Cnil;          V61= Cnil;
420          goto T73;          goto T73;
421    goto T74;
422  T74:;  T74:;
423          base[0]= (V60);          base[0]= (V60);
424          base[1]= symbol_value(VV[32]);          base[1]= symbol_value(VV[32]);
# Line 398  T74:; Line 431  T74:;
431          vs_top=sup;          vs_top=sup;
432          V62= vs_base[0];          V62= vs_base[0];
433          V61= cdar(V62);          V61= cdar(V62);
434    goto T73;
435  T73:;  T73:;
436          if(((V61))==Cnil){          if(((V61))==Cnil){
437          goto T84;}          goto T84;}
438          {object V63 = (V61);          {object V63 = (V61);
439          VMR15(V63)}          VMR15(V63)}
440    goto T84;
441  T84:;  T84:;
442          {object V64 = (V60);          {object V64 = (V60);
443          VMR15(V64)}}          VMR15(V64)}}
444            base[0]=base[0];
445            return Cnil;
446  }  }
447  /*      local entry for function LOOP-POP       */  /*      local entry for function LOOP-POP       */
448    
449  static object LI16()  static object LI16()
450    
451  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
452    goto TTL;
453  TTL:;  TTL:;
454          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
455          goto T87;}          goto T87;}
# Line 421  TTL:; Line 459  TTL:;
459          setq(VV[35],(V65));}          setq(VV[35],(V65));}
460          {object V66 = symbol_value(VV[35]);          {object V66 = symbol_value(VV[35]);
461          VMR16(V66)}          VMR16(V66)}
462    goto T87;
463  T87:;  T87:;
464          setq(VV[35],VV[36]);          setq(VV[35],VV[36]);
465          {object V67 = Cnil;          {object V67 = Cnil;
466          VMR16(V67)}          VMR16(V67)}
467            return Cnil;
468  }  }
469  /*      local entry for function LOOP-UN-POP    */  /*      local entry for function LOOP-UN-POP    */
470    
471  static object LI17()  static object LI17()
472    
473  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
474    goto TTL;
475  TTL:;  TTL:;
476          {object V68= symbol_value(VV[35]);          {object V68= symbol_value(VV[35]);
477          if((V68!= VV[36]))goto T95;          if((V68!= VV[36]))goto T95;
478          {object V69 = Cnil;          {object V69 = Cnil;
479          VMR17(V69)}          VMR17(V69)}
480    goto T95;
481  T95:;  T95:;
482          if((V68!= VV[250]))goto T96;          if((V68!= VV[250]))goto T96;
483          base[0]= VV[37];          base[0]= VV[37];
# Line 444  T95:; Line 486  T95:;
486          vs_top=sup;          vs_top=sup;
487          {object V70 = vs_base[0];          {object V70 = vs_base[0];
488          VMR17(V70)}          VMR17(V70)}
489    goto T96;
490  T96:;  T96:;
491          setq(VV[34],make_cons(symbol_value(VV[35]),symbol_value(VV[34])));          setq(VV[34],make_cons(symbol_value(VV[35]),symbol_value(VV[34])));
492          setq(VV[35],VV[38]);          setq(VV[35],VV[38]);
493          {object V71 = VV[38];          {object V71 = VV[38];
494          VMR17(V71)}}          VMR17(V71)}}
495            base[0]=base[0];
496            return Cnil;
497  }  }
498  /*      local entry for function LOOP-PEEK      */  /*      local entry for function LOOP-PEEK      */
499    
500  static object LI18()  static object LI18()
501    
502  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
503    goto TTL;
504  TTL:;  TTL:;
505          {object V72 = car(symbol_value(VV[34]));          {object V72 = car(symbol_value(VV[34]));
506          VMR18(V72)}          VMR18(V72)}
507            return Cnil;
508  }  }
509  /*      local entry for function LOOP-LET-BINDINGS      */  /*      local entry for function LOOP-LET-BINDINGS      */
510    
# Line 465  static object LI19(V74) Line 512  static object LI19(V74)
512    
513  register object V74;  register object V74;
514  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
515    goto TTL;
516  TTL:;  TTL:;
517          {register object V75;          {register object V75;
518          V75= car((V74));          V75= car((V74));
519    goto T103;
520  T103:;  T103:;
521          if(((V75))!=Cnil){          if(((V75))!=Cnil){
522          goto T104;}          goto T104;}
523          {object V76 = nreverse(car((V74)));          {object V76 = nreverse(car((V74)));
524          VMR19(V76)}          VMR19(V76)}
525    goto T104;
526  T104:;{object V77;  T104:;{object V77;
527          V77= cdar((V75));          V77= cdar((V75));
528          if(V77==Cnil)goto T109;          if(V77==Cnil)goto T109;
529          goto T108;          goto T108;
530    goto T109;
531  T109:;}  T109:;}
532          {register object V78;          {register object V78;
533          register object V79;          register object V79;
# Line 484  T109:;} Line 535  T109:;}
535          V79= caar((V75));          V79= caar((V75));
536          if(type_of((V78))!=t_cons)FEwrong_type_argument(Scons,(V78));          if(type_of((V78))!=t_cons)FEwrong_type_argument(Scons,(V78));
537          ((V78))->c.c_car = (V79);}          ((V78))->c.c_car = (V79);}
538    goto T108;
539  T108:;  T108:;
540          V75= cdr((V75));          V75= cdr((V75));
541          goto T103;}          goto T103;}
542            base[0]=base[0];
543            return Cnil;
544  }  }
545  /*      local entry for function PARSE-LOOP     */  /*      local entry for function PARSE-LOOP     */
546    
# Line 495  static object LI20(V81) Line 549  static object LI20(V81)
549  object V81;  object V81;
550  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
551          bds_check;          bds_check;
552    goto TTL;
553  TTL:;  TTL:;
554          {register object V82;          {register object V82;
555          V82= Cnil;          V82= Cnil;
# Line 524  TTL:; Line 579  TTL:;
579          goto T119;}          goto T119;}
580          if((car((VV[34]->s.s_dbind)))!=Cnil){          if((car((VV[34]->s.s_dbind)))!=Cnil){
581          goto T118;}          goto T118;}
582    goto T119;
583  T119:;  T119:;
584          (VV[34]->s.s_dbind)= make_cons(VV[56],(VV[34]->s.s_dbind));          (VV[34]->s.s_dbind)= make_cons(VV[56],(VV[34]->s.s_dbind));
585    goto T118;
586  T118:;  T118:;
587          (void)((*(LnkLI251))());          (void)((*(LnkLI251))());
588          if(((VV[53]->s.s_dbind))!=Cnil){          if(((VV[53]->s.s_dbind))!=Cnil){
589          goto T126;}          goto T126;}
590          if(((VV[40]->s.s_dbind))==Cnil){          if(((VV[40]->s.s_dbind))==Cnil){
591          goto T125;}          goto T125;}
592    goto T126;
593  T126:;  T126:;
594          if((VV[51]->s.s_dbind)!=Cnil){          if((VV[51]->s.s_dbind)!=Cnil){
595          goto T130;}          goto T130;}
# Line 540  T126:; Line 598  T126:;
598          Lgensym();          Lgensym();
599          vs_top=sup;          vs_top=sup;
600          (VV[51]->s.s_dbind)= vs_base[0];          (VV[51]->s.s_dbind)= vs_base[0];
601    goto T130;
602  T130:;  T130:;
603          if(eql(VV[55],(V84))){          if(eql(VV[55],(V84))){
604          goto T133;}          goto T133;}
605          goto T125;          goto T125;
606    goto T133;
607  T133:;  T133:;
608          base[18]= VV[58];          base[18]= VV[58];
609          vs_top=(vs_base=base+18)+1;          vs_top=(vs_base=base+18)+1;
610          Lgensym();          Lgensym();
611          vs_top=sup;          vs_top=sup;
612          V84= vs_base[0];          V84= vs_base[0];
613    goto T125;
614  T125:;  T125:;
615          V85= list(3,VV[59],VV[60],list(4,VV[61],VV[62],list(2,VV[10],(VV[51]->s.s_dbind)),VV[63]));          V85= list(3,VV[59],VV[60],list(4,VV[61],VV[62],list(2,VV[10],(VV[51]->s.s_dbind)),VV[63]));
616          V83= make_cons(/* INLINE-ARGS */V85,(V83));          V83= make_cons(/* INLINE-ARGS */V85,(V83));
# Line 561  T125:; Line 622  T125:;
622          goto T143;}          goto T143;}
623          V88= list(3,VV[68],(VV[51]->s.s_dbind),(VV[45]->s.s_dbind));          V88= list(3,VV[68],(VV[51]->s.s_dbind),(VV[45]->s.s_dbind));
624          (VV[43]->s.s_dbind)= make_cons(/* INLINE-ARGS */V88,(VV[43]->s.s_dbind));          (VV[43]->s.s_dbind)= make_cons(/* INLINE-ARGS */V88,(VV[43]->s.s_dbind));
625    goto T143;
626  T143:;  T143:;
627          base[18]= (VV[41]->s.s_dbind);          base[18]= (VV[41]->s.s_dbind);
628          base[19]= nreverse((VV[49]->s.s_dbind));          base[19]= nreverse((VV[49]->s.s_dbind));
# Line 573  T143:; Line 635  T143:;
635          goto T152;}          goto T152;}
636          V82= (*(LnkLI252))((V82));          V82= (*(LnkLI252))((V82));
637          goto T150;          goto T150;
638    goto T152;
639  T152:;  T152:;
640          V89= append((V82),VV[70]);          V89= append((V82),VV[70]);
641          V82= make_cons(VV[69],/* INLINE-ARGS */V89);          V82= make_cons(VV[69],/* INLINE-ARGS */V89);
642    goto T150;
643  T150:;  T150:;
644          {register object V90;{object V91;          {register object V90;{object V91;
645          V91= (VV[51]->s.s_dbind);          V91= (VV[51]->s.s_dbind);
# Line 596  T150:; Line 660  T150:;
660          Lcopy_tree();          Lcopy_tree();
661          vs_top=sup;          vs_top=sup;
662          V90= vs_base[0];          V90= vs_base[0];
663    goto T163;
664  T163:;  T163:;
665          {register object V93;          {register object V93;
666          register object V94;          register object V94;
667          V93= (VV[46]->s.s_dbind);          V93= (VV[46]->s.s_dbind);
668          V94= car((V93));          V94= car((V93));
669    goto T172;
670  T172:;  T172:;
671          if(!(endp((V93)))){          if(!(endp((V93)))){
672          goto T173;}          goto T173;}
673          goto T168;          goto T168;
674    goto T173;
675  T173:;  T173:;
676          V95= (*(LnkLI253))((V94));          V95= (*(LnkLI253))((V94));
677          if((cdr((V94)))!=Cnil){          if((cdr((V94)))!=Cnil){
678          goto T180;}          goto T180;}
679          V96= Cnil;          V96= Cnil;
680          goto T179;          goto T179;
681    goto T180;
682  T180:;  T180:;
683          V97= make_cons(VV[77],cdr((V94)));          V97= make_cons(VV[77],cdr((V94)));
684          V96= make_cons(/* INLINE-ARGS */V97,Cnil);          V96= make_cons(/* INLINE-ARGS */V97,Cnil);
685    goto T179;
686  T179:;  T179:;
687          V98= make_cons((V90),Cnil);          V98= make_cons((V90),Cnil);
688          V90= listA(3,VV[12],/* INLINE-ARGS */V95,append(V96,/* INLINE-ARGS */V98));          V90= listA(3,VV[12],/* INLINE-ARGS */V95,append(V96,/* INLINE-ARGS */V98));
689          V93= cdr((V93));          V93= cdr((V93));
690          V94= car((V93));          V94= car((V93));
691          goto T172;}          goto T172;}
692    goto T168;
693  T168:;  T168:;
694          {object V99 = (V90);          {object V99 = (V90);
695          bds_unwind1;          bds_unwind1;
# Line 641  T168:; Line 711  T168:;
711          bds_unwind1;          bds_unwind1;
712          bds_unwind1;          bds_unwind1;
713          VMR20(V99)}}}}          VMR20(V99)}}}}
714            base[0]=base[0];
715            return Cnil;
716  }  }
717  /*      local entry for function PARSE-LOOP1    */  /*      local entry for function PARSE-LOOP1    */
718    
719  static object LI21()  static object LI21()
720    
721  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
722    goto TTL;
723  TTL:;  TTL:;
724          {object V100;          {object V100;
725          V101= (*(LnkLI254))();          V101= (*(LnkLI254))();
# Line 655  TTL:; Line 728  TTL:;
728          goto T187;}          goto T187;}
729          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
730          setq(VV[51],(*(LnkLI255))());}          setq(VV[51],(*(LnkLI255))());}
731    goto T187;
732  T187:;  T187:;
733          {register object V102;          {register object V102;
734          V102= (*(LnkLI255))();          V102= (*(LnkLI255))();
735    goto T195;
736  T195:;  T195:;
737          if(((V102))!=Cnil){          if(((V102))!=Cnil){
738          goto T196;}          goto T196;}
# Line 665  T195:; Line 740  T195:;
740          goto T196;}          goto T196;}
741          {object V103 = Cnil;          {object V103 = Cnil;
742          VMR21(V103)}          VMR21(V103)}
743    goto T196;
744  T196:;  T196:;
745          {register object V104;          {register object V104;
746          V104= (*(LnkLI13))((V102));          V104= (*(LnkLI13))((V102));
# Line 673  T196:; Line 749  T196:;
749          if(((V105))==Cnil){          if(((V105))==Cnil){
750          goto T206;}          goto T206;}
751          goto T202;          goto T202;
752    goto T206;
753  T206:;  T206:;
754          if(((*(LnkLI9))((V104),VV[25]))==Cnil){          if(((*(LnkLI9))((V104),VV[25]))==Cnil){
755          goto T209;}          goto T209;}
756          (void)((*(LnkLI257))());          (void)((*(LnkLI257))());
757          goto T202;          goto T202;
758    goto T209;
759  T209:;  T209:;
760          if(((*(LnkLI9))((V104),VV[79]))==Cnil){          if(((*(LnkLI9))((V104),VV[79]))==Cnil){
761          goto T212;}          goto T212;}
# Line 685  T209:; Line 763  T209:;
763          V107= list(3,VV[80],/* INLINE-ARGS */V106,VV[81]);          V107= list(3,VV[80],/* INLINE-ARGS */V106,VV[81]);
764          setq(VV[49],make_cons(/* INLINE-ARGS */V107,symbol_value(VV[49])));          setq(VV[49],make_cons(/* INLINE-ARGS */V107,symbol_value(VV[49])));
765          goto T202;          goto T202;
766    goto T212;
767  T212:;  T212:;
768          if(((*(LnkLI9))((V104),VV[82]))==Cnil){          if(((*(LnkLI9))((V104),VV[82]))==Cnil){
769          goto T216;}          goto T216;}
# Line 692  T212:; Line 771  T212:;
771          V109= list(3,VV[5],/* INLINE-ARGS */V108,VV[83]);          V109= list(3,VV[5],/* INLINE-ARGS */V108,VV[83]);
772          setq(VV[49],make_cons(/* INLINE-ARGS */V109,symbol_value(VV[49])));          setq(VV[49],make_cons(/* INLINE-ARGS */V109,symbol_value(VV[49])));
773          goto T202;          goto T202;
774    goto T216;
775  T216:;  T216:;
776          if(((*(LnkLI9))((V104),VV[56]))==Cnil){          if(((*(LnkLI9))((V104),VV[56]))==Cnil){
777          goto T220;}          goto T220;}
778          V110= (*(LnkLI258))();          V110= (*(LnkLI258))();
779          setq(VV[49],append(/* INLINE-ARGS */V110,symbol_value(VV[49])));          setq(VV[49],append(/* INLINE-ARGS */V110,symbol_value(VV[49])));
780          goto T202;          goto T202;
781    goto T220;
782  T220:;  T220:;
783          if(((*(LnkLI9))((V104),VV[84]))==Cnil){          if(((*(LnkLI9))((V104),VV[84]))==Cnil){
784          goto T224;}          goto T224;}
785          V111= (*(LnkLI259))();          V111= (*(LnkLI259))();
786          setq(VV[49],append(/* INLINE-ARGS */V111,symbol_value(VV[49])));          setq(VV[49],append(/* INLINE-ARGS */V111,symbol_value(VV[49])));
787          goto T202;          goto T202;
788    goto T224;
789  T224:;  T224:;
790          if(((*(LnkLI260))((V104)))==Cnil){          if(((*(LnkLI260))((V104)))==Cnil){
791          goto T228;}          goto T228;}
792          V112= (*(LnkLI261))();          V112= (*(LnkLI261))();
793          setq(VV[49],append(/* INLINE-ARGS */V112,symbol_value(VV[49])));          setq(VV[49],append(/* INLINE-ARGS */V112,symbol_value(VV[49])));
794          goto T202;          goto T202;
795    goto T228;
796  T228:;  T228:;
797          base[0]= VV[85];          base[0]= VV[85];
798          base[1]= (V104);          base[1]= (V104);
799          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
800          Lerror();          Lerror();
801          vs_top=sup;}}          vs_top=sup;}}
802    goto T202;
803  T202:;  T202:;
804          V102= (*(LnkLI255))();          V102= (*(LnkLI255))();
805          goto T195;}          goto T195;}
806            base[0]=base[0];
807            return Cnil;
808  }  }
809  /*      local entry for function PARSE-NO-BODY  */  /*      local entry for function PARSE-NO-BODY  */
810    
# Line 726  static object LI22(V114) Line 812  static object LI22(V114)
812    
813  object V114;  object V114;
814  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
815    goto TTL;
816  TTL:;  TTL:;
817          {register object V115;          {register object V115;
818          register object V116;          register object V116;
# Line 733  TTL:; Line 820  TTL:;
820          V116= Ct;          V116= Ct;
821          {register object V117;          {register object V117;
822          V117= (V114);          V117= (V114);
823    goto T240;
824  T240:;  T240:;
825          if(((V116))!=Cnil){          if(((V116))!=Cnil){
826          goto T241;}          goto T241;}
827          if((symbol_value(VV[34]))!=Cnil){          if((symbol_value(VV[34]))!=Cnil){
828          goto T241;}          goto T241;}
829          goto T238;          goto T238;
830    goto T241;
831  T241:;  T241:;
832          {register object V118;          {register object V118;
833          V118= (*(LnkLI13))((V117));          V118= (*(LnkLI13))((V117));
# Line 746  T241:; Line 835  T241:;
835          goto T250;}          goto T250;}
836          (void)((*(LnkLI262))((V117)));          (void)((*(LnkLI262))((V117)));
837          goto T247;          goto T247;
838    goto T250;
839  T250:;  T250:;
840          if(((*(LnkLI9))((V118),Cnil))==Cnil){          if(((*(LnkLI9))((V118),Cnil))==Cnil){
841          goto T253;}          goto T253;}
842          goto T247;          goto T247;
843    goto T253;
844  T253:;  T253:;
845          if(((*(LnkLI9))((V118),VV[87]))==Cnil){          if(((*(LnkLI9))((V118),VV[87]))==Cnil){
846          goto T256;}          goto T256;}
847          (void)((VFUN_NARGS=0,(*(LnkLI263))()));          (void)((VFUN_NARGS=0,(*(LnkLI263))()));
848          goto T247;          goto T247;
849    goto T256;
850  T256:;  T256:;
851          if(((*(LnkLI9))((V118),VV[77]))==Cnil){          if(((*(LnkLI9))((V118),VV[77]))==Cnil){
852          goto T259;}          goto T259;}
853          V119= (*(LnkLI255))();          V119= (*(LnkLI255))();
854          (void)((VFUN_NARGS=2,(*(LnkLI264))(/* INLINE-ARGS */V119,Ct)));          (void)((VFUN_NARGS=2,(*(LnkLI264))(/* INLINE-ARGS */V119,Ct)));
855          goto T247;          goto T247;
856    goto T259;
857  T259:;  T259:;
858          if(((*(LnkLI9))((V118),VV[88]))==Cnil){          if(((*(LnkLI9))((V118),VV[88]))==Cnil){
859          goto T262;}          goto T262;}
860          setq(VV[47],(*(LnkLI255))());          setq(VV[47],(*(LnkLI255))());
861          goto T247;          goto T247;
862    goto T262;
863  T262:;  T262:;
864          if(((*(LnkLI9))((V118),VV[89]))==Cnil){          if(((*(LnkLI9))((V118),VV[89]))==Cnil){
865          goto T266;}          goto T266;}
866          V120= (*(LnkLI258))();          V120= (*(LnkLI258))();
867          setq(VV[42],append(/* INLINE-ARGS */V120,symbol_value(VV[42])));          setq(VV[42],append(/* INLINE-ARGS */V120,symbol_value(VV[42])));
868          goto T247;          goto T247;
869    goto T266;
870  T266:;  T266:;
871          if(((*(LnkLI9))((V118),VV[90]))==Cnil){          if(((*(LnkLI9))((V118),VV[90]))==Cnil){
872          goto T270;}          goto T270;}
873          V121= (*(LnkLI258))();          V121= (*(LnkLI258))();
874          setq(VV[41],append(/* INLINE-ARGS */V121,symbol_value(VV[41])));          setq(VV[41],append(/* INLINE-ARGS */V121,symbol_value(VV[41])));
875          goto T247;          goto T247;
876    goto T270;
877  T270:;  T270:;
878          if(((*(LnkLI9))((V118),VV[91]))==Cnil){          if(((*(LnkLI9))((V118),VV[91]))==Cnil){
879          goto T274;}          goto T274;}
880          (void)((VFUN_NARGS=2,(*(LnkLI263))(Cnil,Ct)));          (void)((VFUN_NARGS=2,(*(LnkLI263))(Cnil,Ct)));
881          goto T247;          goto T247;
882    goto T274;
883  T274:;  T274:;
884          if(!(type_of((V118))==t_symbol)){          if(!(type_of((V118))==t_symbol)){
885          goto T277;}          goto T277;}
# Line 790  T274:; Line 887  T274:;
887          goto T277;}          goto T277;}
888          (void)((VFUN_NARGS=2,(*(LnkLI265))((V117),VV[92])));          (void)((VFUN_NARGS=2,(*(LnkLI265))((V117),VV[92])));
889          goto T247;          goto T247;
890    goto T277;
891  T277:;  T277:;
892          if(((V116))==Cnil){          if(((V116))==Cnil){
893          goto T283;}          goto T283;}
894          V115= Cnil;          V115= Cnil;
895          goto T281;          goto T281;
896    goto T283;
897  T283:;  T283:;
898          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
899    goto T281;
900  T281:;  T281:;
901          goto T238;}          goto T238;}
902    goto T247;
903  T247:;  T247:;
904          V116= Cnil;          V116= Cnil;
905          V117= (*(LnkLI255))();          V117= (*(LnkLI255))();
906          goto T240;}          goto T240;}
907    goto T238;
908  T238:;  T238:;
909          {object V122 = (V115);          {object V122 = (V115);
910          VMR22(V122)}}          VMR22(V122)}}
911            return Cnil;
912  }  }
913  /*      local entry for function PARSE-LOOP-WITH        */  /*      local entry for function PARSE-LOOP-WITH        */
914    
# Line 816  static object LI23(va_alist) Line 919  static object LI23(va_alist)
919          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
920          {object V123;          {object V123;
921          object V124;          object V124;
922            Vcs[0]=Vcs[0];
923            va_start(ap);
924          narg = narg - 0;          narg = narg - 0;
925          if (narg <= 0) goto T291;          if (narg <= 0) goto T291;
926          else {          else {
         va_start(ap);  
927          V123= va_arg(ap,object);}          V123= va_arg(ap,object);}
928          if (--narg <= 0) goto T292;          if (--narg <= 0) goto T292;
929          else {          else {
930          V124= va_arg(ap,object);}          V124= va_arg(ap,object);}
931          --narg; goto T293;          --narg; goto T293;
932    goto T291;
933  T291:;  T291:;
934          V123= Cnil;          V123= Cnil;
935    goto T292;
936  T292:;  T292:;
937          V124= Cnil;          V124= Cnil;
938    goto T293;
939  T293:;  T293:;
940          {register object V125;          {register object V125;
941          V125= (*(LnkLI255))();          V125= (*(LnkLI255))();
# Line 841  T293:; Line 948  T293:;
948          if(!(type_of((V125))==t_symbol)){          if(!(type_of((V125))==t_symbol)){
949          goto T304;}          goto T304;}
950          goto T303;          goto T303;
951    goto T304;
952  T304:;  T304:;
953          base[0]= VV[95];          base[0]= VV[95];
954          base[1]= (V125);          base[1]= (V125);
955          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
956          Lerror();          Lerror();
957          vs_top=sup;          vs_top=sup;
958    goto T303;
959  T303:;  T303:;
960          V128= (*(LnkLI255))();          V128= (*(LnkLI255))();
961          (void)((VFUN_NARGS=7,(*(LnkLI267))((V125),/* INLINE-ARGS */V128,(((V123))==Cnil?Ct:Cnil),Cnil,Cnil,Ct,(V124))));          (void)((VFUN_NARGS=7,(*(LnkLI267))((V125),/* INLINE-ARGS */V128,(((V123))==Cnil?Ct:Cnil),Cnil,Cnil,Ct,(V124))));
962          goto T297;          goto T297;
963    goto T300;
964  T300:;  T300:;
965          (void)((VFUN_NARGS=5,(*(LnkLI268))((V125),Cnil,Cnil,(((V123))==Cnil?Ct:Cnil),(V124))));}          (void)((VFUN_NARGS=5,(*(LnkLI268))((V125),Cnil,Cnil,(((V123))==Cnil?Ct:Cnil),(V124))));}
966    goto T297;
967  T297:;  T297:;
968          {object V129;          {object V129;
969          V130= (*(LnkLI254))();          V130= (*(LnkLI254))();
# Line 867  T297:; Line 978  T297:;
978          goto T315;}          goto T315;}
979          {object V133 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));          {object V133 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));
980          VMR23(V133)}          VMR23(V133)}
981    goto T315;
982  T315:;  T315:;
983          if(((*(LnkLI9))((V131),VV[91]))==Cnil){          if(((*(LnkLI9))((V131),VV[91]))==Cnil){
984          goto T318;}          goto T318;}
985          {object V134 = (VFUN_NARGS=2,(*(LnkLI263))(Ct,Ct));          {object V134 = (VFUN_NARGS=2,(*(LnkLI263))(Ct,Ct));
986          VMR23(V134)}          VMR23(V134)}
987    goto T318;
988  T318:;  T318:;
989          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
990          {object V135 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));          {object V135 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));
991          VMR23(V135)}}          VMR23(V135)}}
992    goto T310;
993  T310:;  T310:;
994          {object V136 = Cnil;          {object V136 = Cnil;
995          VMR23(V136)}}}}          VMR23(V136)}}}
996            va_end(ap);
997            base[0]=base[0];
998            return Cnil;}
999          }          }
1000  /*      local entry for function PARSE-LOOP-DO  */  /*      local entry for function PARSE-LOOP-DO  */
1001    
1002  static object LI24()  static object LI24()
1003    
1004  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1005    goto TTL;
1006  TTL:;  TTL:;
1007          {register object V137;          {register object V137;
1008          V137= Cnil;          V137= Cnil;
1009          {register object V138;          {register object V138;
1010          V138= (*(LnkLI255))();          V138= (*(LnkLI255))();
1011    goto T325;
1012  T325:;  T325:;
1013          if(!(type_of((V138))==t_cons||((V138))==Cnil)){          if(!(type_of((V138))==t_cons||((V138))==Cnil)){
1014          goto T330;}          goto T330;}
# Line 897  T325:; Line 1016  T325:;
1016          if(symbol_value(VV[34])!=Cnil){          if(symbol_value(VV[34])!=Cnil){
1017          goto T328;}          goto T328;}
1018          goto T322;          goto T322;
1019    goto T330;
1020  T330:;  T330:;
1021          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
1022          goto T322;          goto T322;
1023    goto T328;
1024  T328:;  T328:;
1025          V138= (*(LnkLI255))();          V138= (*(LnkLI255))();
1026          goto T325;}          goto T325;}
1027    goto T322;
1028  T322:;  T322:;
1029          if((V137)!=Cnil){          if((V137)!=Cnil){
1030          goto T338;}          goto T338;}
# Line 910  T322:; Line 1032  T322:;
1032          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1033          Lerror();          Lerror();
1034          vs_top=sup;          vs_top=sup;
1035    goto T338;
1036  T338:;  T338:;
1037          {object V139 = (V137);          {object V139 = (V137);
1038          VMR24(V139)}}          VMR24(V139)}}
1039            base[0]=base[0];
1040            return Cnil;
1041  }  }
1042  /*      local entry for function PARSE-LOOP-INITIALLY   */  /*      local entry for function PARSE-LOOP-INITIALLY   */
1043    
# Line 920  static object LI25(V141) Line 1045  static object LI25(V141)
1045    
1046  object V141;  object V141;
1047  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1048    goto TTL;
1049  TTL:;  TTL:;
1050          {object V142;          {object V142;
1051          V142= (*(LnkLI13))((V141));          V142= (*(LnkLI13))((V141));
# Line 931  TTL:; Line 1057  TTL:;
1057          register object V145;          register object V145;
1058          V144= nreverse((V143));          V144= nreverse((V143));
1059          V145= car((V144));          V145= car((V144));
1060    goto T348;
1061  T348:;  T348:;
1062          if(!(endp((V144)))){          if(!(endp((V144)))){
1063          goto T349;}          goto T349;}
1064          {object V146 = Cnil;          {object V146 = Cnil;
1065          VMR25(V146)}          VMR25(V146)}
1066    goto T349;
1067  T349:;  T349:;
1068          {register object V147;          {register object V147;
1069          if(type_of((V145))==t_cons||((V145))==Cnil){          if(type_of((V145))==t_cons||((V145))==Cnil){
1070          goto T355;}          goto T355;}
1071          V147= Cnil;          V147= Cnil;
1072          goto T354;          goto T354;
1073    goto T355;
1074  T355:;  T355:;
1075          {register object x= car((V145)),V148= VV[98];          {register object x= car((V145)),V148= VV[98];
1076          while(!endp(V148))          while(!endp(V148))
# Line 950  T355:; Line 1079  T355:;
1079          }else V148=V148->c.c_cdr;}          }else V148=V148->c.c_cdr;}
1080          V147= Cnil;          V147= Cnil;
1081          goto T354;          goto T354;
1082    goto T357;
1083  T357:;  T357:;
1084          if((length((V145)))==(3)){          if((length((V145)))==(3)){
1085          goto T359;}          goto T359;}
1086          V147= Cnil;          V147= Cnil;
1087          goto T354;          goto T354;
1088    goto T359;
1089  T359:;  T359:;
1090          if(type_of(cadr((V145)))==t_symbol){          if(type_of(cadr((V145)))==t_symbol){
1091          goto T361;}          goto T361;}
1092          V147= Cnil;          V147= Cnil;
1093          goto T354;          goto T354;
1094    goto T361;
1095  T361:;  T361:;
1096          base[2]= caddr((V145));          base[2]= caddr((V145));
1097          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 969  T361:; Line 1101  T361:;
1101          goto T363;}          goto T363;}
1102          V147= Cnil;          V147= Cnil;
1103          goto T354;          goto T354;
1104    goto T363;
1105  T363:;  T363:;
1106          {register object x= cadr((V145)),V149= caar(symbol_value(VV[46]));          {register object x= cadr((V145)),V149= caar(symbol_value(VV[46]));
1107          while(!endp(V149))          while(!endp(V149))
# Line 977  T363:; Line 1110  T363:;
1110          }else V149=V149->c.c_cdr;}          }else V149=V149->c.c_cdr;}
1111          V147= Cnil;          V147= Cnil;
1112          goto T354;          goto T354;
1113    goto T366;
1114  T366:;  T366:;
1115          V147= (VFUN_NARGS=7,(*(LnkLI267))(cadr((V145)),caddr((V145)),Cnil,Cnil,Cnil,Ct,Ct));          V147= (VFUN_NARGS=7,(*(LnkLI267))(cadr((V145)),caddr((V145)),Cnil,Cnil,Cnil,Ct,Ct));
1116    goto T354;
1117  T354:;  T354:;
1118          if(((V147))==Cnil){          if(((V147))==Cnil){
1119          goto T369;}          goto T369;}
1120          goto T353;          goto T353;
1121    goto T369;
1122  T369:;  T369:;
1123          setq(VV[48],make_cons((V145),symbol_value(VV[48])));}          setq(VV[48],make_cons((V145),symbol_value(VV[48])));}
1124    goto T353;
1125  T353:;  T353:;
1126          V144= cdr((V144));          V144= cdr((V144));
1127          V145= car((V144));          V145= car((V144));
1128          goto T348;}}          goto T348;}}
1129    goto T342;
1130  T342:;  T342:;
1131          if(((*(LnkLI9))((V142),VV[99]))==Cnil){          if(((*(LnkLI9))((V142),VV[99]))==Cnil){
1132          goto T378;}          goto T378;}
# Line 996  T342:; Line 1134  T342:;
1134          setq(VV[43],append(/* INLINE-ARGS */V150,symbol_value(VV[43])));          setq(VV[43],append(/* INLINE-ARGS */V150,symbol_value(VV[43])));
1135          {object V151 = symbol_value(VV[43]);          {object V151 = symbol_value(VV[43]);
1136          VMR25(V151)}          VMR25(V151)}
1137    goto T378;
1138  T378:;  T378:;
1139          base[0]= VV[85];          base[0]= VV[85];
1140          base[1]= (V142);          base[1]= (V142);
# Line 1004  T378:; Line 1143  T378:;
1143          vs_top=sup;          vs_top=sup;
1144          {object V152 = vs_base[0];          {object V152 = vs_base[0];
1145          VMR25(V152)}}          VMR25(V152)}}
1146            base[0]=base[0];
1147            return Cnil;
1148  }  }
1149  /*      local entry for function PARSE-ONE-WHEN-CLAUSE  */  /*      local entry for function PARSE-ONE-WHEN-CLAUSE  */
1150    
1151  static object LI26()  static object LI26()
1152    
1153  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1154    goto TTL;
1155  TTL:;  TTL:;
1156          {register object V153;          {register object V153;
1157          register object V154;          register object V154;
# Line 1017  TTL:; Line 1159  TTL:;
1159          V153= Cnil;          V153= Cnil;
1160          V154= VV[100];          V154= VV[100];
1161          V155= Cnil;          V155= Cnil;
1162    goto T388;
1163  T388:;  T388:;
1164          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
1165          goto T391;}          goto T391;}
1166          goto T390;          goto T390;
1167    goto T391;
1168  T391:;  T391:;
1169          goto T386;          goto T386;
1170    goto T390;
1171  T390:;  T390:;
1172          V155= (*(LnkLI255))();          V155= (*(LnkLI255))();
1173          {register object V156;          {register object V156;
# Line 1032  T390:; Line 1177  T390:;
1177          if(((V157))==Cnil){          if(((V157))==Cnil){
1178          goto T399;}          goto T399;}
1179          goto T395;          goto T395;
1180    goto T399;
1181  T399:;  T399:;
1182          if(((*(LnkLI260))((V156)))==Cnil){          if(((*(LnkLI260))((V156)))==Cnil){
1183          goto T402;}          goto T402;}
1184          if(!(eql(VV[100],(V154)))){          if(!(eql(VV[100],(V154)))){
1185          goto T405;}          goto T405;}
1186          goto T404;          goto T404;
1187    goto T405;
1188  T405:;  T405:;
1189          goto T389;          goto T389;
1190    goto T404;
1191  T404:;  T404:;
1192          V158= (*(LnkLI261))();          V158= (*(LnkLI261))();
1193          V153= append(/* INLINE-ARGS */V158,(V153));          V153= append(/* INLINE-ARGS */V158,(V153));
1194          V154= VV[5];          V154= VV[5];
1195          goto T395;          goto T395;
1196    goto T402;
1197  T402:;  T402:;
1198          if(((*(LnkLI9))((V156),VV[101]))==Cnil){          if(((*(LnkLI9))((V156),VV[101]))==Cnil){
1199          goto T411;}          goto T411;}
1200          if(!(eql(VV[100],(V154)))){          if(!(eql(VV[100],(V154)))){
1201          goto T414;}          goto T414;}
1202          goto T413;          goto T413;
1203    goto T414;
1204  T414:;  T414:;
1205          goto T389;          goto T389;
1206    goto T413;
1207  T413:;  T413:;
1208          V159= (*(LnkLI259))();          V159= (*(LnkLI259))();
1209          V153= append(/* INLINE-ARGS */V159,(V153));          V153= append(/* INLINE-ARGS */V159,(V153));
1210          V154= VV[5];          V154= VV[5];
1211          goto T395;          goto T395;
1212    goto T411;
1213  T411:;  T411:;
1214          if(((*(LnkLI9))((V156),VV[56]))==Cnil){          if(((*(LnkLI9))((V156),VV[56]))==Cnil){
1215          goto T420;}          goto T420;}
1216          if(!(eql(VV[100],(V154)))){          if(!(eql(VV[100],(V154)))){
1217          goto T423;}          goto T423;}
1218          goto T422;          goto T422;
1219    goto T423;
1220  T423:;  T423:;
1221          goto T389;          goto T389;
1222    goto T422;
1223  T422:;  T422:;
1224          V160= (*(LnkLI258))();          V160= (*(LnkLI258))();
1225          V153= append(/* INLINE-ARGS */V160,(V153));          V153= append(/* INLINE-ARGS */V160,(V153));
1226          V154= VV[5];          V154= VV[5];
1227          goto T395;          goto T395;
1228    goto T420;
1229  T420:;  T420:;
1230          if(((*(LnkLI9))((V156),VV[5]))==Cnil){          if(((*(LnkLI9))((V156),VV[5]))==Cnil){
1231          goto T429;}          goto T429;}
1232          if(!(eql(VV[5],(V154)))){          if(!(eql(VV[5],(V154)))){
1233          goto T432;}          goto T432;}
1234          goto T431;          goto T431;
1235    goto T432;
1236  T432:;  T432:;
1237          base[0]= VV[102];          base[0]= VV[102];
1238          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1239          Lerror();          Lerror();
1240          vs_top=sup;          vs_top=sup;
1241    goto T431;
1242  T431:;  T431:;
1243          V154= VV[100];          V154= VV[100];
1244          goto T395;          goto T395;
1245    goto T429;
1246  T429:;  T429:;
1247          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
1248          goto T386;}}          goto T386;}}
1249    goto T395;
1250  T395:;  T395:;
1251          goto T388;          goto T388;
1252    goto T389;
1253  T389:;  T389:;
1254          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
1255          goto T386;          goto T386;
1256    goto T386;
1257  T386:;  T386:;
1258          if((V153)!=Cnil){          if((V153)!=Cnil){
1259          goto T438;}          goto T438;}
# Line 1100  T386:; Line 1261  T386:;
1261          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1262          Lerror();          Lerror();
1263          vs_top=sup;          vs_top=sup;
1264    goto T438;
1265  T438:;  T438:;
1266          {object V161 = (V153);          {object V161 = (V153);
1267          VMR26(V161)}}          VMR26(V161)}}
1268            base[0]=base[0];
1269            return Cnil;
1270  }  }
1271  /*      local entry for function PARSE-LOOP-WHEN        */  /*      local entry for function PARSE-LOOP-WHEN        */
1272    
1273  static object LI27()  static object LI27()
1274    
1275  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1276    goto TTL;
1277  TTL:;  TTL:;
1278          {object V162;          {object V162;
1279          object V163;          object V163;
# Line 1121  TTL:; Line 1286  TTL:;
1286          goto T445;}          goto T445;}
1287          V165= list(2,VV[105],(*(LnkLI255))());          V165= list(2,VV[105],(*(LnkLI255))());
1288          goto T443;          goto T443;
1289    goto T445;
1290  T445:;  T445:;
1291          V165= (*(LnkLI255))();          V165= (*(LnkLI255))();
1292    goto T443;
1293  T443:;  T443:;
1294          V162= (*(LnkLI269))();          V162= (*(LnkLI269))();
1295          {object V166;          {object V166;
# Line 1133  T443:; Line 1300  T443:;
1300          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
1301          V163= Ct;          V163= Ct;
1302          V164= (*(LnkLI269))();}          V164= (*(LnkLI269))();}
1303    goto T449;
1304  T449:;  T449:;
1305          V168= nreverse((V162));          V168= nreverse((V162));
1306          V169= make_cons((V165),/* INLINE-ARGS */V168);          V169= make_cons((V165),/* INLINE-ARGS */V168);
# Line 1142  T449:; Line 1310  T449:;
1310          V171= nreverse((V164));          V171= nreverse((V164));
1311          V172= make_cons(Ct,/* INLINE-ARGS */V171);          V172= make_cons(Ct,/* INLINE-ARGS */V171);
1312          V170= make_cons(/* INLINE-ARGS */V172,Cnil);          V170= make_cons(/* INLINE-ARGS */V172,Cnil);
1313    goto T457;
1314  T457:;  T457:;
1315          V173= listA(3,VV[14],/* INLINE-ARGS */V169,V170);          V173= listA(3,VV[14],/* INLINE-ARGS */V169,V170);
1316          {object V174 = make_cons(/* INLINE-ARGS */V173,Cnil);          {object V174 = make_cons(/* INLINE-ARGS */V173,Cnil);
1317          VMR27(V174)}}}          VMR27(V174)}}}
1318            return Cnil;
1319  }  }
1320  /*      local entry for function POINTER-FOR-COLLECT    */  /*      local entry for function POINTER-FOR-COLLECT    */
1321    
# Line 1153  static object LI28(V176) Line 1323  static object LI28(V176)
1323    
1324  object V176;  object V176;
1325  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1326    goto TTL;
1327  TTL:;{object V177;  TTL:;{object V177;
1328          {register object x= (V176),V179= symbol_value(VV[52]);          {register object x= (V176),V179= symbol_value(VV[52]);
1329          while(!endp(V179))          while(!endp(V179))
# Line 1161  TTL:;{object V177; Line 1332  TTL:;{object V177;
1332          goto T460;          goto T460;
1333          }else V179=V179->c.c_cdr;          }else V179=V179->c.c_cdr;
1334          V178= Cnil;}          V178= Cnil;}
1335    goto T460;
1336  T460:;  T460:;
1337          V177= cdr(V178);          V177= cdr(V178);
1338          if(V177==Cnil)goto T458;          if(V177==Cnil)goto T458;
1339          {object V180 = V177;          {object V180 = V177;
1340          VMR28(V180)}          VMR28(V180)}
1341    goto T458;
1342  T458:;}  T458:;}
1343          {object V181;          {object V181;
1344          base[0]= VV[107];          base[0]= VV[107];
# Line 1178  T458:;} Line 1351  T458:;}
1351          setq(VV[52],make_cons(/* INLINE-ARGS */V183,symbol_value(VV[52])));          setq(VV[52],make_cons(/* INLINE-ARGS */V183,symbol_value(VV[52])));
1352          {object V184 = (V181);          {object V184 = (V181);
1353          VMR28(V184)}}          VMR28(V184)}}
1354            base[0]=base[0];
1355            return Cnil;
1356  }  }
1357  /*      local entry for function PARSE-LOOP-COLLECT     */  /*      local entry for function PARSE-LOOP-COLLECT     */
1358    
1359  static object LI29()  static object LI29()
1360    
1361  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1362    goto TTL;
1363  TTL:;  TTL:;
1364          {register object V185;          {register object V185;
1365          register object V186;          register object V186;
# Line 1199  TTL:; Line 1375  TTL:;
1375          base[0]= Cnil;          base[0]= Cnil;
1376          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1377          unwind(fr,VV[27]);}          unwind(fr,VV[27]);}
1378    goto T469;
1379  T469:;  T469:;
1380          {register object V188;          {register object V188;
1381          register object V189;          register object V189;
# Line 1212  T469:; Line 1389  T469:;
1389          V185= (*(LnkLI255))();          V185= (*(LnkLI255))();
1390          (void)((VFUN_NARGS=6,(*(LnkLI267))((V185),Cnil,Cnil,Ct,Cnil,Ct)));          (void)((VFUN_NARGS=6,(*(LnkLI267))((V185),Cnil,Cnil,Ct,Cnil,Ct)));
1391          goto T473;          goto T473;
1392    goto T476;
1393  T476:;  T476:;
1394          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
1395          if((symbol_value(VV[45]))==Cnil){          if((symbol_value(VV[45]))==Cnil){
1396          goto T481;}          goto T481;}
1397          V185= symbol_value(VV[45]);          V185= symbol_value(VV[45]);
1398          goto T473;          goto T473;
1399    goto T481;
1400  T481:;  T481:;
1401          base[0]= VV[109];          base[0]= VV[109];
1402          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1226  T481:; Line 1405  T481:;
1405          V192= vs_base[0];          V192= vs_base[0];
1406          setq(VV[45],(VFUN_NARGS=2,(*(LnkLI267))(V192,Cnil)));          setq(VV[45],(VFUN_NARGS=2,(*(LnkLI267))(V192,Cnil)));
1407          V185= symbol_value(VV[45]);}          V185= symbol_value(VV[45]);}
1408    goto T473;
1409  T473:;  T473:;
1410          {object V193;          {object V193;
1411          V193= (*(LnkLI13))((V188));          V193= (*(LnkLI13))((V188));
# Line 1242  T473:; Line 1422  T473:;
1422          Ladjoin();          Ladjoin();
1423          vs_top=sup;          vs_top=sup;
1424          setq(VV[48],vs_base[0]);          setq(VV[48],vs_base[0]);
1425    goto T494;
1426  T494:;  T494:;
1427          {object V194;          {object V194;
1428          V194= (*(LnkLI13))((V188));          V194= (*(LnkLI13))((V188));
# Line 1251  T494:; Line 1432  T494:;
1432          goto T505;}          goto T505;}
1433          if(eql(car((V189)),VV[61])){          if(eql(car((V189)),VV[61])){
1434          goto T488;}          goto T488;}
1435    goto T505;
1436  T505:;  T505:;
1437          V189= list(2,VV[115],(V189));}}          V189= list(2,VV[115],(V189));}}
1438    goto T488;
1439  T488:;  T488:;
1440          if(!(type_of((V189))==t_cons||((V189))==Cnil)){          if(!(type_of((V189))==t_cons||((V189))==Cnil)){
1441          goto T512;}          goto T512;}
# Line 1265  T488:; Line 1448  T488:;
1448          V195= vs_base[0];          V195= vs_base[0];
1449          V187= (VFUN_NARGS=3,(*(LnkLI267))(V195,Cnil,Cnil));          V187= (VFUN_NARGS=3,(*(LnkLI267))(V195,Cnil,Cnil));
1450          goto T510;          goto T510;
1451    goto T512;
1452  T512:;  T512:;
1453          V187= (V189);          V187= (V189);
1454    goto T510;
1455  T510:;  T510:;
1456          {object V196;          {object V196;
1457          {object V197;          {object V197;
# Line 1280  T510:; Line 1465  T510:;
1465          goto T527;}          goto T527;}
1466          V196= make_cons((V198),Cnil);          V196= make_cons((V198),Cnil);
1467          goto T520;          goto T520;
1468    goto T527;
1469  T527:;  T527:;
1470          V200= list(2,(V186),(V198));          V200= list(2,(V186),(V198));
1471          V201= list(3,VV[14],/* INLINE-ARGS */V200,list(2,Ct,list(3,VV[15],(V186),list(2,VV[118],list(3,VV[15],(V185),(V187))))));          V201= list(3,VV[14],/* INLINE-ARGS */V200,list(2,Ct,list(3,VV[15],(V186),list(2,VV[118],list(3,VV[15],(V185),(V187))))));
1472          V196= make_cons(/* INLINE-ARGS */V201,Cnil);          V196= make_cons(/* INLINE-ARGS */V201,Cnil);
1473          goto T520;}          goto T520;}
1474    goto T523;
1475  T523:;  T523:;
1476          if(((*(LnkLI9))((V197),VV[27]))==Cnil){          if(((*(LnkLI9))((V197),VV[27]))==Cnil){
1477          goto T530;}          goto T530;}
# Line 1294  T523:; Line 1481  T523:;
1481          V203= list(3,VV[15],/* INLINE-ARGS */V202,list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil)));          V203= list(3,VV[15],/* INLINE-ARGS */V202,list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil)));
1482          V196= make_cons(/* INLINE-ARGS */V203,Cnil);          V196= make_cons(/* INLINE-ARGS */V203,Cnil);
1483          goto T520;          goto T520;
1484    goto T533;
1485  T533:;  T533:;
1486          V204= list(2,VV[18],(V186));          V204= list(2,VV[18],(V186));
1487          V205= list(2,(V186),list(3,VV[15],/* INLINE-ARGS */V204,list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil))));          V205= list(2,(V186),list(3,VV[15],/* INLINE-ARGS */V204,list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil))));
1488          V206= list(3,VV[14],/* INLINE-ARGS */V205,list(2,Ct,list(3,VV[15],(V185),list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil)))));          V206= list(3,VV[14],/* INLINE-ARGS */V205,list(2,Ct,list(3,VV[15],(V185),list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil)))));
1489          V196= make_cons(/* INLINE-ARGS */V206,Cnil);          V196= make_cons(/* INLINE-ARGS */V206,Cnil);
1490          goto T520;          goto T520;
1491    goto T530;
1492  T530:;  T530:;
1493          V188= (*(LnkLI13))((V188));          V188= (*(LnkLI13))((V188));
1494          if(((VFUN_NARGS=4,(*(LnkLI249))((V188),symbol_value(VV[28]),VV[30],VV[9])))==Cnil){          if(((VFUN_NARGS=4,(*(LnkLI249))((V188),symbol_value(VV[28]),VV[30],VV[9])))==Cnil){
1495          goto T538;}          goto T538;}
1496          V196= (*(LnkLI271))((V188),(V185),(V187));          V196= (*(LnkLI271))((V188),(V185),(V187));
1497          goto T520;          goto T520;
1498    goto T538;
1499  T538:;  T538:;
1500          base[0]= VV[120];          base[0]= VV[120];
1501          base[1]= (V188);          base[1]= (V188);
# Line 1313  T538:; Line 1503  T538:;
1503          Lerror();          Lerror();
1504          vs_top=sup;          vs_top=sup;
1505          V196= vs_base[0];}          V196= vs_base[0];}
1506    goto T520;
1507  T520:;  T520:;
1508          if(!(eql((V187),(V189)))){          if(!(eql((V187),(V189)))){
1509          goto T543;}          goto T543;}
1510          {object V207 = (V196);          {object V207 = (V196);
1511          VMR29(V207)}          VMR29(V207)}
1512    goto T543;
1513  T543:;  T543:;
1514          V208= list(3,VV[15],(V187),(V189));          V208= list(3,VV[15],(V187),(V189));
1515          V209= make_cons(/* INLINE-ARGS */V208,Cnil);          V209= make_cons(/* INLINE-ARGS */V208,Cnil);
1516          {object V210 = nconc((V196),/* INLINE-ARGS */V209);          {object V210 = nconc((V196),/* INLINE-ARGS */V209);
1517          VMR29(V210)}}}}          VMR29(V210)}}}}
1518            base[0]=base[0];
1519            return Cnil;
1520  }  }
1521  /*      local entry for function LOOP-PARSE-ADDITIONAL-COLLECTIONS      */  /*      local entry for function LOOP-PARSE-ADDITIONAL-COLLECTIONS      */
1522    
# Line 1331  static object LI30(V214,V215,V216) Line 1525  static object LI30(V214,V215,V216)
1525  object V214;object V215;object V216;  object V214;object V215;object V216;
1526  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1527          bds_check;          bds_check;
1528    goto TTL;
1529  TTL:;  TTL:;
1530          {register object V217;          {register object V217;
1531          V217= Cnil;          V217= Cnil;
# Line 1346  TTL:; Line 1541  TTL:;
1541          bds_bind(VV[35],Cnil);          bds_bind(VV[35],Cnil);
1542          {register object V221;          {register object V221;
1543          V221= (*(LnkLI255))();          V221= (*(LnkLI255))();
1544    goto T552;
1545  T552:;  T552:;
1546          if(((VV[34]->s.s_dbind))!=Cnil){          if(((VV[34]->s.s_dbind))!=Cnil){
1547          goto T553;}          goto T553;}
1548          goto T549;          goto T549;
1549    goto T553;
1550  T553:;  T553:;
1551          {register object V222;          {register object V222;
1552          V222= (*(LnkLI13))((V221));          V222= (*(LnkLI13))((V221));
# Line 1358  T553:; Line 1555  T553:;
1555          if(((V223))==Cnil){          if(((V223))==Cnil){
1556          goto T561;}          goto T561;}
1557          goto T557;          goto T557;
1558    goto T561;
1559  T561:;  T561:;
1560          if(((*(LnkLI9))((V222),VV[56]))==Cnil){          if(((*(LnkLI9))((V222),VV[56]))==Cnil){
1561          goto T564;}          goto T564;}
1562          V217= (*(LnkLI258))();          V217= (*(LnkLI258))();
1563          goto T557;          goto T557;
1564    goto T564;
1565  T564:;  T564:;
1566          base[4]= VV[85];          base[4]= VV[85];
1567          base[5]= (V222);          base[5]= (V222);
1568          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1569          Lerror();          Lerror();
1570          vs_top=sup;}}          vs_top=sup;}}
1571    goto T557;
1572  T557:;  T557:;
1573          V221= (*(LnkLI255))();          V221= (*(LnkLI255))();
1574          goto T552;}          goto T552;}
1575    goto T549;
1576  T549:;  T549:;
1577          {object V224 = (V217);          {object V224 = (V217);
1578          bds_unwind1;          bds_unwind1;
1579          bds_unwind1;          bds_unwind1;
1580          VMR30(V224)}}}}          VMR30(V224)}}}}
1581            base[0]=base[0];
1582            return Cnil;
1583  }  }
1584  /*      local entry for function THE-TYPE       */  /*      local entry for function THE-TYPE       */
1585    
# Line 1384  static object LI31(V227,V228) Line 1587  static object LI31(V227,V228)
1587    
1588  object V227;register object V228;  object V227;register object V228;
1589  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1590    goto TTL;
1591  TTL:;  TTL:;
1592          if(symbol_value(VV[47])==Cnil){          if(symbol_value(VV[47])==Cnil){
1593          goto T572;}          goto T572;}
1594          V228= Cnil;          V228= Cnil;
1595    goto T572;
1596  T572:;  T572:;
1597          if((V228)==Cnil){          if((V228)==Cnil){
1598          goto T574;}{object V229;          goto T574;}{object V229;
# Line 1400  T572:; Line 1605  T572:;
1605          if(V229==Cnil)goto T576;          if(V229==Cnil)goto T576;
1606          V228= V229;          V228= V229;
1607          goto T575;          goto T575;
1608    goto T576;
1609  T576:;}  T576:;}
1610          if((((type_of((V228))==t_symbol&&((V228))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil){          if((((type_of((V228))==t_symbol&&((V228))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil){
1611          goto T580;}          goto T580;}
1612          V228= Cnil;          V228= Cnil;
1613          goto T575;          goto T575;
1614    goto T580;
1615  T580:;  T580:;
1616    goto T575;
1617  T575:;  T575:;
1618    goto T574;
1619  T574:;  T574:;
1620          if(type_of((V228))==t_cons){          if(type_of((V228))==t_cons){
1621          goto T583;}          goto T583;}
1622          goto T582;          goto T582;
1623    goto T583;
1624  T583:;  T583:;
1625          if((car((V228)))==(VV[122])){          if((car((V228)))==(VV[122])){
1626          goto T585;}          goto T585;}
1627          goto T582;          goto T582;
1628    goto T585;
1629  T585:;  T585:;
1630          V228= cadr((V228));          V228= cadr((V228));
1631    goto T582;
1632  T582:;  T582:;
1633          if(((V228))==Cnil){          if(((V228))==Cnil){
1634          goto T589;}          goto T589;}
1635          {object V230 = list(3,VV[123],(V228),(V227));          {object V230 = list(3,VV[123],(V228),(V227));
1636          VMR31(V230)}          VMR31(V230)}
1637    goto T589;
1638  T589:;  T589:;
1639          {object V231 = (V227);          {object V231 = (V227);
1640          VMR31(V231)}          VMR31(V231)}
1641            base[0]=base[0];
1642            return Cnil;
1643  }  }
1644  /*      local entry for function TYPE-ERROR     */  /*      local entry for function TYPE-ERROR     */
1645    
1646  static object LI32()  static object LI32()
1647    
1648  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1649    goto TTL;
1650  TTL:;  TTL:;
1651          base[0]= VV[124];          base[0]= VV[124];
1652          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1438  TTL:; Line 1654  TTL:;
1654          vs_top=sup;          vs_top=sup;
1655          {object V232 = vs_base[0];          {object V232 = vs_base[0];
1656          VMR32(V232)}          VMR32(V232)}
1657            base[0]=base[0];
1658            return Cnil;
1659  }  }
1660  /*      local entry for function MAKE-VALUE     */  /*      local entry for function MAKE-VALUE     */
1661    
# Line 1445  static object LI33(V235,V236) Line 1663  static object LI33(V235,V236)
1663    
1664  register object V235;object V236;  register object V235;object V236;
1665  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1666    goto TTL;
1667  TTL:;  TTL:;
1668          {register object V237;          {register object V237;
1669          V237= Cnil;          V237= Cnil;
# Line 1468  TTL:; Line 1687  TTL:;
1687          goto T608;}          goto T608;}
1688          V237= cadr((V237));          V237= cadr((V237));
1689          goto T606;          goto T606;
1690    goto T608;
1691  T608:;  T608:;
1692    goto T606;
1693  T606:;  T606:;
1694          base[0]= (V235);          base[0]= (V235);
1695          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1491  T606:; Line 1712  T606:;
1712          vs_top=sup;          vs_top=sup;
1713          V238= vs_base[0];          V238= vs_base[0];
1714          goto T616;          goto T616;
1715    goto T618;
1716  T618:;  T618:;
1717          base[0]= (V235);          base[0]= (V235);
1718          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1719          Leval();          Leval();
1720          vs_top=sup;          vs_top=sup;
1721          V238= vs_base[0];          V238= vs_base[0];
1722    goto T616;
1723  T616:;{object V239;  T616:;{object V239;
1724          base[0]= (V238);          base[0]= (V238);
1725          base[1]= (V237);          base[1]= (V237);
# Line 1506  T616:;{object V239; Line 1729  T616:;{object V239;
1729          V239= vs_base[0];          V239= vs_base[0];
1730          if(V239==Cnil)goto T626;          if(V239==Cnil)goto T626;
1731          goto T625;          goto T625;
1732    goto T626;
1733  T626:;}  T626:;}
1734          base[0]= VV[128];          base[0]= VV[128];
1735          base[1]= (V235);          base[1]= (V235);
# Line 1513  T626:;} Line 1737  T626:;}
1737          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1738          Lerror();          Lerror();
1739          vs_top=sup;          vs_top=sup;
1740    goto T625;
1741  T625:;  T625:;
1742          {object V240 = make_cons((V235),Cnil);          {object V240 = make_cons((V235),Cnil);
1743          VMR33(V240)}}          VMR33(V240)}}
1744    goto T613;
1745  T613:;  T613:;
1746          {register object V241;          {register object V241;
1747          V241= Cnil;          V241= Cnil;
# Line 1523  T613:; Line 1749  T613:;
1749          goto T635;}          goto T635;}
1750          V242= Cnil;          V242= Cnil;
1751          goto T633;          goto T633;
1752    goto T635;
1753  T635:;  T635:;
1754          vs_base=vs_top;          vs_base=vs_top;
1755          Lgensym();          Lgensym();
# Line 1530  T635:; Line 1757  T635:;
1757          V241= vs_base[0];          V241= vs_base[0];
1758          V243= list(2,(V241),(V235));          V243= list(2,(V241),(V235));
1759          V242= make_cons(/* INLINE-ARGS */V243,Cnil);          V242= make_cons(/* INLINE-ARGS */V243,Cnil);
1760    goto T633;
1761  T633:;  T633:;
1762          if((symbol_value(VV[39]))==Cnil){          if((symbol_value(VV[39]))==Cnil){
1763          goto T640;}          goto T640;}
# Line 1537  T633:; Line 1765  T633:;
1765          base[0]= (V241);          base[0]= (V241);
1766          goto T642;}          goto T642;}
1767          base[0]= (V235);          base[0]= (V235);
1768    goto T642;
1769  T642:;  T642:;
1770          base[1]= VV[127];          base[1]= VV[127];
1771          base[2]= symbol_value(VV[39]);          base[2]= symbol_value(VV[39]);
# Line 1545  T642:; Line 1774  T642:;
1774          vs_top=sup;          vs_top=sup;
1775          V244= vs_base[0];          V244= vs_base[0];
1776          goto T638;          goto T638;
1777    goto T640;
1778  T640:;  T640:;
1779          if((V241)!=Cnil){          if((V241)!=Cnil){
1780          V244= (V241);          V244= (V241);
1781          goto T638;}          goto T638;}
1782          V244= (V235);          V244= (V235);
1783    goto T638;
1784  T638:;  T638:;
1785          V245= list(3,VV[80],list(3,VV[129],V244,list(2,VV[10],(V237))),VV[130]);          V245= list(3,VV[80],list(3,VV[129],V244,list(2,VV[10],(V237))),VV[130]);
1786          if((V241)!=Cnil){          if((V241)!=Cnil){
1787          V246= (V241);          V246= (V241);
1788          goto T645;}          goto T645;}
1789          V246= (V235);          V246= (V235);
1790    goto T645;
1791  T645:;  T645:;
1792          V247= list(4,VV[12],V242,/* INLINE-ARGS */V245,V246);          V247= list(4,VV[12],V242,/* INLINE-ARGS */V245,V246);
1793          {object V248 = make_cons(/* INLINE-ARGS */V247,Cnil);          {object V248 = make_cons(/* INLINE-ARGS */V247,Cnil);
1794          VMR33(V248)}}          VMR33(V248)}}
1795    goto T594;
1796  T594:;  T594:;
1797          {object V249 = make_cons((V235),Cnil);          {object V249 = make_cons((V235),Cnil);
1798          VMR33(V249)}}          VMR33(V249)}}
1799            base[0]=base[0];
1800            return Cnil;
1801  }  }
1802  /*      local entry for function LOOP-ADD-BINDING       */  /*      local entry for function LOOP-ADD-BINDING       */
1803    
# Line 1579  static object LI34(V251,V250,va_alist) Line 1814  static object LI34(V251,V250,va_alist)
1814          object V256;          object V256;
1815          object V257;          object V257;
1816          object V258;          object V258;
1817            Vcs[0]=Vcs[0];
1818            va_start(ap);
1819          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1820          V252= V251;          V252= V251;
1821          V253= V250;          V253= V250;
1822          narg = narg - 2;          narg = narg - 2;
1823          if (narg <= 0) goto T646;          if (narg <= 0) goto T646;
1824          else {          else {
         va_start(ap);  
1825          V254= va_arg(ap,object);}          V254= va_arg(ap,object);}
1826          if (--narg <= 0) goto T647;          if (--narg <= 0) goto T647;
1827          else {          else {
# Line 1600  static object LI34(V251,V250,va_alist) Line 1836  static object LI34(V251,V250,va_alist)
1836          else {          else {
1837          V258= va_arg(ap,object);}          V258= va_arg(ap,object);}
1838          --narg; goto T651;          --narg; goto T651;
1839    goto T646;
1840  T646:;  T646:;
1841          V254= Ct;          V254= Ct;
1842    goto T647;
1843  T647:;  T647:;
1844          V255= Cnil;          V255= Cnil;
1845    goto T648;
1846  T648:;  T648:;
1847          V256= Cnil;          V256= Cnil;
1848    goto T649;
1849  T649:;  T649:;
1850          V257= Ct;          V257= Ct;
1851    goto T650;
1852  T650:;  T650:;
1853          V258= Cnil;          V258= Cnil;
1854    goto T651;
1855  T651:;  T651:;
1856          {register object V259;          {register object V259;
1857          V259= Cnil;          V259= Cnil;
# Line 1617  T651:; Line 1859  T651:;
1859          goto T659;}          goto T659;}
1860          if((symbol_value(VV[46]))!=Cnil){          if((symbol_value(VV[46]))!=Cnil){
1861          goto T658;}          goto T658;}
1862    goto T659;
1863  T659:;  T659:;
1864          V260= make_cons(Cnil,Cnil);          V260= make_cons(Cnil,Cnil);
1865          setq(VV[46],make_cons(/* INLINE-ARGS */V260,symbol_value(VV[46])));          setq(VV[46],make_cons(/* INLINE-ARGS */V260,symbol_value(VV[46])));
1866    goto T658;
1867  T658:;  T658:;
1868          {register object x= (V252),V261= caar(symbol_value(VV[46]));          {register object x= (V252),V261= caar(symbol_value(VV[46]));
1869          while(!endp(V261))          while(!endp(V261))
# Line 1628  T658:; Line 1872  T658:;
1872          goto T668;          goto T668;
1873          }else V261=V261->c.c_cdr;          }else V261=V261->c.c_cdr;
1874          V259= Cnil;}          V259= Cnil;}
1875    goto T668;
1876  T668:;  T668:;
1877          if(((V259))==Cnil){          if(((V259))==Cnil){
1878          goto T666;}          goto T666;}
# Line 1638  T668:; Line 1883  T668:;
1883          V263= Cnil;          V263= Cnil;
1884          goto T669;}          goto T669;}
1885          V263= (*(LnkLI272))((V253),(V255));          V263= (*(LnkLI272))((V253),(V255));
1886    goto T669;
1887  T669:;  T669:;
1888          if(type_of(V259)!=t_cons)FEwrong_type_argument(Scons,V259);          if(type_of(V259)!=t_cons)FEwrong_type_argument(Scons,V259);
1889          (V259)->c.c_cdr = (V263);          (V259)->c.c_cdr = (V263);
1890          goto T664;}          goto T664;}
1891    goto T666;
1892  T666:;  T666:;
1893          {object V264;          {object V264;
1894          if((V258)!=Cnil){          if((V258)!=Cnil){
# Line 1656  T666:; Line 1903  T666:;
1903          if((V265)==Cnil){          if((V265)==Cnil){
1904          goto T674;}          goto T674;}
1905          goto T673;          goto T673;
1906    goto T674;
1907  T674:;  T674:;
1908          base[0]= (V253);          base[0]= (V253);
1909          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1663  T674:; Line 1911  T674:;
1911          vs_top=sup;          vs_top=sup;
1912          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1913          goto T672;}          goto T672;}
1914    goto T673;
1915  T673:;  T673:;
1916          V264= Cnil;          V264= Cnil;
1917          goto T671;          goto T671;
1918    goto T672;
1919  T672:;  T672:;
1920          {register object V266;          {register object V266;
1921          register object V267;          register object V267;
1922          V266= cdr(symbol_value(VV[46]));          V266= cdr(symbol_value(VV[46]));
1923          V267= car((V266));          V267= car((V266));
1924    goto T682;
1925  T682:;  T682:;
1926          if(!(endp((V266)))){          if(!(endp((V266)))){
1927          goto T683;}          goto T683;}
1928          V264= Cnil;          V264= Cnil;
1929          goto T671;          goto T671;
1930    goto T683;
1931  T683:;  T683:;
1932          {register object x= (V252),V268= car((V267));          {register object x= (V252),V268= car((V267));
1933          while(!endp(V268))          while(!endp(V268))
# Line 1684  T683:; Line 1936  T683:;
1936          goto T690;          goto T690;
1937          }else V268=V268->c.c_cdr;          }else V268=V268->c.c_cdr;
1938          V259= Cnil;}          V259= Cnil;}
1939    goto T690;
1940  T690:;  T690:;
1941          if(((V259))==Cnil){          if(((V259))==Cnil){
1942          goto T687;}          goto T687;}
# Line 1696  T690:; Line 1949  T690:;
1949          V270= Cnil;          V270= Cnil;
1950          goto T693;}          goto T693;}
1951          V270= (*(LnkLI272))((V253),(V255));          V270= (*(LnkLI272))((V253),(V255));
1952    goto T693;
1953  T693:;  T693:;
1954          if(type_of((V269))!=t_cons)FEwrong_type_argument(Scons,(V269));          if(type_of((V269))!=t_cons)FEwrong_type_argument(Scons,(V269));
1955          ((V269))->c.c_cdr = (V270);}          ((V269))->c.c_cdr = (V270);}
1956    goto T691;
1957  T691:;  T691:;
1958          V264= Ct;          V264= Ct;
1959          goto T671;          goto T671;
1960    goto T687;
1961  T687:;  T687:;
1962          V266= cdr((V266));          V266= cdr((V266));
1963          V267= car((V266));          V267= car((V266));
1964          goto T682;}          goto T682;}
1965    goto T671;
1966  T671:;  T671:;
1967          if(((V264))==Cnil){          if(((V264))==Cnil){
1968          goto T701;}          goto T701;}
1969          goto T664;          goto T664;
1970    goto T701;
1971  T701:;  T701:;
1972          {object V271;          {object V271;
1973          object V272;          object V272;
# Line 1718  T701:; Line 1976  T701:;
1976          V273= Cnil;          V273= Cnil;
1977          goto T705;}          goto T705;}
1978          V273= (*(LnkLI272))((V253),(V255));          V273= (*(LnkLI272))((V253),(V255));
1979    goto T705;
1980  T705:;  T705:;
1981          V274= make_cons((V252),V273);          V274= make_cons((V252),V273);
1982          V272= make_cons(/* INLINE-ARGS */V274,caar((V271)));          V272= make_cons(/* INLINE-ARGS */V274,caar((V271)));
1983          if(type_of(car((V271)))!=t_cons)FEwrong_type_argument(Scons,car((V271)));          if(type_of(car((V271)))!=t_cons)FEwrong_type_argument(Scons,car((V271)));
1984          (car((V271)))->c.c_car = (V272);          (car((V271)))->c.c_car = (V272);
1985          (void)(car((V271)));}}          (void)(car((V271)));}}
1986    goto T664;
1987  T664:;  T664:;
1988          if((V255)==Cnil){          if((V255)==Cnil){
1989          goto T707;}          goto T707;}
1990          (void)((VFUN_NARGS=3,(*(LnkLI273))((V252),(V255),(V256))));          (void)((VFUN_NARGS=3,(*(LnkLI273))((V252),(V255),(V256))));
1991    goto T707;
1992  T707:;  T707:;
1993          {object V275 = (V252);          {object V275 = (V252);
1994          VMR34(V275)}}}          VMR34(V275)}}
1995            va_end(ap);
1996            base[0]=base[0];
1997            return Cnil;}
1998          }          }
1999  /*      local entry for function LOOP-DECLARE-BINDING   */  /*      local entry for function LOOP-DECLARE-BINDING   */
2000    
# Line 1744  static object LI35(V278,V277,V276,va_ali Line 2008  static object LI35(V278,V277,V276,va_ali
2008          register object V280;          register object V280;
2009          object V281;          object V281;
2010          object V282;          object V282;
2011            Vcs[0]=Vcs[0];
2012            va_start(ap);
2013          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
2014          V279= V278;          V279= V278;
2015          V280= V277;          V280= V277;
# Line 1751  static object LI35(V278,V277,V276,va_ali Line 2017  static object LI35(V278,V277,V276,va_ali
2017          narg = narg - 3;          narg = narg - 3;
2018          if (narg <= 0) goto T708;          if (narg <= 0) goto T708;
2019          else {          else {
         va_start(ap);  
2020          V282= va_arg(ap,object);}          V282= va_arg(ap,object);}
2021          --narg; goto T709;          --narg; goto T709;
2022    goto T708;
2023  T708:;  T708:;
2024          V282= Cnil;          V282= Cnil;
2025    goto T709;
2026  T709:;  T709:;
2027          {object V283;          {object V283;
2028          V283= Cnil;          V283= Cnil;
# Line 1767  T709:; Line 2034  T709:;
2034          goto T714;          goto T714;
2035          }else V284=V284->c.c_cdr;}          }else V284=V284->c.c_cdr;}
2036          goto T713;          goto T713;
2037    goto T714;
2038  T714:;  T714:;
2039          base[0]= symbol_value(VV[54]);          base[0]= symbol_value(VV[54]);
2040          base[1]= (V280);          base[1]= (V280);
# Line 1777  T714:; Line 2045  T714:;
2045          if(((V280))!=Cnil){          if(((V280))!=Cnil){
2046          goto T716;}          goto T716;}
2047          goto T713;          goto T713;
2048    goto T716;
2049  T716:;  T716:;
2050          if(symbol_value(VV[132])==Cnil){          if(symbol_value(VV[132])==Cnil){
2051          goto T713;}          goto T713;}
2052          (void)((VFUN_NARGS=3,(*(LnkLI273))((V279),VV[133],(V281))));          (void)((VFUN_NARGS=3,(*(LnkLI273))((V279),VV[133],(V281))));
2053    goto T713;
2054  T713:;  T713:;
2055          if(((V280))==Cnil){          if(((V280))==Cnil){
2056          goto T721;}          goto T721;}
# Line 1788  T713:; Line 2058  T713:;
2058          goto T722;}          goto T722;}
2059          if((symbol_value(VV[47]))!=Cnil){          if((symbol_value(VV[47]))!=Cnil){
2060          goto T721;}          goto T721;}
2061    goto T722;
2062  T722:;  T722:;
2063          {register object V285;          {register object V285;
2064          register object V286;          register object V286;
2065          V285= symbol_value(VV[46]);          V285= symbol_value(VV[46]);
2066          V286= car((V285));          V286= car((V285));
2067    goto T732;
2068  T732:;  T732:;
2069          if(!(endp((V285)))){          if(!(endp((V285)))){
2070          goto T733;}          goto T733;}
2071          goto T728;          goto T728;
2072    goto T733;
2073  T733:;  T733:;
2074          {register object x= (V279),V287= car((V286));          {register object x= (V279),V287= car((V286));
2075          while(!endp(V287))          while(!endp(V287))
# Line 1804  T733:; Line 2077  T733:;
2077          goto T739;          goto T739;
2078          }else V287=V287->c.c_cdr;          }else V287=V287->c.c_cdr;
2079          goto T737;}          goto T737;}
2080    goto T739;
2081  T739:;  T739:;
2082          V283= Ct;          V283= Ct;
2083          {register object V288;          {register object V288;
# Line 1815  T739:; Line 2089  T739:;
2089          goto T747;}          goto T747;}
2090          base[2]= list(3,VV[122],cadr((V280)),(V279));          base[2]= list(3,VV[122],cadr((V280)),(V279));
2091          goto T745;          goto T745;
2092    goto T747;
2093  T747:;  T747:;
2094          if(((V282))==Cnil){          if(((V282))==Cnil){
2095          goto T752;}          goto T752;}
2096          base[2]= list(3,VV[122],(V280),(V279));          base[2]= list(3,VV[122],(V280),(V279));
2097          goto T745;          goto T745;
2098    goto T752;
2099  T752:;  T752:;
2100          base[2]= list(2,(V280),(V279));          base[2]= list(2,(V280),(V279));
2101    goto T745;
2102  T745:;  T745:;
2103          base[3]= cdr((V288));          base[3]= cdr((V288));
2104          base[4]= VV[30];          base[4]= VV[30];
# Line 1833  T745:; Line 2110  T745:;
2110          if(type_of((V288))!=t_cons)FEwrong_type_argument(Scons,(V288));          if(type_of((V288))!=t_cons)FEwrong_type_argument(Scons,(V288));
2111          ((V288))->c.c_cdr = (V289);}          ((V288))->c.c_cdr = (V289);}
2112          goto T728;          goto T728;
2113    goto T737;
2114  T737:;  T737:;
2115          V285= cdr((V285));          V285= cdr((V285));
2116          V286= car((V285));          V286= car((V285));
2117          goto T732;}          goto T732;}
2118    goto T728;
2119  T728:;  T728:;
2120          if((V283)!=Cnil){          if((V283)!=Cnil){
2121          goto T721;}          goto T721;}
# Line 1847  T728:; Line 2126  T728:;
2126          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2127          Lerror();          Lerror();
2128          vs_top=sup;          vs_top=sup;
2129    goto T721;
2130  T721:;  T721:;
2131          {object V290 = (V279);          {object V290 = (V279);
2132          VMR35(V290)}}}          VMR35(V290)}}
2133            va_end(ap);
2134            base[0]=base[0];
2135            return Cnil;}
2136          }          }
2137  /*      local entry for function PARSE-LOOP-DECLARE     */  /*      local entry for function PARSE-LOOP-DECLARE     */
2138    
# Line 1860  static object LI36(va_alist) Line 2143  static object LI36(va_alist)
2143          int narg = VFUN_NARGS; VMB36 VMS36 VMV36          int narg = VFUN_NARGS; VMB36 VMS36 VMV36
2144          {register object V291;          {register object V291;
2145          register object V292;          register object V292;
2146            Vcs[0]=Vcs[0];
2147            va_start(ap);
2148          narg = narg - 0;          narg = narg - 0;
2149          if (narg <= 0) goto T765;          if (narg <= 0) goto T765;
2150          else {          else {
         va_start(ap);  
2151          V291= va_arg(ap,object);}          V291= va_arg(ap,object);}
2152          if (--narg <= 0) goto T766;          if (--narg <= 0) goto T766;
2153          else {          else {
2154          V292= va_arg(ap,object);}          V292= va_arg(ap,object);}
2155          --narg; goto T767;          --narg; goto T767;
2156    goto T765;
2157  T765:;  T765:;
2158          V291= (*(LnkLI255))();          V291= (*(LnkLI255))();
2159    goto T766;
2160  T766:;  T766:;
2161          V292= Ct;          V292= Ct;
2162    goto T767;
2163  T767:;  T767:;
2164          {object V293;          {object V293;
2165          register object V294;          register object V294;
# Line 1883  T767:; Line 2170  T767:;
2170          V291= cdr((V291));          V291= cdr((V291));
2171          V293= car((V291));          V293= car((V291));
2172          V294= Ct;          V294= Ct;
2173    goto T771;
2174  T771:;  T771:;
2175          {register object V295;          {register object V295;
2176          register object V296;          register object V296;
2177          V295= cdr((V291));          V295= cdr((V291));
2178          V296= car((V295));          V296= car((V295));
2179    goto T782;
2180  T782:;  T782:;
2181          if(!(endp((V295)))){          if(!(endp((V295)))){
2182          goto T783;}          goto T783;}
2183          {object V297 = Cnil;          {object V297 = Cnil;
2184          VMR36(V297)}          VMR36(V297)}
2185    goto T783;
2186  T783:;  T783:;
2187          (void)((VFUN_NARGS=4,(*(LnkLI273))((V296),car((V291)),(V292),(V294))));          (void)((VFUN_NARGS=4,(*(LnkLI273))((V296),car((V291)),(V292),(V294))));
2188          V295= cdr((V295));          V295= cdr((V295));
2189          V296= car((V295));          V296= car((V295));
2190          goto T782;}}}          goto T782;}}
2191            va_end(ap);
2192            base[0]=base[0];
2193            return Cnil;}
2194          }          }
2195  /*      local entry for function LOOP-ADD-TEMPS */  /*      local entry for function LOOP-ADD-TEMPS */
2196    
# Line 1912  static object LI37(V298,va_alist) Line 2205  static object LI37(V298,va_alist)
2205          object V301;          object V301;
2206          object V302;          object V302;
2207          object V303;          object V303;
2208            Vcs[0]=Vcs[0];
2209            va_start(ap);
2210          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2211          V299= V298;          V299= V298;
2212          narg = narg - 1;          narg = narg - 1;
2213          if (narg <= 0) goto T793;          if (narg <= 0) goto T793;
2214          else {          else {
         va_start(ap);  
2215          V300= va_arg(ap,object);}          V300= va_arg(ap,object);}
2216          if (--narg <= 0) goto T794;          if (--narg <= 0) goto T794;
2217          else {          else {
# Line 1929  static object LI37(V298,va_alist) Line 2223  static object LI37(V298,va_alist)
2223          else {          else {
2224          V303= va_arg(ap,object);}          V303= va_arg(ap,object);}
2225          --narg; goto T797;          --narg; goto T797;
2226    goto T793;
2227  T793:;  T793:;
2228          V300= Cnil;          V300= Cnil;
2229    goto T794;
2230  T794:;  T794:;
2231          V301= Cnil;          V301= Cnil;
2232    goto T795;
2233  T795:;  T795:;
2234          V302= Cnil;          V302= Cnil;
2235    goto T796;
2236  T796:;  T796:;
2237          V303= Cnil;          V303= Cnil;
2238    goto T797;
2239  T797:;  T797:;
2240          {object V304;          {object V304;
2241          V304= (((V299))==Cnil?Ct:Cnil);          V304= (((V299))==Cnil?Ct:Cnil);
# Line 1944  T797:; Line 2243  T797:;
2243          goto T804;}          goto T804;}
2244          {object V305 = (V304);          {object V305 = (V304);
2245          VMR37(V305)}          VMR37(V305)}
2246    goto T804;
2247  T804:;  T804:;
2248          if(!(type_of((V299))==t_symbol)){          if(!(type_of((V299))==t_symbol)){
2249          goto T807;}          goto T807;}
2250          {object V306 = (VFUN_NARGS=7,(*(LnkLI267))((V299),(V300),(V302),(V301),Cnil,Ct,(V303)));          {object V306 = (VFUN_NARGS=7,(*(LnkLI267))((V299),(V300),(V302),(V301),Cnil,Ct,(V303)));
2251          VMR37(V306)}          VMR37(V306)}
2252    goto T807;
2253  T807:;  T807:;
2254          if(!(type_of((V299))==t_cons||((V299))==Cnil)){          if(!(type_of((V299))==t_cons||((V299))==Cnil)){
2255          goto T810;}          goto T810;}
2256          (void)((VFUN_NARGS=1,(*(LnkLI268))(car((V299)))));          (void)((VFUN_NARGS=1,(*(LnkLI268))(car((V299)))));
2257          {object V307 = (VFUN_NARGS=1,(*(LnkLI268))(cdr((V299))));          {object V307 = (VFUN_NARGS=1,(*(LnkLI268))(cdr((V299))));
2258          VMR37(V307)}          VMR37(V307)}
2259    goto T810;
2260  T810:;  T810:;
2261          {object V308 = Cnil;          {object V308 = Cnil;
2262          VMR37(V308)}}}          VMR37(V308)}}
2263            va_end(ap);
2264            return Cnil;}
2265          }          }
2266  /*      local entry for function ADD-FROM-DATA  */  /*      local entry for function ADD-FROM-DATA  */
2267    
# Line 1969  static object LI38(V309,va_alist) Line 2273  static object LI38(V309,va_alist)
2273          int narg = VFUN_NARGS; VMB38 VMS38 VMV38          int narg = VFUN_NARGS; VMB38 VMS38 VMV38
2274          {register object V310;          {register object V310;
2275          object V311;          object V311;
2276            Vcs[0]=Vcs[0];
2277            va_start(ap);
2278          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2279          V310= V309;          V310= V309;
2280          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
2281          V312 = list_vector(narg,ap);          V312 = list_vector(narg,ap);
2282          V311= V312;          V311= V312;
2283          if((V310)!=Cnil){          if((V310)!=Cnil){
# Line 1982  static object LI38(V309,va_alist) Line 2287  static object LI38(V309,va_alist)
2287          Lcopy_list();          Lcopy_list();
2288          vs_top=sup;          vs_top=sup;
2289          V310= vs_base[0];          V310= vs_base[0];
2290    goto T813;
2291  T813:;  T813:;
2292          {register object V313;          {register object V313;
2293          register object V314;          register object V314;
2294          V313= (V310);          V313= (V310);
2295          V314= (V311);          V314= (V311);
2296    goto T818;
2297  T818:;  T818:;
2298          if(((V314))!=Cnil){          if(((V314))!=Cnil){
2299          goto T819;}          goto T819;}
2300          goto T816;          goto T816;
2301    goto T819;
2302  T819:;  T819:;
2303          if((car((V314)))!=Cnil){          if((car((V314)))!=Cnil){
2304          goto T824;}          goto T824;}
2305          goto T823;          goto T823;
2306    goto T824;
2307  T824:;  T824:;
2308          {register object V315;          {register object V315;
2309          register object V316;          register object V316;
# Line 2002  T824:; Line 2311  T824:;
2311          V316= car((V314));          V316= car((V314));
2312          if(type_of((V315))!=t_cons)FEwrong_type_argument(Scons,(V315));          if(type_of((V315))!=t_cons)FEwrong_type_argument(Scons,(V315));
2313          ((V315))->c.c_car = (V316);}          ((V315))->c.c_car = (V316);}
2314    goto T823;
2315  T823:;  T823:;
2316          V313= cdr((V313));          V313= cdr((V313));
2317          V314= cdr((V314));          V314= cdr((V314));
2318          goto T818;}          goto T818;}
2319    goto T816;
2320  T816:;  T816:;
2321          {object V317 = (V310);          {object V317 = (V310);
2322          VMR38(V317)}}          VMR38(V317)}
2323            va_end(ap);
2324            base[0]=base[0];
2325            return Cnil;}
2326          }          }
2327  /*      local entry for function PARSE-LOOP-FOR */  /*      local entry for function PARSE-LOOP-FOR */
2328    
# Line 2016  static object LI39() Line 2330  static object LI39()
2330    
2331  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
2332          bds_check;          bds_check;
2333    goto TTL;
2334  TTL:;  TTL:;
2335          {register object V318;          {register object V318;
2336          register object V319;          register object V319;
# Line 2029  TTL:; Line 2344  TTL:;
2344          V322= Cnil;          V322= Cnil;
2345          {object V323;          {object V323;
2346          V323= (*(LnkLI255))();          V323= (*(LnkLI255))();
2347    goto T841;
2348  T841:;  T841:;
2349          {register object V324;          {register object V324;
2350          V324= (*(LnkLI13))((V323));          V324= (*(LnkLI13))((V323));
# Line 2048  T841:; Line 2364  T841:;
2364          V322= list(3,VV[15],(V325),list(2,VV[18],(V325)));          V322= list(3,VV[15],(V325),list(2,VV[18],(V325)));
2365          V321= list(2,VV[140],(V325));          V321= list(2,VV[140],(V325));
2366          goto T844;}          goto T844;}
2367    goto T847;
2368  T847:;  T847:;
2369          if(((*(LnkLI9))((V324),VV[141]))==Cnil){          if(((*(LnkLI9))((V324),VV[141]))==Cnil){
2370          goto T859;}          goto T859;}
# Line 2056  T847:; Line 2373  T847:;
2373          goto T863;}          goto T863;}
2374          V328= (V320);          V328= (V320);
2375          goto T861;          goto T861;
2376    goto T863;
2377  T863:;  T863:;
2378          base[1]= VV[142];          base[1]= VV[142];
2379          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2380          Lgensym();          Lgensym();
2381          vs_top=sup;          vs_top=sup;
2382          V328= vs_base[0];          V328= vs_base[0];
2383    goto T861;
2384  T861:;  T861:;
2385          (void)((VFUN_NARGS=4,(*(LnkLI268))((V320),Cnil,VV[138],Ct)));          (void)((VFUN_NARGS=4,(*(LnkLI268))((V320),Cnil,VV[138],Ct)));
2386          V329= (*(LnkLI255))();          V329= (*(LnkLI255))();
# Line 2071  T861:; Line 2390  T861:;
2390          goto T870;}          goto T870;}
2391          V330= list(3,VV[139],(V320),(V328));          V330= list(3,VV[139],(V320),(V328));
2392          setq(VV[49],make_cons(/* INLINE-ARGS */V330,symbol_value(VV[49])));          setq(VV[49],make_cons(/* INLINE-ARGS */V330,symbol_value(VV[49])));
2393    goto T870;
2394  T870:;  T870:;
2395          V321= list(2,VV[140],(V328));          V321= list(2,VV[140],(V328));
2396          goto T844;}          goto T844;}
2397    goto T859;
2398  T859:;  T859:;
2399          if(((*(LnkLI9))((V324),VV[143]))==Cnil){          if(((*(LnkLI9))((V324),VV[143]))==Cnil){
2400          goto T876;}          goto T876;}
2401          V331= (*(LnkLI255))();          V331= (*(LnkLI255))();
2402          V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),/* INLINE-ARGS */V331,Cnil,Cnil,VV[144]));          V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),/* INLINE-ARGS */V331,Cnil,Cnil,VV[144]));
2403          goto T844;          goto T844;
2404    goto T876;
2405  T876:;  T876:;
2406          if(((*(LnkLI9))((V324),VV[145]))==Cnil){          if(((*(LnkLI9))((V324),VV[145]))==Cnil){
2407          goto T880;}          goto T880;}
2408          V332= (*(LnkLI255))();          V332= (*(LnkLI255))();
2409          V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),/* INLINE-ARGS */V332,Cnil,Cnil,VV[146]));          V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),/* INLINE-ARGS */V332,Cnil,Cnil,VV[146]));
2410          goto T844;          goto T844;
2411    goto T880;
2412  T880:;  T880:;
2413          if(((*(LnkLI9))((V324),VV[147]))==Cnil){          if(((*(LnkLI9))((V324),VV[147]))==Cnil){
2414          goto T884;}          goto T884;}
# Line 2094  T880:; Line 2417  T880:;
2417          goto T889;}          goto T889;}
2418          V319= (VFUN_NARGS=5,(*(LnkLI274))((V319),Cnil,Cnil,Cnil,(V318)));          V319= (VFUN_NARGS=5,(*(LnkLI274))((V319),Cnil,Cnil,Cnil,(V318)));
2419          goto T844;          goto T844;
2420    goto T889;
2421  T889:;  T889:;
2422          bds_bind(VV[148],small_fixnum(4));          bds_bind(VV[148],small_fixnum(4));
2423          bds_bind(VV[149],small_fixnum(4));          bds_bind(VV[149],small_fixnum(4));
2424    goto T894;
2425  T894:;  T894:;
2426          if(!((car(caddr((V322))))==(VV[18]))){          if(!((car(caddr((V322))))==(VV[18]))){
2427          goto T895;}          goto T895;}
2428          bds_unwind1;          bds_unwind1;
2429          bds_unwind1;          bds_unwind1;
2430          goto T892;          goto T892;
2431    goto T895;
2432  T895:;  T895:;
2433          base[3]= VV[150];          base[3]= VV[150];
2434          base[4]= VV[151];          base[4]= VV[151];
# Line 2116  T895:; Line 2442  T895:;
2442          Lformat();          Lformat();
2443          vs_top=sup;          vs_top=sup;
2444          goto T894;          goto T894;
2445    goto T892;
2446  T892:;  T892:;
2447          V333= cadr((V322));          V333= cadr((V322));
2448          if(!(type_of((V318))==t_cons)){          if(!(type_of((V318))==t_cons)){
# Line 2126  T892:; Line 2453  T892:;
2453          goto T914;          goto T914;
2454          }else V335=V335->c.c_cdr;          }else V335=V335->c.c_cdr;
2455          goto T911;}          goto T911;}
2456    goto T914;
2457  T914:;  T914:;
2458          V334= list(2,cadr((V318)),cadr((V322)));          V334= list(2,cadr((V318)),cadr((V322)));
2459          goto T909;          goto T909;
2460    goto T911;
2461  T911:;  T911:;
2462          V334= list(3,VV[156],(V318),cadr((V322)));          V334= list(3,VV[156],(V318),cadr((V322)));
2463    goto T909;
2464  T909:;  T909:;
2465          V322= list(3,VV[15],/* INLINE-ARGS */V333,V334);          V322= list(3,VV[15],/* INLINE-ARGS */V333,V334);
2466          goto T844;          goto T844;
2467    goto T884;
2468  T884:;  T884:;
2469          if(((*(LnkLI9))((V324),VV[157]))==Cnil){          if(((*(LnkLI9))((V324),VV[157]))==Cnil){
2470          goto T916;}          goto T916;}
2471          V336= (*(LnkLI255))();          V336= (*(LnkLI255))();
2472          V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V336,Cnil,VV[144]));          V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V336,Cnil,VV[144]));
2473          goto T844;          goto T844;
2474    goto T916;
2475  T916:;  T916:;
2476          if(((*(LnkLI9))((V324),VV[158]))==Cnil){          if(((*(LnkLI9))((V324),VV[158]))==Cnil){
2477          goto T920;}          goto T920;}
2478          V337= (*(LnkLI255))();          V337= (*(LnkLI255))();
2479          V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V337,Cnil,VV[146]));          V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V337,Cnil,VV[146]));
2480          goto T844;          goto T844;
2481    goto T920;
2482  T920:;  T920:;
2483          if(((*(LnkLI9))((V324),VV[159]))==Cnil){          if(((*(LnkLI9))((V324),VV[159]))==Cnil){
2484          goto T924;}          goto T924;}
2485          V338= (*(LnkLI255))();          V338= (*(LnkLI255))();
2486          V319= (VFUN_NARGS=7,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V338,Cnil,Cnil,Ct));          V319= (VFUN_NARGS=7,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V338,Cnil,Cnil,Ct));
2487          goto T844;          goto T844;
2488    goto T924;
2489  T924:;  T924:;
2490          if(!(type_of((V324))==t_symbol)){          if(!(type_of((V324))==t_symbol)){
2491          goto T928;}          goto T928;}
# Line 2160  T924:; Line 2494  T924:;
2494          V339= (*(LnkLI13))((V323));          V339= (*(LnkLI13))((V323));
2495          (void)((VFUN_NARGS=3,(*(LnkLI265))(/* INLINE-ARGS */V339,VV[160],(V320))));          (void)((VFUN_NARGS=3,(*(LnkLI265))(/* INLINE-ARGS */V339,VV[160],(V320))));
2496          goto T838;          goto T838;
2497    goto T928;
2498  T928:;  T928:;
2499          if(!(type_of((V324))==t_symbol)){          if(!(type_of((V324))==t_symbol)){
2500          goto T934;}          goto T934;}
# Line 2168  T928:; Line 2503  T928:;
2503          V340= (*(LnkLI13))((V323));          V340= (*(LnkLI13))((V323));
2504          (void)((*(LnkLI275))(/* INLINE-ARGS */V340,(V320)));          (void)((*(LnkLI275))(/* INLINE-ARGS */V340,(V320)));
2505          goto T838;          goto T838;
2506    goto T934;
2507  T934:;  T934:;
2508          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
2509          goto T838;}          goto T838;}
2510    goto T844;
2511  T844:;  T844:;
2512          V323= (*(LnkLI255))();          V323= (*(LnkLI255))();
2513          goto T841;}          goto T841;}
2514    goto T838;
2515  T838:;  T838:;
2516          if(((V319))==Cnil){          if(((V319))==Cnil){
2517          goto T943;}          goto T943;}
# Line 2197  T838:; Line 2535  T838:;
2535          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2536          goto T953;}          goto T953;}
2537          goto T952;          goto T952;
2538    goto T953;
2539  T953:;  T953:;
2540          setq(VV[47],Ct);          setq(VV[47],Ct);
2541    goto T952;
2542  T952:;  T952:;
2543          V347= list(3,(V341),(V343),(V345));          V347= list(3,(V341),(V343),(V345));
2544          V322= list(3,VV[15],(V343),(*(LnkLI276))(/* INLINE-ARGS */V347,VV[126]));          V322= list(3,VV[15],(V343),(*(LnkLI276))(/* INLINE-ARGS */V347,VV[126]));
# Line 2216  T952:; Line 2556  T952:;
2556          goto T966;}          goto T966;}
2557          base[1]= Cnil;          base[1]= Cnil;
2558          goto T964;          goto T964;
2559    goto T966;
2560  T966:;  T966:;
2561          base[1]= list(3,(V341),VV[127],(V345));          base[1]= list(3,(V341),VV[127],(V345));
2562    goto T964;
2563  T964:;  T964:;
2564          bds_bind(VV[39],base[1]);          bds_bind(VV[39],base[1]);
2565          (void)((VFUN_NARGS=6,(*(LnkLI267))((V348),(V344),Cnil,VV[126],Cnil,Cnil)));          (void)((VFUN_NARGS=6,(*(LnkLI267))((V348),(V344),Cnil,VV[126],Cnil,Cnil)));
# Line 2227  T964:; Line 2569  T964:;
2569          goto T977;}          goto T977;}
2570          V349= VV[163];          V349= VV[163];
2571          goto T972;          goto T972;
2572    goto T977;
2573  T977:;  T977:;
2574          V349= VV[164];          V349= VV[164];
2575          goto T972;          goto T972;
2576    goto T974;
2577  T974:;  T974:;
2578          if(!(((V341))==(VV[144]))){          if(!(((V341))==(VV[144]))){
2579          goto T980;}          goto T980;}
2580          V349= VV[165];          V349= VV[165];
2581          goto T972;          goto T972;
2582    goto T980;
2583  T980:;  T980:;
2584          V349= VV[166];          V349= VV[166];
2585    goto T972;
2586  T972:;  T972:;
2587          V321= list(3,V349,(V343),(V348));          V321= list(3,V349,(V343),(V348));
2588          bds_unwind1;          bds_unwind1;
2589          goto T943;}          goto T943;}
2590    goto T960;
2591  T960:;  T960:;
2592          if((symbol_value(VV[47]))!=Cnil){          if((symbol_value(VV[47]))!=Cnil){
2593          goto T943;}          goto T943;}
# Line 2259  T960:; Line 2606  T960:;
2606          if(!((car((V346)))==(VV[122]))){          if(!((car((V346)))==(VV[122]))){
2607          goto T993;}          goto T993;}
2608          V346= cadr((V346));          V346= cadr((V346));
2609    goto T993;
2610  T993:;  T993:;
2611          base[1]= (V346);          base[1]= (V346);
2612          base[2]= VV[167];          base[2]= VV[167];
# Line 2274  T993:; Line 2622  T993:;
2622          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2623          goto T1002;}          goto T1002;}
2624          goto T1001;          goto T1001;
2625    goto T1002;
2626  T1002:;  T1002:;
2627          base[1]= VV[168];          base[1]= VV[168];
2628          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2629          Lerror();          Lerror();
2630          vs_top=sup;          vs_top=sup;
2631    goto T1001;
2632  T1001:;  T1001:;
2633          if(!(((V341))==(VV[144]))){          if(!(((V341))==(VV[144]))){
2634          goto T1009;}          goto T1009;}
# Line 2286  T1001:; Line 2636  T1001:;
2636          V351= (V345);          V351= (V345);
2637          goto T1011;}          goto T1011;}
2638          V351= small_fixnum(1);          V351= small_fixnum(1);
2639    goto T1011;
2640  T1011:;  T1011:;
2641          V350= list(3,VV[164],(V343),number_minus(VV[169],V351));          V350= list(3,VV[164],(V343),number_minus(VV[169],V351));
2642          goto T1007;          goto T1007;
2643    goto T1009;
2644  T1009:;  T1009:;
2645          if((V345)!=Cnil){          if((V345)!=Cnil){
2646          V352= (V345);          V352= (V345);
2647          goto T1012;}          goto T1012;}
2648          V352= small_fixnum(1);          V352= small_fixnum(1);
2649    goto T1012;
2650  T1012:;  T1012:;
2651          V350= list(3,VV[163],(V343),number_plus(VV[170],V352));          V350= list(3,VV[163],(V343),number_plus(VV[170],V352));
2652    goto T1007;
2653  T1007:;  T1007:;
2654          V353= list(3,VV[80],V350,VV[171]);          V353= list(3,VV[80],V350,VV[171]);
2655          setq(VV[42],make_cons(/* INLINE-ARGS */V353,symbol_value(VV[42])));}          setq(VV[42],make_cons(/* INLINE-ARGS */V353,symbol_value(VV[42])));}
2656    goto T943;
2657  T943:;  T943:;
2658          if((V321)==Cnil){          if((V321)==Cnil){
2659          goto T1013;}          goto T1013;}
# Line 2308  T943:; Line 2663  T943:;
2663          vs_top=sup;          vs_top=sup;
2664          V354= vs_base[0];          V354= vs_base[0];
2665          setq(VV[41],make_cons(V354,symbol_value(VV[41])));          setq(VV[41],make_cons(V354,symbol_value(VV[41])));
2666    goto T1013;
2667  T1013:;  T1013:;
2668          if((V322)==Cnil){          if((V322)==Cnil){
2669          {object V355 = Cnil;          {object V355 = Cnil;
# Line 2315  T1013:; Line 2671  T1013:;
2671          setq(VV[42],make_cons((V322),symbol_value(VV[42])));          setq(VV[42],make_cons((V322),symbol_value(VV[42])));
2672          {object V356 = symbol_value(VV[42]);          {object V356 = symbol_value(VV[42]);
2673          VMR39(V356)}}}          VMR39(V356)}}}
2674            base[0]=base[0];
2675            return Cnil;
2676  }  }
2677  /*      local entry for function PARSE-LOOP-MACRO       */  /*      local entry for function PARSE-LOOP-MACRO       */
2678    
# Line 2327  static object LI40(V358,V357,va_alist) Line 2685  static object LI40(V358,V357,va_alist)
2685          {object V359;          {object V359;
2686          object V360;          object V360;
2687          object V361;          object V361;
2688            Vcs[0]=Vcs[0];
2689            va_start(ap);
2690          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
2691          V359= V358;          V359= V358;
2692          V360= V357;          V360= V357;
2693          narg = narg - 2;          narg = narg - 2;
2694          if (narg <= 0) goto T1018;          if (narg <= 0) goto T1018;
2695          else {          else {
         va_start(ap);  
2696          V361= va_arg(ap,object);}          V361= va_arg(ap,object);}
2697          --narg; goto T1019;          --narg; goto T1019;
2698    goto T1018;
2699  T1018:;  T1018:;
2700          V361= Cnil;          V361= Cnil;
2701    goto T1019;
2702  T1019:;  T1019:;
2703          {register object V362;          {register object V362;
2704          V362= Cnil;          V362= Cnil;
# Line 2352  T1019:; Line 2713  T1019:;
2713          V367= cdr((V366));          V367= cdr((V366));
2714          if(V367==Cnil)goto T1028;          if(V367==Cnil)goto T1028;
2715          goto T1027;          goto T1027;
2716    goto T1028;
2717  T1028:;}  T1028:;}
2718          base[0]= VV[174];          base[0]= VV[174];
2719          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2720          Lerror();          Lerror();
2721          vs_top=sup;          vs_top=sup;
2722    goto T1027;
2723  T1027:;  T1027:;
2724          V364= cdr((V366));          V364= cdr((V366));
2725          goto T1024;}          goto T1024;}
2726    goto T1025;
2727  T1025:;  T1025:;
2728          if((V365!= VV[92]))goto T1031;          if((V365!= VV[92]))goto T1031;
2729          V364= get((V359),VV[175],Cnil);          V364= get((V359),VV[175],Cnil);
2730          goto T1024;          goto T1024;
2731    goto T1031;
2732  T1031:;  T1031:;
2733          FEerror("The ECASE key value ~s is illegal.",1,V365);}          FEerror("The ECASE key value ~s is illegal.",1,V365);
2734            {object V366;
2735            V366= get((V359),VV[173],Cnil);{object V368;
2736            V368= cdr((V366));
2737            if(V368==Cnil)goto T1034;
2738            goto T1033;
2739    goto T1034;
2740    T1034:;}
2741            base[1]= VV[174];
2742            vs_top=(vs_base=base+1)+1;
2743            Lerror();
2744            vs_top=sup;
2745    goto T1033;
2746    T1033:;
2747            V364= cdr((V366));}}
2748    goto T1024;
2749  T1024:;  T1024:;
2750          {object V368;          {object V369;
2751          {register object x= VV[176],V369= (V364);          {register object x= VV[176],V370= (V364);
2752          while(!endp(V369))          while(!endp(V370))
2753          if(eql(x,V369->c.c_car)){          if(eql(x,V370->c.c_car)){
2754          goto T1035;          goto T1040;
2755          }else V369=V369->c.c_cdr;          }else V370=V370->c.c_cdr;
2756          goto T1034;}          goto T1039;}
2757  T1035:;  goto T1040;
2758          {object V370;  T1040:;
2759          V370= symbol_value(VV[34]);          {object V371;
2760            V371= symbol_value(VV[34]);
2761          setq(VV[34],Cnil);          setq(VV[34],Cnil);
2762          V368= (V370);          V369= (V371);
2763          goto T1032;}          goto T1037;}
2764  T1034:;  goto T1039;
2765          {register object V371;  T1039:;
2766          register object V372;          {register object V372;
2767          V371= make_fixnum(length((V364)));          register object V373;
2768          V372= small_fixnum(0);          V372= make_fixnum(length((V364)));
2769  T1041:;          V373= small_fixnum(0);
2770          if(!(number_compare((V372),(V371))>=0)){  goto T1046;
2771          goto T1042;}  T1046:;
2772          V368= nreverse((V362));          if(!(number_compare((V373),(V372))>=0)){
2773          goto T1032;          goto T1047;}
2774  T1042:;          V369= nreverse((V362));
2775            goto T1037;
2776    goto T1047;
2777    T1047:;
2778          V362= make_cons(car(symbol_value(VV[34])),(V362));          V362= make_cons(car(symbol_value(VV[34])),(V362));
2779          setq(VV[34],cdr(symbol_value(VV[34])));          setq(VV[34],cdr(symbol_value(VV[34])));
2780          V372= one_plus((V372));          V373= one_plus((V373));
2781          goto T1041;}          goto T1046;}
2782  T1032:;  goto T1037;
2783          {object V374= (V360);  T1037:;
2784          if((V374!= VV[160]))goto T1055;          {object V375= (V360);
2785            if((V375!= VV[160]))goto T1060;
2786          base[0]= (V363);          base[0]= (V363);
2787          base[1]= (V361);          base[1]= (V361);
2788          {object V375;          {object V376;
2789          V375= (V368);          V376= (V369);
2790           vs_top=base+2;           vs_top=base+2;
2791           while(!endp(V375))           while(!endp(V376))
2792           {vs_push(car(V375));V375=cdr(V375);}           {vs_push(car(V376));V376=cdr(V376);}
2793          vs_base=base+1;}          vs_base=base+1;}
2794          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
2795          vs_top=sup;          vs_top=sup;
2796          V373= vs_base[0];          V374= vs_base[0];
2797          goto T1054;          goto T1059;
2798  T1055:;  goto T1060;
2799          if((V374!= VV[92]))goto T1059;  T1060:;
2800            if((V375!= VV[92]))goto T1064;
2801          base[0]= (V363);          base[0]= (V363);
2802          {object V376;          {object V377;
2803          V376= (V368);          V377= (V369);
2804           vs_top=base+1;           vs_top=base+1;
2805           while(!endp(V376))           while(!endp(V377))
2806           {vs_push(car(V376));V376=cdr(V376);}           {vs_push(car(V377));V377=cdr(V377);}
2807          vs_base=base+1;}          vs_base=base+1;}
2808          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
2809          vs_top=sup;          vs_top=sup;
2810          V373= vs_base[0];          V374= vs_base[0];
2811          goto T1054;          goto T1059;
2812    goto T1064;
2813    T1064:;
2814            V374= Cnil;}
2815    goto T1059;
2816  T1059:;  T1059:;
2817          V373= Cnil;}          setq(VV[34],append(V374,symbol_value(VV[34])));
2818  T1054:;          {object V378 = symbol_value(VV[34]);
2819          setq(VV[34],append(V373,symbol_value(VV[34])));          VMR40(V378)}}}}
2820          {object V377 = symbol_value(VV[34]);          va_end(ap);
2821          VMR40(V377)}}}}}          base[0]=base[0];
2822            return Cnil;}
2823          }          }
2824  /*      local entry for function PARSE-LOOP-MAP */  /*      local entry for function PARSE-LOOP-MAP */
2825    
2826  static object LI41(V380,V381)  static object LI41(V381,V382)
2827    
2828  object V380;object V381;  object V381;object V382;
2829  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2830    goto TTL;
2831  TTL:;  TTL:;
2832          if(symbol_value(VV[53])==Cnil){          if(symbol_value(VV[53])==Cnil){
2833          goto T1062;}          goto T1067;}
2834          base[0]= VV[177];          base[0]= VV[177];
2835          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2836          Lerror();          Lerror();
2837          vs_top=sup;          vs_top=sup;
2838  T1062:;  goto T1067;
2839          {object V382;  T1067:;
2840          object V383;          {object V383;
2841          V382= get((V380),VV[161],Cnil);          object V384;
2842          V383= get((V380),VV[178],Cnil);          V383= get((V381),VV[161],Cnil);
2843          if((V383)!=Cnil){          V384= get((V381),VV[178],Cnil);
2844          goto T1066;}          if((V384)!=Cnil){
2845            goto T1071;}
2846          base[0]= VV[179];          base[0]= VV[179];
2847          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2848          Lerror();          Lerror();
2849          vs_top=sup;          vs_top=sup;
2850  T1066:;  goto T1071;
2851          {register object x= VV[176],V384= (V383);  T1071:;
2852          while(!endp(V384))          {register object x= VV[176],V385= (V384);
2853          if(eql(x,V384->c.c_car)){          while(!endp(V385))
2854          goto T1070;          if(eql(x,V385->c.c_car)){
2855          }else V384=V384->c.c_cdr;          goto T1075;
2856          goto T1068;}          }else V385=V385->c.c_cdr;
2857  T1070:;          goto T1073;}
2858    goto T1075;
2859    T1075:;
2860          base[0]= VV[180];          base[0]= VV[180];
2861          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2862          Lerror();          Lerror();
2863          vs_top=sup;          vs_top=sup;
2864  T1068:;  goto T1073;
         {register object V385;  
         object V386;  
         V385= Cnil;  
         {register object V387;  
         register object V388;  
         V389 = make_fixnum(length((V383)));  
         V387= one_minus(V389);  
         V388= small_fixnum(0);  
 T1077:;  
         if(!(number_compare((V388),(V387))>=0)){  
         goto T1078;}  
         V386= nreverse((V385));  
         goto T1073;  
 T1078:;  
         V385= make_cons(car(symbol_value(VV[34])),(V385));  
         setq(VV[34],cdr(symbol_value(VV[34])));  
         V388= one_plus((V388));  
         goto T1077;}  
2865  T1073:;  T1073:;
2866          {register object V390;          {register object V386;
2867          register object V391;          object V387;
2868          V390= (*(LnkLI255))();          V386= Cnil;
2869          V391= Cnil;          {register object V388;
2870  T1093:;          register object V389;
2871          if(((*(LnkLI9))((V390),VV[77]))!=Cnil){          V390 = make_fixnum(length((V384)));
2872          goto T1094;}          V388= one_minus(V390);
2873            V389= small_fixnum(0);
2874    goto T1082;
2875    T1082:;
2876            if(!(number_compare((V389),(V388))>=0)){
2877            goto T1083;}
2878            V387= nreverse((V386));
2879            goto T1078;
2880    goto T1083;
2881    T1083:;
2882            V386= make_cons(car(symbol_value(VV[34])),(V386));
2883            setq(VV[34],cdr(symbol_value(VV[34])));
2884            V389= one_plus((V389));
2885            goto T1082;}
2886    goto T1078;
2887    T1078:;
2888            {register object V391;
2889            register object V392;
2890            V391= (*(LnkLI255))();
2891            V392= Cnil;
2892    goto T1098;
2893    T1098:;
2894            if(((*(LnkLI9))((V391),VV[77]))!=Cnil){
2895            goto T1099;}
2896          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
2897          if((V391)==Cnil){          if((V392)==Cnil){
2898          setq(VV[44],Cnil);          setq(VV[44],Cnil);
2899          goto T1090;}          goto T1095;}
2900          setq(VV[44],make_cons(VV[77],(V391)));          setq(VV[44],make_cons(VV[77],(V392)));
2901          goto T1090;          goto T1095;
2902  T1094:;  goto T1099;
2903          V392= (*(LnkLI255))();  T1099:;
2904          V391= make_cons(/* INLINE-ARGS */V392,(V391));          V393= (*(LnkLI255))();
2905          V390= (*(LnkLI255))();          V392= make_cons(/* INLINE-ARGS */V393,(V392));
2906          goto T1093;}          V391= (*(LnkLI255))();
2907  T1090:;          goto T1098;}
2908          base[1]= (V382);  goto T1095;
2909          base[2]= (V381);  T1095:;
2910          {object V393;          base[1]= (V383);
2911          V393= (V386);          base[2]= (V382);
2912            {object V394;
2913            V394= (V387);
2914           vs_top=base+3;           vs_top=base+3;
2915           while(!endp(V393))           while(!endp(V394))
2916           {vs_push(car(V393));V393=cdr(V393);}           {vs_push(car(V394));V394=cdr(V394);}
2917          vs_base=base+2;}          vs_base=base+2;}
2918          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
2919          vs_top=sup;          vs_top=sup;
2920          setq(VV[53],vs_base[0]);          setq(VV[53],vs_base[0]);
2921          {object V394 = Cnil;          {object V395 = Cnil;
2922          VMR41(V394)}}}          VMR41(V395)}}}
2923            base[0]=base[0];
2924            return Cnil;
2925  }  }
2926  /*      local entry for function SUBSTITUTE-SLOOP-BODY  */  /*      local entry for function SUBSTITUTE-SLOOP-BODY  */
2927    
2928  static object LI42(V396)  static object LI42(V397)
2929    
2930  register object V396;  register object V397;
2931  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2932    goto TTL;
2933  TTL:;  TTL:;
2934          if((symbol_value(VV[53]))==Cnil){          if((symbol_value(VV[53]))==Cnil){
2935          goto T1109;}          goto T1114;}
2936          base[0]= make_cons(VV[16],(V396));          base[0]= make_cons(VV[16],(V397));
2937          base[1]= VV[181];          base[1]= VV[181];
2938          base[2]= symbol_value(VV[53]);          base[2]= symbol_value(VV[53]);
2939          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2940          Lsubst();          Lsubst();
2941          vs_top=sup;          vs_top=sup;
2942          V397= vs_base[0];          V398= vs_base[0];
2943          V396= make_cons(V397,Cnil);          V397= make_cons(V398,Cnil);
2944          if(symbol_value(VV[44])==Cnil){          if(symbol_value(VV[44])==Cnil){
2945          goto T1109;}          goto T1114;}
2946          base[0]= symbol_value(VV[44]);          base[0]= symbol_value(VV[44]);
2947          base[1]= VV[182];          base[1]= VV[182];
2948          base[2]= (V396);          base[2]= (V397);
2949          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2950          Lsubst();          Lsubst();
2951          vs_top=sup;          vs_top=sup;
2952          V396= vs_base[0];          V397= vs_base[0];
2953  T1109:;  goto T1114;
2954          {object V398 = (V396);  T1114:;
2955          VMR42(V398)}          {object V399 = (V397);
2956            VMR42(V399)}
2957            base[0]=base[0];
2958            return Cnil;
2959  }  }
2960  /*      local entry for function DEF-LOOP-INTERNAL      */  /*      local entry for function DEF-LOOP-INTERNAL      */
2961    
2962  static object LI43(V402,V401,V400,V399,va_alist)  static object LI43(V403,V402,V401,V400,va_alist)
2963          object V402,V401,V400,V399;          object V403,V402,V401,V400;
2964          va_dcl          va_dcl
2965  {        {      
2966          va_list ap;          va_list ap;
2967          int narg = VFUN_NARGS; VMB43 VMS43 VMV43          int narg = VFUN_NARGS; VMB43 VMS43 VMV43
2968          bds_check;          bds_check;
2969          {register object V403;          {register object V404;
2970          register object V404;          register object V405;
         object V405;  
2971          object V406;          object V406;
2972          object V407;          object V407;
2973          object V408;          object V408;
2974          object V409;          object V409;
2975            object V410;
2976            Vcs[0]=Vcs[0];
2977            va_start(ap);
2978          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
2979          V403= V402;          V404= V403;
2980          V404= V401;          V405= V402;
2981          V405= V400;          V406= V401;
2982          V406= V399;          V407= V400;
2983          narg = narg - 4;          narg = narg - 4;
2984          if (narg <= 0) goto T1122;          if (narg <= 0) goto T1127;
         else {  
         va_start(ap);  
         V407= va_arg(ap,object);}  
         if (--narg <= 0) goto T1123;  
2985          else {          else {
2986          V408= va_arg(ap,object);}          V408= va_arg(ap,object);}
2987          if (--narg <= 0) goto T1124;          if (--narg <= 0) goto T1128;
2988          else {          else {
2989          V409= va_arg(ap,object);}          V409= va_arg(ap,object);}
2990          --narg; goto T1125;          if (--narg <= 0) goto T1129;
2991  T1122:;          else {
2992          V407= Cnil;          V410= va_arg(ap,object);}
2993  T1123:;          --narg; goto T1130;
2994    goto T1127;
2995    T1127:;
2996          V408= Cnil;          V408= Cnil;
2997  T1124:;  goto T1128;
2998    T1128:;
2999          V409= Cnil;          V409= Cnil;
3000  T1125:;  goto T1129;
3001          {object V410;  T1129:;
3002            V410= Cnil;
3003    goto T1130;
3004    T1130:;
3005            {object V411;
3006          bds_bind(VV[184],VV[183]);          bds_bind(VV[184],VV[183]);
3007          base[3]= Cnil;          base[3]= Cnil;
3008          base[4]= VV[185];          base[4]= VV[185];
3009          base[5]= (V403);          base[5]= (V404);
3010          base[6]= (V406);          base[6]= (V407);
3011          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3012          Lformat();          Lformat();
3013          vs_top=sup;          vs_top=sup;
# Line 2602  T1125:; Line 3015  T1125:;
3015          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3016          Lintern();          Lintern();
3017          vs_top=sup;          vs_top=sup;
3018          V410= vs_base[0];          V411= vs_base[0];
3019          if((V408)==Cnil){          if((V409)==Cnil){
3020          goto T1135;}          goto T1140;}
3021          V411 = make_fixnum(length((V404)));          V412 = make_fixnum(length((V405)));
3022          if(!(number_compare(V411,(V408))>=0)){          if(!(number_compare(V412,(V409))>=0)){
3023          goto T1136;}          goto T1141;}
3024          goto T1135;          goto T1140;
3025  T1136:;  goto T1141;
3026    T1141:;
3027          base[2]= VV[186];          base[2]= VV[186];
3028          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3029          Lerror();          Lerror();
3030          vs_top=sup;          vs_top=sup;
3031  T1135:;  goto T1140;
         if((V409)==Cnil){  
         goto T1139;}  
         V412 = make_fixnum(length((V404)));  
         if(!(number_compare(V412,(V409))<=0)){  
         goto T1140;}  
         goto T1139;  
3032  T1140:;  T1140:;
3033            if((V410)==Cnil){
3034            goto T1144;}
3035            V413 = make_fixnum(length((V405)));
3036            if(!(number_compare(V413,(V410))<=0)){
3037            goto T1145;}
3038            goto T1144;
3039    goto T1145;
3040    T1145:;
3041          base[2]= VV[187];          base[2]= VV[187];
3042          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3043          Lerror();          Lerror();
3044          vs_top=sup;          vs_top=sup;
3045  T1139:;  goto T1144;
3046          V413= listA(4,VV[190],(V410),(V404),(V405));  T1144:;
3047          if((V407)==Cnil){          V414= listA(4,VV[190],(V411),(V405),(V406));
3048          V414= Cnil;          if((V408)==Cnil){
3049          goto T1143;}          V415= Cnil;
3050          V415= list(3,VV[191],list(2,VV[10],(V403)),(V407));          goto T1148;}
3051          V414= make_cons(/* INLINE-ARGS */V415,Cnil);          V416= list(3,VV[191],list(2,VV[10],(V404)),(V408));
3052  T1143:;          V415= make_cons(/* INLINE-ARGS */V416,Cnil);
3053          V416= list(2,VV[10],(V403));  goto T1148;
3054    T1148:;
3055            V417= list(2,VV[10],(V404));
3056          base[3]= Cnil;          base[3]= Cnil;
3057          base[4]= VV[192];          base[4]= VV[192];
3058          base[5]= (V406);          base[5]= (V407);
3059          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3060          Lformat();          Lformat();
3061          vs_top=sup;          vs_top=sup;
# Line 2650  T1143:; Line 3068  T1143:;
3068          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3069          Lintern();          Lintern();
3070          vs_top=sup;          vs_top=sup;
3071          V417= vs_base[0];          V418= vs_base[0];
3072          V418= list(3,VV[7],/* INLINE-ARGS */V416,V417);          V419= list(3,VV[7],/* INLINE-ARGS */V417,V418);
3073          V419= list(3,VV[15],/* INLINE-ARGS */V418,list(2,VV[10],(V410)));          V420= list(3,VV[15],/* INLINE-ARGS */V419,list(2,VV[10],(V411)));
3074          V420= list(2,VV[10],(V403));          V421= list(2,VV[10],(V404));
3075          base[3]= Cnil;          base[3]= Cnil;
3076          base[4]= VV[194];          base[4]= VV[194];
3077          base[5]= (V406);          base[5]= (V407);
3078          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3079          Lformat();          Lformat();
3080          vs_top=sup;          vs_top=sup;
# Line 2669  T1143:; Line 3087  T1143:;
3087          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3088          Lintern();          Lintern();
3089          vs_top=sup;          vs_top=sup;
3090          V421= vs_base[0];          V422= vs_base[0];
3091          V422= list(3,VV[7],/* INLINE-ARGS */V420,V421);          V423= list(3,VV[7],/* INLINE-ARGS */V421,V422);
3092          V423= list(2,/* INLINE-ARGS */V419,list(3,VV[15],/* INLINE-ARGS */V422,list(2,VV[10],(V404))));          V424= list(2,/* INLINE-ARGS */V420,list(3,VV[15],/* INLINE-ARGS */V423,list(2,VV[10],(V405))));
3093          {object V424 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V413,append(V414,/* INLINE-ARGS */V423));          {object V425 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V414,append(V415,/* INLINE-ARGS */V424));
3094          bds_unwind1;          bds_unwind1;
3095          VMR43(V424)}}}          VMR43(V425)}}
3096            va_end(ap);
3097            base[0]=base[0];
3098            return Cnil;}
3099          }          }
3100  /*      local entry for function SUM-SLOOP-COLLECT      */  /*      local entry for function SUM-SLOOP-COLLECT      */
3101    
3102  static object LI44(V427,V428)  static object LI44(V428,V429)
3103    
3104  object V427;object V428;  object V428;object V429;
3105  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
3106    goto TTL;
3107  TTL:;  TTL:;
3108          V429= list(3,VV[195],(V427),small_fixnum(0));          V430= list(3,VV[195],(V428),small_fixnum(0));
3109          {object V430 = list(4,VV[97],/* INLINE-ARGS */V429,VV[56],list(3,VV[195],(V427),list(3,VV[144],(V427),(V428))));          {object V431 = list(4,VV[97],/* INLINE-ARGS */V430,VV[56],list(3,VV[195],(V428),list(3,VV[144],(V428),(V429))));
3110          VMR44(V430)}          VMR44(V431)}
3111            return Cnil;
3112  }  }
3113  /*      local entry for function LOGXOR-SLOOP-COLLECT   */  /*      local entry for function LOGXOR-SLOOP-COLLECT   */
3114    
3115  static object LI45(V433,V434)  static object LI45(V434,V435)
3116    
3117  register object V433;object V434;  register object V434;object V435;
3118  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
3119    goto TTL;
3120  TTL:;  TTL:;
3121          V435= list(3,VV[15],(V433),small_fixnum(0));          V436= list(3,VV[15],(V434),small_fixnum(0));
3122          V436= list(3,VV[15],(V433),list(3,VV[196],(V433),(V434)));          V437= list(3,VV[15],(V434),list(3,VV[196],(V434),(V435)));
3123          {object V437 = list(6,VV[97],/* INLINE-ARGS */V435,VV[56],/* INLINE-ARGS */V436,VV[77],list(3,VV[167],(V433),(V434)));          {object V438 = list(6,VV[97],/* INLINE-ARGS */V436,VV[56],/* INLINE-ARGS */V437,VV[77],list(3,VV[167],(V434),(V435)));
3124          VMR45(V437)}          VMR45(V438)}
3125            return Cnil;
3126  }  }
3127  /*      local entry for function MAXIMIZE-SLOOP-COLLECT */  /*      local entry for function MAXIMIZE-SLOOP-COLLECT */
3128    
3129  static object LI46(V440,V441)  static object LI46(V441,V442)
3130    
3131  register object V440;object V441;  register object V441;object V442;
3132  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
3133    goto TTL;
3134  TTL:;  TTL:;
3135          V442= list(3,VV[195],(V440),Cnil);          V443= list(3,VV[195],(V441),Cnil);
3136          V443= list(3,VV[15],(V440),list(3,VV[198],(V440),(V441)));          V444= list(3,VV[15],(V441),list(3,VV[198],(V441),(V442)));
3137          {object V444 = list(4,VV[97],/* INLINE-ARGS */V442,VV[56],list(4,VV[197],(V440),/* INLINE-ARGS */V443,list(3,VV[15],(V440),(V441))));          {object V445 = list(4,VV[97],/* INLINE-ARGS */V443,VV[56],list(4,VV[197],(V441),/* INLINE-ARGS */V444,list(3,VV[15],(V441),(V442))));
3138          VMR46(V444)}          VMR46(V445)}
3139            return Cnil;
3140  }  }
3141  /*      local entry for function MINIMIZE-SLOOP-COLLECT */  /*      local entry for function MINIMIZE-SLOOP-COLLECT */
3142    
3143  static object LI47(V447,V448)  static object LI47(V448,V449)
3144    
3145  register object V447;object V448;  register object V448;object V449;
3146  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
3147    goto TTL;
3148  TTL:;  TTL:;
3149          V449= list(3,VV[195],(V447),Cnil);          V450= list(3,VV[195],(V448),Cnil);
3150          V450= list(3,VV[15],(V447),list(3,VV[199],(V447),(V448)));          V451= list(3,VV[15],(V448),list(3,VV[199],(V448),(V449)));
3151          {object V451 = list(4,VV[97],/* INLINE-ARGS */V449,VV[56],list(4,VV[197],(V447),/* INLINE-ARGS */V450,list(3,VV[15],(V447),(V448))));          {object V452 = list(4,VV[97],/* INLINE-ARGS */V450,VV[56],list(4,VV[197],(V448),/* INLINE-ARGS */V451,list(3,VV[15],(V448),(V449))));
3152          VMR47(V451)}          VMR47(V452)}
3153            return Cnil;
3154  }  }
3155  /*      local entry for function COUNT-SLOOP-COLLECT    */  /*      local entry for function COUNT-SLOOP-COLLECT    */
3156    
3157  static object LI48(V454,V455)  static object LI48(V455,V456)
3158    
3159  object V454;object V455;  object V455;object V456;
3160  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3161    goto TTL;
3162  TTL:;  TTL:;
3163          V456= list(3,VV[195],(V454),small_fixnum(0));          V457= list(3,VV[195],(V455),small_fixnum(0));
3164          {object V457 = list(4,VV[97],/* INLINE-ARGS */V456,VV[56],list(3,VV[5],(V455),list(3,VV[15],(V454),list(2,VV[200],(V454)))));          {object V458 = list(4,VV[97],/* INLINE-ARGS */V457,VV[56],list(3,VV[5],(V456),list(3,VV[15],(V455),list(2,VV[200],(V455)))));
3165          VMR48(V457)}          VMR48(V458)}
3166            return Cnil;
3167  }  }
3168  /*      local entry for function THEREIS-SLOOP-COLLECT  */  /*      local entry for function THEREIS-SLOOP-COLLECT  */
3169    
3170  static object LI49(V460,V461)  static object LI49(V461,V462)
3171    
3172  object V460;object V461;  object V461;object V462;
3173  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
3174    goto TTL;
3175  TTL:;  TTL:;
3176          {object V462 = list(2,VV[56],list(3,VV[197],(V461),list(2,VV[59],(V461))));          {object V463 = list(2,VV[56],list(3,VV[197],(V462),list(2,VV[59],(V462))));
3177          VMR49(V462)}          VMR49(V463)}
3178            return Cnil;
3179  }  }
3180  /*      local entry for function ALWAYS-SLOOP-COLLECT   */  /*      local entry for function ALWAYS-SLOOP-COLLECT   */
3181    
3182  static object LI50(V465,V466)  static object LI50(V466,V467)
3183    
3184  object V465;object V466;  object V466;object V467;
3185  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
3186    goto TTL;
3187  TTL:;  TTL:;
3188          V467= list(3,VV[195],(V465),Ct);          V468= list(3,VV[195],(V466),Ct);
3189          {object V468 = list(4,VV[97],/* INLINE-ARGS */V467,VV[56],list(3,VV[5],list(2,VV[140],(V466)),VV[201]));          {object V469 = list(4,VV[97],/* INLINE-ARGS */V468,VV[56],list(3,VV[5],list(2,VV[140],(V467)),VV[201]));
3190          VMR50(V468)}          VMR50(V469)}
3191            return Cnil;
3192  }  }
3193  /*      local entry for function NEVER-SLOOP-COLLECT    */  /*      local entry for function NEVER-SLOOP-COLLECT    */
3194    
3195  static object LI51(V471,V472)  static object LI51(V472,V473)
3196    
3197  object V471;object V472;  object V472;object V473;
3198  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
3199    goto TTL;
3200  TTL:;  TTL:;
3201          V473= list(3,VV[195],(V471),Ct);          V474= list(3,VV[195],(V472),Ct);
3202          {object V474 = list(4,VV[97],/* INLINE-ARGS */V473,VV[56],list(3,VV[5],(V472),VV[202]));          {object V475 = list(4,VV[97],/* INLINE-ARGS */V474,VV[56],list(3,VV[5],(V473),VV[202]));
3203          VMR51(V474)}          VMR51(V475)}
3204            return Cnil;
3205  }  }
3206  /*      local entry for function AVERAGING-SLOOP-MACRO  */  /*      local entry for function AVERAGING-SLOOP-MACRO  */
3207    
3208  static object LI52(V476)  static object LI52(V477)
3209    
3210  object V476;  object V477;
3211  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
3212    goto TTL;
3213  TTL:;  TTL:;
3214          base[0]= VV[91];          base[0]= VV[91];
3215          base[1]= VV[203];          base[1]= VV[203];
# Line 2787  TTL:; Line 3225  TTL:;
3225          base[11]= VV[77];          base[11]= VV[77];
3226          base[12]= VV[207];          base[12]= VV[207];
3227          base[13]= VV[56];          base[13]= VV[56];
3228          base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V476)),VV[210]));          base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V477)),VV[210]));
3229          base[15]= VV[211];          base[15]= VV[211];
3230          vs_top=(vs_base=base+0)+16;          vs_top=(vs_base=base+0)+16;
3231          LlistA();          LlistA();
3232          vs_top=sup;          vs_top=sup;
3233          {object V477 = vs_base[0];          {object V478 = vs_base[0];
3234          VMR52(V477)}          VMR52(V478)}
3235            base[0]=base[0];
3236            return Cnil;
3237  }  }
3238  /*      local entry for function REPEAT-SLOOP-MACRO     */  /*      local entry for function REPEAT-SLOOP-MACRO     */
3239    
3240  static object LI53(V479)  static object LI53(V480)
3241    
3242  object V479;  object V480;
3243  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3244    goto TTL;
3245  TTL:;  TTL:;
3246          {object V480;          {object V481;
3247          vs_base=vs_top;          vs_base=vs_top;
3248          Lgensym();          Lgensym();
3249          vs_top=sup;          vs_top=sup;
3250          V480= vs_base[0];          V481= vs_base[0];
3251          {object V481 = list(4,VV[25],(V480),VV[157],(V479));          {object V482 = list(4,VV[25],(V481),VV[157],(V480));
3252          VMR53(V481)}}          VMR53(V482)}}
3253            base[0]=base[0];
3254            return Cnil;
3255  }  }
3256  /*      local entry for function RETURN-SLOOP-MACRO     */  /*      local entry for function RETURN-SLOOP-MACRO     */
3257    
3258  static object LI54(V483)  static object LI54(V484)
3259    
3260  register object V483;  register object V484;
3261  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3262    goto TTL;
3263  TTL:;  TTL:;
3264          if(!(type_of((V483))==t_cons)){          if(!(type_of((V484))==t_cons)){
3265          goto T1177;}          goto T1182;}
3266          if(!((car((V483)))==(VV[21]))){          if(!((car((V484)))==(VV[21]))){
3267          goto T1177;}          goto T1182;}
3268          V484= cdr((V483));          V485= cdr((V484));
3269          goto T1175;          goto T1180;
3270  T1177:;  goto T1182;
3271          V484= make_cons((V483),Cnil);  T1182:;
3272  T1175:;          V485= make_cons((V484),Cnil);
3273          {object V485 = list(2,VV[56],make_cons(VV[59],V484));  goto T1180;
3274          VMR54(V485)}  T1180:;
3275            {object V486 = list(2,VV[56],make_cons(VV[59],V485));
3276            VMR54(V486)}
3277            return Cnil;
3278  }  }
3279  /*      local entry for function IN-TABLE-SLOOP-MAP     */  /*      local entry for function IN-TABLE-SLOOP-MAP     */
3280    
3281  static object LI55(V488,V489)  static object LI55(V489,V490)
3282    
3283  object V488;object V489;  object V489;object V490;
3284  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3285    goto TTL;
3286  TTL:;  TTL:;
3287          {object V490 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V488),VV[215])),(V489));          {object V491 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V489),VV[215])),(V490));
3288          VMR55(V490)}          VMR55(V491)}
3289            return Cnil;
3290  }  }
3291  /*      local entry for function IN-PACKAGE-SLOOP-MAP   */  /*      local entry for function IN-PACKAGE-SLOOP-MAP   */
3292    
3293  static object LI56(V493,V494)  static object LI56(V494,V495)
3294    
3295  object V493;object V494;  object V494;object V495;
3296  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
3297    goto TTL;
3298  TTL:;  TTL:;
3299          {object V495 = list(3,VV[216],list(2,(V493),list(2,VV[217],(V494))),VV[181]);          {object V496 = list(3,VV[216],list(2,(V494),list(2,VV[217],(V495))),VV[181]);
3300          VMR56(V495)}          VMR56(V496)}
3301            return Cnil;
3302  }  }
3303  /*      local entry for function IN-ARRAY-SLOOP-FOR     */  /*      local entry for function IN-ARRAY-SLOOP-FOR     */
3304    
3305  static object LI57(V497,V496,va_alist)  static object LI57(V498,V497,va_alist)
3306          object V497,V496;          object V498,V497;
3307          va_dcl          va_dcl
3308  {        {      
3309          va_list ap;          va_list ap;
3310          int narg = VFUN_NARGS; VMB57 VMS57 VMV57          int narg = VFUN_NARGS; VMB57 VMS57 VMV57
3311          {object V498;          {object V499;
3312          object V499;          object V500;
3313          register object V500;          register object V501;
3314            Vcs[0]=Vcs[0];
3315            va_start(ap);
3316          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
3317          V498= V497;          V499= V498;
3318          V499= V496;          V500= V497;
3319          narg= narg - 2;          narg= narg - 2;
3320          va_start(ap);          V502 = list_vector(narg,ap);
3321          V501 = list_vector(narg,ap);          V501= V502;
3322          V500= V501;          {object V503;
         {object V502;  
         object V503;  
3323          object V504;          object V504;
3324          V502= Cnil;          object V505;
3325          V503= Cnil;          V503= Cnil;
3326          V504= Cnil;          V504= Cnil;
3327          if(!(type_of((V498))==t_cons||((V498))==Cnil)){          V505= Cnil;
3328          goto T1183;}          if(!(type_of((V499))==t_cons||((V499))==Cnil)){
3329          V502= car((V498));          goto T1188;}
3330          V503= cadr((V498));          V503= car((V499));
3331          goto T1181;          V504= cadr((V499));
3332  T1183:;          goto T1186;
3333          V502= (V498);  goto T1188;
3334    T1188:;
3335            V503= (V499);
3336          base[0]= VV[218];          base[0]= VV[218];
3337          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3338          Lgensym();          Lgensym();
3339          vs_top=sup;          vs_top=sup;
3340          V503= vs_base[0];          V504= vs_base[0];
3341  T1181:;  goto T1186;
3342          {object V505;  T1186:;
3343          {register object V506;          {object V506;
3344          register object V507;          {register object V507;
3345          V506= (V500);          register object V508;
3346          V507= Cnil;          V507= (V501);
3347  T1194:;          V508= Cnil;
3348          {register object V508;  goto T1199;
3349          V508= (*(LnkLI13))(car((V506)));  T1199:;
3350          {register object V509;          {register object V509;
3351          V509= (*(LnkLI9))((V508),VV[219]);          V509= (*(LnkLI13))(car((V507)));
         if(((V509))==Cnil){  
         goto T1201;}  
         goto T1197;  
 T1201:;  
         if(((*(LnkLI9))((V508),VV[220]))==Cnil){  
         goto T1204;}  
         V504= Ct;  
         goto T1197;  
 T1204:;  
3352          {register object V510;          {register object V510;
3353          V510= (*(LnkLI9))((V508),VV[147]);          V510= (*(LnkLI9))((V509),VV[219]);
3354          if(((V510))==Cnil){          if(((V510))==Cnil){
3355            goto T1206;}
3356            goto T1202;
3357    goto T1206;
3358    T1206:;
3359            if(((*(LnkLI9))((V509),VV[220]))==Cnil){
3360          goto T1209;}          goto T1209;}
3361          goto T1197;          V505= Ct;
3362            goto T1202;
3363    goto T1209;
3364  T1209:;  T1209:;
3365          base[0]= (V506);          {register object V511;
3366            V511= (*(LnkLI9))((V509),VV[147]);
3367            if(((V511))==Cnil){
3368            goto T1214;}
3369            goto T1202;
3370    goto T1214;
3371    T1214:;
3372            base[0]= (V507);
3373          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3374          Lcopy_list();          Lcopy_list();
3375          vs_top=sup;          vs_top=sup;
3376          V500= vs_base[0];          V501= vs_base[0];
3377          V505= nreverse((V507));          V506= nreverse((V508));
3378          goto T1192;}}}          goto T1197;}}}
3379    goto T1202;
3380    T1202:;
3381            V508= make_cons(car((V507)),(V508));
3382            V508= make_cons(cadr((V507)),(V508));
3383            V507= cddr((V507));
3384            goto T1199;}
3385    goto T1197;
3386  T1197:;  T1197:;
3387          V507= make_cons(car((V506)),(V507));          if((V505)!=Cnil){
3388          V507= make_cons(cadr((V506)),(V507));          goto T1226;}
3389          V506= cddr((V506));          V512= list(2,VV[157],list(2,VV[221],(V500)));
3390          goto T1194;}          V506= nconc(/* INLINE-ARGS */V512,(V506));
3391  T1192:;  goto T1226;
3392          if((V504)!=Cnil){  T1226:;
3393          goto T1221;}          V513= listA(5,VV[87],(V503),VV[56],list(3,VV[15],(V503),list(3,VV[222],(V500),(V504))),(V501));
3394          V511= list(2,VV[157],list(2,VV[221],(V499)));          {object V514 = listA(3,VV[25],(V504),append((V506),/* INLINE-ARGS */V513));
3395          V505= nconc(/* INLINE-ARGS */V511,(V505));          VMR57(V514)}}}
3396  T1221:;          va_end(ap);
3397          V512= listA(5,VV[87],(V502),VV[56],list(3,VV[15],(V502),list(3,VV[222],(V499),(V503))),(V500));          base[0]=base[0];
3398          {object V513 = listA(3,VV[25],(V503),append((V505),/* INLINE-ARGS */V512));          return Cnil;}
         VMR57(V513)}}}}  
3399          }          }
3400  /*      local entry for function =-SLOOP-FOR    */  /*      local entry for function =-SLOOP-FOR    */
3401    
3402  static object LI58(V516,V517)  static object LI58(V517,V518)
3403    
3404  register object V516;object V517;  register object V517;object V518;
3405  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
3406    goto TTL;
3407  TTL:;  TTL:;
3408          {object V518;          {object V519;
3409          V519= (*(LnkLI254))();          V520= (*(LnkLI254))();
3410          V518= (*(LnkLI13))(/* INLINE-ARGS */V519);          V519= (*(LnkLI13))(/* INLINE-ARGS */V520);
3411          if(((*(LnkLI9))((V518),VV[223]))==Cnil){          if(((*(LnkLI9))((V519),VV[223]))==Cnil){
3412          goto T1225;}          goto T1230;}
3413          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
3414          V520= list(3,VV[139],(V516),(V517));          V521= list(3,VV[139],(V517),(V518));
3415          {object V521 = list(6,VV[87],(V516),VV[97],/* INLINE-ARGS */V520,VV[89],list(3,VV[139],(V516),(*(LnkLI255))()));          {object V522 = list(6,VV[87],(V517),VV[97],/* INLINE-ARGS */V521,VV[89],list(3,VV[139],(V517),(*(LnkLI255))()));
3416          VMR58(V521)}          VMR58(V522)}
3417  T1225:;  goto T1230;
3418          {object V522 = list(4,VV[87],(V516),VV[56],list(3,VV[139],(V516),(V517)));  T1230:;
3419          VMR58(V522)}}          {object V523 = list(4,VV[87],(V517),VV[56],list(3,VV[139],(V517),(V518)));
3420            VMR58(V523)}}
3421            return Cnil;
3422  }  }
3423  /*      local entry for function SLOOP-SLOOP-MACRO      */  /*      local entry for function SLOOP-SLOOP-MACRO      */
3424    
3425  static object LI59(V524)  static object LI59(V525)
3426    
3427  VOL object V524;  VOL object V525;
3428  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
3429          bds_check;          bds_check;
3430    goto TTL;
3431  TTL:;  TTL:;
         {object V525;  
         V525= (*(LnkLI13))(car((V524)));  
3432          {object V526;          {object V526;
3433          V526= (*(LnkLI9))((V525),VV[25]);          V526= (*(LnkLI13))(car((V525)));
3434          if(((V526))==Cnil){          {object V527;
3435          goto T1232;}          V527= (*(LnkLI9))((V526),VV[25]);
3436          goto T1228;          if(((V527))==Cnil){
3437  T1232:;          goto T1237;}
3438            goto T1233;
3439    goto T1237;
3440    T1237:;
3441          base[0]= VV[85];          base[0]= VV[85];
3442          base[1]= (V525);          base[1]= (V526);
3443          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3444          Lerror();          Lerror();
3445          vs_top=sup;}}          vs_top=sup;}}
3446  T1228:;  goto T1233;
3447          {VOL object V527;  T1233:;
3448          VOL object V528;          {VOL object V528;
3449          VOL object V529;          VOL object V529;
3450          VOL object V530;          VOL object V530;
3451          VOL object V531;          VOL object V531;
3452          VOL object V532;          VOL object V532;
3453          VOL object V533;          VOL object V533;
3454            VOL object V534;
3455          base[4]= VV[224];          base[4]= VV[224];
3456          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3457          Lgensym();          Lgensym();
3458          vs_top=sup;          vs_top=sup;
3459          V528= vs_base[0];          V529= vs_base[0];
3460          bds_bind(VV[50],Cnil);          bds_bind(VV[50],Cnil);
3461          bds_bind(VV[49],Cnil);          bds_bind(VV[49],Cnil);
3462          bds_bind(VV[53],Cnil);          bds_bind(VV[53],Cnil);
3463          V527= Cnil;          V528= Cnil;
         V529= Cnil;  
3464          V530= Cnil;          V530= Cnil;
3465          V531= Cnil;          V531= Cnil;
3466          V532= Cnil;          V532= Cnil;
3467          V533= Cnil;          V533= Cnil;
3468          bds_bind(VV[34],(V524));          V534= Cnil;
3469            bds_bind(VV[34],(V525));
3470          setq(VV[40],Ct);          setq(VV[40],Ct);
3471          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
3472          {object V534;          {object V535;
3473          object V535;          object V536;
3474          V534= symbol_value(VV[46]);          V535= symbol_value(VV[46]);
3475          V535= (V529);          V536= (V530);
3476          V529= (V534);          V530= (V535);
3477          setq(VV[46],(V535));}          setq(VV[46],(V536));}
3478          {object V536;          {object V537;
3479          object V537;          object V538;
3480          V536= symbol_value(VV[48]);          V537= symbol_value(VV[48]);
3481          V537= (V530);          V538= (V531);
3482          V530= (V536);          V531= (V537);
3483          setq(VV[48],(V537));}          setq(VV[48],(V538));}
3484          {object V538;          {object V539;
3485          object V539;          object V540;
3486          V538= symbol_value(VV[43]);          V539= symbol_value(VV[43]);
3487          V539= (V531);          V540= (V532);
3488          V531= (V538);          V532= (V539);
3489          setq(VV[43],(V539));}          setq(VV[43],(V540));}
3490          {object V540;          {object V541;
3491          object V541;          object V542;
3492          V540= symbol_value(VV[41]);          V541= symbol_value(VV[41]);
3493          V541= (V532);          V542= (V533);
3494          V532= (V540);          V533= (V541);
3495          setq(VV[41],(V541));}          setq(VV[41],(V542));}
3496          {object V542;          {object V543;
3497          object V543;          object V544;
3498          V542= symbol_value(VV[42]);          V543= symbol_value(VV[42]);
3499          V543= (V533);          V544= (V534);
3500          V533= (V542);          V534= (V543);
3501          setq(VV[42],(V543));}          setq(VV[42],(V544));}
3502          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3503          (void)((*(LnkLI257))());          (void)((*(LnkLI257))());
3504          {object V544;          {object V545;
3505          object V545;          object V546;
3506          V544= symbol_value(VV[46]);          V545= symbol_value(VV[46]);
3507          V545= (V529);          V546= (V530);
3508          V529= (V544);          V530= (V545);
3509          setq(VV[46],(V545));}          setq(VV[46],(V546));}
3510          {object V546;          {object V547;
3511          object V547;          object V548;
3512          V546= symbol_value(VV[48]);          V547= symbol_value(VV[48]);
3513          V547= (V530);          V548= (V531);
3514          V530= (V546);          V531= (V547);
3515          setq(VV[48],(V547));}          setq(VV[48],(V548));}
3516          {object V548;          {object V549;
3517          object V549;          object V550;
3518          V548= symbol_value(VV[43]);          V549= symbol_value(VV[43]);
3519          V549= (V531);          V550= (V532);
3520          V531= (V548);          V532= (V549);
3521          setq(VV[43],(V549));}          setq(VV[43],(V550));}
3522          {object V550;          {object V551;
3523          object V551;          object V552;
3524          V550= symbol_value(VV[41]);          V551= symbol_value(VV[41]);
3525          V551= (V532);          V552= (V533);
3526          V532= (V550);          V533= (V551);
3527          setq(VV[41],(V551));}          setq(VV[41],(V552));}
3528          {object V552;          {object V553;
3529          object V553;          object V554;
3530          V552= symbol_value(VV[42]);          V553= symbol_value(VV[42]);
3531          V553= (V533);          V554= (V534);
3532          V533= (V552);          V534= (V553);
3533          setq(VV[42],(V553));}          setq(VV[42],(V554));}
3534          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3535  T1318:;  goto T1323;
3536    T1323:;
3537          if(((VV[34]->s.s_dbind))!=Cnil){          if(((VV[34]->s.s_dbind))!=Cnil){
3538          goto T1319;}          goto T1324;}
3539          goto T1316;          goto T1321;
3540  T1319:;  goto T1324;
3541          {VOL object V554;  T1324:;
3542            {VOL object V555;
3543          frs_push(FRS_CATCH,VV[27]);          frs_push(FRS_CATCH,VV[27]);
3544          if(nlj_active)          if(nlj_active)
3545          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
3546          vs_top=sup;          vs_top=sup;
3547          V554= vs_base[0];          V555= vs_base[0];
3548          goto T1324;}          goto T1329;}
3549          else{          else{
3550          V555= (*(LnkLI251))();          V556= (*(LnkLI251))();
3551          frs_pop();          frs_pop();
3552          V554= V555;}          V555= V556;}
3553  T1324:;  goto T1329;
3554          if(((V554))==Cnil){  T1329:;
3555          goto T1327;}          if(((V555))==Cnil){
3556          goto T1323;          goto T1332;}
3557  T1327:;          goto T1328;
3558    goto T1332;
3559    T1332:;
3560          if(((VV[34]->s.s_dbind))!=Cnil){          if(((VV[34]->s.s_dbind))!=Cnil){
3561          goto T1330;}          goto T1335;}
3562          goto T1316;          goto T1321;
3563  T1330:;  goto T1335;
3564    T1335:;
3565          (void)(print((VV[34]->s.s_dbind),Cnil));          (void)(print((VV[34]->s.s_dbind),Cnil));
3566          {object V556;          {object V557;
3567          object V557;          object V558;
3568          V556= symbol_value(VV[46]);          V557= symbol_value(VV[46]);
3569          V557= (V529);          V558= (V530);
3570          V529= (V556);          V530= (V557);
3571          setq(VV[46],(V557));}          setq(VV[46],(V558));}
3572          {object V558;          {object V559;
3573          object V559;          object V560;
3574          V558= symbol_value(VV[48]);          V559= symbol_value(VV[48]);
3575          V559= (V530);          V560= (V531);
3576          V530= (V558);          V531= (V559);
3577          setq(VV[48],(V559));}          setq(VV[48],(V560));}
3578          {object V560;          {object V561;
3579          object V561;          object V562;
3580          V560= symbol_value(VV[43]);          V561= symbol_value(VV[43]);
3581          V561= (V531);          V562= (V532);
3582          V531= (V560);          V532= (V561);
3583          setq(VV[43],(V561));}          setq(VV[43],(V562));}
3584          {object V562;          {object V563;
3585          object V563;          object V564;
3586          V562= symbol_value(VV[41]);          V563= symbol_value(VV[41]);
3587          V563= (V532);          V564= (V533);
3588          V532= (V562);          V533= (V563);
3589          setq(VV[41],(V563));}          setq(VV[41],(V564));}
3590          {object V564;          {object V565;
3591          object V565;          object V566;
3592          V564= symbol_value(VV[42]);          V565= symbol_value(VV[42]);
3593          V565= (V533);          V566= (V534);
3594          V533= (V564);          V534= (V565);
3595          setq(VV[42],(V565));}          setq(VV[42],(V566));}
3596          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3597          (void)((*(LnkLI261))());          (void)((*(LnkLI261))());
3598          {object V566;          {object V567;
3599          object V567;          object V568;
3600          V566= symbol_value(VV[46]);          V567= symbol_value(VV[46]);
3601          V567= (V529);          V568= (V530);
3602          V529= (V566);          V530= (V567);
3603          setq(VV[46],(V567));}          setq(VV[46],(V568));}
3604          {object V568;          {object V569;
3605          object V569;          object V570;
3606          V568= symbol_value(VV[48]);          V569= symbol_value(VV[48]);
3607          V569= (V530);          V570= (V531);
3608          V530= (V568);          V531= (V569);
3609          setq(VV[48],(V569));}          setq(VV[48],(V570));}
3610          {object V570;          {object V571;
3611          object V571;          object V572;
3612          V570= symbol_value(VV[43]);          V571= symbol_value(VV[43]);
3613          V571= (V531);          V572= (V532);
3614          V531= (V570);          V532= (V571);
3615          setq(VV[43],(V571));}          setq(VV[43],(V572));}
3616          {object V572;          {object V573;
3617          object V573;          object V574;
3618          V572= symbol_value(VV[41]);          V573= symbol_value(VV[41]);
3619          V573= (V532);          V574= (V533);
3620          V532= (V572);          V533= (V573);
3621          setq(VV[41],(V573));}          setq(VV[41],(V574));}
3622          {object V574;          {object V575;
3623          object V575;          object V576;
3624          V574= symbol_value(VV[42]);          V575= symbol_value(VV[42]);
3625          V575= (V533);          V576= (V534);
3626          V533= (V574);          V534= (V575);
3627          setq(VV[42],(V575));}          setq(VV[42],(V576));}
3628          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3629          (void)(print((VV[34]->s.s_dbind),Cnil));}          (void)(print((VV[34]->s.s_dbind),Cnil));}
3630  T1323:;  goto T1328;
3631          goto T1318;  T1328:;
3632  T1316:;          goto T1323;
3633          {object V576;  goto T1321;
3634          object V577;  T1321:;
3635          V576= symbol_value(VV[46]);          {object V577;
3636          V577= (V529);          object V578;
3637          V529= (V576);          V577= symbol_value(VV[46]);
3638          setq(VV[46],(V577));}          V578= (V530);
3639          {object V578;          V530= (V577);
3640          object V579;          setq(VV[46],(V578));}
3641          V578= symbol_value(VV[48]);          {object V579;
3642          V579= (V530);          object V580;
3643          V530= (V578);          V579= symbol_value(VV[48]);
3644          setq(VV[48],(V579));}          V580= (V531);
3645          {object V580;          V531= (V579);
3646          object V581;          setq(VV[48],(V580));}
3647          V580= symbol_value(VV[43]);          {object V581;
3648          V581= (V531);          object V582;
3649          V531= (V580);          V581= symbol_value(VV[43]);
3650          setq(VV[43],(V581));}          V582= (V532);
3651          {object V582;          V532= (V581);
3652          object V583;          setq(VV[43],(V582));}
3653          V582= symbol_value(VV[41]);          {object V583;
3654          V583= (V532);          object V584;
3655          V532= (V582);          V583= symbol_value(VV[41]);
3656          setq(VV[41],(V583));}          V584= (V533);
3657          {object V584;          V533= (V583);
3658          object V585;          setq(VV[41],(V584));}
3659          V584= symbol_value(VV[42]);          {object V585;
3660          V585= (V533);          object V586;
3661          V533= (V584);          V585= symbol_value(VV[42]);
3662          setq(VV[42],(V585));}          V586= (V534);
3663            V534= (V585);
3664            setq(VV[42],(V586));}
3665          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3666          V527= nreverse((VV[49]->s.s_dbind));          V528= nreverse((VV[49]->s.s_dbind));
3667          if((VV[53]->s.s_dbind)==Cnil){          if((VV[53]->s.s_dbind)==Cnil){
3668          goto T1449;}          goto T1454;}
3669          V527= (*(LnkLI252))((V527));          V528= (*(LnkLI252))((V528));
3670  T1449:;  goto T1454;
3671          {object V586;  T1454:;
3672          V587= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[10],(V528))));          {object V587;
3673          V588= make_cons(/* INLINE-ARGS */V587,Cnil);          V588= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[10],(V529))));
3674            V589= make_cons(/* INLINE-ARGS */V588,Cnil);
3675          base[4]= nreverse(symbol_value(VV[48]));          base[4]= nreverse(symbol_value(VV[48]));
3676          if(((VV[53]->s.s_dbind))==Cnil){          if(((VV[53]->s.s_dbind))==Cnil){
3677          goto T1455;}          goto T1460;}
3678          base[5]= Cnil;          base[5]= Cnil;
3679          goto T1454;          goto T1459;
3680  T1455:;  goto T1460;
3681    T1460:;
3682          base[5]= VV[226];          base[5]= VV[226];
3683  T1454:;  goto T1459;
3684    T1459:;
3685          base[6]= nreverse(symbol_value(VV[41]));          base[6]= nreverse(symbol_value(VV[41]));
3686          base[7]= (V527);          base[7]= (V528);
3687          base[8]= nreverse(symbol_value(VV[42]));          base[8]= nreverse(symbol_value(VV[42]));
3688          if(((VV[53]->s.s_dbind))==Cnil){          if(((VV[53]->s.s_dbind))==Cnil){
3689          goto T1461;}          goto T1466;}
3690          base[9]= Cnil;          base[9]= Cnil;
3691          goto T1460;          goto T1465;
3692  T1461:;  goto T1466;
3693    T1466:;
3694          base[9]= VV[227];          base[9]= VV[227];
3695  T1460:;  goto T1465;
3696          V590= nreverse(symbol_value(VV[43]));  T1465:;
3697          base[10]= make_cons((V528),/* INLINE-ARGS */V590);          V591= nreverse(symbol_value(VV[43]));
3698            base[10]= make_cons((V529),/* INLINE-ARGS */V591);
3699          vs_top=(vs_base=base+4)+7;          vs_top=(vs_base=base+4)+7;
3700          Lappend();          Lappend();
3701          vs_top=sup;          vs_top=sup;
3702          V589= vs_base[0];          V590= vs_base[0];
3703          V586= list(3,VV[71],/* INLINE-ARGS */V588,make_cons(VV[73],V589));          V587= list(3,VV[71],/* INLINE-ARGS */V589,make_cons(VV[73],V590));
3704          {object V591;          {object V592;
3705          object V592;          object V593;
3706          V591= symbol_value(VV[46]);          V592= symbol_value(VV[46]);
3707          V592= car((V591));          V593= car((V592));
3708  T1468:;  goto T1473;
3709          if(!(endp((V591)))){  T1473:;
3710          goto T1469;}          if(!(endp((V592)))){
3711          goto T1464;          goto T1474;}
3712            goto T1469;
3713    goto T1474;
3714    T1474:;
3715            V594= (*(LnkLI253))((V593));
3716            if((cdr((V593)))!=Cnil){
3717            goto T1481;}
3718            V595= Cnil;
3719            goto T1480;
3720    goto T1481;
3721    T1481:;
3722            V596= make_cons(VV[77],cdr((V593)));
3723            V595= make_cons(/* INLINE-ARGS */V596,Cnil);
3724    goto T1480;
3725    T1480:;
3726            V597= make_cons((V587),Cnil);
3727            V587= listA(3,VV[12],/* INLINE-ARGS */V594,append(V595,/* INLINE-ARGS */V597));
3728            V592= cdr((V592));
3729            V593= car((V592));
3730            goto T1473;}
3731    goto T1469;
3732  T1469:;  T1469:;
3733          V593= (*(LnkLI253))((V592));          {object V598;
3734          if((cdr((V592)))!=Cnil){          object V599;
3735          goto T1476;}          V598= symbol_value(VV[46]);
3736          V594= Cnil;          V599= (V530);
3737          goto T1475;          V530= (V598);
3738  T1476:;          setq(VV[46],(V599));}
3739          V595= make_cons(VV[77],cdr((V592)));          {object V600;
3740          V594= make_cons(/* INLINE-ARGS */V595,Cnil);          object V601;
3741  T1475:;          V600= symbol_value(VV[48]);
3742          V596= make_cons((V586),Cnil);          V601= (V531);
3743          V586= listA(3,VV[12],/* INLINE-ARGS */V593,append(V594,/* INLINE-ARGS */V596));          V531= (V600);
3744          V591= cdr((V591));          setq(VV[48],(V601));}
3745          V592= car((V591));          {object V602;
3746          goto T1468;}          object V603;
3747  T1464:;          V602= symbol_value(VV[43]);
3748          {object V597;          V603= (V532);
3749          object V598;          V532= (V602);
3750          V597= symbol_value(VV[46]);          setq(VV[43],(V603));}
3751          V598= (V529);          {object V604;
3752          V529= (V597);          object V605;
3753          setq(VV[46],(V598));}          V604= symbol_value(VV[41]);
3754          {object V599;          V605= (V533);
3755          object V600;          V533= (V604);
3756          V599= symbol_value(VV[48]);          setq(VV[41],(V605));}
3757          V600= (V530);          {object V606;
3758          V530= (V599);          object V607;
3759          setq(VV[48],(V600));}          V606= symbol_value(VV[42]);
3760          {object V601;          V607= (V534);
3761          object V602;          V534= (V606);
3762          V601= symbol_value(VV[43]);          setq(VV[42],(V607));}
         V602= (V531);  
         V531= (V601);  
         setq(VV[43],(V602));}  
         {object V603;  
         object V604;  
         V603= symbol_value(VV[41]);  
         V604= (V532);  
         V532= (V603);  
         setq(VV[41],(V604));}  
         {object V605;  
         object V606;  
         V605= symbol_value(VV[42]);  
         V606= (V533);  
         V533= (V605);  
         setq(VV[42],(V606));}  
3763          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);          (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
3764          {object V607 = list(2,VV[56],(V586));          {object V608 = list(2,VV[56],(V587));
3765          bds_unwind1;          bds_unwind1;
3766          bds_unwind1;          bds_unwind1;
3767          bds_unwind1;          bds_unwind1;
3768          bds_unwind1;          bds_unwind1;
3769          VMR59(V607)}}}          VMR59(V608)}}}
3770            base[0]=base[0];
3771            return Cnil;
3772  }  }
3773  /*      local entry for function IN-CAREFULLY-SLOOP-FOR */  /*      local entry for function IN-CAREFULLY-SLOOP-FOR */
3774    
3775  static object LI60(V610,V611)  static object LI60(V611,V612)
3776    
3777  object V610;object V611;  object V611;object V612;
3778  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
3779    goto TTL;
3780  TTL:;  TTL:;
3781          {register object V612;          {register object V613;
3782          base[0]= VV[228];          base[0]= VV[228];
3783          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3784          Lgensym();          Lgensym();
3785          vs_top=sup;          vs_top=sup;
3786          V612= vs_base[0];          V613= vs_base[0];
3787          base[0]= VV[87];          base[0]= VV[87];
3788          base[1]= (V612);          base[1]= (V613);
3789          base[2]= VV[5];          base[2]= VV[5];
3790          base[3]= VV[87];          base[3]= VV[87];
3791          base[4]= (V610);          base[4]= (V611);
3792          base[5]= VV[97];          base[5]= VV[97];
3793          base[6]= list(3,VV[15],(V612),(V611));          base[6]= list(3,VV[15],(V613),(V612));
3794          base[7]= VV[56];          base[7]= VV[56];
3795          base[8]= list(3,VV[139],(V610),list(2,VV[17],(V612)));          base[8]= list(3,VV[139],(V611),list(2,VV[17],(V613)));
3796          base[9]= VV[90];          base[9]= VV[90];
3797          base[10]= list(3,VV[5],list(2,VV[229],(V612)),VV[230]);          base[10]= list(3,VV[5],list(2,VV[229],(V613)),VV[230]);
3798          base[11]= VV[89];          base[11]= VV[89];
3799          base[12]= list(3,VV[15],(V612),list(2,VV[18],(V612)));          base[12]= list(3,VV[15],(V613),list(2,VV[18],(V613)));
3800          vs_top=(vs_base=base+0)+13;          vs_top=(vs_base=base+0)+13;
3801          Llist();          Llist();
3802          vs_top=sup;          vs_top=sup;
3803          {object V613 = vs_base[0];          {object V614 = vs_base[0];
3804          VMR60(V613)}}          VMR60(V614)}}
3805            base[0]=base[0];
3806            return Cnil;
3807  }  }
3808  /*      local entry for function FIRST-USE-SLOOP-FOR    */  /*      local entry for function FIRST-USE-SLOOP-FOR    */
3809    
3810  static object LI61(V618,V619,V620,V621)  static object LI61(V619,V620,V621,V622)
3811    
3812  object V618;object V619;object V620;object V621;  object V619;object V620;object V621;object V622;
3813  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
3814  TTL:;{object V622;  goto TTL;
3815          V622= (*(LnkLI9))((V620),VV[223]);  TTL:;{object V623;
3816          if(V622==Cnil)goto T1536;          V623= (*(LnkLI9))((V621),VV[223]);
3817          goto T1535;          if(V623==Cnil)goto T1541;
3818  T1536:;}          goto T1540;
3819    goto T1541;
3820    T1541:;}
3821          base[0]= VV[231];          base[0]= VV[231];
3822          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3823          Lerror();          Lerror();
3824          vs_top=sup;          vs_top=sup;
3825  T1535:;  goto T1540;
3826          V623= list(3,VV[139],(V618),(V619));  T1540:;
3827          {object V624 = list(6,VV[87],(V618),VV[97],/* INLINE-ARGS */V623,VV[89],list(3,VV[139],(V618),(V621)));          V624= list(3,VV[139],(V619),(V620));
3828          VMR61(V624)}          {object V625 = list(6,VV[87],(V619),VV[97],/* INLINE-ARGS */V624,VV[89],list(3,VV[139],(V619),(V622)));
3829            VMR61(V625)}
3830            base[0]=base[0];
3831            return Cnil;
3832  }  }
3833  /*      local entry for function FIRST-SLOOP-FOR        */  /*      local entry for function FIRST-SLOOP-FOR        */
3834    
3835  static object LI62(V629,V630,V631,V632)  static object LI62(V630,V631,V632,V633)
3836    
3837  register object V629;object V630;object V631;object V632;  register object V630;object V631;object V632;object V633;
3838  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
3839  TTL:;{object V633;  goto TTL;
3840          V633= (*(LnkLI9))((V631),VV[223]);  TTL:;{object V634;
3841          if(V633==Cnil)goto T1540;          V634= (*(LnkLI9))((V632),VV[223]);
3842          goto T1539;          if(V634==Cnil)goto T1545;
3843  T1540:;}          goto T1544;
3844    goto T1545;
3845    T1545:;}
3846          base[0]= VV[232];          base[0]= VV[232];
3847          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3848          Lerror();          Lerror();
3849          vs_top=sup;          vs_top=sup;
3850  T1539:;  goto T1544;
         if((symbol_value(VV[42]))!=Cnil){  
         goto T1544;}  
         V634= list(3,VV[139],(V629),(V630));  
         {object V635 = list(6,VV[87],(V629),VV[97],/* INLINE-ARGS */V634,VV[89],list(3,VV[139],(V629),(V632)));  
         VMR62(V635)}  
3851  T1544:;  T1544:;
3852          {object V636;          if((symbol_value(VV[42]))!=Cnil){
3853            goto T1549;}
3854            V635= list(3,VV[139],(V630),(V631));
3855            {object V636 = list(6,VV[87],(V630),VV[97],/* INLINE-ARGS */V635,VV[89],list(3,VV[139],(V630),(V633)));
3856            VMR62(V636)}
3857    goto T1549;
3858    T1549:;
3859            {object V637;
3860          vs_base=vs_top;          vs_base=vs_top;
3861          Lgensym();          Lgensym();
3862          vs_top=sup;          vs_top=sup;
3863          V636= vs_base[0];          V637= vs_base[0];
3864          V637= list(2,(V636),list(3,VV[139],(V629),(V632)));          V638= list(2,(V637),list(3,VV[139],(V630),(V633)));
3865          V638= list(3,VV[14],/* INLINE-ARGS */V637,list(2,Ct,list(3,VV[139],(V629),(V630))));          V639= list(3,VV[14],/* INLINE-ARGS */V638,list(2,Ct,list(3,VV[139],(V630),(V631))));
3866          {object V639 = list(8,VV[87],(V629),VV[87],(V636),VV[56],/* INLINE-ARGS */V638,VV[89],list(3,VV[139],(V636),Ct));          {object V640 = list(8,VV[87],(V630),VV[87],(V637),VV[56],/* INLINE-ARGS */V639,VV[89],list(3,VV[139],(V637),Ct));
3867          VMR62(V639)}}          VMR62(V640)}}
3868            base[0]=base[0];
3869            return Cnil;
3870  }  }
3871  /*      function definition for FIND-IN-ORDERED-LIST    */  /*      function definition for FIND-IN-ORDERED-LIST    */
3872    
3873  static L63()  static void L63()
3874  {register object *base=vs_base;  {register object *base=vs_base;
3875          register object *sup=base+VM63; VC63          register object *sup=base+VM63; VC63
3876          vs_reserve(VM63);          vs_reserve(VM63);
3877          {register object V640;          {register object V641;
3878          object V641;          object V642;
3879          register object V642;          register object V643;
3880          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3881          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
3882          V640=(base[0]);          V641=(base[0]);
3883          V641=(base[1]);          V642=(base[1]);
3884          vs_base=vs_base+2;          vs_base=vs_base+2;
3885          if(vs_base>=vs_top){vs_top=sup;goto T1547;}          if(vs_base>=vs_top){vs_top=sup;goto T1552;}
3886          V642=(base[2]);          V643=(base[2]);
3887          vs_top=sup;          vs_top=sup;
3888          goto T1548;          goto T1553;
3889  T1547:;  goto T1552;
         V642= symbol_value(VV[233]);  
 T1548:;  
         {register object V643;  
         V643= Cnil;  
         {register object V644;  
         V644= (V641);  
3890  T1552:;  T1552:;
3891          if(((V644))!=Cnil){          V643= symbol_value(VV[233]);
3892          goto T1553;}  goto T1553;
3893          base[3]= (V643);  T1553:;
3894            {register object V644;
3895            V644= Cnil;
3896            {register object V645;
3897            V645= (V642);
3898    goto T1557;
3899    T1557:;
3900            if(((V645))!=Cnil){
3901            goto T1558;}
3902            base[3]= (V644);
3903          base[4]= Cnil;          base[4]= Cnil;
3904          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3905          return;          return;
3906  T1553:;  goto T1558;
3907          if(!(eql(car((V644)),(V640)))){  T1558:;
3908          goto T1561;}          if(!(eql(car((V645)),(V641)))){
3909          base[3]= (V644);          goto T1566;}
3910            base[3]= (V645);
3911          base[4]= Ct;          base[4]= Ct;
3912          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3913          return;          return;
3914  T1561:;  goto T1566;
3915          base[3]= (V640);  T1566:;
3916          base[4]= car((V644));          base[3]= (V641);
3917            base[4]= car((V645));
3918          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3919          super_funcall_no_event((V642));          super_funcall_no_event((V643));
3920          vs_top=sup;          vs_top=sup;
3921          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3922          goto T1559;}          goto T1564;}
3923          base[3]= (V643);          base[3]= (V644);
3924          base[4]= Cnil;          base[4]= Cnil;
3925          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3926          return;          return;
3927  T1559:;  goto T1564;
3928          V643= (V644);  T1564:;
3929          V644= cdr((V644));          V644= (V645);
3930          goto T1552;}}          V645= cdr((V645));
3931            goto T1557;}}
3932          }          }
3933  }  }
3934  /*      local entry for function COLLATE-SLOOP-COLLECT  */  /*      local entry for function COLLATE-SLOOP-COLLECT  */
3935    
3936  static object LI64(V647,V648)  static object LI64(V648,V649)
3937    
3938  object V647;object V648;  object V648;object V649;
3939  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
3940    goto TTL;
3941  TTL:;  TTL:;
3942          V649= list(3,VV[236],(V648),(V647));          V650= list(3,VV[236],(V649),(V648));
3943          V650= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V648),VV[240])));          V651= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V649),VV[240])));
3944          {object V651 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V649,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V650,list(2,Ct,list(3,VV[15],(V647),list(3,VV[119],(V648),(V647))))))));          {object V652 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V650,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V651,list(2,Ct,list(3,VV[15],(V648),list(3,VV[119],(V649),(V648))))))));
3945          VMR64(V651)}          VMR64(V652)}
3946            return Cnil;
3947  }  }
3948  /*      local entry for function IN-FRINGE-SLOOP-MAP    */  /*      local entry for function IN-FRINGE-SLOOP-MAP    */
3949    
3950  static object LI65(V654,V655)  static object LI65(V655,V656)
3951    
3952  register object V654;object V655;  register object V655;object V656;
3953  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
3954    goto TTL;
3955  TTL:;  TTL:;
3956          {register object V656;          {register object V657;
3957          vs_base=vs_top;          vs_base=vs_top;
3958          Lgensym();          Lgensym();
3959          vs_top=sup;          vs_top=sup;
3960          V656= vs_base[0];          V657= vs_base[0];
3961          V657= make_cons((V654),Cnil);          V658= make_cons((V655),Cnil);
3962          V658= list(2,(V656),VV[244]);          V659= list(2,(V657),VV[244]);
3963          V659= make_cons(/* INLINE-ARGS */V658,Cnil);          V660= make_cons(/* INLINE-ARGS */V659,Cnil);
3964          V660= list(2,VV[140],(V656));          V661= list(2,VV[140],(V657));
3965          V661= make_cons(/* INLINE-ARGS */V660,Cnil);          V662= make_cons(/* INLINE-ARGS */V661,Cnil);
3966          V662= list(2,VV[229],(V656));          V663= list(2,VV[229],(V657));
3967          V663= list(3,VV[15],(V654),(V656));          V664= list(3,VV[15],(V655),(V657));
3968          V664= list(3,/* INLINE-ARGS */V662,/* INLINE-ARGS */V663,list(3,VV[15],(V656),Cnil));          V665= list(3,/* INLINE-ARGS */V663,/* INLINE-ARGS */V664,list(3,VV[15],(V657),Cnil));
3969          V665= list(3,VV[15],(V654),list(2,VV[17],(V656)));          V666= list(3,VV[15],(V655),list(2,VV[17],(V657)));
3970          V666= list(3,VV[14],/* INLINE-ARGS */V664,list(3,Ct,/* INLINE-ARGS */V665,list(3,VV[15],(V656),list(2,VV[18],(V656)))));          V667= list(3,VV[14],/* INLINE-ARGS */V665,list(3,Ct,/* INLINE-ARGS */V666,list(3,VV[15],(V657),list(2,VV[18],(V657)))));
3971          V667= list(2,VV[140],(V654));          V668= list(2,VV[140],(V655));
3972          V668= make_cons(/* INLINE-ARGS */V667,Cnil);          V669= make_cons(/* INLINE-ARGS */V668,Cnil);
3973          V669= list(2,VV[229],(V654));          V670= list(2,VV[229],(V655));
3974          V670= make_cons(/* INLINE-ARGS */V669,VV[245]);          V671= make_cons(/* INLINE-ARGS */V670,VV[245]);
3975          V671= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V659,/* INLINE-ARGS */V661,/* INLINE-ARGS */V666,list(4,VV[14],/* INLINE-ARGS */V668,/* INLINE-ARGS */V670,list(2,Ct,list(2,VV[242],(V654))))));          V672= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V660,/* INLINE-ARGS */V662,/* INLINE-ARGS */V667,list(4,VV[14],/* INLINE-ARGS */V669,/* INLINE-ARGS */V671,list(2,Ct,list(2,VV[242],(V655))))));
3976          V672= make_cons(/* INLINE-ARGS */V671,Cnil);          V673= make_cons(/* INLINE-ARGS */V672,Cnil);
3977          {object V673 = list(3,VV[12],/* INLINE-ARGS */V657,list(3,VV[241],/* INLINE-ARGS */V672,list(2,VV[242],(V655))));          {object V674 = list(3,VV[12],/* INLINE-ARGS */V658,list(3,VV[241],/* INLINE-ARGS */V673,list(2,VV[242],(V656))));
3978          VMR65(V673)}}          VMR65(V674)}}
3979  }          base[0]=base[0];
3980  static LnkT277(){ call_or_link(VV[277],&Lnk277);} /* SUBTYPEP */          return Cnil;
3981  static object  LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],&LnkLI276,2,ap);} /* THE-TYPE */  }
3982  static object  LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],&LnkLI275,2,ap);} /* PARSE-LOOP-MAP */  static void LnkT277(){ call_or_link(VV[277],(void **)&Lnk277);} /* SUBTYPEP */
3983  static object  LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],&LnkLI274,ap);} /* ADD-FROM-DATA */  static object  LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],(void **)&LnkLI276,2,ap);} /* THE-TYPE */
3984  static object  LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[273],&LnkLI273,ap);} /* LOOP-DECLARE-BINDING */  static object  LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],(void **)&LnkLI275,2,ap);} /* PARSE-LOOP-MAP */
3985  static object  LnkTLI272(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[272],&LnkLI272,2,ap);} /* MAKE-VALUE */  static object  LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],(void **)&LnkLI274,ap);} /* ADD-FROM-DATA */
3986  static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* TYPEP */  static object  LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[273],(void **)&LnkLI273,ap);} /* LOOP-DECLARE-BINDING */
3987  static object  LnkTLI271(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[271],&LnkLI271,3,ap);} /* LOOP-PARSE-ADDITIONAL-COLLECTIONS */  static object  LnkTLI272(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[272],(void **)&LnkLI272,2,ap);} /* MAKE-VALUE */
3988  static object  LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],&LnkLI270,1,ap);} /* POINTER-FOR-COLLECT */  static void LnkT129(){ call_or_link(VV[129],(void **)&Lnk129);} /* TYPEP */
3989  static object  LnkTLI269(){return call_proc0(VV[269],&LnkLI269);} /* PARSE-ONE-WHEN-CLAUSE */  static object  LnkTLI271(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[271],(void **)&LnkLI271,3,ap);} /* LOOP-PARSE-ADDITIONAL-COLLECTIONS */
3990  static object  LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[268],&LnkLI268,ap);} /* LOOP-ADD-TEMPS */  static object  LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],(void **)&LnkLI270,1,ap);} /* POINTER-FOR-COLLECT */
3991  static object  LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[267],&LnkLI267,ap);} /* LOOP-ADD-BINDING */  static object  LnkTLI269(){return call_proc0(VV[269],(void **)&LnkLI269);} /* PARSE-ONE-WHEN-CLAUSE */
3992  static object  LnkTLI266(){return call_proc0(VV[266],&LnkLI266);} /* LOOP-UN-POP */  static object  LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[268],(void **)&LnkLI268,ap);} /* LOOP-ADD-TEMPS */
3993  static object  LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[265],&LnkLI265,ap);} /* PARSE-LOOP-MACRO */  static object  LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[267],(void **)&LnkLI267,ap);} /* LOOP-ADD-BINDING */
3994  static object  LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[264],&LnkLI264,ap);} /* PARSE-LOOP-DECLARE */  static object  LnkTLI266(){return call_proc0(VV[266],(void **)&LnkLI266);} /* LOOP-UN-POP */
3995  static object  LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[263],&LnkLI263,ap);} /* PARSE-LOOP-WITH */  static object  LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[265],(void **)&LnkLI265,ap);} /* PARSE-LOOP-MACRO */
3996  static object  LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],&LnkLI262,1,ap);} /* PARSE-LOOP-INITIALLY */  static object  LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[264],(void **)&LnkLI264,ap);} /* PARSE-LOOP-DECLARE */
3997  static object  LnkTLI261(){return call_proc0(VV[261],&LnkLI261);} /* PARSE-LOOP-COLLECT */  static object  LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[263],(void **)&LnkLI263,ap);} /* PARSE-LOOP-WITH */
3998  static object  LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,1,ap);} /* LOOP-COLLECT-KEYWORD-P */  static object  LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],(void **)&LnkLI262,1,ap);} /* PARSE-LOOP-INITIALLY */
3999  static object  LnkTLI259(){return call_proc0(VV[259],&LnkLI259);} /* PARSE-LOOP-WHEN */  static object  LnkTLI261(){return call_proc0(VV[261],(void **)&LnkLI261);} /* PARSE-LOOP-COLLECT */
4000  static object  LnkTLI258(){return call_proc0(VV[258],&LnkLI258);} /* PARSE-LOOP-DO */  static object  LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],(void **)&LnkLI260,1,ap);} /* LOOP-COLLECT-KEYWORD-P */
4001  static object  LnkTLI257(){return call_proc0(VV[257],&LnkLI257);} /* PARSE-LOOP-FOR */  static object  LnkTLI259(){return call_proc0(VV[259],(void **)&LnkLI259);} /* PARSE-LOOP-WHEN */
4002  static object  LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* PARSE-NO-BODY */  static object  LnkTLI258(){return call_proc0(VV[258],(void **)&LnkLI258);} /* PARSE-LOOP-DO */
4003  static object  LnkTLI255(){return call_proc0(VV[255],&LnkLI255);} /* LOOP-POP */  static object  LnkTLI257(){return call_proc0(VV[257],(void **)&LnkLI257);} /* PARSE-LOOP-FOR */
4004  static object  LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[9],&LnkLI9,2,ap);} /* L-EQUAL */  static object  LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],(void **)&LnkLI256,1,ap);} /* PARSE-NO-BODY */
4005  static object  LnkTLI254(){return call_proc0(VV[254],&LnkLI254);} /* LOOP-PEEK */  static object  LnkTLI255(){return call_proc0(VV[255],(void **)&LnkLI255);} /* LOOP-POP */
4006  static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],&LnkLI13,1,ap);} /* TRANSLATE-NAME */  static object  LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[9],(void **)&LnkLI9,2,ap);} /* L-EQUAL */
4007  static object  LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[253],&LnkLI253,1,ap);} /* LOOP-LET-BINDINGS */  static object  LnkTLI254(){return call_proc0(VV[254],(void **)&LnkLI254);} /* LOOP-PEEK */
4008  static object  LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[252],&LnkLI252,1,ap);} /* SUBSTITUTE-SLOOP-BODY */  static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],(void **)&LnkLI13,1,ap);} /* TRANSLATE-NAME */
4009  static object  LnkTLI251(){return call_proc0(VV[251],&LnkLI251);} /* PARSE-LOOP1 */  static object  LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[253],(void **)&LnkLI253,1,ap);} /* LOOP-LET-BINDINGS */
4010  static object  LnkTLI249(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[249],&LnkLI249,ap);} /* FIND */  static object  LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[252],(void **)&LnkLI252,1,ap);} /* SUBSTITUTE-SLOOP-BODY */
4011  static object  LnkTLI248(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[248],&LnkLI248,ap);} /* DEF-LOOP-INTERNAL */  static object  LnkTLI251(){return call_proc0(VV[251],(void **)&LnkLI251);} /* PARSE-LOOP1 */
4012  static object  LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[247],&LnkLI247,1,ap);} /* PARSE-LOOP */  static object  LnkTLI249(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[249],(void **)&LnkLI249,ap);} /* FIND */
4013  static object  LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],&LnkLI246,2,ap);} /* DESETQ1 */  static object  LnkTLI248(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[248],(void **)&LnkLI248,ap);} /* DEF-LOOP-INTERNAL */
4014    static object  LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[247],(void **)&LnkLI247,1,ap);} /* PARSE-LOOP */
4015    static object  LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],(void **)&LnkLI246,2,ap);} /* DESETQ1 */
4016    
4017  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
4018  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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