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

Diff of /gcl/lsp/gcl_sloop.c

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

revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:32 2003 UTC
# Line 7  void init_gcl_sloop(){do_init(VV);} Line 7  void init_gcl_sloop(){do_init(VV);}
7  static void L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_check;
         check_arg(2);  
11          vs_top=sup;          vs_top=sup;
12          {object V1=base[0]->c.c_cdr;          {object V1=base[0]->c.c_cdr;
         if(endp(V1))invalid_macro_call();  
13          base[2]= (V1->c.c_car);          base[2]= (V1->c.c_car);
14          V1=V1->c.c_cdr;          V1=V1->c.c_cdr;
15          base[3]= V1;}          base[3]= V1;}
# Line 36  T5:; Line 34  T5:;
34          goto T1;          goto T1;
35          goto T4;          goto T4;
36  T4:;  T4:;
37          V6= car((V5));          V6= CMPcar((V5));
38          {register object V7;          {register object V7;
39          if(!(eql(car((V6)),Ct))){          if(!(eql(CMPcar((V6)),Ct))){
40          goto T15;}          goto T15;}
41          V3= Ct;          V3= Ct;
42          V7= (V6);          V7= (V6);
43          goto T13;          goto T13;
44          goto T15;          goto T15;
45  T15:;  T15:;
46          if(!(eql(car((V6)),VV[0]))){          if(!(eql(CMPcar((V6)),VV[0]))){
47          goto T20;}          goto T20;}
48          V7= make_cons(VV[1],cdr((V6)));          V7= make_cons(VV[1],CMPcdr((V6)));
49          goto T13;          goto T13;
50          goto T20;          goto T20;
51  T20:;  T20:;
52          if(!(eql(car((V6)),VV[2]))){          if(!(eql(CMPcar((V6)),VV[2]))){
53          goto T23;}          goto T23;}
54          V7= make_cons(VV[3],cdr((V6)));          V7= make_cons(VV[3],CMPcdr((V6)));
55          goto T13;          goto T13;
56          goto T23;          goto T23;
57  T23:;  T23:;
58          {register object x= car((V6)),V8= VV[4];          {register object x= CMPcar((V6)),V8= VV[4];
59          while(!endp(V8))          while(V8!=Cnil)
60          if(eql(x,V8->c.c_car)){          if(eql(x,V8->c.c_car)){
61          V4= V8;          V4= V8;
62          goto T28;          goto T28;
# Line 68  T23:; Line 66  T23:;
66  T28:;  T28:;
67          if(((V4))==Cnil){          if(((V4))==Cnil){
68          goto T26;}          goto T26;}
69          V9= list(3,VV[5],VV[6],list(3,VV[7],VV[8],list(2,VV[9],car((V4)))));          V9= list(3,VV[5],VV[6],list(3,VV[7],VV[8],list(2,VV[9],CMPcar((V4)))));
70          V7= make_cons(/* INLINE-ARGS */V9,cdr((V6)));          V7= make_cons(/* INLINE-ARGS */V9,CMPcdr((V6)));
71          goto T13;          goto T13;
72          goto T26;          goto T26;
73  T26:;  T26:;
74          V10= list(3,VV[10],VV[8],list(2,VV[9],car((V6))));          V10= list(3,VV[10],VV[8],list(2,VV[9],CMPcar((V6))));
75          V7= make_cons(/* INLINE-ARGS */V10,cdr((V6)));          V7= make_cons(/* INLINE-ARGS */V10,CMPcdr((V6)));
76          goto T13;          goto T13;
77  T13:;  T13:;
78          V2= make_cons((V7),(V2));}          V2= make_cons((V7),(V2));}
79          V5= cdr((V5));          V5= CMPcdr((V5));
80          goto T3;}          goto T3;}
81          goto T1;          goto T1;
82  T1:;  T1:;
# Line 113  TTL:; Line 111  TTL:;
111  T36:;  T36:;
112          if(!(type_of((V17))==t_cons)){          if(!(type_of((V17))==t_cons)){
113          goto T39;}          goto T39;}
114          V21= car((V17));          V21= CMPcar((V17));
115          V22= list(2,VV[17],(V18));          V22= list(2,VV[17],(V18));
116          V23= (*(LnkLI246))(/* INLINE-ARGS */V21,/* INLINE-ARGS */V22);          V23= (*(LnkLI246))(/* INLINE-ARGS */V21,/* INLINE-ARGS */V22);
117          if(!(type_of(cdr((V17)))==t_cons)){          if(!(type_of(CMPcdr((V17)))==t_cons)){
118          goto T43;}          goto T43;}
119          V25= cdr((V17));          V25= CMPcdr((V17));
120          V26= list(2,VV[18],(V18));          V26= list(2,VV[18],(V18));
121          V27= (*(LnkLI246))(/* INLINE-ARGS */V25,/* INLINE-ARGS */V26);          V27= (*(LnkLI246))(/* INLINE-ARGS */V25,/* INLINE-ARGS */V26);
122          V24= make_cons(/* INLINE-ARGS */V27,Cnil);          V24= make_cons(/* INLINE-ARGS */V27,Cnil);
123          goto T41;          goto T41;
124          goto T43;          goto T43;
125  T43:;  T43:;
126          if((cdr((V17)))!=Cnil){          if((CMPcdr((V17)))!=Cnil){
127          goto T45;}          goto T45;}
128          V24= Cnil;          V24= Cnil;
129          goto T41;          goto T41;
130          goto T45;          goto T45;
131  T45:;  T45:;
132          V28= cdr((V17));          V28= CMPcdr((V17));
133          V29= list(3,VV[15],/* INLINE-ARGS */V28,list(2,VV[18],(V18)));          V29= list(3,VV[15],/* INLINE-ARGS */V28,list(2,VV[18],(V18)));
134          V24= make_cons(/* INLINE-ARGS */V29,Cnil);          V24= make_cons(/* INLINE-ARGS */V29,Cnil);
135          goto T41;          goto T41;
# Line 154  T39:; Line 152  T39:;
152  static void L3()  static void L3()
153  {register object *base=vs_base;  {register object *base=vs_base;
154          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
155          vs_reserve(VM3);          vs_check;
         check_arg(2);  
156          vs_top=sup;          vs_top=sup;
157          {object V32=base[0]->c.c_cdr;          {object V32=base[0]->c.c_cdr;
         if(endp(V32))invalid_macro_call();  
158          base[2]= (V32->c.c_car);          base[2]= (V32->c.c_car);
159          V32=V32->c.c_cdr;          V32=V32->c.c_cdr;
160          if(endp(V32))invalid_macro_call();          base[3]= (V32->c.c_car);}
         base[3]= (V32->c.c_car);  
         V32=V32->c.c_cdr;  
         if(!endp(V32))invalid_macro_call();}  
161          if(!(type_of(base[3])!=t_cons)){          if(!(type_of(base[3])!=t_cons)){
162          goto T49;}          goto T49;}
163          base[4]= (*(LnkLI246))(base[2],base[3]);          base[4]= (*(LnkLI246))(base[2],base[3]);
# Line 188  T49:; Line 181  T49:;
181  static void L4()  static void L4()
182  {register object *base=vs_base;  {register object *base=vs_base;
183          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
184          vs_reserve(VM4);          vs_check;
         check_arg(2);  
185          vs_top=sup;          vs_top=sup;
186          {object V36=base[0]->c.c_cdr;          {object V36=base[0]->c.c_cdr;
187          base[2]= V36;}          base[2]= V36;}
# Line 209  T53:; Line 201  T53:;
201  static void L5()  static void L5()
202  {register object *base=vs_base;  {register object *base=vs_base;
203          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
204          vs_reserve(VM5);          vs_check;
         check_arg(2);  
205          vs_top=sup;          vs_top=sup;
         {object V37=base[0]->c.c_cdr;  
         if(!endp(V37))invalid_macro_call();}  
206          base[2]= VV[22];          base[2]= VV[22];
207          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
208          return;          return;
# Line 223  static void L5() Line 212  static void L5()
212  static void L6()  static void L6()
213  {register object *base=vs_base;  {register object *base=vs_base;
214          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
215          vs_reserve(VM6);          vs_check;
         check_arg(2);  
216          vs_top=sup;          vs_top=sup;
         {object V38=base[0]->c.c_cdr;  
         if(!endp(V38))invalid_macro_call();}  
217          base[2]= VV[23];          base[2]= VV[23];
218          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
219          return;          return;
# Line 237  static void L6() Line 223  static void L6()
223  static void L7()  static void L7()
224  {register object *base=vs_base;  {register object *base=vs_base;
225          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
226          vs_reserve(VM7);          vs_check;
         check_arg(2);  
227          vs_top=sup;          vs_top=sup;
228          {object V39=base[0]->c.c_cdr;          {object V39=base[0]->c.c_cdr;
229          base[2]= V39;}          base[2]= V39;}
# Line 251  static void L7() Line 236  static void L7()
236  static void L8()  static void L8()
237  {register object *base=vs_base;  {register object *base=vs_base;
238          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
239          vs_reserve(VM8);          vs_check;
         check_arg(2);  
240          vs_top=sup;          vs_top=sup;
241          {object V40=base[0]->c.c_cdr;          {object V40=base[0]->c.c_cdr;
         if(endp(V40))invalid_macro_call();  
242          base[2]= (V40->c.c_car);          base[2]= (V40->c.c_car);
243          V40=V40->c.c_cdr;          V40=V40->c.c_cdr;
         if(endp(V40))invalid_macro_call();  
244          base[3]= (V40->c.c_car);          base[3]= (V40->c.c_car);
245          V40=V40->c.c_cdr;          V40=V40->c.c_cdr;
246          base[4]= V40;}          base[4]= V40;}
# Line 271  static void L8() Line 253  static void L8()
253  static void L9()  static void L9()
254  {register object *base=vs_base;  {register object *base=vs_base;
255          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
256          vs_reserve(VM9);          vs_check;
         check_arg(2);  
257          vs_top=sup;          vs_top=sup;
258          {object V41=base[0]->c.c_cdr;          {object V41=base[0]->c.c_cdr;
         if(endp(V41))invalid_macro_call();  
259          base[2]= (V41->c.c_car);          base[2]= (V41->c.c_car);
260          V41=V41->c.c_cdr;          V41=V41->c.c_cdr;
         if(endp(V41))invalid_macro_call();  
261          base[3]= (V41->c.c_car);          base[3]= (V41->c.c_car);
262          V41=V41->c.c_cdr;          V41=V41->c.c_cdr;
263          base[4]= V41;}          base[4]= V41;}
# Line 291  static void L9() Line 270  static void L9()
270  static void L10()  static void L10()
271  {register object *base=vs_base;  {register object *base=vs_base;
272          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
273          vs_reserve(VM10);          vs_check;
         check_arg(2);  
274          vs_top=sup;          vs_top=sup;
275          {object V42=base[0]->c.c_cdr;          {object V42=base[0]->c.c_cdr;
         if(endp(V42))invalid_macro_call();  
276          base[2]= (V42->c.c_car);          base[2]= (V42->c.c_car);
277          V42=V42->c.c_cdr;          V42=V42->c.c_cdr;
         if(endp(V42))invalid_macro_call();  
278          base[3]= (V42->c.c_car);          base[3]= (V42->c.c_car);
279          V42=V42->c.c_cdr;          V42=V42->c.c_cdr;
280          base[4]= V42;}          base[4]= V42;}
# Line 311  static void L10() Line 287  static void L10()
287  static void L11()  static void L11()
288  {register object *base=vs_base;  {register object *base=vs_base;
289          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
290          vs_reserve(VM11);          vs_check;
         check_arg(2);  
291          vs_top=sup;          vs_top=sup;
292          {object V43=base[0]->c.c_cdr;          {object V43=base[0]->c.c_cdr;
         if(endp(V43))invalid_macro_call();  
293          base[2]= (V43->c.c_car);          base[2]= (V43->c.c_car);
294          V43=V43->c.c_cdr;          V43=V43->c.c_cdr;
         if(endp(V43))invalid_macro_call();  
295          base[3]= (V43->c.c_car);          base[3]= (V43->c.c_car);
296          V43=V43->c.c_cdr;          V43=V43->c.c_cdr;
297          base[4]= V43;}          base[4]= V43;}
# Line 331  static void L11() Line 304  static void L11()
304  static void L12()  static void L12()
305  {register object *base=vs_base;  {register object *base=vs_base;
306          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
307          vs_reserve(VM12);          vs_check;
         check_arg(2);  
308          vs_top=sup;          vs_top=sup;
         {object V44=base[0]->c.c_cdr;  
         if(!endp(V44))invalid_macro_call();}  
309          base[2]= VV[29];          base[2]= VV[29];
310          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
311          return;          return;
# Line 401  TTL:;{object V57; Line 371  TTL:;{object V57;
371          VMR14(V58)}          VMR14(V58)}
372          goto T67;          goto T67;
373  T67:;}  T67:;}
374          {object V59 = (VFUN_NARGS=4,(*(LnkLI249))((V56),symbol_value(VV[28]),VV[30],VV[10]));          {object V59 = (VFUN_NARGS=4,(*(LnkLI249))((V56),(VV[28]->s.s_dbind),VV[30],VV[10]));
375          VMR14(V59)}          VMR14(V59)}
376          base[0]=base[0];          base[0]=base[0];
377          return Cnil;          return Cnil;
# Line 422  TTL:; Line 392  TTL:;
392          goto T74;          goto T74;
393  T74:;  T74:;
394          base[0]= (V61);          base[0]= (V61);
395          base[1]= symbol_value(VV[32]);          base[1]= (VV[32]->s.s_dbind);
396          base[2]= VV[30];          base[2]= VV[30];
397          base[3]= VV[10];          base[3]= VV[10];
398          base[4]= VV[33];          base[4]= VV[33];
# Line 431  T74:; Line 401  T74:;
401          Lmember();          Lmember();
402          vs_top=sup;          vs_top=sup;
403          V63= vs_base[0];          V63= vs_base[0];
404          V62= cdar(V63);          V62= CMPcdar(V63);
405          goto T73;          goto T73;
406  T73:;  T73:;
407          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 452  static object LI16() Line 422  static object LI16()
422  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
423          goto TTL;          goto TTL;
424  TTL:;  TTL:;
425          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
426          goto T87;}          goto T87;}
427          {object V66;          {object V66;
428          V66= car(symbol_value(VV[34]));          V66= CMPcar((VV[34]->s.s_dbind));
429          setq(VV[34],cdr(symbol_value(VV[34])));          (VV[34]->s.s_dbind)= CMPcdr((VV[34]->s.s_dbind));
430          setq(VV[35],(V66));}          (VV[35]->s.s_dbind)= (V66);}
431          {object V67 = symbol_value(VV[35]);          {object V67 = (VV[35]->s.s_dbind);
432          VMR16(V67)}          VMR16(V67)}
433          goto T87;          goto T87;
434  T87:;  T87:;
435          setq(VV[35],VV[36]);          (VV[35]->s.s_dbind)= VV[36];
436          {object V68 = Cnil;          {object V68 = Cnil;
437          VMR16(V68)}          VMR16(V68)}
438          return Cnil;          return Cnil;
# Line 474  static object LI17() Line 444  static object LI17()
444  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
445          goto TTL;          goto TTL;
446  TTL:;  TTL:;
447          {object V69= symbol_value(VV[35]);          {object V69= (VV[35]->s.s_dbind);
448          if((V69!= VV[36]))goto T95;          if((V69!= VV[36]))goto T95;
449          {object V70 = Cnil;          {object V70 = Cnil;
450          VMR17(V70)}          VMR17(V70)}
# Line 490  T95:; Line 460  T95:;
460          goto T96;          goto T96;
461  T96:;  T96:;
462          {object V72;          {object V72;
463          V72= symbol_value(VV[35]);          V72= (VV[35]->s.s_dbind);
464          setq(VV[34],make_cons((V72),symbol_value(VV[34])));}          (VV[34]->s.s_dbind)= make_cons((V72),(VV[34]->s.s_dbind));}
465          setq(VV[35],VV[38]);          (VV[35]->s.s_dbind)= VV[38];
466          {object V73 = VV[38];          {object V73 = VV[38];
467          VMR17(V73)}}          VMR17(V73)}}
468          base[0]=base[0];          base[0]=base[0];
# Line 505  static object LI18() Line 475  static object LI18()
475  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
476          goto TTL;          goto TTL;
477  TTL:;  TTL:;
478          {object V74 = car(symbol_value(VV[34]));          {object V74 = CMPcar((VV[34]->s.s_dbind));
479          VMR18(V74)}          VMR18(V74)}
480          return Cnil;          return Cnil;
481  }  }
# Line 518  register object V76; Line 488  register object V76;
488          goto TTL;          goto TTL;
489  TTL:;  TTL:;
490          {register object V77;          {register object V77;
491          V77= car((V76));          V77= CMPcar((V76));
492          goto T104;          goto T104;
493  T104:;  T104:;
494          if(((V77))!=Cnil){          if(((V77))!=Cnil){
495          goto T105;}          goto T105;}
496          {object V78 = nreverse(car((V76)));          {object V78 = nreverse(CMPcar((V76)));
497          VMR19(V78)}          VMR19(V78)}
498          goto T105;          goto T105;
499  T105:;{object V79;  T105:;{object V79;
500          V79= cdar((V77));          V79= CMPcdar((V77));
501          if(V79==Cnil)goto T110;          if(V79==Cnil)goto T110;
502          goto T109;          goto T109;
503          goto T110;          goto T110;
# Line 535  T110:;} Line 505  T110:;}
505          {register object V80;          {register object V80;
506          register object V81;          register object V81;
507          V80= (V77);          V80= (V77);
508          V81= caar((V77));          V81= CMPcaar((V77));
         if(type_of((V80))!=t_cons)FEwrong_type_argument(Scons,(V80));  
509          ((V80))->c.c_car = (V81);}          ((V80))->c.c_car = (V81);}
510          goto T109;          goto T109;
511  T109:;  T109:;
512          V77= cdr((V77));          V77= CMPcdr((V77));
513          goto T104;}          goto T104;}
514          base[0]=base[0];          base[0]=base[0];
515          return Cnil;          return Cnil;
# Line 559  TTL:; Line 528  TTL:;
528          {register object V85;          {register object V85;
529          register object V86;          register object V86;
530          bds_bind(VV[34],(V83));          bds_bind(VV[34],(V83));
531          bds_bind(VV[54],symbol_value(VV[54]));          bds_bind(VV[54],(VV[54]->s.s_dbind));
532          bds_bind(VV[35],Cnil);          bds_bind(VV[35],Cnil);
533          bds_bind(VV[53],Cnil);          bds_bind(VV[53],Cnil);
534          bds_bind(VV[49],Cnil);          bds_bind(VV[49],Cnil);
# Line 578  TTL:; Line 547  TTL:;
547          bds_bind(VV[39],Cnil);          bds_bind(VV[39],Cnil);
548          V85= Cnil;          V85= Cnil;
549          V86= VV[55];          V86= VV[55];
550          if(!(type_of(car((VV[34]->s.s_dbind)))==t_symbol)){          if(!(type_of(CMPcar((VV[34]->s.s_dbind)))==t_symbol)){
551          goto T120;}          goto T120;}
552          if((car((VV[34]->s.s_dbind)))!=Cnil){          if((CMPcar((VV[34]->s.s_dbind)))!=Cnil){
553          goto T119;}          goto T119;}
554          goto T120;          goto T120;
555  T120:;  T120:;
# Line 660  T155:; Line 629  T155:;
629          vs_top=sup;          vs_top=sup;
630          V95= vs_base[0];          V95= vs_base[0];
631          V93= list(3,VV[71],(V85),list(3,VV[72],V94,make_cons(VV[73],V95)));}          V93= list(3,VV[71],(V85),list(3,VV[72],V94,make_cons(VV[73],V95)));}
632          if(eql(symbol_value(VV[75]),symbol_value(VV[76]))){          if(eql((VV[75]->s.s_dbind),(VV[76]->s.s_dbind))){
633          goto T168;}          goto T168;}
634          base[18]= (V93);          base[18]= (V93);
635          vs_top=(vs_base=base+18)+1;          vs_top=(vs_base=base+18)+1;
# Line 672  T168:; Line 641  T168:;
641          {register object V96;          {register object V96;
642          register object V97;          register object V97;
643          V96= (VV[46]->s.s_dbind);          V96= (VV[46]->s.s_dbind);
644          V97= car((V96));          V97= CMPcar((V96));
645          goto T177;          goto T177;
646  T177:;  T177:;
647          if(!(endp_prop((V96)))){          if(!(((V96))==Cnil)){
648          goto T178;}          goto T178;}
649          goto T173;          goto T173;
650          goto T178;          goto T178;
651  T178:;  T178:;
652          V98= (*(LnkLI253))((V97));          V98= (*(LnkLI253))((V97));
653          if((cdr((V97)))!=Cnil){          if((CMPcdr((V97)))!=Cnil){
654          goto T185;}          goto T185;}
655          V99= Cnil;          V99= Cnil;
656          goto T184;          goto T184;
657          goto T185;          goto T185;
658  T185:;  T185:;
659          V100= make_cons(VV[77],cdr((V97)));          V100= make_cons(VV[77],CMPcdr((V97)));
660          V99= make_cons(/* INLINE-ARGS */V100,Cnil);          V99= make_cons(/* INLINE-ARGS */V100,Cnil);
661          goto T184;          goto T184;
662  T184:;  T184:;
663          V101= make_cons((V93),Cnil);          V101= make_cons((V93),Cnil);
664          V93= listA(3,VV[12],/* INLINE-ARGS */V98,append(V99,/* INLINE-ARGS */V101));          V93= listA(3,VV[12],/* INLINE-ARGS */V98,append(V99,/* INLINE-ARGS */V101));
665          V96= cdr((V96));          V96= CMPcdr((V96));
666          V97= car((V96));          V97= CMPcar((V96));
667          goto T177;}          goto T177;}
668          goto T173;          goto T173;
669  T173:;  T173:;
# Line 734  TTL:; Line 703  TTL:;
703          if(((*(LnkLI10))((V103),VV[78]))==Cnil){          if(((*(LnkLI10))((V103),VV[78]))==Cnil){
704          goto T192;}          goto T192;}
705          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
706          setq(VV[51],(*(LnkLI255))());}          (VV[51]->s.s_dbind)= (*(LnkLI255))();}
707          goto T192;          goto T192;
708  T192:;  T192:;
709          {register object V105;          {register object V105;
# Line 743  T192:; Line 712  T192:;
712  T200:;  T200:;
713          if(((V105))!=Cnil){          if(((V105))!=Cnil){
714          goto T201;}          goto T201;}
715          if((symbol_value(VV[34]))!=Cnil){          if(((VV[34]->s.s_dbind))!=Cnil){
716          goto T201;}          goto T201;}
717          {object V106 = Cnil;          {object V106 = Cnil;
718          VMR21(V106)}          VMR21(V106)}
# Line 769  T214:; Line 738  T214:;
738          {register object V109;          {register object V109;
739          V110= (*(LnkLI255))();          V110= (*(LnkLI255))();
740          V109= list(3,VV[80],/* INLINE-ARGS */V110,VV[81]);          V109= list(3,VV[80],/* INLINE-ARGS */V110,VV[81]);
741          setq(VV[49],make_cons((V109),symbol_value(VV[49])));          (VV[49]->s.s_dbind)= make_cons((V109),(VV[49]->s.s_dbind));
742          goto T207;}          goto T207;}
743          goto T217;          goto T217;
744  T217:;  T217:;
# Line 778  T217:; Line 747  T217:;
747          {register object V111;          {register object V111;
748          V112= (*(LnkLI255))();          V112= (*(LnkLI255))();
749          V111= list(3,VV[5],/* INLINE-ARGS */V112,VV[83]);          V111= list(3,VV[5],/* INLINE-ARGS */V112,VV[83]);
750          setq(VV[49],make_cons((V111),symbol_value(VV[49])));          (VV[49]->s.s_dbind)= make_cons((V111),(VV[49]->s.s_dbind));
751          goto T207;}          goto T207;}
752          goto T222;          goto T222;
753  T222:;  T222:;
754          if(((*(LnkLI10))((V107),VV[56]))==Cnil){          if(((*(LnkLI10))((V107),VV[56]))==Cnil){
755          goto T227;}          goto T227;}
756          V113= (*(LnkLI258))();          V113= (*(LnkLI258))();
757          setq(VV[49],append(/* INLINE-ARGS */V113,symbol_value(VV[49])));          (VV[49]->s.s_dbind)= append(/* INLINE-ARGS */V113,(VV[49]->s.s_dbind));
758          goto T207;          goto T207;
759          goto T227;          goto T227;
760  T227:;  T227:;
761          if(((*(LnkLI10))((V107),VV[84]))==Cnil){          if(((*(LnkLI10))((V107),VV[84]))==Cnil){
762          goto T231;}          goto T231;}
763          V114= (*(LnkLI259))();          V114= (*(LnkLI259))();
764          setq(VV[49],append(/* INLINE-ARGS */V114,symbol_value(VV[49])));          (VV[49]->s.s_dbind)= append(/* INLINE-ARGS */V114,(VV[49]->s.s_dbind));
765          goto T207;          goto T207;
766          goto T231;          goto T231;
767  T231:;  T231:;
768          if(((*(LnkLI260))((V107)))==Cnil){          if(((*(LnkLI260))((V107)))==Cnil){
769          goto T235;}          goto T235;}
770          V115= (*(LnkLI261))();          V115= (*(LnkLI261))();
771          setq(VV[49],append(/* INLINE-ARGS */V115,symbol_value(VV[49])));          (VV[49]->s.s_dbind)= append(/* INLINE-ARGS */V115,(VV[49]->s.s_dbind));
772          goto T207;          goto T207;
773          goto T235;          goto T235;
774  T235:;  T235:;
# Line 833  TTL:; Line 802  TTL:;
802  T247:;  T247:;
803          if(((V119))!=Cnil){          if(((V119))!=Cnil){
804          goto T248;}          goto T248;}
805          if((symbol_value(VV[34]))!=Cnil){          if(((VV[34]->s.s_dbind))!=Cnil){
806          goto T248;}          goto T248;}
807          goto T245;          goto T245;
808          goto T248;          goto T248;
# Line 866  T263:; Line 835  T263:;
835  T266:;  T266:;
836          if(((*(LnkLI10))((V121),VV[88]))==Cnil){          if(((*(LnkLI10))((V121),VV[88]))==Cnil){
837          goto T269;}          goto T269;}
838          setq(VV[47],(*(LnkLI255))());          (VV[47]->s.s_dbind)= (*(LnkLI255))();
839          goto T254;          goto T254;
840          goto T269;          goto T269;
841  T269:;  T269:;
842          if(((*(LnkLI10))((V121),VV[89]))==Cnil){          if(((*(LnkLI10))((V121),VV[89]))==Cnil){
843          goto T273;}          goto T273;}
844          V123= (*(LnkLI258))();          V123= (*(LnkLI258))();
845          setq(VV[42],append(/* INLINE-ARGS */V123,symbol_value(VV[42])));          (VV[42]->s.s_dbind)= append(/* INLINE-ARGS */V123,(VV[42]->s.s_dbind));
846          goto T254;          goto T254;
847          goto T273;          goto T273;
848  T273:;  T273:;
849          if(((*(LnkLI10))((V121),VV[90]))==Cnil){          if(((*(LnkLI10))((V121),VV[90]))==Cnil){
850          goto T277;}          goto T277;}
851          V124= (*(LnkLI258))();          V124= (*(LnkLI258))();
852          setq(VV[41],append(/* INLINE-ARGS */V124,symbol_value(VV[41])));          (VV[41]->s.s_dbind)= append(/* INLINE-ARGS */V124,(VV[41]->s.s_dbind));
853          goto T254;          goto T254;
854          goto T277;          goto T277;
855  T277:;  T277:;
# Line 892  T277:; Line 861  T277:;
861  T281:;  T281:;
862          if(!(type_of((V121))==t_symbol)){          if(!(type_of((V121))==t_symbol)){
863          goto T284;}          goto T284;}
864          if((get((V121),VV[92],Cnil))==Cnil){          {object V125 =((V121))->s.s_plist;
865             object ind= VV[92];
866            while(V125!=Cnil){
867            if(V125->c.c_car==ind){
868            if(((V125->c.c_cdr->c.c_car))==Cnil){
869            goto T284;}
870            goto T287;
871            }else V125=V125->c.c_cdr->c.c_cdr;}
872          goto T284;}          goto T284;}
873            goto T287;
874    T287:;
875          (void)((VFUN_NARGS=2,(*(LnkLI265))((V120),VV[92])));          (void)((VFUN_NARGS=2,(*(LnkLI265))((V120),VV[92])));
876          goto T254;          goto T254;
877          goto T284;          goto T284;
# Line 915  T254:; Line 893  T254:;
893          goto T247;}          goto T247;}
894          goto T245;          goto T245;
895  T245:;  T245:;
896          {object V125 = (V118);          {object V126 = (V118);
897          VMR22(V125)}}          VMR22(V126)}}
898          return Cnil;          return Cnil;
899  }  }
900  /*      local entry for function PARSE-LOOP-WITH        */  /*      local entry for function PARSE-LOOP-WITH        */
# Line 925  static object LI23(object first,...) Line 903  static object LI23(object first,...)
903  {        {      
904          va_list ap;          va_list ap;
905          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
906          {object V126;          {object V127;
907          object V127;          object V128;
908          va_start(ap,first);          va_start(ap,first);
909          narg = narg - 0;          narg = narg - 0;
910          if (narg <= 0) goto T298;          if (narg <= 0) goto T298;
911          else {          else {
912          V126= first;}          V127= first;}
913          if (--narg <= 0) goto T299;          if (--narg <= 0) goto T299;
914          else {          else {
915          V127= va_arg(ap,object);}          V128= va_arg(ap,object);}
916          --narg; goto T300;          --narg; goto T300;
917          goto T298;          goto T298;
918  T298:;  T298:;
919          V126= Cnil;          V127= Cnil;
920          goto T299;          goto T299;
921  T299:;  T299:;
922          V127= Cnil;          V128= Cnil;
923          goto T300;          goto T300;
924  T300:;  T300:;
925          {register object V128;          {register object V129;
926          V128= (*(LnkLI255))();          V129= (*(LnkLI255))();
927          {object V129;          {object V130;
928          V130= (*(LnkLI254))();          V131= (*(LnkLI254))();
929          V129= (*(LnkLI13))(/* INLINE-ARGS */V130);          V130= (*(LnkLI13))(/* INLINE-ARGS */V131);
930          if(((*(LnkLI10))((V129),VV[94]))==Cnil){          if(((*(LnkLI10))((V130),VV[94]))==Cnil){
931          goto T307;}          goto T307;}
932          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
933          if(!(type_of((V128))==t_symbol)){          if(!(type_of((V129))==t_symbol)){
934          goto T311;}          goto T311;}
935          goto T310;          goto T310;
936          goto T311;          goto T311;
937  T311:;  T311:;
938          base[0]= VV[95];          base[0]= VV[95];
939          base[1]= (V128);          base[1]= (V129);
940          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
941          Lerror();          Lerror();
942          vs_top=sup;          vs_top=sup;
943          goto T310;          goto T310;
944  T310:;  T310:;
945          V131= (*(LnkLI255))();          V132= (*(LnkLI255))();
946          (void)((VFUN_NARGS=7,(*(LnkLI267))((V128),/* INLINE-ARGS */V131,(((V126))==Cnil?Ct:Cnil),Cnil,Cnil,Ct,(V127))));          (void)((VFUN_NARGS=7,(*(LnkLI267))((V129),/* INLINE-ARGS */V132,(((V127))==Cnil?Ct:Cnil),Cnil,Cnil,Ct,(V128))));
947          goto T304;          goto T304;
948          goto T307;          goto T307;
949  T307:;  T307:;
950          (void)((VFUN_NARGS=5,(*(LnkLI268))((V128),Cnil,Cnil,(((V126))==Cnil?Ct:Cnil),(V127))));}          (void)((VFUN_NARGS=5,(*(LnkLI268))((V129),Cnil,Cnil,(((V127))==Cnil?Ct:Cnil),(V128))));}
951          goto T304;          goto T304;
952  T304:;  T304:;
953          {object V132;          {object V133;
954          V133= (*(LnkLI254))();          V134= (*(LnkLI254))();
955          V132= (*(LnkLI13))(/* INLINE-ARGS */V133);          V133= (*(LnkLI13))(/* INLINE-ARGS */V134);
956          if(((*(LnkLI10))((V132),VV[5]))==Cnil){          if(((*(LnkLI10))((V133),VV[5]))==Cnil){
957          goto T317;}          goto T317;}
958          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
959          {object V134;          {object V135;
960          V135= (*(LnkLI255))();          V136= (*(LnkLI255))();
961          V134= (*(LnkLI13))(/* INLINE-ARGS */V135);          V135= (*(LnkLI13))(/* INLINE-ARGS */V136);
962          if(((*(LnkLI10))((V134),VV[87]))==Cnil){          if(((*(LnkLI10))((V135),VV[87]))==Cnil){
963          goto T322;}          goto T322;}
964          {object V136 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));          {object V137 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));
965          VMR23(V136)}          VMR23(V137)}
966          goto T322;          goto T322;
967  T322:;  T322:;
968          if(((*(LnkLI10))((V134),VV[91]))==Cnil){          if(((*(LnkLI10))((V135),VV[91]))==Cnil){
969          goto T325;}          goto T325;}
970          {object V137 = (VFUN_NARGS=2,(*(LnkLI263))(Ct,Ct));          {object V138 = (VFUN_NARGS=2,(*(LnkLI263))(Ct,Ct));
971          VMR23(V137)}          VMR23(V138)}
972          goto T325;          goto T325;
973  T325:;  T325:;
974          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
975          {object V138 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));          {object V139 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));
976          VMR23(V138)}}          VMR23(V139)}}
977          goto T317;          goto T317;
978  T317:;  T317:;
979          {object V139 = Cnil;          {object V140 = Cnil;
980          VMR23(V139)}}}          VMR23(V140)}}}
981          va_end(ap);          va_end(ap);
982          base[0]=base[0];          base[0]=base[0];
983          return Cnil;}          return Cnil;}
# Line 1011  static object LI24() Line 989  static object LI24()
989  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
990          goto TTL;          goto TTL;
991  TTL:;  TTL:;
         {register object V140;  
         V140= Cnil;  
992          {register object V141;          {register object V141;
993          V141= (*(LnkLI255))();          V141= Cnil;
994            {register object V142;
995            V142= (*(LnkLI255))();
996          goto T332;          goto T332;
997  T332:;  T332:;
998          if(!(type_of((V141))==t_cons||((V141))==Cnil)){          if(!(type_of((V142))==t_cons||((V142))==Cnil)){
999          goto T337;}          goto T337;}
1000          {register object V142;          {register object V143;
1001          V142= (V141);          V143= (V142);
1002          V140= make_cons((V142),(V140));}          V141= make_cons((V143),(V141));}
1003          if(symbol_value(VV[34])!=Cnil){          if((VV[34]->s.s_dbind)!=Cnil){
1004          goto T335;}          goto T335;}
1005          goto T329;          goto T329;
1006          goto T337;          goto T337;
# Line 1031  T337:; Line 1009  T337:;
1009          goto T329;          goto T329;
1010          goto T335;          goto T335;
1011  T335:;  T335:;
1012          V141= (*(LnkLI255))();          V142= (*(LnkLI255))();
1013          goto T332;}          goto T332;}
1014          goto T329;          goto T329;
1015  T329:;  T329:;
1016          if((V140)!=Cnil){          if((V141)!=Cnil){
1017          goto T346;}          goto T346;}
1018          base[0]= VV[96];          base[0]= VV[96];
1019          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1043  T329:; Line 1021  T329:;
1021          vs_top=sup;          vs_top=sup;
1022          goto T346;          goto T346;
1023  T346:;  T346:;
1024          {object V143 = (V140);          {object V144 = (V141);
1025          VMR24(V143)}}          VMR24(V144)}}
1026          base[0]=base[0];          base[0]=base[0];
1027          return Cnil;          return Cnil;
1028  }  }
1029  /*      local entry for function PARSE-LOOP-INITIALLY   */  /*      local entry for function PARSE-LOOP-INITIALLY   */
1030    
1031  static object LI25(V145)  static object LI25(V146)
1032    
1033  object V145;  object V146;
1034  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1035          goto TTL;          goto TTL;
1036  TTL:;  TTL:;
         {object V146;  
         V146= (*(LnkLI13))((V145));  
         if(((*(LnkLI10))((V146),VV[97]))==Cnil){  
         goto T350;}  
1037          {object V147;          {object V147;
1038          V147= (*(LnkLI258))();          V147= (*(LnkLI13))((V146));
1039          {register object V148;          if(((*(LnkLI10))((V147),VV[97]))==Cnil){
1040          register object V149;          goto T350;}
1041          V148= nreverse((V147));          {object V148;
1042          V149= car((V148));          V148= (*(LnkLI258))();
1043            {register object V149;
1044            register object V150;
1045            V149= nreverse((V148));
1046            V150= CMPcar((V149));
1047          goto T356;          goto T356;
1048  T356:;  T356:;
1049          if(!(endp_prop((V148)))){          if(!(((V149))==Cnil)){
1050          goto T357;}          goto T357;}
1051          {object V150 = Cnil;          {object V151 = Cnil;
1052          VMR25(V150)}          VMR25(V151)}
1053          goto T357;          goto T357;
1054  T357:;  T357:;
1055          {register object V151;          {register object V152;
1056          if(type_of((V149))==t_cons||((V149))==Cnil){          if(type_of((V150))==t_cons||((V150))==Cnil){
1057          goto T363;}          goto T363;}
1058          V151= Cnil;          V152= Cnil;
1059          goto T362;          goto T362;
1060          goto T363;          goto T363;
1061  T363:;  T363:;
1062          {register object x= car((V149)),V152= VV[98];          {register object x= CMPcar((V150)),V153= VV[98];
1063          while(!endp(V152))          while(V153!=Cnil)
1064          if(eql(x,V152->c.c_car)){          if(eql(x,V153->c.c_car)){
1065          goto T365;          goto T365;
1066          }else V152=V152->c.c_cdr;}          }else V153=V153->c.c_cdr;}
1067          V151= Cnil;          V152= Cnil;
1068          goto T362;          goto T362;
1069          goto T365;          goto T365;
1070  T365:;  T365:;
1071          if(((long)length((V149)))==(3)){          if(((long)length((V150)))==(3)){
1072          goto T367;}          goto T367;}
1073          V151= Cnil;          V152= Cnil;
1074          goto T362;          goto T362;
1075          goto T367;          goto T367;
1076  T367:;  T367:;
1077          if(type_of(cadr((V149)))==t_symbol){          if(type_of(CMPcadr((V150)))==t_symbol){
1078          goto T369;}          goto T369;}
1079          V151= Cnil;          V152= Cnil;
1080          goto T362;          goto T362;
1081          goto T369;          goto T369;
1082  T369:;  T369:;
1083          base[2]= caddr((V149));          base[2]= CMPcaddr((V150));
1084          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1085          Lconstantp();          Lconstantp();
1086          vs_top=sup;          vs_top=sup;
1087          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1088          goto T371;}          goto T371;}
1089          V151= Cnil;          V152= Cnil;
1090          goto T362;          goto T362;
1091          goto T371;          goto T371;
1092  T371:;  T371:;
1093          {register object x= cadr((V149)),V153= caar(symbol_value(VV[46]));          {register object x= CMPcadr((V150)),V154= CMPcaar((VV[46]->s.s_dbind));
1094          while(!endp(V153))          while(V154!=Cnil)
1095          if(type_of(V153->c.c_car)==t_cons &&eql(x,V153->c.c_car->c.c_car)){          if(eql(x,V154->c.c_car->c.c_car) &&V154->c.c_car != Cnil){
1096          goto T374;          goto T374;
1097          }else V153=V153->c.c_cdr;}          }else V154=V154->c.c_cdr;}
1098          V151= Cnil;          V152= Cnil;
1099          goto T362;          goto T362;
1100          goto T374;          goto T374;
1101  T374:;  T374:;
1102          V151= (VFUN_NARGS=7,(*(LnkLI267))(cadr((V149)),caddr((V149)),Cnil,Cnil,Cnil,Ct,Ct));          V152= (VFUN_NARGS=7,(*(LnkLI267))(CMPcadr((V150)),CMPcaddr((V150)),Cnil,Cnil,Cnil,Ct,Ct));
1103          goto T362;          goto T362;
1104  T362:;  T362:;
1105          if(((V151))==Cnil){          if(((V152))==Cnil){
1106          goto T377;}          goto T377;}
1107          goto T361;          goto T361;
1108          goto T377;          goto T377;
1109  T377:;  T377:;
1110          setq(VV[48],make_cons((V149),symbol_value(VV[48])));}          (VV[48]->s.s_dbind)= make_cons((V150),(VV[48]->s.s_dbind));}
1111          goto T361;          goto T361;
1112  T361:;  T361:;
1113          V148= cdr((V148));          V149= CMPcdr((V149));
1114          V149= car((V148));          V150= CMPcar((V149));
1115          goto T356;}}          goto T356;}}
1116          goto T350;          goto T350;
1117  T350:;  T350:;
1118          if(((*(LnkLI10))((V146),VV[99]))==Cnil){          if(((*(LnkLI10))((V147),VV[99]))==Cnil){
1119          goto T386;}          goto T386;}
1120          V154= (*(LnkLI258))();          V155= (*(LnkLI258))();
1121          setq(VV[43],append(/* INLINE-ARGS */V154,symbol_value(VV[43])));          (VV[43]->s.s_dbind)= append(/* INLINE-ARGS */V155,(VV[43]->s.s_dbind));
1122          {object V155 = symbol_value(VV[43]);          {object V156 = (VV[43]->s.s_dbind);
1123          VMR25(V155)}          VMR25(V156)}
1124          goto T386;          goto T386;
1125  T386:;  T386:;
1126          base[0]= VV[85];          base[0]= VV[85];
1127          base[1]= (V146);          base[1]= (V147);
1128          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1129          Lerror();          Lerror();
1130          vs_top=sup;          vs_top=sup;
1131          {object V156 = vs_base[0];          {object V157 = vs_base[0];
1132          VMR25(V156)}}          VMR25(V157)}}
1133          base[0]=base[0];          base[0]=base[0];
1134          return Cnil;          return Cnil;
1135  }  }
# Line 1162  static object LI26() Line 1140  static object LI26()
1140  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1141          goto TTL;          goto TTL;
1142  TTL:;  TTL:;
1143          {register object V157;          {register object V158;
         register object V158;  
1144          register object V159;          register object V159;
1145          V157= Cnil;          register object V160;
1146          V158= VV[100];          V158= Cnil;
1147          V159= Cnil;          V159= VV[100];
1148            V160= Cnil;
1149          goto T396;          goto T396;
1150  T396:;  T396:;
1151          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
1152          goto T399;}          goto T399;}
1153          goto T398;          goto T398;
1154          goto T399;          goto T399;
# Line 1178  T399:; Line 1156  T399:;
1156          goto T394;          goto T394;
1157          goto T398;          goto T398;
1158  T398:;  T398:;
1159          V159= (*(LnkLI255))();          V160= (*(LnkLI255))();
         {register object V160;  
         V160= (*(LnkLI13))((V159));  
1160          {register object V161;          {register object V161;
1161          V161= (*(LnkLI256))((V160));          V161= (*(LnkLI13))((V160));
1162          if(((V161))==Cnil){          {register object V162;
1163            V162= (*(LnkLI256))((V161));
1164            if(((V162))==Cnil){
1165          goto T407;}          goto T407;}
1166          goto T403;          goto T403;
1167          goto T407;          goto T407;
1168  T407:;  T407:;
1169          if(((*(LnkLI260))((V160)))==Cnil){          if(((*(LnkLI260))((V161)))==Cnil){
1170          goto T410;}          goto T410;}
1171          if(!(eql(VV[100],(V158)))){          if(!(eql(VV[100],(V159)))){
1172          goto T413;}          goto T413;}
1173          goto T412;          goto T412;
1174          goto T413;          goto T413;
# Line 1198  T413:; Line 1176  T413:;
1176          goto T397;          goto T397;
1177          goto T412;          goto T412;
1178  T412:;  T412:;
1179          V162= (*(LnkLI261))();          V163= (*(LnkLI261))();
1180          V157= append(/* INLINE-ARGS */V162,(V157));          V158= append(/* INLINE-ARGS */V163,(V158));
1181          V158= VV[5];          V159= VV[5];
1182          goto T403;          goto T403;
1183          goto T410;          goto T410;
1184  T410:;  T410:;
1185          if(((*(LnkLI10))((V160),VV[101]))==Cnil){          if(((*(LnkLI10))((V161),VV[101]))==Cnil){
1186          goto T419;}          goto T419;}
1187          if(!(eql(VV[100],(V158)))){          if(!(eql(VV[100],(V159)))){
1188          goto T422;}          goto T422;}
1189          goto T421;          goto T421;
1190          goto T422;          goto T422;
# Line 1214  T422:; Line 1192  T422:;
1192          goto T397;          goto T397;
1193          goto T421;          goto T421;
1194  T421:;  T421:;
1195          V163= (*(LnkLI259))();          V164= (*(LnkLI259))();
1196          V157= append(/* INLINE-ARGS */V163,(V157));          V158= append(/* INLINE-ARGS */V164,(V158));
1197          V158= VV[5];          V159= VV[5];
1198          goto T403;          goto T403;
1199          goto T419;          goto T419;
1200  T419:;  T419:;
1201          if(((*(LnkLI10))((V160),VV[56]))==Cnil){          if(((*(LnkLI10))((V161),VV[56]))==Cnil){
1202          goto T428;}          goto T428;}
1203          if(!(eql(VV[100],(V158)))){          if(!(eql(VV[100],(V159)))){
1204          goto T431;}          goto T431;}
1205          goto T430;          goto T430;
1206          goto T431;          goto T431;
# Line 1230  T431:; Line 1208  T431:;
1208          goto T397;          goto T397;
1209          goto T430;          goto T430;
1210  T430:;  T430:;
1211          V164= (*(LnkLI258))();          V165= (*(LnkLI258))();
1212          V157= append(/* INLINE-ARGS */V164,(V157));          V158= append(/* INLINE-ARGS */V165,(V158));
1213          V158= VV[5];          V159= VV[5];
1214          goto T403;          goto T403;
1215          goto T428;          goto T428;
1216  T428:;  T428:;
1217          if(((*(LnkLI10))((V160),VV[5]))==Cnil){          if(((*(LnkLI10))((V161),VV[5]))==Cnil){
1218          goto T437;}          goto T437;}
1219          if(!(eql(VV[5],(V158)))){          if(!(eql(VV[5],(V159)))){
1220          goto T440;}          goto T440;}
1221          goto T439;          goto T439;
1222          goto T440;          goto T440;
# Line 1249  T440:; Line 1227  T440:;
1227          vs_top=sup;          vs_top=sup;
1228          goto T439;          goto T439;
1229  T439:;  T439:;
1230          V158= VV[100];          V159= VV[100];
1231          goto T403;          goto T403;
1232          goto T437;          goto T437;
1233  T437:;  T437:;
# Line 1264  T397:; Line 1242  T397:;
1242          goto T394;          goto T394;
1243          goto T394;          goto T394;
1244  T394:;  T394:;
1245          if((V157)!=Cnil){          if((V158)!=Cnil){
1246          goto T446;}          goto T446;}
1247          base[0]= VV[103];          base[0]= VV[103];
1248          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1272  T394:; Line 1250  T394:;
1250          vs_top=sup;          vs_top=sup;
1251          goto T446;          goto T446;
1252  T446:;  T446:;
1253          {object V165 = (V157);          {object V166 = (V158);
1254          VMR26(V165)}}          VMR26(V166)}}
1255          base[0]=base[0];          base[0]=base[0];
1256          return Cnil;          return Cnil;
1257  }  }
# Line 1284  static object LI27() Line 1262  static object LI27()
1262  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1263          goto TTL;          goto TTL;
1264  TTL:;  TTL:;
1265          {object V166;          {object V167;
         object V167;  
1266          object V168;          object V168;
1267          V166= Cnil;          object V169;
1268          V167= Cnil;          V167= Cnil;
1269          V168= Cnil;          V168= Cnil;
1270          {object V169;          V169= Cnil;
1271          if(((*(LnkLI10))(symbol_value(VV[35]),VV[104]))==Cnil){          {object V170;
1272            if(((*(LnkLI10))((VV[35]->s.s_dbind),VV[104]))==Cnil){
1273          goto T453;}          goto T453;}
1274          V169= list(2,VV[105],(*(LnkLI255))());          V170= list(2,VV[105],(*(LnkLI255))());
1275          goto T451;          goto T451;
1276          goto T453;          goto T453;
1277  T453:;  T453:;
1278          V169= (*(LnkLI255))();          V170= (*(LnkLI255))();
1279          goto T451;          goto T451;
1280  T451:;  T451:;
1281          V166= (*(LnkLI269))();          V167= (*(LnkLI269))();
1282          {object V170;          {object V171;
1283          V171= (*(LnkLI254))();          V172= (*(LnkLI254))();
1284          V170= (*(LnkLI13))(/* INLINE-ARGS */V171);          V171= (*(LnkLI13))(/* INLINE-ARGS */V172);
1285          if(((*(LnkLI10))((V170),VV[106]))==Cnil){          if(((*(LnkLI10))((V171),VV[106]))==Cnil){
1286          goto T457;}          goto T457;}
1287          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
1288          V167= Ct;          V168= Ct;
1289          V168= (*(LnkLI269))();}          V169= (*(LnkLI269))();}
1290          goto T457;          goto T457;
1291  T457:;  T457:;
1292          V172= nreverse((V166));          V173= nreverse((V167));
1293          V173= make_cons((V169),/* INLINE-ARGS */V172);          V174= make_cons((V170),/* INLINE-ARGS */V173);
1294          if((V167)==Cnil){          if((V168)==Cnil){
1295          V174= Cnil;          V175= Cnil;
1296          goto T465;}          goto T465;}
1297          V175= nreverse((V168));          V176= nreverse((V169));
1298          V176= make_cons(Ct,/* INLINE-ARGS */V175);          V177= make_cons(Ct,/* INLINE-ARGS */V176);
1299          V174= make_cons(/* INLINE-ARGS */V176,Cnil);          V175= make_cons(/* INLINE-ARGS */V177,Cnil);
1300          goto T465;          goto T465;
1301  T465:;  T465:;
1302          V177= listA(3,VV[14],/* INLINE-ARGS */V173,V174);          V178= listA(3,VV[14],/* INLINE-ARGS */V174,V175);
1303          {object V178 = make_cons(/* INLINE-ARGS */V177,Cnil);          {object V179 = make_cons(/* INLINE-ARGS */V178,Cnil);
1304          VMR27(V178)}}}          VMR27(V179)}}}
1305          return Cnil;          return Cnil;
1306  }  }
1307  /*      local entry for function POINTER-FOR-COLLECT    */  /*      local entry for function POINTER-FOR-COLLECT    */
1308    
1309  static object LI28(V180)  static object LI28(V181)
1310    
1311  object V180;  object V181;
1312  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1313          goto TTL;          goto TTL;
1314  TTL:;{object V181;  TTL:;{object V182;
1315          {register object x= (V180),V183= symbol_value(VV[52]);          {register object x= (V181),V184= (VV[52]->s.s_dbind);
1316          while(!endp(V183))          while(V184!=Cnil)
1317          if(type_of(V183->c.c_car)==t_cons &&eql(x,V183->c.c_car->c.c_car)){          if(eql(x,V184->c.c_car->c.c_car) &&V184->c.c_car != Cnil){
1318          V182= (V183->c.c_car);          V183= (V184->c.c_car);
1319          goto T468;          goto T468;
1320          }else V183=V183->c.c_cdr;          }else V184=V184->c.c_cdr;
1321          V182= Cnil;}          V183= Cnil;}
1322          goto T468;          goto T468;
1323  T468:;  T468:;
1324          V181= cdr(V182);          V182= CMPcdr(V183);
1325          if(V181==Cnil)goto T466;          if(V182==Cnil)goto T466;
1326          {object V184 = V181;          {object V185 = V182;
1327          VMR28(V184)}          VMR28(V185)}
1328          goto T466;          goto T466;
1329  T466:;}  T466:;}
1330          {object V185;          {object V186;
1331          base[0]= VV[107];          base[0]= VV[107];
1332          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1333          Lgensym();          Lgensym();
1334          vs_top=sup;          vs_top=sup;
1335          V186= vs_base[0];          V187= vs_base[0];
1336          V185= (VFUN_NARGS=4,(*(LnkLI267))(V186,Cnil,Cnil,VV[0]));          V186= (VFUN_NARGS=4,(*(LnkLI267))(V187,Cnil,Cnil,VV[0]));
1337          {object V187;          {object V188;
1338          V187= make_cons((V180),(V185));          V188= make_cons((V181),(V186));
1339          setq(VV[52],make_cons((V187),symbol_value(VV[52])));}          (VV[52]->s.s_dbind)= make_cons((V188),(VV[52]->s.s_dbind));}
1340          {object V188 = (V185);          {object V189 = (V186);
1341          VMR28(V188)}}          VMR28(V189)}}
1342          base[0]=base[0];          base[0]=base[0];
1343          return Cnil;          return Cnil;
1344  }  }
# Line 1371  static object LI29() Line 1349  static object LI29()
1349  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1350          goto TTL;          goto TTL;
1351  TTL:;  TTL:;
1352          {register object V189;          {register object V190;
         register object V190;  
1353          register object V191;          register object V191;
1354          V189= Cnil;          register object V192;
1355          V190= Cnil;          V190= Cnil;
1356          V191= Cnil;          V191= Cnil;
1357          if(symbol_value(VV[50])==Cnil){          V192= Cnil;
1358            if((VV[50]->s.s_dbind)==Cnil){
1359          goto T478;}          goto T478;}
1360          {frame_ptr fr;          {frame_ptr fr;
1361          fr=frs_sch_catch(VV[27]);          fr=frs_sch_catch(VV[27]);
# Line 1387  TTL:; Line 1365  TTL:;
1365          unwind(fr,VV[27]);}          unwind(fr,VV[27]);}
1366          goto T478;          goto T478;
1367  T478:;  T478:;
1368          {register object V192;          {register object V193;
1369          register object V193;          register object V194;
1370          V192= symbol_value(VV[35]);          V193= (VV[35]->s.s_dbind);
1371          V193= (*(LnkLI255))();          V194= (*(LnkLI255))();
1372          {object V194;          {object V195;
1373          V195= (*(LnkLI255))();          V196= (*(LnkLI255))();
1374          V194= (*(LnkLI13))(/* INLINE-ARGS */V195);          V195= (*(LnkLI13))(/* INLINE-ARGS */V196);
1375          if(((*(LnkLI10))((V194),VV[108]))==Cnil){          if(((*(LnkLI10))((V195),VV[108]))==Cnil){
1376          goto T485;}          goto T485;}
1377          V189= (*(LnkLI255))();          V190= (*(LnkLI255))();
1378          (void)((VFUN_NARGS=6,(*(LnkLI267))((V189),Cnil,Cnil,Ct,Cnil,Ct)));          (void)((VFUN_NARGS=6,(*(LnkLI267))((V190),Cnil,Cnil,Ct,Cnil,Ct)));
1379          goto T482;          goto T482;
1380          goto T485;          goto T485;
1381  T485:;  T485:;
1382          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
1383          if((symbol_value(VV[45]))==Cnil){          if(((VV[45]->s.s_dbind))==Cnil){
1384          goto T490;}          goto T490;}
1385          V189= symbol_value(VV[45]);          V190= (VV[45]->s.s_dbind);
1386          goto T482;          goto T482;
1387          goto T490;          goto T490;
1388  T490:;  T490:;
# Line 1412  T490:; Line 1390  T490:;
1390          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1391          Lgensym();          Lgensym();
1392          vs_top=sup;          vs_top=sup;
1393          V196= vs_base[0];          V197= vs_base[0];
1394          setq(VV[45],(VFUN_NARGS=2,(*(LnkLI267))(V196,Cnil)));          (VV[45]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI267))(V197,Cnil));
1395          V189= symbol_value(VV[45]);}          V190= (VV[45]->s.s_dbind);}
1396          goto T482;          goto T482;
1397  T482:;  T482:;
1398          {object V197;          {object V198;
1399          V197= (*(LnkLI13))((V192));          V198= (*(LnkLI13))((V193));
1400          if(((*(LnkLI10))((V197),VV[110]))==Cnil){          if(((*(LnkLI10))((V198),VV[110]))==Cnil){
1401          goto T497;}          goto T497;}
1402          V190= (*(LnkLI270))((V189));          V191= (*(LnkLI270))((V190));
1403          if((symbol_value(VV[111]))==Cnil){          if(((VV[111]->s.s_dbind))==Cnil){
1404          goto T503;}          goto T503;}
1405          {object V198;          {object V199;
1406          V198= list(3,VV[15],(V190),list(2,VV[112],(V189)));          V199= list(3,VV[15],(V191),list(2,VV[112],(V190)));
1407          base[1]= (V198);          base[1]= (V199);
1408          base[2]= symbol_value(VV[48]);          base[2]= (VV[48]->s.s_dbind);
1409          base[3]= VV[30];          base[3]= VV[30];
1410          base[4]= VV[113];          base[4]= VV[113];
1411          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1412          Ladjoin();          Ladjoin();
1413          vs_top=sup;          vs_top=sup;
1414          setq(VV[48],vs_base[0]);}          (VV[48]->s.s_dbind)= vs_base[0];}
1415          goto T503;          goto T503;
1416  T503:;  T503:;
1417          {object V199;          {object V200;
1418          V199= (*(LnkLI13))((V192));          V200= (*(LnkLI13))((V193));
1419          if(((*(LnkLI10))((V199),VV[114]))==Cnil){          if(((*(LnkLI10))((V200),VV[114]))==Cnil){
1420          goto T497;}          goto T497;}
1421          if(!(type_of((V193))==t_cons||((V193))==Cnil)){          if(!(type_of((V194))==t_cons||((V194))==Cnil)){
1422          goto T515;}          goto T515;}
1423          if(eql(car((V193)),VV[61])){          if(eql(CMPcar((V194)),VV[61])){
1424          goto T497;}          goto T497;}
1425          goto T515;          goto T515;
1426  T515:;  T515:;
1427          V193= list(2,VV[115],(V193));}}          V194= list(2,VV[115],(V194));}}
1428          goto T497;          goto T497;
1429  T497:;  T497:;
1430          if(!(type_of((V193))==t_cons||((V193))==Cnil)){          if(!(type_of((V194))==t_cons||((V194))==Cnil)){
1431          goto T522;}          goto T522;}
1432          if((symbol_value(VV[111]))!=Cnil){          if(((VV[111]->s.s_dbind))!=Cnil){
1433          goto T522;}          goto T522;}
1434          base[0]= VV[116];          base[0]= VV[116];
1435          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1436          Lgensym();          Lgensym();
1437          vs_top=sup;          vs_top=sup;
1438          V200= vs_base[0];          V201= vs_base[0];
1439          V191= (VFUN_NARGS=3,(*(LnkLI267))(V200,Cnil,Cnil));          V192= (VFUN_NARGS=3,(*(LnkLI267))(V201,Cnil,Cnil));
1440          goto T520;          goto T520;
1441          goto T522;          goto T522;
1442  T522:;  T522:;
1443          V191= (V193);          V192= (V194);
1444          goto T520;          goto T520;
1445  T520:;  T520:;
         {object V201;  
1446          {object V202;          {object V202;
         V202= (*(LnkLI13))((V192));  
         if(((*(LnkLI10))((V202),VV[117]))==Cnil){  
         goto T533;}  
1447          {object V203;          {object V203;
1448          V204= list(3,VV[15],list(2,VV[18],(V190)),(V191));          V203= (*(LnkLI13))((V193));
1449          V203= list(3,VV[5],/* INLINE-ARGS */V204,list(3,VV[15],(V190),list(2,VV[118],list(2,VV[18],(V190)))));          if(((*(LnkLI10))((V203),VV[117]))==Cnil){
1450          if((symbol_value(VV[111]))==Cnil){          goto T533;}
1451            {object V204;
1452            V205= list(3,VV[15],list(2,VV[18],(V191)),(V192));
1453            V204= list(3,VV[5],/* INLINE-ARGS */V205,list(3,VV[15],(V191),list(2,VV[118],list(2,VV[18],(V191)))));
1454            if(((VV[111]->s.s_dbind))==Cnil){
1455          goto T537;}          goto T537;}
1456          V201= make_cons((V203),Cnil);          V202= make_cons((V204),Cnil);
1457          goto T530;          goto T530;
1458          goto T537;          goto T537;
1459  T537:;  T537:;
1460          V205= list(2,(V190),(V203));          V206= list(2,(V191),(V204));
1461          V206= list(3,VV[14],/* INLINE-ARGS */V205,list(2,Ct,list(3,VV[15],(V190),list(2,VV[118],list(3,VV[15],(V189),(V191))))));          V207= list(3,VV[14],/* INLINE-ARGS */V206,list(2,Ct,list(3,VV[15],(V191),list(2,VV[118],list(3,VV[15],(V190),(V192))))));
1462          V201= make_cons(/* INLINE-ARGS */V206,Cnil);          V202= make_cons(/* INLINE-ARGS */V207,Cnil);
1463          goto T530;}          goto T530;}
1464          goto T533;          goto T533;
1465  T533:;  T533:;
1466          if(((*(LnkLI10))((V202),VV[27]))==Cnil){          if(((*(LnkLI10))((V203),VV[27]))==Cnil){
1467          goto T540;}          goto T540;}
1468          if((symbol_value(VV[111]))==Cnil){          if(((VV[111]->s.s_dbind))==Cnil){
1469          goto T543;}          goto T543;}
1470          V207= list(2,VV[18],(V190));          V208= list(2,VV[18],(V191));
1471          V208= list(3,VV[15],/* INLINE-ARGS */V207,list(3,VV[15],(V190),list(3,VV[119],(V191),Cnil)));          V209= list(3,VV[15],/* INLINE-ARGS */V208,list(3,VV[15],(V191),list(3,VV[119],(V192),Cnil)));
1472          V201= make_cons(/* INLINE-ARGS */V208,Cnil);          V202= make_cons(/* INLINE-ARGS */V209,Cnil);
1473          goto T530;          goto T530;
1474          goto T543;          goto T543;
1475  T543:;  T543:;
1476          V209= list(2,VV[18],(V190));          V210= list(2,VV[18],(V191));
1477          V210= list(2,(V190),list(3,VV[15],/* INLINE-ARGS */V209,list(3,VV[15],(V190),list(3,VV[119],(V191),Cnil))));          V211= list(2,(V191),list(3,VV[15],/* INLINE-ARGS */V210,list(3,VV[15],(V191),list(3,VV[119],(V192),Cnil))));
1478          V211= list(3,VV[14],/* INLINE-ARGS */V210,list(2,Ct,list(3,VV[15],(V189),list(3,VV[15],(V190),list(3,VV[119],(V191),Cnil)))));          V212= list(3,VV[14],/* INLINE-ARGS */V211,list(2,Ct,list(3,VV[15],(V190),list(3,VV[15],(V191),list(3,VV[119],(V192),Cnil)))));
1479          V201= make_cons(/* INLINE-ARGS */V211,Cnil);          V202= make_cons(/* INLINE-ARGS */V212,Cnil);
1480          goto T530;          goto T530;
1481          goto T540;          goto T540;
1482  T540:;  T540:;
1483          V192= (*(LnkLI13))((V192));          V193= (*(LnkLI13))((V193));
1484          if(((VFUN_NARGS=4,(*(LnkLI249))((V192),symbol_value(VV[28]),VV[30],VV[10])))==Cnil){          if(((VFUN_NARGS=4,(*(LnkLI249))((V193),(VV[28]->s.s_dbind),VV[30],VV[10])))==Cnil){
1485          goto T548;}          goto T548;}
1486          V201= (*(LnkLI271))((V192),(V189),(V191));          V202= (*(LnkLI271))((V193),(V190),(V192));
1487          goto T530;          goto T530;
1488          goto T548;          goto T548;
1489  T548:;  T548:;
1490          base[0]= VV[120];          base[0]= VV[120];
1491          base[1]= (V192);          base[1]= (V193);
1492          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1493          Lerror();          Lerror();
1494          vs_top=sup;          vs_top=sup;
1495          V201= vs_base[0];}          V202= vs_base[0];}
1496          goto T530;          goto T530;
1497  T530:;  T530:;
1498          if(!(eql((V191),(V193)))){          if(!(eql((V192),(V194)))){
1499          goto T553;}          goto T553;}
1500          {object V212 = (V201);          {object V213 = (V202);
1501          VMR29(V212)}          VMR29(V213)}
1502          goto T553;          goto T553;
1503  T553:;  T553:;
1504          V213= list(3,VV[15],(V191),(V193));          V214= list(3,VV[15],(V192),(V194));
1505          V214= make_cons(/* INLINE-ARGS */V213,Cnil);          V215= make_cons(/* INLINE-ARGS */V214,Cnil);
1506          {object V215 = nconc((V201),/* INLINE-ARGS */V214);          {object V216 = nconc((V202),/* INLINE-ARGS */V215);
1507          VMR29(V215)}}}}          VMR29(V216)}}}}
1508          base[0]=base[0];          base[0]=base[0];
1509          return Cnil;          return Cnil;
1510  }  }
1511  /*      local entry for function LOOP-PARSE-ADDITIONAL-COLLECTIONS      */  /*      local entry for function LOOP-PARSE-ADDITIONAL-COLLECTIONS      */
1512    
1513  static object LI30(V219,V220,V221)  static object LI30(V220,V221,V222)
1514    
1515  object V219;object V220;object V221;  object V220;object V221;object V222;
1516  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1517          bds_check;          bds_check;
1518          goto TTL;          goto TTL;
1519  TTL:;  TTL:;
1520          {register object V222;          {register object V223;
1521          V222= Cnil;          V223= Cnil;
1522          {object V223;          {object V224;
1523          object V224;          object V225;
1524          V223= (VFUN_NARGS=4,(*(LnkLI249))((V219),symbol_value(VV[28]),VV[30],VV[10]));          V224= (VFUN_NARGS=4,(*(LnkLI249))((V220),(VV[28]->s.s_dbind),VV[30],VV[10]));
1525          V224= get((V223),VV[121],Cnil);          {object V226 =((V224))->s.s_plist;
1526          {object V225;           object ind= VV[121];
1527          V225= (          while(V226!=Cnil){
1528          (type_of((V224)) == t_sfun ?(*(((V224))->sfn.sfn_self)):          if(V226->c.c_car==ind){
1529          (fcall.fun=((V224)),fcall.argd=2,fcalln))((V220),(V221)));          V225= (V226->c.c_cdr->c.c_car);
1530          bds_bind(VV[34],(V225));          goto T557;
1531            }else V226=V226->c.c_cdr->c.c_cdr;}
1532            V225= Cnil;}
1533            goto T557;
1534    T557:;
1535            {object V227;
1536            V227= (
1537            (type_of((V225)) == t_sfun ?(*(((V225))->sfn.sfn_self)):
1538            (fcall.argd=2,type_of((V225))==t_vfun) ?
1539            (*(((V225))->sfn.sfn_self)):
1540            (fcall.fun=((V225)),fcalln))((V221),(V222)));
1541            bds_bind(VV[34],(V227));
1542          bds_bind(VV[35],Cnil);          bds_bind(VV[35],Cnil);
1543          {register object V226;          {register object V228;
1544          V226= (*(LnkLI255))();          V228= (*(LnkLI255))();
1545          goto T562;          goto T562;
1546  T562:;  T562:;
1547          if(((VV[34]->s.s_dbind))!=Cnil){          if(((VV[34]->s.s_dbind))!=Cnil){
# Line 1560  T562:; Line 1549  T562:;
1549          goto T559;          goto T559;
1550          goto T563;          goto T563;
1551  T563:;  T563:;
1552          {register object V227;          {register object V229;
1553          V227= (*(LnkLI13))((V226));          V229= (*(LnkLI13))((V228));
1554          {register object V228;          {register object V230;
1555          V228= (*(LnkLI256))((V227));          V230= (*(LnkLI256))((V229));
1556          if(((V228))==Cnil){          if(((V230))==Cnil){
1557          goto T571;}          goto T571;}
1558          goto T567;          goto T567;
1559          goto T571;          goto T571;
1560  T571:;  T571:;
1561          if(((*(LnkLI10))((V227),VV[56]))==Cnil){          if(((*(LnkLI10))((V229),VV[56]))==Cnil){
1562          goto T574;}          goto T574;}
1563          V222= (*(LnkLI258))();          V223= (*(LnkLI258))();
1564          goto T567;          goto T567;
1565          goto T574;          goto T574;
1566  T574:;  T574:;
1567          base[4]= VV[85];          base[4]= VV[85];
1568          base[5]= (V227);          base[5]= (V229);
1569          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1570          Lerror();          Lerror();
1571          vs_top=sup;}}          vs_top=sup;}}
1572          goto T567;          goto T567;
1573  T567:;  T567:;
1574          V226= (*(LnkLI255))();          V228= (*(LnkLI255))();
1575          goto T562;}          goto T562;}
1576          goto T559;          goto T559;
1577  T559:;  T559:;
1578          {object V229 = (V222);          {object V231 = (V223);
1579          bds_unwind1;          bds_unwind1;
1580          bds_unwind1;          bds_unwind1;
1581          VMR30(V229)}}}}          VMR30(V231)}}}}
1582          base[0]=base[0];          base[0]=base[0];
1583          return Cnil;          return Cnil;
1584  }  }
1585  /*      local entry for function THE-TYPE       */  /*      local entry for function THE-TYPE       */
1586    
1587  static object LI31(V232,V233)  static object LI31(V234,V235)
1588    
1589  object V232;register object V233;  object V234;register object V235;
1590  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1591          goto TTL;          goto TTL;
1592  TTL:;  TTL:;
1593          if(symbol_value(VV[47])==Cnil){          if((VV[47]->s.s_dbind)==Cnil){
1594          goto T582;}          goto T582;}
1595          V233= Cnil;          V235= Cnil;
1596          goto T582;          goto T582;
1597  T582:;  T582:;
1598          if((V233)==Cnil){          if((V235)==Cnil){
1599          goto T584;}{object V234;          goto T584;}{object V236;
1600          base[0]= symbol_value(VV[54]);          base[0]= (VV[54]->s.s_dbind);
1601          base[1]= (V233);          base[1]= (V235);
1602          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1603          Lgetf();          Lgetf();
1604          vs_top=sup;          vs_top=sup;
1605          V234= vs_base[0];          V236= vs_base[0];
1606          if(V234==Cnil)goto T586;          if(V236==Cnil)goto T586;
1607          V233= V234;          V235= V236;
1608          goto T585;          goto T585;
1609          goto T586;          goto T586;
1610  T586:;}  T586:;}
1611          if((((type_of((V233))==t_symbol&&((V233))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil){          if((((type_of((V235))==t_symbol&&((V235))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil){
1612          goto T590;}          goto T590;}
1613          V233= Cnil;          V235= Cnil;
1614          goto T585;          goto T585;
1615          goto T590;          goto T590;
1616  T590:;  T590:;
# Line 1629  T590:; Line 1618  T590:;
1618  T585:;  T585:;
1619          goto T584;          goto T584;
1620  T584:;  T584:;
1621          if(type_of((V233))==t_cons){          if(type_of((V235))==t_cons){
1622          goto T593;}          goto T593;}
1623          goto T592;          goto T592;
1624          goto T593;          goto T593;
1625  T593:;  T593:;
1626          if((car((V233)))==(VV[122])){          if((CMPcar((V235)))==(VV[122])){
1627          goto T595;}          goto T595;}
1628          goto T592;          goto T592;
1629          goto T595;          goto T595;
1630  T595:;  T595:;
1631          V233= cadr((V233));          V235= CMPcadr((V235));
1632          goto T592;          goto T592;
1633  T592:;  T592:;
1634          if(((V233))==Cnil){          if(((V235))==Cnil){
1635          goto T599;}          goto T599;}
1636          {object V235 = list(3,VV[123],(V233),(V232));          {object V237 = list(3,VV[123],(V235),(V234));
1637          VMR31(V235)}          VMR31(V237)}
1638          goto T599;          goto T599;
1639  T599:;  T599:;
1640          {object V236 = (V232);          {object V238 = (V234);
1641          VMR31(V236)}          VMR31(V238)}
1642          base[0]=base[0];          base[0]=base[0];
1643          return Cnil;          return Cnil;
1644  }  }
# Line 1664  TTL:; Line 1653  TTL:;
1653          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1654          Lerror();          Lerror();
1655          vs_top=sup;          vs_top=sup;
1656          {object V237 = vs_base[0];          {object V239 = vs_base[0];
1657          VMR32(V237)}          VMR32(V239)}
1658          base[0]=base[0];          base[0]=base[0];
1659          return Cnil;          return Cnil;
1660  }  }
1661  /*      local entry for function MAKE-VALUE     */  /*      local entry for function MAKE-VALUE     */
1662    
1663  static object LI33(V240,V241)  static object LI33(V242,V243)
1664    
1665  register object V240;object V241;  register object V242;object V243;
1666  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1667          goto TTL;          goto TTL;
1668  TTL:;  TTL:;
1669          {register object V242;          {register object V244;
1670          V242= Cnil;          V244= Cnil;
1671          if((symbol_value(VV[47]))!=Cnil){          if(((VV[47]->s.s_dbind))!=Cnil){
1672          goto T604;}          goto T604;}
1673          if((symbol_value(VV[125]))==Cnil){          if(((VV[125]->s.s_dbind))==Cnil){
1674          goto T604;}          goto T604;}
1675          if(!(((V241))==(VV[126]))){          if(!(((V243))==(VV[126]))){
1676          goto T604;}          goto T604;}
1677          base[0]= symbol_value(VV[54]);          base[0]= (VV[54]->s.s_dbind);
1678          base[1]= (V241);          base[1]= (V243);
1679          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1680          Lgetf();          Lgetf();
1681          vs_top=sup;          vs_top=sup;
1682          V242= vs_base[0];          V244= vs_base[0];
1683          if(((V242))==Cnil){          if(((V244))==Cnil){
1684          goto T604;}          goto T604;}
1685          if(!(type_of((V242))==t_cons)){          if(!(type_of((V244))==t_cons)){
1686          goto T618;}          goto T618;}
1687          if(!((car((V242)))==(VV[122]))){          if(!((CMPcar((V244)))==(VV[122]))){
1688          goto T618;}          goto T618;}
1689          V242= cadr((V242));          V244= CMPcadr((V244));
1690          goto T616;          goto T616;
1691          goto T618;          goto T618;
1692  T618:;  T618:;
1693          goto T616;          goto T616;
1694  T616:;  T616:;
1695          base[0]= (V240);          base[0]= (V242);
1696          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1697          Lconstantp();          Lconstantp();
1698          vs_top=sup;          vs_top=sup;
1699          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1700          goto T623;}          goto T623;}
1701          {object V243;          {object V245;
1702          if((symbol_value(VV[39]))==Cnil){          if(((VV[39]->s.s_dbind))==Cnil){
1703          goto T628;}          goto T628;}
1704          base[1]= (V240);          base[1]= (V242);
1705          base[2]= VV[127];          base[2]= VV[127];
1706          base[3]= symbol_value(VV[39]);          base[3]= (VV[39]->s.s_dbind);
1707          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1708          Lsubst();          Lsubst();
1709          vs_top=sup;          vs_top=sup;
# Line 1722  T616:; Line 1711  T616:;
1711          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1712          Leval();          Leval();
1713          vs_top=sup;          vs_top=sup;
1714          V243= vs_base[0];          V245= vs_base[0];
1715          goto T626;          goto T626;
1716          goto T628;          goto T628;
1717  T628:;  T628:;
1718          base[0]= (V240);          base[0]= (V242);
1719          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1720          Leval();          Leval();
1721          vs_top=sup;          vs_top=sup;
1722          V243= vs_base[0];          V245= vs_base[0];
1723          goto T626;          goto T626;
1724  T626:;{object V244;  T626:;{object V246;
1725          base[0]= (V243);          base[0]= (V245);
1726          base[1]= (V242);          base[1]= (V244);
1727          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1728          (void) (*Lnk129)();          (void) (*Lnk129)();
1729          vs_top=sup;          vs_top=sup;
1730          V244= vs_base[0];          V246= vs_base[0];
1731          if(V244==Cnil)goto T636;          if(V246==Cnil)goto T636;
1732          goto T635;          goto T635;
1733          goto T636;          goto T636;
1734  T636:;}  T636:;}
1735          base[0]= VV[128];          base[0]= VV[128];
1736          base[1]= (V240);          base[1]= (V242);
1737          base[2]= (V242);          base[2]= (V244);
1738          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1739          Lerror();          Lerror();
1740          vs_top=sup;          vs_top=sup;
1741          goto T635;          goto T635;
1742  T635:;  T635:;
1743          {object V245 = make_cons((V240),Cnil);          {object V247 = make_cons((V242),Cnil);
1744          VMR33(V245)}}          VMR33(V247)}}
1745          goto T623;          goto T623;
1746  T623:;  T623:;
1747          {register object V246;          {register object V248;
1748          V246= Cnil;          V248= Cnil;
1749          if(!(type_of((V240))!=t_cons)){          if(!(type_of((V242))!=t_cons)){
1750          goto T645;}          goto T645;}
1751          V247= Cnil;          V249= Cnil;
1752          goto T643;          goto T643;
1753          goto T645;          goto T645;
1754  T645:;  T645:;
1755          vs_base=vs_top;          vs_base=vs_top;
1756          Lgensym();          Lgensym();
1757          vs_top=sup;          vs_top=sup;
1758          V246= vs_base[0];          V248= vs_base[0];
1759          V248= list(2,(V246),(V240));          V250= list(2,(V248),(V242));
1760          V247= make_cons(/* INLINE-ARGS */V248,Cnil);          V249= make_cons(/* INLINE-ARGS */V250,Cnil);
1761          goto T643;          goto T643;
1762  T643:;  T643:;
1763          if((symbol_value(VV[39]))==Cnil){          if(((VV[39]->s.s_dbind))==Cnil){
1764          goto T650;}          goto T650;}
1765          if((V246)!=Cnil){          if((V248)!=Cnil){
1766          base[0]= (V246);          base[0]= (V248);
1767          goto T652;}          goto T652;}
1768          base[0]= (V240);          base[0]= (V242);
1769          goto T652;          goto T652;
1770  T652:;  T652:;
1771          base[1]= VV[127];          base[1]= VV[127];
1772          base[2]= symbol_value(VV[39]);          base[2]= (VV[39]->s.s_dbind);
1773          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1774          Lsubst();          Lsubst();
1775          vs_top=sup;          vs_top=sup;
1776          V249= vs_base[0];          V251= vs_base[0];
1777          goto T648;          goto T648;
1778          goto T650;          goto T650;
1779  T650:;  T650:;
1780          if((V246)!=Cnil){          if((V248)!=Cnil){
1781          V249= (V246);          V251= (V248);
1782          goto T648;}          goto T648;}
1783          V249= (V240);          V251= (V242);
1784          goto T648;          goto T648;
1785  T648:;  T648:;
1786          V250= list(3,VV[80],list(3,VV[129],V249,list(2,VV[9],(V242))),VV[130]);          V252= list(3,VV[80],list(3,VV[129],V251,list(2,VV[9],(V244))),VV[130]);
1787          if((V246)!=Cnil){          if((V248)!=Cnil){
1788          V251= (V246);          V253= (V248);
1789          goto T655;}          goto T655;}
1790          V251= (V240);          V253= (V242);
1791          goto T655;          goto T655;
1792  T655:;  T655:;
1793          V252= list(4,VV[12],V247,/* INLINE-ARGS */V250,V251);          V254= list(4,VV[12],V249,/* INLINE-ARGS */V252,V253);
1794          {object V253 = make_cons(/* INLINE-ARGS */V252,Cnil);          {object V255 = make_cons(/* INLINE-ARGS */V254,Cnil);
1795          VMR33(V253)}}          VMR33(V255)}}
1796          goto T604;          goto T604;
1797  T604:;  T604:;
1798          {object V254 = make_cons((V240),Cnil);          {object V256 = make_cons((V242),Cnil);
1799          VMR33(V254)}}          VMR33(V256)}}
1800          base[0]=base[0];          base[0]=base[0];
1801          return Cnil;          return Cnil;
1802  }  }
1803  /*      local entry for function LOOP-ADD-BINDING       */  /*      local entry for function LOOP-ADD-BINDING       */
1804    
1805  static object LI34(object V256,object V255,object first,...)  static object LI34(object V258,object V257,object first,...)
1806  {        {      
1807          va_list ap;          va_list ap;
1808          int narg = VFUN_NARGS; VMB34 VMS34 VMV34          int narg = VFUN_NARGS; VMB34 VMS34 VMV34
1809          {object V257;          {object V259;
1810          register object V258;          register object V260;
         object V259;  
         object V260;  
1811          object V261;          object V261;
1812          object V262;          object V262;
1813          object V263;          object V263;
1814            object V264;
1815            object V265;
1816          va_start(ap,first);          va_start(ap,first);
1817          if(narg <2) too_few_arguments();          V259= V258;
1818          V257= V256;          V260= V257;
         V258= V255;  
1819          narg = narg - 2;          narg = narg - 2;
1820          if (narg <= 0) goto T656;          if (narg <= 0) goto T656;
1821          else {          else {
1822          V259= first;}          V261= first;}
1823          if (--narg <= 0) goto T657;          if (--narg <= 0) goto T657;
1824          else {          else {
1825          V260= va_arg(ap,object);}          V262= va_arg(ap,object);}
1826          if (--narg <= 0) goto T658;          if (--narg <= 0) goto T658;
1827          else {          else {
1828          V261= va_arg(ap,object);}          V263= va_arg(ap,object);}
1829          if (--narg <= 0) goto T659;          if (--narg <= 0) goto T659;
1830          else {          else {
1831          V262= va_arg(ap,object);}          V264= va_arg(ap,object);}
1832          if (--narg <= 0) goto T660;          if (--narg <= 0) goto T660;
1833          else {          else {
1834          V263= va_arg(ap,object);}          V265= va_arg(ap,object);}
1835          --narg; goto T661;          --narg; goto T661;
1836          goto T656;          goto T656;
1837  T656:;  T656:;
1838          V259= Ct;          V261= Ct;
1839          goto T657;          goto T657;
1840  T657:;  T657:;
1841          V260= Cnil;          V262= Cnil;
1842          goto T658;          goto T658;
1843  T658:;  T658:;
1844          V261= Cnil;          V263= Cnil;
1845          goto T659;          goto T659;
1846  T659:;  T659:;
1847          V262= Ct;          V264= Ct;
1848          goto T660;          goto T660;
1849  T660:;  T660:;
1850          V263= Cnil;          V265= Cnil;
1851          goto T661;          goto T661;
1852  T661:;  T661:;
1853          {register object V264;          {register object V266;
1854          V264= Cnil;          V266= Cnil;
1855          if(((V259))!=Cnil){          if(((V261))!=Cnil){
1856          goto T669;}          goto T669;}
1857          if((symbol_value(VV[46]))!=Cnil){          if(((VV[46]->s.s_dbind))!=Cnil){
1858          goto T668;}          goto T668;}
1859          goto T669;          goto T669;
1860  T669:;  T669:;
1861          {object V265;          {object V267;
1862          V265= make_cons(Cnil,Cnil);          V267= make_cons(Cnil,Cnil);
1863          setq(VV[46],make_cons((V265),symbol_value(VV[46])));}          (VV[46]->s.s_dbind)= make_cons((V267),(VV[46]->s.s_dbind));}
1864          goto T668;          goto T668;
1865  T668:;  T668:;
1866          {register object x= (V257),V266= caar(symbol_value(VV[46]));          {register object x= (V259),V268= CMPcaar((VV[46]->s.s_dbind));
1867          while(!endp(V266))          while(V268!=Cnil)
1868          if(type_of(V266->c.c_car)==t_cons &&eql(x,V266->c.c_car->c.c_car)){          if(eql(x,V268->c.c_car->c.c_car) &&V268->c.c_car != Cnil){
1869          V264= (V266->c.c_car);          V266= (V268->c.c_car);
1870          goto T679;          goto T679;
1871          }else V266=V266->c.c_cdr;          }else V268=V268->c.c_cdr;
1872          V264= Cnil;}          V266= Cnil;}
1873          goto T679;          goto T679;
1874  T679:;  T679:;
1875          if(((V264))==Cnil){          if(((V266))==Cnil){
1876          goto T677;}          goto T677;}
1877          if((V262)==Cnil){          if((V264)==Cnil){
1878          goto T675;}          goto T675;}
1879          {object V268;          {object V270;
1880          if((V258)==Cnil){          if((V260)==Cnil){
1881          V268= Cnil;          V270= Cnil;
1882          goto T680;}          goto T680;}
1883          V268= (*(LnkLI272))((V258),(V260));          V270= (*(LnkLI272))((V260),(V262));
1884          goto T680;          goto T680;
1885  T680:;  T680:;
1886          if(type_of(V264)!=t_cons)FEwrong_type_argument(Scons,V264);          (V266)->c.c_cdr = (V270);
         (V264)->c.c_cdr = (V268);  
1887          goto T675;}          goto T675;}
1888          goto T677;          goto T677;
1889  T677:;  T677:;
1890          {object V269;          {object V271;
1891          if((V263)!=Cnil){          if((V265)!=Cnil){
1892          if(((V263))!=Cnil){          if(((V265))!=Cnil){
1893          goto T683;}          goto T683;}
1894          goto T684;}          goto T684;}
1895          base[0]= (V257);          base[0]= (V259);
1896          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1897          Lsymbol_package();          Lsymbol_package();
1898          vs_top=sup;          vs_top=sup;
1899          V270= vs_base[0];          V272= vs_base[0];
1900          if((V270)==Cnil){          if((V272)==Cnil){
1901          goto T685;}          goto T685;}
1902          goto T684;          goto T684;
1903          goto T685;          goto T685;
1904  T685:;  T685:;
1905          base[0]= (V258);          base[0]= (V260);
1906          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1907          Lconstantp();          Lconstantp();
1908          vs_top=sup;          vs_top=sup;
# Line 1923  T685:; Line 1910  T685:;
1910          goto T683;}          goto T683;}
1911          goto T684;          goto T684;
1912  T684:;  T684:;
1913          V269= Cnil;          V271= Cnil;
1914          goto T682;          goto T682;
1915          goto T683;          goto T683;
1916  T683:;  T683:;
1917          {register object V271;          {register object V273;
1918          register object V272;          register object V274;
1919          V271= cdr(symbol_value(VV[46]));          V273= CMPcdr((VV[46]->s.s_dbind));
1920          V272= car((V271));          V274= CMPcar((V273));
1921          goto T693;          goto T693;
1922  T693:;  T693:;
1923          if(!(endp_prop((V271)))){          if(!(((V273))==Cnil)){
1924          goto T694;}          goto T694;}
1925          V269= Cnil;          V271= Cnil;
1926          goto T682;          goto T682;
1927          goto T694;          goto T694;
1928  T694:;  T694:;
1929          {register object x= (V257),V273= car((V272));          {register object x= (V259),V275= CMPcar((V274));
1930          while(!endp(V273))          while(V275!=Cnil)
1931          if(type_of(V273->c.c_car)==t_cons &&eql(x,V273->c.c_car->c.c_car)){          if(eql(x,V275->c.c_car->c.c_car) &&V275->c.c_car != Cnil){
1932          V264= (V273->c.c_car);          V266= (V275->c.c_car);
1933          goto T701;          goto T701;
1934          }else V273=V273->c.c_cdr;          }else V275=V275->c.c_cdr;
1935          V264= Cnil;}          V266= Cnil;}
1936          goto T701;          goto T701;
1937  T701:;  T701:;
1938          if(((V264))==Cnil){          if(((V266))==Cnil){
1939          goto T698;}          goto T698;}
1940          if((V262)==Cnil){          if((V264)==Cnil){
1941          goto T702;}          goto T702;}
1942          {register object V274;          {register object V276;
1943          register object V275;          register object V277;
1944          V274= (V264);          V276= (V266);
1945          if((V258)==Cnil){          if((V260)==Cnil){
1946          V275= Cnil;          V277= Cnil;
1947          goto T704;}          goto T704;}
1948          V275= (*(LnkLI272))((V258),(V260));          V277= (*(LnkLI272))((V260),(V262));
1949          goto T704;          goto T704;
1950  T704:;  T704:;
1951          if(type_of((V274))!=t_cons)FEwrong_type_argument(Scons,(V274));          ((V276))->c.c_cdr = (V277);}
         ((V274))->c.c_cdr = (V275);}  
1952          goto T702;          goto T702;
1953  T702:;  T702:;
1954          V269= Ct;          V271= Ct;
1955          goto T682;          goto T682;
1956          goto T698;          goto T698;
1957  T698:;  T698:;
1958          V271= cdr((V271));          V273= CMPcdr((V273));
1959          V272= car((V271));          V274= CMPcar((V273));
1960          goto T693;}          goto T693;}
1961          goto T682;          goto T682;
1962  T682:;  T682:;
1963          if(((V269))==Cnil){          if(((V271))==Cnil){
1964          goto T712;}          goto T712;}
1965          goto T675;          goto T675;
1966          goto T712;          goto T712;
1967  T712:;  T712:;
1968          {object V276;          {object V278;
1969          object V277;          object V279;
1970          object V278;          object V280;
1971          if((V258)==Cnil){          if((V260)==Cnil){
1972          V279= Cnil;          V281= Cnil;
1973          goto T715;}          goto T715;}
1974          V279= (*(LnkLI272))((V258),(V260));          V281= (*(LnkLI272))((V260),(V262));
1975          goto T715;          goto T715;
1976  T715:;  T715:;
1977          V276= make_cons((V257),V279);          V278= make_cons((V259),V281);
1978          V277= symbol_value(VV[46]);          V279= (VV[46]->s.s_dbind);
1979          V278= make_cons((V276),caar((V277)));          V280= make_cons((V278),CMPcaar((V279)));
1980          if(type_of(car((V277)))!=t_cons)FEwrong_type_argument(Scons,car((V277)));          (CMPcar((V279)))->c.c_car = (V280);
1981          (car((V277)))->c.c_car = (V278);          (void)(CMPcar((V279)));}}
         (void)(car((V277)));}}  
1982          goto T675;          goto T675;
1983  T675:;  T675:;
1984          if((V260)==Cnil){          if((V262)==Cnil){
1985          goto T719;}          goto T719;}
1986          (void)((VFUN_NARGS=3,(*(LnkLI273))((V257),(V260),(V261))));          (void)((VFUN_NARGS=3,(*(LnkLI273))((V259),(V262),(V263))));
1987          goto T719;          goto T719;
1988  T719:;  T719:;
1989          {object V280 = (V257);          {object V282 = (V259);
1990          VMR34(V280)}}          VMR34(V282)}}
1991          va_end(ap);          va_end(ap);
1992          base[0]=base[0];          base[0]=base[0];
1993          return Cnil;}          return Cnil;}
1994          }          }
1995  /*      local entry for function LOOP-DECLARE-BINDING   */  /*      local entry for function LOOP-DECLARE-BINDING   */
1996    
1997  static object LI35(object V283,object V282,object V281,object first,...)  static object LI35(object V285,object V284,object V283,object first,...)
1998  {        {      
1999          va_list ap;          va_list ap;
2000          int narg = VFUN_NARGS; VMB35 VMS35 VMV35          int narg = VFUN_NARGS; VMB35 VMS35 VMV35
2001          {register object V284;          {register object V286;
2002          register object V285;          register object V287;
2003          object V286;          object V288;
2004          object V287;          object V289;
2005          va_start(ap,first);          va_start(ap,first);
2006          if(narg <3) too_few_arguments();          V286= V285;
2007          V284= V283;          V287= V284;
2008          V285= V282;          V288= V283;
         V286= V281;  
2009          narg = narg - 3;          narg = narg - 3;
2010          if (narg <= 0) goto T720;          if (narg <= 0) goto T720;
2011          else {          else {
2012          V287= first;}          V289= first;}
2013          --narg; goto T721;          --narg; goto T721;
2014          goto T720;          goto T720;
2015  T720:;  T720:;
2016          V287= Cnil;          V289= Cnil;
2017          goto T721;          goto T721;
2018  T721:;  T721:;
2019          {object V288;          {object V290;
2020          V288= Cnil;          V290= Cnil;
2021          if((V285)==Cnil){          if((V287)==Cnil){
2022          goto T725;}          goto T725;}
2023          {register object x= (V285),V289= symbol_value(VV[131]);          {register object x= (V287),V291= (VV[131]->s.s_dbind);
2024          while(!endp(V289))          while(V291!=Cnil)
2025          if(eql(x,V289->c.c_car)){          if(eql(x,V291->c.c_car)){
2026          goto T726;          goto T726;
2027          }else V289=V289->c.c_cdr;}          }else V291=V291->c.c_cdr;}
2028          goto T725;          goto T725;
2029          goto T726;          goto T726;
2030  T726:;  T726:;
2031          base[0]= symbol_value(VV[54]);          base[0]= (VV[54]->s.s_dbind);
2032          base[1]= (V285);          base[1]= (V287);
2033          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2034          Lgetf();          Lgetf();
2035          vs_top=sup;          vs_top=sup;
2036          V285= vs_base[0];          V287= vs_base[0];
2037          if(((V285))!=Cnil){          if(((V287))!=Cnil){
2038          goto T728;}          goto T728;}
2039          goto T725;          goto T725;
2040          goto T728;          goto T728;
2041  T728:;  T728:;
2042          if(symbol_value(VV[132])==Cnil){          if((VV[132]->s.s_dbind)==Cnil){
2043          goto T725;}          goto T725;}
2044          (void)((VFUN_NARGS=3,(*(LnkLI273))((V284),VV[133],(V286))));          (void)((VFUN_NARGS=3,(*(LnkLI273))((V286),VV[133],(V288))));
2045          goto T725;          goto T725;
2046  T725:;  T725:;
2047          if(((V285))==Cnil){          if(((V287))==Cnil){
2048          goto T733;}          goto T733;}
2049          if(((V286))!=Cnil){          if(((V288))!=Cnil){
2050          goto T734;}          goto T734;}
2051          if((symbol_value(VV[47]))!=Cnil){          if(((VV[47]->s.s_dbind))!=Cnil){
2052          goto T733;}          goto T733;}
2053          goto T734;          goto T734;
2054  T734:;  T734:;
2055          {register object V290;          {register object V292;
2056          register object V291;          register object V293;
2057          V290= symbol_value(VV[46]);          V292= (VV[46]->s.s_dbind);
2058          V291= car((V290));          V293= CMPcar((V292));
2059          goto T744;          goto T744;
2060  T744:;  T744:;
2061          if(!(endp_prop((V290)))){          if(!(((V292))==Cnil)){
2062          goto T745;}          goto T745;}
2063          goto T740;          goto T740;
2064          goto T745;          goto T745;
2065  T745:;  T745:;
2066          {register object x= (V284),V292= car((V291));          {register object x= (V286),V294= CMPcar((V293));
2067          while(!endp(V292))          while(V294!=Cnil)
2068          if(type_of(V292->c.c_car)==t_cons &&eql(x,V292->c.c_car->c.c_car)){          if(eql(x,V294->c.c_car->c.c_car) &&V294->c.c_car != Cnil){
2069          goto T751;          goto T751;
2070          }else V292=V292->c.c_cdr;          }else V294=V294->c.c_cdr;
2071          goto T749;}          goto T749;}
2072          goto T751;          goto T751;
2073  T751:;  T751:;
2074          V288= Ct;          V290= Ct;
2075          {object V293;          {object V295;
2076          register object V294;          register object V296;
2077          register object V295;          register object V297;
2078          if(!(type_of((V285))==t_cons)){          if(!(type_of((V287))==t_cons)){
2079          goto T757;}          goto T757;}
2080          if(!((car((V285)))==(VV[122]))){          if(!((CMPcar((V287)))==(VV[122]))){
2081          goto T757;}          goto T757;}
2082          V293= list(3,VV[122],cadr((V285)),(V284));          V295= list(3,VV[122],CMPcadr((V287)),(V286));
2083          goto T755;          goto T755;
2084          goto T757;          goto T757;
2085  T757:;  T757:;
2086          if(((V287))==Cnil){          if(((V289))==Cnil){
2087          goto T762;}          goto T762;}
2088          V293= list(3,VV[122],(V285),(V284));          V295= list(3,VV[122],(V287),(V286));
2089          goto T755;          goto T755;
2090          goto T762;          goto T762;
2091  T762:;  T762:;
2092          V293= list(2,(V285),(V284));          V295= list(2,(V287),(V286));
2093          goto T755;          goto T755;
2094  T755:;  T755:;
2095          V294= (V291);          V296= (V293);
2096          base[3]= (V293);          base[3]= (V295);
2097          base[4]= cdr((V294));          base[4]= CMPcdr((V296));
2098          base[5]= VV[30];          base[5]= VV[30];
2099          base[6]= VV[113];          base[6]= VV[113];
2100          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
2101          Ladjoin();          Ladjoin();
2102          vs_top=sup;          vs_top=sup;
2103          V295= vs_base[0];          V297= vs_base[0];
2104          if(type_of((V294))!=t_cons)FEwrong_type_argument(Scons,(V294));          ((V296))->c.c_cdr = (V297);}
         ((V294))->c.c_cdr = (V295);}  
2105          goto T740;          goto T740;
2106          goto T749;          goto T749;
2107  T749:;  T749:;
2108          V290= cdr((V290));          V292= CMPcdr((V292));
2109          V291= car((V290));          V293= CMPcar((V292));
2110          goto T744;}          goto T744;}
2111          goto T740;          goto T740;
2112  T740:;  T740:;
2113          if((V288)!=Cnil){          if((V290)!=Cnil){
2114          goto T733;}          goto T733;}
2115          if(symbol_value(VV[53])!=Cnil){          if((VV[53]->s.s_dbind)!=Cnil){
2116          goto T733;}          goto T733;}
2117          base[0]= VV[134];          base[0]= VV[134];
2118          base[1]= (V284);          base[1]= (V286);
2119          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2120          Lerror();          Lerror();
2121          vs_top=sup;          vs_top=sup;
2122          goto T733;          goto T733;
2123  T733:;  T733:;
2124          {object V296 = (V284);          {object V298 = (V286);
2125          VMR35(V296)}}          VMR35(V298)}}
2126          va_end(ap);          va_end(ap);
2127          base[0]=base[0];          base[0]=base[0];
2128          return Cnil;}          return Cnil;}
# Line 2150  static object LI36(object first,...) Line 2133  static object LI36(object first,...)
2133  {        {      
2134          va_list ap;          va_list ap;
2135          int narg = VFUN_NARGS; VMB36 VMS36 VMV36          int narg = VFUN_NARGS; VMB36 VMS36 VMV36
2136          {register object V297;          {register object V299;
2137          register object V298;          register object V300;
2138          va_start(ap,first);          va_start(ap,first);
2139          narg = narg - 0;          narg = narg - 0;
2140          if (narg <= 0) goto T778;          if (narg <= 0) goto T778;
2141          else {          else {
2142          V297= first;}          V299= first;}
2143          if (--narg <= 0) goto T779;          if (--narg <= 0) goto T779;
2144          else {          else {
2145          V298= va_arg(ap,object);}          V300= va_arg(ap,object);}
2146          --narg; goto T780;          --narg; goto T780;
2147          goto T778;          goto T778;
2148  T778:;  T778:;
2149          V297= (*(LnkLI255))();          V299= (*(LnkLI255))();
2150          goto T779;          goto T779;
2151  T779:;  T779:;
2152          V298= Ct;          V300= Ct;
2153          goto T780;          goto T780;
2154  T780:;  T780:;
2155          {object V299;          {object V301;
2156          register object V300;          register object V302;
2157          V299= car((V297));          V301= CMPcar((V299));
2158          V300= Cnil;          V302= Cnil;
2159          if(!(((V299))==(VV[122]))){          if(!(((V301))==(VV[122]))){
2160          goto T784;}          goto T784;}
2161          V297= cdr((V297));          V299= CMPcdr((V299));
2162          V299= car((V297));          V301= CMPcar((V299));
2163          V300= Ct;          V302= Ct;
2164          goto T784;          goto T784;
2165  T784:;  T784:;
2166          {register object V301;          {register object V303;
2167          register object V302;          register object V304;
2168          V301= cdr((V297));          V303= CMPcdr((V299));
2169          V302= car((V301));          V304= CMPcar((V303));
2170          goto T795;          goto T795;
2171  T795:;  T795:;
2172          if(!(endp_prop((V301)))){          if(!(((V303))==Cnil)){
2173          goto T796;}          goto T796;}
2174          {object V303 = Cnil;          {object V305 = Cnil;
2175          VMR36(V303)}          VMR36(V305)}
2176          goto T796;          goto T796;
2177  T796:;  T796:;
2178          (void)((VFUN_NARGS=4,(*(LnkLI273))((V302),car((V297)),(V298),(V300))));          (void)((VFUN_NARGS=4,(*(LnkLI273))((V304),CMPcar((V299)),(V300),(V302))));
2179          V301= cdr((V301));          V303= CMPcdr((V303));
2180          V302= car((V301));          V304= CMPcar((V303));
2181          goto T795;}}          goto T795;}}
2182          va_end(ap);          va_end(ap);
2183          base[0]=base[0];          base[0]=base[0];
# Line 2202  T796:; Line 2185  T796:;
2185          }          }
2186  /*      local entry for function LOOP-ADD-TEMPS */  /*      local entry for function LOOP-ADD-TEMPS */
2187    
2188  static object LI37(object V304,object first,...)  static object LI37(object V306,object first,...)
2189  {        {      
2190          va_list ap;          va_list ap;
2191          int narg = VFUN_NARGS; VMB37 VMS37 VMV37          int narg = VFUN_NARGS; VMB37 VMS37 VMV37
2192          {register object V305;          {register object V307;
         object V306;  
         object V307;  
2193          object V308;          object V308;
2194          object V309;          object V309;
2195            object V310;
2196            object V311;
2197          va_start(ap,first);          va_start(ap,first);
2198          if(narg <1) too_few_arguments();          V307= V306;
         V305= V304;  
2199          narg = narg - 1;          narg = narg - 1;
2200          if (narg <= 0) goto T806;          if (narg <= 0) goto T806;
2201          else {          else {
2202          V306= first;}          V308= first;}
2203          if (--narg <= 0) goto T807;          if (--narg <= 0) goto T807;
2204          else {          else {
2205          V307= va_arg(ap,object);}          V309= va_arg(ap,object);}
2206          if (--narg <= 0) goto T808;          if (--narg <= 0) goto T808;
2207          else {          else {
2208          V308= va_arg(ap,object);}          V310= va_arg(ap,object);}
2209          if (--narg <= 0) goto T809;          if (--narg <= 0) goto T809;
2210          else {          else {
2211          V309= va_arg(ap,object);}          V311= va_arg(ap,object);}
2212          --narg; goto T810;          --narg; goto T810;
2213          goto T806;          goto T806;
2214  T806:;  T806:;
2215          V306= Cnil;          V308= Cnil;
2216          goto T807;          goto T807;
2217  T807:;  T807:;
2218          V307= Cnil;          V309= Cnil;
2219          goto T808;          goto T808;
2220  T808:;  T808:;
2221          V308= Cnil;          V310= Cnil;
2222          goto T809;          goto T809;
2223  T809:;  T809:;
2224          V309= Cnil;          V311= Cnil;
2225          goto T810;          goto T810;
2226  T810:;  T810:;
2227          {object V310;          {object V312;
2228          V310= (((V305))==Cnil?Ct:Cnil);          V312= (((V307))==Cnil?Ct:Cnil);
2229          if(((V310))==Cnil){          if(((V312))==Cnil){
2230          goto T817;}          goto T817;}
2231          {object V311 = (V310);          {object V313 = (V312);
2232          VMR37(V311)}          VMR37(V313)}
2233          goto T817;          goto T817;
2234  T817:;  T817:;
2235          if(!(type_of((V305))==t_symbol)){          if(!(type_of((V307))==t_symbol)){
2236          goto T820;}          goto T820;}
2237          {object V312 = (VFUN_NARGS=7,(*(LnkLI267))((V305),(V306),(V308),(V307),Cnil,Ct,(V309)));          {object V314 = (VFUN_NARGS=7,(*(LnkLI267))((V307),(V308),(V310),(V309),Cnil,Ct,(V311)));
2238          VMR37(V312)}          VMR37(V314)}
2239          goto T820;          goto T820;
2240  T820:;  T820:;
2241          if(!(type_of((V305))==t_cons||((V305))==Cnil)){          if(!(type_of((V307))==t_cons||((V307))==Cnil)){
2242          goto T823;}          goto T823;}
2243          (void)((VFUN_NARGS=1,(*(LnkLI268))(car((V305)))));          (void)((VFUN_NARGS=1,(*(LnkLI268))(CMPcar((V307)))));
2244          {object V313 = (VFUN_NARGS=1,(*(LnkLI268))(cdr((V305))));          {object V315 = (VFUN_NARGS=1,(*(LnkLI268))(CMPcdr((V307))));
2245          VMR37(V313)}          VMR37(V315)}
2246          goto T823;          goto T823;
2247  T823:;  T823:;
2248          {object V314 = Cnil;          {object V316 = Cnil;
2249          VMR37(V314)}}          VMR37(V316)}}
2250          va_end(ap);          va_end(ap);
2251          return Cnil;}          return Cnil;}
2252          }          }
2253  /*      local entry for function ADD-FROM-DATA  */  /*      local entry for function ADD-FROM-DATA  */
2254    
2255  static object LI38(object V315,object first,...)  static object LI38(object V317,object first,...)
2256  {        {      
2257          va_list ap;          va_list ap;
2258          int narg = VFUN_NARGS; VMB38 VMS38 VMV38          int narg = VFUN_NARGS; VMB38 VMS38 VMV38
2259          {register object V316;          {register object V318;
2260          object V317;          object V319;
2261          va_start(ap,first);          va_start(ap,first);
2262          if(narg <1) too_few_arguments();          V318= V317;
         V316= V315;  
2263          narg= narg - 1;          narg= narg - 1;
2264          V318 = list_vector_new(narg,first,ap);          V320 = list_vector_new(narg,first,ap);
2265          V317= V318;          V319= V320;
2266          if((V316)!=Cnil){          if((V318)!=Cnil){
2267          goto T826;}          goto T826;}
2268          base[0]= VV[135];          base[0]= VV[135];
2269          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2270          Lcopy_list();          Lcopy_list();
2271          vs_top=sup;          vs_top=sup;
2272          V316= vs_base[0];          V318= vs_base[0];
2273          goto T826;          goto T826;
2274  T826:;  T826:;
2275          {register object V319;          {register object V321;
2276          register object V320;          register object V322;
2277          V319= (V316);          V321= (V318);
2278          V320= (V317);          V322= (V319);
2279          goto T831;          goto T831;
2280  T831:;  T831:;
2281          if(((V320))!=Cnil){          if(((V322))!=Cnil){
2282          goto T832;}          goto T832;}
2283          goto T829;          goto T829;
2284          goto T832;          goto T832;
2285  T832:;  T832:;
2286          if((car((V320)))!=Cnil){          if((CMPcar((V322)))!=Cnil){
2287          goto T837;}          goto T837;}
2288          goto T836;          goto T836;
2289          goto T837;          goto T837;
2290  T837:;  T837:;
2291          {register object V321;          {register object V323;
2292          register object V322;          register object V324;
2293          V321= (V319);          V323= (V321);
2294          V322= car((V320));          V324= CMPcar((V322));
2295          if(type_of((V321))!=t_cons)FEwrong_type_argument(Scons,(V321));          ((V323))->c.c_car = (V324);}
         ((V321))->c.c_car = (V322);}  
2296          goto T836;          goto T836;
2297  T836:;  T836:;
2298          V319= cdr((V319));          V321= CMPcdr((V321));
2299          V320= cdr((V320));          V322= CMPcdr((V322));
2300          goto T831;}          goto T831;}
2301          goto T829;          goto T829;
2302  T829:;  T829:;
2303          {object V323 = (V316);          {object V325 = (V318);
2304          VMR38(V323)}          VMR38(V325)}
2305          va_end(ap);          va_end(ap);
2306          base[0]=base[0];          base[0]=base[0];
2307          return Cnil;}          return Cnil;}
# Line 2334  static object LI39() Line 2314  static object LI39()
2314          bds_check;          bds_check;
2315          goto TTL;          goto TTL;
2316  TTL:;  TTL:;
         {register object V324;  
         register object V325;  
         V324= Cnil;  
         V325= Cnil;  
2317          {register object V326;          {register object V326;
2318          object V327;          register object V327;
2319          register object V328;          V326= Cnil;
         V326= (*(LnkLI255))();  
2320          V327= Cnil;          V327= Cnil;
2321          V328= Cnil;          {register object V328;
2322          {object V329;          object V329;
2323          V329= (*(LnkLI255))();          register object V330;
2324            V328= (*(LnkLI255))();
2325            V329= Cnil;
2326            V330= Cnil;
2327            {object V331;
2328            V331= (*(LnkLI255))();
2329          goto T854;          goto T854;
2330  T854:;  T854:;
2331          {register object V330;          {register object V332;
2332          V330= (*(LnkLI13))((V329));          V332= (*(LnkLI13))((V331));
2333          if(((*(LnkLI10))((V330),VV[136]))==Cnil){          if(((*(LnkLI10))((V332),VV[136]))==Cnil){
2334          goto T860;}          goto T860;}
2335          {object V331;          {object V333;
2336          base[1]= VV[137];          base[1]= VV[137];
2337          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2338          Lgensym();          Lgensym();
2339          vs_top=sup;          vs_top=sup;
2340          V331= vs_base[0];          V333= vs_base[0];
2341          (void)((VFUN_NARGS=4,(*(LnkLI268))((V326),Cnil,VV[138],Ct)));          (void)((VFUN_NARGS=4,(*(LnkLI268))((V328),Cnil,VV[138],Ct)));
2342          V332= (*(LnkLI255))();          V334= (*(LnkLI255))();
2343          (void)((VFUN_NARGS=3,(*(LnkLI267))((V331),/* INLINE-ARGS */V332,Cnil)));          (void)((VFUN_NARGS=3,(*(LnkLI267))((V333),/* INLINE-ARGS */V334,Cnil)));
2344          {object V333;          {object V335;
2345          V333= list(3,VV[139],(V326),list(2,VV[17],(V331)));          V335= list(3,VV[139],(V328),list(2,VV[17],(V333)));
2346          setq(VV[49],make_cons((V333),symbol_value(VV[49])));}          (VV[49]->s.s_dbind)= make_cons((V335),(VV[49]->s.s_dbind));}
2347          V328= list(3,VV[15],(V331),list(2,VV[18],(V331)));          V330= list(3,VV[15],(V333),list(2,VV[18],(V333)));
2348          V327= list(2,VV[140],(V331));          V329= list(2,VV[140],(V333));
2349          goto T857;}          goto T857;}
2350          goto T860;          goto T860;
2351  T860:;  T860:;
2352          if(((*(LnkLI10))((V330),VV[141]))==Cnil){          if(((*(LnkLI10))((V332),VV[141]))==Cnil){
2353          goto T873;}          goto T873;}
2354          {register object V334;          {register object V336;
2355          if(!(type_of((V326))==t_symbol)){          if(!(type_of((V328))==t_symbol)){
2356          goto T877;}          goto T877;}
2357          V334= (V326);          V336= (V328);
2358          goto T875;          goto T875;
2359          goto T877;          goto T877;
2360  T877:;  T877:;
# Line 2382  T877:; Line 2362  T877:;
2362          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2363          Lgensym();          Lgensym();
2364          vs_top=sup;          vs_top=sup;
2365          V334= vs_base[0];          V336= vs_base[0];
2366          goto T875;          goto T875;
2367  T875:;  T875:;
2368          (void)((VFUN_NARGS=4,(*(LnkLI268))((V326),Cnil,VV[138],Ct)));          (void)((VFUN_NARGS=4,(*(LnkLI268))((V328),Cnil,VV[138],Ct)));
2369          V335= (*(LnkLI255))();          V337= (*(LnkLI255))();
2370          (void)((VFUN_NARGS=3,(*(LnkLI267))((V334),/* INLINE-ARGS */V335,Cnil)));          (void)((VFUN_NARGS=3,(*(LnkLI267))((V336),/* INLINE-ARGS */V337,Cnil)));
2371          V328= list(3,VV[15],(V334),list(2,VV[18],(V334)));          V330= list(3,VV[15],(V336),list(2,VV[18],(V336)));
2372          if(eql((V334),(V326))){          if(eql((V336),(V328))){
2373          goto T884;}          goto T884;}
2374          {object V336;          {object V338;
2375          V336= list(3,VV[139],(V326),(V334));          V338= list(3,VV[139],(V328),(V336));
2376          setq(VV[49],make_cons((V336),symbol_value(VV[49])));}          (VV[49]->s.s_dbind)= make_cons((V338),(VV[49]->s.s_dbind));}
2377          goto T884;          goto T884;
2378  T884:;  T884:;
2379          V327= list(2,VV[140],(V334));          V329= list(2,VV[140],(V336));
2380          goto T857;}          goto T857;}
2381          goto T873;          goto T873;
2382  T873:;  T873:;
2383          if(((*(LnkLI10))((V330),VV[143]))==Cnil){          if(((*(LnkLI10))((V332),VV[143]))==Cnil){
2384          goto T891;}          goto T891;}
2385          V337= (*(LnkLI255))();          V339= (*(LnkLI255))();
2386          V325= (VFUN_NARGS=6,(*(LnkLI274))((V325),(V326),/* INLINE-ARGS */V337,Cnil,Cnil,VV[144]));          V327= (VFUN_NARGS=6,(*(LnkLI274))((V327),(V328),/* INLINE-ARGS */V339,Cnil,Cnil,VV[144]));
2387          goto T857;          goto T857;
2388          goto T891;          goto T891;
2389  T891:;  T891:;
2390          if(((*(LnkLI10))((V330),VV[145]))==Cnil){          if(((*(LnkLI10))((V332),VV[145]))==Cnil){
2391          goto T895;}          goto T895;}
2392          V338= (*(LnkLI255))();          V340= (*(LnkLI255))();
2393          V325= (VFUN_NARGS=6,(*(LnkLI274))((V325),(V326),/* INLINE-ARGS */V338,Cnil,Cnil,VV[146]));          V327= (VFUN_NARGS=6,(*(LnkLI274))((V327),(V328),/* INLINE-ARGS */V340,Cnil,Cnil,VV[146]));
2394          goto T857;          goto T857;
2395          goto T895;          goto T895;
2396  T895:;  T895:;
2397          if(((*(LnkLI10))((V330),VV[147]))==Cnil){          if(((*(LnkLI10))((V332),VV[147]))==Cnil){
2398          goto T899;}          goto T899;}
2399          V324= (*(LnkLI255))();          V326= (*(LnkLI255))();
2400          if(((V325))==Cnil){          if(((V327))==Cnil){
2401          goto T904;}          goto T904;}
2402          V325= (VFUN_NARGS=5,(*(LnkLI274))((V325),Cnil,Cnil,Cnil,(V324)));          V327= (VFUN_NARGS=5,(*(LnkLI274))((V327),Cnil,Cnil,Cnil,(V326)));
2403          goto T857;          goto T857;
2404          goto T904;          goto T904;
2405  T904:;  T904:;
# Line 2427  T904:; Line 2407  T904:;
2407          bds_bind(VV[149],small_fixnum(4));          bds_bind(VV[149],small_fixnum(4));
2408          goto T909;          goto T909;
2409  T909:;  T909:;
2410          if(!((car(caddr((V328))))==(VV[18]))){          if(!((CMPcar(CMPcaddr((V330))))==(VV[18]))){
2411          goto T910;}          goto T910;}
2412          bds_unwind1;          bds_unwind1;
2413          bds_unwind1;          bds_unwind1;
# Line 2440  T910:; Line 2420  T910:;
2420          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2421          Lcerror();          Lcerror();
2422          vs_top=sup;          vs_top=sup;
2423          base[3]= symbol_value(VV[153]);          base[3]= (VV[153]->s.s_dbind);
2424          base[4]= VV[154];          base[4]= VV[154];
2425          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2426          Lformat();          Lformat();
# Line 2448  T910:; Line 2428  T910:;
2428          goto T909;          goto T909;
2429          goto T907;          goto T907;
2430  T907:;  T907:;
2431          V339= cadr((V328));          V341= CMPcadr((V330));
2432          if(!(type_of((V324))==t_cons)){          if(!(type_of((V326))==t_cons)){
2433          goto T926;}          goto T926;}
2434          {register object x= car((V324)),V341= VV[155];          {register object x= CMPcar((V326)),V343= VV[155];
2435          while(!endp(V341))          while(V343!=Cnil)
2436          if(eql(x,V341->c.c_car)){          if(eql(x,V343->c.c_car)){
2437          goto T929;          goto T929;
2438          }else V341=V341->c.c_cdr;          }else V343=V343->c.c_cdr;
2439          goto T926;}          goto T926;}
2440          goto T929;          goto T929;
2441  T929:;  T929:;
2442          V340= list(2,cadr((V324)),cadr((V328)));          V342= list(2,CMPcadr((V326)),CMPcadr((V330)));
2443          goto T924;          goto T924;
2444          goto T926;          goto T926;
2445  T926:;  T926:;
2446          V340= list(3,VV[156],(V324),cadr((V328)));          V342= list(3,VV[156],(V326),CMPcadr((V330)));
2447          goto T924;          goto T924;
2448  T924:;  T924:;
2449          V328= list(3,VV[15],/* INLINE-ARGS */V339,V340);          V330= list(3,VV[15],/* INLINE-ARGS */V341,V342);
2450          goto T857;          goto T857;
2451          goto T899;          goto T899;
2452  T899:;  T899:;
2453          if(((*(LnkLI10))((V330),VV[157]))==Cnil){          if(((*(LnkLI10))((V332),VV[157]))==Cnil){
2454          goto T931;}          goto T931;}
2455          V342= (*(LnkLI255))();          V344= (*(LnkLI255))();
2456          V325= (VFUN_NARGS=6,(*(LnkLI274))((V325),(V326),Cnil,/* INLINE-ARGS */V342,Cnil,VV[144]));          V327= (VFUN_NARGS=6,(*(LnkLI274))((V327),(V328),Cnil,/* INLINE-ARGS */V344,Cnil,VV[144]));
2457          goto T857;          goto T857;
2458          goto T931;          goto T931;
2459  T931:;  T931:;
2460          if(((*(LnkLI10))((V330),VV[158]))==Cnil){          if(((*(LnkLI10))((V332),VV[158]))==Cnil){
2461          goto T935;}          goto T935;}
2462          V343= (*(LnkLI255))();          V345= (*(LnkLI255))();
2463          V325= (VFUN_NARGS=6,(*(LnkLI274))((V325),(V326),Cnil,/* INLINE-ARGS */V343,Cnil,VV[146]));          V327= (VFUN_NARGS=6,(*(LnkLI274))((V327),(V328),Cnil,/* INLINE-ARGS */V345,Cnil,VV[146]));
2464          goto T857;          goto T857;
2465          goto T935;          goto T935;
2466  T935:;  T935:;
2467          if(((*(LnkLI10))((V330),VV[159]))==Cnil){          if(((*(LnkLI10))((V332),VV[159]))==Cnil){
2468          goto T939;}          goto T939;}
2469          V344= (*(LnkLI255))();          V346= (*(LnkLI255))();
2470          V325= (VFUN_NARGS=7,(*(LnkLI274))((V325),(V326),Cnil,/* INLINE-ARGS */V344,Cnil,Cnil,Ct));          V327= (VFUN_NARGS=7,(*(LnkLI274))((V327),(V328),Cnil,/* INLINE-ARGS */V346,Cnil,Cnil,Ct));
2471          goto T857;          goto T857;
2472          goto T939;          goto T939;
2473  T939:;  T939:;
2474          if(!(type_of((V330))==t_symbol)){          if(!(type_of((V332))==t_symbol)){
2475            goto T943;}
2476            {object V347 =((V332))->s.s_plist;
2477             object ind= VV[160];
2478            while(V347!=Cnil){
2479            if(V347->c.c_car==ind){
2480            if(((V347->c.c_cdr->c.c_car))==Cnil){
2481          goto T943;}          goto T943;}
2482          if((get((V330),VV[160],Cnil))==Cnil){          goto T946;
2483            }else V347=V347->c.c_cdr->c.c_cdr;}
2484          goto T943;}          goto T943;}
2485          V345= (*(LnkLI13))((V329));          goto T946;
2486          (void)((VFUN_NARGS=3,(*(LnkLI265))(/* INLINE-ARGS */V345,VV[160],(V326))));  T946:;
2487            V348= (*(LnkLI13))((V331));
2488            (void)((VFUN_NARGS=3,(*(LnkLI265))(/* INLINE-ARGS */V348,VV[160],(V328))));
2489          goto T851;          goto T851;
2490          goto T943;          goto T943;
2491  T943:;  T943:;
2492          if(!(type_of((V330))==t_symbol)){          if(!(type_of((V332))==t_symbol)){
2493            goto T949;}
2494            {object V349 =((V332))->s.s_plist;
2495             object ind= VV[161];
2496            while(V349!=Cnil){
2497            if(V349->c.c_car==ind){
2498            if(((V349->c.c_cdr->c.c_car))==Cnil){
2499          goto T949;}          goto T949;}
2500          if((get((V330),VV[161],Cnil))==Cnil){          goto T952;
2501            }else V349=V349->c.c_cdr->c.c_cdr;}
2502          goto T949;}          goto T949;}
2503          V346= (*(LnkLI13))((V329));          goto T952;
2504          (void)((*(LnkLI275))(/* INLINE-ARGS */V346,(V326)));  T952:;
2505            V350= (*(LnkLI13))((V331));
2506            (void)((*(LnkLI275))(/* INLINE-ARGS */V350,(V328)));
2507          goto T851;          goto T851;
2508          goto T949;          goto T949;
2509  T949:;  T949:;
# Line 2513  T949:; Line 2511  T949:;
2511          goto T851;}          goto T851;}
2512          goto T857;          goto T857;
2513  T857:;  T857:;
2514          V329= (*(LnkLI255))();          V331= (*(LnkLI255))();
2515          goto T854;}          goto T854;}
2516          goto T851;          goto T851;
2517  T851:;  T851:;
2518          if(((V325))==Cnil){          if(((V327))==Cnil){
2519          goto T958;}          goto T958;}
2520          {object V347;          {object V351;
         object V348;  
         object V349;  
         object V350;  
         object V351;  
2521          object V352;          object V352;
2522          V347= car(cddddr((V325)));          object V353;
2523          V348= cadr(cddddr((V325)));          object V354;
2524          V349= car((V325));          object V355;
2525          V350= caddr((V325));          object V356;
2526          V351= cadddr((V325));          V351= CMPcar(CMPcddddr((V327)));
2527          V352= Cnil;          V352= CMPcadr(CMPcddddr((V327)));
2528          (void)((VFUN_NARGS=4,(*(LnkLI267))((V349),cadr((V325)),Ct,VV[126])));          V353= CMPcar((V327));
2529          base[1]= (V351);          V354= CMPcaddr((V327));
2530            V355= CMPcadddr((V327));
2531            V356= Cnil;
2532            (void)((VFUN_NARGS=4,(*(LnkLI267))((V353),CMPcadr((V327)),Ct,VV[126])));
2533            base[1]= (V355);
2534          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2535          Lconstantp();          Lconstantp();
2536          vs_top=sup;          vs_top=sup;
# Line 2541  T851:; Line 2539  T851:;
2539          goto T967;          goto T967;
2540          goto T968;          goto T968;
2541  T968:;  T968:;
2542          setq(VV[47],Ct);          (VV[47]->s.s_dbind)= Ct;
2543          goto T967;          goto T967;
2544  T967:;  T967:;
2545          V353= list(3,(V347),(V349),(V351));          V357= list(3,(V351),(V353),(V355));
2546          V328= list(3,VV[15],(V349),(*(LnkLI276))(/* INLINE-ARGS */V353,VV[126]));          V330= list(3,VV[15],(V353),(*(LnkLI276))(/* INLINE-ARGS */V357,VV[126]));
2547          if(((V350))==Cnil){          if(((V354))==Cnil){
2548          goto T975;}          goto T975;}
2549          {object V354;          {object V358;
2550          base[2]= VV[162];          base[2]= VV[162];
2551          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2552          Lgensym();          Lgensym();
2553          vs_top=sup;          vs_top=sup;
2554          V354= vs_base[0];          V358= vs_base[0];
2555          if(!(eql((V351),small_fixnum(1)))){          if(!(eql((V355),small_fixnum(1)))){
2556          goto T981;}          goto T981;}
2557          if((cadr(cddddr((V325))))!=Cnil){          if((CMPcadr(CMPcddddr((V327))))!=Cnil){
2558          goto T981;}          goto T981;}
2559          base[1]= Cnil;          base[1]= Cnil;
2560          goto T979;          goto T979;
2561          goto T981;          goto T981;
2562  T981:;  T981:;
2563          base[1]= list(3,(V347),VV[127],(V351));          base[1]= list(3,(V351),VV[127],(V355));
2564          goto T979;          goto T979;
2565  T979:;  T979:;
2566          bds_bind(VV[39],base[1]);          bds_bind(VV[39],base[1]);
2567          (void)((VFUN_NARGS=6,(*(LnkLI267))((V354),(V350),Cnil,VV[126],Cnil,Cnil)));          (void)((VFUN_NARGS=6,(*(LnkLI267))((V358),(V354),Cnil,VV[126],Cnil,Cnil)));
2568          if(((V348))==Cnil){          if(((V352))==Cnil){
2569          goto T989;}          goto T989;}
2570          if(!(((V347))==(VV[144]))){          if(!(((V351))==(VV[144]))){
2571          goto T992;}          goto T992;}
2572          V355= VV[163];          V359= VV[163];
2573          goto T987;          goto T987;
2574          goto T992;          goto T992;
2575  T992:;  T992:;
2576          V355= VV[164];          V359= VV[164];
2577          goto T987;          goto T987;
2578          goto T989;          goto T989;
2579  T989:;  T989:;
2580          if(!(((V347))==(VV[144]))){          if(!(((V351))==(VV[144]))){
2581          goto T995;}          goto T995;}
2582          V355= VV[165];          V359= VV[165];
2583          goto T987;          goto T987;
2584          goto T995;          goto T995;
2585  T995:;  T995:;
2586          V355= VV[166];          V359= VV[166];
2587          goto T987;          goto T987;
2588  T987:;  T987:;
2589          V327= list(3,V355,(V349),(V354));          V329= list(3,V359,(V353),(V358));
2590          bds_unwind1;          bds_unwind1;
2591          goto T958;}          goto T958;}
2592          goto T975;          goto T975;
2593  T975:;  T975:;
2594          if((symbol_value(VV[47]))!=Cnil){          if(((VV[47]->s.s_dbind))!=Cnil){
2595          goto T958;}          goto T958;}
2596          if((symbol_value(VV[125]))==Cnil){          if(((VV[125]->s.s_dbind))==Cnil){
2597          goto T958;}          goto T958;}
2598          base[1]= symbol_value(VV[54]);          base[1]= (VV[54]->s.s_dbind);
2599          base[2]= VV[126];          base[2]= VV[126];
2600          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2601          Lgetf();          Lgetf();
2602          vs_top=sup;          vs_top=sup;
2603          V352= vs_base[0];          V356= vs_base[0];
2604          if(((V352))==Cnil){          if(((V356))==Cnil){
2605          goto T958;}          goto T958;}
2606          if(!(type_of((V352))==t_cons)){          if(!(type_of((V356))==t_cons)){
2607          goto T1008;}          goto T1008;}
2608          if(!((car((V352)))==(VV[122]))){          if(!((CMPcar((V356)))==(VV[122]))){
2609          goto T1008;}          goto T1008;}
2610          V352= cadr((V352));          V356= CMPcadr((V356));
2611          goto T1008;          goto T1008;
2612  T1008:;  T1008:;
2613          base[1]= (V352);          base[1]= (V356);
2614          base[2]= VV[167];          base[2]= VV[167];
2615          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2616          (void) (*Lnk277)();          (void) (*Lnk277)();
2617          vs_top=sup;          vs_top=sup;
2618          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2619          goto T958;}          goto T958;}
2620          base[1]= (V351);          base[1]= (V355);
2621          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2622          Lconstantp();          Lconstantp();
2623          vs_top=sup;          vs_top=sup;
# Line 2634  T1017:; Line 2632  T1017:;
2632          vs_top=sup;          vs_top=sup;
2633          goto T1016;          goto T1016;
2634  T1016:;  T1016:;
2635          {object V356;          {object V360;
2636          if(!(((V347))==(VV[144]))){          if(!(((V351))==(VV[144]))){
2637          goto T1024;}          goto T1024;}
2638          if((V351)!=Cnil){          if((V355)!=Cnil){
2639          V358= (V351);          V362= (V355);
2640          goto T1026;}          goto T1026;}
2641          V358= small_fixnum(1);          V362= small_fixnum(1);
2642          goto T1026;          goto T1026;
2643  T1026:;  T1026:;
2644          V357= list(3,VV[164],(V349),number_minus(VV[169],V358));          V361= list(3,VV[164],(V353),number_minus(VV[169],V362));
2645          goto T1022;          goto T1022;
2646          goto T1024;          goto T1024;
2647  T1024:;  T1024:;
2648          if((V351)!=Cnil){          if((V355)!=Cnil){
2649          V359= (V351);          V363= (V355);
2650          goto T1027;}          goto T1027;}
2651          V359= small_fixnum(1);          V363= small_fixnum(1);
2652          goto T1027;          goto T1027;
2653  T1027:;  T1027:;
2654          V357= list(3,VV[163],(V349),number_plus(VV[170],V359));          V361= list(3,VV[163],(V353),number_plus(VV[170],V363));
2655          goto T1022;          goto T1022;
2656  T1022:;  T1022:;
2657          V356= list(3,VV[80],V357,VV[171]);          V360= list(3,VV[80],V361,VV[171]);
2658          setq(VV[42],make_cons((V356),symbol_value(VV[42])));}}          (VV[42]->s.s_dbind)= make_cons((V360),(VV[42]->s.s_dbind));}}
2659          goto T958;          goto T958;
2660  T958:;  T958:;
2661          if((V327)==Cnil){          if((V329)==Cnil){
2662          goto T1029;}          goto T1029;}
2663          {object V360;          {object V364;
2664          base[2]= list(3,VV[5],(V327),VV[172]);          base[2]= list(3,VV[5],(V329),VV[172]);
2665          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2666          Lcopy_tree();          Lcopy_tree();
2667          vs_top=sup;          vs_top=sup;
2668          V360= vs_base[0];          V364= vs_base[0];
2669          setq(VV[41],make_cons((V360),symbol_value(VV[41])));}          (VV[41]->s.s_dbind)= make_cons((V364),(VV[41]->s.s_dbind));}
2670          goto T1029;          goto T1029;
2671  T1029:;  T1029:;
2672          if((V328)==Cnil){          if((V330)==Cnil){
2673          {object V361 = Cnil;          {object V365 = Cnil;
2674          VMR39(V361)}}          VMR39(V365)}}
2675          setq(VV[42],make_cons(V328,symbol_value(VV[42])));          (VV[42]->s.s_dbind)= make_cons(V330,(VV[42]->s.s_dbind));
2676          {object V363 = symbol_value(VV[42]);          {object V367 = (VV[42]->s.s_dbind);
2677          VMR39(V363)}}}          VMR39(V367)}}}
2678          base[0]=base[0];          base[0]=base[0];
2679          return Cnil;          return Cnil;
2680  }  }
2681  /*      local entry for function PARSE-LOOP-MACRO       */  /*      local entry for function PARSE-LOOP-MACRO       */
2682    
2683  static object LI40(object V365,object V364,object first,...)  static object LI40(object V369,object V368,object first,...)
2684  {        {      
2685          va_list ap;          va_list ap;
2686          int narg = VFUN_NARGS; VMB40 VMS40 VMV40          int narg = VFUN_NARGS; VMB40 VMS40 VMV40
2687          {object V366;          {object V370;
2688          object V367;          object V371;
2689          object V368;          object V372;
2690          va_start(ap,first);          va_start(ap,first);
2691          if(narg <2) too_few_arguments();          V370= V369;
2692          V366= V365;          V371= V368;
         V367= V364;  
2693          narg = narg - 2;          narg = narg - 2;
2694          if (narg <= 0) goto T1034;          if (narg <= 0) goto T1034;
2695          else {          else {
2696          V368= first;}          V372= first;}
2697          --narg; goto T1035;          --narg; goto T1035;
2698          goto T1034;          goto T1034;
2699  T1034:;  T1034:;
2700          V368= Cnil;          V372= Cnil;
2701          goto T1035;          goto T1035;
2702  T1035:;  T1035:;
2703          {register object V369;          {register object V373;
2704          V369= Cnil;          V373= Cnil;
2705          {object V370;          {object V374;
2706          object V371;          object V375;
2707          V370= get((V366),(V367),Cnil);          {object V376 =((V370))->s.s_plist;
2708          V371= Cnil;           object ind= (V371);
2709          {object V372= (V367);          while(V376!=Cnil){
2710          if((V372!= VV[160]))goto T1041;          if(V376->c.c_car==ind){
2711          {object V373;          V374= (V376->c.c_cdr->c.c_car);
2712          V373= get((V366),VV[173],Cnil);{object V374;          goto T1038;
2713          V374= cdr((V373));          }else V376=V376->c.c_cdr->c.c_cdr;}
2714          if(V374==Cnil)goto T1044;          V374= Cnil;}
2715            goto T1038;
2716    T1038:;
2717            V375= Cnil;
2718            {object V377= (V371);
2719            if((V377!= VV[160]))goto T1041;
2720            {object V378;
2721            {object V379 =((V370))->s.s_plist;
2722             object ind= VV[173];
2723            while(V379!=Cnil){
2724            if(V379->c.c_car==ind){
2725            V378= (V379->c.c_cdr->c.c_car);
2726            goto T1042;
2727            }else V379=V379->c.c_cdr->c.c_cdr;}
2728            V378= Cnil;}
2729            goto T1042;
2730    T1042:;{object V380;
2731            V380= CMPcdr((V378));
2732            if(V380==Cnil)goto T1044;
2733          goto T1043;          goto T1043;
2734          goto T1044;          goto T1044;
2735  T1044:;}  T1044:;}
# Line 2724  T1044:;} Line 2739  T1044:;}
2739          vs_top=sup;          vs_top=sup;
2740          goto T1043;          goto T1043;
2741  T1043:;  T1043:;
2742          V371= cdr((V373));          V375= CMPcdr((V378));
2743          goto T1040;}          goto T1040;}
2744          goto T1041;          goto T1041;
2745  T1041:;  T1041:;
2746          if((V372!= VV[92]))goto T1047;          if((V377!= VV[92]))goto T1047;
2747          V371= get((V366),VV[175],Cnil);          {object V381 =((V370))->s.s_plist;
2748             object ind= VV[175];
2749            while(V381!=Cnil){
2750            if(V381->c.c_car==ind){
2751            V375= (V381->c.c_cdr->c.c_car);
2752          goto T1040;          goto T1040;
2753            }else V381=V381->c.c_cdr->c.c_cdr;}
2754            V375= Cnil;
2755            goto T1040;}
2756          goto T1047;          goto T1047;
2757  T1047:;  T1047:;
2758          FEerror("The ECASE key value ~s is illegal.",1,V372);          FEerror("The ECASE key value ~s is illegal.",1,V377);
2759          V371= Cnil;          V375= Cnil;
2760          goto T1040;}          goto T1040;}
2761          goto T1040;          goto T1040;
2762  T1040:;  T1040:;
2763          {object V375;          {object V382;
2764          {register object x= VV[176],V376= (V371);          {register object x= VV[176],V383= (V375);
2765          while(!endp(V376))          while(V383!=Cnil)
2766          if(eql(x,V376->c.c_car)){          if(eql(x,V383->c.c_car)){
2767          goto T1051;          goto T1051;
2768          }else V376=V376->c.c_cdr;          }else V383=V383->c.c_cdr;
2769          goto T1050;}          goto T1050;}
2770          goto T1051;          goto T1051;
2771  T1051:;  T1051:;
2772          {object V377;          {object V384;
2773          V377= symbol_value(VV[34]);          V384= (VV[34]->s.s_dbind);
2774          setq(VV[34],Cnil);          (VV[34]->s.s_dbind)= Cnil;
2775          V375= (V377);          V382= (V384);
2776          goto T1048;}          goto T1048;}
2777          goto T1050;          goto T1050;
2778  T1050:;  T1050:;
2779          {register object V378;          {register object V385;
2780          register object V379;          register object V386;
2781          V378= make_fixnum((long)length((V371)));          V385= CMPmake_fixnum((long)length((V375)));
2782          V379= small_fixnum(0);          V386= small_fixnum(0);
2783          goto T1057;          goto T1057;
2784  T1057:;  T1057:;
2785          if(!(number_compare((V379),(V378))>=0)){          if(!(number_compare((V386),(V385))>=0)){
2786          goto T1058;}          goto T1058;}
2787          V375= nreverse((V369));          V382= nreverse((V373));
2788          goto T1048;          goto T1048;
2789          goto T1058;          goto T1058;
2790  T1058:;  T1058:;
2791          {register object V380;          {register object V387;
2792          V380= car(symbol_value(VV[34]));          V387= CMPcar((VV[34]->s.s_dbind));
2793          V369= make_cons((V380),(V369));}          V373= make_cons((V387),(V373));}
2794          setq(VV[34],cdr(symbol_value(VV[34])));          (VV[34]->s.s_dbind)= CMPcdr((VV[34]->s.s_dbind));
2795          V379= one_plus((V379));          V386= one_plus((V386));
2796          goto T1057;}          goto T1057;}
2797          goto T1048;          goto T1048;
2798  T1048:;  T1048:;
2799          {object V382= (V367);          {object V389= (V371);
2800          if((V382!= VV[160]))goto T1072;          if((V389!= VV[160]))goto T1072;
2801          base[0]= (V370);          base[0]= (V374);
2802          base[1]= (V368);          base[1]= (V372);
2803          {object V383;          {object V390;
2804          V383= (V375);          V390= (V382);
2805           vs_top=base+2;           vs_top=base+2;
2806           while(!endp(V383))           while(V390!=Cnil)
2807           {vs_push(car(V383));V383=cdr(V383);}           {vs_push((V390)->c.c_car);V390=(V390)->c.c_cdr;}
2808          vs_base=base+1;}          vs_base=base+1;}
2809          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
2810          vs_top=sup;          vs_top=sup;
2811          V381= vs_base[0];          V388= vs_base[0];
2812          goto T1071;          goto T1071;
2813          goto T1072;          goto T1072;
2814  T1072:;  T1072:;
2815          if((V382!= VV[92]))goto T1076;          if((V389!= VV[92]))goto T1076;
2816          base[0]= (V370);          base[0]= (V374);
2817          {object V384;          {object V391;
2818          V384= (V375);          V391= (V382);
2819           vs_top=base+1;           vs_top=base+1;
2820           while(!endp(V384))           while(V391!=Cnil)
2821           {vs_push(car(V384));V384=cdr(V384);}           {vs_push((V391)->c.c_car);V391=(V391)->c.c_cdr;}
2822          vs_base=base+1;}          vs_base=base+1;}
2823          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
2824          vs_top=sup;          vs_top=sup;
2825          V381= vs_base[0];          V388= vs_base[0];
2826          goto T1071;          goto T1071;
2827          goto T1076;          goto T1076;
2828  T1076:;  T1076:;
2829          V381= Cnil;}          V388= Cnil;}
2830          goto T1071;          goto T1071;
2831  T1071:;  T1071:;
2832          setq(VV[34],append(V381,symbol_value(VV[34])));          (VV[34]->s.s_dbind)= append(V388,(VV[34]->s.s_dbind));
2833          {object V385 = symbol_value(VV[34]);          {object V392 = (VV[34]->s.s_dbind);
2834          VMR40(V385)}}}}          VMR40(V392)}}}}
2835          va_end(ap);          va_end(ap);
2836          base[0]=base[0];          base[0]=base[0];
2837          return Cnil;}          return Cnil;}
2838          }          }
2839  /*      local entry for function PARSE-LOOP-MAP */  /*      local entry for function PARSE-LOOP-MAP */
2840    
2841  static object LI41(V388,V389)  static object LI41(V395,V396)
2842    
2843  object V388;object V389;  object V395;object V396;
2844  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2845          goto TTL;          goto TTL;
2846  TTL:;  TTL:;
2847          if(symbol_value(VV[53])==Cnil){          if((VV[53]->s.s_dbind)==Cnil){
2848          goto T1079;}          goto T1079;}
2849          base[0]= VV[177];          base[0]= VV[177];
2850          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2830  TTL:; Line 2852  TTL:;
2852          vs_top=sup;          vs_top=sup;
2853          goto T1079;          goto T1079;
2854  T1079:;  T1079:;
2855          {object V390;          {object V397;
2856          object V391;          object V398;
2857          V390= get((V388),VV[161],Cnil);          {object V399 =((V395))->s.s_plist;
2858          V391= get((V388),VV[178],Cnil);           object ind= VV[161];
2859          if((V391)!=Cnil){          while(V399!=Cnil){
2860            if(V399->c.c_car==ind){
2861            V397= (V399->c.c_cdr->c.c_car);
2862            goto T1081;
2863            }else V399=V399->c.c_cdr->c.c_cdr;}
2864            V397= Cnil;}
2865            goto T1081;
2866    T1081:;
2867            {object V400 =((V395))->s.s_plist;
2868             object ind= VV[178];
2869            while(V400!=Cnil){
2870            if(V400->c.c_car==ind){
2871            V398= (V400->c.c_cdr->c.c_car);
2872            goto T1082;
2873            }else V400=V400->c.c_cdr->c.c_cdr;}
2874            V398= Cnil;}
2875            goto T1082;
2876    T1082:;
2877            if((V398)!=Cnil){
2878          goto T1083;}          goto T1083;}
2879          base[0]= VV[179];          base[0]= VV[179];
2880          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2842  T1079:; Line 2882  T1079:;
2882          vs_top=sup;          vs_top=sup;
2883          goto T1083;          goto T1083;
2884  T1083:;  T1083:;
2885          {register object x= VV[176],V392= (V391);          {register object x= VV[176],V401= (V398);
2886          while(!endp(V392))          while(V401!=Cnil)
2887          if(eql(x,V392->c.c_car)){          if(eql(x,V401->c.c_car)){
2888          goto T1087;          goto T1087;
2889          }else V392=V392->c.c_cdr;          }else V401=V401->c.c_cdr;
2890          goto T1085;}          goto T1085;}
2891          goto T1087;          goto T1087;
2892  T1087:;  T1087:;
# Line 2856  T1087:; Line 2896  T1087:;
2896          vs_top=sup;          vs_top=sup;
2897          goto T1085;          goto T1085;
2898  T1085:;  T1085:;
2899          {register object V393;          {register object V402;
2900          object V394;          object V403;
2901          V393= Cnil;          V402= Cnil;
2902          {object V395;          {object V404;
2903          register object V396;          register object V405;
2904          V397 = make_fixnum((long)length((V391)));          V406 = CMPmake_fixnum((long)length((V398)));
2905          V395= one_minus(V397);          V404= one_minus(V406);
2906          V396= small_fixnum(0);          V405= small_fixnum(0);
2907          goto T1094;          goto T1094;
2908  T1094:;  T1094:;
2909          if(!(number_compare((V396),(V395))>=0)){          if(!(number_compare((V405),(V404))>=0)){
2910          goto T1095;}          goto T1095;}
2911          V394= nreverse((V393));          V403= nreverse((V402));
2912          goto T1090;          goto T1090;
2913          goto T1095;          goto T1095;
2914  T1095:;  T1095:;
2915          {register object V398;          {register object V407;
2916          V398= car(symbol_value(VV[34]));          V407= CMPcar((VV[34]->s.s_dbind));
2917          V393= make_cons((V398),(V393));}          V402= make_cons((V407),(V402));}
2918          setq(VV[34],cdr(symbol_value(VV[34])));          (VV[34]->s.s_dbind)= CMPcdr((VV[34]->s.s_dbind));
2919          V396= one_plus((V396));          V405= one_plus((V405));
2920          goto T1094;}          goto T1094;}
2921          goto T1090;          goto T1090;
2922  T1090:;  T1090:;
2923          {register object V399;          {register object V408;
2924          register object V400;          register object V409;
2925          V399= (*(LnkLI255))();          V408= (*(LnkLI255))();
2926          V400= Cnil;          V409= Cnil;
2927          goto T1111;          goto T1111;
2928  T1111:;  T1111:;
2929          if(((*(LnkLI10))((V399),VV[77]))!=Cnil){          if(((*(LnkLI10))((V408),VV[77]))!=Cnil){
2930          goto T1112;}          goto T1112;}
2931          (void)((*(LnkLI266))());          (void)((*(LnkLI266))());
2932          if((V400)==Cnil){          if((V409)==Cnil){
2933          setq(VV[44],Cnil);          (VV[44]->s.s_dbind)= Cnil;
2934          goto T1108;}          goto T1108;}
2935          setq(VV[44],make_cons(VV[77],(V400)));          (VV[44]->s.s_dbind)= make_cons(VV[77],(V409));
2936          goto T1108;          goto T1108;
2937          goto T1112;          goto T1112;
2938  T1112:;  T1112:;
2939          {register object V401;          {register object V410;
2940          V401= (*(LnkLI255))();          V410= (*(LnkLI255))();
2941          V400= make_cons((V401),(V400));}          V409= make_cons((V410),(V409));}
2942          V399= (*(LnkLI255))();          V408= (*(LnkLI255))();
2943          goto T1111;}          goto T1111;}
2944          goto T1108;          goto T1108;
2945  T1108:;  T1108:;
2946          base[1]= (V390);          base[1]= (V397);
2947          base[2]= (V389);          base[2]= (V396);
2948          {object V402;          {object V411;
2949          V402= (V394);          V411= (V403);
2950           vs_top=base+3;           vs_top=base+3;
2951           while(!endp(V402))           while(V411!=Cnil)
2952           {vs_push(car(V402));V402=cdr(V402);}           {vs_push((V411)->c.c_car);V411=(V411)->c.c_cdr;}
2953          vs_base=base+2;}          vs_base=base+2;}
2954          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
2955          vs_top=sup;          vs_top=sup;
2956          setq(VV[53],vs_base[0]);          (VV[53]->s.s_dbind)= vs_base[0];
2957          {object V403 = Cnil;          {object V412 = Cnil;
2958          VMR41(V403)}}}          VMR41(V412)}}}
2959          base[0]=base[0];          base[0]=base[0];
2960          return Cnil;          return Cnil;
2961  }  }
2962  /*      local entry for function SUBSTITUTE-SLOOP-BODY  */  /*      local entry for function SUBSTITUTE-SLOOP-BODY  */
2963    
2964  static object LI42(V405)  static object LI42(V414)
2965    
2966  register object V405;  register object V414;
2967  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2968          goto TTL;          goto TTL;
2969  TTL:;  TTL:;
2970          if((symbol_value(VV[53]))==Cnil){          if(((VV[53]->s.s_dbind))==Cnil){
2971          goto T1128;}          goto T1128;}
2972          base[0]= make_cons(VV[16],(V405));          base[0]= make_cons(VV[16],(V414));
2973          base[1]= VV[181];          base[1]= VV[181];
2974          base[2]= symbol_value(VV[53]);          base[2]= (VV[53]->s.s_dbind);
2975          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2976          Lsubst();          Lsubst();
2977          vs_top=sup;          vs_top=sup;
2978          V406= vs_base[0];          V415= vs_base[0];
2979          V405= make_cons(V406,Cnil);          V414= make_cons(V415,Cnil);
2980          if(symbol_value(VV[44])==Cnil){          if((VV[44]->s.s_dbind)==Cnil){
2981          goto T1128;}          goto T1128;}
2982          base[0]= symbol_value(VV[44]);          base[0]= (VV[44]->s.s_dbind);
2983          base[1]= VV[182];          base[1]= VV[182];
2984          base[2]= (V405);          base[2]= (V414);
2985          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2986          Lsubst();          Lsubst();
2987          vs_top=sup;          vs_top=sup;
2988          V405= vs_base[0];          V414= vs_base[0];
2989          goto T1128;          goto T1128;
2990  T1128:;  T1128:;
2991          {object V407 = (V405);          {object V416 = (V414);
2992          VMR42(V407)}          VMR42(V416)}
2993          base[0]=base[0];          base[0]=base[0];
2994          return Cnil;          return Cnil;
2995  }  }
2996  /*      local entry for function DEF-LOOP-INTERNAL      */  /*      local entry for function DEF-LOOP-INTERNAL      */
2997    
2998  static object LI43(object V411,object V410,object V409,object V408,object first,...)  static object LI43(object V420,object V419,object V418,object V417,object first,...)
2999  {        {      
3000          va_list ap;          va_list ap;
3001          int narg = VFUN_NARGS; VMB43 VMS43 VMV43          int narg = VFUN_NARGS; VMB43 VMS43 VMV43
3002          bds_check;          bds_check;
3003          {register object V412;          {register object V421;
3004          register object V413;          register object V422;
3005          object V414;          object V423;
3006          object V415;          object V424;
3007          object V416;          object V425;
3008          object V417;          object V426;
3009          object V418;          object V427;
3010          va_start(ap,first);          va_start(ap,first);
3011          if(narg <4) too_few_arguments();          V421= V420;
3012          V412= V411;          V422= V419;
3013          V413= V410;          V423= V418;
3014          V414= V409;          V424= V417;
         V415= V408;  
3015          narg = narg - 4;          narg = narg - 4;
3016          if (narg <= 0) goto T1141;          if (narg <= 0) goto T1141;
3017          else {          else {
3018          V416= first;}          V425= first;}
3019          if (--narg <= 0) goto T1142;          if (--narg <= 0) goto T1142;
3020          else {          else {
3021          V417= va_arg(ap,object);}          V426= va_arg(ap,object);}
3022          if (--narg <= 0) goto T1143;          if (--narg <= 0) goto T1143;
3023          else {          else {
3024          V418= va_arg(ap,object);}          V427= va_arg(ap,object);}
3025          --narg; goto T1144;          --narg; goto T1144;
3026          goto T1141;          goto T1141;
3027  T1141:;  T1141:;
3028          V416= Cnil;          V425= Cnil;
3029          goto T1142;          goto T1142;
3030  T1142:;  T1142:;
3031          V417= Cnil;          V426= Cnil;
3032          goto T1143;          goto T1143;
3033  T1143:;  T1143:;
3034          V418= Cnil;          V427= Cnil;
3035          goto T1144;          goto T1144;
3036  T1144:;  T1144:;
3037          {object V419;          {object V428;
3038          bds_bind(VV[184],VV[183]);          bds_bind(VV[184],VV[183]);
3039          base[3]= Cnil;          base[3]= Cnil;
3040          base[4]= VV[185];          base[4]= VV[185];
3041          base[5]= (V412);          base[5]= (V421);
3042          base[6]= (V415);          base[6]= (V424);
3043          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3044          Lformat();          Lformat();
3045          vs_top=sup;          vs_top=sup;
# Line 3008  T1144:; Line 3047  T1144:;
3047          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3048          Lintern();          Lintern();
3049          vs_top=sup;          vs_top=sup;
3050          V419= vs_base[0];          V428= vs_base[0];
3051          if((V417)==Cnil){          if((V426)==Cnil){
3052          goto T1154;}          goto T1154;}
3053          V420 = make_fixnum((long)length((V413)));          V429 = CMPmake_fixnum((long)length((V422)));
3054          if(!(number_compare(V420,(V417))>=0)){          if(!(number_compare(V429,(V426))>=0)){
3055          goto T1155;}          goto T1155;}
3056          goto T1154;          goto T1154;
3057          goto T1155;          goto T1155;
# Line 3023  T1155:; Line 3062  T1155:;
3062          vs_top=sup;          vs_top=sup;
3063          goto T1154;          goto T1154;
3064  T1154:;  T1154:;
3065          if((V418)==Cnil){          if((V427)==Cnil){
3066          goto T1158;}          goto T1158;}
3067          V421 = make_fixnum((long)length((V413)));          V430 = CMPmake_fixnum((long)length((V422)));
3068          if(!(number_compare(V421,(V418))<=0)){          if(!(number_compare(V430,(V427))<=0)){
3069          goto T1159;}          goto T1159;}
3070          goto T1158;          goto T1158;
3071          goto T1159;          goto T1159;
# Line 3037  T1159:; Line 3076  T1159:;
3076          vs_top=sup;          vs_top=sup;
3077          goto T1158;          goto T1158;
3078  T1158:;  T1158:;
3079          V422= listA(4,VV[190],(V419),(V413),(V414));          V431= listA(4,VV[190],(V428),(V422),(V423));
3080          if((V416)==Cnil){          if((V425)==Cnil){
3081          V423= Cnil;          V432= Cnil;
3082          goto T1162;}          goto T1162;}
3083          V424= list(3,VV[191],list(2,VV[9],(V412)),(V416));          V433= list(3,VV[191],list(2,VV[9],(V421)),(V425));
3084          V423= make_cons(/* INLINE-ARGS */V424,Cnil);          V432= make_cons(/* INLINE-ARGS */V433,Cnil);
3085          goto T1162;          goto T1162;
3086  T1162:;  T1162:;
3087          V425= list(2,VV[9],(V412));          V434= list(2,VV[9],(V421));
3088          base[3]= Cnil;          base[3]= Cnil;
3089          base[4]= VV[192];          base[4]= VV[192];
3090          base[5]= (V415);          base[5]= (V424);
3091          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3092          Lformat();          Lformat();
3093          vs_top=sup;          vs_top=sup;
# Line 3061  T1162:; Line 3100  T1162:;
3100          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3101          Lintern();          Lintern();
3102          vs_top=sup;          vs_top=sup;
3103          V426= vs_base[0];          V435= vs_base[0];
3104          V427= list(3,VV[7],/* INLINE-ARGS */V425,list(2,VV[9],V426));          V436= list(3,VV[7],/* INLINE-ARGS */V434,list(2,VV[9],V435));
3105          V428= list(3,VV[15],/* INLINE-ARGS */V427,list(2,VV[9],(V419)));          V437= list(3,VV[15],/* INLINE-ARGS */V436,list(2,VV[9],(V428)));
3106          V429= list(2,VV[9],(V412));          V438= list(2,VV[9],(V421));
3107          base[3]= Cnil;          base[3]= Cnil;
3108          base[4]= VV[194];          base[4]= VV[194];
3109          base[5]= (V415);          base[5]= (V424);
3110          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3111          Lformat();          Lformat();
3112          vs_top=sup;          vs_top=sup;
# Line 3080  T1162:; Line 3119  T1162:;
3119          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3120          Lintern();          Lintern();
3121          vs_top=sup;          vs_top=sup;
3122          V430= vs_base[0];          V439= vs_base[0];
3123          V431= list(3,VV[7],/* INLINE-ARGS */V429,list(2,VV[9],V430));          V440= list(3,VV[7],/* INLINE-ARGS */V438,list(2,VV[9],V439));
3124          V432= list(2,/* INLINE-ARGS */V428,list(3,VV[15],/* INLINE-ARGS */V431,list(2,VV[9],(V413))));          V441= list(2,/* INLINE-ARGS */V437,list(3,VV[15],/* INLINE-ARGS */V440,list(2,VV[9],(V422))));
3125          {object V433 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V422,append(V423,/* INLINE-ARGS */V432));          {object V442 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V431,append(V432,/* INLINE-ARGS */V441));
3126          bds_unwind1;          bds_unwind1;
3127          VMR43(V433)}}          VMR43(V442)}}
3128          va_end(ap);          va_end(ap);
3129          base[0]=base[0];          base[0]=base[0];
3130          return Cnil;}          return Cnil;}
3131          }          }
3132  /*      local entry for function SUM-SLOOP-COLLECT      */  /*      local entry for function SUM-SLOOP-COLLECT      */
3133    
3134  static object LI44(V436,V437)  static object LI44(V445,V446)
3135    
3136  object V436;object V437;  object V445;object V446;
3137  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
3138          goto TTL;          goto TTL;
3139  TTL:;  TTL:;
3140          V438= list(3,VV[195],(V436),small_fixnum(0));          V447= list(3,VV[195],(V445),small_fixnum(0));
3141          {object V439 = list(4,VV[97],/* INLINE-ARGS */V438,VV[56],list(3,VV[195],(V436),list(3,VV[144],(V436),(V437))));          {object V448 = list(4,VV[97],/* INLINE-ARGS */V447,VV[56],list(3,VV[195],(V445),list(3,VV[144],(V445),(V446))));
3142          VMR44(V439)}          VMR44(V448)}
3143          return Cnil;          return Cnil;
3144  }  }
3145  /*      local entry for function LOGXOR-SLOOP-COLLECT   */  /*      local entry for function LOGXOR-SLOOP-COLLECT   */
3146    
3147  static object LI45(V442,V443)  static object LI45(V451,V452)
3148    
3149  register object V442;object V443;  register object V451;object V452;
3150  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
3151          goto TTL;          goto TTL;
3152  TTL:;  TTL:;
3153          V444= list(3,VV[15],(V442),small_fixnum(0));          V453= list(3,VV[15],(V451),small_fixnum(0));
3154          V445= list(3,VV[15],(V442),list(3,VV[196],(V442),(V443)));          V454= list(3,VV[15],(V451),list(3,VV[196],(V451),(V452)));
3155          {object V446 = list(6,VV[97],/* INLINE-ARGS */V444,VV[56],/* INLINE-ARGS */V445,VV[77],list(3,VV[167],(V442),(V443)));          {object V455 = list(6,VV[97],/* INLINE-ARGS */V453,VV[56],/* INLINE-ARGS */V454,VV[77],list(3,VV[167],(V451),(V452)));
3156          VMR45(V446)}          VMR45(V455)}
3157          return Cnil;          return Cnil;
3158  }  }
3159  /*      local entry for function MAXIMIZE-SLOOP-COLLECT */  /*      local entry for function MAXIMIZE-SLOOP-COLLECT */
3160    
3161  static object LI46(V449,V450)  static object LI46(V458,V459)
3162    
3163  register object V449;object V450;  register object V458;object V459;
3164  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
3165          goto TTL;          goto TTL;
3166  TTL:;  TTL:;
3167          V451= list(3,VV[195],(V449),Cnil);          V460= list(3,VV[195],(V458),Cnil);
3168          V452= list(3,VV[15],(V449),list(3,VV[198],(V449),(V450)));          V461= list(3,VV[15],(V458),list(3,VV[198],(V458),(V459)));
3169          {object V453 = list(4,VV[97],/* INLINE-ARGS */V451,VV[56],list(4,VV[197],(V449),/* INLINE-ARGS */V452,list(3,VV[15],(V449),(V450))));          {object V462 = list(4,VV[97],/* INLINE-ARGS */V460,VV[56],list(4,VV[197],(V458),/* INLINE-ARGS */V461,list(3,VV[15],(V458),(V459))));
3170          VMR46(V453)}          VMR46(V462)}
3171          return Cnil;          return Cnil;
3172  }  }
3173  /*      local entry for function MINIMIZE-SLOOP-COLLECT */  /*      local entry for function MINIMIZE-SLOOP-COLLECT */
3174    
3175  static object LI47(V456,V457)  static object LI47(V465,V466)
3176    
3177  register object V456;object V457;  register object V465;object V466;
3178  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
3179          goto TTL;          goto TTL;
3180  TTL:;  TTL:;
3181          V458= list(3,VV[195],(V456),Cnil);          V467= list(3,VV[195],(V465),Cnil);
3182          V459= list(3,VV[15],(V456),list(3,VV[199],(V456),(V457)));          V468= list(3,VV[15],(V465),list(3,VV[199],(V465),(V466)));
3183          {object V460 = list(4,VV[97],/* INLINE-ARGS */V458,VV[56],list(4,VV[197],(V456),/* INLINE-ARGS */V459,list(3,VV[15],(V456),(V457))));          {object V469 = list(4,VV[97],/* INLINE-ARGS */V467,VV[56],list(4,VV[197],(V465),/* INLINE-ARGS */V468,list(3,VV[15],(V465),(V466))));
3184          VMR47(V460)}          VMR47(V469)}
3185          return Cnil;          return Cnil;
3186  }  }
3187  /*      local entry for function COUNT-SLOOP-COLLECT    */  /*      local entry for function COUNT-SLOOP-COLLECT    */
3188    
3189  static object LI48(V463,V464)  static object LI48(V472,V473)
3190    
3191  object V463;object V464;  object V472;object V473;
3192  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3193          goto TTL;          goto TTL;
3194  TTL:;  TTL:;
3195          V465= list(3,VV[195],(V463),small_fixnum(0));          V474= list(3,VV[195],(V472),small_fixnum(0));
3196          {object V466 = list(4,VV[97],/* INLINE-ARGS */V465,VV[56],list(3,VV[5],(V464),list(3,VV[15],(V463),list(2,VV[200],(V463)))));          {object V475 = list(4,VV[97],/* INLINE-ARGS */V474,VV[56],list(3,VV[5],(V473),list(3,VV[15],(V472),list(2,VV[200],(V472)))));
3197          VMR48(V466)}          VMR48(V475)}
3198          return Cnil;          return Cnil;
3199  }  }
3200  /*      local entry for function THEREIS-SLOOP-COLLECT  */  /*      local entry for function THEREIS-SLOOP-COLLECT  */
3201    
3202  static object LI49(V469,V470)  static object LI49(V478,V479)
3203    
3204  object V469;object V470;  object V478;object V479;
3205  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
3206          goto TTL;          goto TTL;
3207  TTL:;  TTL:;
3208          {object V471 = list(2,VV[56],list(3,VV[197],(V470),list(2,VV[59],(V470))));          {object V480 = list(2,VV[56],list(3,VV[197],(V479),list(2,VV[59],(V479))));
3209          VMR49(V471)}          VMR49(V480)}
3210          return Cnil;          return Cnil;
3211  }  }
3212  /*      local entry for function ALWAYS-SLOOP-COLLECT   */  /*      local entry for function ALWAYS-SLOOP-COLLECT   */
3213    
3214  static object LI50(V474,V475)  static object LI50(V483,V484)
3215    
3216  object V474;object V475;  object V483;object V484;
3217  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
3218          goto TTL;          goto TTL;
3219  TTL:;  TTL:;
3220          V476= list(3,VV[195],(V474),Ct);          V485= list(3,VV[195],(V483),Ct);
3221          {object V477 = list(4,VV[97],/* INLINE-ARGS */V476,VV[56],list(3,VV[5],list(2,VV[140],(V475)),VV[201]));          {object V486 = list(4,VV[97],/* INLINE-ARGS */V485,VV[56],list(3,VV[5],list(2,VV[140],(V484)),VV[201]));
3222          VMR50(V477)}          VMR50(V486)}
3223          return Cnil;          return Cnil;
3224  }  }
3225  /*      local entry for function NEVER-SLOOP-COLLECT    */  /*      local entry for function NEVER-SLOOP-COLLECT    */
3226    
3227  static object LI51(V480,V481)  static object LI51(V489,V490)
3228    
3229  object V480;object V481;  object V489;object V490;
3230  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
3231          goto TTL;          goto TTL;
3232  TTL:;  TTL:;
3233          V482= list(3,VV[195],(V480),Ct);          V491= list(3,VV[195],(V489),Ct);
3234          {object V483 = list(4,VV[97],/* INLINE-ARGS */V482,VV[56],list(3,VV[5],(V481),VV[202]));          {object V492 = list(4,VV[97],/* INLINE-ARGS */V491,VV[56],list(3,VV[5],(V490),VV[202]));
3235          VMR51(V483)}          VMR51(V492)}
3236          return Cnil;          return Cnil;
3237  }  }
3238  /*      local entry for function AVERAGING-SLOOP-MACRO  */  /*      local entry for function AVERAGING-SLOOP-MACRO  */
3239    
3240  static object LI52(V485)  static object LI52(V494)
3241    
3242  object V485;  object V494;
3243  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
3244          goto TTL;          goto TTL;
3245  TTL:;  TTL:;
# Line 3218  TTL:; Line 3257  TTL:;
3257          base[11]= VV[77];          base[11]= VV[77];
3258          base[12]= VV[207];          base[12]= VV[207];
3259          base[13]= VV[56];          base[13]= VV[56];
3260          base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V485)),VV[210]));          base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V494)),VV[210]));
3261          base[15]= VV[211];          base[15]= VV[211];
3262          vs_top=(vs_base=base+0)+16;          vs_top=(vs_base=base+0)+16;
3263          LlistA();          LlistA();
3264          vs_top=sup;          vs_top=sup;
3265          {object V486 = vs_base[0];          {object V495 = vs_base[0];
3266          VMR52(V486)}          VMR52(V495)}
3267          base[0]=base[0];          base[0]=base[0];
3268          return Cnil;          return Cnil;
3269  }  }
3270  /*      local entry for function REPEAT-SLOOP-MACRO     */  /*      local entry for function REPEAT-SLOOP-MACRO     */
3271    
3272  static object LI53(V488)  static object LI53(V497)
3273    
3274  object V488;  object V497;
3275  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3276          goto TTL;          goto TTL;
3277  TTL:;  TTL:;
3278          {object V489;          {object V498;
3279          vs_base=vs_top;          vs_base=vs_top;
3280          Lgensym();          Lgensym();
3281          vs_top=sup;          vs_top=sup;
3282          V489= vs_base[0];          V498= vs_base[0];
3283          {object V490 = list(4,VV[25],(V489),VV[157],(V488));          {object V499 = list(4,VV[25],(V498),VV[157],(V497));
3284          VMR53(V490)}}          VMR53(V499)}}
3285          base[0]=base[0];          base[0]=base[0];
3286          return Cnil;          return Cnil;
3287  }  }
3288  /*      local entry for function RETURN-SLOOP-MACRO     */  /*      local entry for function RETURN-SLOOP-MACRO     */
3289    
3290  static object LI54(V492)  static object LI54(V501)
3291    
3292  register object V492;  register object V501;
3293  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3294          goto TTL;          goto TTL;
3295  TTL:;  TTL:;
3296          if(!(type_of((V492))==t_cons)){          if(!(type_of((V501))==t_cons)){
3297          goto T1196;}          goto T1196;}
3298          if(!((car((V492)))==(VV[21]))){          if(!((CMPcar((V501)))==(VV[21]))){
3299          goto T1196;}          goto T1196;}
3300          V493= cdr((V492));          V502= CMPcdr((V501));
3301          goto T1194;          goto T1194;
3302          goto T1196;          goto T1196;
3303  T1196:;  T1196:;
3304          V493= make_cons((V492),Cnil);          V502= make_cons((V501),Cnil);
3305          goto T1194;          goto T1194;
3306  T1194:;  T1194:;
3307          {object V494 = list(2,VV[56],make_cons(VV[59],V493));          {object V503 = list(2,VV[56],make_cons(VV[59],V502));
3308          VMR54(V494)}          VMR54(V503)}
3309          return Cnil;          return Cnil;
3310  }  }
3311  /*      local entry for function IN-TABLE-SLOOP-MAP     */  /*      local entry for function IN-TABLE-SLOOP-MAP     */
3312    
3313  static object LI55(V497,V498)  static object LI55(V506,V507)
3314    
3315  object V497;object V498;  object V506;object V507;
3316  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3317          goto TTL;          goto TTL;
3318  TTL:;  TTL:;
3319          {object V499 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V497),VV[215])),(V498));          {object V508 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V506),VV[215])),(V507));
3320          VMR55(V499)}          VMR55(V508)}
3321          return Cnil;          return Cnil;
3322  }  }
3323  /*      local entry for function IN-PACKAGE-SLOOP-MAP   */  /*      local entry for function IN-PACKAGE-SLOOP-MAP   */
3324    
3325  static object LI56(V502,V503)  static object LI56(V511,V512)
3326    
3327  object V502;object V503;  object V511;object V512;
3328  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
3329          goto TTL;          goto TTL;
3330  TTL:;  TTL:;
3331          {object V504 = list(3,VV[216],list(2,(V502),list(2,VV[217],(V503))),VV[181]);          {object V513 = list(3,VV[216],list(2,(V511),list(2,VV[217],(V512))),VV[181]);
3332          VMR56(V504)}          VMR56(V513)}
3333          return Cnil;          return Cnil;
3334  }  }
3335  /*      local entry for function IN-ARRAY-SLOOP-FOR     */  /*      local entry for function IN-ARRAY-SLOOP-FOR     */
3336    
3337  static object LI57(object V506,object V505,object first,...)  static object LI57(object V515,object V514,object first,...)
3338  {        {      
3339          va_list ap;          va_list ap;
3340          int narg = VFUN_NARGS; VMB57 VMS57 VMV57          int narg = VFUN_NARGS; VMB57 VMS57 VMV57
3341          {object V507;          {object V516;
3342          object V508;          object V517;
3343          object V509;          object V518;
3344          va_start(ap,first);          va_start(ap,first);
3345          if(narg <2) too_few_arguments();          V516= V515;
3346          V507= V506;          V517= V514;
         V508= V505;  
3347          narg= narg - 2;          narg= narg - 2;
3348          V510 = list_vector_new(narg,first,ap);          V519 = list_vector_new(narg,first,ap);
3349          V509= V510;          V518= V519;
3350          {object V511;          {object V520;
3351          object V512;          object V521;
3352          object V513;          object V522;
3353          V511= Cnil;          V520= Cnil;
3354          V512= Cnil;          V521= Cnil;
3355          V513= Cnil;          V522= Cnil;
3356          if(!(type_of((V507))==t_cons||((V507))==Cnil)){          if(!(type_of((V516))==t_cons||((V516))==Cnil)){
3357          goto T1202;}          goto T1202;}
3358          V511= car((V507));          V520= CMPcar((V516));
3359          V512= cadr((V507));          V521= CMPcadr((V516));
3360          goto T1200;          goto T1200;
3361          goto T1202;          goto T1202;
3362  T1202:;  T1202:;
3363          V511= (V507);          V520= (V516);
3364          base[0]= VV[218];          base[0]= VV[218];
3365          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3366          Lgensym();          Lgensym();
3367          vs_top=sup;          vs_top=sup;
3368          V512= vs_base[0];          V521= vs_base[0];
3369          goto T1200;          goto T1200;
3370  T1200:;  T1200:;
3371          {object V514;          {object V523;
3372          {register object V515;          {register object V524;
3373          register object V516;          register object V525;
3374          V515= (V509);          V524= (V518);
3375          V516= Cnil;          V525= Cnil;
3376          goto T1213;          goto T1213;
3377  T1213:;  T1213:;
3378          {register object V517;          {register object V526;
3379          V517= (*(LnkLI13))(car((V515)));          V526= (*(LnkLI13))(CMPcar((V524)));
3380          {register object V518;          {register object V527;
3381          V518= (*(LnkLI10))((V517),VV[219]);          V527= (*(LnkLI10))((V526),VV[219]);
3382          if(((V518))==Cnil){          if(((V527))==Cnil){
3383          goto T1220;}          goto T1220;}
3384          goto T1216;          goto T1216;
3385          goto T1220;          goto T1220;
3386  T1220:;  T1220:;
3387          if(((*(LnkLI10))((V517),VV[220]))==Cnil){          if(((*(LnkLI10))((V526),VV[220]))==Cnil){
3388          goto T1223;}          goto T1223;}
3389          V513= Ct;          V522= Ct;
3390          goto T1216;          goto T1216;
3391          goto T1223;          goto T1223;
3392  T1223:;  T1223:;
3393          {register object V519;          {register object V528;
3394          V519= (*(LnkLI10))((V517),VV[147]);          V528= (*(LnkLI10))((V526),VV[147]);
3395          if(((V519))==Cnil){          if(((V528))==Cnil){
3396          goto T1228;}          goto T1228;}
3397          goto T1216;          goto T1216;
3398          goto T1228;          goto T1228;
3399  T1228:;  T1228:;
3400          base[0]= (V515);          base[0]= (V524);
3401          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3402          Lcopy_list();          Lcopy_list();
3403          vs_top=sup;          vs_top=sup;
3404          V509= vs_base[0];          V518= vs_base[0];
3405          V514= nreverse((V516));          V523= nreverse((V525));
3406          goto T1211;}}}          goto T1211;}}}
3407          goto T1216;          goto T1216;
3408  T1216:;  T1216:;
3409          {register object V520;          {register object V529;
3410          V520= car((V515));          V529= CMPcar((V524));
3411          V516= make_cons((V520),(V516));}          V525= make_cons((V529),(V525));}
3412          {register object V521;          {register object V530;
3413          V521= cadr((V515));          V530= CMPcadr((V524));
3414          V516= make_cons((V521),(V516));}          V525= make_cons((V530),(V525));}
3415          V515= cddr((V515));          V524= CMPcddr((V524));
3416          goto T1213;}          goto T1213;}
3417          goto T1211;          goto T1211;
3418  T1211:;  T1211:;
3419          if((V513)!=Cnil){          if((V522)!=Cnil){
3420          goto T1242;}          goto T1242;}
3421          V522= list(2,VV[157],list(2,VV[221],(V508)));          V531= list(2,VV[157],list(2,VV[221],(V517)));
3422          V514= nconc(/* INLINE-ARGS */V522,(V514));          V523= nconc(/* INLINE-ARGS */V531,(V523));
3423          goto T1242;          goto T1242;
3424  T1242:;  T1242:;
3425          V523= listA(5,VV[87],(V511),VV[56],list(3,VV[15],(V511),list(3,VV[222],(V508),(V512))),(V509));          V532= listA(5,VV[87],(V520),VV[56],list(3,VV[15],(V520),list(3,VV[222],(V517),(V521))),(V518));
3426          {object V524 = listA(3,VV[25],(V512),append((V514),/* INLINE-ARGS */V523));          {object V533 = listA(3,VV[25],(V521),append((V523),/* INLINE-ARGS */V532));
3427          VMR57(V524)}}}          VMR57(V533)}}}
3428          va_end(ap);          va_end(ap);
3429          base[0]=base[0];          base[0]=base[0];
3430          return Cnil;}          return Cnil;}
3431          }          }
3432  /*      local entry for function =-SLOOP-FOR    */  /*      local entry for function =-SLOOP-FOR    */
3433    
3434  static object LI58(V527,V528)  static object LI58(V536,V537)
3435    
3436  register object V527;object V528;  register object V536;object V537;
3437  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
3438          goto TTL;          goto TTL;
3439  TTL:;  TTL:;
3440          {object V529;          {object V538;
3441          V530= (*(LnkLI254))();          V539= (*(LnkLI254))();
3442          V529= (*(LnkLI13))(/* INLINE-ARGS */V530);          V538= (*(LnkLI13))(/* INLINE-ARGS */V539);
3443          if(((*(LnkLI10))((V529),VV[223]))==Cnil){          if(((*(LnkLI10))((V538),VV[223]))==Cnil){
3444          goto T1246;}          goto T1246;}
3445          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
3446          V531= list(3,VV[139],(V527),(V528));          V540= list(3,VV[139],(V536),(V537));
3447          {object V532 = list(6,VV[87],(V527),VV[97],/* INLINE-ARGS */V531,VV[89],list(3,VV[139],(V527),(*(LnkLI255))()));          {object V541 = list(6,VV[87],(V536),VV[97],/* INLINE-ARGS */V540,VV[89],list(3,VV[139],(V536),(*(LnkLI255))()));
3448          VMR58(V532)}          VMR58(V541)}
3449          goto T1246;          goto T1246;
3450  T1246:;  T1246:;
3451          {object V533 = list(4,VV[87],(V527),VV[56],list(3,VV[139],(V527),(V528)));          {object V542 = list(4,VV[87],(V536),VV[56],list(3,VV[139],(V536),(V537)));
3452          VMR58(V533)}}          VMR58(V542)}}
3453          return Cnil;          return Cnil;
3454  }  }
3455  /*      local entry for function SLOOP-SLOOP-MACRO      */  /*      local entry for function SLOOP-SLOOP-MACRO      */
3456    
3457  static object LI59(V535)  static object LI59(V544)
3458    
3459  VOL object V535;  VOL object V544;
3460  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
3461          bds_check;          bds_check;
3462          goto TTL;          goto TTL;
3463  TTL:;  TTL:;
3464          {object V536;          {object V545;
3465          V536= (*(LnkLI13))(car((V535)));          V545= (*(LnkLI13))(CMPcar((V544)));
3466          {object V537;          {object V546;
3467          V537= (*(LnkLI10))((V536),VV[25]);          V546= (*(LnkLI10))((V545),VV[25]);
3468          if(((V537))==Cnil){          if(((V546))==Cnil){
3469          goto T1253;}          goto T1253;}
3470          goto T1249;          goto T1249;
3471          goto T1253;          goto T1253;
3472  T1253:;  T1253:;
3473          base[0]= VV[85];          base[0]= VV[85];
3474          base[1]= (V536);          base[1]= (V545);
3475          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3476          Lerror();          Lerror();
3477          vs_top=sup;}}          vs_top=sup;}}
3478          goto T1249;          goto T1249;
3479  T1249:;  T1249:;
3480          {VOL object V538;          {VOL object V547;
3481          VOL object V539;          VOL object V548;
3482          VOL object V540;          VOL object V549;
3483          VOL object V541;          VOL object V550;
3484          VOL object V542;          VOL object V551;
3485          VOL object V543;          VOL object V552;
3486          VOL object V544;          VOL object V553;
3487          base[4]= VV[224];          base[4]= VV[224];
3488          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3489          Lgensym();          Lgensym();
3490          vs_top=sup;          vs_top=sup;
3491          V539= vs_base[0];          V548= vs_base[0];
3492          bds_bind(VV[50],Cnil);          bds_bind(VV[50],Cnil);
3493          bds_bind(VV[49],Cnil);          bds_bind(VV[49],Cnil);
3494          bds_bind(VV[53],Cnil);          bds_bind(VV[53],Cnil);
3495          V538= Cnil;          V547= Cnil;
3496          V540= Cnil;          V549= Cnil;
3497          V541= Cnil;          V550= Cnil;
3498          V542= Cnil;          V551= Cnil;
3499          V543= Cnil;          V552= Cnil;
3500          V544= Cnil;          V553= Cnil;
3501          bds_bind(VV[34],(V535));          bds_bind(VV[34],(V544));
3502          setq(VV[40],Ct);          (VV[40]->s.s_dbind)= Ct;
3503          (void)((*(LnkLI255))());          (void)((*(LnkLI255))());
3504          {object V545;          {object V554;
3505          object V546;          object V555;
3506          V545= symbol_value(VV[46]);          V554= (VV[46]->s.s_dbind);
3507          V546= (V540);          V555= (V549);
3508          V540= (V545);          V549= (V554);
3509          setq(VV[46],(V546));}          (VV[46]->s.s_dbind)= (V555);}
3510          {object V547;          {object V556;
3511          object V548;          object V557;
3512          V547= symbol_value(VV[48]);          V556= (VV[48]->s.s_dbind);
3513          V548= (V541);          V557= (V550);
3514          V541= (V547);          V550= (V556);
3515          setq(VV[48],(V548));}          (VV[48]->s.s_dbind)= (V557);}
3516          {object V549;          {object V558;
3517          object V550;          object V559;
3518          V549= symbol_value(VV[43]);          V558= (VV[43]->s.s_dbind);
3519          V550= (V542);          V559= (V551);
3520          V542= (V549);          V551= (V558);
3521          setq(VV[43],(V550));}          (VV[43]->s.s_dbind)= (V559);}
3522          {object V551;          {object V560;
3523          object V552;          object V561;
3524          V551= symbol_value(VV[41]);          V560= (VV[41]->s.s_dbind);
3525          V552= (V543);          V561= (V552);
3526          V543= (V551);          V552= (V560);
3527          setq(VV[41],(V552));}          (VV[41]->s.s_dbind)= (V561);}
3528          {object V553;          {object V562;
3529          object V554;          object V563;
3530          V553= symbol_value(VV[42]);          V562= (VV[42]->s.s_dbind);
3531          V554= (V544);          V563= (V553);
3532          V544= (V553);          V553= (V562);
3533          setq(VV[42],(V554));}          (VV[42]->s.s_dbind)= (V563);}
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          (void)((*(LnkLI257))());          (void)((*(LnkLI257))());
3536          {object V555;          {object V564;
3537          object V556;          object V565;
3538          V555= symbol_value(VV[46]);          V564= (VV[46]->s.s_dbind);
3539          V556= (V540);          V565= (V549);
3540          V540= (V555);          V549= (V564);
3541          setq(VV[46],(V556));}          (VV[46]->s.s_dbind)= (V565);}
3542          {object V557;          {object V566;
3543          object V558;          object V567;
3544          V557= symbol_value(VV[48]);          V566= (VV[48]->s.s_dbind);
3545          V558= (V541);          V567= (V550);
3546          V541= (V557);          V550= (V566);
3547          setq(VV[48],(V558));}          (VV[48]->s.s_dbind)= (V567);}
3548          {object V559;          {object V568;
3549          object V560;          object V569;
3550          V559= symbol_value(VV[43]);          V568= (VV[43]->s.s_dbind);
3551          V560= (V542);          V569= (V551);
3552          V542= (V559);          V551= (V568);
3553          setq(VV[43],(V560));}          (VV[43]->s.s_dbind)= (V569);}
3554          {object V561;          {object V570;
3555          object V562;          object V571;
3556          V561= symbol_value(VV[41]);          V570= (VV[41]->s.s_dbind);
3557          V562= (V543);          V571= (V552);
3558          V543= (V561);          V552= (V570);
3559          setq(VV[41],(V562));}          (VV[41]->s.s_dbind)= (V571);}
3560          {object V563;          {object V572;
3561          object V564;          object V573;
3562          V563= symbol_value(VV[42]);          V572= (VV[42]->s.s_dbind);
3563          V564= (V544);          V573= (V553);
3564          V544= (V563);          V553= (V572);
3565          setq(VV[42],(V564));}          (VV[42]->s.s_dbind)= (V573);}
3566          (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);
3567          goto T1339;          goto T1339;
3568  T1339:;  T1339:;
# Line 3533  T1339:; Line 3571  T1339:;
3571          goto T1337;          goto T1337;
3572          goto T1340;          goto T1340;
3573  T1340:;  T1340:;
3574          {VOL object V565;          {VOL object V574;
3575          frs_push(FRS_CATCH,VV[27]);          frs_push(FRS_CATCH,VV[27]);
3576          if(nlj_active)          if(nlj_active)
3577          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
3578          vs_top=sup;          vs_top=sup;
3579          V565= vs_base[0];          V574= vs_base[0];
3580          goto T1345;}          goto T1345;}
3581          else{          else{
3582          V566= (*(LnkLI251))();          V575= (*(LnkLI251))();
3583          frs_pop();          frs_pop();
3584          V565= V566;}          V574= V575;}
3585          goto T1345;          goto T1345;
3586  T1345:;  T1345:;
3587          if(((V565))==Cnil){          if(((V574))==Cnil){
3588          goto T1348;}          goto T1348;}
3589          goto T1344;          goto T1344;
3590          goto T1348;          goto T1348;
# Line 3557  T1348:; Line 3595  T1348:;
3595          goto T1351;          goto T1351;
3596  T1351:;  T1351:;
3597          (void)(print((VV[34]->s.s_dbind),Cnil));          (void)(print((VV[34]->s.s_dbind),Cnil));
3598          {object V567;          {object V576;
3599          object V568;          object V577;
3600          V567= symbol_value(VV[46]);          V576= (VV[46]->s.s_dbind);
3601          V568= (V540);          V577= (V549);
3602          V540= (V567);          V549= (V576);
3603          setq(VV[46],(V568));}          (VV[46]->s.s_dbind)= (V577);}
3604          {object V569;          {object V578;
3605          object V570;          object V579;
3606          V569= symbol_value(VV[48]);          V578= (VV[48]->s.s_dbind);
3607          V570= (V541);          V579= (V550);
3608          V541= (V569);          V550= (V578);
3609          setq(VV[48],(V570));}          (VV[48]->s.s_dbind)= (V579);}
3610          {object V571;          {object V580;
3611          object V572;          object V581;
3612          V571= symbol_value(VV[43]);          V580= (VV[43]->s.s_dbind);
3613          V572= (V542);          V581= (V551);
3614          V542= (V571);          V551= (V580);
3615          setq(VV[43],(V572));}          (VV[43]->s.s_dbind)= (V581);}
3616          {object V573;          {object V582;
3617          object V574;          object V583;
3618          V573= symbol_value(VV[41]);          V582= (VV[41]->s.s_dbind);
3619          V574= (V543);          V583= (V552);
3620          V543= (V573);          V552= (V582);
3621          setq(VV[41],(V574));}          (VV[41]->s.s_dbind)= (V583);}
3622          {object V575;          {object V584;
3623          object V576;          object V585;
3624          V575= symbol_value(VV[42]);          V584= (VV[42]->s.s_dbind);
3625          V576= (V544);          V585= (V553);
3626          V544= (V575);          V553= (V584);
3627          setq(VV[42],(V576));}          (VV[42]->s.s_dbind)= (V585);}
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)((*(LnkLI261))());          (void)((*(LnkLI261))());
3630          {object V577;          {object V586;
3631          object V578;          object V587;
3632          V577= symbol_value(VV[46]);          V586= (VV[46]->s.s_dbind);
3633          V578= (V540);          V587= (V549);
3634          V540= (V577);          V549= (V586);
3635          setq(VV[46],(V578));}          (VV[46]->s.s_dbind)= (V587);}
3636          {object V579;          {object V588;
3637          object V580;          object V589;
3638          V579= symbol_value(VV[48]);          V588= (VV[48]->s.s_dbind);
3639          V580= (V541);          V589= (V550);
3640          V541= (V579);          V550= (V588);
3641          setq(VV[48],(V580));}          (VV[48]->s.s_dbind)= (V589);}
3642          {object V581;          {object V590;
3643          object V582;          object V591;
3644          V581= symbol_value(VV[43]);          V590= (VV[43]->s.s_dbind);
3645          V582= (V542);          V591= (V551);
3646          V542= (V581);          V551= (V590);
3647          setq(VV[43],(V582));}          (VV[43]->s.s_dbind)= (V591);}
3648          {object V583;          {object V592;
3649          object V584;          object V593;
3650          V583= symbol_value(VV[41]);          V592= (VV[41]->s.s_dbind);
3651          V584= (V543);          V593= (V552);
3652          V543= (V583);          V552= (V592);
3653          setq(VV[41],(V584));}          (VV[41]->s.s_dbind)= (V593);}
3654          {object V585;          {object V594;
3655          object V586;          object V595;
3656          V585= symbol_value(VV[42]);          V594= (VV[42]->s.s_dbind);
3657          V586= (V544);          V595= (V553);
3658          V544= (V585);          V553= (V594);
3659          setq(VV[42],(V586));}          (VV[42]->s.s_dbind)= (V595);}
3660          (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);
3661          (void)(print((VV[34]->s.s_dbind),Cnil));}          (void)(print((VV[34]->s.s_dbind),Cnil));}
3662          goto T1344;          goto T1344;
# Line 3626  T1344:; Line 3664  T1344:;
3664          goto T1339;          goto T1339;
3665          goto T1337;          goto T1337;
3666  T1337:;  T1337:;
3667          {object V587;          {object V596;
3668          object V588;          object V597;
3669          V587= symbol_value(VV[46]);          V596= (VV[46]->s.s_dbind);
3670          V588= (V540);          V597= (V549);
3671          V540= (V587);          V549= (V596);
3672          setq(VV[46],(V588));}          (VV[46]->s.s_dbind)= (V597);}
3673          {object V589;          {object V598;
3674          object V590;          object V599;
3675          V589= symbol_value(VV[48]);          V598= (VV[48]->s.s_dbind);
3676          V590= (V541);          V599= (V550);
3677          V541= (V589);          V550= (V598);
3678          setq(VV[48],(V590));}          (VV[48]->s.s_dbind)= (V599);}
3679          {object V591;          {object V600;
3680          object V592;          object V601;
3681          V591= symbol_value(VV[43]);          V600= (VV[43]->s.s_dbind);
3682          V592= (V542);          V601= (V551);
3683          V542= (V591);          V551= (V600);
3684          setq(VV[43],(V592));}          (VV[43]->s.s_dbind)= (V601);}
3685          {object V593;          {object V602;
3686          object V594;          object V603;
3687          V593= symbol_value(VV[41]);          V602= (VV[41]->s.s_dbind);
3688          V594= (V543);          V603= (V552);
3689          V543= (V593);          V552= (V602);
3690          setq(VV[41],(V594));}          (VV[41]->s.s_dbind)= (V603);}
3691          {object V595;          {object V604;
3692          object V596;          object V605;
3693          V595= symbol_value(VV[42]);          V604= (VV[42]->s.s_dbind);
3694          V596= (V544);          V605= (V553);
3695          V544= (V595);          V553= (V604);
3696          setq(VV[42],(V596));}          (VV[42]->s.s_dbind)= (V605);}
3697          (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);
3698          V538= nreverse((VV[49]->s.s_dbind));          V547= nreverse((VV[49]->s.s_dbind));
3699          if((VV[53]->s.s_dbind)==Cnil){          if((VV[53]->s.s_dbind)==Cnil){
3700          goto T1470;}          goto T1470;}
3701          V538= (*(LnkLI252))((V538));          V547= (*(LnkLI252))((V547));
3702          goto T1470;          goto T1470;
3703  T1470:;  T1470:;
3704          {object V597;          {object V606;
3705          V598= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[9],(V539))));          V607= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[9],(V548))));
3706          V599= make_cons(/* INLINE-ARGS */V598,Cnil);          V608= make_cons(/* INLINE-ARGS */V607,Cnil);
3707          base[4]= nreverse(symbol_value(VV[48]));          base[4]= nreverse((VV[48]->s.s_dbind));
3708          if(((VV[53]->s.s_dbind))==Cnil){          if(((VV[53]->s.s_dbind))==Cnil){
3709          goto T1476;}          goto T1476;}
3710          base[5]= Cnil;          base[5]= Cnil;
# Line 3676  T1476:; Line 3714  T1476:;
3714          base[5]= VV[226];          base[5]= VV[226];
3715          goto T1475;          goto T1475;
3716  T1475:;  T1475:;
3717          base[6]= nreverse(symbol_value(VV[41]));          base[6]= nreverse((VV[41]->s.s_dbind));
3718          base[7]= (V538);          base[7]= (V547);
3719          base[8]= nreverse(symbol_value(VV[42]));          base[8]= nreverse((VV[42]->s.s_dbind));
3720          if(((VV[53]->s.s_dbind))==Cnil){          if(((VV[53]->s.s_dbind))==Cnil){
3721          goto T1482;}          goto T1482;}
3722          base[9]= Cnil;          base[9]= Cnil;
# Line 3688  T1482:; Line 3726  T1482:;
3726          base[9]= VV[227];          base[9]= VV[227];
3727          goto T1481;          goto T1481;
3728  T1481:;  T1481:;
3729          V601= nreverse(symbol_value(VV[43]));          V610= nreverse((VV[43]->s.s_dbind));
3730          base[10]= make_cons((V539),/* INLINE-ARGS */V601);          base[10]= make_cons((V548),/* INLINE-ARGS */V610);
3731          vs_top=(vs_base=base+4)+7;          vs_top=(vs_base=base+4)+7;
3732          Lappend();          Lappend();
3733          vs_top=sup;          vs_top=sup;
3734          V600= vs_base[0];          V609= vs_base[0];
3735          V597= list(3,VV[71],/* INLINE-ARGS */V599,make_cons(VV[73],V600));          V606= list(3,VV[71],/* INLINE-ARGS */V608,make_cons(VV[73],V609));
3736          {object V602;          {object V611;
3737          object V603;          object V612;
3738          V602= symbol_value(VV[46]);          V611= (VV[46]->s.s_dbind);
3739          V603= car((V602));          V612= CMPcar((V611));
3740          goto T1489;          goto T1489;
3741  T1489:;  T1489:;
3742          if(!(endp_prop((V602)))){          if(!(((V611))==Cnil)){
3743          goto T1490;}          goto T1490;}
3744          goto T1485;          goto T1485;
3745          goto T1490;          goto T1490;
3746  T1490:;  T1490:;
3747          V604= (*(LnkLI253))((V603));          V613= (*(LnkLI253))((V612));
3748          if((cdr((V603)))!=Cnil){          if((CMPcdr((V612)))!=Cnil){
3749          goto T1497;}          goto T1497;}
3750          V605= Cnil;          V614= Cnil;
3751          goto T1496;          goto T1496;
3752          goto T1497;          goto T1497;
3753  T1497:;  T1497:;
3754          V606= make_cons(VV[77],cdr((V603)));          V615= make_cons(VV[77],CMPcdr((V612)));
3755          V605= make_cons(/* INLINE-ARGS */V606,Cnil);          V614= make_cons(/* INLINE-ARGS */V615,Cnil);
3756          goto T1496;          goto T1496;
3757  T1496:;  T1496:;
3758          V607= make_cons((V597),Cnil);          V616= make_cons((V606),Cnil);
3759          V597= listA(3,VV[12],/* INLINE-ARGS */V604,append(V605,/* INLINE-ARGS */V607));          V606= listA(3,VV[12],/* INLINE-ARGS */V613,append(V614,/* INLINE-ARGS */V616));
3760          V602= cdr((V602));          V611= CMPcdr((V611));
3761          V603= car((V602));          V612= CMPcar((V611));
3762          goto T1489;}          goto T1489;}
3763          goto T1485;          goto T1485;
3764  T1485:;  T1485:;
3765          {object V608;          {object V617;
3766          object V609;          object V618;
3767          V608= symbol_value(VV[46]);          V617= (VV[46]->s.s_dbind);
3768          V609= (V540);          V618= (V549);
3769          V540= (V608);          V549= (V617);
3770          setq(VV[46],(V609));}          (VV[46]->s.s_dbind)= (V618);}
3771          {object V610;          {object V619;
3772          object V611;          object V620;
3773          V610= symbol_value(VV[48]);          V619= (VV[48]->s.s_dbind);
3774          V611= (V541);          V620= (V550);
3775          V541= (V610);          V550= (V619);
3776          setq(VV[48],(V611));}          (VV[48]->s.s_dbind)= (V620);}
3777          {object V612;          {object V621;
3778          object V613;          object V622;
3779          V612= symbol_value(VV[43]);          V621= (VV[43]->s.s_dbind);
3780          V613= (V542);          V622= (V551);
3781          V542= (V612);          V551= (V621);
3782          setq(VV[43],(V613));}          (VV[43]->s.s_dbind)= (V622);}
3783          {object V614;          {object V623;
3784          object V615;          object V624;
3785          V614= symbol_value(VV[41]);          V623= (VV[41]->s.s_dbind);
3786          V615= (V543);          V624= (V552);
3787          V543= (V614);          V552= (V623);
3788          setq(VV[41],(V615));}          (VV[41]->s.s_dbind)= (V624);}
3789          {object V616;          {object V625;
3790          object V617;          object V626;
3791          V616= symbol_value(VV[42]);          V625= (VV[42]->s.s_dbind);
3792          V617= (V544);          V626= (V553);
3793          V544= (V616);          V553= (V625);
3794          setq(VV[42],(V617));}          (VV[42]->s.s_dbind)= (V626);}
3795          (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);
3796          {object V618 = list(2,VV[56],(V597));          {object V627 = list(2,VV[56],(V606));
3797          bds_unwind1;          bds_unwind1;
3798          bds_unwind1;          bds_unwind1;
3799          bds_unwind1;          bds_unwind1;
3800          bds_unwind1;          bds_unwind1;
3801          VMR59(V618)}}}          VMR59(V627)}}}
3802          base[0]=base[0];          base[0]=base[0];
3803          return Cnil;          return Cnil;
3804  }  }
3805  /*      local entry for function IN-CAREFULLY-SLOOP-FOR */  /*      local entry for function IN-CAREFULLY-SLOOP-FOR */
3806    
3807  static object LI60(V621,V622)  static object LI60(V630,V631)
3808    
3809  object V621;object V622;  object V630;object V631;
3810  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
3811          goto TTL;          goto TTL;
3812  TTL:;  TTL:;
3813          {register object V623;          {register object V632;
3814          base[0]= VV[228];          base[0]= VV[228];
3815          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3816          Lgensym();          Lgensym();
3817          vs_top=sup;          vs_top=sup;
3818          V623= vs_base[0];          V632= vs_base[0];
3819          base[0]= VV[87];          base[0]= VV[87];
3820          base[1]= (V623);          base[1]= (V632);
3821          base[2]= VV[5];          base[2]= VV[5];
3822          base[3]= VV[87];          base[3]= VV[87];
3823          base[4]= (V621);          base[4]= (V630);
3824          base[5]= VV[97];          base[5]= VV[97];
3825          base[6]= list(3,VV[15],(V623),(V622));          base[6]= list(3,VV[15],(V632),(V631));
3826          base[7]= VV[56];          base[7]= VV[56];
3827          base[8]= list(3,VV[139],(V621),list(2,VV[17],(V623)));          base[8]= list(3,VV[139],(V630),list(2,VV[17],(V632)));
3828          base[9]= VV[90];          base[9]= VV[90];
3829          base[10]= list(3,VV[5],list(2,VV[229],(V623)),VV[230]);          base[10]= list(3,VV[5],list(2,VV[229],(V632)),VV[230]);
3830          base[11]= VV[89];          base[11]= VV[89];
3831          base[12]= list(3,VV[15],(V623),list(2,VV[18],(V623)));          base[12]= list(3,VV[15],(V632),list(2,VV[18],(V632)));
3832          vs_top=(vs_base=base+0)+13;          vs_top=(vs_base=base+0)+13;
3833          Llist();          Llist();
3834          vs_top=sup;          vs_top=sup;
3835          {object V624 = vs_base[0];          {object V633 = vs_base[0];
3836          VMR60(V624)}}          VMR60(V633)}}
3837          base[0]=base[0];          base[0]=base[0];
3838          return Cnil;          return Cnil;
3839  }  }
3840  /*      local entry for function FIRST-USE-SLOOP-FOR    */  /*      local entry for function FIRST-USE-SLOOP-FOR    */
3841    
3842  static object LI61(V629,V630,V631,V632)  static object LI61(V638,V639,V640,V641)
3843    
3844  object V629;object V630;object V631;object V632;  object V638;object V639;object V640;object V641;
3845  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
3846          goto TTL;          goto TTL;
3847  TTL:;{object V633;  TTL:;{object V642;
3848          V633= (*(LnkLI10))((V631),VV[223]);          V642= (*(LnkLI10))((V640),VV[223]);
3849          if(V633==Cnil)goto T1557;          if(V642==Cnil)goto T1557;
3850          goto T1556;          goto T1556;
3851          goto T1557;          goto T1557;
3852  T1557:;}  T1557:;}
# Line 3818  T1557:;} Line 3856  T1557:;}
3856          vs_top=sup;          vs_top=sup;
3857          goto T1556;          goto T1556;
3858  T1556:;  T1556:;
3859          V634= list(3,VV[139],(V629),(V630));          V643= list(3,VV[139],(V638),(V639));
3860          {object V635 = list(6,VV[87],(V629),VV[97],/* INLINE-ARGS */V634,VV[89],list(3,VV[139],(V629),(V632)));          {object V644 = list(6,VV[87],(V638),VV[97],/* INLINE-ARGS */V643,VV[89],list(3,VV[139],(V638),(V641)));
3861          VMR61(V635)}          VMR61(V644)}
3862          base[0]=base[0];          base[0]=base[0];
3863          return Cnil;          return Cnil;
3864  }  }
3865  /*      local entry for function FIRST-SLOOP-FOR        */  /*      local entry for function FIRST-SLOOP-FOR        */
3866    
3867  static object LI62(V640,V641,V642,V643)  static object LI62(V649,V650,V651,V652)
3868    
3869  register object V640;object V641;object V642;object V643;  register object V649;object V650;object V651;object V652;
3870  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
3871          goto TTL;          goto TTL;
3872  TTL:;{object V644;  TTL:;{object V653;
3873          V644= (*(LnkLI10))((V642),VV[223]);          V653= (*(LnkLI10))((V651),VV[223]);
3874          if(V644==Cnil)goto T1561;          if(V653==Cnil)goto T1561;
3875          goto T1560;          goto T1560;
3876          goto T1561;          goto T1561;
3877  T1561:;}  T1561:;}
# Line 3843  T1561:;} Line 3881  T1561:;}
3881          vs_top=sup;          vs_top=sup;
3882          goto T1560;          goto T1560;
3883  T1560:;  T1560:;
3884          if((symbol_value(VV[42]))!=Cnil){          if(((VV[42]->s.s_dbind))!=Cnil){
3885          goto T1565;}          goto T1565;}
3886          V645= list(3,VV[139],(V640),(V641));          V654= list(3,VV[139],(V649),(V650));
3887          {object V646 = list(6,VV[87],(V640),VV[97],/* INLINE-ARGS */V645,VV[89],list(3,VV[139],(V640),(V643)));          {object V655 = list(6,VV[87],(V649),VV[97],/* INLINE-ARGS */V654,VV[89],list(3,VV[139],(V649),(V652)));
3888          VMR62(V646)}          VMR62(V655)}
3889          goto T1565;          goto T1565;
3890  T1565:;  T1565:;
3891          {object V647;          {object V656;
3892          vs_base=vs_top;          vs_base=vs_top;
3893          Lgensym();          Lgensym();
3894          vs_top=sup;          vs_top=sup;
3895          V647= vs_base[0];          V656= vs_base[0];
3896          V648= list(2,(V647),list(3,VV[139],(V640),(V643)));          V657= list(2,(V656),list(3,VV[139],(V649),(V652)));
3897          V649= list(3,VV[14],/* INLINE-ARGS */V648,list(2,Ct,list(3,VV[139],(V640),(V641))));          V658= list(3,VV[14],/* INLINE-ARGS */V657,list(2,Ct,list(3,VV[139],(V649),(V650))));
3898          {object V650 = list(8,VV[87],(V640),VV[87],(V647),VV[56],/* INLINE-ARGS */V649,VV[89],list(3,VV[139],(V647),Ct));          {object V659 = list(8,VV[87],(V649),VV[87],(V656),VV[56],/* INLINE-ARGS */V658,VV[89],list(3,VV[139],(V656),Ct));
3899          VMR62(V650)}}          VMR62(V659)}}
3900          base[0]=base[0];          base[0]=base[0];
3901          return Cnil;          return Cnil;
3902  }  }
# Line 3867  T1565:; Line 3905  T1565:;
3905  static void L63()  static void L63()
3906  {register object *base=vs_base;  {register object *base=vs_base;
3907          register object *sup=base+VM63; VC63          register object *sup=base+VM63; VC63
3908          vs_reserve(VM63);          vs_check;
3909          {register object V651;          {register object V660;
3910          object V652;          object V661;
3911          register object V653;          register object V662;
3912          if(vs_top-vs_base<2) too_few_arguments();          V660=(base[0]);
3913          if(vs_top-vs_base>3) too_many_arguments();          V661=(base[1]);
         V651=(base[0]);  
         V652=(base[1]);  
3914          vs_base=vs_base+2;          vs_base=vs_base+2;
3915          if(vs_base>=vs_top){vs_top=sup;goto T1568;}          if(vs_base>=vs_top){vs_top=sup;goto T1568;}
3916          V653=(base[2]);          V662=(base[2]);
3917          vs_top=sup;          vs_top=sup;
3918          goto T1569;          goto T1569;
3919          goto T1568;          goto T1568;
3920  T1568:;  T1568:;
3921          V653= symbol_value(VV[233]);          V662= (VV[233]->s.s_dbind);
3922          goto T1569;          goto T1569;
3923  T1569:;  T1569:;
3924          {register object V654;          {register object V663;
3925          V654= Cnil;          V663= Cnil;
3926          {register object V655;          {register object V664;
3927          V655= (V652);          V664= (V661);
3928          goto T1573;          goto T1573;
3929  T1573:;  T1573:;
3930          if(((V655))!=Cnil){          if(((V664))!=Cnil){
3931          goto T1574;}          goto T1574;}
3932          base[3]= (V654);          base[3]= (V663);
3933          base[4]= Cnil;          base[4]= Cnil;
3934          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3935          return;          return;
3936          goto T1574;          goto T1574;
3937  T1574:;  T1574:;
3938          if(!(eql(car((V655)),(V651)))){          if(!(eql(CMPcar((V664)),(V660)))){
3939          goto T1582;}          goto T1582;}
3940          base[3]= (V655);          base[3]= (V664);
3941          base[4]= Ct;          base[4]= Ct;
3942          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3943          return;          return;
3944          goto T1582;          goto T1582;
3945  T1582:;  T1582:;
3946          base[3]= (V651);          base[3]= (V660);
3947          base[4]= car((V655));          base[4]= CMPcar((V664));
3948          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3949          super_funcall_no_event((V653));          super_funcall_no_event((V662));
3950          vs_top=sup;          vs_top=sup;
3951          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3952          goto T1580;}          goto T1580;}
3953          base[3]= (V654);          base[3]= (V663);
3954          base[4]= Cnil;          base[4]= Cnil;
3955          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3956          return;          return;
3957          goto T1580;          goto T1580;
3958  T1580:;  T1580:;
3959          V654= (V655);          V663= (V664);
3960          V655= cdr((V655));          V664= CMPcdr((V664));
3961          goto T1573;}}          goto T1573;}}
3962          }          }
3963  }  }
3964  /*      local entry for function COLLATE-SLOOP-COLLECT  */  /*      local entry for function COLLATE-SLOOP-COLLECT  */
3965    
3966  static object LI64(V658,V659)  static object LI64(V667,V668)
3967    
3968  object V658;object V659;  object V667;object V668;
3969  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
3970          goto TTL;          goto TTL;
3971  TTL:;  TTL:;
3972          V660= list(3,VV[236],(V659),(V658));          V669= list(3,VV[236],(V668),(V667));
3973          V661= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V659),VV[240])));          V670= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V668),VV[240])));
3974          {object V662 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V660,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V661,list(2,Ct,list(3,VV[15],(V658),list(3,VV[119],(V659),(V658))))))));          {object V671 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V669,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V670,list(2,Ct,list(3,VV[15],(V667),list(3,VV[119],(V668),(V667))))))));
3975          VMR64(V662)}          VMR64(V671)}
3976          return Cnil;          return Cnil;
3977  }  }
3978  /*      local entry for function IN-FRINGE-SLOOP-MAP    */  /*      local entry for function IN-FRINGE-SLOOP-MAP    */
3979    
3980  static object LI65(V665,V666)  static object LI65(V674,V675)
3981    
3982  register object V665;object V666;  register object V674;object V675;
3983  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
3984          goto TTL;          goto TTL;
3985  TTL:;  TTL:;
3986          {register object V667;          {register object V676;
3987          vs_base=vs_top;          vs_base=vs_top;
3988          Lgensym();          Lgensym();
3989          vs_top=sup;          vs_top=sup;
3990          V667= vs_base[0];          V676= vs_base[0];
3991          V668= make_cons((V665),Cnil);          V677= make_cons((V674),Cnil);
3992          V669= list(2,(V667),VV[244]);          V678= list(2,(V676),VV[244]);
         V670= make_cons(/* INLINE-ARGS */V669,Cnil);  
         V671= list(2,VV[140],(V667));  
         V672= make_cons(/* INLINE-ARGS */V671,Cnil);  
         V673= list(2,VV[229],(V667));  
         V674= list(3,VV[15],(V665),(V667));  
         V675= list(3,/* INLINE-ARGS */V673,/* INLINE-ARGS */V674,list(3,VV[15],(V667),Cnil));  
         V676= list(3,VV[15],(V665),list(2,VV[17],(V667)));  
         V677= list(3,VV[14],/* INLINE-ARGS */V675,list(3,Ct,/* INLINE-ARGS */V676,list(3,VV[15],(V667),list(2,VV[18],(V667)))));  
         V678= list(2,VV[140],(V665));  
3993          V679= make_cons(/* INLINE-ARGS */V678,Cnil);          V679= make_cons(/* INLINE-ARGS */V678,Cnil);
3994          V680= list(2,VV[229],(V665));          V680= list(2,VV[140],(V676));
3995          V681= make_cons(/* INLINE-ARGS */V680,VV[245]);          V681= make_cons(/* INLINE-ARGS */V680,Cnil);
3996          V682= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V670,/* INLINE-ARGS */V672,/* INLINE-ARGS */V677,list(4,VV[14],/* INLINE-ARGS */V679,/* INLINE-ARGS */V681,list(2,Ct,list(2,VV[242],(V665))))));          V682= list(2,VV[229],(V676));
3997          V683= make_cons(/* INLINE-ARGS */V682,Cnil);          V683= list(3,VV[15],(V674),(V676));
3998          {object V684 = list(3,VV[12],/* INLINE-ARGS */V668,list(3,VV[241],/* INLINE-ARGS */V683,list(2,VV[242],(V666))));          V684= list(3,/* INLINE-ARGS */V682,/* INLINE-ARGS */V683,list(3,VV[15],(V676),Cnil));
3999          VMR65(V684)}}          V685= list(3,VV[15],(V674),list(2,VV[17],(V676)));
4000            V686= list(3,VV[14],/* INLINE-ARGS */V684,list(3,Ct,/* INLINE-ARGS */V685,list(3,VV[15],(V676),list(2,VV[18],(V676)))));
4001            V687= list(2,VV[140],(V674));
4002            V688= make_cons(/* INLINE-ARGS */V687,Cnil);
4003            V689= list(2,VV[229],(V674));
4004            V690= make_cons(/* INLINE-ARGS */V689,VV[245]);
4005            V691= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V679,/* INLINE-ARGS */V681,/* INLINE-ARGS */V686,list(4,VV[14],/* INLINE-ARGS */V688,/* INLINE-ARGS */V690,list(2,Ct,list(2,VV[242],(V674))))));
4006            V692= make_cons(/* INLINE-ARGS */V691,Cnil);
4007            {object V693 = list(3,VV[12],/* INLINE-ARGS */V677,list(3,VV[241],/* INLINE-ARGS */V692,list(2,VV[242],(V675))));
4008            VMR65(V693)}}
4009          base[0]=base[0];          base[0]=base[0];
4010          return Cnil;          return Cnil;
4011  }  }

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

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