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

Diff of /gcl/pcl/pcl_dfun.c

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

revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC revision 1.5 by camm, Thu Oct 23 15:30:14 2003 UTC
# Line 48  T20:; Line 48  T20:;
48  T21:;  T21:;
49          base[3]= Ct;          base[3]= Ct;
50          base[4]= VV[5];          base[4]= VV[5];
51          base[5]= make_cons(CMPcar((V2)),CMPcar((V5)));          base[5]= make_cons(CMPcar((V2)),CMPcaar((V5)));
52          base[6]= CMPcaddr((V5));          base[6]= CMPcaddr((V5));
53          if((CMPcadddr((V5)))==Cnil){          vs_top=(vs_base=base+3)+4;
         goto T32;}  
         base[7]= VV[6];  
         goto T30;  
         goto T32;  
 T32:;  
         base[7]= VV[7];  
         goto T30;  
 T30:;  
         vs_top=(vs_base=base+3)+5;  
54          Lformat();          Lformat();
55          vs_top=sup;          vs_top=sup;
56          V4= CMPcdr((V4));          V4= CMPcdr((V4));
# Line 89  static void L2() Line 80  static void L2()
80           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
81          V7=(base[1]);          V7=(base[1]);
82          vs_top=sup;          vs_top=sup;
83          if(((VV[8]->s.s_dbind))==Cnil){          if(((VV[6]->s.s_dbind))==Cnil){
84          goto T44;}          goto T40;}
85          {register object x= (V6),V8= VV[9];          {register object x= (V6),V8= VV[7];
86          while(V8!=Cnil)          while(V8!=Cnil)
87          if(eql(x,V8->c.c_car)){          if(eql(x,V8->c.c_car)){
88          goto T48;          goto T44;
89          }else V8=V8->c.c_cdr;          }else V8=V8->c.c_cdr;
90          goto T44;}          goto T40;}
91          goto T48;          goto T44;
92  T48:;  T44:;
93          {object V10;          {object V10;
94          object V11= CMPcar((V7));          object V11= CMPcar((V7));
95          if(V11==Cnil){          if(V11==Cnil){
96          V9= Cnil;          V9= Cnil;
97          goto T50;}          goto T46;}
98          base[2]=V10=MMcons(Cnil,Cnil);          base[2]=V10=MMcons(Cnil,Cnil);
99          goto T51;          goto T47;
100  T51:;  T47:;
101          if(!(((V11->c.c_car))==(Ct))){          if(!(((V11->c.c_car))==(Ct))){
102          goto T54;}          goto T50;}
103          (V10->c.c_car)= (V11->c.c_car);          (V10->c.c_car)= (V11->c.c_car);
104          goto T52;          goto T48;
105          goto T54;          goto T50;
106  T54:;  T50:;
107          (V10->c.c_car)= VV[10];          (V10->c.c_car)= VV[8];
108          goto T52;          goto T48;
109  T52:;  T48:;
110          if((V11=MMcdr(V11))==Cnil){          if((V11=MMcdr(V11))==Cnil){
111          V9= base[2];          V9= base[2];
112          goto T50;}          goto T46;}
113          V10=MMcdr(V10)=MMcons(Cnil,Cnil);          V10=MMcdr(V10)=MMcons(Cnil,Cnil);
114          goto T51;}          goto T47;}
115          goto T50;          goto T46;
116  T50:;  T46:;
117          V7= make_cons(V9,CMPcdr((V7)));          V7= make_cons(V9,CMPcdr((V7)));
118          goto T44;          goto T40;
119  T44:;  T40:;
120          {object V13;          {object V13;
121          object V14;          object V14;
122          {register object x= (V6),V15= (VV[4]->s.s_dbind);          {register object x= (V6),V15= (VV[4]->s.s_dbind);
123          while(V15!=Cnil)          while(V15!=Cnil)
124          if(EQ(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){          if(EQ(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){
125          V13= (V15->c.c_car);          V13= (V15->c.c_car);
126          goto T56;          goto T52;
127          }else V15=V15->c.c_cdr;          }else V15=V15->c.c_cdr;
128          V13= Cnil;}          V13= Cnil;}
129          goto T56;          goto T52;
130  T56:;  T52:;
131          {register object x= (V7),V16= CMPcdr((V13));          {register object x= (V7),V16= CMPcdr((V13));
132          while(V16!=Cnil)          while(V16!=Cnil)
133          if(equal(x,V16->c.c_car->c.c_car) &&V16->c.c_car != Cnil){          if(equal(x,V16->c.c_car->c.c_car) &&V16->c.c_car != Cnil){
134          V14= (V16->c.c_car);          V14= (V16->c.c_car);
135          goto T57;          goto T53;
136          }else V16=V16->c.c_cdr;          }else V16=V16->c.c_cdr;
137          V14= Cnil;}          V14= Cnil;}
138          goto T57;          goto T53;
139  T57:;  T53:;
140          if(((VV[1]->s.s_dbind))!=Cnil){          if(((VV[1]->s.s_dbind))!=Cnil){
141          goto T59;}          goto T55;}
142          base[5]= (V6);          base[5]= (V6);
143          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
144          Lsymbol_function();          Lsymbol_function();
# Line 164  T57:; Line 155  T57:;
155                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
156                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
157          return;          return;
158          goto T59;          goto T55;
159  T59:;{object V18;  T55:;{object V18;
160          V18= CMPcadr((V14));          V18= CMPcadr((V14));
161          if(V18==Cnil)goto T64;          if(V18==Cnil)goto T60;
162          base[4]= V18;          base[4]= V18;
163          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
164          return;          return;
165          goto T64;          goto T60;
166  T64:;}  T60:;}
167          {object V19;          {object V19;
168          object V20;          object V20;
169          base[5]= (V6);          base[5]= (V6);
# Line 190  T64:;} Line 181  T64:;}
181                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
182                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
183                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
184          if(vs_base>=vs_top){vs_top=sup;goto T70;}          if(vs_base>=vs_top){vs_top=sup;goto T66;}
185          V19= vs_base[0];          V19= vs_base[0];
186          vs_base++;          vs_base++;
187          if(vs_base>=vs_top){vs_top=sup;goto T71;}          if(vs_base>=vs_top){vs_top=sup;goto T67;}
188          V20= vs_base[0];          V20= vs_base[0];
189          vs_top=sup;          vs_top=sup;
190          goto T72;          goto T68;
191          goto T70;          goto T66;
192  T70:;  T66:;
193          V19= Cnil;          V19= Cnil;
194          goto T71;          goto T67;
195  T71:;  T67:;
196          V20= Cnil;          V20= Cnil;
197          goto T72;          goto T68;
198  T72:;  T68:;
199          {object V22;          {object V22;
200          base[4]= (V7);          base[4]= (V7);
201          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
202          Lcopy_list();          Lcopy_list();
203          vs_top=sup;          vs_top=sup;
204          V23= vs_base[0];          V23= vs_base[0];
         V24 = (V19);  
205          if(((V20))!=Cnil){          if(((V20))!=Cnil){
206          goto T79;}          goto T75;}
207          V25= VV[11];          V24= VV[9];
208          goto T77;          goto T73;
209          goto T79;          goto T75;
210  T79:;  T75:;
211          V25= Cnil;          V24= Cnil;
         goto T77;  
 T77:;  
         V26 = (V20);  
         V22= list(4,V23,V24,V25,V26);  
         if(((V13))==Cnil){  
         goto T82;}  
         {object V29;  
         V29= make_cons(V22,CMPcdr(V13));  
         (V13)->c.c_cdr = (V29);  
         goto T73;}  
         goto T82;  
 T82:;  
         {object V30;  
         V30= list(2,(V6),(V22));  
         (VV[4]->s.s_dbind)= make_cons((V30),(VV[4]->s.s_dbind));}}  
212          goto T73;          goto T73;
213  T73:;  T73:;
214            V22= list(4,V23,(V19),V24,(V20));
215            if(((V13))==Cnil){
216            goto T78;}
217            {object V27;
218            V27= make_cons(V22,CMPcdr(V13));
219            (V13)->c.c_cdr = (V27);
220            goto T69;}
221            goto T78;
222    T78:;
223            {object V28;
224            V28= list(2,(V6),(V22));
225            (VV[4]->s.s_dbind)= make_cons((V28),(VV[4]->s.s_dbind));}}
226            goto T69;
227    T69:;
228          base[4]= (V19);          base[4]= (V19);
229          base[5]= (V20);          base[5]= (V20);
230          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 244  T73:; Line 233  T73:;
233  }  }
234  /*      local entry for function LOAD-PRECOMPILED-DFUN-CONSTRUCTOR      */  /*      local entry for function LOAD-PRECOMPILED-DFUN-CONSTRUCTOR      */
235    
236  static object LI3(V35,V36,V37,V38)  static object LI3(V33,V34,V35,V36)
237    
238  object V35;object V36;object V37;object V38;  object V33;object V34;object V35;object V36;
239  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
240          goto TTL;          goto TTL;
241  TTL:;  TTL:;
242          {object V39;          {object V37;
243          register object V40;          register object V38;
244          {register object x= (V35),V41= (VV[4]->s.s_dbind);          {register object x= (V33),V39= (VV[4]->s.s_dbind);
245          while(V41!=Cnil)          while(V39!=Cnil)
246          if(EQ(x,V41->c.c_car->c.c_car) &&V41->c.c_car != Cnil){          if(EQ(x,V39->c.c_car->c.c_car) &&V39->c.c_car != Cnil){
247          V39= (V41->c.c_car);          V37= (V39->c.c_car);
248          goto T90;          goto T86;
249          }else V41=V41->c.c_cdr;          }else V39=V39->c.c_cdr;
250          V39= Cnil;}          V37= Cnil;}
251          goto T90;          goto T86;
252  T90:;  T86:;
253          {register object x= (V36),V42= CMPcdr((V39));          {register object x= (V34),V40= CMPcdr((V37));
254          while(V42!=Cnil)          while(V40!=Cnil)
255          if(equal(x,V42->c.c_car->c.c_car) &&V42->c.c_car != Cnil){          if(equal(x,V40->c.c_car->c.c_car) &&V40->c.c_car != Cnil){
256          V40= (V42->c.c_car);          V38= (V40->c.c_car);
257          goto T91;          goto T87;
258          }else V42=V42->c.c_cdr;          }else V40=V40->c.c_cdr;
259          V40= Cnil;}          V38= Cnil;}
260          goto T91;          goto T87;
261  T91:;  T87:;
262          if(((V40))==Cnil){          if(((V38))==Cnil){
263          goto T93;}          goto T89;}
264          if((CMPcadddr((V40)))==Cnil){          if((CMPcadddr((V38)))==Cnil){
265          goto T96;}          goto T92;}
266          {object V43;          {object V41;
267          register object V44;          register object V42;
268          object V45;          object V43;
269          {object V46= (V35);          {object V44= (V33);
270          if((V46!= VV[61]))goto T99;          if((V44!= VV[69]))goto T95;
271          V43= VV[12];          V41= VV[10];
272          goto T98;          goto T94;
273          goto T99;          goto T95;
274  T99:;  T95:;
275          if((V46!= VV[68]))goto T100;          if((V44!= VV[76]))goto T96;
276          V43= VV[13];          V41= VV[11];
277            goto T94;
278            goto T96;
279    T96:;
280            if((V44!= VV[82]))goto T97;
281            V41= VV[12];
282            goto T94;
283            goto T97;
284    T97:;
285            if((V44!= VV[68]))goto T98;
286            V41= VV[13];
287            goto T94;
288          goto T98;          goto T98;
289    T98:;
290            V41= Cnil;}
291            goto T94;
292    T94:;
293            V42= CMPcar((V34));
294            if(((V41))==Cnil){
295            goto T102;}
296            V43= (*(LnkLI176))((V41));
297          goto T100;          goto T100;
 T100:;  
         if((V46!= VV[69]))goto T101;  
         V43= VV[14];  
         goto T98;  
         goto T101;  
 T101:;  
         if((V46!= VV[60]))goto T102;  
         V43= VV[15];  
         goto T98;  
298          goto T102;          goto T102;
299  T102:;  T102:;
300          V43= Cnil;}          V43= Cnil;
301          goto T98;          goto T100;
302  T98:;  T100:;
303          V44= CMPcar((V36));          {register object V45;
304          if(((V43))==Cnil){          register object V46;
305          goto T106;}          V45= (V43);
306          V45= (*(LnkLI160))((V43));          V46= CMPcar((V45));
         goto T104;  
         goto T106;  
 T106:;  
         V45= Cnil;  
         goto T104;  
 T104:;  
         {register object V47;  
         register object V48;  
         V47= (V45);  
         V48= CMPcar((V47));  
         goto T112;  
 T112:;  
         if(!(((V47))==Cnil)){  
         goto T113;}  
307          goto T108;          goto T108;
308          goto T113;  T108:;
309  T113:;          if(!(((V45))==Cnil)){
310          base[6]= (V48);          goto T109;}
311            goto T104;
312            goto T109;
313    T109:;
314            base[6]= (V46);
315          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
316          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk177)(Lclptr177);
317          vs_top=sup;          vs_top=sup;
318          V49= vs_base[0];          V47= vs_base[0];
319          if(!(equal((V44),STREF(object,V49,8)))){          if(!(equal((V42),STREF(object,V47,8)))){
320          goto T117;}          goto T113;}
321          {register object V50;          {register object V48;
322          base[6]= (V48);          base[6]= (V46);
323          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
324          (void) (*Lnk162)(Lclptr162);          (void) (*Lnk178)(Lclptr178);
325          vs_top=sup;          vs_top=sup;
326          V50= vs_base[0];          V48= vs_base[0];
327          if(((((V50))==(VV[17])?Ct:Cnil))==Cnil){          if(((((V48))==(VV[15])?Ct:Cnil))==Cnil){
328          goto T126;}          goto T122;}
329          goto T117;          goto T113;
330          goto T126;          goto T122;
331  T126:;  T122:;
332          if(((equal((V50),VV[18])?Ct:Cnil))==Cnil){          if(((equal((V48),VV[16])?Ct:Cnil))==Cnil){
333          goto T128;}          goto T124;}
334          goto T117;          goto T113;
335          goto T128;          goto T124;
336  T128:;  T124:;
337          if(!(((((V50))==(VV[19])?Ct:Cnil))==Cnil)){          if(!(((((V48))==(VV[17])?Ct:Cnil))==Cnil)){
338          goto T117;}}          goto T113;}}
339          (void)((VFUN_NARGS=1,(*(LnkLI49))((V48))));          (void)((VFUN_NARGS=1,(*(LnkLI47))((V46))));
340          goto T117;          goto T113;
341  T117:;  T113:;
342          V47= CMPcdr((V47));          V45= CMPcdr((V45));
343          V48= CMPcar((V47));          V46= CMPcar((V45));
344          goto T112;}          goto T108;}
345          goto T108;          goto T104;
346  T108:;  T104:;
347          (CMPcdr(V40))->c.c_car = V38;          (CMPcdr(V38))->c.c_car = V36;
348          (void)(CMPcdr(V40));          (void)(CMPcdr(V38));
349          (CMPcddr(V40))->c.c_car = V37;          (CMPcddr(V38))->c.c_car = V35;
350          (void)(CMPcddr(V40));          (void)(CMPcddr(V38));
351          (CMPcdddr(V40))->c.c_car = Cnil;          (CMPcdddr(V38))->c.c_car = Cnil;
352          (void)(CMPcdddr(V40));          (void)(CMPcdddr(V38));
353          {object V57 = Cnil;          {object V55 = Cnil;
354          VMR3(V57)}}          VMR3(V55)}}
355          goto T96;          goto T92;
356  T96:;  T92:;
357          {object V58 = Cnil;          {object V56 = Cnil;
358          VMR3(V58)}          VMR3(V56)}
359          goto T93;          goto T89;
360  T93:;  T89:;
361          {object V59;          {object V57;
362          V59= list(4,(V36),(V38),(V37),Cnil);          V57= list(4,(V34),(V36),(V35),Cnil);
363          if(((V39))==Cnil){          if(((V37))==Cnil){
364          goto T142;}          goto T138;}
365            {object V60;
366            V60= make_cons(V57,CMPcdr(V37));
367            (V37)->c.c_cdr = (V60);
368            {object V61 = (V60);
369            VMR3(V61)}}
370            goto T138;
371    T138:;
372          {object V62;          {object V62;
373          V62= make_cons(V59,CMPcdr(V39));          V62= list(2,(V33),(V57));
374          (V39)->c.c_cdr = (V62);          (VV[4]->s.s_dbind)= make_cons((V62),(VV[4]->s.s_dbind));
375          {object V63 = (V62);          {object V63 = (VV[4]->s.s_dbind);
376          VMR3(V63)}}          VMR3(V63)}}}}
         goto T142;  
 T142:;  
         {object V64;  
         V64= list(2,(V35),(V59));  
         (VV[4]->s.s_dbind)= make_cons((V64),(VV[4]->s.s_dbind));  
         {object V65 = (VV[4]->s.s_dbind);  
         VMR3(V65)}}}}  
377          base[0]=base[0];          base[0]=base[0];
378          return Cnil;          return Cnil;
379  }  }
# Line 397  static void L4() Line 386  static void L4()
386          bds_check;          bds_check;
387          check_arg(2);          check_arg(2);
388          vs_top=sup;          vs_top=sup;
389          {object V66=base[0]->c.c_cdr;          {object V64=base[0]->c.c_cdr;
390          if(endp(V66)){          if(endp(V64)){
391          base[2]= Cnil;          base[2]= Cnil;
392          } else {          } else {
393          base[2]= (V66->c.c_car);          base[2]= (V64->c.c_car);
394          V66=V66->c.c_cdr;}          V64=V64->c.c_cdr;}
395          if(!endp(V66))invalid_macro_call();}          if(!endp(V64))invalid_macro_call();}
396          bds_bind(VV[20],Ct);          bds_bind(VV[18],Ct);
397          {register object V68;          {register object V66;
398          register object V69;          V66= Cnil;
399          V68= Cnil;          {register object V67;
400          V69= Cnil;          register object V68;
401          {register object V70;          V67= (VV[4]->s.s_dbind);
402          register object V71;          V68= CMPcar((V67));
403          V70= (VV[4]->s.s_dbind);          goto T149;
404          V71= CMPcar((V70));  T149:;
405          goto T156;          if(!(((V67))==Cnil)){
406  T156:;          goto T150;}
407          if(!(((V70))==Cnil)){          V65= nreverse((V66));
408          goto T157;}          goto T145;
409          goto T152;          goto T150;
410          goto T157;  T150:;
411  T157:;          {register object V69;
412          {register object V72;          register object V70;
413          register object V73;          V69= CMPcdr((V68));
414          V72= CMPcdr((V71));          V70= CMPcar((V69));
415          V73= CMPcar((V72));          goto T158;
416          goto T165;  T158:;
417  T165:;          if(!(((V69))==Cnil)){
418          if(!(((V72))==Cnil)){          goto T159;}
419          goto T166;}          goto T154;
420          goto T161;          goto T159;
421          goto T166;  T159:;
422  T166:;          if((CMPcaddr((V70)))==Cnil){
423          if((CMPcaddr((V73)))==Cnil){          goto T164;}
424          goto T171;}          if(!((CMPcaddr((V70)))==(base[2]))){
425          if(!((CMPcaddr((V73)))==(base[2]))){          goto T163;}
426          goto T170;}          goto T164;
427          goto T171;  T164:;
 T171:;  
428          if((base[2])==Cnil){          if((base[2])==Cnil){
429          goto T175;}          goto T168;}
430          {register object V74;          {register object V71;
431          register object V75;          register object V72;
432          V74= (V73);          V71= (V70);
433          V75= base[2];          V72= base[2];
434          (CMPcddr((V74)))->c.c_car = (V75);          (CMPcddr((V71)))->c.c_car = (V72);
435          (void)(CMPcddr((V74)));}          (void)(CMPcddr((V71)));}
436          goto T175;          goto T168;
437  T175:;  T168:;
438          {register object V76;          {register object V73;
439          V77= list(2,VV[22],CMPcar((V71)));          V74= list(2,VV[20],CMPcar((V68)));
440          V78= list(2,VV[25],CMPcar((V71)));          V75= list(2,VV[23],CMPcar((V68)));
441          V79= list(2,VV[25],CMPcar((V73)));          V76= list(2,VV[23],CMPcar((V70)));
442          V80= list(2,VV[25],base[2]);          V77= list(2,VV[23],base[2]);
443          base[8]= CMPcar((V71));          base[9]= CMPcar((V68));
444          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+9)+1;
445          Lsymbol_function();          Lsymbol_function();
446          vs_top=sup;          vs_top=sup;
447          base[7]= vs_base[0];          base[8]= vs_base[0];
448          {object V82;          {object V79;
449          V82= CMPcar((V73));          V79= CMPcar((V70));
450           vs_top=base+8;           vs_top=base+9;
451           while(V82!=Cnil)           while(V79!=Cnil)
452           {vs_push((V82)->c.c_car);V82=(V82)->c.c_cdr;}           {vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;}
453          vs_base=base+8;}          vs_base=base+9;}
454          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
455                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
456                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
457                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
458          vs_top=sup;          vs_top=sup;
459          V81= vs_base[0];          V78= vs_base[0];
460          V83= list(5,VV[24],/* INLINE-ARGS */V78,/* INLINE-ARGS */V79,/* INLINE-ARGS */V80,V81);          V80= list(5,VV[22],/* INLINE-ARGS */V75,/* INLINE-ARGS */V76,/* INLINE-ARGS */V77,V78);
461          V76= (*(LnkLI163))(/* INLINE-ARGS */V77,VV[23],/* INLINE-ARGS */V83);          V73= (*(LnkLI179))(/* INLINE-ARGS */V74,VV[21],/* INLINE-ARGS */V80);
462          if(((V68))!=Cnil){          V66= make_cons((V73),(V66));}
463          goto T187;}          goto T163;
464          V69= make_cons((V76),Cnil);  T163:;
465          V68= (V69);          V69= CMPcdr((V69));
466          goto T170;          V70= CMPcar((V69));
467          goto T187;          goto T158;}
468  T187:;          goto T154;
469          V85= make_cons((V76),Cnil);  T154:;
470          ((V69))->c.c_cdr = /* INLINE-ARGS */V85;          V67= CMPcdr((V67));
471          V84= (V69);          V68= CMPcar((V67));
472          V69= CMPcdr(V84);}          goto T149;}}
473          goto T170;          goto T145;
474  T170:;  T145:;
475          V72= CMPcdr((V72));          base[4]= make_cons(VV[19],V65);
         V73= CMPcar((V72));  
         goto T165;}  
         goto T161;  
 T161:;  
         V70= CMPcdr((V70));  
         V71= CMPcar((V70));  
         goto T156;}  
         goto T152;  
 T152:;  
         V67= (V68);}  
         base[4]= make_cons(VV[21],V67);  
476          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
477          bds_unwind1;          bds_unwind1;
478          return;          return;
# Line 506  static object LI5(object first,...) Line 483  static object LI5(object first,...)
483  {        {      
484          va_list ap;          va_list ap;
485          int narg = VFUN_NARGS; VMB5 VMS5 VMV5          int narg = VFUN_NARGS; VMB5 VMS5 VMV5
486          {object V86;          {object V81;
487          va_start(ap,first);          va_start(ap,first);
488          narg= narg - 0;          narg= narg - 0;
489          {          {
490          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI5key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI5key,first,ap);
491          V86=(Vcs[0]);          V81=(Vcs[0]);
492          base[0]= VV[26];          base[0]= VV[24];
493          base[1]= (V86);          base[1]= (V81);
494          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
495          siLmake_structure();          siLmake_structure();
496          vs_top=sup;          vs_top=sup;
497          {object V87 = vs_base[0];          {object V82 = vs_base[0];
498          VMR5(V87)}          VMR5(V82)}
499          va_end(ap);          va_end(ap);
500          base[0]=base[0];          base[0]=base[0];
501          return Cnil;}          return Cnil;}
502          }}          }}
503  /*      local entry for function PRINT-DFUN-INFO        */  /*      local entry for function PRINT-DFUN-INFO        */
504    
505  static object LI6(V91,V92,V93)  static object LI6(V86,V87,V88)
506    
507  object V91;register object V92;object V93;  object V86;register object V87;object V88;
508  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
509          goto TTL;          goto TTL;
510  TTL:;  TTL:;
511          base[0]= (V92);          base[0]= (V87);
512          base[1]= VV[27];          base[1]= VV[25];
513          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
514          Lformat();          Lformat();
515          vs_top=sup;          vs_top=sup;
516          base[0]= (V92);          base[0]= (V87);
517          base[1]= VV[28];          base[1]= VV[26];
518          base[3]= (V91);          base[3]= (V86);
519          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
520          Ltype_of();          Ltype_of();
521          vs_top=sup;          vs_top=sup;
# Line 546  TTL:; Line 523  TTL:;
523          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
524          Lformat();          Lformat();
525          vs_top=sup;          vs_top=sup;
526          base[0]= (V92);          base[0]= (V87);
527          base[1]= VV[29];          base[1]= VV[27];
528          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
529          Lformat();          Lformat();
530          vs_top=sup;          vs_top=sup;
531          (void)((*(LnkLI165))((V91),(V92)));          (void)((*(LnkLI181))((V86),(V87)));
532          base[0]= (V92);          base[0]= (V87);
533          base[1]= VV[30];          base[1]= VV[28];
534          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
535          Lformat();          Lformat();
536          vs_top=sup;          vs_top=sup;
537          {object V94 = vs_base[0];          {object V89 = vs_base[0];
538          VMR6(V94)}          VMR6(V89)}
539          base[0]=base[0];          base[0]=base[0];
540          return Cnil;          return Cnil;
541  }  }
# Line 568  static object LI7(object first,...) Line 545  static object LI7(object first,...)
545  {        {      
546          va_list ap;          va_list ap;
547          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
548          {object V95;          {object V90;
549          va_start(ap,first);          va_start(ap,first);
550          narg= narg - 0;          narg= narg - 0;
551          {          {
552          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI7key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI7key,first,ap);
553          V95=(Vcs[0]);          V90=(Vcs[0]);
554          base[0]= VV[31];          base[0]= VV[29];
555          base[1]= (V95);          base[1]= (V90);
556          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
557          siLmake_structure();          siLmake_structure();
558          vs_top=sup;          vs_top=sup;
559          {object V96 = vs_base[0];          {object V91 = vs_base[0];
560          VMR7(V96)}          VMR7(V91)}
561          va_end(ap);          va_end(ap);
562          base[0]=base[0];          base[0]=base[0];
563          return Cnil;}          return Cnil;}
# Line 592  static object LI8() Line 569  static object LI8()
569  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
570          goto TTL;          goto TTL;
571  TTL:;  TTL:;
572          base[0]= VV[31];          base[0]= VV[29];
573          base[1]= Cnil;          base[1]= Cnil;
574          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
575          siLmake_structure();          siLmake_structure();
576          vs_top=sup;          vs_top=sup;
577          {object V98 = vs_base[0];          {object V93 = vs_base[0];
578          VMR8(V98)}          VMR8(V93)}
579          base[0]=base[0];          base[0]=base[0];
580          return Cnil;          return Cnil;
581  }  }
# Line 608  static object LI9(object first,...) Line 585  static object LI9(object first,...)
585  {        {      
586          va_list ap;          va_list ap;
587          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
588          {object V99;          {object V94;
589          va_start(ap,first);          va_start(ap,first);
590          narg= narg - 0;          narg= narg - 0;
591          {          {
592          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI9key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI9key,first,ap);
593          V99=(Vcs[0]);          V94=(Vcs[0]);
594          base[0]= VV[32];          base[0]= VV[30];
595          base[1]= (V99);          base[1]= (V94);
596          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
597          siLmake_structure();          siLmake_structure();
598          vs_top=sup;          vs_top=sup;
599          {object V100 = vs_base[0];          {object V95 = vs_base[0];
600          VMR9(V100)}          VMR9(V95)}
601          va_end(ap);          va_end(ap);
602          base[0]=base[0];          base[0]=base[0];
603          return Cnil;}          return Cnil;}
# Line 632  static object LI10() Line 609  static object LI10()
609  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
610          goto TTL;          goto TTL;
611  TTL:;  TTL:;
612          base[0]= VV[32];          base[0]= VV[30];
613          base[1]= Cnil;          base[1]= Cnil;
614          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
615          siLmake_structure();          siLmake_structure();
616          vs_top=sup;          vs_top=sup;
617          {object V102 = vs_base[0];          {object V97 = vs_base[0];
618          VMR10(V102)}          VMR10(V97)}
619          base[0]=base[0];          base[0]=base[0];
620          return Cnil;          return Cnil;
621  }  }
# Line 648  static object LI11(object first,...) Line 625  static object LI11(object first,...)
625  {        {      
626          va_list ap;          va_list ap;
627          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
628          {object V103;          {object V98;
629          va_start(ap,first);          va_start(ap,first);
630          narg= narg - 0;          narg= narg - 0;
631          {          {
632          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI11key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI11key,first,ap);
633          V103=(Vcs[0]);          V98=(Vcs[0]);
634          base[0]= VV[33];          base[0]= VV[31];
635          base[1]= (V103);          base[1]= (V98);
636          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
637          siLmake_structure();          siLmake_structure();
638          vs_top=sup;          vs_top=sup;
639          {object V104 = vs_base[0];          {object V99 = vs_base[0];
640          VMR11(V104)}          VMR11(V99)}
641          va_end(ap);          va_end(ap);
642          base[0]=base[0];          base[0]=base[0];
643          return Cnil;}          return Cnil;}
# Line 672  static object LI12() Line 649  static object LI12()
649  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
650          goto TTL;          goto TTL;
651  TTL:;  TTL:;
652          base[0]= VV[33];          base[0]= VV[31];
653          base[1]= Cnil;          base[1]= Cnil;
654          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
655          siLmake_structure();          siLmake_structure();
656          vs_top=sup;          vs_top=sup;
657          {object V106 = vs_base[0];          {object V101 = vs_base[0];
658          VMR12(V106)}          VMR12(V101)}
659          base[0]=base[0];          base[0]=base[0];
660          return Cnil;          return Cnil;
661  }  }
# Line 688  static object LI13(object first,...) Line 665  static object LI13(object first,...)
665  {        {      
666          va_list ap;          va_list ap;
667          int narg = VFUN_NARGS; VMB13 VMS13 VMV13          int narg = VFUN_NARGS; VMB13 VMS13 VMV13
668          {object V107;          {object V102;
669          va_start(ap,first);          va_start(ap,first);
670          narg= narg - 0;          narg= narg - 0;
671          {          {
672          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI13key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI13key,first,ap);
673          V107=(Vcs[0]);          V102=(Vcs[0]);
674          base[0]= VV[34];          base[0]= VV[32];
675          base[1]= (V107);          base[1]= (V102);
676          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
677          siLmake_structure();          siLmake_structure();
678          vs_top=sup;          vs_top=sup;
679          {object V108 = vs_base[0];          {object V103 = vs_base[0];
680          VMR13(V108)}          VMR13(V103)}
681          va_end(ap);          va_end(ap);
682          base[0]=base[0];          base[0]=base[0];
683          return Cnil;}          return Cnil;}
# Line 712  static object LI14() Line 689  static object LI14()
689  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
690          goto TTL;          goto TTL;
691  TTL:;  TTL:;
692          base[0]= VV[34];          base[0]= VV[32];
693          base[1]= Cnil;          base[1]= Cnil;
694          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
695          siLmake_structure();          siLmake_structure();
696          vs_top=sup;          vs_top=sup;
697          {object V110 = vs_base[0];          {object V105 = vs_base[0];
698          VMR14(V110)}          VMR14(V105)}
699          base[0]=base[0];          base[0]=base[0];
700          return Cnil;          return Cnil;
701  }  }
# Line 728  static object LI15(object first,...) Line 705  static object LI15(object first,...)
705  {        {      
706          va_list ap;          va_list ap;
707          int narg = VFUN_NARGS; VMB15 VMS15 VMV15          int narg = VFUN_NARGS; VMB15 VMS15 VMV15
708          {object V111;          {object V106;
709          va_start(ap,first);          va_start(ap,first);
710          narg= narg - 0;          narg= narg - 0;
711          {          {
712          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI15key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI15key,first,ap);
713          V111=(Vcs[0]);          V106=(Vcs[0]);
714          base[0]= VV[15];          base[0]= VV[13];
715          base[1]= (V111);          base[1]= (V106);
716          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
717          siLmake_structure();          siLmake_structure();
718          vs_top=sup;          vs_top=sup;
719          {object V112 = vs_base[0];          {object V107 = vs_base[0];
720          VMR15(V112)}          VMR15(V107)}
721          va_end(ap);          va_end(ap);
722          base[0]=base[0];          base[0]=base[0];
723          return Cnil;}          return Cnil;}
# Line 752  static object LI16() Line 729  static object LI16()
729  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
730          goto TTL;          goto TTL;
731  TTL:;  TTL:;
732          base[0]= VV[15];          base[0]= VV[13];
733          base[1]= Cnil;          base[1]= Cnil;
734          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
735          siLmake_structure();          siLmake_structure();
736          vs_top=sup;          vs_top=sup;
737          {object V114 = vs_base[0];          {object V109 = vs_base[0];
738          VMR16(V114)}          VMR16(V109)}
739          base[0]=base[0];          base[0]=base[0];
740          return Cnil;          return Cnil;
741  }  }
# Line 768  static object LI17(object first,...) Line 745  static object LI17(object first,...)
745  {        {      
746          va_list ap;          va_list ap;
747          int narg = VFUN_NARGS; VMB17 VMS17 VMV17          int narg = VFUN_NARGS; VMB17 VMS17 VMV17
748          {object V115;          {object V110;
749          object V116;          object V111;
750          va_start(ap,first);          va_start(ap,first);
751          narg= narg - 0;          narg= narg - 0;
752          {          {
753          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI17key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI17key,first,ap);
754          V115=(Vcs[0]);          V110=(Vcs[0]);
755          V116=(Vcs[1]);          V111=(Vcs[1]);
756          base[0]= VV[35];          base[0]= VV[33];
757          base[1]= (V115);          base[1]= (V110);
758          base[2]= (V116);          base[2]= (V111);
759          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
760          siLmake_structure();          siLmake_structure();
761          vs_top=sup;          vs_top=sup;
762          {object V117 = vs_base[0];          {object V112 = vs_base[0];
763          VMR17(V117)}          VMR17(V112)}
764          va_end(ap);          va_end(ap);
765          base[0]=base[0];          base[0]=base[0];
766          return Cnil;}          return Cnil;}
# Line 796  static void L18() Line 773  static void L18()
773          vs_check;          vs_check;
774          check_arg(2);          check_arg(2);
775          vs_top=sup;          vs_top=sup;
776          {object V118=base[0]->c.c_cdr;          {object V113=base[0]->c.c_cdr;
777          if(endp(V118))invalid_macro_call();          if(endp(V113))invalid_macro_call();
778          base[2]= (V118->c.c_car);          base[2]= (V113->c.c_car);
779          V118=V118->c.c_cdr;          V113=V113->c.c_cdr;
780          if(!endp(V118))invalid_macro_call();}          if(!endp(V113))invalid_macro_call();}
781          base[3]= list(2,VV[36],base[2]);          base[3]= list(2,VV[34],base[2]);
782          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
783          return;          return;
784  }  }
# Line 811  static object LI19(object first,...) Line 788  static object LI19(object first,...)
788  {        {      
789          va_list ap;          va_list ap;
790          int narg = VFUN_NARGS; VMB19 VMS19 VMV19          int narg = VFUN_NARGS; VMB19 VMS19 VMV19
791          {object V119;          {object V114;
792          object V120;          object V115;
793          object V121;          object V116;
794          va_start(ap,first);          va_start(ap,first);
795          narg= narg - 0;          narg= narg - 0;
796          {          {
797          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI19key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI19key,first,ap);
798          V119=(Vcs[0]);          V114=(Vcs[0]);
799          V120=(Vcs[1]);          V115=(Vcs[1]);
800          V121=(Vcs[2]);          V116=(Vcs[2]);
801          base[0]= VV[37];          base[0]= VV[35];
802          base[1]= (V119);          base[1]= (V114);
803          base[2]= (V120);          base[2]= (V115);
804          base[3]= (V121);          base[3]= (V116);
805          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
806          siLmake_structure();          siLmake_structure();
807          vs_top=sup;          vs_top=sup;
808          {object V122 = vs_base[0];          {object V117 = vs_base[0];
809          VMR19(V122)}          VMR19(V117)}
810          va_end(ap);          va_end(ap);
811          base[0]=base[0];          base[0]=base[0];
812          return Cnil;}          return Cnil;}
# Line 842  static void L20() Line 819  static void L20()
819          vs_check;          vs_check;
820          check_arg(2);          check_arg(2);
821          vs_top=sup;          vs_top=sup;
822          {object V123=base[0]->c.c_cdr;          {object V118=base[0]->c.c_cdr;
823          if(endp(V123))invalid_macro_call();          if(endp(V118))invalid_macro_call();
824          base[2]= (V123->c.c_car);          base[2]= (V118->c.c_car);
825          V123=V123->c.c_cdr;          V118=V118->c.c_cdr;
826          if(!endp(V123))invalid_macro_call();}          if(!endp(V118))invalid_macro_call();}
827          base[3]= list(2,VV[38],base[2]);          base[3]= list(2,VV[36],base[2]);
828          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
829          return;          return;
830  }  }
# Line 857  static object LI21(object first,...) Line 834  static object LI21(object first,...)
834  {        {      
835          va_list ap;          va_list ap;
836          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB21 VMS21 VMV21
837          {object V124;          {object V119;
838          object V125;          object V120;
839          va_start(ap,first);          va_start(ap,first);
840          narg= narg - 0;          narg= narg - 0;
841          {          {
842          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI21key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI21key,first,ap);
843          V124=(Vcs[0]);          V119=(Vcs[0]);
844          V125=(Vcs[1]);          V120=(Vcs[1]);
845          base[0]= VV[39];          base[0]= VV[37];
846          base[1]= (V124);          base[1]= (V119);
847          base[2]= (V125);          base[2]= (V120);
848          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
849          siLmake_structure();          siLmake_structure();
850          vs_top=sup;          vs_top=sup;
851          {object V126 = vs_base[0];          {object V121 = vs_base[0];
852          VMR21(V126)}          VMR21(V121)}
853          va_end(ap);          va_end(ap);
854          base[0]=base[0];          base[0]=base[0];
855          return Cnil;}          return Cnil;}
856          }}          }}
857  /*      local entry for function N-N-DFUN-INFO  */  /*      local entry for function N-N-DFUN-INFO  */
858    
859  static object LI22(V129,V130)  static object LI22(V124,V125)
860    
861  object V129;object V130;  object V124;object V125;
862  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
863          goto TTL;          goto TTL;
864  TTL:;  TTL:;
865          base[0]= VV[39];          base[0]= VV[37];
866          base[1]= (V130);          base[1]= (V125);
867          base[2]= (V129);          base[2]= (V124);
868          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
869          siLmake_structure();          siLmake_structure();
870          vs_top=sup;          vs_top=sup;
871          {object V131 = vs_base[0];          {object V126 = vs_base[0];
872          VMR22(V131)}          VMR22(V126)}
873          base[0]=base[0];          base[0]=base[0];
874          return Cnil;          return Cnil;
875  }  }
# Line 902  static object LI23(object first,...) Line 879  static object LI23(object first,...)
879  {        {      
880          va_list ap;          va_list ap;
881          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
882          {object V132;          {object V127;
883          object V133;          object V128;
884          object V134;          object V129;
885          object V135;          object V130;
886          va_start(ap,first);          va_start(ap,first);
887          narg= narg - 0;          narg= narg - 0;
888          {          {
889          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap);
890          V132=(Vcs[0]);          V127=(Vcs[0]);
891          V133=(Vcs[1]);          V128=(Vcs[1]);
892          V134=(Vcs[2]);          V129=(Vcs[2]);
893          V135=(Vcs[3]);          V130=(Vcs[3]);
894          base[0]= VV[40];          base[0]= VV[38];
895          base[1]= (V132);          base[1]= (V127);
896          base[2]= (V133);          base[2]= (V128);
897          base[3]= (V134);          base[3]= (V129);
898          base[4]= (V135);          base[4]= (V130);
899          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
900          siLmake_structure();          siLmake_structure();
901          vs_top=sup;          vs_top=sup;
902          {object V136 = vs_base[0];          {object V131 = vs_base[0];
903          VMR23(V136)}          VMR23(V131)}
904          va_end(ap);          va_end(ap);
905          base[0]=base[0];          base[0]=base[0];
906          return Cnil;}          return Cnil;}
907          }}          }}
908  /*      local entry for function ONE-CLASS-DFUN-INFO    */  /*      local entry for function ONE-CLASS-DFUN-INFO    */
909    
910  static object LI24(V140,V141,V142)  static object LI24(V135,V136,V137)
911    
912  object V140;object V141;object V142;  object V135;object V136;object V137;
913  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
914          goto TTL;          goto TTL;
915  TTL:;  TTL:;
916          base[0]= VV[40];          base[0]= VV[38];
917          base[1]= Cnil;          base[1]= Cnil;
918          base[2]= (V140);          base[2]= (V135);
919          base[3]= (V141);          base[3]= (V136);
920          base[4]= (V142);          base[4]= (V137);
921          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
922          siLmake_structure();          siLmake_structure();
923          vs_top=sup;          vs_top=sup;
924          {object V144 = vs_base[0];          {object V139 = vs_base[0];
925          VMR24(V144)}          VMR24(V139)}
926          base[0]=base[0];          base[0]=base[0];
927          return Cnil;          return Cnil;
928  }  }
# Line 957  static void L25() Line 934  static void L25()
934          vs_check;          vs_check;
935          check_arg(2);          check_arg(2);
936          vs_top=sup;          vs_top=sup;
937          {object V145=base[0]->c.c_cdr;          {object V140=base[0]->c.c_cdr;
938          if(endp(V145))invalid_macro_call();          if(endp(V140))invalid_macro_call();
939          base[2]= (V145->c.c_car);          base[2]= (V140->c.c_car);
940          V145=V145->c.c_cdr;          V140=V140->c.c_cdr;
941          if(!endp(V145))invalid_macro_call();}          if(!endp(V140))invalid_macro_call();}
942          base[3]= list(2,VV[41],base[2]);          base[3]= list(2,VV[39],base[2]);
943          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
944          return;          return;
945  }  }
# Line 972  static object LI26(object first,...) Line 949  static object LI26(object first,...)
949  {        {      
950          va_list ap;          va_list ap;
951          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
952          {object V146;          {object V141;
953          object V147;          object V142;
954          object V148;          object V143;
955          object V149;          object V144;
956          object V150;          object V145;
957          va_start(ap,first);          va_start(ap,first);
958          narg= narg - 0;          narg= narg - 0;
959          {          {
960          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap);
961          V146=(Vcs[0]);          V141=(Vcs[0]);
962          V147=(Vcs[1]);          V142=(Vcs[1]);
963          V148=(Vcs[2]);          V143=(Vcs[2]);
964          V149=(Vcs[3]);          V144=(Vcs[3]);
965          V150=(Vcs[4]);          V145=(Vcs[4]);
966          base[0]= VV[42];          base[0]= VV[40];
967          base[1]= (V146);          base[1]= (V141);
968          base[2]= (V147);          base[2]= (V142);
969          base[3]= (V148);          base[3]= (V143);
970          base[4]= (V149);          base[4]= (V144);
971          base[5]= (V150);          base[5]= (V145);
972          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
973          siLmake_structure();          siLmake_structure();
974          vs_top=sup;          vs_top=sup;
975          {object V151 = vs_base[0];          {object V146 = vs_base[0];
976          VMR26(V151)}          VMR26(V146)}
977          va_end(ap);          va_end(ap);
978          base[0]=base[0];          base[0]=base[0];
979          return Cnil;}          return Cnil;}
980          }}          }}
981  /*      local entry for function TWO-CLASS-DFUN-INFO    */  /*      local entry for function TWO-CLASS-DFUN-INFO    */
982    
983  static object LI27(V156,V157,V158,V159)  static object LI27(V151,V152,V153,V154)
984    
985  object V156;object V157;object V158;object V159;  object V151;object V152;object V153;object V154;
986  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
987          goto TTL;          goto TTL;
988  TTL:;  TTL:;
989          base[0]= VV[42];          base[0]= VV[40];
990          base[1]= Cnil;          base[1]= Cnil;
991          base[2]= (V156);          base[2]= (V151);
992          base[3]= (V157);          base[3]= (V152);
993          base[4]= (V158);          base[4]= (V153);
994          base[5]= (V159);          base[5]= (V154);
995          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
996          siLmake_structure();          siLmake_structure();
997          vs_top=sup;          vs_top=sup;
998          {object V161 = vs_base[0];          {object V156 = vs_base[0];
999          VMR27(V161)}          VMR27(V156)}
1000          base[0]=base[0];          base[0]=base[0];
1001          return Cnil;          return Cnil;
1002  }  }
# Line 1031  static void L28() Line 1008  static void L28()
1008          vs_check;          vs_check;
1009          check_arg(2);          check_arg(2);
1010          vs_top=sup;          vs_top=sup;
1011          {object V162=base[0]->c.c_cdr;          {object V157=base[0]->c.c_cdr;
1012          if(endp(V162))invalid_macro_call();          if(endp(V157))invalid_macro_call();
1013          base[2]= (V162->c.c_car);          base[2]= (V157->c.c_car);
1014          V162=V162->c.c_cdr;          V157=V157->c.c_cdr;
1015          if(!endp(V162))invalid_macro_call();}          if(!endp(V157))invalid_macro_call();}
1016          base[3]= list(2,VV[43],base[2]);          base[3]= list(2,VV[41],base[2]);
1017          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1018          return;          return;
1019  }  }
# Line 1046  static object LI29(object first,...) Line 1023  static object LI29(object first,...)
1023  {        {      
1024          va_list ap;          va_list ap;
1025          int narg = VFUN_NARGS; VMB29 VMS29 VMV29          int narg = VFUN_NARGS; VMB29 VMS29 VMV29
1026          {object V163;          {object V158;
1027          object V164;          object V159;
1028          object V165;          object V160;
1029          va_start(ap,first);          va_start(ap,first);
1030          narg= narg - 0;          narg= narg - 0;
1031          {          {
1032          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI29key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI29key,first,ap);
1033          V163=(Vcs[0]);          V158=(Vcs[0]);
1034          V164=(Vcs[1]);          V159=(Vcs[1]);
1035          V165=(Vcs[2]);          V160=(Vcs[2]);
1036          base[0]= VV[44];          base[0]= VV[42];
1037          base[1]= (V163);          base[1]= (V158);
1038          base[2]= (V164);          base[2]= (V159);
1039          base[3]= (V165);          base[3]= (V160);
1040          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1041          siLmake_structure();          siLmake_structure();
1042          vs_top=sup;          vs_top=sup;
1043          {object V166 = vs_base[0];          {object V161 = vs_base[0];
1044          VMR29(V166)}          VMR29(V161)}
1045          va_end(ap);          va_end(ap);
1046          base[0]=base[0];          base[0]=base[0];
1047          return Cnil;}          return Cnil;}
1048          }}          }}
1049  /*      local entry for function ONE-INDEX-DFUN-INFO    */  /*      local entry for function ONE-INDEX-DFUN-INFO    */
1050    
1051  static object LI30(V170,V171,V172)  static object LI30(V165,V166,V167)
1052    
1053  object V170;object V171;object V172;  object V165;object V166;object V167;
1054  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1055          goto TTL;          goto TTL;
1056  TTL:;  TTL:;
1057          base[0]= VV[44];          base[0]= VV[42];
1058          base[1]= (V172);          base[1]= (V167);
1059          base[2]= (V170);          base[2]= (V165);
1060          base[3]= (V171);          base[3]= (V166);
1061          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1062          siLmake_structure();          siLmake_structure();
1063          vs_top=sup;          vs_top=sup;
1064          {object V173 = vs_base[0];          {object V168 = vs_base[0];
1065          VMR30(V173)}          VMR30(V168)}
1066          base[0]=base[0];          base[0]=base[0];
1067          return Cnil;          return Cnil;
1068  }  }
# Line 1095  static object LI31(object first,...) Line 1072  static object LI31(object first,...)
1072  {        {      
1073          va_list ap;          va_list ap;
1074          int narg = VFUN_NARGS; VMB31 VMS31 VMV31          int narg = VFUN_NARGS; VMB31 VMS31 VMV31
1075          {object V174;          {object V169;
1076          object V175;          object V170;
1077          va_start(ap,first);          va_start(ap,first);
1078          narg= narg - 0;          narg= narg - 0;
1079          {          {
1080          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI31key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI31key,first,ap);
1081          V174=(Vcs[0]);          V169=(Vcs[0]);
1082          V175=(Vcs[1]);          V170=(Vcs[1]);
1083          base[0]= VV[12];          base[0]= VV[10];
1084          base[1]= (V174);          base[1]= (V169);
1085          base[2]= (V175);          base[2]= (V170);
1086          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1087          siLmake_structure();          siLmake_structure();
1088          vs_top=sup;          vs_top=sup;
1089          {object V176 = vs_base[0];          {object V171 = vs_base[0];
1090          VMR31(V176)}          VMR31(V171)}
1091          va_end(ap);          va_end(ap);
1092          base[0]=base[0];          base[0]=base[0];
1093          return Cnil;}          return Cnil;}
1094          }}          }}
1095  /*      local entry for function CHECKING-DFUN-INFO     */  /*      local entry for function CHECKING-DFUN-INFO     */
1096    
1097  static object LI32(V179,V180)  static object LI32(V174,V175)
1098    
1099  object V179;object V180;  object V174;object V175;
1100  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1101          goto TTL;          goto TTL;
1102  TTL:;  TTL:;
1103          base[0]= VV[12];          base[0]= VV[10];
1104          base[1]= (V180);          base[1]= (V175);
1105          base[2]= (V179);          base[2]= (V174);
1106          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1107          siLmake_structure();          siLmake_structure();
1108          vs_top=sup;          vs_top=sup;
1109          {object V181 = vs_base[0];          {object V176 = vs_base[0];
1110          VMR32(V181)}          VMR32(V176)}
1111          base[0]=base[0];          base[0]=base[0];
1112          return Cnil;          return Cnil;
1113  }  }
# Line 1142  static void L33() Line 1119  static void L33()
1119          vs_check;          vs_check;
1120          check_arg(2);          check_arg(2);
1121          vs_top=sup;          vs_top=sup;
1122          {object V182=base[0]->c.c_cdr;          {object V177=base[0]->c.c_cdr;
1123          if(endp(V182))invalid_macro_call();          if(endp(V177))invalid_macro_call();
1124          base[2]= (V182->c.c_car);          base[2]= (V177->c.c_car);
1125          V182=V182->c.c_cdr;          V177=V177->c.c_cdr;
1126          if(!endp(V182))invalid_macro_call();}          if(!endp(V177))invalid_macro_call();}
1127          base[3]= list(2,VV[45],base[2]);          base[3]= list(2,VV[43],base[2]);
1128          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1129          return;          return;
1130  }  }
# Line 1157  static object LI34(object first,...) Line 1134  static object LI34(object first,...)
1134  {        {      
1135          va_list ap;          va_list ap;
1136          int narg = VFUN_NARGS; VMB34 VMS34 VMV34          int narg = VFUN_NARGS; VMB34 VMS34 VMV34
1137          {object V183;          {object V178;
1138          va_start(ap,first);          va_start(ap,first);
1139          narg= narg - 0;          narg= narg - 0;
1140          {          {
1141          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI34key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI34key,first,ap);
1142          V183=(Vcs[0]);          V178=(Vcs[0]);
1143          base[0]= VV[13];          base[0]= VV[11];
1144          base[1]= (V183);          base[1]= (V178);
1145          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1146          siLmake_structure();          siLmake_structure();
1147          vs_top=sup;          vs_top=sup;
1148          {object V184 = vs_base[0];          {object V179 = vs_base[0];
1149          VMR34(V184)}          VMR34(V179)}
1150          va_end(ap);          va_end(ap);
1151          base[0]=base[0];          base[0]=base[0];
1152          return Cnil;}          return Cnil;}
1153          }}          }}
1154  /*      local entry for function CACHING-DFUN-INFO      */  /*      local entry for function CACHING-DFUN-INFO      */
1155    
1156  static object LI35(V186)  static object LI35(V181)
1157    
1158  object V186;  object V181;
1159  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
1160          goto TTL;          goto TTL;
1161  TTL:;  TTL:;
1162          base[0]= VV[13];          base[0]= VV[11];
1163          base[1]= (V186);          base[1]= (V181);
1164          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1165          siLmake_structure();          siLmake_structure();
1166          vs_top=sup;          vs_top=sup;
1167          {object V187 = vs_base[0];          {object V182 = vs_base[0];
1168          VMR35(V187)}          VMR35(V182)}
1169          base[0]=base[0];          base[0]=base[0];
1170          return Cnil;          return Cnil;
1171  }  }
# Line 1198  static object LI36(object first,...) Line 1175  static object LI36(object first,...)
1175  {        {      
1176          va_list ap;          va_list ap;
1177          int narg = VFUN_NARGS; VMB36 VMS36 VMV36          int narg = VFUN_NARGS; VMB36 VMS36 VMV36
1178          {object V188;          {object V183;
1179          va_start(ap,first);          va_start(ap,first);
1180          narg= narg - 0;          narg= narg - 0;
1181          {          {
1182          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI36key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI36key,first,ap);
1183          V188=(Vcs[0]);          V183=(Vcs[0]);
1184          base[0]= VV[14];          base[0]= VV[12];
1185          base[1]= (V188);          base[1]= (V183);
1186          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1187          siLmake_structure();          siLmake_structure();
1188          vs_top=sup;          vs_top=sup;
1189          {object V189 = vs_base[0];          {object V184 = vs_base[0];
1190          VMR36(V189)}          VMR36(V184)}
1191          va_end(ap);          va_end(ap);
1192          base[0]=base[0];          base[0]=base[0];
1193          return Cnil;}          return Cnil;}
1194          }}          }}
1195  /*      local entry for function CONSTANT-VALUE-DFUN-INFO       */  /*      local entry for function CONSTANT-VALUE-DFUN-INFO       */
1196    
1197  static object LI37(V191)  static object LI37(V186)
1198    
1199  object V191;  object V186;
1200  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
1201          goto TTL;          goto TTL;
1202  TTL:;  TTL:;
1203          base[0]= VV[14];          base[0]= VV[12];
1204          base[1]= (V191);          base[1]= (V186);
1205          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1206          siLmake_structure();          siLmake_structure();
1207          vs_top=sup;          vs_top=sup;
1208          {object V192 = vs_base[0];          {object V187 = vs_base[0];
1209          VMR37(V192)}          VMR37(V187)}
1210          base[0]=base[0];          base[0]=base[0];
1211          return Cnil;          return Cnil;
1212  }  }
# Line 1241  static void L38() Line 1218  static void L38()
1218          vs_check;          vs_check;
1219          check_arg(2);          check_arg(2);
1220          vs_top=sup;          vs_top=sup;
1221          {object V193=base[0]->c.c_cdr;          {object V188=base[0]->c.c_cdr;
1222          if(endp(V193))invalid_macro_call();          if(endp(V188))invalid_macro_call();
1223          base[2]= (V193->c.c_car);          base[2]= (V188->c.c_car);
1224          V193=V193->c.c_cdr;          V188=V188->c.c_cdr;
1225          if(endp(V193))invalid_macro_call();          if(endp(V188))invalid_macro_call();
1226          base[3]= (V193->c.c_car);          base[3]= (V188->c.c_car);
1227          V193=V193->c.c_cdr;          V188=V188->c.c_cdr;
1228          base[4]= V193;}          base[4]= V188;}
1229          V194= listA(4,VV[48],base[3],base[2],base[4]);          V189= listA(4,VV[46],base[3],base[2],base[4]);
1230          base[5]= list(4,VV[46],VV[47],/* INLINE-ARGS */V194,listA(3,VV[49],base[2],VV[50]));          base[5]= list(4,VV[44],VV[45],/* INLINE-ARGS */V189,listA(3,VV[47],base[2],VV[48]));
1231          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1232          return;          return;
1233  }  }
1234  /*      local entry for function ACCESSOR-MISS-FUNCTION */  /*      local entry for function ACCESSOR-MISS-FUNCTION */
1235    
1236  static object LI40(V197,V198)  static object LI40(V192,V193)
1237    
1238  object V197;object V198;  object V192;object V193;
1239  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
1240          goto TTL;          goto TTL;
1241  TTL:;  TTL:;
1242          base[0]=MMcons((V198),Cnil);          base[0]=MMcons((V193),Cnil);
1243          base[1]=MMcons((V197),base[0]);          base[1]=MMcons((V192),base[0]);
1244          {object V199= STREF(object,(base[0]->c.c_car),4);          {object V194;
1245          if((V199!= VV[51]))goto T296;          V194= STREF(object,(base[0]->c.c_car),4);
1246          {object V200 =          {object V195= (V194);
1247            if((V195!= VV[59]))goto T284;
1248            {object V196 =
1249          make_cclosure_new(LC139,Cnil,base[1],Cdata);          make_cclosure_new(LC139,Cnil,base[1],Cdata);
1250          VMR39(V200)}          VMR39(V196)}
1251          goto T296;          goto T284;
1252  T296:;  T284:;
1253          if((V199!= VV[123]))goto T297;          if((V195!= VV[133]))goto T285;
1254          {object V201 =          {object V197 =
1255          make_cclosure_new(LC140,Cnil,base[1],Cdata);          make_cclosure_new(LC140,Cnil,base[1],Cdata);
1256          VMR39(V201)}          VMR39(V197)}
1257          goto T297;          goto T285;
1258  T297:;  T285:;
1259          FEerror("The ECASE key value ~s is illegal.",1,V199);          base[2]= VV[49];
1260          {object V202 = Cnil;          base[3]= VV[50];
1261          VMR39(V202)}}          base[4]= VV[51];
1262            base[5]= VV[52];
1263            base[6]= (V194);
1264            base[7]= VV[53];
1265            base[8]= VV[57];
1266            base[9]= VV[55];
1267            base[10]= VV[58];
1268            vs_top=(vs_base=base+2)+9;
1269            (void) (*Lnk187)();
1270            vs_top=sup;
1271            {object V198 = vs_base[0];
1272            VMR39(V198)}}}
1273          base[0]=base[0];          base[0]=base[0];
1274          return Cnil;          return Cnil;
1275  }  }
# Line 1289  static void L41() Line 1279  static void L41()
1279  {register object *base=vs_base;  {register object *base=vs_base;
1280          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
1281          vs_check;          vs_check;
1282          {object V203;          {object V199;
1283          object V204;          object V200;
1284          object V205;          object V201;
1285          object V206;          object V202;
1286          check_arg(4);          check_arg(4);
1287          V203=(base[0]);          V199=(base[0]);
1288          V204=(base[1]);          V200=(base[1]);
1289          V205=(base[2]);          V201=(base[2]);
1290          V206=(base[3]);          V202=(base[3]);
1291          vs_top=sup;          vs_top=sup;
1292          goto TTL;          goto TTL;
1293  TTL:;  TTL:;
1294          {object V207;          {object V203;
1295          object V208;          object V204;
1296          if(!(((V204))==(VV[51]))){          if(!(((V200))==(VV[59]))){
1297          goto T300;}          goto T297;}
1298          V207= VV[52];          V203= VV[60];
1299          goto T298;          goto T295;
1300          goto T300;          goto T297;
1301  T300:;  T297:;
1302          V207= VV[53];          V203= VV[61];
1303          goto T298;          goto T295;
1304  T298:;  T295:;
1305          V208= (*(LnkLI171))((V204),(V206),(V205));          V204= (*(LnkLI188))((V200),(V202),(V201));
1306          base[6]= (V207);          base[6]= (V203);
1307          base[7]= (type_of((V206))==t_cons?Ct:Cnil);          base[7]= (type_of((V202))==t_cons?Ct:Cnil);
1308          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1309          (void) (*Lnk172)();          (void) (*Lnk189)();
1310          vs_top=sup;          vs_top=sup;
1311          base[5]= vs_base[0];          base[5]= vs_base[0];
1312          base[6]= (V205);          base[6]= (V201);
1313          base[7]= (V206);          base[7]= (V202);
1314          base[8]= (*(LnkLI173))((V203),(V208));          base[8]= (*(LnkLI190))((V199),(V204));
1315          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1316          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1317                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1330  T298:; Line 1320  T298:;
1320          vs_top=sup;          vs_top=sup;
1321          base[4]= vs_base[0];          base[4]= vs_base[0];
1322          base[5]= Cnil;          base[5]= Cnil;
1323          base[6]= (V208);          base[6]= (V204);
1324          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1325          return;}          return;}
1326          }          }
# Line 1341  static void L42() Line 1331  static void L42()
1331  {register object *base=vs_base;  {register object *base=vs_base;
1332          register object *sup=base+VM41; VC41          register object *sup=base+VM41; VC41
1333          vs_check;          vs_check;
1334          {object V209;          {object V205;
1335          object V210;          object V206;
1336          object V211;          object V207;
1337          object V212;          object V208;
1338          object V213;          object V209;
1339          check_arg(5);          check_arg(5);
1340          V209=(base[0]);          V205=(base[0]);
1341          V210=(base[1]);          V206=(base[1]);
1342          V211=(base[2]);          V207=(base[2]);
1343          V212=(base[3]);          V208=(base[3]);
1344          V213=(base[4]);          V209=(base[4]);
1345          vs_top=sup;          vs_top=sup;
1346          goto TTL;          goto TTL;
1347  TTL:;  TTL:;
1348          {object V214;          {object V210;
1349          object V215;          object V211;
1350          if(!(((V210))==(VV[51]))){          if(!(((V206))==(VV[59]))){
1351          goto T314;}          goto T311;}
1352          V214= VV[54];          V210= VV[62];
1353          goto T312;          goto T309;
1354          goto T314;          goto T311;
1355  T314:;  T311:;
1356          V214= VV[55];          V210= VV[63];
1357          goto T312;          goto T309;
1358  T312:;  T309:;
1359          V215= (*(LnkLI174))((V210),(V213),(V211),(V212));          V211= (*(LnkLI191))((V206),(V209),(V207),(V208));
1360          base[7]= (V214);          base[7]= (V210);
1361          base[8]= (type_of((V213))==t_cons?Ct:Cnil);          base[8]= (type_of((V209))==t_cons?Ct:Cnil);
1362          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
1363          (void) (*Lnk172)();          (void) (*Lnk189)();
1364          vs_top=sup;          vs_top=sup;
1365          base[6]= vs_base[0];          base[6]= vs_base[0];
1366          base[7]= (V211);          base[7]= (V207);
1367          base[8]= (V212);          base[8]= (V208);
1368          base[9]= (V213);          base[9]= (V209);
1369          base[10]= (*(LnkLI173))((V209),(V215));          base[10]= (*(LnkLI190))((V205),(V211));
1370          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+7)+4;
1371          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1372                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1385  T312:; Line 1375  T312:;
1375          vs_top=sup;          vs_top=sup;
1376          base[5]= vs_base[0];          base[5]= vs_base[0];
1377          base[6]= Cnil;          base[6]= Cnil;
1378          base[7]= (V215);          base[7]= (V211);
1379          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1380          return;}          return;}
1381          }          }
# Line 1396  static void L43() Line 1386  static void L43()
1386  {register object *base=vs_base;  {register object *base=vs_base;
1387          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
1388          vs_check;          vs_check;
1389          {object V216;          {object V212;
1390          object V217;          object V213;
1391          object V218;          object V214;
1392          object V219;          object V215;
1393          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
1394          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
1395          V216=(base[0]);          V212=(base[0]);
1396          V217=(base[1]);          V213=(base[1]);
1397          V218=(base[2]);          V214=(base[2]);
1398          vs_base=vs_base+3;          vs_base=vs_base+3;
1399          if(vs_base>=vs_top){vs_top=sup;goto T327;}          if(vs_base>=vs_top){vs_top=sup;goto T324;}
1400          V219=(base[3]);          V215=(base[3]);
1401          vs_top=sup;          vs_top=sup;
1402          goto T328;          goto T325;
1403            goto T324;
1404    T324:;
1405            V215= Cnil;
1406            goto T325;
1407    T325:;
1408            {object V216;
1409            object V217;
1410            object V218;
1411            if(!(((V213))==(VV[59]))){
1412            goto T329;}
1413            V216= VV[64];
1414            goto T327;
1415            goto T329;
1416    T329:;
1417            V216= VV[65];
1418          goto T327;          goto T327;
1419  T327:;  T327:;
1420          V219= Cnil;          if((V215)!=Cnil){
1421          goto T328;          V217= (V215);
1422  T328:;          goto T331;}
1423          {object V220;          V219= (VV[193]->s.s_gfdef);
1424          object V221;          V217= (*(LnkLI192))(small_fixnum(1),Cnil,V219,4);
1425          object V222;          goto T331;
1426          if(!(((V217))==(VV[51]))){  T331:;
1427          goto T332;}          V218= (*(LnkLI35))((V213),(V214),(V217));
1428          V220= VV[56];          base[9]= (V216);
1429          goto T330;          base[10]= (type_of((V214))==t_cons?Ct:Cnil);
         goto T332;  
 T332:;  
         V220= VV[57];  
         goto T330;  
 T330:;  
         if((V219)!=Cnil){  
         V221= (V219);  
         goto T334;}  
         V223= (VV[176]->s.s_gfdef);  
         V221= (*(LnkLI175))(small_fixnum(1),Cnil,V223,4);  
         goto T334;  
 T334:;  
         V222= (*(LnkLI37))((V217),(V218),(V221));  
         base[9]= (V220);  
         base[10]= (type_of((V218))==t_cons?Ct:Cnil);  
1430          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
1431          (void) (*Lnk172)();          (void) (*Lnk189)();
1432          vs_top=sup;          vs_top=sup;
1433          base[8]= vs_base[0];          base[8]= vs_base[0];
1434          base[9]= (V221);          base[9]= (V217);
1435          base[10]= (V218);          base[10]= (V214);
1436          base[11]= (*(LnkLI173))((V216),(V222));          base[11]= (*(LnkLI190))((V212),(V218));
1437          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
1438          {object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1439                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1451  T334:; Line 1441  T334:;
1441                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1442          vs_top=sup;          vs_top=sup;
1443          base[7]= vs_base[0];          base[7]= vs_base[0];
1444          base[8]= (V221);          base[8]= (V217);
1445          base[9]= (V222);          base[9]= (V218);
1446          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1447          return;}          return;}
1448          }          }
# Line 1463  static void L44() Line 1453  static void L44()
1453  {register object *base=vs_base;  {register object *base=vs_base;
1454          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
1455          vs_check;          vs_check;
1456          {object V224;          {object V220;
1457          object V225;          object V221;
1458          object V226;          object V222;
1459          object V227;          object V223;
1460          check_arg(4);          check_arg(4);
1461          V224=(base[0]);          V220=(base[0]);
1462          V225=(base[1]);          V221=(base[1]);
1463          V226=(base[2]);          V222=(base[2]);
1464          V227=(base[3]);          V223=(base[3]);
1465          vs_top=sup;          vs_top=sup;
1466          goto TTL;          goto TTL;
1467  TTL:;  TTL:;
1468          {object V228;          {object V224;
1469          V229 = (V227);          V225= (VV[193]->s.s_gfdef);
1470          V230= (VV[176]->s.s_gfdef);          V224= (VFUN_NARGS=4,(*(LnkLI194))((V223),Cnil,small_fixnum(1),V225));
1471          V228= (VFUN_NARGS=4,(*(LnkLI177))(V229,Cnil,small_fixnum(1),V230));          base[4]= (V220);
1472          base[4]= (V224);          base[5]= (V221);
1473          base[5]= (V225);          base[6]= (V222);
1474          base[6]= (V226);          base[7]= (V224);
         base[7]= (V228);  
1475          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1476          (void) (*Lnk178)();          (void) (*Lnk195)();
1477          return;}          return;}
1478          }          }
1479  }  }
1480  /*      local entry for function ONE-INDEX-LIMIT-FN     */  /*      local entry for function ONE-INDEX-LIMIT-FN     */
1481    
1482  static object LI45(V232)  static object LI45(V227)
1483    
1484  object V232;  object V227;
1485  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
1486          goto TTL;          goto TTL;
1487  TTL:;  TTL:;
1488          {long V233 = (long)(*(LnkLI179))((V232));          {long V228 = (long)(*(LnkLI196))((V227));
1489          VMR44((object)V233)}          VMR44((object)V228)}
1490  }  }
1491  /*      function definition for MAKE-N-N-ACCESSOR-DFUN  */  /*      function definition for MAKE-N-N-ACCESSOR-DFUN  */
1492    
# Line 1505  static void L46() Line 1494  static void L46()
1494  {register object *base=vs_base;  {register object *base=vs_base;
1495          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
1496          vs_check;          vs_check;
1497          {object V234;          {object V229;
1498          object V235;          object V230;
1499          object V236;          object V231;
1500          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1501          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1502          V234=(base[0]);          V229=(base[0]);
1503          V235=(base[1]);          V230=(base[1]);
1504          vs_base=vs_base+2;          vs_base=vs_base+2;
1505          if(vs_base>=vs_top){vs_top=sup;goto T352;}          if(vs_base>=vs_top){vs_top=sup;goto T349;}
1506          V236=(base[2]);          V231=(base[2]);
1507          vs_top=sup;          vs_top=sup;
1508          goto T353;          goto T350;
1509            goto T349;
1510    T349:;
1511            V231= Cnil;
1512            goto T350;
1513    T350:;
1514            {object V232;
1515            object V233;
1516            object V234;
1517            if(!(((V230))==(VV[59]))){
1518            goto T354;}
1519            V232= VV[66];
1520            goto T352;
1521            goto T354;
1522    T354:;
1523            V232= VV[67];
1524          goto T352;          goto T352;
1525  T352:;  T352:;
1526          V236= Cnil;          if((V231)!=Cnil){
1527          goto T353;          V233= (V231);
1528  T353:;          goto T356;}
1529          {object V237;          V235= (VV[197]->s.s_gfdef);
1530          object V238;          V233= (*(LnkLI192))(small_fixnum(1),Ct,V235,2);
1531          object V239;          goto T356;
1532          if(!(((V235))==(VV[51]))){  T356:;
1533          goto T357;}          V234= (*(LnkLI198))((V230),(V233));
1534          V237= VV[58];          base[8]= (V232);
         goto T355;  
         goto T357;  
 T357:;  
         V237= VV[59];  
         goto T355;  
 T355:;  
         if((V236)!=Cnil){  
         V238= (V236);  
         goto T359;}  
         V240= (VV[180]->s.s_gfdef);  
         V238= (*(LnkLI175))(small_fixnum(1),Ct,V240,2);  
         goto T359;  
 T359:;  
         V239= (*(LnkLI181))((V235),(V238));  
         base[8]= (V237);  
1535          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1536          (void) (*Lnk172)();          (void) (*Lnk189)();
1537          vs_top=sup;          vs_top=sup;
1538          base[7]= vs_base[0];          base[7]= vs_base[0];
1539          base[8]= (V238);          base[8]= (V233);
1540          base[9]= (*(LnkLI173))((V234),(V239));          base[9]= (*(LnkLI190))((V229),(V234));
1541          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
1542          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1543                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1556  T359:; Line 1545  T359:;
1545                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1546          vs_top=sup;          vs_top=sup;
1547          base[6]= vs_base[0];          base[6]= vs_base[0];
1548          base[7]= (V238);          base[7]= (V233);
1549          base[8]= (V239);          base[8]= (V234);
1550          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1551          return;}          return;}
1552          }          }
# Line 1568  static void L47() Line 1557  static void L47()
1557  {register object *base=vs_base;  {register object *base=vs_base;
1558          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
1559          vs_check;          vs_check;
1560          {object V241;          {object V236;
1561          object V242;          object V237;
1562          object V243;          object V238;
1563          check_arg(3);          check_arg(3);
1564          V241=(base[0]);          V236=(base[0]);
1565          V242=(base[1]);          V237=(base[1]);
1566          V243=(base[2]);          V238=(base[2]);
1567          vs_top=sup;          vs_top=sup;
1568          goto TTL;          goto TTL;
1569  TTL:;  TTL:;
1570          {object V244;          {object V239;
1571          V245 = (V243);          V240= (VV[197]->s.s_gfdef);
1572          V246= (VV[180]->s.s_gfdef);          V239= (VFUN_NARGS=4,(*(LnkLI194))((V238),Ct,small_fixnum(1),V240));
1573          V244= (VFUN_NARGS=4,(*(LnkLI177))(V245,Ct,small_fixnum(1),V246));          base[3]= (V236);
1574          base[3]= (V241);          base[4]= (V237);
1575          base[4]= (V242);          base[5]= (V239);
         base[5]= (V244);  
1576          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1577          (void) (*Lnk182)();          (void) (*Lnk199)();
1578          return;}          return;}
1579          }          }
1580  }  }
1581  /*      local entry for function N-N-ACCESSORS-LIMIT-FN */  /*      local entry for function N-N-ACCESSORS-LIMIT-FN */
1582    
1583  static object LI48(V248)  static object LI48(V242)
1584    
1585  object V248;  object V242;
1586  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
1587          goto TTL;          goto TTL;
1588  TTL:;  TTL:;
1589          {long V249 = (long)(*(LnkLI179))((V248));          {long V243 = (long)(*(LnkLI196))((V242));
1590          VMR47((object)V249)}          VMR47((object)V243)}
1591  }  }
1592  /*      function definition for MAKE-CHECKING-DFUN      */  /*      function definition for MAKE-CHECKING-DFUN      */
1593    
# Line 1607  static void L49() Line 1595  static void L49()
1595  {register object *base=vs_base;  {register object *base=vs_base;
1596          register object *sup=base+VM48; VC48          register object *sup=base+VM48; VC48
1597          vs_check;          vs_check;
1598          {object V250;          {object V244;
1599          object V251;          object V245;
1600          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1601          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1602          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
1603          V250=(base[1]);          V244=(base[1]);
1604          vs_base=vs_base+2;          vs_base=vs_base+2;
1605          if(vs_base>=vs_top){vs_top=sup;goto T374;}          if(vs_base>=vs_top){vs_top=sup;goto T371;}
1606          V251=(base[2]);          V245=(base[2]);
1607          vs_top=sup;          vs_top=sup;
1608          goto T375;          goto T372;
1609          goto T374;          goto T371;
1610  T374:;  T371:;
1611          V251= Cnil;          V245= Cnil;
1612          goto T375;          goto T372;
1613  T375:;  T372:;
1614          if(((V251))!=Cnil){          if(((V245))!=Cnil){
1615            goto T374;}
1616            if(((*(LnkLI200))((base[0]->c.c_car)))==Cnil){
1617          goto T377;}          goto T377;}
         if(((*(LnkLI183))((base[0]->c.c_car)))==Cnil){  
         goto T380;}  
1618          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
1619          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1620          (void) (*Lnk184)();          (void) (*Lnk201)();
1621          return;          return;
1622          goto T380;          goto T377;
1623  T380:;  T377:;
1624          if(((VFUN_NARGS=1,(*(LnkLI185))((base[0]->c.c_car))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI202))((base[0]->c.c_car))))==Cnil){
1625          goto T377;}          goto T374;}
1626          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
1627          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1628          (void) (*Lnk186)();          (void) (*Lnk203)();
1629          return;          return;
1630          goto T377;          goto T374;
1631  T377:;  T374:;
1632          {object V252;          {object V246;
1633          object V253;          object V247;
1634          object V254;          object V248;
1635          object V255;          object V249;
1636          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
1637          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1638          (void) (*Lnk187)();          (void) (*Lnk204)();
1639          if(vs_base>=vs_top){vs_top=sup;goto T389;}          if(vs_base>=vs_top){vs_top=sup;goto T386;}
1640          V252= vs_base[0];          V246= vs_base[0];
1641          vs_base++;          vs_base++;
1642          if(vs_base>=vs_top){vs_top=sup;goto T390;}          if(vs_base>=vs_top){vs_top=sup;goto T387;}
1643          V253= vs_base[0];          V247= vs_base[0];
1644          vs_base++;          vs_base++;
1645          if(vs_base>=vs_top){vs_top=sup;goto T391;}          if(vs_base>=vs_top){vs_top=sup;goto T388;}
1646          V254= vs_base[0];          V248= vs_base[0];
1647          vs_base++;          vs_base++;
1648          if(vs_base>=vs_top){vs_top=sup;goto T392;}          if(vs_base>=vs_top){vs_top=sup;goto T389;}
1649          V255= vs_base[0];          V249= vs_base[0];
1650          vs_top=sup;          vs_top=sup;
1651          goto T393;          goto T390;
1652            goto T386;
1653    T386:;
1654            V246= Cnil;
1655            goto T387;
1656    T387:;
1657            V247= Cnil;
1658            goto T388;
1659    T388:;
1660            V248= Cnil;
1661          goto T389;          goto T389;
1662  T389:;  T389:;
1663          V252= Cnil;          V249= Cnil;
1664          goto T390;          goto T390;
1665  T390:;  T390:;
         V253= Cnil;  
         goto T391;  
 T391:;  
         V254= Cnil;  
         goto T392;  
 T392:;  
         V255= Cnil;  
         goto T393;  
 T393:;  
1666          base[3]=          base[3]=
1667          make_cclosure_new(LC141,Cnil,base[0],Cdata);          make_cclosure_new(LC141,Cnil,base[0],Cdata);
1668          base[4]= (V254);          base[4]= (V248);
1669          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1670          (void) (*Lnk188)();          (void) (*Lnk205)();
1671          vs_top=sup;          vs_top=sup;
1672          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1673          goto T395;}          goto T392;}
1674          {object V256;          {object V250;
1675          V256= (*(LnkLI189))();          V250= (*(LnkLI206))();
1676          base[5]= VV[60];          base[5]= VV[68];
1677          base[6]= (V254);          base[6]= (V248);
1678          base[7]= (V253);          base[7]= (V247);
1679          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1680          (void) (*Lnk172)();          (void) (*Lnk189)();
1681          vs_top=sup;          vs_top=sup;
1682          base[4]= vs_base[0];          base[4]= vs_base[0];
1683          base[5]= (V250);          base[5]= (V244);
1684          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1685          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1686                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1701  T393:; Line 1689  T393:;
1689          vs_top=sup;          vs_top=sup;
1690          base[3]= vs_base[0];          base[3]= vs_base[0];
1691          base[4]= Cnil;          base[4]= Cnil;
1692          base[5]= (V256);          base[5]= (V250);
1693          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1694          return;}          return;}
1695          goto T395;          goto T392;
1696  T395:;  T392:;
1697          {object V257;          {object V251;
1698          if((V251)!=Cnil){          if((V245)!=Cnil){
1699          V257= (V251);          V251= (V245);
1700          goto T408;}          goto T405;}
1701          V258 = (V255);          V252= (VV[207]->s.s_gfdef);
1702          V259= (VV[190]->s.s_gfdef);          V251= (*(LnkLI192))((V249),Cnil,V252,2);
1703          V257= (*(LnkLI175))(V258,Cnil,V259,2);          goto T405;
1704          goto T408;  T405:;
1705  T408:;          base[4]= (*(LnkLI208))((V244),(V251));
         base[4]= (*(LnkLI191))((V250),(V257));  
1706          base[4]=MMcons(base[4],base[0]);          base[4]=MMcons(base[4],base[0]);
1707          base[7]= VV[61];          base[7]= VV[69];
1708          base[8]= (V254);          base[8]= (V248);
1709          base[9]= (V253);          base[9]= (V247);
1710          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1711          (void) (*Lnk172)();          (void) (*Lnk189)();
1712          vs_top=sup;          vs_top=sup;
1713          base[6]= vs_base[0];          base[6]= vs_base[0];
1714          base[7]= (V257);          base[7]= (V251);
1715          base[8]= (V250);          base[8]= (V244);
1716          base[9]=          base[9]=
1717          make_cclosure_new(LC142,Cnil,base[4],Cdata);          make_cclosure_new(LC142,Cnil,base[4],Cdata);
1718          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
# Line 1735  T408:; Line 1722  T408:;
1722                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1723          vs_top=sup;          vs_top=sup;
1724          base[5]= vs_base[0];          base[5]= vs_base[0];
1725          base[6]= (V257);          base[6]= (V251);
1726          base[7]= (base[4]->c.c_car);          base[7]= (base[4]->c.c_car);
1727          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1728          return;}}          return;}}
# Line 1747  static void L50() Line 1734  static void L50()
1734  {register object *base=vs_base;  {register object *base=vs_base;
1735          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
1736          vs_check;          vs_check;
1737          {object V260;          {object V253;
1738          object V261;          object V254;
1739          object V262;          object V255;
1740          check_arg(4);          check_arg(4);
1741          V260=(base[0]);          V253=(base[0]);
1742          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
1743          V261=(base[2]);          V254=(base[2]);
1744          V262=(base[3]);          V255=(base[3]);
1745          vs_top=sup;          vs_top=sup;
1746          {object V263;          {object V256;
1747          base[4]= (V260);          base[4]= (V253);
1748          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1749          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk177)(Lclptr177);
1750          vs_top=sup;          vs_top=sup;
1751          V264= vs_base[0];          V257= vs_base[0];
1752          V263= STREF(object,V264,8);          V256= STREF(object,V257,8);
1753          base[4]=          base[4]=
1754          make_cclosure_new(LC143,Cnil,base[1],Cdata);          make_cclosure_new(LC143,Cnil,base[1],Cdata);
1755          base[5]= (V263);          base[5]= (V256);
1756          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1757          (void) (*Lnk188)();          (void) (*Lnk205)();
1758          vs_top=sup;          vs_top=sup;
1759          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1760          goto T425;}          goto T422;}
1761          base[4]=          base[4]=
1762          make_cclosure_new(LC144,Cnil,base[1],Cdata);          make_cclosure_new(LC144,Cnil,base[1],Cdata);
1763          base[5]= Cnil;          base[5]= Cnil;
1764          base[6]= (*(LnkLI189))();          base[6]= (*(LnkLI206))();
1765          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1766          return;          return;
1767          goto T425;          goto T422;
1768  T425:;  T422:;
1769          {object V265;          {object V258;
1770          V266 = (V260);          V259= (VV[207]->s.s_gfdef);
1771          V267= (VV[190]->s.s_gfdef);          V258= (*(LnkLI209))((V253),Cnil,V259,(V254),(V255));
1772          V268 = (V261);          base[4]= (V253);
         V269 = (V262);  
         V265= (*(LnkLI192))(V266,Cnil,V267,V268,V269);  
         base[4]= (V260);  
1773          base[5]= (base[1]->c.c_car);          base[5]= (base[1]->c.c_car);
1774          base[6]= (V265);          base[6]= (V258);
1775          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1776          (void) (*Lnk193)();          (void) (*Lnk210)();
1777          return;}}          return;}}
1778          }          }
1779  }  }
1780  /*      local entry for function USE-DEFAULT-METHOD-ONLY-DFUN-P */  /*      local entry for function USE-DEFAULT-METHOD-ONLY-DFUN-P */
1781    
1782  static object LI51(V271)  static object LI51(V261)
1783    
1784  object V271;  object V261;
1785  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
1786          goto TTL;          goto TTL;
1787  TTL:;  TTL:;
1788          {object V272;          {object V262;
1789          object V273;          object V263;
1790          object V274;          object V264;
1791          object V275;          object V265;
1792          base[0]= (V271);          base[0]= (V261);
1793          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1794          (void) (*Lnk187)();          (void) (*Lnk204)();
1795          if(vs_base>=vs_top){vs_top=sup;goto T439;}          if(vs_base>=vs_top){vs_top=sup;goto T436;}
1796          V272= vs_base[0];          V262= vs_base[0];
1797          vs_base++;          vs_base++;
1798          if(vs_base>=vs_top){vs_top=sup;goto T440;}          if(vs_base>=vs_top){vs_top=sup;goto T437;}
1799          V273= vs_base[0];          V263= vs_base[0];
1800          vs_base++;          vs_base++;
1801          if(vs_base>=vs_top){vs_top=sup;goto T441;}          if(vs_base>=vs_top){vs_top=sup;goto T438;}
1802          V274= vs_base[0];          V264= vs_base[0];
1803          vs_base++;          vs_base++;
1804          if(vs_base>=vs_top){vs_top=sup;goto T442;}          if(vs_base>=vs_top){vs_top=sup;goto T439;}
1805          V275= vs_base[0];          V265= vs_base[0];
1806          vs_top=sup;          vs_top=sup;
1807          goto T443;          goto T440;
1808            goto T436;
1809    T436:;
1810            V262= Cnil;
1811            goto T437;
1812    T437:;
1813            V263= Cnil;
1814            goto T438;
1815    T438:;
1816            V264= Cnil;
1817          goto T439;          goto T439;
1818  T439:;  T439:;
1819          V272= Cnil;          V265= Cnil;
1820          goto T440;          goto T440;
1821  T440:;  T440:;
1822          V273= Cnil;          base[0]= VV[211];
1823          goto T441;          base[1]= (V264);
 T441:;  
         V274= Cnil;  
         goto T442;  
 T442:;  
         V275= Cnil;  
         goto T443;  
 T443:;  
         base[0]= VV[194];  
         base[1]= (V274);  
1824          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1825          (void) (*Lnk188)();          (void) (*Lnk205)();
1826          vs_top=sup;          vs_top=sup;
1827          {object V276 = vs_base[0];          {object V266 = vs_base[0];
1828          VMR50(V276)}}          VMR50(V266)}}
1829          base[0]=base[0];          base[0]=base[0];
1830          return Cnil;          return Cnil;
1831  }  }
1832  /*      local entry for function USE-CACHING-DFUN-P     */  /*      local entry for function USE-CACHING-DFUN-P     */
1833    
1834  static object LI52(V278)  static object LI52(V268)
1835    
1836  register object V278;  register object V268;
1837  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
1838          goto TTL;          goto TTL;
1839  TTL:;  TTL:;
1840          base[0]= VV[195];          base[0]= VV[212];
1841          if(((*(LnkLI196))((V278)))==Cnil){          if(((*(LnkLI213))((V268)))==Cnil){
1842          goto T449;}          goto T446;}
1843          if(type_of(V278)==t_structure){          if(type_of(V268)==t_structure){
1844          goto T455;}          goto T452;}
1845          goto T453;          goto T450;
1846          goto T455;          goto T452;
1847  T455:;  T452:;
1848          if(!(((V278)->str.str_def)==(VV[63]))){          if(!(((V268)->str.str_def)==(VV[71]))){
1849          goto T453;}          goto T450;}
1850          V279= STREF(object,(V278),4);          V269= STREF(object,(V268),4);
1851          goto T451;          goto T448;
1852          goto T453;          goto T450;
1853  T453:;{object V281;  T450:;{object V271;
1854          V281= (VV[65]->s.s_dbind);          V271= (VV[73]->s.s_dbind);
1855          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1856          base[3]= (V278);          base[3]= (V268);
1857          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1858          (void) (*Lnk197)();          (void) (*Lnk214)();
1859          vs_top=sup;          vs_top=sup;
1860          V282= vs_base[0];          V272= vs_base[0];
1861          if(!((V281)==(CMPcar(V282)))){          if(!((V271)==(CMPcar(V272)))){
1862          goto T458;}}          goto T455;}}
1863          V279= CMPcar(((V278))->cc.cc_turbo[12]);          V269= CMPcar(((V268))->cc.cc_turbo[12]);
1864          goto T451;          goto T448;
1865          goto T458;          goto T455;
1866  T458:;  T455:;
1867          base[2]= VV[66];          base[2]= VV[74];
1868          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1869          Lerror();          Lerror();
1870          vs_top=sup;          vs_top=sup;
1871          V279= vs_base[0];          V269= vs_base[0];
1872          goto T451;          goto T448;
1873  T451:;  T448:;
1874          V283 = (VV[67]->s.s_dbind);          base[1]= (V269)->v.v_self[fix((VV[75]->s.s_dbind))];
1875          base[1]= (V279)->v.v_self[fix(V283)];          goto T444;
1876          goto T447;          goto T446;
1877          goto T449;  T446:;
1878  T449:;          base[2]= (V268);
         base[2]= (V278);  
1879          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1880          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk216)(Lclptr216);
1881          vs_top=sup;          vs_top=sup;
1882          base[1]= vs_base[0];          base[1]= vs_base[0];
1883          goto T447;          goto T444;
1884  T447:;  T444:;
1885          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1886          (void) (*Lnk200)();          (void) (*Lnk217)();
1887          vs_top=sup;          vs_top=sup;
1888          {object V284 = vs_base[0];          {object V273 = vs_base[0];
1889          VMR51(V284)}          VMR51(V273)}
1890          base[0]=base[0];          base[0]=base[0];
1891          return Cnil;          return Cnil;
1892  }  }
1893  /*      local entry for function CHECKING-LIMIT-FN      */  /*      local entry for function CHECKING-LIMIT-FN      */
1894    
1895  static object LI53(V286)  static object LI53(V275)
1896    
1897  object V286;  object V275;
1898  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
1899          goto TTL;          goto TTL;
1900  TTL:;  TTL:;
1901          {long V287 = (long)(*(LnkLI179))((V286));          {long V276 = (long)(*(LnkLI196))((V275));
1902          VMR52((object)V287)}          VMR52((object)V276)}
1903  }  }
1904  /*      function definition for MAKE-CACHING-DFUN       */  /*      function definition for MAKE-CACHING-DFUN       */
1905    
# Line 1924  static void L54() Line 1907  static void L54()
1907  {register object *base=vs_base;  {register object *base=vs_base;
1908          register object *sup=base+VM53; VC53          register object *sup=base+VM53; VC53
1909          vs_check;          vs_check;
1910          {object V288;          {object V277;
1911          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
1912          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
1913          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
1914          vs_base=vs_base+1;          vs_base=vs_base+1;
1915          if(vs_base>=vs_top){vs_top=sup;goto T465;}          if(vs_base>=vs_top){vs_top=sup;goto T462;}
1916          V288=(base[1]);          V277=(base[1]);
1917          vs_top=sup;          vs_top=sup;
1918          goto T466;          goto T463;
1919          goto T465;          goto T462;
1920  T465:;  T462:;
1921          V288= Cnil;          V277= Cnil;
1922          goto T466;          goto T463;
1923  T466:;  T463:;
1924          if(((V288))!=Cnil){          if(((V277))!=Cnil){
1925            goto T465;}
1926            if(((VFUN_NARGS=1,(*(LnkLI218))((base[0]->c.c_car))))==Cnil){
1927          goto T468;}          goto T468;}
         if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){  
         goto T471;}  
1928          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
1929          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1930          (void) (*Lnk202)();          (void) (*Lnk219)();
1931          return;          return;
1932          goto T471;          goto T468;
1933  T471:;  T468:;
1934          if(((VFUN_NARGS=1,(*(LnkLI185))((base[0]->c.c_car))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI202))((base[0]->c.c_car))))==Cnil){
1935          goto T468;}          goto T465;}
1936          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
1937          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1938          (void) (*Lnk186)();          (void) (*Lnk203)();
1939          return;          return;
1940          goto T468;          goto T465;
1941  T468:;  T465:;
1942          {object V289;          {object V278;
1943          object V290;          object V279;
1944          object V291;          object V280;
1945          object V292;          object V281;
1946          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
1947          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1948          (void) (*Lnk187)();          (void) (*Lnk204)();
1949          if(vs_base>=vs_top){vs_top=sup;goto T480;}          if(vs_base>=vs_top){vs_top=sup;goto T477;}
1950          V289= vs_base[0];          V278= vs_base[0];
1951          vs_base++;          vs_base++;
1952          if(vs_base>=vs_top){vs_top=sup;goto T481;}          if(vs_base>=vs_top){vs_top=sup;goto T478;}
1953          V290= vs_base[0];          V279= vs_base[0];
1954          vs_base++;          vs_base++;
1955          if(vs_base>=vs_top){vs_top=sup;goto T482;}          if(vs_base>=vs_top){vs_top=sup;goto T479;}
1956          V291= vs_base[0];          V280= vs_base[0];
1957          vs_base++;          vs_base++;
1958          if(vs_base>=vs_top){vs_top=sup;goto T483;}          if(vs_base>=vs_top){vs_top=sup;goto T480;}
1959          V292= vs_base[0];          V281= vs_base[0];
1960          vs_top=sup;          vs_top=sup;
1961          goto T484;          goto T481;
1962            goto T477;
1963    T477:;
1964            V278= Cnil;
1965            goto T478;
1966    T478:;
1967            V279= Cnil;
1968            goto T479;
1969    T479:;
1970            V280= Cnil;
1971          goto T480;          goto T480;
1972  T480:;  T480:;
1973          V289= Cnil;          V281= Cnil;
1974          goto T481;          goto T481;
1975  T481:;  T481:;
1976          V290= Cnil;          {object V282;
1977            if((V277)!=Cnil){
1978            V282= (V277);
1979            goto T482;}
1980            V283= (VV[220]->s.s_gfdef);
1981            V282= (*(LnkLI192))((V281),Ct,V283,2);
1982          goto T482;          goto T482;
1983  T482:;  T482:;
1984          V291= Cnil;          base[3]= (*(LnkLI221))((V282));
         goto T483;  
 T483:;  
         V292= Cnil;  
         goto T484;  
 T484:;  
         {object V293;  
         if((V288)!=Cnil){  
         V293= (V288);  
         goto T485;}  
         V294 = (V292);  
         V295= (VV[203]->s.s_gfdef);  
         V293= (*(LnkLI175))(V294,Ct,V295,2);  
         goto T485;  
 T485:;  
         base[3]= (*(LnkLI204))((V293));  
1985          base[3]=MMcons(base[3],base[0]);          base[3]=MMcons(base[3],base[0]);
1986          base[6]= VV[68];          base[6]= VV[76];
1987          base[7]= (V291);          base[7]= (V280);
1988          base[8]= (V290);          base[8]= (V279);
1989          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1990          (void) (*Lnk172)();          (void) (*Lnk189)();
1991          vs_top=sup;          vs_top=sup;
1992          base[5]= vs_base[0];          base[5]= vs_base[0];
1993          base[6]= (V293);          base[6]= (V282);
1994          base[7]=          base[7]=
1995          make_cclosure_new(LC147,Cnil,base[3],Cdata);          make_cclosure_new(LC147,Cnil,base[3],Cdata);
1996          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
# Line 2018  T485:; Line 2000  T485:;
2000                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2001          vs_top=sup;          vs_top=sup;
2002          base[4]= vs_base[0];          base[4]= vs_base[0];
2003          base[5]= (V293);          base[5]= (V282);
2004          base[6]= (base[3]->c.c_car);          base[6]= (base[3]->c.c_car);
2005          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2006          return;}}          return;}}
# Line 2030  static void L55() Line 2012  static void L55()
2012  {register object *base=vs_base;  {register object *base=vs_base;
2013          register object *sup=base+VM54; VC54          register object *sup=base+VM54; VC54
2014          vs_check;          vs_check;
2015          {object V296;          {object V284;
2016          object V297;          object V285;
2017          object V298;          object V286;
2018          check_arg(3);          check_arg(3);
2019          V296=(base[0]);          V284=(base[0]);
2020          V297=(base[1]);          V285=(base[1]);
2021          V298=(base[2]);          V286=(base[2]);
2022          vs_top=sup;          vs_top=sup;
2023          goto TTL;          goto TTL;
2024  TTL:;  TTL:;
2025          {object V299;          {object V287;
2026          V300 = (V296);          V288= (VV[220]->s.s_gfdef);
2027          V301= (VV[203]->s.s_gfdef);          V287= (*(LnkLI209))((V284),Ct,V288,(V285),(V286));
2028          V302 = (V297);          base[3]= (V284);
2029          V303 = (V298);          base[4]= (V287);
         V299= (*(LnkLI192))(V300,Ct,V301,V302,V303);  
         base[3]= (V296);  
         base[4]= (V299);  
2030          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2031          (void) (*Lnk184)();          (void) (*Lnk201)();
2032          return;}          return;}
2033          }          }
2034  }  }
2035  /*      local entry for function CACHING-LIMIT-FN       */  /*      local entry for function CACHING-LIMIT-FN       */
2036    
2037  static object LI56(V305)  static object LI56(V290)
2038    
2039  object V305;  object V290;
2040  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
2041          goto TTL;          goto TTL;
2042  TTL:;  TTL:;
2043          {long V306 = (long)(*(LnkLI179))((V305));          {long V291 = (long)(*(LnkLI196))((V290));
2044          VMR55((object)V306)}          VMR55((object)V291)}
2045  }  }
2046  /*      function definition for INSURE-DFUN     */  /*      function definition for INSURE-CACHING-DFUN     */
2047    
2048  static void L57()  static void L57()
2049  {register object *base=vs_base;  {register object *base=vs_base;
2050          register object *sup=base+VM56; VC56          register object *sup=base+VM56; VC56
2051          vs_check;          vs_check;
2052          {object V307;          {object V292;
2053          object V308;          check_arg(1);
2054          check_arg(2);          V292=(base[0]);
         V307=(base[0]);  
         V308=(base[1]);  
2055          vs_top=sup;          vs_top=sup;
2056          goto TTL;          goto TTL;
2057  TTL:;  TTL:;
2058          {object V309;          {object V293;
2059          object V310;          object V294;
2060          register object V311;          register object V295;
2061          object V312;          object V296;
2062          base[2]= (V307);          base[1]= (V292);
2063          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+1)+1;
2064          (void) (*Lnk187)();          (void) (*Lnk204)();
2065          if(vs_base>=vs_top){vs_top=sup;goto T503;}          if(vs_base>=vs_top){vs_top=sup;goto T500;}
2066          V309= vs_base[0];          V293= vs_base[0];
2067          vs_base++;          vs_base++;
2068          if(vs_base>=vs_top){vs_top=sup;goto T504;}          if(vs_base>=vs_top){vs_top=sup;goto T501;}
2069          V310= vs_base[0];          V294= vs_base[0];
2070          vs_base++;          vs_base++;
2071          if(vs_base>=vs_top){vs_top=sup;goto T505;}          if(vs_base>=vs_top){vs_top=sup;goto T502;}
2072          V311= vs_base[0];          V295= vs_base[0];
2073          vs_base++;          vs_base++;
2074          if(vs_base>=vs_top){vs_top=sup;goto T506;}          if(vs_base>=vs_top){vs_top=sup;goto T503;}
2075          V312= vs_base[0];          V296= vs_base[0];
2076          vs_top=sup;          vs_top=sup;
2077          goto T507;          goto T504;
2078            goto T500;
2079    T500:;
2080            V293= Cnil;
2081            goto T501;
2082    T501:;
2083            V294= Cnil;
2084            goto T502;
2085    T502:;
2086            V295= Cnil;
2087          goto T503;          goto T503;
2088  T503:;  T503:;
2089          V309= Cnil;          V296= Cnil;
2090          goto T504;          goto T504;
2091  T504:;  T504:;
2092          V310= Cnil;          if(((V295))==Cnil){
2093          goto T505;          goto T506;}
2094  T505:;          if((CMPcar((V295)))==Cnil){
2095          V311= Cnil;          goto T506;}
2096            {register object V297;
2097            register object V298;
2098            V297= (V295);
2099            V298= CMPcar((V297));
2100            goto T515;
2101    T515:;
2102            if(!(((V297))==Cnil)){
2103            goto T516;}
2104          goto T506;          goto T506;
2105  T506:;          goto T516;
2106          V312= Cnil;  T516:;
2107          goto T507;          if(((V298))==(Ct)){
2108  T507:;          goto T520;}
2109          if(((V311))==Cnil){          goto T511;
2110          goto T508;}          goto T520;
2111          if((CMPcar((V311)))==Cnil){  T520:;
2112          goto T509;}          V297= CMPcdr((V297));
2113          goto T508;          V298= CMPcar((V297));
2114  T508:;          goto T515;}
2115          if(((VFUN_NARGS=1,(*(LnkLI201))((V307))))==Cnil){          goto T511;
2116          goto T514;}  T511:;
2117          base[2]= VV[69];          base[1]= VV[76];
2118          base[3]= (V311);          base[2]= (V295);
2119          vs_top=(vs_base=base+2)+2;          base[3]= (V294);
2120          (void) (*Lnk172)();          vs_top=(vs_base=base+1)+3;
2121          return;          (void) (*Lnk189)();
         goto T514;  
 T514:;  
         if(((V308))==Cnil){  
         goto T519;}  
         base[2]= VV[68];  
         base[3]= (V311);  
         base[4]= (V310);  
         vs_top=(vs_base=base+2)+3;  
         (void) (*Lnk172)();  
         return;  
         goto T519;  
 T519:;  
         {register object V313;  
         register object V314;  
         V313= (V311);  
         V314= CMPcar((V313));  
         goto T530;  
 T530:;  
         if(!(((V313))==Cnil)){  
         goto T531;}  
         goto T526;  
         goto T531;  
 T531:;  
         if(((V314))==(Ct)){  
         goto T535;}  
         goto T525;  
         goto T535;  
 T535:;  
         V313= CMPcdr((V313));  
         V314= CMPcar((V313));  
         goto T530;}  
         goto T526;  
 T526:;  
         base[2]= VV[60];  
         base[3]= (V311);  
         base[4]= (V310);  
         vs_top=(vs_base=base+2)+3;  
         (void) (*Lnk172)();  
         return;  
         goto T525;  
 T525:;  
         base[2]= VV[61];  
         base[3]= (V311);  
         base[4]= (V310);  
         vs_top=(vs_base=base+2)+3;  
         (void) (*Lnk172)();  
2122          return;          return;
2123          goto T509;          goto T506;
2124  T509:;  T506:;
2125          base[2]= Cnil;          base[1]= Cnil;
2126          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+1)+1;
2127          return;}          return;}
2128          }          }
2129  }  }
2130  /*      local entry for function USE-CONSTANT-VALUE-DFUN-P      */  /*      local entry for function USE-CONSTANT-VALUE-DFUN-P      */
2131    
2132  static object LI58(object V315,object first,...)  static object LI58(object V299,object first,...)
2133  {        {      
2134          va_list ap;          va_list ap;
2135          int narg = VFUN_NARGS; VMB57 VMS57 VMV57          int narg = VFUN_NARGS; VMB57 VMS57 VMV57
2136          {register object V316;          {register object V300;
2137          va_start(ap,first);          va_start(ap,first);
2138          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2139          V316= V315;          V300= V299;
2140          narg = narg - 1;          narg = narg - 1;
2141          if (narg <= 0) goto T549;          if (narg <= 0) goto T531;
2142          else {          else {
2143          Vcs[1]=MMcons(first,Cnil);}          Vcs[1]=MMcons(first,Cnil);}
2144          --narg; goto T550;          --narg; goto T532;
2145          goto T549;          goto T531;
2146  T549:;  T531:;
2147          Vcs[1]= Cnil;          Vcs[1]= Cnil;
2148          Vcs[1]=MMcons(Vcs[1],Cnil);          Vcs[1]=MMcons(Vcs[1],Cnil);
2149          goto T550;          goto T532;
2150  T550:;  T532:;
2151          {object V317;          {object V301;
2152          object V318;          object V302;
2153          object V319;          object V303;
2154          object V320;          object V304;
2155          base[0]= (V316);          base[0]= (V300);
2156          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2157          (void) (*Lnk187)();          (void) (*Lnk204)();
2158          if(vs_base>=vs_top){vs_top=sup;goto T554;}          if(vs_base>=vs_top){vs_top=sup;goto T536;}
2159          V317= vs_base[0];          V301= vs_base[0];
2160          vs_base++;          vs_base++;
2161          if(vs_base>=vs_top){vs_top=sup;goto T555;}          if(vs_base>=vs_top){vs_top=sup;goto T537;}
2162          V318= vs_base[0];          V302= vs_base[0];
2163          vs_base++;          vs_base++;
2164          if(vs_base>=vs_top){vs_top=sup;goto T556;}          if(vs_base>=vs_top){vs_top=sup;goto T538;}
2165          V319= vs_base[0];          V303= vs_base[0];
2166          vs_base++;          vs_base++;
2167          if(vs_base>=vs_top){vs_top=sup;goto T557;}          if(vs_base>=vs_top){vs_top=sup;goto T539;}
2168          V320= vs_base[0];          V304= vs_base[0];
2169          vs_top=sup;          vs_top=sup;
2170          goto T558;          goto T540;
2171          goto T554;          goto T536;
2172  T554:;  T536:;
2173          V317= Cnil;          V301= Cnil;
2174          goto T555;          goto T537;
2175  T555:;  T537:;
2176          V318= Cnil;          V302= Cnil;
2177          goto T556;          goto T538;
2178  T556:;  T538:;
2179          V319= Cnil;          V303= Cnil;
2180          goto T557;          goto T539;
2181  T557:;  T539:;
2182          V320= Cnil;          V304= Cnil;
2183          goto T558;          goto T540;
2184  T558:;  T540:;
2185          {object V321;          {object V305;
2186          base[0]= (*(LnkLI196))((V316));          base[0]= (*(LnkLI213))((V300));
2187          base[0]=MMcons(base[0],Vcs[1]);          base[0]=MMcons(base[0],Vcs[1]);
2188          if(((base[0]->c.c_car))==Cnil){          if(((base[0]->c.c_car))==Cnil){
2189          goto T562;}          goto T544;}
2190          if(type_of(V316)==t_structure){          if(type_of(V300)==t_structure){
2191          goto T568;}          goto T550;}
2192          goto T566;          goto T548;
2193          goto T568;          goto T550;
2194  T568:;  T550:;
2195          if(!(((V316)->str.str_def)==(VV[70]))){          if(!(((V300)->str.str_def)==(VV[77]))){
2196          goto T566;}          goto T548;}
2197          V322= STREF(object,(V316),4);          V306= STREF(object,(V300),4);
2198          goto T564;          goto T546;
2199          goto T566;          goto T548;
2200  T566:;{object V324;  T548:;{object V308;
2201          V324= (VV[65]->s.s_dbind);          V308= (VV[73]->s.s_dbind);
2202          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2203          base[4]= (V316);          base[4]= (V300);
2204          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2205          (void) (*Lnk197)();          (void) (*Lnk214)();
2206          vs_top=sup;          vs_top=sup;
2207          V325= vs_base[0];          V309= vs_base[0];
2208          if(!((V324)==(CMPcar(V325)))){          if(!((V308)==(CMPcar(V309)))){
2209          goto T571;}}          goto T553;}}
2210          V322= CMPcar(((V316))->cc.cc_turbo[12]);          V306= CMPcar(((V300))->cc.cc_turbo[12]);
2211          goto T564;          goto T546;
2212          goto T571;          goto T553;
2213  T571:;  T553:;
2214          base[3]= VV[66];          base[3]= VV[74];
2215          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2216          Lerror();          Lerror();
2217          vs_top=sup;          vs_top=sup;
2218          V322= vs_base[0];          V306= vs_base[0];
2219          goto T564;          goto T546;
2220  T564:;  T546:;
2221          V326 = (VV[67]->s.s_dbind);          V305= (V306)->v.v_self[fix((VV[75]->s.s_dbind))];
2222          V321= (V322)->v.v_self[fix(V326)];          goto T542;
2223          goto T560;          goto T544;
2224          goto T562;  T544:;
2225  T562:;          base[3]= (V300);
         base[3]= (V316);  
2226          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2227          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk216)(Lclptr216);
2228          vs_top=sup;          vs_top=sup;
2229          V321= vs_base[0];          V305= vs_base[0];
2230            goto T542;
2231    T542:;
2232            base[2]=MMcons(VV[78],base[0]);
2233            if(((V302))==Cnil){
2234            goto T560;}
2235            {object V310 = Cnil;
2236            VMR57(V310)}
2237          goto T560;          goto T560;
2238  T560:;  T560:;
2239          base[2]=MMcons(VV[71],base[0]);          if(!(((((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil))==Cnil)){
2240          if(((V318))==Cnil){          goto T564;}
2241          goto T578;}          goto T562;
2242          {object V327 = Cnil;          goto T564;
2243          VMR57(V327)}  T564:;
2244          goto T578;          if(((*(LnkLI222))((V300)))!=Cnil){
2245  T578:;          goto T562;}
2246          if(!(((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil)){          {object V311 = Cnil;
2247          goto T582;}          VMR57(V311)}
2248          goto T580;          goto T562;
2249          goto T582;  T562:;
 T582:;  
         if(((*(LnkLI205))((V316)))!=Cnil){  
         goto T580;}  
         {object V328 = Cnil;  
         VMR57(V328)}  
         goto T580;  
 T580:;  
2250          base[3]=          base[3]=
2251          make_cclosure_new(LC148,Cnil,base[2],Cdata);          make_cclosure_new(LC148,Cnil,base[2],Cdata);
2252          base[4]= (V321);          base[4]= (V305);
2253          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2254          (void) (*Lnk206)();          (void) (*Lnk223)();
2255          vs_top=sup;          vs_top=sup;
2256          {object V329 = vs_base[0];          {object V312 = vs_base[0];
2257          VMR57(V329)}}}          VMR57(V312)}}}
2258          va_end(ap);          va_end(ap);
2259          base[0]=base[0];          base[0]=base[0];
2260          return Cnil;}          return Cnil;}
# Line 2318  static void L59() Line 2265  static void L59()
2265  {register object *base=vs_base;  {register object *base=vs_base;
2266          register object *sup=base+VM58; VC58          register object *sup=base+VM58; VC58
2267          vs_check;          vs_check;
2268          {object V330;          {object V313;
2269          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
2270          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
2271          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
2272          vs_base=vs_base+1;          vs_base=vs_base+1;
2273          if(vs_base>=vs_top){vs_top=sup;goto T586;}          if(vs_base>=vs_top){vs_top=sup;goto T568;}
2274          V330=(base[1]);          V313=(base[1]);
2275          vs_top=sup;          vs_top=sup;
2276          goto T587;          goto T569;
2277          goto T586;          goto T568;
2278  T586:;  T568:;
2279          V330= Cnil;          V313= Cnil;
2280          goto T587;          goto T569;
2281  T587:;  T569:;
2282          {object V331;          {object V314;
2283          object V332;          object V315;
2284          object V333;          object V316;
2285          object V334;          object V317;
2286          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
2287          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2288          (void) (*Lnk187)();          (void) (*Lnk204)();
2289          if(vs_base>=vs_top){vs_top=sup;goto T591;}          if(vs_base>=vs_top){vs_top=sup;goto T573;}
2290          V331= vs_base[0];          V314= vs_base[0];
2291          vs_base++;          vs_base++;
2292          if(vs_base>=vs_top){vs_top=sup;goto T592;}          if(vs_base>=vs_top){vs_top=sup;goto T574;}
2293          V332= vs_base[0];          V315= vs_base[0];
2294          vs_base++;          vs_base++;
2295          if(vs_base>=vs_top){vs_top=sup;goto T593;}          if(vs_base>=vs_top){vs_top=sup;goto T575;}
2296          V333= vs_base[0];          V316= vs_base[0];
2297          vs_base++;          vs_base++;
2298          if(vs_base>=vs_top){vs_top=sup;goto T594;}          if(vs_base>=vs_top){vs_top=sup;goto T576;}
2299          V334= vs_base[0];          V317= vs_base[0];
2300          vs_top=sup;          vs_top=sup;
2301          goto T595;          goto T577;
2302          goto T591;          goto T573;
2303  T591:;  T573:;
2304          V331= Cnil;          V314= Cnil;
2305          goto T592;          goto T574;
2306  T592:;  T574:;
2307          V332= Cnil;          V315= Cnil;
2308          goto T593;          goto T575;
2309  T593:;  T575:;
2310          V333= Cnil;          V316= Cnil;
2311          goto T594;          goto T576;
2312  T594:;  T576:;
2313          V334= Cnil;          V317= Cnil;
2314          goto T595;          goto T577;
2315  T595:;  T577:;
2316          {object V335;          {object V318;
2317          if((V330)!=Cnil){          if((V313)!=Cnil){
2318          V335= (V330);          V318= (V313);
2319          goto T596;}          goto T578;}
2320          V336 = (V334);          V319= (VV[220]->s.s_gfdef);
2321          V337= (VV[203]->s.s_gfdef);          V318= (*(LnkLI192))((V317),Ct,V319,2);
2322          V335= (*(LnkLI175))(V336,Ct,V337,2);          goto T578;
2323          goto T596;  T578:;
2324  T596:;          base[3]= (*(LnkLI224))((V318));
         base[3]= (*(LnkLI207))((V335));  
2325          base[3]=MMcons(base[3],base[0]);          base[3]=MMcons(base[3],base[0]);
2326          base[6]= VV[69];          base[6]= VV[82];
2327          base[7]= (V333);          base[7]= (V316);
2328          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
2329          (void) (*Lnk172)();          (void) (*Lnk189)();
2330          vs_top=sup;          vs_top=sup;
2331          base[5]= vs_base[0];          base[5]= vs_base[0];
2332          base[6]= (V335);          base[6]= (V318);
2333          base[7]=          base[7]=
2334          make_cclosure_new(LC149,Cnil,base[3],Cdata);          make_cclosure_new(LC149,Cnil,base[3],Cdata);
2335          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
# Line 2393  T596:; Line 2339  T596:;
2339                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2340          vs_top=sup;          vs_top=sup;
2341          base[4]= vs_base[0];          base[4]= vs_base[0];
2342          base[5]= (V335);          base[5]= (V318);
2343          base[6]= (base[3]->c.c_car);          base[6]= (base[3]->c.c_car);
2344          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2345          return;}}          return;}}
# Line 2405  static void L60() Line 2351  static void L60()
2351  {register object *base=vs_base;  {register object *base=vs_base;
2352          register object *sup=base+VM59; VC59          register object *sup=base+VM59; VC59
2353          vs_check;          vs_check;
2354          {object V338;          {object V320;
2355          object V339;          object V321;
2356          object V340;          object V322;
2357          check_arg(3);          check_arg(3);
2358          V338=(base[0]);          V320=(base[0]);
2359          V339=(base[1]);          V321=(base[1]);
2360          V340=(base[2]);          V322=(base[2]);
2361          vs_top=sup;          vs_top=sup;
2362          goto TTL;          goto TTL;
2363  TTL:;  TTL:;
2364          {object V341;          {object V323;
2365          V342 = (V338);          V324= (VV[220]->s.s_gfdef);
2366          V343= (VV[203]->s.s_gfdef);          V323= (*(LnkLI209))((V320),VV[81],V324,(V321),(V322));
2367          V344 = (V339);          base[3]= (V320);
2368          V345 = (V340);          base[4]= (V323);
         V341= (*(LnkLI192))(V342,VV[74],V343,V344,V345);  
         base[3]= (V338);  
         base[4]= (V341);  
2369          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2370          (void) (*Lnk202)();          (void) (*Lnk219)();
2371          return;}          return;}
2372          }          }
2373  }  }
2374  /*      local entry for function USE-DISPATCH-DFUN-P    */  /*      local entry for function USE-DISPATCH-DFUN-P    */
2375    
2376  static object LI61(object V346,object first,...)  static object LI61(object V325,object first,...)
2377  {        {      
2378          va_list ap;          va_list ap;
2379          int narg = VFUN_NARGS; VMB60 VMS60 VMV60          int narg = VFUN_NARGS; VMB60 VMS60 VMV60
2380          {object V347;          {object V326;
2381          object V348;          object V327;
2382          va_start(ap,first);          va_start(ap,first);
2383          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2384          V347= V346;          V326= V325;
2385          narg = narg - 1;          narg = narg - 1;
2386          if (narg <= 0) goto T611;          if (narg <= 0) goto T593;
2387          else {          else {
2388          V348= first;}          V327= first;}
2389          --narg; goto T612;          --narg; goto T594;
2390          goto T611;          goto T593;
2391  T611:;  T593:;
2392          V348= (*(LnkLI183))((V347));          V327= (*(LnkLI200))((V326));
2393          goto T612;          goto T594;
2394  T612:;  T594:;
2395          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[79]->s.s_dbind))==(VV[80]))){
2396          goto T615;}          goto T597;}
2397          if(((V348))!=Cnil){          if(((V327))!=Cnil){
2398          goto T618;}          goto T600;}
2399          {object V349;          {object V328;
2400          V349= (*(LnkLI208))((V347));          V328= (*(LnkLI225))((V326));
2401          base[0]= (V347);          base[0]= (V326);
2402          base[1]= (V349);          base[1]= (V328);
2403          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2404          (void) (*Lnk209)();          (void) (*Lnk226)();
2405          vs_top=sup;          vs_top=sup;
2406          V350= vs_base[0];          V329= vs_base[0];
2407          V351 = (V349);          {object V330 = (number_compare((V328),V329)>0?Ct:Cnil);
2408          {object V352 = (number_compare(V350,V351)<0?Ct:Cnil);          VMR60(V330)}}
2409          VMR60(V352)}}          goto T600;
2410          goto T618;  T600:;
2411  T618:;          {object V331 = Cnil;
2412          {object V353 = Cnil;          VMR60(V331)}
2413          VMR60(V353)}          goto T597;
2414          goto T615;  T597:;
2415  T615:;          {object V332 = Cnil;
2416          {object V354 = Cnil;          VMR60(V332)}
         VMR60(V354)}  
2417          va_end(ap);          va_end(ap);
2418          base[0]=base[0];          base[0]=base[0];
2419          return Cnil;}          return Cnil;}
2420          }          }
2421  /*      local entry for function SHOW-DFUN-COSTS        */  /*      local entry for function SHOW-DFUN-COSTS        */
2422    
2423  static object LI62(V356)  static object LI62(V334)
2424    
2425  register object V356;  register object V334;
2426  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
2427          goto TTL;          goto TTL;
2428  TTL:;  TTL:;
2429          if(type_of((V356))==t_symbol){          if(type_of((V334))==t_symbol){
2430          goto T625;}          goto T607;}
2431          if(!(type_of((V356))==t_cons)){          if(!(type_of((V334))==t_cons)){
2432          goto T624;}          goto T606;}
2433          goto T625;          goto T607;
2434  T625:;  T607:;
2435          V356= (*(LnkLI210))((V356));          V334= (*(LnkLI227))((V334));
2436          goto T624;          goto T606;
2437  T624:;  T606:;
2438          base[0]= Ct;          base[0]= Ct;
2439          base[1]= VV[75];          base[1]= VV[83];
2440          base[3]= (V356);          base[3]= (V334);
2441          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2442          (void) (*Lnk162)(Lclptr162);          (void) (*Lnk178)(Lclptr178);
2443          vs_top=sup;          vs_top=sup;
2444          base[2]= vs_base[0];          base[2]= vs_base[0];
2445          base[3]= (*(LnkLI208))((V356));          base[3]= (*(LnkLI225))((V334));
2446          base[5]= (V356);          base[5]= (V334);
2447          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2448          (void) (*Lnk209)();          (void) (*Lnk226)();
2449          vs_top=sup;          vs_top=sup;
2450          base[4]= vs_base[0];          base[4]= vs_base[0];
2451          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
2452          Lformat();          Lformat();
2453          vs_top=sup;          vs_top=sup;
2454          {object V357 = vs_base[0];          {object V335 = vs_base[0];
2455          VMR61(V357)}          VMR61(V335)}
2456          base[0]=base[0];          base[0]=base[0];
2457          return Cnil;          return Cnil;
2458  }  }
# Line 2520  static void L63() Line 2462  static void L63()
2462  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
2463          register object *VOL sup=base+VM62; VC62          register object *VOL sup=base+VM62; VC62
2464          vs_check;          vs_check;
2465          {VOL object V358;          {VOL object V336;
2466          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
2467          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
2468          V358=(base[0]);          V336=(base[0]);
2469          vs_base=vs_base+1;          vs_base=vs_base+1;
2470          if(vs_base>=vs_top){vs_top=sup;goto T637;}          if(vs_base>=vs_top){vs_top=sup;goto T619;}
2471          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
2472          vs_top=sup;          vs_top=sup;
2473          goto T638;          goto T620;
2474          goto T637;          goto T619;
2475  T637:;  T619:;
2476          base[1]= Cnil;          base[1]= Cnil;
2477          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
2478          goto T638;          goto T620;
2479  T638:;  T620:;
2480          base[2]=alloc_frame_id();          base[2]=alloc_frame_id();
2481          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
2482          frs_push(FRS_CATCH,(base[2]->c.c_car));          frs_push(FRS_CATCH,(base[2]->c.c_car));
# Line 2542  T638:; Line 2484  T638:;
2484          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
2485          return;}          return;}
2486          else{          else{
2487          base[3]= (V358);          base[3]= (V336);
2488          base[5]= (V358);          base[5]= (V336);
2489          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2490          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk216)(Lclptr216);
2491          vs_top=sup;          vs_top=sup;
2492          base[4]= vs_base[0];          base[4]= vs_base[0];
2493          base[5]= Cnil;          base[5]= Cnil;
# Line 2553  T638:; Line 2495  T638:;
2495          make_cclosure_new(LC150,Cnil,base[2],Cdata);          make_cclosure_new(LC150,Cnil,base[2],Cdata);
2496          base[7]=          base[7]=
2497          make_cclosure_new(LC151,Cnil,base[2],Cdata);          make_cclosure_new(LC151,Cnil,base[2],Cdata);
2498          base[8]= (VV[211]->s.s_gfdef);          base[8]= (VV[228]->s.s_gfdef);
2499          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
2500          (void) (*Lnk212)();          (void) (*Lnk229)();
2501          frs_pop();          frs_pop();
2502          return;          return;
2503          }          }
# Line 2563  T638:; Line 2505  T638:;
2505  }  }
2506  /*      local entry for function CACHING-DFUN-COST      */  /*      local entry for function CACHING-DFUN-COST      */
2507    
2508  static object LI64(V360)  static object LI64(V338)
2509    
2510  object V360;  object V338;
2511  {        VMB63 VMS63 VMV63  {        VMB63 VMS63 VMV63
2512          goto TTL;          goto TTL;
2513  TTL:;  TTL:;
2514          {object V361;          {object V339;
2515          object V362;          object V340;
2516          base[2]= (V360);          base[2]= (V338);
2517          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2518          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk177)(Lclptr177);
2519          vs_top=sup;          vs_top=sup;
2520          V361= vs_base[0];          V339= vs_base[0];
2521          V362= CMPmake_fixnum((long)length(STREF(object,(V361),8)));          V340= CMPmake_fixnum((long)length(STREF(object,(V339),8)));
2522          base[2]= (VV[81]->s.s_dbind);          base[2]= (VV[89]->s.s_dbind);
2523          base[3]= number_times((VV[82]->s.s_dbind),(V362));          base[3]= number_times((VV[90]->s.s_dbind),(V340));
2524          base[5]= (V360);          base[5]= (V338);
2525          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2526          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk216)(Lclptr216);
2527          vs_top=sup;          vs_top=sup;
2528          V363= vs_base[0];          V341= vs_base[0];
2529          if(((*(LnkLI213))(V363))==Cnil){          if(((*(LnkLI230))(V341))==Cnil){
2530          goto T654;}          goto T636;}
2531          base[4]= (VV[83]->s.s_dbind);          base[4]= (VV[91]->s.s_dbind);
2532          goto T652;          goto T634;
2533          goto T654;          goto T636;
2534  T654:;  T636:;
2535          base[4]= small_fixnum(0);          base[4]= small_fixnum(0);
2536          goto T652;          goto T634;
2537  T652:;  T634:;
2538          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2539          Lplus();          Lplus();
2540          vs_top=sup;          vs_top=sup;
2541          {object V364 = vs_base[0];          {object V342 = vs_base[0];
2542          VMR63(V364)}}          VMR63(V342)}}
2543          base[0]=base[0];          base[0]=base[0];
2544          return Cnil;          return Cnil;
2545  }  }
# Line 2607  static void L65() Line 2549  static void L65()
2549  {register object *base=vs_base;  {register object *base=vs_base;
2550          register object *sup=base+VM64; VC64          register object *sup=base+VM64; VC64
2551          vs_check;          vs_check;
2552          {object V365;          {object V343;
2553          check_arg(1);          check_arg(1);
2554          V365=(base[0]);          V343=(base[0]);
2555          vs_top=sup;          vs_top=sup;
2556          goto TTL;          goto TTL;
2557  TTL:;  TTL:;
2558          base[2]= (V365);          base[2]= (V343);
2559          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2560          (void) (*Lnk214)();          (void) (*Lnk231)();
2561          vs_top=sup;          vs_top=sup;
2562          base[1]= vs_base[0];          base[1]= vs_base[0];
2563          base[2]= Cnil;          base[2]= Cnil;
2564          base[3]= (*(LnkLI215))();          base[3]= (*(LnkLI232))();
2565          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2566          return;          return;
2567          }          }
# Line 2630  static void L66() Line 2572  static void L66()
2572  {register object *base=vs_base;  {register object *base=vs_base;
2573          register object *sup=base+VM65; VC65          register object *sup=base+VM65; VC65
2574          vs_check;          vs_check;
2575          {object V366;          {object V344;
2576          check_arg(1);          check_arg(1);
2577          V366=(base[0]);          V344=(base[0]);
2578          vs_top=sup;          vs_top=sup;
2579          goto TTL;          goto TTL;
2580  TTL:;  TTL:;
2581          {object V367;          {object V345;
2582          base[1]= (V366);          base[1]= (V344);
2583          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2584          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk216)(Lclptr216);
2585          vs_top=sup;          vs_top=sup;
2586          V367= vs_base[0];          V345= vs_base[0];
2587          base[1]= (VFUN_NARGS=8,(*(LnkLI216))((V366),(V367),Cnil,Cnil,Cnil,Cnil,Cnil,Ct));          base[1]= (VFUN_NARGS=8,(*(LnkLI233))((V344),(V345),Cnil,Cnil,Cnil,Cnil,Cnil,Ct));
2588          base[2]= Cnil;          base[2]= Cnil;
2589          base[3]= Cnil;          base[3]= Cnil;
2590          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 2659  static void L67() Line 2601  static void L67()
2601  {register object *base=vs_base;  {register object *base=vs_base;
2602          register object *sup=base+VM66; VC66          register object *sup=base+VM66; VC66
2603          vs_check;          vs_check;
2604          {object V368;          {object V346;
2605          check_arg(1);          check_arg(1);
2606          V368=(base[0]);          V346=(base[0]);
2607          vs_top=sup;          vs_top=sup;
2608          goto TTL;          goto TTL;
2609  TTL:;  TTL:;
2610          base[1]= (V368);          base[1]= (V346);
2611          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2612          (void) (*Lnk186)();          (void) (*Lnk203)();
2613          return;          return;
2614          }          }
2615  }  }
# Line 2678  static object LI68() Line 2620  static object LI68()
2620  {        VMB67 VMS67 VMV67  {        VMB67 VMS67 VMV67
2621          goto TTL;          goto TTL;
2622  TTL:;  TTL:;
2623          {register object V369;          {register object V347;
2624          register object V370;          register object V348;
2625          V369= (*(LnkLI160))(VV[84]);          V347= (*(LnkLI176))(VV[92]);
2626          V370= CMPcar((V369));          V348= CMPcar((V347));
2627          goto T671;          goto T653;
2628  T671:;  T653:;
2629          if(!(((V369))==Cnil)){          if(!(((V347))==Cnil)){
2630          goto T672;}          goto T654;}
2631          {object V371 = Cnil;          {object V349 = Cnil;
2632          VMR67(V371)}          VMR67(V349)}
2633          goto T672;          goto T654;
2634  T672:;  T654:;
2635          {register object V372;          {register object V350;
2636          register object V373;          register object V351;
2637          register object V374;          register object V352;
2638          base[2]= (V370);          base[2]= (V348);
2639          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2640          (void) (*Lnk186)();          (void) (*Lnk203)();
2641          if(vs_base>=vs_top){vs_top=sup;goto T679;}          if(vs_base>=vs_top){vs_top=sup;goto T661;}
2642          V372= vs_base[0];          V350= vs_base[0];
2643          vs_base++;          vs_base++;
2644          if(vs_base>=vs_top){vs_top=sup;goto T680;}          if(vs_base>=vs_top){vs_top=sup;goto T662;}
2645          V373= vs_base[0];          V351= vs_base[0];
2646          vs_base++;          vs_base++;
2647          if(vs_base>=vs_top){vs_top=sup;goto T681;}          if(vs_base>=vs_top){vs_top=sup;goto T663;}
2648          V374= vs_base[0];          V352= vs_base[0];
2649          vs_top=sup;          vs_top=sup;
2650          goto T682;          goto T664;
2651          goto T679;          goto T661;
2652  T679:;  T661:;
2653          V372= Cnil;          V350= Cnil;
2654          goto T680;          goto T662;
2655  T680:;  T662:;
2656          V373= Cnil;          V351= Cnil;
2657          goto T681;          goto T663;
2658  T681:;  T663:;
2659          V374= Cnil;          V352= Cnil;
2660          goto T682;          goto T664;
2661  T682:;  T664:;
2662          (void)((VFUN_NARGS=4,(*(LnkLI49))((V370),(V372),(V373),(V374))));}          (void)((VFUN_NARGS=4,(*(LnkLI47))((V348),(V350),(V351),(V352))));}
2663          V369= CMPcdr((V369));          V347= CMPcdr((V347));
2664          V370= CMPcar((V369));          V348= CMPcar((V347));
2665          goto T671;}          goto T653;}
2666          base[0]=base[0];          base[0]=base[0];
2667          return Cnil;          return Cnil;
2668  }  }
2669  /*      local entry for function FILL-DFUN-CACHE        */  /*      local entry for function FILL-DFUN-CACHE        */
2670    
2671  static object LI69(object V378,object V377,object V376,object V375,object first,...)  static object LI69(object V356,object V355,object V354,object V353,object first,...)
2672  {        {      
2673          va_list ap;          va_list ap;
2674          int narg = VFUN_NARGS; VMB68 VMS68 VMV68          int narg = VFUN_NARGS; VMB68 VMS68 VMV68
2675          {object V379;          {object V357;
2676          object V380;          object V358;
2677          object V381;          object V359;
2678          object V382;          object V360;
2679          object V383;          object V361;
2680          va_start(ap,first);          va_start(ap,first);
2681          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
2682          V379= V378;          V357= V356;
2683          V380= V377;          V358= V355;
2684          V381= V376;          V359= V354;
2685          V382= V375;          V360= V353;
2686          narg = narg - 4;          narg = narg - 4;
2687          if (narg <= 0) goto T688;          if (narg <= 0) goto T670;
2688          else {          else {
2689          V383= first;}          V361= first;}
2690          --narg; goto T689;          --narg; goto T671;
2691          goto T688;          goto T670;
2692  T688:;  T670:;
2693          V383= Cnil;          V361= Cnil;
2694          goto T689;          goto T671;
2695  T689:;  T671:;
2696          if((V383)!=Cnil){          if((V361)!=Cnil){
2697          base[0]= (V383);          base[0]= (V361);
2698          goto T691;}          goto T673;}
2699          base[1]= (V379);          base[1]= (V357);
2700          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2701          Lhash_table_count();          Lhash_table_count();
2702          vs_top=sup;          vs_top=sup;
2703          V384= vs_base[0];          V362= vs_base[0];
2704          {long V385= fix(number_plus(V384,small_fixnum(3)));          {long V363= fix(number_plus(V362,small_fixnum(3)));
2705          base[0]= (*(LnkLI175))((V381),(V380),(V382),/* INLINE-ARGS */V385);}          base[0]= (*(LnkLI192))((V359),(V358),(V360),/* INLINE-ARGS */V363);}
2706          goto T691;          goto T673;
2707  T691:;  T673:;
2708          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
2709          base[1]=          base[1]=
2710          make_cclosure_new(LC152,Cnil,base[0],Cdata);          make_cclosure_new(LC152,Cnil,base[0],Cdata);
2711          base[2]= (V379);          base[2]= (V357);
2712          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2713          Lmaphash();          Lmaphash();
2714          vs_top=sup;          vs_top=sup;
2715          {object V386 = (base[0]->c.c_car);          {object V364 = (base[0]->c.c_car);
2716          VMR68(V386)}          VMR68(V364)}
2717          va_end(ap);          va_end(ap);
2718          base[0]=base[0];          base[0]=base[0];
2719          return Cnil;}          return Cnil;}
2720          }          }
2721  /*      local entry for function MAKE-FINAL-ORDINARY-DFUN-INTERNAL      */  /*      local entry for function MAKE-FINAL-ORDINARY-DFUN-INTERNAL      */
2722    
2723  static object LI70(V392,V393,V394,V395,V396)  static object LI70(V370,V371,V372,V373,V374)
2724    
2725  register object V392;register object V393;object V394;object V395;object V396;  register object V370;register object V371;object V372;object V373;object V374;
2726  {        VMB69 VMS69 VMV69  {        VMB69 VMS69 VMV69
2727          goto TTL;          goto TTL;
2728  TTL:;  TTL:;
2729          {object V397;          {object V375;
2730          object V398;          object V376;
2731          object V399;          object V377;
2732          object V400;          object V378;
2733          base[4]= (V392);          base[4]= (V370);
2734          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2735          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk177)(Lclptr177);
2736          vs_top=sup;          vs_top=sup;
2737          V397= vs_base[0];          V375= vs_base[0];
2738          V398= (*(LnkLI217))((V397));          V376= (*(LnkLI234))((V375));
2739          if((V396)==Cnil){          if((V374)==Cnil){
2740          V399= Cnil;          V377= Cnil;
2741          goto T700;}          goto T682;}
2742          base[4]= (*(LnkLI218))((V392));          base[4]= (*(LnkLI235))((V370));
2743          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2744          Ltype_of();          Ltype_of();
2745          vs_top=sup;          vs_top=sup;
2746          V401= vs_base[0];          V379= vs_base[0];
2747          if(!(((V393))==(Ct))){          if(!(((V371))==(Ct))){
2748          goto T707;}          goto T689;}
2749          V402= VV[13];          V380= VV[11];
2750          goto T705;          goto T687;
2751          goto T707;          goto T689;
2752  T707:;  T689:;
2753          if(!(((V393))==(VV[74]))){          if(!(((V371))==(VV[81]))){
2754          goto T710;}          goto T692;}
2755          V402= VV[14];          V380= VV[12];
2756          goto T705;          goto T687;
2757          goto T710;          goto T692;
2758  T710:;  T692:;
2759          if(((V393))!=Cnil){          if(((V371))!=Cnil){
2760          goto T713;}          goto T695;}
2761          V402= VV[12];          V380= VV[10];
2762          goto T705;          goto T687;
2763          goto T713;          goto T695;
2764  T713:;  T695:;
2765          V402= Cnil;          V380= Cnil;
2766          goto T705;          goto T687;
2767  T705:;  T687:;
2768          if(equal(V401,V402)){          if(equal(V379,V380)){
2769          goto T701;}          goto T683;}
2770          V399= Cnil;          V377= Cnil;
2771          goto T700;          goto T682;
2772          goto T701;          goto T683;
2773  T701:;  T683:;
2774          V399= (V396);          V377= (V374);
2775          goto T700;          goto T682;
2776  T700:;  T682:;
2777          if(((V399))==Cnil){          if(((V377))==Cnil){
2778          goto T717;}          goto T699;}
2779          V403= (*(LnkLI220))((V392));          V381= (*(LnkLI237))((V370));
2780          V400= (*(LnkLI219))(/* INLINE-ARGS */V403);          V378= (*(LnkLI236))(/* INLINE-ARGS */V381);
2781          goto T715;          goto T697;
2782          goto T717;          goto T699;
2783  T717:;  T699:;
2784          V400= (*(LnkLI175))((V398),(((((V393))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(V394),4);          V378= (*(LnkLI192))((V376),(((((V371))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(V372),4);
2785          goto T715;          goto T697;
2786  T715:;  T697:;
2787          {object V404 = (*(LnkLI221))((V392),(V393),(V400),(V395),(V399));          {object V382 = (*(LnkLI238))((V370),(V371),(V378),(V373),(V377));
2788          VMR69(V404)}}          VMR69(V382)}}
2789          base[0]=base[0];          base[0]=base[0];
2790          return Cnil;          return Cnil;
2791  }  }
# Line 2855  static void L71() Line 2797  static void L71()
2797          vs_check;          vs_check;
2798          check_arg(2);          check_arg(2);
2799          vs_top=sup;          vs_top=sup;
2800          {object V405=base[0]->c.c_cdr;          {object V383=base[0]->c.c_cdr;
2801          if(endp(V405))invalid_macro_call();          if(endp(V383))invalid_macro_call();
2802          {object V406= (V405->c.c_car);          {object V384= (V383->c.c_car);
2803          if(endp(V406))invalid_macro_call();          if(endp(V384))invalid_macro_call();
2804          base[2]= (V406->c.c_car);          base[2]= (V384->c.c_car);
2805          V406=V406->c.c_cdr;          V384=V384->c.c_cdr;
2806          if(endp(V406))invalid_macro_call();          if(endp(V384))invalid_macro_call();
2807          base[3]= (V406->c.c_car);          base[3]= (V384->c.c_car);
2808          V406=V406->c.c_cdr;          V384=V384->c.c_cdr;
2809          if(endp(V406))invalid_macro_call();          if(endp(V384))invalid_macro_call();
2810          base[4]= (V406->c.c_car);          base[4]= (V384->c.c_car);
2811          V406=V406->c.c_cdr;          V384=V384->c.c_cdr;
2812          if(endp(V406))invalid_macro_call();          if(endp(V384))invalid_macro_call();
2813          base[5]= (V406->c.c_car);          base[5]= (V384->c.c_car);
2814          V406=V406->c.c_cdr;          V384=V384->c.c_cdr;
2815          if(endp(V406))invalid_macro_call();          if(endp(V384))invalid_macro_call();
2816          base[6]= (V406->c.c_car);          base[6]= (V384->c.c_car);
2817          V406=V406->c.c_cdr;          V384=V384->c.c_cdr;
2818          if(endp(V406)){          if(endp(V384)){
2819          base[7]= Cnil;          base[7]= Cnil;
2820          } else {          } else {
2821          base[7]= (V406->c.c_car);          base[7]= (V384->c.c_car);
2822          V406=V406->c.c_cdr;}          V384=V384->c.c_cdr;}
2823          if(endp(V406)){          if(endp(V384)){
2824          base[8]= Cnil;          base[8]= Cnil;
2825          } else {          } else {
2826          base[8]= (V406->c.c_car);          base[8]= (V384->c.c_car);
2827          V406=V406->c.c_cdr;}          V384=V384->c.c_cdr;}
2828          if(endp(V406)){          if(endp(V384)){
2829          base[9]= Cnil;          base[9]= Cnil;
2830          } else {          } else {
2831          base[9]= (V406->c.c_car);          base[9]= (V384->c.c_car);
2832          V406=V406->c.c_cdr;}          V384=V384->c.c_cdr;}
2833          if(endp(V406)){          if(endp(V384)){
2834          base[10]= Cnil;          base[10]= Cnil;
2835          } else {          } else {
2836          base[10]= (V406->c.c_car);          base[10]= (V384->c.c_car);
2837          V406=V406->c.c_cdr;}          V384=V384->c.c_cdr;}
2838          if(!endp(V406))invalid_macro_call();}          if(!endp(V384))invalid_macro_call();}
2839          V405=V405->c.c_cdr;          V383=V383->c.c_cdr;
2840          base[11]= V405;}          base[11]= V383;}
2841          if((base[10])!=Cnil){          if((base[10])!=Cnil){
2842          goto T723;}          goto T705;}
2843          vs_base=vs_top;          vs_base=vs_top;
2844          Lgensym();          Lgensym();
2845          vs_top=sup;          vs_top=sup;
2846          base[10]= vs_base[0];          base[10]= vs_base[0];
2847          goto T723;          goto T705;
2848  T723:;  T705:;
         V407 = base[6];  
         V408 = base[10];  
         V409 = base[4];  
         V410 = base[5];  
2849          if((base[7])==Cnil){          if((base[7])==Cnil){
2850          goto T729;}          goto T711;}
2851          V411= list(2,base[7],base[8]);          V385= list(2,base[7],base[8]);
2852          goto T727;          goto T709;
2853          goto T729;          goto T711;
2854  T729:;  T711:;
2855          V411= Cnil;          V385= Cnil;
2856          goto T727;          goto T709;
2857  T727:;  T709:;
2858          V412= listA(5,V407,V408,V409,V410,V411);          V386= listA(5,base[6],base[10],base[4],base[5],V385);
2859          if((base[9])==Cnil){          if((base[9])==Cnil){
2860          goto T733;}          goto T715;}
2861          V413= VV[13];          V387= VV[11];
2862          goto T731;          goto T713;
2863          goto T733;          goto T715;
2864  T733:;  T715:;
2865          if((base[7])==Cnil){          if((base[7])==Cnil){
2866          goto T736;}          goto T718;}
2867          V413= VV[86];          V387= VV[94];
2868          goto T731;          goto T713;
2869          goto T736;          goto T718;
2870  T736:;  T718:;
2871          V413= VV[12];          V387= VV[10];
2872          goto T731;          goto T713;
2873  T731:;  T713:;
2874          V414= list(4,VV[85],base[2],base[3],list(2,VV[25],V413));          V388= list(4,VV[93],base[2],base[3],list(2,VV[23],V387));
2875          V415= list(3,VV[88],base[10],list(2,VV[89],list(3,VV[90],base[2],VV[91])));          V389= list(3,VV[96],base[10],list(2,VV[97],list(3,VV[98],base[2],VV[99])));
2876          V416= list(2,VV[91],list(3,VV[93],base[2],VV[91]));          V390= list(2,VV[99],list(3,VV[101],base[2],VV[99]));
2877          V417= list(3,VV[87],/* INLINE-ARGS */V415,listA(3,VV[92],make_cons(/* INLINE-ARGS */V416,Cnil),base[11]));          V391= list(3,VV[95],/* INLINE-ARGS */V389,listA(3,VV[100],make_cons(/* INLINE-ARGS */V390,Cnil),base[11]));
2878          base[12]= list(5,VV[46],/* INLINE-ARGS */V412,/* INLINE-ARGS */V414,/* INLINE-ARGS */V417,list(3,VV[94],base[6],base[3]));          base[12]= list(5,VV[44],/* INLINE-ARGS */V386,/* INLINE-ARGS */V388,/* INLINE-ARGS */V391,list(3,VV[102],base[6],base[3]));
2879          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2880          return;          return;
2881  }  }
2882  /*      local entry for function MAKE-INITIAL-DFUN      */  /*      local entry for function MAKE-INITIAL-DFUN      */
2883    
2884  static object LI73(V419)  static object LI73(V393)
2885    
2886  object V419;  object V393;
2887  {        VMB71 VMS71 VMV71  {        VMB71 VMS71 VMV71
2888          goto TTL;          goto TTL;
2889  TTL:;  TTL:;
2890          base[0]=MMcons((V419),Cnil);          base[0]=MMcons((V393),Cnil);
2891          {object V420;          {object V394;
2892          V420=          V394=
2893          make_cclosure_new(LC153,Cnil,base[0],Cdata);          make_cclosure_new(LC153,Cnil,base[0],Cdata);
2894          {object V421;          {object V395;
2895          object V422;          object V396;
2896          object V423;          object V397;
2897          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[79]->s.s_dbind))==(VV[80]))){
2898          goto T741;}          goto T723;}
2899          if(((*(LnkLI205))((base[0]->c.c_car)))==Cnil){          if(((*(LnkLI222))((base[0]->c.c_car)))==Cnil){
2900          goto T741;}          goto T723;}
2901          {object V424;          {object V398;
2902          object V425;          object V399;
2903          V424= (*(LnkLI183))((base[0]->c.c_car));          V398= (*(LnkLI200))((base[0]->c.c_car));
2904          V425= (VFUN_NARGS=3,(*(LnkLI222))((base[0]->c.c_car),(V424),(((VV[95]->s.s_dbind))==Cnil?Ct:Cnil)));          V399= (VFUN_NARGS=3,(*(LnkLI239))((base[0]->c.c_car),(V398),(((VV[103]->s.s_dbind))==Cnil?Ct:Cnil)));
2905          if(((VV[95]->s.s_dbind))==Cnil){          if(((VV[103]->s.s_dbind))==Cnil){
2906          goto T748;}          goto T730;}
2907          if(((VFUN_NARGS=2,(*(LnkLI185))((base[0]->c.c_car),(V424))))==Cnil){          if(((VFUN_NARGS=2,(*(LnkLI202))((base[0]->c.c_car),(V398))))==Cnil){
2908          goto T751;}          goto T733;}
2909          base[3]= (V420);          base[3]= (V394);
2910          base[4]= Cnil;          base[4]= Cnil;
2911          base[5]= (*(LnkLI223))();          base[5]= (*(LnkLI240))();
2912          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2913          goto T739;          goto T721;
2914          goto T751;          goto T733;
2915  T751:;  T733:;
2916            if(((V398))==Cnil){
2917            goto T738;}
2918          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
2919          base[4]= (V424);          vs_top=(vs_base=base+3)+1;
2920          vs_top=(vs_base=base+3)+2;          (void) (*Lnk241)();
         (void) (*Lnk224)();  
2921          vs_top=sup;          vs_top=sup;
2922          base[3]= (V420);          goto T738;
2923    T738:;
2924            base[3]= (V394);
2925          base[4]= Cnil;          base[4]= Cnil;
2926          base[5]= (*(LnkLI225))();          base[5]= (*(LnkLI242))();
2927          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2928          goto T739;          goto T721;
2929          goto T748;          goto T730;
2930  T748:;  T730:;
2931          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
2932          base[4]= (V425);          base[4]= (V399);
2933          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2934          (void) (*Lnk226)();          (void) (*Lnk243)();
2935          goto T739;}          goto T721;}
2936          goto T741;          goto T723;
2937  T741:;  T723:;
2938          {object V426;          {object V400;
2939          object V427;          object V401;
2940          if(((*(LnkLI196))((base[0]->c.c_car)))==Cnil){          if(((*(LnkLI213))((base[0]->c.c_car)))==Cnil){
2941          goto T766;}          goto T749;}
2942          {object V429;          {object V403;
2943          V429= (base[0]->c.c_car);          V403= (base[0]->c.c_car);
2944          if(type_of((V429))==t_structure){          if(type_of((V403))==t_structure){
2945          goto T772;}          goto T755;}
2946          goto T770;          goto T753;
2947          goto T772;          goto T755;
2948  T772:;  T755:;
2949          if(!((((V429))->str.str_def)==(VV[99]))){          if(!((((V403))->str.str_def)==(VV[107]))){
2950          goto T770;}}          goto T753;}}
2951          V428= STREF(object,(base[0]->c.c_car),4);          V402= STREF(object,(base[0]->c.c_car),4);
2952          goto T768;          goto T751;
2953          goto T770;          goto T753;
2954  T770:;{object V430;  T753:;{object V404;
2955          V430= (VV[65]->s.s_dbind);          V404= (VV[73]->s.s_dbind);
2956          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
2957          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
2958          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2959          (void) (*Lnk197)();          (void) (*Lnk214)();
2960          vs_top=sup;          vs_top=sup;
2961          V431= vs_base[0];          V405= vs_base[0];
2962          if(!((V430)==(CMPcar(V431)))){          if(!((V404)==(CMPcar(V405)))){
2963          goto T775;}}          goto T758;}}
2964          V428= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);          V402= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);
2965          goto T768;          goto T751;
2966          goto T775;          goto T758;
2967  T775:;  T758:;
2968          base[1]= VV[66];          base[1]= VV[74];
2969          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2970          Lerror();          Lerror();
2971          vs_top=sup;          vs_top=sup;
2972          V428= vs_base[0];          V402= vs_base[0];
2973          goto T768;          goto T751;
2974  T768:;  T751:;
2975          V432 = (VV[97]->s.s_dbind);          V400= (V402)->v.v_self[fix((VV[105]->s.s_dbind))];
2976          V426= (V428)->v.v_self[fix(V432)];          goto T747;
2977          goto T764;          goto T749;
2978          goto T766;  T749:;
 T766:;  
2979          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
2980          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2981          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk177)(Lclptr177);
2982          vs_top=sup;          vs_top=sup;
2983          V426= vs_base[0];          V400= vs_base[0];
2984          goto T764;          goto T747;
2985  T764:;  T747:;
2986          V427= Cnil;          V401= Cnil;
2987          if((STREF(object,(V426),28))==Cnil){          if((STREF(object,(V400),28))==Cnil){
2988          goto T783;}          goto T766;}
2989          V427= (*(LnkLI227))((base[0]->c.c_car));          V401= (*(LnkLI244))((base[0]->c.c_car));
2990          if(((V427))==Cnil){          if(((V401))==Cnil){
2991          goto T783;}          goto T766;}
2992          if(((VV[98]->s.s_dbind))==Cnil){          if(((VV[106]->s.s_dbind))==Cnil){
2993          goto T789;}          goto T772;}
2994          base[1]= (*(LnkLI228))((base[0]->c.c_car),(V427));          base[1]= (*(LnkLI245))((base[0]->c.c_car),(V401));
2995          base[2]= Cnil;          base[2]= Cnil;
2996          base[3]= Cnil;          base[3]= Cnil;
2997          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2998          goto T739;          goto T721;
2999          goto T789;          goto T772;
3000  T789:;  T772:;
3001          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
3002          base[2]= (V427);          base[2]= (V401);
3003          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3004          (void) (*Lnk229)();          (void) (*Lnk246)();
3005          goto T739;          goto T721;
3006          goto T783;          goto T766;
3007  T783:;  T766:;
3008          base[1]= (V420);          base[1]= (V394);
3009          base[2]= Cnil;          base[2]= Cnil;
3010          base[3]= (*(LnkLI225))();          base[3]= (*(LnkLI242))();
3011          vs_top=(vs_base=base+1)+3;}          vs_top=(vs_base=base+1)+3;}
3012          goto T739;          goto T721;
3013  T739:;  T721:;
3014          if(vs_base>=vs_top){vs_top=sup;goto T799;}          if(vs_base>=vs_top){vs_top=sup;goto T782;}
3015          V421= vs_base[0];          V395= vs_base[0];
3016          vs_base++;          vs_base++;
3017          if(vs_base>=vs_top){vs_top=sup;goto T800;}          if(vs_base>=vs_top){vs_top=sup;goto T783;}
3018          V422= vs_base[0];          V396= vs_base[0];
3019          vs_base++;          vs_base++;
3020          if(vs_base>=vs_top){vs_top=sup;goto T801;}          if(vs_base>=vs_top){vs_top=sup;goto T784;}
3021          V423= vs_base[0];          V397= vs_base[0];
3022          vs_top=sup;          vs_top=sup;
3023          goto T802;          goto T785;
3024          goto T799;          goto T782;
3025  T799:;  T782:;
3026          V421= Cnil;          V395= Cnil;
3027          goto T800;          goto T783;
3028  T800:;  T783:;
3029          V422= Cnil;          V396= Cnil;
3030          goto T801;          goto T784;
3031  T801:;  T784:;
3032          V423= Cnil;          V397= Cnil;
3033          goto T802;          goto T785;
3034  T802:;  T785:;
3035          {object V433 = (VFUN_NARGS=4,(*(LnkLI230))((base[0]->c.c_car),(V421),(V422),(V423)));          {object V406 = (VFUN_NARGS=4,(*(LnkLI247))((base[0]->c.c_car),(V395),(V396),(V397)));
3036          VMR71(V433)}}}          VMR71(V406)}}}
3037          base[0]=base[0];          base[0]=base[0];
3038          return Cnil;          return Cnil;
3039  }  }
3040  /*      local entry for function MAKE-EARLY-ACCESSOR    */  /*      local entry for function MAKE-EARLY-ACCESSOR    */
3041    
3042  static object LI74(V436,V437)  static object LI74(V409,V410)
3043    
3044  register object V436;object V437;  register object V409;object V410;
3045  {        VMB72 VMS72 VMV72  {        VMB72 VMS72 VMV72
3046          goto TTL;          goto TTL;
3047  TTL:;  TTL:;
3048          {object V438;          {object V411;
3049          if(type_of(V436)==t_structure){          if(type_of(V409)==t_structure){
3050          goto T808;}          goto T791;}
3051          goto T806;          goto T789;
3052          goto T808;          goto T791;
3053  T808:;  T791:;
3054          if(!(((V436)->str.str_def)==(VV[100]))){          if(!(((V409)->str.str_def)==(VV[108]))){
3055          goto T806;}          goto T789;}
3056          V439= STREF(object,(V436),4);          V412= STREF(object,(V409),4);
3057          goto T804;          goto T787;
3058          goto T806;          goto T789;
3059  T806:;{object V441;  T789:;{object V414;
3060          V441= (VV[65]->s.s_dbind);          V414= (VV[73]->s.s_dbind);
3061          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
3062          base[3]= (V436);          base[3]= (V409);
3063          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3064          (void) (*Lnk197)();          (void) (*Lnk214)();
3065          vs_top=sup;          vs_top=sup;
3066          V442= vs_base[0];          V415= vs_base[0];
3067          if(!((V441)==(CMPcar(V442)))){          if(!((V414)==(CMPcar(V415)))){
3068          goto T811;}}          goto T794;}}
3069          V439= CMPcar(((V436))->cc.cc_turbo[12]);          V412= CMPcar(((V409))->cc.cc_turbo[12]);
3070          goto T804;          goto T787;
3071          goto T811;          goto T794;
3072  T811:;  T794:;
3073          base[2]= VV[66];          base[2]= VV[74];
3074          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3075          Lerror();          Lerror();
3076          vs_top=sup;          vs_top=sup;
3077          V439= vs_base[0];          V412= vs_base[0];
3078          goto T804;          goto T787;
3079  T804:;  T787:;
3080          V443 = (VV[67]->s.s_dbind);          V411= (V412)->v.v_self[fix((VV[75]->s.s_dbind))];
3081          V438= (V439)->v.v_self[fix(V443)];          base[2]= CMPcar((V411));
         base[2]= CMPcar((V438));  
3082          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3083          (void) (*Lnk231)();          (void) (*Lnk248)();
3084          vs_top=sup;          vs_top=sup;
3085          base[1]= vs_base[0];          base[1]= vs_base[0];
3086          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
3087          {object V444= (V437);          {object V417= V410;
3088          if((V444!= VV[51]))goto T819;          if((V417!= VV[59]))goto T802;
3089          {object V445 =          {object V418 =
3090          make_cclosure_new(LC154,Cnil,base[1],Cdata);          make_cclosure_new(LC154,Cnil,base[1],Cdata);
3091          VMR72(V445)}          VMR72(V418)}
3092          goto T819;          goto T802;
3093  T819:;  T802:;
3094          if((V444!= VV[123]))goto T820;          if((V417!= VV[133]))goto T803;
3095          {object V446 =          {object V419 =
3096          make_cclosure_new(LC155,Cnil,base[1],Cdata);          make_cclosure_new(LC155,Cnil,base[1],Cdata);
3097          VMR72(V446)}          VMR72(V419)}
3098          goto T820;          goto T803;
3099  T820:;  T803:;
3100          FEerror("The ECASE key value ~s is illegal.",1,V444);          base[2]= VV[49];
3101          {object V447 = Cnil;          base[3]= VV[50];
3102          VMR72(V447)}}}          base[4]= VV[51];
3103            base[5]= VV[52];
3104            base[6]= V410;
3105            base[7]= VV[53];
3106            base[8]= VV[113];
3107            base[9]= VV[55];
3108            base[10]= VV[114];
3109            vs_top=(vs_base=base+2)+9;
3110            (void) (*Lnk187)();
3111            vs_top=sup;
3112            {object V420 = vs_base[0];
3113            VMR72(V420)}}}
3114          base[0]=base[0];          base[0]=base[0];
3115          return Cnil;          return Cnil;
3116  }  }
# Line 3171  static void L75() Line 3121  static void L75()
3121          register object *sup=base+VM73; VC73          register object *sup=base+VM73; VC73
3122          vs_check;          vs_check;
3123          bds_check;          bds_check;
3124          {register object V448;          {register object V421;
3125          object V449;          object V422;
3126          check_arg(2);          check_arg(2);
3127          V448=(base[0]);          V421=(base[0]);
3128          V449=(base[1]);          V422=(base[1]);
3129          vs_top=sup;          vs_top=sup;
3130          goto TTL;          goto TTL;
3131  TTL:;  TTL:;
3132          {object V450;          {object V423;
3133          object V451;          object V424;
3134          object V452;          object V425;
3135          object V453;          object V426;
3136          object V454;          object V427;
3137          object V455;          object V428;
3138          base[2]= (V448);          base[2]= (V421);
3139          base[3]= (V449);          base[3]= (V422);
3140          base[4]= VV[86];          base[4]= VV[94];
3141          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
3142          (void) (*Lnk85)();          (void) (*Lnk93)();
3143          if(vs_base>=vs_top){vs_top=sup;goto T825;}          if(vs_base>=vs_top){vs_top=sup;goto T817;}
3144          V450= vs_base[0];          V423= vs_base[0];
3145          vs_base++;          vs_base++;
3146          if(vs_base>=vs_top){vs_top=sup;goto T826;}          if(vs_base>=vs_top){vs_top=sup;goto T818;}
3147          V451= vs_base[0];          V424= vs_base[0];
3148          vs_base++;          vs_base++;
3149          if(vs_base>=vs_top){vs_top=sup;goto T827;}          if(vs_base>=vs_top){vs_top=sup;goto T819;}
3150          V452= vs_base[0];          V425= vs_base[0];
3151          vs_base++;          vs_base++;
3152          if(vs_base>=vs_top){vs_top=sup;goto T828;}          if(vs_base>=vs_top){vs_top=sup;goto T820;}
3153          V453= vs_base[0];          V426= vs_base[0];
3154          vs_base++;          vs_base++;
3155          if(vs_base>=vs_top){vs_top=sup;goto T829;}          if(vs_base>=vs_top){vs_top=sup;goto T821;}
3156          V454= vs_base[0];          V427= vs_base[0];
3157          vs_base++;          vs_base++;
3158          if(vs_base>=vs_top){vs_top=sup;goto T830;}          if(vs_base>=vs_top){vs_top=sup;goto T822;}
3159          V455= vs_base[0];          V428= vs_base[0];
3160          vs_top=sup;          vs_top=sup;
3161          goto T831;          goto T823;
3162          goto T825;          goto T817;
3163  T825:;  T817:;
3164          V450= Cnil;          V423= Cnil;
3165          goto T826;          goto T818;
3166  T826:;  T818:;
3167          V451= Cnil;          V424= Cnil;
3168          goto T827;          goto T819;
3169  T827:;  T819:;
3170          V452= Cnil;          V425= Cnil;
3171          goto T828;          goto T820;
3172  T828:;  T820:;
3173          V453= Cnil;          V426= Cnil;
3174          goto T829;          goto T821;
3175  T829:;  T821:;
3176          V454= Cnil;          V427= Cnil;
3177          goto T830;          goto T822;
3178  T830:;  T822:;
3179          V455= Cnil;          V428= Cnil;
3180            goto T823;
3181    T823:;
3182            if(((V424))==Cnil){
3183            goto T824;}
3184            {register object x= (V421),V429= (VV[99]->s.s_dbind);
3185            while(V429!=Cnil)
3186            if(x==(V429->c.c_car)){
3187            goto T824;
3188            }else V429=V429->c.c_cdr;}
3189            base[2]= make_cons((V421),(VV[99]->s.s_dbind));
3190            bds_bind(VV[99],base[2]);
3191            if((V426)==Cnil){
3192            goto T831;}
3193            bds_unwind1;
3194            goto T824;
3195          goto T831;          goto T831;
3196  T831:;  T831:;
3197          if(((V451))==Cnil){          if(((V427))==Cnil){
3198          goto T832;}          goto T834;}
3199          {register object x= (V448),V456= (VV[91]->s.s_dbind);          if(((V428))==Cnil){
3200          while(V456!=Cnil)          goto T834;}
3201          if(x==(V456->c.c_car)){          {object V431;
3202          goto T832;          object V432;
3203          }else V456=V456->c.c_cdr;}          object V433;
3204          base[2]= make_cons((V448),(VV[91]->s.s_dbind));          base[3]= (V421);
3205          bds_bind(VV[91],base[2]);          base[4]= (V427);
3206          if((V453)==Cnil){          base[5]= (V425);
3207          goto T839;}          base[6]= (V428);
         bds_unwind1;  
         goto T832;  
         goto T839;  
 T839:;  
         if(((V454))==Cnil){  
         goto T842;}  
         if(((V455))==Cnil){  
         goto T842;}  
         {object V458;  
         object V459;  
         object V460;  
         base[3]= (V448);  
         base[4]= (V454);  
         base[5]= (V452);  
         base[6]= (V455);  
3208          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3209          (void) (*Lnk232)();          (void) (*Lnk249)();
3210          if(vs_base>=vs_top){vs_top=sup;goto T851;}          if(vs_base>=vs_top){vs_top=sup;goto T843;}
3211          V458= vs_base[0];          V431= vs_base[0];
3212          vs_base++;          vs_base++;
3213            if(vs_base>=vs_top){vs_top=sup;goto T844;}
3214            V432= vs_base[0];
3215            vs_base++;
3216            if(vs_base>=vs_top){vs_top=sup;goto T845;}
3217            V433= vs_base[0];
3218            vs_top=sup;
3219            goto T846;
3220            goto T843;
3221    T843:;
3222            V431= Cnil;
3223            goto T844;
3224    T844:;
3225            V432= Cnil;
3226            goto T845;
3227    T845:;
3228            V433= Cnil;
3229            goto T846;
3230    T846:;
3231            V434= (VFUN_NARGS=4,(*(LnkLI47))((V421),(V431),(V432),(V433)));
3232            bds_unwind1;
3233            goto T824;}
3234            goto T834;
3235    T834:;
3236            if(((*(LnkLI200))((V421)))==Cnil){
3237            goto T848;}
3238            {object V435;
3239            object V436;
3240            object V437;
3241            base[3]= (V421);
3242            vs_top=(vs_base=base+3)+1;
3243            (void) (*Lnk201)();
3244          if(vs_base>=vs_top){vs_top=sup;goto T852;}          if(vs_base>=vs_top){vs_top=sup;goto T852;}
3245          V459= vs_base[0];          V435= vs_base[0];
3246          vs_base++;          vs_base++;
3247          if(vs_base>=vs_top){vs_top=sup;goto T853;}          if(vs_base>=vs_top){vs_top=sup;goto T853;}
3248          V460= vs_base[0];          V436= vs_base[0];
3249            vs_base++;
3250            if(vs_base>=vs_top){vs_top=sup;goto T854;}
3251            V437= vs_base[0];
3252          vs_top=sup;          vs_top=sup;
3253          goto T854;          goto T855;
         goto T851;  
 T851:;  
         V458= Cnil;  
3254          goto T852;          goto T852;
3255  T852:;  T852:;
3256          V459= Cnil;          V435= Cnil;
3257          goto T853;          goto T853;
3258  T853:;  T853:;
3259          V460= Cnil;          V436= Cnil;
3260          goto T854;          goto T854;
3261  T854:;  T854:;
3262          V461= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V458),(V459),(V460)));          V437= Cnil;
3263            goto T855;
3264    T855:;
3265            V438= (VFUN_NARGS=4,(*(LnkLI47))((V421),(V435),(V436),(V437)));
3266          bds_unwind1;          bds_unwind1;
3267          goto T832;}          goto T824;}
3268          goto T842;          goto T848;
3269  T842:;  T848:;
3270          if(((*(LnkLI183))((V448)))==Cnil){          {object V439;
3271          goto T856;}          object V440;
3272          {object V462;          object V441;
3273          object V463;          base[3]= (V421);
3274          object V464;          base[5]= (V421);
3275          base[3]= (V448);          base[6]= (V422);
3276          vs_top=(vs_base=base+3)+1;          base[7]= VV[10];
3277          (void) (*Lnk184)();          vs_top=(vs_base=base+5)+3;
3278          if(vs_base>=vs_top){vs_top=sup;goto T860;}          (void) (*Lnk93)();
3279          V462= vs_base[0];          vs_top=sup;
3280            base[4]= vs_base[0];
3281            vs_top=(vs_base=base+3)+2;
3282            (void) (*Lnk210)();
3283            if(vs_base>=vs_top){vs_top=sup;goto T862;}
3284            V439= vs_base[0];
3285          vs_base++;          vs_base++;
3286          if(vs_base>=vs_top){vs_top=sup;goto T861;}          if(vs_base>=vs_top){vs_top=sup;goto T863;}
3287          V463= vs_base[0];          V440= vs_base[0];
3288          vs_base++;          vs_base++;
3289          if(vs_base>=vs_top){vs_top=sup;goto T862;}          if(vs_base>=vs_top){vs_top=sup;goto T864;}
3290          V464= vs_base[0];          V441= vs_base[0];
3291          vs_top=sup;          vs_top=sup;
3292          goto T863;          goto T865;
         goto T860;  
 T860:;  
         V462= Cnil;  
         goto T861;  
 T861:;  
         V463= Cnil;  
3293          goto T862;          goto T862;
3294  T862:;  T862:;
3295          V464= Cnil;          V439= Cnil;
3296          goto T863;          goto T863;
3297  T863:;  T863:;
3298          V465= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V462),(V463),(V464)));          V440= Cnil;
3299          bds_unwind1;          goto T864;
3300          goto T832;}  T864:;
3301          goto T856;          V441= Cnil;
3302  T856:;          goto T865;
3303          {object V466;  T865:;
3304          object V467;          V442= (VFUN_NARGS=4,(*(LnkLI47))((V421),(V439),(V440),(V441)));
         object V468;  
         base[3]= (V448);  
         base[5]= (V448);  
         base[6]= (V449);  
         base[7]= VV[12];  
         vs_top=(vs_base=base+5)+3;  
         (void) (*Lnk85)();  
         vs_top=sup;  
         base[4]= vs_base[0];  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk193)();  
         if(vs_base>=vs_top){vs_top=sup;goto T870;}  
         V466= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T871;}  
         V467= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T872;}  
         V468= vs_base[0];  
         vs_top=sup;  
         goto T873;  
         goto T870;  
 T870:;  
         V466= Cnil;  
         goto T871;  
 T871:;  
         V467= Cnil;  
         goto T872;  
 T872:;  
         V468= Cnil;  
         goto T873;  
 T873:;  
         V469= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V466),(V467),(V468)));  
3305          bds_unwind1;}          bds_unwind1;}
3306          goto T832;          goto T824;
3307  T832:;  T824:;
3308          base[2]= (V450);          base[2]= (V423);
3309          base[3]= (V449);          base[3]= (V422);
3310          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3311          (void) (*Lnk94)();          (void) (*Lnk102)();
3312          return;}          return;}
3313          }          }
3314  }  }
3315  /*      local entry for function MAKE-FINAL-DFUN        */  /*      local entry for function MAKE-FINAL-DFUN        */
3316    
3317  static object LI76(object V470,object first,...)  static object LI76(object V443,object first,...)
3318  {        {      
3319          va_list ap;          va_list ap;
3320          int narg = VFUN_NARGS; VMB74 VMS74 VMV74          int narg = VFUN_NARGS; VMB74 VMS74 VMV74
3321          {object V471;          {object V444;
3322          object V472;          object V445;
3323          va_start(ap,first);          va_start(ap,first);
3324          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
3325          V471= V470;          V444= V443;
3326          narg = narg - 1;          narg = narg - 1;
3327          if (narg <= 0) goto T876;          if (narg <= 0) goto T868;
3328          else {          else {
3329          V472= first;}          V445= first;}
3330          --narg; goto T877;          --narg; goto T869;
3331          goto T876;          goto T868;
3332  T876:;  T868:;
3333          V472= Cnil;          V445= Cnil;
3334          goto T877;          goto T869;
3335  T877:;  T869:;
3336          {object V473;          {object V446;
3337          object V474;          object V447;
3338          object V475;          object V448;
3339          base[0]= (V471);          base[0]= (V444);
3340          base[1]= (V472);          base[1]= (V445);
3341          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3342          (void) (*Lnk226)();          (void) (*Lnk243)();
3343          if(vs_base>=vs_top){vs_top=sup;goto T882;}          if(vs_base>=vs_top){vs_top=sup;goto T874;}
3344          V473= vs_base[0];          V446= vs_base[0];
3345          vs_base++;          vs_base++;
3346          if(vs_base>=vs_top){vs_top=sup;goto T883;}          if(vs_base>=vs_top){vs_top=sup;goto T875;}
3347          V474= vs_base[0];          V447= vs_base[0];
3348          vs_base++;          vs_base++;
3349          if(vs_base>=vs_top){vs_top=sup;goto T884;}          if(vs_base>=vs_top){vs_top=sup;goto T876;}
3350          V475= vs_base[0];          V448= vs_base[0];
3351          vs_top=sup;          vs_top=sup;
3352          goto T885;          goto T877;
3353          goto T882;          goto T874;
3354  T882:;  T874:;
3355          V473= Cnil;          V446= Cnil;
3356          goto T883;          goto T875;
3357  T883:;  T875:;
3358          V474= Cnil;          V447= Cnil;
3359          goto T884;          goto T876;
3360  T884:;  T876:;
3361          V475= Cnil;          V448= Cnil;
3362          goto T885;          goto T877;
3363  T885:;  T877:;
3364          {object V476 = (VFUN_NARGS=4,(*(LnkLI230))((V471),(V473),(V474),(V475)));          {object V449 = (VFUN_NARGS=4,(*(LnkLI247))((V444),(V446),(V447),(V448)));
3365          VMR74(V476)}}          VMR74(V449)}}
3366          va_end(ap);          va_end(ap);
3367          base[0]=base[0];          base[0]=base[0];
3368          return Cnil;}          return Cnil;}
# Line 3425  static void L77() Line 3375  static void L77()
3375          vs_check;          vs_check;
3376          check_arg(2);          check_arg(2);
3377          vs_top=sup;          vs_top=sup;
3378          {object V477=base[0]->c.c_cdr;          {object V450=base[0]->c.c_cdr;
3379          if(endp(V477))invalid_macro_call();          if(endp(V450))invalid_macro_call();
3380          {object V478= (V477->c.c_car);          {object V451= (V450->c.c_car);
3381          if(endp(V478))invalid_macro_call();          if(endp(V451))invalid_macro_call();
3382          base[2]= (V478->c.c_car);          base[2]= (V451->c.c_car);
3383          V478=V478->c.c_cdr;          V451=V451->c.c_cdr;
3384          if(endp(V478))invalid_macro_call();          if(endp(V451))invalid_macro_call();
3385          base[3]= (V478->c.c_car);          base[3]= (V451->c.c_car);
3386          V478=V478->c.c_cdr;          V451=V451->c.c_cdr;
3387          if(!endp(V478))invalid_macro_call();}          if(!endp(V451))invalid_macro_call();}
3388          V477=V477->c.c_cdr;          V450=V450->c.c_cdr;
3389          base[4]= V477;}          base[4]= V450;}
3390          V479= list(2,VV[106],list(3,VV[107],list(2,VV[25],base[3]),VV[108]));          V452= list(2,VV[116],list(3,VV[117],list(2,VV[23],base[3]),VV[118]));
3391          V480= list(2,/* INLINE-ARGS */V479,list(2,base[2],list(4,VV[109],VV[110],VV[111],list(3,VV[112],VV[113],list(2,VV[25],base[3])))));          V453= list(2,/* INLINE-ARGS */V452,list(2,base[2],list(4,VV[119],VV[120],VV[121],list(3,VV[122],VV[123],list(2,VV[23],base[3])))));
3392          V481= make_cons(VV[21],base[4]);          V454= make_cons(VV[19],base[4]);
3393          V482= list(2,VV[115],base[2]);          V455= list(2,VV[125],base[2]);
3394          base[5]= list(3,VV[105],/* INLINE-ARGS */V480,list(4,VV[114],/* INLINE-ARGS */V481,/* INLINE-ARGS */V482,list(3,VV[116],base[2],VV[117])));          base[5]= list(3,VV[115],/* INLINE-ARGS */V453,list(4,VV[124],/* INLINE-ARGS */V454,/* INLINE-ARGS */V455,list(3,VV[126],base[2],VV[127])));
3395          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3396          return;          return;
3397  }  }
# Line 3453  static void L78() Line 3403  static void L78()
3403          vs_check;          vs_check;
3404          check_arg(2);          check_arg(2);
3405          vs_top=sup;          vs_top=sup;
3406          {object V483=base[0]->c.c_cdr;          {object V456=base[0]->c.c_cdr;
3407          if(endp(V483))invalid_macro_call();          if(endp(V456))invalid_macro_call();
3408          {object V484= (V483->c.c_car);          {object V457= (V456->c.c_car);
3409          if(endp(V484))invalid_macro_call();          if(endp(V457))invalid_macro_call();
3410          base[2]= (V484->c.c_car);          base[2]= (V457->c.c_car);
3411          V484=V484->c.c_cdr;          V457=V457->c.c_cdr;
3412          if(!endp(V484))invalid_macro_call();}          if(!endp(V457))invalid_macro_call();}
3413          V483=V483->c.c_cdr;          V456=V456->c.c_cdr;
3414          base[3]= V483;}          base[3]= V456;}
3415          base[4]= listA(3,VV[118],list(2,base[2],VV[119]),base[3]);          base[4]= listA(3,VV[128],list(2,base[2],VV[129]),base[3]);
3416          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3417          return;          return;
3418  }  }
3419  /*      local entry for function FINAL-ACCESSOR-DFUN-TYPE       */  /*      local entry for function FINAL-ACCESSOR-DFUN-TYPE       */
3420    
3421  static object LI79(V486)  static object LI79(V459)
3422    
3423  register object V486;  register object V459;
3424  {        VMB77 VMS77 VMV77  {        VMB77 VMS77 VMV77
3425          goto TTL;          goto TTL;
3426  TTL:;  TTL:;
3427          {object V487;          {object V460;
3428          if(((*(LnkLI196))((V486)))==Cnil){          if(((*(LnkLI213))((V459)))==Cnil){
3429          goto T888;}          goto T880;}
3430          if(type_of(V486)==t_structure){          if(type_of(V459)==t_structure){
3431          goto T894;}          goto T886;}
3432          goto T892;          goto T884;
3433          goto T894;          goto T886;
3434  T894:;  T886:;
3435          if(!(((V486)->str.str_def)==(VV[120]))){          if(!(((V459)->str.str_def)==(VV[130]))){
3436          goto T892;}          goto T884;}
3437          V488= STREF(object,(V486),4);          V461= STREF(object,(V459),4);
3438          goto T890;          goto T882;
3439          goto T892;          goto T884;
3440  T892:;{object V490;  T884:;{object V463;
3441          V490= (VV[65]->s.s_dbind);          V463= (VV[73]->s.s_dbind);
3442          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
3443          base[1]= (V486);          base[1]= (V459);
3444          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3445          (void) (*Lnk197)();          (void) (*Lnk214)();
3446          vs_top=sup;          vs_top=sup;
3447          V491= vs_base[0];          V464= vs_base[0];
3448          if(!((V490)==(CMPcar(V491)))){          if(!((V463)==(CMPcar(V464)))){
3449          goto T897;}}          goto T889;}}
3450          V488= CMPcar(((V486))->cc.cc_turbo[12]);          V461= CMPcar(((V459))->cc.cc_turbo[12]);
3451          goto T890;          goto T882;
3452          goto T897;          goto T889;
3453  T897:;  T889:;
3454          base[0]= VV[66];          base[0]= VV[74];
3455          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3456          Lerror();          Lerror();
3457          vs_top=sup;          vs_top=sup;
3458          V488= vs_base[0];          V461= vs_base[0];
3459          goto T890;          goto T882;
3460  T890:;  T882:;
3461          V492 = (VV[67]->s.s_dbind);          V460= (V461)->v.v_self[fix((VV[75]->s.s_dbind))];
3462          V487= (V488)->v.v_self[fix(V492)];          goto T878;
3463          goto T886;          goto T880;
3464          goto T888;  T880:;
3465  T888:;          base[0]= (V459);
         base[0]= (V486);  
3466          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3467          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk216)(Lclptr216);
3468          vs_top=sup;          vs_top=sup;
3469          V487= vs_base[0];          V460= vs_base[0];
3470          goto T886;          goto T878;
3471  T886:;  T878:;
3472          base[0]= VV[233];          base[0]= VV[250];
3473          base[1]= (V487);          base[1]= (V460);
3474          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3475          (void) (*Lnk188)();          (void) (*Lnk205)();
3476          vs_top=sup;          vs_top=sup;
3477          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3478          goto T905;}          goto T897;}
3479          {object V493 = VV[51];          {object V465 = VV[59];
3480          VMR77(V493)}          VMR77(V465)}
3481          goto T905;          goto T897;
3482  T905:;  T897:;
3483          base[0]= VV[234];          base[0]= VV[251];
3484          base[1]= (V487);          base[1]= (V460);
3485          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3486          (void) (*Lnk188)();          (void) (*Lnk205)();
3487          vs_top=sup;          vs_top=sup;
3488          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3489          goto T910;}          goto T902;}
3490          {object V494 = VV[123];          {object V466 = VV[133];
3491          VMR77(V494)}          VMR77(V466)}
3492          goto T910;          goto T902;
3493  T910:;  T902:;
3494          {object V495 = Cnil;          {object V467 = Cnil;
3495          VMR77(V495)}}          VMR77(V467)}}
3496          base[0]=base[0];          base[0]=base[0];
3497          return Cnil;          return Cnil;
3498  }  }
# Line 3553  static void L80() Line 3502  static void L80()
3502  {register object *base=vs_base;  {register object *base=vs_base;
3503          register object *sup=base+VM78; VC78          register object *sup=base+VM78; VC78
3504          vs_check;          vs_check;
3505          {register object V496;          {register object V468;
3506          register object V497;          register object V469;
3507          object V498;          object V470;
3508          object V499;          object V471;
3509          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3510          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
3511          V496=(base[0]);          V468=(base[0]);
3512          V497=(base[1]);          V469=(base[1]);
3513          vs_base=vs_base+2;          vs_base=vs_base+2;
3514          if(vs_base>=vs_top){vs_top=sup;goto T914;}          if(vs_base>=vs_top){vs_top=sup;goto T906;}
3515          V498=(base[2]);          V470=(base[2]);
3516          vs_base++;          vs_base++;
3517          if(vs_base>=vs_top){vs_top=sup;goto T915;}          if(vs_base>=vs_top){vs_top=sup;goto T907;}
3518          V499=(base[3]);          V471=(base[3]);
3519          vs_top=sup;          vs_top=sup;
3520          goto T916;          goto T908;
3521            goto T906;
3522    T906:;
3523            V470= Cnil;
3524            goto T907;
3525    T907:;
3526            V471= Cnil;
3527            goto T908;
3528    T908:;
3529            {object V472;
3530            object V473;
3531            {register object x= VV[129],V474= (VV[118]->s.s_dbind);
3532            while(V474!=Cnil)
3533            if(eql(x,V474->c.c_car->c.c_car) &&V474->c.c_car != Cnil){
3534            V472= (V474->c.c_car);
3535            goto T911;
3536            }else V474=V474->c.c_cdr;
3537            V472= Cnil;}
3538            goto T911;
3539    T911:;
3540            if((CMPcdr((V472)))==Cnil){
3541            goto T914;}
3542            {object V476;
3543            V476= CMPcdr(CMPcdr(V472));
3544            {object V477;
3545            V477= CMPcar(CMPcdr(V472));
3546            (V472)->c.c_cdr = (V476);
3547            V473= (V477);
3548            goto T912;}}
3549          goto T914;          goto T914;
3550  T914:;  T914:;
3551          V498= Cnil;          base[6]= VV[123];
3552          goto T915;          base[7]= VV[129];
 T915:;  
         V499= Cnil;  
         goto T916;  
 T916:;  
         {object V500;  
         object V501;  
         {register object x= VV[119],V502= (VV[108]->s.s_dbind);  
         while(V502!=Cnil)  
         if(eql(x,V502->c.c_car->c.c_car) &&V502->c.c_car != Cnil){  
         V500= (V502->c.c_car);  
         goto T919;  
         }else V502=V502->c.c_cdr;  
         V500= Cnil;}  
         goto T919;  
 T919:;  
         if((CMPcdr((V500)))==Cnil){  
         goto T922;}  
         {object V504;  
         V504= CMPcdr(CMPcdr(V500));  
         {object V505;  
         V505= CMPcar(CMPcdr(V500));  
         (V500)->c.c_cdr = (V504);  
         V501= (V505);  
         goto T920;}}  
         goto T922;  
 T922:;  
         base[6]= VV[113];  
         base[7]= VV[119];  
3553          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
3554          Lmake_hash_table();          Lmake_hash_table();
3555          vs_top=sup;          vs_top=sup;
3556          V501= vs_base[0];          V473= vs_base[0];
3557          goto T920;          goto T912;
3558  T920:;  T912:;
3559          {object V508;          {object V480;
3560          register object V509;          register object V481;
3561          object V510;          object V482;
3562          object V511;          object V483;
3563          object V512;          object V484;
3564          object V513;          object V485;
3565          base[6]= (V496);          base[6]= (V468);
3566          base[7]= (V497);          base[7]= (V469);
3567          base[8]= (V501);          base[8]= (V473);
3568          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3569          (void) (*Lnk235)();          (void) (*Lnk252)();
3570          if(vs_base>=vs_top){vs_top=sup;goto T935;}          if(vs_base>=vs_top){vs_top=sup;goto T927;}
3571          V508= vs_base[0];          V480= vs_base[0];
3572          vs_base++;          vs_base++;
3573          if(vs_base>=vs_top){vs_top=sup;goto T936;}          if(vs_base>=vs_top){vs_top=sup;goto T928;}
3574          V509= vs_base[0];          V481= vs_base[0];
3575          vs_base++;          vs_base++;
3576          if(vs_base>=vs_top){vs_top=sup;goto T937;}          if(vs_base>=vs_top){vs_top=sup;goto T929;}
3577          V510= vs_base[0];          V482= vs_base[0];
3578          vs_base++;          vs_base++;
3579          if(vs_base>=vs_top){vs_top=sup;goto T938;}          if(vs_base>=vs_top){vs_top=sup;goto T930;}
3580          V511= vs_base[0];          V483= vs_base[0];
3581          vs_base++;          vs_base++;
3582          if(vs_base>=vs_top){vs_top=sup;goto T939;}          if(vs_base>=vs_top){vs_top=sup;goto T931;}
3583          V512= vs_base[0];          V484= vs_base[0];
3584          vs_base++;          vs_base++;
3585          if(vs_base>=vs_top){vs_top=sup;goto T940;}          if(vs_base>=vs_top){vs_top=sup;goto T932;}
3586          V513= vs_base[0];          V485= vs_base[0];
3587            vs_top=sup;
3588            goto T933;
3589            goto T927;
3590    T927:;
3591            V480= Cnil;
3592            goto T928;
3593    T928:;
3594            V481= Cnil;
3595            goto T929;
3596    T929:;
3597            V482= Cnil;
3598            goto T930;
3599    T930:;
3600            V483= Cnil;
3601            goto T931;
3602    T931:;
3603            V484= Cnil;
3604            goto T932;
3605    T932:;
3606            V485= Cnil;
3607            goto T933;
3608    T933:;
3609            if(((V480))==Cnil){
3610            goto T935;}
3611            if(!(number_compare((V484),small_fixnum(1))==0)){
3612            goto T938;}
3613            {object V486;
3614            base[6]= (V482);
3615            vs_top=(vs_base=base+6)+1;
3616            (void) (*Lnk253)(Lclptr253);
3617          vs_top=sup;          vs_top=sup;
3618          goto T941;          V486= vs_base[0];
3619          goto T935;          base[6]= (V468);
3620  T935:;          base[7]= (V469);
3621          V508= Cnil;          base[8]= (V486);
3622          goto T936;          base[9]= (V481);
3623  T936:;          vs_top=(vs_base=base+6)+4;
3624          V509= Cnil;          (void) (*Lnk249)();
3625          goto T937;          goto T922;}
 T937:;  
         V510= Cnil;  
3626          goto T938;          goto T938;
3627  T938:;  T938:;
3628          V511= Cnil;          if(!(number_compare((V484),small_fixnum(2))==0)){
3629          goto T939;          goto T947;}
3630  T939:;          if(type_of((V481))==t_fixnum||type_of((V481))==t_bignum){
         V512= Cnil;  
         goto T940;  
 T940:;  
         V513= Cnil;  
         goto T941;  
 T941:;  
         if(((V508))==Cnil){  
         goto T943;}  
         if(!(number_compare((V512),small_fixnum(1))==0)){  
3631          goto T946;}          goto T946;}
3632          {object V514;          if(!(type_of((V481))==t_cons)){
3633          base[6]= (V510);          goto T947;}
         vs_top=(vs_base=base+6)+1;  
         (void) (*Lnk236)(Lclptr236);  
         vs_top=sup;  
         V514= vs_base[0];  
         base[6]= (V496);  
         base[7]= (V497);  
         base[8]= (V514);  
         base[9]= (V509);  
         vs_top=(vs_base=base+6)+4;  
         (void) (*Lnk232)();  
         goto T930;}  
3634          goto T946;          goto T946;
3635  T946:;  T946:;
3636          if(!(number_compare((V512),small_fixnum(2))==0)){          {object V487;
3637          goto T955;}          object V488;
3638          if(type_of((V509))==t_fixnum||type_of((V509))==t_bignum){          base[6]= (V482);
         goto T954;}  
         if(!(type_of((V509))==t_cons)){  
         goto T955;}  
         goto T954;  
 T954:;  
         {object V515;  
         object V516;  
         base[6]= (V510);  
3639          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3640          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk253)(Lclptr253);
3641          vs_top=sup;          vs_top=sup;
3642          V515= vs_base[0];          V487= vs_base[0];
3643          base[6]= (V511);          base[6]= (V483);
3644          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3645          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk253)(Lclptr253);
3646          vs_top=sup;          vs_top=sup;
3647          V516= vs_base[0];          V488= vs_base[0];
3648          base[6]= (V496);          base[6]= (V468);
3649          base[7]= (V497);          base[7]= (V469);
3650          base[8]= (V515);          base[8]= (V487);
3651          base[9]= (V516);          base[9]= (V488);
3652          base[10]= (V509);          base[10]= (V481);
3653          vs_top=(vs_base=base+6)+5;          vs_top=(vs_base=base+6)+5;
3654          (void) (*Lnk237)();          (void) (*Lnk254)();
3655          goto T930;}          goto T922;}
3656          goto T955;          goto T947;
3657  T955:;  T947:;
3658          if(type_of((V509))==t_fixnum||type_of((V509))==t_bignum){          if(type_of((V481))==t_fixnum||type_of((V481))==t_bignum){
3659          goto T970;}          goto T962;}
3660          if(!(type_of((V509))==t_cons)){          if(!(type_of((V481))==t_cons)){
3661          goto T971;}          goto T963;}
3662          goto T970;          goto T962;
3663  T970:;  T962:;
3664          base[6]= (V496);          base[6]= (V468);
3665          base[7]= (V497);          base[7]= (V469);
3666          base[8]= (V509);          base[8]= (V481);
3667          base[9]= (V508);          base[9]= (V480);
3668          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
3669          (void) (*Lnk238)();          (void) (*Lnk255)();
3670          goto T930;          goto T922;
3671          goto T971;          goto T963;
3672  T971:;  T963:;
3673          if(((V513))==Cnil){          if(((V485))==Cnil){
3674          goto T980;}          goto T972;}
3675          base[6]= (V496);          base[6]= (V468);
3676          base[7]= (V497);          base[7]= (V469);
3677          base[8]= (V508);          base[8]= (V480);
3678          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3679          (void) (*Lnk239)();          (void) (*Lnk256)();
3680          goto T930;          goto T922;
3681          goto T980;          goto T972;
3682  T980:;  T972:;
3683          base[6]= (V496);          base[6]= (V468);
3684          base[7]= (V498);          base[7]= (V470);
3685          base[8]= (V499);          base[8]= (V471);
3686          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3687          (void) (*Lnk240)();          (void) (*Lnk257)();
3688          goto T930;          goto T922;
3689          goto T943;          goto T935;
3690  T943:;  T935:;
3691          base[6]= (V496);          base[6]= (V468);
3692          base[7]= (V498);          base[7]= (V470);
3693          base[8]= (V499);          base[8]= (V471);
3694          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3695          (void) (*Lnk240)();}          (void) (*Lnk257)();}
3696          goto T930;          goto T922;
3697  T930:;  T922:;
3698          {object *V507=vs_top;object *V506=vs_base; vs_base=V507;          {object *V479=vs_top;object *V478=vs_base; vs_base=V479;
3699          {register object *base0=base;          {register object *base0=base;
3700          {register object *base=V507;          {register object *base=V479;
3701          register object *sup=vs_base+VM79;          register object *sup=vs_base+VM79;
3702          base0[0]=base0[0];          base0[0]=base0[0];
3703          base[0]=base[0];          base[0]=base[0];
3704          vs_check;          vs_check;
3705          vs_top=sup;          vs_top=sup;
3706          base[0]= (V501);          base[0]= (V473);
3707          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3708          Lclrhash();          Lclrhash();
3709          vs_top=sup;          vs_top=sup;
3710          }}          }}
3711          {register object *base0=base;          {register object *base0=base;
3712          {register object *base=V507;          {register object *base=V479;
3713          register object *sup=vs_base+VM80;          register object *sup=vs_base+VM80;
3714          base0[0]=base0[0];          base0[0]=base0[0];
3715          base[0]=base[0];          base[0]=base[0];
3716          vs_check;          vs_check;
3717          vs_top=sup;          vs_top=sup;
3718          {object V519;          {object V491;
3719          V519= make_cons(V501,CMPcdr(V500));          V491= make_cons(V473,CMPcdr(V472));
3720          (V500)->c.c_cdr = (V519);}          (V472)->c.c_cdr = (V491);}
3721          }}          }}
3722          vs_base=V506;vs_top=V507;}          vs_base=V478;vs_top=V479;}
3723          return;}          return;}
3724          }          }
3725  }  }
# Line 3781  static void L81() Line 3730  static void L81()
3730          register object *sup=base+VM81; VC81          register object *sup=base+VM81; VC81
3731          vs_check;          vs_check;
3732          bds_check;          bds_check;
3733          {register object V520;          {register object V492;
3734          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
3735          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
3736          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
3737          vs_base=vs_base+1;          vs_base=vs_base+1;
3738          if(vs_base>=vs_top){vs_top=sup;goto T996;}          if(vs_base>=vs_top){vs_top=sup;goto T988;}
3739          V520=(base[1]);          V492=(base[1]);
3740          vs_top=sup;          vs_top=sup;
3741          goto T997;          goto T989;
3742          goto T996;          goto T988;
3743  T996:;  T988:;
3744          V520= Cnil;          V492= Cnil;
3745          goto T997;          goto T989;
3746  T997:;  T989:;
3747          {register object V521;          {register object V493;
3748          object V522;          object V494;
3749          register object V523;          register object V495;
3750          object V524;          object V496;
3751          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3752          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3753          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk216)(Lclptr216);
3754          vs_top=sup;          vs_top=sup;
3755          V521= vs_base[0];          V493= vs_base[0];
3756          V522= Cnil;          V494= Cnil;
3757          V523= (VV[124]->s.s_dbind);          V495= (VV[134]->s.s_dbind);
3758          bds_bind(VV[124],Cnil);          bds_bind(VV[134],Cnil);
3759          base[3]=MMcons(Cnil,base[0]);          base[3]=MMcons(Cnil,base[0]);
3760          V524= Cnil;          V496= Cnil;
3761          if(((V521))!=Cnil){          if(((V493))!=Cnil){
3762          goto T1002;}          goto T994;}
3763          base[4]=          base[4]=
3764          make_cclosure_new(LC158,Cnil,base[3],Cdata);          make_cclosure_new(LC158,Cnil,base[3],Cdata);
3765          base[5]= Cnil;          base[5]= Cnil;
3766          base[6]= (*(LnkLI241))();          base[6]= (*(LnkLI258))();
3767          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3768          bds_unwind1;          bds_unwind1;
3769          return;          return;
3770          goto T1002;          goto T994;
3771  T1002:;  T994:;
3772          V522= (*(LnkLI227))((base[0]->c.c_car));          V494= (*(LnkLI244))((base[0]->c.c_car));
3773          if(((V522))==Cnil){          if(((V494))==Cnil){
3774          goto T1008;}          goto T1000;}
3775          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3776          base[5]= (V522);          base[5]= (V494);
3777          base[6]= (V520);          base[6]= (V492);
3778          base[7]= (V523);          base[7]= (V495);
3779          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
3780          (void) (*Lnk229)();          (void) (*Lnk246)();
3781          bds_unwind1;          bds_unwind1;
3782          return;          return;
3783          goto T1008;          goto T1000;
3784  T1008:;  T1000:;
3785          base[4]=          base[4]=
3786          make_cclosure_new(LC159,Cnil,base[3],Cdata);          make_cclosure_new(LC159,Cnil,base[3],Cdata);
3787          base[6]= CMPcar((V521));          base[6]= CMPcar((V493));
3788          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3789          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk259)(Lclptr259);
3790          vs_top=sup;          vs_top=sup;
3791          (base[3]->c.c_car)= vs_base[0];          (base[3]->c.c_car)= vs_base[0];
3792          base[5]= (base[3]->c.c_car);          base[5]= (base[3]->c.c_car);
3793          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3794          (void) (*Lnk188)();          (void) (*Lnk205)();
3795          vs_top=sup;          vs_top=sup;
3796          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3797          goto T1017;}          goto T1009;}
3798          base[4]=          base[4]=
3799          make_cclosure_new(LC160,Cnil,base[3],Cdata);          make_cclosure_new(LC160,Cnil,base[3],Cdata);
3800          base[5]= (V521);          base[5]= (V493);
3801          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3802          (void) (*Lnk188)();          (void) (*Lnk205)();
3803          vs_top=sup;          vs_top=sup;
3804          V524= vs_base[0];          V496= vs_base[0];
3805          if(((V524))!=Cnil){          if(((V496))!=Cnil){
3806          goto T1016;}          goto T1008;}
3807          goto T1017;          goto T1009;
3808  T1017:;  T1009:;
3809          if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI218))((base[0]->c.c_car))))==Cnil){
3810          goto T1016;}          goto T1008;}
3811          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3812          base[5]= (V520);          base[5]= (V492);
3813          base[6]= (V523);          base[6]= (V495);
3814          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3815          (void) (*Lnk243)();          (void) (*Lnk260)();
3816          bds_unwind1;          bds_unwind1;
3817          return;          return;
3818          goto T1016;          goto T1008;
3819  T1016:;  T1008:;
3820          if(((VFUN_NARGS=1,(*(LnkLI185))((base[0]->c.c_car))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI202))((base[0]->c.c_car))))==Cnil){
3821          goto T1033;}          goto T1025;}
3822          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3823          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3824          (void) (*Lnk244)();          (void) (*Lnk261)();
3825          bds_unwind1;          bds_unwind1;
3826          return;          return;
3827          goto T1033;          goto T1025;
3828  T1033:;  T1025:;
3829          if(((V524))==Cnil){          if(((V496))==Cnil){
3830          goto T1037;}          goto T1029;}
3831          if(((*(LnkLI183))((base[0]->c.c_car)))!=Cnil){          if(((*(LnkLI200))((base[0]->c.c_car)))!=Cnil){
3832          goto T1037;}          goto T1029;}
3833          {object V525;          {object V497;
3834          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3835          base[5]= (V521);          base[5]= (V493);
3836          base[6]= Cnil;          base[6]= Cnil;
3837          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3838          (void) (*Lnk245)();          (void) (*Lnk262)();
3839          vs_top=sup;          vs_top=sup;
3840          V525= vs_base[0];          V497= vs_base[0];
3841          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3842          base[5]= (V525);          base[5]= (V497);
3843          base[6]= (V520);          base[6]= (V492);
3844          base[7]= (V523);          base[7]= (V495);
3845          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
3846          (void) (*Lnk246)();          (void) (*Lnk263)();
3847          bds_unwind1;          bds_unwind1;
3848          return;}          return;}
3849          goto T1037;          goto T1029;
3850  T1037:;  T1029:;
3851          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3852          base[5]= (V520);          base[5]= (V492);
3853          base[6]= (V523);          base[6]= (V495);
3854          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3855          (void) (*Lnk240)();          (void) (*Lnk257)();
3856          bds_unwind1;          bds_unwind1;
3857          return;}          return;}
3858          }          }
# Line 3915  static void L82() Line 3864  static void L82()
3864          register object *sup=base+VM82; VC82          register object *sup=base+VM82; VC82
3865          vs_check;          vs_check;
3866          bds_check;          bds_check;
3867          {object V526;          {object V498;
3868          register object V527;          register object V499;
3869          register object V528;          register object V500;
3870          check_arg(4);          check_arg(4);
3871          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
3872          V526=(base[1]);          V498=(base[1]);
3873          V527=(base[2]);          V499=(base[2]);
3874          V528=(base[3]);          V500=(base[3]);
3875          vs_top=sup;          vs_top=sup;
3876          {object V529;          {object V501;
3877          object V530;          object V502;
3878          register object V531;          register object V503;
3879          register object V532;          register object V504;
3880          object V533;          object V505;
3881          object V534;          object V506;
3882          base[8]= (V528);          base[8]= (V500);
3883          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3884          Ltype_of();          Ltype_of();
3885          vs_top=sup;          vs_top=sup;
3886          V529= vs_base[0];          V501= vs_base[0];
3887          V530= STREF(object,(V528),4);          V502= STREF(object,(V500),4);
3888          V531= Cnil;          V503= Cnil;
3889          V532= Cnil;          V504= Cnil;
3890          V533= Cnil;          V505= Cnil;
3891          base[6]= Cnil;          base[6]= Cnil;
3892          {object V535= (V530);          {object V508= V502;
3893          if((V535!= VV[51]))goto T1059;          if((V508!= VV[59]))goto T1051;
3894          V534= make_cons((V527),Cnil);          V506= make_cons((V499),Cnil);
3895          goto T1058;          goto T1050;
3896          goto T1059;          goto T1051;
3897  T1059:;  T1051:;
3898          if((V535!= VV[123]))goto T1060;          if((V508!= VV[133]))goto T1052;
3899          V534= list(2,(V526),(V527));          V506= list(2,(V498),(V499));
3900          goto T1058;          goto T1050;
3901          goto T1060;          goto T1052;
3902  T1060:;  T1052:;
3903          FEerror("The ECASE key value ~s is illegal.",1,V535);          base[8]= VV[49];
3904          V534= Cnil;          base[9]= VV[50];
3905          goto T1058;}          base[10]= VV[51];
3906          goto T1058;          base[11]= VV[52];
3907  T1058:;          base[12]= V502;
3908          {object V536;          base[13]= VV[53];
3909          object V537;          base[14]= VV[136];
3910            base[15]= VV[55];
3911            base[16]= VV[137];
3912            vs_top=(vs_base=base+8)+9;
3913            (void) (*Lnk187)();
3914            vs_top=sup;
3915            V506= vs_base[0];}
3916            goto T1050;
3917    T1050:;
3918            {object V509;
3919            object V510;
3920          base[12]= (base[0]->c.c_car);          base[12]= (base[0]->c.c_car);
3921          base[13]= (V534);          base[13]= (V506);
3922          base[14]= VV[86];          base[14]= VV[94];
3923          vs_top=(vs_base=base+12)+3;          vs_top=(vs_base=base+12)+3;
3924          (void) (*Lnk85)();          (void) (*Lnk93)();
         if(vs_base>=vs_top){vs_top=sup;goto T1065;}  
         base[8]=MMcons(vs_base[0],base[0]);  
         vs_base++;  
3925          if(vs_base>=vs_top){vs_top=sup;goto T1066;}          if(vs_base>=vs_top){vs_top=sup;goto T1066;}
3926          V536= vs_base[0];          base[8]=MMcons(vs_base[0],base[0]);
3927          vs_base++;          vs_base++;
3928          if(vs_base>=vs_top){vs_top=sup;goto T1067;}          if(vs_base>=vs_top){vs_top=sup;goto T1067;}
3929          base[9]= vs_base[0];          V509= vs_base[0];
3930          vs_base++;          vs_base++;
3931          if(vs_base>=vs_top){vs_top=sup;goto T1068;}          if(vs_base>=vs_top){vs_top=sup;goto T1068;}
3932          V537= vs_base[0];          base[9]= vs_base[0];
3933          vs_base++;          vs_base++;
3934          if(vs_base>=vs_top){vs_top=sup;goto T1069;}          if(vs_base>=vs_top){vs_top=sup;goto T1069;}
3935          base[10]=MMcons(vs_base[0],base[8]);          V510= vs_base[0];
3936          vs_base++;          vs_base++;
3937          if(vs_base>=vs_top){vs_top=sup;goto T1070;}          if(vs_base>=vs_top){vs_top=sup;goto T1070;}
3938            base[10]=MMcons(vs_base[0],base[8]);
3939            vs_base++;
3940            if(vs_base>=vs_top){vs_top=sup;goto T1071;}
3941          base[11]=MMcons(vs_base[0],base[10]);          base[11]=MMcons(vs_base[0],base[10]);
3942          vs_top=sup;          vs_top=sup;
3943          goto T1071;          goto T1072;
         goto T1065;  
 T1065:;  
         base[8]=MMcons(Cnil,base[0]);  
3944          goto T1066;          goto T1066;
3945  T1066:;  T1066:;
3946          V536= Cnil;          base[8]=MMcons(Cnil,base[0]);
3947          goto T1067;          goto T1067;
3948  T1067:;  T1067:;
3949          base[9]= Cnil;          V509= Cnil;
3950          goto T1068;          goto T1068;
3951  T1068:;  T1068:;
3952          V537= Cnil;          base[9]= Cnil;
3953          goto T1069;          goto T1069;
3954  T1069:;  T1069:;
3955          base[10]=MMcons(Cnil,base[8]);          V510= Cnil;
3956          goto T1070;          goto T1070;
3957  T1070:;  T1070:;
3958          base[11]=MMcons(Cnil,base[10]);          base[10]=MMcons(Cnil,base[8]);
3959          goto T1071;          goto T1071;
3960  T1071:;  T1071:;
3961          if(((V536))==Cnil){          base[11]=MMcons(Cnil,base[10]);
         goto T1072;}  
         {register object x= (base[0]->c.c_car),V538= (VV[91]->s.s_dbind);  
         while(V538!=Cnil)  
         if(x==(V538->c.c_car)){  
3962          goto T1072;          goto T1072;
3963          }else V538=V538->c.c_cdr;}  T1072:;
3964          base[12]= make_cons((base[0]->c.c_car),(VV[91]->s.s_dbind));          if(((V509))==Cnil){
3965          bds_bind(VV[91],base[12]);          goto T1073;}
3966            {register object x= (base[0]->c.c_car),V511= (VV[99]->s.s_dbind);
3967            while(V511!=Cnil)
3968            if(x==(V511->c.c_car)){
3969            goto T1073;
3970            }else V511=V511->c.c_cdr;}
3971            base[12]= make_cons((base[0]->c.c_car),(VV[99]->s.s_dbind));
3972            bds_bind(VV[99],base[12]);
3973          base[13]=make_cclosure_new(LC84,Cnil,base[11],Cdata);          base[13]=make_cclosure_new(LC84,Cnil,base[11],Cdata);
3974          base[13]=MMcons(base[13],base[11]);          base[13]=MMcons(base[13],base[11]);
3975          base[14]=make_cclosure_new(LC85,Cnil,base[13],Cdata);          base[14]=make_cclosure_new(LC85,Cnil,base[13],Cdata);
3976          base[14]=MMcons(base[14],base[13]);          base[14]=MMcons(base[14],base[13]);
3977          if(((base[10]->c.c_car))!=Cnil){          if(((base[10]->c.c_car))!=Cnil){
3978          goto T1079;}          goto T1080;}
3979          vs_base=vs_top;          vs_base=vs_top;
3980          L86(base);          L86(base);
3981          vs_top=sup;          vs_top=sup;
3982          bds_unwind1;          bds_unwind1;
3983          goto T1072;          goto T1073;
3984          goto T1079;          goto T1080;
3985  T1079:;  T1080:;
3986          {object V539;          {object V512;
3987          if((V537)!=Cnil){          if((V510)!=Cnil){
3988          V539= (V537);          V512= (V510);
3989          goto T1081;}          goto T1082;}
3990          V539= (((base[11]->c.c_car))==Cnil?Ct:Cnil);          V512= (((base[11]->c.c_car))==Cnil?Ct:Cnil);
3991          goto T1081;          goto T1082;
3992  T1081:;  T1082:;
3993          if(((V539))==Cnil){          if(((V512))==Cnil){
3994          goto T1083;}          goto T1084;}
3995          bds_unwind1;          bds_unwind1;
3996          goto T1072;          goto T1073;
3997          goto T1083;          goto T1084;
3998  T1083:;  T1084:;
3999          if(type_of(V527)==t_structure){          if(type_of(V499)==t_structure){
4000          goto T1089;}          goto T1090;}
         goto T1088;  
4001          goto T1089;          goto T1089;
4002  T1089:;          goto T1090;
4003          if(((V527)->str.str_def)==(VV[126])){  T1090:;
4004          goto T1086;}          if(((V499)->str.str_def)==(VV[141])){
4005          goto T1088;          goto T1087;}
4006  T1088:;{object V541;          goto T1089;
4007          V541= (VV[65]->s.s_dbind);  T1089:;{object V514;
4008            V514= (VV[73]->s.s_dbind);
4009          base[15]= small_fixnum(14);          base[15]= small_fixnum(14);
4010          base[16]= (V527);          base[16]= (V499);
4011          vs_top=(vs_base=base+15)+2;          vs_top=(vs_base=base+15)+2;
4012          (void) (*Lnk197)();          (void) (*Lnk214)();
4013          vs_top=sup;          vs_top=sup;
4014          V542= vs_base[0];          V515= vs_base[0];
4015          if((V541)==(CMPcar(V542))){          if((V514)==(CMPcar(V515))){
4016          goto T1086;}}          goto T1087;}}
4017          vs_base=vs_top;          vs_base=vs_top;
4018          L86(base);          L86(base);
4019          vs_top=sup;          vs_top=sup;
4020          bds_unwind1;          bds_unwind1;
4021          goto T1072;          goto T1073;
4022          goto T1086;          goto T1087;
4023  T1086:;  T1087:;
4024          if(((((base[10]->c.c_car))==((V530))?Ct:Cnil))==Cnil){          if(((((base[10]->c.c_car))==((V502))?Ct:Cnil))==Cnil){
         goto T1095;}  
         if(!(type_of(base[9])==t_cons||(base[9])==Cnil)){  
4025          goto T1096;}          goto T1096;}
4026          goto T1095;          if(!(type_of(base[9])==t_cons||(base[9])==Cnil)){
4027  T1095:;          goto T1097;}
4028            goto T1096;
4029    T1096:;
4030          vs_base=vs_top;          vs_base=vs_top;
4031          L86(base);          L86(base);
4032          vs_top=sup;          vs_top=sup;
4033          bds_unwind1;          bds_unwind1;
4034          goto T1072;          goto T1073;
4035          goto T1096;          goto T1097;
4036  T1096:;  T1097:;
4037          {object V543= (V529);          {object V517= V501;
4038          if((V543!= VV[40]))goto T1100;          if((V517!= VV[38]))goto T1101;
4039          V531= STREF(object,(V528),8);          V503= STREF(object,(V500),8);
4040          V532= STREF(object,(V528),12);          V504= STREF(object,(V500),12);
4041          if(((V532))==(base[9])){          if(((V504))==(base[9])){
4042          bds_unwind1;          bds_unwind1;
4043          goto T1072;}          goto T1073;}
4044          if(!(eql((base[11]->c.c_car),(V531)))){          if(!(eql((base[11]->c.c_car),(V503)))){
4045          goto T1108;}          goto T1109;}
4046          base[15]= (base[11]->c.c_car);          base[15]= (base[11]->c.c_car);
4047          base[16]= (V532);          base[16]= (V504);
4048          base[17]= base[9];          base[17]= base[9];
4049          vs_top=(vs_base=base+15)+3;          vs_top=(vs_base=base+15)+3;
4050          L83(base);          L83(base);
4051          vs_top=sup;          vs_top=sup;
4052          bds_unwind1;          bds_unwind1;
4053          goto T1072;          goto T1073;
4054          goto T1108;          goto T1109;
4055  T1108:;  T1109:;
4056          vs_base=vs_top;          vs_base=vs_top;
4057          L85(base);          L85(base);
4058          vs_top=sup;          vs_top=sup;
4059          bds_unwind1;          bds_unwind1;
4060          goto T1072;          goto T1073;
4061          goto T1100;          goto T1101;
4062  T1100:;  T1101:;
4063          if((V543!= VV[42]))goto T1113;          if((V517!= VV[40]))goto T1114;
4064          V531= STREF(object,(V528),8);          V503= STREF(object,(V500),8);
4065          V532= STREF(object,(V528),12);          V504= STREF(object,(V500),12);
4066          V533= STREF(object,(V528),16);          V505= STREF(object,(V500),16);
4067          if(((V532))==(base[9])){          if(((V504))==(base[9])){
4068          bds_unwind1;          bds_unwind1;
4069          goto T1072;}          goto T1073;}
4070          if(((V533))==(base[9])){          if(((V505))==(base[9])){
4071          bds_unwind1;          bds_unwind1;
4072          goto T1072;}          goto T1073;}
4073          if(!(eql((base[11]->c.c_car),(V531)))){          if(!(eql((base[11]->c.c_car),(V503)))){
4074          goto T1125;}          goto T1126;}
4075          base[15]= (base[11]->c.c_car);          base[15]= (base[11]->c.c_car);
4076          vs_top=(vs_base=base+15)+1;          vs_top=(vs_base=base+15)+1;
4077          L84(base);          L84(base);
4078          vs_top=sup;          vs_top=sup;
4079          bds_unwind1;          bds_unwind1;
4080          goto T1072;          goto T1073;
4081          goto T1125;          goto T1126;
4082  T1125:;  T1126:;
4083          vs_base=vs_top;          vs_base=vs_top;
4084          L85(base);          L85(base);
4085          vs_top=sup;          vs_top=sup;
4086          bds_unwind1;          bds_unwind1;
4087          goto T1072;          goto T1073;
4088          goto T1113;          goto T1114;
4089  T1113:;  T1114:;
4090          if((V543!= VV[44]))goto T1128;          if((V517!= VV[42]))goto T1129;
4091          V531= STREF(object,(V528),8);          V503= STREF(object,(V500),8);
4092          base[6]= STREF(object,(V528),0);          base[6]= STREF(object,(V500),0);
4093          if(!(eql((base[11]->c.c_car),(V531)))){          if(!(eql((base[11]->c.c_car),(V503)))){
4094          goto T1134;}          goto T1135;}
4095          base[15]=          base[15]=
4096          make_cclosure_new(LC161,Cnil,base[14],Cdata);          make_cclosure_new(LC161,Cnil,base[14],Cdata);
4097          vs_top=(vs_base=base+15)+1;          vs_top=(vs_base=base+15)+1;
4098          L87(base);          L87(base);
4099          vs_top=sup;          vs_top=sup;
4100          bds_unwind1;          bds_unwind1;
4101          goto T1072;          goto T1073;
4102          goto T1134;          goto T1135;
4103  T1134:;  T1135:;
4104          vs_base=vs_top;          vs_base=vs_top;
4105          L85(base);          L85(base);
4106          vs_top=sup;          vs_top=sup;
4107          bds_unwind1;          bds_unwind1;
4108          goto T1072;          goto T1073;
4109          goto T1128;          goto T1129;
4110  T1128:;  T1129:;
4111          if((V543!= VV[39]))goto T1137;          if((V517!= VV[37]))goto T1138;
4112          base[6]= STREF(object,(V528),0);          base[6]= STREF(object,(V500),0);
4113          if(!(type_of((base[11]->c.c_car))==t_cons)){          if(!(type_of((base[11]->c.c_car))==t_cons)){
4114          goto T1141;}          goto T1142;}
4115          vs_base=vs_top;          vs_base=vs_top;
4116          L86(base);          L86(base);
4117          vs_top=sup;          vs_top=sup;
4118          bds_unwind1;          bds_unwind1;
4119          goto T1072;          goto T1073;
4120          goto T1141;          goto T1142;
4121  T1141:;  T1142:;
4122          base[15]= (base[14]->c.c_car);          base[15]= (base[14]->c.c_car);
4123          vs_top=(vs_base=base+15)+1;          vs_top=(vs_base=base+15)+1;
4124          L87(base);          L87(base);
4125          vs_top=sup;          vs_top=sup;
4126          bds_unwind1;          bds_unwind1;
4127          goto T1072;          goto T1073;
4128          goto T1137;          goto T1138;
4129  T1137:;  T1138:;
4130          FEerror("The ECASE key value ~s is illegal.",1,V543);          base[15]= VV[49];
4131          bds_unwind1;          base[16]= VV[50];
4132          goto T1072;}}          base[17]= VV[51];
4133          goto T1072;          base[18]= VV[52];
4134  T1072:;          base[19]= V501;
4135            base[20]= VV[53];
4136            base[21]= VV[142];
4137            base[22]= VV[55];
4138            base[23]= VV[143];
4139            vs_top=(vs_base=base+15)+9;
4140            (void) (*Lnk187)();
4141            vs_top=sup;
4142            bds_unwind1;}}
4143            goto T1073;
4144    T1073:;
4145          base[12]= (base[8]->c.c_car);          base[12]= (base[8]->c.c_car);
4146          base[13]= (V534);          base[13]= (V506);
4147          vs_top=(vs_base=base+12)+2;          vs_top=(vs_base=base+12)+2;
4148          (void) (*Lnk94)();          (void) (*Lnk102)();
4149          return;}}          return;}}
4150          }          }
4151  }  }
# Line 4187  static void L88() Line 4156  static void L88()
4156          register object *sup=base+VM83; VC83          register object *sup=base+VM83; VC83
4157          vs_check;          vs_check;
4158          bds_check;          bds_check;
4159          {register object V544;          {register object V518;
4160          object V545;          object V519;
4161          object V546;          object V520;
4162          check_arg(3);          check_arg(3);
4163          V544=(base[0]);          V518=(base[0]);
4164          V545=(base[1]);          V519=(base[1]);
4165          V546=(base[2]);          V520=(base[2]);
4166          vs_top=sup;          vs_top=sup;
4167          goto TTL;          goto TTL;
4168  TTL:;  TTL:;
4169          {object V547;          {object V521;
4170          object V548;          object V522;
4171          V547= STREF(object,(V546),4);          V521= STREF(object,(V520),4);
4172          V548= STREF(object,(V546),0);          V522= STREF(object,(V520),0);
4173          {object V549;          {object V523;
4174          object V550;          object V524;
4175          object V551;          object V525;
4176          object V552;          object V526;
4177          base[3]= (V544);          base[3]= (V518);
4178          base[4]= (V545);          base[4]= (V519);
4179          base[5]= VV[12];          base[5]= VV[10];
4180          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4181          (void) (*Lnk85)();          (void) (*Lnk93)();
4182          if(vs_base>=vs_top){vs_top=sup;goto T1152;}          if(vs_base>=vs_top){vs_top=sup;goto T1162;}
4183          V549= vs_base[0];          V523= vs_base[0];
4184          vs_base++;          vs_base++;
4185          if(vs_base>=vs_top){vs_top=sup;goto T1153;}          if(vs_base>=vs_top){vs_top=sup;goto T1163;}
4186          V550= vs_base[0];          V524= vs_base[0];
4187          vs_base++;          vs_base++;
4188          if(vs_base>=vs_top){vs_top=sup;goto T1154;}          if(vs_base>=vs_top){vs_top=sup;goto T1164;}
4189          V551= vs_base[0];          V525= vs_base[0];
4190          vs_base++;          vs_base++;
4191          if(vs_base>=vs_top){vs_top=sup;goto T1155;}          if(vs_base>=vs_top){vs_top=sup;goto T1165;}
4192          V552= vs_base[0];          V526= vs_base[0];
4193          vs_top=sup;          vs_top=sup;
4194          goto T1156;          goto T1166;
4195          goto T1152;          goto T1162;
4196  T1152:;  T1162:;
4197          V549= Cnil;          V523= Cnil;
4198          goto T1153;          goto T1163;
4199  T1153:;  T1163:;
4200          V550= Cnil;          V524= Cnil;
         goto T1154;  
 T1154:;  
         V551= Cnil;  
         goto T1155;  
 T1155:;  
         V552= Cnil;  
         goto T1156;  
 T1156:;  
         if(((V550))==Cnil){  
         goto T1157;}  
         {register object x= (V544),V553= (VV[91]->s.s_dbind);  
         while(V553!=Cnil)  
         if(x==(V553->c.c_car)){  
         goto T1157;  
         }else V553=V553->c.c_cdr;}  
         base[3]= make_cons((V544),(VV[91]->s.s_dbind));  
         bds_bind(VV[91],base[3]);  
         if((V552)==Cnil){  
         goto T1164;}  
         bds_unwind1;  
         goto T1157;  
4201          goto T1164;          goto T1164;
4202  T1164:;  T1164:;
4203          if(!(((V547))==((V549)))){          V525= Cnil;
4204            goto T1165;
4205    T1165:;
4206            V526= Cnil;
4207            goto T1166;
4208    T1166:;
4209            if(((V524))==Cnil){
4210          goto T1167;}          goto T1167;}
4211          {object V555;          {register object x= (V518),V527= (VV[99]->s.s_dbind);
4212          V555= (VFUN_NARGS=3,(*(LnkLI247))((V548),(V551),Cnil));          while(V527!=Cnil)
4213          if(((V555))==((V548))){          if(x==(V527->c.c_car)){
4214            goto T1167;
4215            }else V527=V527->c.c_cdr;}
4216            base[3]= make_cons((V518),(VV[99]->s.s_dbind));
4217            bds_bind(VV[99],base[3]);
4218            if((V526)==Cnil){
4219            goto T1174;}
4220          bds_unwind1;          bds_unwind1;
4221          goto T1157;}          goto T1167;
4222          {object V556;          goto T1174;
4223          object V557;  T1174:;
4224          object V558;          if(!(((V521))==((V523)))){
4225          base[4]= (V544);          goto T1177;}
4226          base[5]= (V549);          {object V529;
4227          base[6]= (V555);          V529= (VFUN_NARGS=3,(*(LnkLI264))((V522),(V525),Cnil));
4228            if(((V529))==((V522))){
4229            bds_unwind1;
4230            goto T1167;}
4231            {object V530;
4232            object V531;
4233            object V532;
4234            base[4]= (V518);
4235            base[5]= (V523);
4236            base[6]= (V529);
4237          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4238          (void) (*Lnk193)();          (void) (*Lnk210)();
4239          if(vs_base>=vs_top){vs_top=sup;goto T1176;}          if(vs_base>=vs_top){vs_top=sup;goto T1186;}
4240          V556= vs_base[0];          V530= vs_base[0];
4241          vs_base++;          vs_base++;
4242          if(vs_base>=vs_top){vs_top=sup;goto T1177;}          if(vs_base>=vs_top){vs_top=sup;goto T1187;}
4243          V557= vs_base[0];          V531= vs_base[0];
4244          vs_base++;          vs_base++;
4245          if(vs_base>=vs_top){vs_top=sup;goto T1178;}          if(vs_base>=vs_top){vs_top=sup;goto T1188;}
4246          V558= vs_base[0];          V532= vs_base[0];
4247          vs_top=sup;          vs_top=sup;
4248          goto T1179;          goto T1189;
4249          goto T1176;          goto T1186;
4250  T1176:;  T1186:;
4251          V556= Cnil;          V530= Cnil;
4252            goto T1187;
4253    T1187:;
4254            V531= Cnil;
4255            goto T1188;
4256    T1188:;
4257            V532= Cnil;
4258            goto T1189;
4259    T1189:;
4260            V533= (VFUN_NARGS=4,(*(LnkLI47))((V518),(V530),(V531),(V532)));
4261            bds_unwind1;
4262            goto T1167;}}
4263          goto T1177;          goto T1177;
4264  T1177:;  T1177:;
4265          V557= Cnil;          {object V534;
4266          goto T1178;          object V535;
4267  T1178:;          object V536;
4268          V558= Cnil;          base[4]= (V518);
         goto T1179;  
 T1179:;  
         V559= (VFUN_NARGS=4,(*(LnkLI49))((V544),(V556),(V557),(V558)));  
         bds_unwind1;  
         goto T1157;}}  
         goto T1167;  
 T1167:;  
         {object V560;  
         object V561;  
         object V562;  
         base[4]= (V544);  
4269          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4270          (void) (*Lnk184)();          (void) (*Lnk201)();
4271          if(vs_base>=vs_top){vs_top=sup;goto T1182;}          if(vs_base>=vs_top){vs_top=sup;goto T1192;}
4272          V560= vs_base[0];          V534= vs_base[0];
4273          vs_base++;          vs_base++;
4274          if(vs_base>=vs_top){vs_top=sup;goto T1183;}          if(vs_base>=vs_top){vs_top=sup;goto T1193;}
4275          V561= vs_base[0];          V535= vs_base[0];
4276          vs_base++;          vs_base++;
4277          if(vs_base>=vs_top){vs_top=sup;goto T1184;}          if(vs_base>=vs_top){vs_top=sup;goto T1194;}
4278          V562= vs_base[0];          V536= vs_base[0];
4279          vs_top=sup;          vs_top=sup;
4280          goto T1185;          goto T1195;
4281          goto T1182;          goto T1192;
4282  T1182:;  T1192:;
4283          V560= Cnil;          V534= Cnil;
4284          goto T1183;          goto T1193;
4285  T1183:;  T1193:;
4286          V561= Cnil;          V535= Cnil;
4287          goto T1184;          goto T1194;
4288  T1184:;  T1194:;
4289          V562= Cnil;          V536= Cnil;
4290          goto T1185;          goto T1195;
4291  T1185:;  T1195:;
4292          V563= (VFUN_NARGS=4,(*(LnkLI49))((V544),(V560),(V561),(V562)));          V537= (VFUN_NARGS=4,(*(LnkLI47))((V518),(V534),(V535),(V536)));
4293          bds_unwind1;}          bds_unwind1;}
4294          goto T1157;          goto T1167;
4295  T1157:;  T1167:;
4296          base[3]= (V549);          base[3]= (V523);
4297          base[4]= (V545);          base[4]= (V519);
4298          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4299          (void) (*Lnk94)();          (void) (*Lnk102)();
4300          return;}}          return;}}
4301          }          }
4302  }  }
# Line 4338  static void L89() Line 4307  static void L89()
4307          register object *sup=base+VM84; VC84          register object *sup=base+VM84; VC84
4308          vs_check;          vs_check;
4309          bds_check;          bds_check;
4310          {register object V564;          {register object V538;
4311          object V565;          object V539;
4312          object V566;          object V540;
4313          check_arg(3);          check_arg(3);
4314          V564=(base[0]);          V538=(base[0]);
4315          V565=(base[1]);          V539=(base[1]);
4316          V566=(base[2]);          V540=(base[2]);
4317          vs_top=sup;          vs_top=sup;
4318          goto TTL;          goto TTL;
4319  TTL:;  TTL:;
4320          {object V567;          {object V541;
4321          V567= STREF(object,(V566),0);          V541= STREF(object,(V540),0);
4322          {object V568;          {object V542;
4323          object V569;          object V543;
4324          object V570;          object V544;
4325          object V571;          object V545;
4326          base[3]= (V564);          base[3]= (V538);
4327          base[4]= (V565);          base[4]= (V539);
4328          base[5]= VV[13];          base[5]= VV[11];
4329          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4330          (void) (*Lnk85)();          (void) (*Lnk93)();
4331          if(vs_base>=vs_top){vs_top=sup;goto T1193;}          if(vs_base>=vs_top){vs_top=sup;goto T1203;}
4332          V568= vs_base[0];          V542= vs_base[0];
4333          vs_base++;          vs_base++;
4334          if(vs_base>=vs_top){vs_top=sup;goto T1194;}          if(vs_base>=vs_top){vs_top=sup;goto T1204;}
4335          V569= vs_base[0];          V543= vs_base[0];
4336          vs_base++;          vs_base++;
4337          if(vs_base>=vs_top){vs_top=sup;goto T1195;}          if(vs_base>=vs_top){vs_top=sup;goto T1205;}
4338          V570= vs_base[0];          V544= vs_base[0];
4339          vs_base++;          vs_base++;
4340          if(vs_base>=vs_top){vs_top=sup;goto T1196;}          if(vs_base>=vs_top){vs_top=sup;goto T1206;}
4341          V571= vs_base[0];          V545= vs_base[0];
4342          vs_top=sup;          vs_top=sup;
4343          goto T1197;          goto T1207;
4344          goto T1193;          goto T1203;
4345  T1193:;  T1203:;
4346          V568= Cnil;          V542= Cnil;
4347          goto T1194;          goto T1204;
4348  T1194:;  T1204:;
4349          V569= Cnil;          V543= Cnil;
         goto T1195;  
 T1195:;  
         V570= Cnil;  
         goto T1196;  
 T1196:;  
         V571= Cnil;  
         goto T1197;  
 T1197:;  
         if(((V569))==Cnil){  
         goto T1198;}  
         {register object x= (V564),V572= (VV[91]->s.s_dbind);  
         while(V572!=Cnil)  
         if(x==(V572->c.c_car)){  
         goto T1198;  
         }else V572=V572->c.c_cdr;}  
         base[3]= make_cons((V564),(VV[91]->s.s_dbind));  
         bds_bind(VV[91],base[3]);  
         if((V571)==Cnil){  
         goto T1205;}  
         bds_unwind1;  
         goto T1198;  
4350          goto T1205;          goto T1205;
4351  T1205:;  T1205:;
4352          {object V574;          V544= Cnil;
4353          V574= (VFUN_NARGS=3,(*(LnkLI247))((V567),(V570),(V568)));          goto T1206;
4354          if(((V574))==((V567))){  T1206:;
4355            V545= Cnil;
4356            goto T1207;
4357    T1207:;
4358            if(((V543))==Cnil){
4359            goto T1208;}
4360            {register object x= (V538),V546= (VV[99]->s.s_dbind);
4361            while(V546!=Cnil)
4362            if(x==(V546->c.c_car)){
4363            goto T1208;
4364            }else V546=V546->c.c_cdr;}
4365            base[3]= make_cons((V538),(VV[99]->s.s_dbind));
4366            bds_bind(VV[99],base[3]);
4367            if((V545)==Cnil){
4368            goto T1215;}
4369          bds_unwind1;          bds_unwind1;
4370          goto T1198;}          goto T1208;
4371          {object V575;          goto T1215;
4372          object V576;  T1215:;
4373          object V577;          {object V548;
4374          base[4]= (V564);          V548= (VFUN_NARGS=3,(*(LnkLI264))((V541),(V544),(V542)));
4375          base[5]= (V574);          if(((V548))==((V541))){
4376            bds_unwind1;
4377            goto T1208;}
4378            {object V549;
4379            object V550;
4380            object V551;
4381            base[4]= (V538);
4382            base[5]= (V548);
4383          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4384          (void) (*Lnk184)();          (void) (*Lnk201)();
4385          if(vs_base>=vs_top){vs_top=sup;goto T1213;}          if(vs_base>=vs_top){vs_top=sup;goto T1223;}
4386          V575= vs_base[0];          V549= vs_base[0];
4387          vs_base++;          vs_base++;
4388          if(vs_base>=vs_top){vs_top=sup;goto T1214;}          if(vs_base>=vs_top){vs_top=sup;goto T1224;}
4389          V576= vs_base[0];          V550= vs_base[0];
4390          vs_base++;          vs_base++;
4391          if(vs_base>=vs_top){vs_top=sup;goto T1215;}          if(vs_base>=vs_top){vs_top=sup;goto T1225;}
4392          V577= vs_base[0];          V551= vs_base[0];
4393          vs_top=sup;          vs_top=sup;
4394          goto T1216;          goto T1226;
4395          goto T1213;          goto T1223;
4396  T1213:;  T1223:;
4397          V575= Cnil;          V549= Cnil;
4398          goto T1214;          goto T1224;
4399  T1214:;  T1224:;
4400          V576= Cnil;          V550= Cnil;
4401          goto T1215;          goto T1225;
4402  T1215:;  T1225:;
4403          V577= Cnil;          V551= Cnil;
4404          goto T1216;          goto T1226;
4405  T1216:;  T1226:;
4406          V578= (VFUN_NARGS=4,(*(LnkLI49))((V564),(V575),(V576),(V577)));          V552= (VFUN_NARGS=4,(*(LnkLI47))((V538),(V549),(V550),(V551)));
4407          bds_unwind1;}}          bds_unwind1;}}
4408          goto T1198;          goto T1208;
4409  T1198:;  T1208:;
4410          base[3]= (V568);          base[3]= (V542);
4411          base[4]= (V565);          base[4]= (V539);
4412          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4413          (void) (*Lnk94)();          (void) (*Lnk102)();
4414          return;}}          return;}}
4415          }          }
4416  }  }
# Line 4452  static void L90() Line 4421  static void L90()
4421          register object *sup=base+VM85; VC85          register object *sup=base+VM85; VC85
4422          vs_check;          vs_check;
4423          bds_check;          bds_check;
4424          {register object V579;          {register object V553;
4425          object V580;          object V554;
4426          object V581;          object V555;
4427          check_arg(3);          check_arg(3);
4428          V579=(base[0]);          V553=(base[0]);
4429          V580=(base[1]);          V554=(base[1]);
4430          V581=(base[2]);          V555=(base[2]);
4431          vs_top=sup;          vs_top=sup;
4432          goto TTL;          goto TTL;
4433  TTL:;  TTL:;
4434          {object V582;          {object V556;
4435          V582= STREF(object,(V581),0);          V556= STREF(object,(V555),0);
4436          {register object V583;          {register object V557;
4437          object V584;          object V558;
4438          object V585;          object V559;
4439          object V586;          object V560;
4440          base[3]= (V579);          base[3]= (V553);
4441          base[4]= (V580);          base[4]= (V554);
4442          base[5]= VV[13];          base[5]= VV[11];
4443          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4444          (void) (*Lnk85)();          (void) (*Lnk93)();
4445          if(vs_base>=vs_top){vs_top=sup;goto T1224;}          if(vs_base>=vs_top){vs_top=sup;goto T1234;}
4446          V583= vs_base[0];          V557= vs_base[0];
4447          vs_base++;          vs_base++;
4448          if(vs_base>=vs_top){vs_top=sup;goto T1225;}          if(vs_base>=vs_top){vs_top=sup;goto T1235;}
4449          V584= vs_base[0];          V558= vs_base[0];
4450          vs_base++;          vs_base++;
4451          if(vs_base>=vs_top){vs_top=sup;goto T1226;}          if(vs_base>=vs_top){vs_top=sup;goto T1236;}
4452          V585= vs_base[0];          V559= vs_base[0];
4453          vs_base++;          vs_base++;
4454          if(vs_base>=vs_top){vs_top=sup;goto T1227;}          if(vs_base>=vs_top){vs_top=sup;goto T1237;}
4455          V586= vs_base[0];          V560= vs_base[0];
4456          vs_top=sup;          vs_top=sup;
4457          goto T1228;          goto T1238;
4458          goto T1224;          goto T1234;
4459  T1224:;  T1234:;
4460          V583= Cnil;          V557= Cnil;
4461          goto T1225;          goto T1235;
4462  T1225:;  T1235:;
4463          V584= Cnil;          V558= Cnil;
         goto T1226;  
 T1226:;  
         V585= Cnil;  
         goto T1227;  
 T1227:;  
         V586= Cnil;  
         goto T1228;  
 T1228:;  
         if(((V584))==Cnil){  
         goto T1229;}  
         {register object x= (V579),V587= (VV[91]->s.s_dbind);  
         while(V587!=Cnil)  
         if(x==(V587->c.c_car)){  
         goto T1229;  
         }else V587=V587->c.c_cdr;}  
         base[3]= make_cons((V579),(VV[91]->s.s_dbind));  
         bds_bind(VV[91],base[3]);  
         if((V586)==Cnil){  
         goto T1236;}  
         bds_unwind1;  
         goto T1229;  
4464          goto T1236;          goto T1236;
4465  T1236:;  T1236:;
4466          {object V589;          V559= Cnil;
4467          object V590;          goto T1237;
4468          object V591;  T1237:;
4469          {register object V592;          V560= Cnil;
4470          V592= (V583);          goto T1238;
4471          base[7]= (V592);  T1238:;
4472          base[8]= VV[127];          if(((V558))==Cnil){
4473            goto T1239;}
4474            {register object x= (V553),V561= (VV[99]->s.s_dbind);
4475            while(V561!=Cnil)
4476            if(x==(V561->c.c_car)){
4477            goto T1239;
4478            }else V561=V561->c.c_cdr;}
4479            base[3]= make_cons((V553),(VV[99]->s.s_dbind));
4480            bds_bind(VV[99],base[3]);
4481            if((V560)==Cnil){
4482            goto T1246;}
4483            bds_unwind1;
4484            goto T1239;
4485            goto T1246;
4486    T1246:;
4487            {object V563;
4488            object V564;
4489            object V565;
4490            {register object V566;
4491            V566= (V557);
4492            base[7]= (V566);
4493            base[8]= VV[144];
4494          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4495          (void) (*Lnk248)();          (void) (*Lnk265)();
4496          vs_top=sup;          vs_top=sup;
4497          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4498          goto T1240;}          goto T1250;}
4499          V589= STREF(object,(V583),0);          V563= STREF(object,(V557),0);
4500          goto T1238;          goto T1248;
4501          goto T1240;          goto T1250;
4502  T1240:;  T1250:;
4503          base[7]= (V592);          base[7]= (V566);
4504          base[8]= VV[128];          base[8]= VV[145];
4505          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4506          (void) (*Lnk248)();          (void) (*Lnk265)();
4507          vs_top=sup;          vs_top=sup;
4508          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4509          goto T1245;}          goto T1255;}
4510          V589= STREF(object,(V583),0);          V563= STREF(object,(V557),0);
4511          goto T1238;          goto T1248;
4512          goto T1245;          goto T1255;
4513  T1245:;  T1255:;
4514          V589= Cnil;}          V563= Cnil;}
4515          goto T1238;          goto T1248;
4516  T1238:;  T1248:;
4517          V590= (VFUN_NARGS=2,(*(LnkLI249))((V589),VV[74]));          V564= (VFUN_NARGS=2,(*(LnkLI266))((V563),VV[81]));
4518          V591= (VFUN_NARGS=3,(*(LnkLI247))((V582),(V585),(V590)));          V565= (VFUN_NARGS=3,(*(LnkLI264))((V556),(V559),(V564)));
4519          if(((V591))==((V582))){          if(((V565))==((V556))){
4520          bds_unwind1;          bds_unwind1;
4521          goto T1229;}          goto T1239;}
4522          {object V593;          {object V567;
4523          object V594;          object V568;
4524          object V595;          object V569;
4525          base[7]= (V579);          base[7]= (V553);
4526          base[8]= (V591);          base[8]= (V565);
4527          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4528          (void) (*Lnk202)();          (void) (*Lnk219)();
4529          if(vs_base>=vs_top){vs_top=sup;goto T1256;}          if(vs_base>=vs_top){vs_top=sup;goto T1266;}
4530          V593= vs_base[0];          V567= vs_base[0];
4531          vs_base++;          vs_base++;
4532          if(vs_base>=vs_top){vs_top=sup;goto T1257;}          if(vs_base>=vs_top){vs_top=sup;goto T1267;}
4533          V594= vs_base[0];          V568= vs_base[0];
4534          vs_base++;          vs_base++;
4535          if(vs_base>=vs_top){vs_top=sup;goto T1258;}          if(vs_base>=vs_top){vs_top=sup;goto T1268;}
4536          V595= vs_base[0];          V569= vs_base[0];
4537          vs_top=sup;          vs_top=sup;
4538          goto T1259;          goto T1269;
4539          goto T1256;          goto T1266;
4540  T1256:;  T1266:;
4541          V593= Cnil;          V567= Cnil;
4542          goto T1257;          goto T1267;
4543  T1257:;  T1267:;
4544          V594= Cnil;          V568= Cnil;
4545          goto T1258;          goto T1268;
4546  T1258:;  T1268:;
4547          V595= Cnil;          V569= Cnil;
4548          goto T1259;          goto T1269;
4549  T1259:;  T1269:;
4550          V596= (VFUN_NARGS=4,(*(LnkLI49))((V579),(V593),(V594),(V595)));          V570= (VFUN_NARGS=4,(*(LnkLI47))((V553),(V567),(V568),(V569)));
4551          bds_unwind1;}}          bds_unwind1;}}
4552          goto T1229;          goto T1239;
4553  T1229:;  T1239:;
4554          base[3]= (V583);          base[3]= (V557);
4555          base[4]= (V580);          base[4]= (V554);
4556          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4557          (void) (*Lnk94)();          (void) (*Lnk102)();
4558          return;}}          return;}}
4559          }          }
4560  }  }
# Line 4595  static void L91() Line 4564  static void L91()
4564  {register object *base=vs_base;  {register object *base=vs_base;
4565          register object *sup=base+VM86; VC86          register object *sup=base+VM86; VC86
4566          vs_check;          vs_check;
4567          {object V597;          {object V571;
4568          object V598;          object V572;
4569          object V599;          object V573;
4570          check_arg(3);          check_arg(3);
4571          V597=(base[0]);          V571=(base[0]);
4572          V598=(base[1]);          V572=(base[1]);
4573          V599=(base[2]);          V573=(base[2]);
4574          vs_top=sup;          vs_top=sup;
4575          goto TTL;          goto TTL;
4576  TTL:;  TTL:;
4577          if(((*(LnkLI196))((V597)))==Cnil){          {object V574;
4578          goto T1266;}          object V575;
4579          if(type_of(V597)==t_structure){          object V576;
4580          goto T1272;}          object V577;
4581          goto T1270;          object V578;
4582          goto T1272;          base[3]= (V571);
4583  T1272:;          vs_top=(vs_base=base+3)+1;
4584          if(!(((V597)->str.str_def)==(VV[129]))){          (void) (*Lnk204)();
4585          goto T1270;}          if(vs_base>=vs_top){vs_top=sup;goto T1274;}
4586          V600= STREF(object,(V597),4);          V574= vs_base[0];
4587          goto T1268;          vs_base++;
4588          goto T1270;          if(vs_base>=vs_top){vs_top=sup;goto T1275;}
4589  T1270:;{object V602;          V575= vs_base[0];
4590          V602= (VV[65]->s.s_dbind);          vs_base++;
4591          base[3]= small_fixnum(14);          if(vs_base>=vs_top){vs_top=sup;goto T1276;}
4592          base[4]= (V597);          V576= vs_base[0];
4593          vs_top=(vs_base=base+3)+2;          vs_base++;
4594          (void) (*Lnk197)();          if(vs_base>=vs_top){vs_top=sup;goto T1277;}
4595            V577= vs_base[0];
4596            vs_base++;
4597            if(vs_base>=vs_top){vs_top=sup;goto T1278;}
4598            V578= vs_base[0];
4599          vs_top=sup;          vs_top=sup;
4600          V603= vs_base[0];          goto T1279;
4601          if(!((V602)==(CMPcar(V603)))){          goto T1274;
4602          goto T1275;}}  T1274:;
4603          V600= CMPcar(((V597))->cc.cc_turbo[12]);          V574= Cnil;
         goto T1268;  
4604          goto T1275;          goto T1275;
4605  T1275:;  T1275:;
4606          base[3]= VV[66];          V575= Cnil;
4607          vs_top=(vs_base=base+3)+1;          goto T1276;
4608    T1276:;
4609            V576= Cnil;
4610            goto T1277;
4611    T1277:;
4612            V577= Cnil;
4613            goto T1278;
4614    T1278:;
4615            V578= Cnil;
4616            goto T1279;
4617    T1279:;
4618            {register object V579;
4619            object V580;
4620            object V581;
4621            register object V582;
4622            register object V583;
4623            object V584;
4624            object V585;
4625            object V586;
4626            V579= (V572);
4627            V580= Cnil;
4628            V581= Cnil;
4629            V582= Cnil;
4630            V583= Cnil;
4631            V584= Cnil;
4632            V585= Cnil;
4633            V586= Cnil;
4634            {register object V587;
4635            object V588;
4636            V587= (V576);
4637            V588= CMPcar((V587));
4638            goto T1292;
4639    T1292:;
4640            if(!(((V587))==Cnil)){
4641            goto T1293;}
4642            goto T1288;
4643            goto T1293;
4644    T1293:;
4645            if(((V579))!=Cnil){
4646            goto T1297;}
4647            V581= Ct;
4648            goto T1288;
4649            goto T1297;
4650    T1297:;
4651            {object V589;
4652            register object V590;
4653            register object V591;
4654            object V592;
4655            {object V593;
4656            V593= CMPcar((V579));
4657            V579= CMPcdr((V579));
4658            V589= (V593);}
4659            V590= Cnil;
4660            V591= (VV[135]->s.s_dbind);
4661            V592= Ct;
4662            if(((V588))==(Ct)){
4663            goto T1310;}
4664            V590= (*(LnkLI267))((V589));
4665            if(!((((((V590))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
4666            goto T1315;}
4667            V580= Ct;
4668            V590= (*(LnkLI268))((V589));
4669            goto T1315;
4670    T1315:;
4671            if(((V582))!=Cnil){
4672            goto T1323;}
4673            V582= (V590);
4674            goto T1321;
4675            goto T1323;
4676    T1323:;
4677            if(type_of((V582))==t_cons){
4678            goto T1327;}
4679            V583= make_cons((V590),Cnil);
4680            V582= make_cons((V582),(V583));
4681            goto T1321;
4682            goto T1327;
4683    T1327:;
4684            {object V594;
4685            V594= make_cons((V590),Cnil);
4686            (V583)->c.c_cdr = V594;
4687            V583= (V594);}
4688            goto T1321;
4689    T1321:;
4690            V591= ((V590))->v.v_self[11];
4691            V592= list(2,VV[146],(V591));
4692            goto T1310;
4693    T1310:;
4694            V584= make_cons(V590,(V584));
4695            V586= make_cons(V591,(V586));
4696            V585= make_cons(V592,(V585));}
4697            V587= CMPcdr((V587));
4698            V588= CMPcar((V587));
4699            goto T1292;}
4700            goto T1288;
4701    T1288:;
4702            if(((V581))==Cnil){
4703            goto T1350;}
4704            base[3]= VV[147];
4705            base[4]= (V571);
4706            base[5]= CMPmake_fixnum((long)length((V576)));
4707            vs_top=(vs_base=base+3)+3;
4708          Lerror();          Lerror();
         vs_top=sup;  
         V600= vs_base[0];  
         goto T1268;  
 T1268:;  
         V604 = (VV[67]->s.s_dbind);  
         if(((V600)->v.v_self[fix(V604)])!=Cnil){  
         goto T1263;}  
         goto T1264;  
         goto T1266;  
 T1266:;  
         base[3]= (V597);  
         vs_top=(vs_base=base+3)+1;  
         (void) (*Lnk199)(Lclptr199);  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T1263;}  
         goto T1264;  
 T1264:;  
         base[3]=VV[250]->s.s_gfdef;  
         base[4]= (V597);  
         {object V605;  
         V605= (V598);  
          vs_top=base+5;  
          while(V605!=Cnil)  
          {vs_push((V605)->c.c_car);V605=(V605)->c.c_cdr;}  
         vs_base=base+4;}  
         (void) (*Lnk250)(Lclptr250);  
4709          return;          return;
4710          goto T1263;          goto T1350;
4711  T1263:;  T1350:;
4712            {object V600;
4713            object V601;
4714            object V602;
4715            V600= nreverse((V584));
4716            V601= nreverse((V586));
4717            {object V603;
4718            object V604= (V601);
4719            if(V604==Cnil){
4720            V602= Cnil;
4721            goto T1357;}
4722            base[6]=V603=MMcons(Cnil,Cnil);
4723            goto T1358;
4724    T1358:;
4725            (V603->c.c_car)= list(2,VV[146],(V604->c.c_car));
4726            if((V604=MMcdr(V604))==Cnil){
4727            V602= base[6];
4728            goto T1357;}
4729            V603=MMcdr(V603)=MMcons(Cnil,Cnil);
4730            goto T1358;}
4731            goto T1357;
4732    T1357:;
4733          {object V606;          {object V606;
4734          object V607;          object V607;
4735          object V608;          object V608;
4736          object V609;          object V609;
4737          object V610;          base[6]= (V571);
4738          base[3]= (V597);          base[7]= (V578);
4739          vs_top=(vs_base=base+3)+1;          base[8]= (V600);
4740          (void) (*Lnk187)();          base[9]= (V601);
4741          if(vs_base>=vs_top){vs_top=sup;goto T1286;}          base[10]= (V602);
4742            base[11]= (V573);
4743            vs_top=(vs_base=base+6)+6;
4744            (void) (*Lnk269)();
4745            if(vs_base>=vs_top){vs_top=sup;goto T1367;}
4746          V606= vs_base[0];          V606= vs_base[0];
4747          vs_base++;          vs_base++;
4748          if(vs_base>=vs_top){vs_top=sup;goto T1287;}          if(vs_base>=vs_top){vs_top=sup;goto T1368;}
4749          V607= vs_base[0];          V607= vs_base[0];
4750          vs_base++;          vs_base++;
4751          if(vs_base>=vs_top){vs_top=sup;goto T1288;}          if(vs_base>=vs_top){vs_top=sup;goto T1369;}
4752          V608= vs_base[0];          V608= vs_base[0];
4753          vs_base++;          vs_base++;
4754          if(vs_base>=vs_top){vs_top=sup;goto T1289;}          if(vs_base>=vs_top){vs_top=sup;goto T1370;}
4755          V609= vs_base[0];          V609= vs_base[0];
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T1290;}  
         V610= vs_base[0];  
4756          vs_top=sup;          vs_top=sup;
4757          goto T1291;          goto T1371;
4758          goto T1286;          goto T1367;
4759  T1286:;  T1367:;
4760          V606= Cnil;          V606= Cnil;
4761          goto T1287;          goto T1368;
4762  T1287:;  T1368:;
4763          V607= Cnil;          V607= Cnil;
4764          goto T1288;          goto T1369;
4765  T1288:;  T1369:;
4766          V608= Cnil;          V608= Cnil;
         goto T1289;  
 T1289:;  
         V609= Cnil;  
         goto T1290;  
 T1290:;  
         V610= Cnil;  
         goto T1291;  
 T1291:;  
         {register object V611;  
         object V612;  
         object V613;  
         register object V614;  
         register object V615;  
         object V616;  
         object V617;  
         object V618;  
         V611= (V598);  
         V612= Cnil;  
         V613= Cnil;  
         V614= Cnil;  
         V615= Cnil;  
         V616= Cnil;  
         V617= Cnil;  
         V618= Cnil;  
         {register object V619;  
         object V620;  
         V619= (V608);  
         V620= CMPcar((V619));  
         goto T1304;  
 T1304:;  
         if(!(((V619))==Cnil)){  
         goto T1305;}  
         goto T1300;  
         goto T1305;  
 T1305:;  
         if(((V611))!=Cnil){  
         goto T1309;}  
         V613= Ct;  
         goto T1300;  
         goto T1309;  
 T1309:;  
         {object V621;  
         register object V622;  
         register object V623;  
         object V624;  
         {object V625;  
         V625= CMPcar((V611));  
         V611= CMPcdr((V611));  
         V621= (V625);}  
         V622= Cnil;  
         V623= (VV[125]->s.s_dbind);  
         V624= Ct;  
         if(((V620))==(Ct)){  
         goto T1322;}  
         V622= (*(LnkLI251))((V621));  
         if(!((((((V622))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){  
         goto T1327;}  
         V612= Ct;  
         V622= (*(LnkLI252))((V621));  
         goto T1327;  
 T1327:;  
         if(((V614))!=Cnil){  
         goto T1335;}  
         V614= (V622);  
         goto T1333;  
         goto T1335;  
 T1335:;  
         if(type_of((V614))==t_cons){  
         goto T1339;}  
         V615= make_cons((V622),Cnil);  
         V614= make_cons((V614),(V615));  
         goto T1333;  
         goto T1339;  
 T1339:;  
         {object V626;  
         V626= make_cons((V622),Cnil);  
         (V615)->c.c_cdr = V626;  
         V615= (V626);}  
         goto T1333;  
 T1333:;  
         V623= ((V622))->v.v_self[11];  
         V624= list(2,VV[130],(V623));  
         goto T1322;  
 T1322:;  
         V616= make_cons(V622,(V616));  
         V618= make_cons(V623,(V618));  
         V617= make_cons(V624,(V617));}  
         V619= CMPcdr((V619));  
         V620= CMPcar((V619));  
         goto T1304;}  
         goto T1300;  
 T1300:;  
         if(((V613))==Cnil){  
         goto T1362;}  
         base[3]= VV[131];  
         base[4]= (V597);  
         base[5]= CMPmake_fixnum((long)length((V608)));  
         vs_top=(vs_base=base+3)+3;  
         Lerror();  
         return;  
         goto T1362;  
 T1362:;  
         {object V632;  
         object V633;  
         object V634;  
         V632= nreverse((V616));  
         V633= nreverse((V618));  
         {object V635;  
         object V636= (V633);  
         if(V636==Cnil){  
         V634= Cnil;  
         goto T1369;}  
         base[6]=V635=MMcons(Cnil,Cnil);  
4767          goto T1370;          goto T1370;
4768  T1370:;  T1370:;
4769          (V635->c.c_car)= list(2,VV[130],(V636->c.c_car));          V609= Cnil;
4770          if((V636=MMcdr(V636))==Cnil){          goto T1371;
4771          V634= base[6];  T1371:;
4772          goto T1369;}          base[6]= (V606);
4773          V635=MMcdr(V635)=MMcons(Cnil,Cnil);          base[7]= (V607);
4774          goto T1370;}          base[8]= (V582);
4775          goto T1369;          base[9]= (V580);
4776  T1369:;          base[10]= (V608);
4777          {object V638;          base[11]= (V609);
         object V639;  
         object V640;  
         object V641;  
         base[6]= (V597);  
         base[7]= (V610);  
         base[8]= (V632);  
         base[9]= (V633);  
         base[10]= (V634);  
         base[11]= (V599);  
         vs_top=(vs_base=base+6)+6;  
         (void) (*Lnk253)();  
         if(vs_base>=vs_top){vs_top=sup;goto T1379;}  
         V638= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T1380;}  
         V639= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T1381;}  
         V640= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T1382;}  
         V641= vs_base[0];  
         vs_top=sup;  
         goto T1383;  
         goto T1379;  
 T1379:;  
         V638= Cnil;  
         goto T1380;  
 T1380:;  
         V639= Cnil;  
         goto T1381;  
 T1381:;  
         V640= Cnil;  
         goto T1382;  
 T1382:;  
         V641= Cnil;  
         goto T1383;  
 T1383:;  
         base[6]= (V638);  
         base[7]= (V639);  
         base[8]= (V614);  
         base[9]= (V612);  
         base[10]= (V640);  
         base[11]= (V641);  
4778          vs_top=(vs_base=base+6)+6;          vs_top=(vs_base=base+6)+6;
4779          return;}}}}          return;}}}}
4780          }          }
# Line 4875  static void L92() Line 4785  static void L92()
4785  {register object *base=vs_base;  {register object *base=vs_base;
4786          register object *sup=base+VM87; VC87          register object *sup=base+VM87; VC87
4787          vs_check;          vs_check;
4788          {register object V642;          {register object V610;
4789          object V643;          object V611;
4790          object V644;          object V612;
4791          object V645;          object V613;
4792          object V646;          object V614;
4793          object V647;          object V615;
4794          check_arg(6);          check_arg(6);
4795          V642=(base[0]);          V610=(base[0]);
4796          V643=(base[1]);          V611=(base[1]);
4797          V644=(base[2]);          V612=(base[2]);
4798          V645=(base[3]);          V613=(base[3]);
4799          V646=(base[4]);          V614=(base[4]);
4800          V647=(base[5]);          V615=(base[5]);
4801          vs_top=sup;          vs_top=sup;
4802          goto TTL;          goto TTL;
4803  TTL:;  TTL:;
4804          {object V648;          {object V616;
4805          object V649;          object V617;
4806          object V650;          object V618;
4807          V648= (((V647))==(VV[86])?Ct:Cnil);          V616= (((V615))==(VV[94])?Ct:Cnil);
4808          if(!(((V647))==(VV[13]))){          if(!(((V615))==(VV[11]))){
4809          goto T1392;}          goto T1380;}
4810          V649= Ct;          V617= Ct;
4811          goto T1391;          goto T1379;
4812          goto T1392;          goto T1380;
4813  T1392:;  T1380:;
4814          V649= (((V647))==(VV[86])?Ct:Cnil);          V617= (((V615))==(VV[94])?Ct:Cnil);
4815          goto T1391;          goto T1379;
4816  T1391:;  T1379:;
4817          if(!(((V643))==Cnil)){          if(!(((V611))==Cnil)){
4818          goto T1395;}          goto T1383;}
4819          V650= Ct;          V618= Ct;
4820          goto T1394;          goto T1382;
4821            goto T1383;
4822    T1383:;
4823            V618= STREF(object,(V611),36);
4824            goto T1382;
4825    T1382:;
4826            {register object V619;
4827            object V620;
4828            if(((V618))==Cnil){
4829            goto T1387;}
4830            base[9]= (V610);
4831            base[10]= (V614);
4832            vs_top=(vs_base=base+9)+2;
4833            (void) (*Lnk270)();
4834            goto T1385;
4835            goto T1387;
4836    T1387:;
4837            base[9]= (V610);
4838            base[10]= (V613);
4839            vs_top=(vs_base=base+9)+2;
4840            (void) (*Lnk271)(Lclptr271);
4841            goto T1385;
4842    T1385:;
4843            if(vs_base>=vs_top){vs_top=sup;goto T1393;}
4844            V619= vs_base[0];
4845            vs_base++;
4846            if(vs_base>=vs_top){vs_top=sup;goto T1394;}
4847            V620= vs_base[0];
4848            vs_top=sup;
4849          goto T1395;          goto T1395;
4850  T1395:;          goto T1393;
4851          V650= STREF(object,(V643),36);  T1393:;
4852            V619= Cnil;
4853          goto T1394;          goto T1394;
4854  T1394:;  T1394:;
4855          {register object V651;          V620= Cnil;
4856          object V652;          goto T1395;
4857          if(((V650))==Cnil){  T1395:;
4858          goto T1399;}          {object V621;
4859          base[9]= (V642);          if(((V618))!=Cnil){
4860          base[10]= (V646);          goto T1397;}
4861          vs_top=(vs_base=base+9)+2;          if(((V620))==Cnil){
4862          (void) (*Lnk254)();          goto T1398;}
         goto T1397;  
         goto T1399;  
 T1399:;  
         base[9]= (V642);  
         base[10]= (V645);  
         vs_top=(vs_base=base+9)+2;  
         (void) (*Lnk255)(Lclptr255);  
4863          goto T1397;          goto T1397;
4864  T1397:;  T1397:;
4865          if(vs_base>=vs_top){vs_top=sup;goto T1405;}          if((V617)==Cnil){
4866          V651= vs_base[0];          V622= Cnil;
4867          vs_base++;          goto T1402;}
4868          if(vs_base>=vs_top){vs_top=sup;goto T1406;}          V622= (V612);
4869          V652= vs_base[0];          goto T1402;
4870          vs_top=sup;  T1402:;
4871          goto T1407;          V623= (VFUN_NARGS=6,(*(LnkLI233))((V610),(V619),(V614),Cnil,V622,(V620)));
4872          goto T1405;          if((V617)==Cnil){
4873  T1405:;          V624= Cnil;
4874          V651= Cnil;          goto T1403;}
4875          goto T1406;          V624= (V612);
4876  T1406:;          goto T1403;
4877          V652= Cnil;  T1403:;
4878          goto T1407;          V621= (
4879  T1407:;          V625 = /* INLINE-ARGS */V623,
4880          {object V653;          (type_of(V625) == t_sfun ?(*((V625)->sfn.sfn_self)):
4881          if(((V650))!=Cnil){          (fcall.argd=2,type_of(V625)==t_vfun) ?
4882          goto T1409;}          (*((V625)->sfn.sfn_self)):
4883          if(((V652))==Cnil){          (fcall.fun=(V625),fcalln))(Cnil,V624));
4884          goto T1410;}          goto T1396;
4885          goto T1409;          goto T1398;
4886  T1409:;  T1398:;
4887          V654 = (V642);          V621= (*(LnkLI272))((V610));
4888          V655 = (V651);          goto T1396;
4889          V656 = (V646);  T1396:;
4890          if((V649)==Cnil){          {object V626;
4891          V657= Cnil;          object V627;
4892          goto T1414;}          if((V616)==Cnil){
         V657= (V644);  
         goto T1414;  
 T1414:;  
         V658 = (V652);  
         V659= (VFUN_NARGS=6,(*(LnkLI216))(V654,V655,V656,Cnil,V657,V658));  
         if((V649)==Cnil){  
         V660= Cnil;  
         goto T1415;}  
         V660= (V644);  
         goto T1415;  
 T1415:;  
         V653= (  
         V661 = /* INLINE-ARGS */V659,  
         (type_of(V661) == t_sfun ?(*((V661)->sfn.sfn_self)):  
         (fcall.argd=2,type_of(V661)==t_vfun) ?  
         (*((V661)->sfn.sfn_self)):  
         (fcall.fun=(V661),fcalln))(Cnil,V660));  
         goto T1408;  
         goto T1410;  
 T1410:;  
         V653= (*(LnkLI256))((V642));  
         goto T1408;  
 T1408:;  
         {object V662;  
         object V663;  
         if((V648)==Cnil){  
4893          base[9]= Cnil;          base[9]= Cnil;
4894          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4895          goto T1416;}          goto T1404;}
4896          if((V652)==Cnil){          if((V620)==Cnil){
4897          base[9]= Cnil;          base[9]= Cnil;
4898          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4899          goto T1416;}          goto T1404;}
4900          if((V651)==Cnil){          if((V619)==Cnil){
4901          base[9]= Cnil;          base[9]= Cnil;
4902          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4903          goto T1416;}          goto T1404;}
4904          base[9]= (V642);          base[9]= (V610);
4905          base[10]= (V643);          base[10]= (V611);
4906          base[11]= (V645);          base[11]= (V613);
4907          base[12]= (V651);          base[12]= (V619);
4908          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
4909          (void) (*Lnk257)();          (void) (*Lnk273)();
4910          goto T1416;          goto T1404;
4911  T1416:;  T1404:;
4912          if(vs_base>=vs_top){vs_top=sup;goto T1421;}          if(vs_base>=vs_top){vs_top=sup;goto T1409;}
4913          V662= vs_base[0];          V626= vs_base[0];
4914          vs_base++;          vs_base++;
4915          if(vs_base>=vs_top){vs_top=sup;goto T1422;}          if(vs_base>=vs_top){vs_top=sup;goto T1410;}
4916          V663= vs_base[0];          V627= vs_base[0];
4917          vs_top=sup;          vs_top=sup;
4918          goto T1423;          goto T1411;
4919          goto T1421;          goto T1409;
4920  T1421:;  T1409:;
4921          V662= Cnil;          V626= Cnil;
4922          goto T1422;          goto T1410;
4923  T1422:;  T1410:;
4924          V663= Cnil;          V627= Cnil;
4925          goto T1423;          goto T1411;
4926  T1423:;  T1411:;
4927          if(!(type_of((V662))==t_fixnum||type_of((V662))==t_bignum)){          if(!(type_of((V626))==t_fixnum||type_of((V626))==t_bignum)){
4928          goto T1426;}          goto T1414;}
4929          base[9]= (V662);          base[9]= (V626);
4930          goto T1424;          goto T1412;
4931          goto T1426;          goto T1414;
4932  T1426:;  T1414:;
4933          base[9]= (V653);          base[9]= (V621);
4934          goto T1424;          goto T1412;
4935  T1424:;  T1412:;
4936          base[10]= (V651);          base[10]= (V619);
4937          base[11]= (V663);          base[11]= (V627);
4938          base[12]= (V662);          base[12]= (V626);
4939          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
4940          return;}}}}          return;}}}}
4941          }          }
# Line 5040  static void L93() Line 4946  static void L93()
4946  {register object *base=vs_base;  {register object *base=vs_base;
4947          register object *sup=base+VM88; VC88          register object *sup=base+VM88; VC88
4948          vs_check;          vs_check;
4949          {object V664;          {object V628;
4950          object V665;          object V629;
4951          object V666;          object V630;
4952          object V667;          object V631;
4953          check_arg(4);          check_arg(4);
4954          V664=(base[0]);          V628=(base[0]);
4955          V665=(base[1]);          V629=(base[1]);
4956          V666=(base[2]);          V630=(base[2]);
4957          V667=(base[3]);          V631=(base[3]);
4958          vs_top=sup;          vs_top=sup;
4959          goto TTL;          goto TTL;
4960  TTL:;  TTL:;
4961          {object V668;          {object V632;
4962          object V669;          object V633;
4963          V668= STREF(object,(V665),24);          V632= STREF(object,(V629),24);
4964          {object V670= (V668);          {object V634= (V632);
4965          if((V670!= VV[51]))goto T1433;          if((V634!= VV[59]))goto T1421;
4966          V669= CMPcar((V666));          V633= CMPcar((V630));
4967          goto T1432;          goto T1420;
4968          goto T1433;          goto T1421;
4969  T1433:;  T1421:;
4970          if((V670!= VV[123]))goto T1434;          if((V634!= VV[133]))goto T1422;
4971          V669= CMPcadr((V666));          V633= CMPcadr((V630));
4972          goto T1432;          goto T1420;
4973          goto T1434;          goto T1422;
4974  T1434:;  T1422:;
4975          if((V670!= VV[258]))goto T1435;          if((V634!= VV[274]))goto T1423;
4976          V669= CMPcar((V666));          V633= CMPcar((V630));
4977          goto T1432;          goto T1420;
4978          goto T1435;          goto T1423;
4979  T1435:;  T1423:;
4980          V669= Cnil;}          V633= Cnil;}
4981          goto T1432;          goto T1420;
4982  T1432:;  T1420:;
4983          base[6]= (V668);          base[6]= (V632);
4984          base[7]= (V669);          base[7]= (V633);
4985          base[8]= (V667);          base[8]= (V631);
4986          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
4987          (void) (*Lnk259)();          (void) (*Lnk275)();
4988          return;}          return;}
4989          }          }
4990  }  }
# Line 5088  static void L94() Line 4994  static void L94()
4994  {register object *base=vs_base;  {register object *base=vs_base;
4995          register object *sup=base+VM89; VC89          register object *sup=base+VM89; VC89
4996          vs_check;          vs_check;
4997          {object V671;          {object V635;
4998          object V672;          object V636;
4999          object V673;          object V637;
5000          check_arg(3);          check_arg(3);
5001          V671=(base[0]);          V635=(base[0]);
5002          V672=(base[1]);          V636=(base[1]);
5003          V673=(base[2]);          V637=(base[2]);
5004          vs_top=sup;          vs_top=sup;
5005          goto TTL;          goto TTL;
5006  TTL:;  TTL:;
5007          {object V674;          {object V638;
5008          object V675;          object V639;
5009          object V676;          object V640;
5010          V674= list(2,VV[130],(V673));          V638= list(2,VV[146],(V637));
5011          if(!(((V672))==(VV[123]))){          if(!(((V636))==(VV[133]))){
5012          goto T1442;}          goto T1430;}
5013          V675= list(2,Ct,(V674));          V639= list(2,Ct,(V638));
5014          goto T1440;          goto T1428;
5015          goto T1442;          goto T1430;
5016  T1442:;  T1430:;
5017          V675= make_cons((V674),Cnil);          V639= make_cons((V638),Cnil);
5018          goto T1440;          goto T1428;
5019  T1440:;  T1428:;
5020          base[6]= (V671);          base[6]= (V635);
5021          base[7]= (V675);          base[7]= (V639);
5022          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
5023          (void) (*Lnk254)();          (void) (*Lnk270)();
5024          vs_top=sup;          vs_top=sup;
5025          V676= vs_base[0];          V640= vs_base[0];
5026          base[6]= (V672);          base[6]= (V636);
5027          base[7]= (V673);          base[7]= (V637);
5028          base[8]= (V676);          base[8]= (V640);
5029          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
5030          (void) (*Lnk259)();          (void) (*Lnk275)();
5031          return;}          return;}
5032          }          }
5033  }  }
# Line 5131  static void L95() Line 5037  static void L95()
5037  {register object *base=vs_base;  {register object *base=vs_base;
5038          register object *sup=base+VM90; VC90          register object *sup=base+VM90; VC90
5039          vs_check;          vs_check;
5040          {object V677;          {object V641;
5041          object V678;          object V642;
5042          object V679;          object V643;
5043          check_arg(3);          check_arg(3);
5044          V677=(base[0]);          V641=(base[0]);
5045          V678=(base[1]);          V642=(base[1]);
5046          V679=(base[2]);          V643=(base[2]);
5047          vs_top=sup;          vs_top=sup;
5048          goto TTL;          goto TTL;
5049  TTL:;  TTL:;
5050          {register object V680;          {register object V644;
5051          register object V681;          register object V645;
5052          V680= (V679);          V644= (V643);
5053          V681= CMPcar((V680));          V645= CMPcar((V644));
5054          goto T1454;          goto T1442;
5055  T1454:;  T1442:;
5056          if(!(((V680))==Cnil)){          if(!(((V644))==Cnil)){
5057          goto T1455;}          goto T1443;}
5058          goto T1450;          goto T1438;
5059          goto T1455;          goto T1443;
5060  T1455:;  T1443:;
5061          if(!(type_of((V681))==t_cons)){          if(!(type_of((V645))==t_cons)){
5062          goto T1463;}          goto T1451;}
5063          if(((*(LnkLI260))((V681)))==Cnil){          if(((*(LnkLI276))((V645)))==Cnil){
5064          goto T1459;}          goto T1447;}
5065          goto T1461;          goto T1449;
5066          goto T1463;          goto T1451;
5067  T1463:;  T1451:;
5068          base[4]= (V681);          base[4]= (V645);
5069          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5070          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk277)(Lclptr277);
5071          vs_top=sup;          vs_top=sup;
5072          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5073          goto T1459;}          goto T1447;}
5074          goto T1461;          goto T1449;
5075  T1461:;  T1449:;
5076          base[4]= Cnil;          base[4]= Cnil;
5077          base[5]= Cnil;          base[5]= Cnil;
5078          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5079          return;          return;
5080          goto T1459;          goto T1447;
5081  T1459:;  T1447:;
5082          V680= CMPcdr((V680));          V644= CMPcdr((V644));
5083          V681= CMPcar((V680));          V645= CMPcar((V644));
5084          goto T1454;}          goto T1442;}
5085          goto T1450;          goto T1438;
5086  T1450:;  T1438:;
5087          {object V682;          {object V646;
5088          object V683;          object V647;
5089          register object V684;          register object V648;
5090          object V685;          object V649;
5091          V682= CMPcar((V679));          V646= CMPcar((V643));
5092          V683= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil);          V647= (((((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil))==Cnil?Ct:Cnil);
5093          if(((V678))==Cnil){          if(((V642))==Cnil){
5094            goto T1465;}
5095            if(!(type_of((V646))==t_cons)){
5096            goto T1468;}
5097            if(((*(LnkLI278))((V646)))!=Cnil){
5098            goto T1470;}
5099            V648= Cnil;
5100            goto T1463;
5101            goto T1470;
5102    T1470:;
5103            base[7]= (V646);
5104            vs_top=(vs_base=base+7)+1;
5105            (void) (*Lnk248)();
5106            vs_top=sup;
5107            V648= vs_base[0];
5108            goto T1463;
5109            goto T1468;
5110    T1468:;{object V651;
5111            V651= (VV[148]->s.s_dbind);
5112            if(((V647))==Cnil){
5113          goto T1477;}          goto T1477;}
5114          if(!(type_of((V682))==t_cons)){          V652= (*(LnkLI279))((V642));
         goto T1480;}  
         if(((*(LnkLI262))((V682)))!=Cnil){  
         goto T1482;}  
         V684= Cnil;  
5115          goto T1475;          goto T1475;
5116          goto T1482;          goto T1477;
5117  T1482:;  T1477:;
5118          base[7]= (V682);          base[7]= (V642);
5119          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
5120          (void) (*Lnk231)();          (void) (*Lnk280)(Lclptr280);
5121          vs_top=sup;          vs_top=sup;
5122          V684= vs_base[0];          V652= vs_base[0];
5123          goto T1475;          goto T1475;
5124          goto T1480;  T1475:;
5125  T1480:;{object V687;          {register object x= V651,V650= V652;
5126          V687= (VV[132]->s.s_dbind);          while(V650!=Cnil)
5127          if(((V683))==Cnil){          if(eql(x,V650->c.c_car)){
5128          goto T1489;}          goto T1473;
5129          V688= (*(LnkLI263))((V678));          }else V650=V650->c.c_cdr;}}
5130          goto T1487;          V648= Cnil;
5131          goto T1489;          goto T1463;
5132  T1489:;          goto T1473;
5133          base[7]= (V678);  T1473:;
5134            if(((V647))==Cnil){
5135            goto T1483;}{object V653;
5136            V653= (VV[149]->s.s_dbind);
5137            V654= (*(LnkLI281))((V646));
5138            if((((V653)==(/* INLINE-ARGS */V654)?Ct:Cnil))==Cnil){
5139            goto T1480;}
5140            goto T1481;}
5141            goto T1483;
5142    T1483:;
5143            base[7]= (V646);
5144          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
5145          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk282)(Lclptr282);
5146          vs_top=sup;          vs_top=sup;
5147          V688= vs_base[0];          if((vs_base[0])!=Cnil){
5148            goto T1480;}
5149            goto T1481;
5150    T1481:;
5151            V648= Cnil;
5152            goto T1463;
5153            goto T1480;
5154    T1480:;
5155            if(((V647))==Cnil){
5156            goto T1487;}
5157            V648= (*(LnkLI283))((V646));
5158            goto T1463;
5159          goto T1487;          goto T1487;
5160  T1487:;  T1487:;
5161          {register object x= V687,V686= V688;          base[7]= (V646);
         while(V686!=Cnil)  
         if(eql(x,V686->c.c_car)){  
         goto T1485;  
         }else V686=V686->c.c_cdr;}}  
         V684= Cnil;  
         goto T1475;  
         goto T1485;  
 T1485:;  
         if(((V683))==Cnil){  
         goto T1495;}{object V689;  
         V689= (VV[133]->s.s_dbind);  
         V690= (*(LnkLI265))((V682));  
         if((((V689)==(/* INLINE-ARGS */V690)?Ct:Cnil))==Cnil){  
         goto T1492;}  
         goto T1493;}  
         goto T1495;  
 T1495:;  
         base[7]= (V682);  
5162          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
5163          (void) (*Lnk266)(Lclptr266);          (void) (*Lnk284)(Lclptr284);
5164          vs_top=sup;          vs_top=sup;
5165          if((vs_base[0])!=Cnil){          V648= vs_base[0];
5166            goto T1463;
5167            goto T1465;
5168    T1465:;
5169            V648= Cnil;
5170            goto T1463;
5171    T1463:;
5172            if((V642)==Cnil){
5173            V649= Cnil;
5174            goto T1490;}
5175            if(((V647))==Cnil){
5176          goto T1492;}          goto T1492;}
5177          goto T1493;          {register object V655;
5178  T1493:;          register object V656;
5179          V684= Cnil;          V655= (*(LnkLI285))((V642));
5180          goto T1475;          V656= CMPcar((V655));
5181          goto T1492;          goto T1497;
5182  T1492:;  T1497:;
5183          if(((V683))==Cnil){          if(!(((V655))==Cnil)){
5184          goto T1499;}          goto T1498;}
5185          V684= (*(LnkLI267))((V682));          V649= Cnil;
5186          goto T1475;          goto T1490;
5187          goto T1499;          goto T1498;
5188  T1499:;  T1498:;
5189          base[7]= (V682);          V657= (*(LnkLI286))((V656));
5190          vs_top=(vs_base=base+7)+1;          if(!(eql((V648),/* INLINE-ARGS */V657))){
         (void) (*Lnk268)(Lclptr268);  
         vs_top=sup;  
         V684= vs_base[0];  
         goto T1475;  
         goto T1477;  
 T1477:;  
         V684= Cnil;  
         goto T1475;  
 T1475:;  
         if((V678)==Cnil){  
         V685= Cnil;  
5191          goto T1502;}          goto T1502;}
5192          if(((V683))==Cnil){          V649= (V656);
5193          goto T1504;}          goto T1490;
         {register object V691;  
         register object V692;  
         V691= (*(LnkLI269))((V678));  
         V692= CMPcar((V691));  
         goto T1509;  
 T1509:;  
         if(!(((V691))==Cnil)){  
         goto T1510;}  
         V685= Cnil;  
         goto T1502;  
         goto T1510;  
 T1510:;  
         V693 = (V684);  
         V694= (*(LnkLI270))((V692));  
         if(!(eql(V693,/* INLINE-ARGS */V694))){  
         goto T1514;}  
         V685= (V692);  
         goto T1502;  
         goto T1514;  
 T1514:;  
         V691= CMPcdr((V691));  
         V692= CMPcar((V691));  
         goto T1509;}  
         goto T1504;  
 T1504:;  
         V685= (*(LnkLI271))((V678),(V684));  
5194          goto T1502;          goto T1502;
5195  T1502:;  T1502:;
5196          if(((V685))==Cnil){          V655= CMPcdr((V655));
5197          goto T1523;}          V656= CMPcar((V655));
5198          if(((V683))!=Cnil){          goto T1497;}
5199          goto T1522;}          goto T1492;
5200          base[7]= (V685);  T1492:;
5201          base[8]= (V677);          V649= (*(LnkLI287))((V642),(V648));
5202            goto T1490;
5203    T1490:;
5204            if(((V649))==Cnil){
5205            goto T1511;}
5206            if(((V647))!=Cnil){
5207            goto T1510;}
5208            base[7]= (V649);
5209            base[8]= (V641);
5210          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
5211          (void) (*Lnk272)(Lclptr272);          (void) (*Lnk288)(Lclptr288);
5212          vs_top=sup;          vs_top=sup;
5213          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5214          goto T1523;}          goto T1511;}
5215          goto T1522;          goto T1510;
5216  T1522:;  T1510:;
5217          if(((V683))==Cnil){          if(((V647))==Cnil){
5218          goto T1533;}          goto T1521;}
5219          base[7]= (*(LnkLI273))((V685));          base[7]= (*(LnkLI289))((V649));
5220          goto T1531;          goto T1519;
5221          goto T1533;          goto T1521;
5222  T1533:;  T1521:;
5223          base[8]= (V685);          base[8]= (V649);
5224          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
5225          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk290)(Lclptr290);
5226          vs_top=sup;          vs_top=sup;
5227          base[7]= vs_base[0];          base[7]= vs_base[0];
5228          goto T1531;          goto T1519;
5229  T1531:;  T1519:;
5230          base[8]= (V677);          base[8]= (V641);
5231          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
5232          return;          return;
5233          goto T1523;          goto T1511;
5234  T1523:;  T1511:;
5235          base[7]= Cnil;          base[7]= Cnil;
5236          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
5237          return;}          return;}
# Line 5338  static void L96() Line 5243  static void L96()
5243  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
5244          register object *VOL sup=base+VM91; VC91          register object *VOL sup=base+VM91; VC91
5245          vs_check;          vs_check;
5246          {VOL object V695;          {VOL object V658;
5247          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
5248          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
5249          V695=(base[0]);          V658=(base[0]);
5250          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
5251          vs_base=vs_base+2;          vs_base=vs_base+2;
5252          if(vs_base>=vs_top){vs_top=sup;goto T1537;}          if(vs_base>=vs_top){vs_top=sup;goto T1525;}
5253          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
5254          vs_top=sup;          vs_top=sup;
5255          goto T1538;          goto T1526;
5256          goto T1537;          goto T1525;
5257  T1537:;  T1525:;
5258          base[2]= Cnil;          base[2]= Cnil;
5259          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
5260          goto T1538;          goto T1526;
5261  T1538:;  T1526:;
5262          base[3]=alloc_frame_id();          base[3]=alloc_frame_id();
5263          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
5264          frs_push(FRS_CATCH,(base[3]->c.c_car));          frs_push(FRS_CATCH,(base[3]->c.c_car));
# Line 5362  T1538:; Line 5267  T1538:;
5267          return;}          return;}
5268          else{          else{
5269          if(((base[2]->c.c_car))!=Cnil){          if(((base[2]->c.c_car))!=Cnil){
5270          goto T1540;}          goto T1528;}
5271          base[4]= VV[113];          base[4]= VV[123];
5272          base[5]= VV[119];          base[5]= VV[129];
5273          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5274          Lmake_hash_table();          Lmake_hash_table();
5275          vs_top=sup;          vs_top=sup;
5276          (base[2]->c.c_car)= vs_base[0];          (base[2]->c.c_car)= vs_base[0];
5277            goto T1528;
5278    T1528:;
5279            {object V659;
5280            if(((*(LnkLI213))((V658)))==Cnil){
5281            goto T1536;}
5282            if(type_of(V658)==t_structure){
5283            goto T1542;}
5284          goto T1540;          goto T1540;
5285  T1540:;          goto T1542;
5286          {object V696;  T1542:;
5287          if(((*(LnkLI196))((V695)))==Cnil){          if(!(((V658)->str.str_def)==(VV[150]))){
5288          goto T1548;}          goto T1540;}
5289          if(type_of(V695)==t_structure){          V660= STREF(object,(V658),4);
5290          goto T1554;}          goto T1538;
5291          goto T1552;          goto T1540;
5292          goto T1554;  T1540:;{object V662;
5293  T1554:;          V662= (VV[73]->s.s_dbind);
         if(!(((V695)->str.str_def)==(VV[134]))){  
         goto T1552;}  
         V697= STREF(object,(V695),4);  
         goto T1550;  
         goto T1552;  
 T1552:;{object V699;  
         V699= (VV[65]->s.s_dbind);  
5294          base[10]= small_fixnum(14);          base[10]= small_fixnum(14);
5295          base[11]= (V695);          base[11]= (V658);
5296          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5297          (void) (*Lnk197)();          (void) (*Lnk214)();
5298          vs_top=sup;          vs_top=sup;
5299          V700= vs_base[0];          V663= vs_base[0];
5300          if(!((V699)==(CMPcar(V700)))){          if(!((V662)==(CMPcar(V663)))){
5301          goto T1557;}}          goto T1545;}}
5302          V697= CMPcar(((V695))->cc.cc_turbo[12]);          V660= CMPcar(((V658))->cc.cc_turbo[12]);
5303          goto T1550;          goto T1538;
5304          goto T1557;          goto T1545;
5305  T1557:;  T1545:;
5306          base[10]= VV[66];          base[10]= VV[74];
5307          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5308          Lerror();          Lerror();
5309          vs_top=sup;          vs_top=sup;
5310          V697= vs_base[0];          V660= vs_base[0];
5311          goto T1550;          goto T1538;
5312  T1550:;  T1538:;
5313          V701 = (VV[67]->s.s_dbind);          V659= (V660)->v.v_self[fix((VV[75]->s.s_dbind))];
5314          V696= (V697)->v.v_self[fix(V701)];          goto T1534;
5315          goto T1546;          goto T1536;
5316          goto T1548;  T1536:;
5317  T1548:;          base[10]= (V658);
         base[10]= (V695);  
5318          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5319          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk216)(Lclptr216);
5320          vs_top=sup;          vs_top=sup;
5321          V696= vs_base[0];          V659= vs_base[0];
5322          goto T1546;          goto T1534;
5323  T1546:;  T1534:;
5324          base[6]= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil);          base[6]= (((((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil))==Cnil?Ct:Cnil);
5325          base[4]=MMcons(Cnil,base[3]);          base[4]=MMcons(Cnil,base[3]);
5326          base[5]=MMcons(Ct,base[4]);          base[5]=MMcons(Ct,base[4]);
5327          base[6]=MMcons(base[6],base[5]);          base[6]=MMcons(base[6],base[5]);
5328          base[7]=MMcons(Cnil,base[6]);          base[7]=MMcons(Cnil,base[6]);
5329          base[8]=MMcons(Cnil,base[7]);          base[8]=MMcons(Cnil,base[7]);
5330          base[9]=MMcons(small_fixnum(0),base[8]);          base[9]=MMcons(small_fixnum(0),base[8]);
5331          {register object V702;          {register object V664;
5332          register object V703;          register object V665;
5333          V702= (V696);          V664= (V659);
5334          V703= CMPcar((V702));          V665= CMPcar((V664));
5335          goto T1569;          goto T1557;
5336  T1569:;  T1557:;
5337          if(!(((V702))==Cnil)){          if(!(((V664))==Cnil)){
5338          goto T1570;}          goto T1558;}
5339            goto T1553;
5340            goto T1558;
5341    T1558:;
5342            {object V666;
5343            register object V667;
5344            object V668;
5345            if(!(type_of((V665))==t_cons)){
5346            goto T1565;}
5347            V666= (VFUN_NARGS=2,(*(LnkLI291))((V665),Ct));
5348            goto T1563;
5349          goto T1565;          goto T1565;
5350          goto T1570;  T1565:;
5351  T1570:;          base[16]= (V665);
         {object V704;  
         register object V705;  
         object V706;  
         if(!(type_of((V703))==t_cons)){  
         goto T1577;}  
         V704= (VFUN_NARGS=2,(*(LnkLI275))((V703),Ct));  
         goto T1575;  
         goto T1577;  
 T1577:;  
         base[16]= (V703);  
5352          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
5353          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk259)(Lclptr259);
5354          vs_top=sup;          vs_top=sup;
5355          V704= vs_base[0];          V666= vs_base[0];
5356          goto T1575;          goto T1563;
5357  T1575:;  T1563:;
5358          if(!(((base[1]->c.c_car))==(VV[51]))){          if(!(((base[1]->c.c_car))==(VV[59]))){
5359          goto T1582;}          goto T1570;}
5360          base[12]= CMPcar((V704));          base[12]= CMPcar((V666));
5361          goto T1580;          goto T1568;
5362          goto T1582;          goto T1570;
5363  T1582:;  T1570:;
5364          base[12]= CMPcadr((V704));          base[12]= CMPcadr((V666));
5365          goto T1580;          goto T1568;
5366  T1580:;  T1568:;
5367          base[12]=MMcons(base[12],base[9]);          base[12]=MMcons(base[12],base[9]);
5368          if(((base[6]->c.c_car))==Cnil){          if(((base[6]->c.c_car))==Cnil){
5369          goto T1586;}          goto T1574;}
5370          V705= (*(LnkLI263))((base[12]->c.c_car));          V667= (*(LnkLI279))((base[12]->c.c_car));
5371          goto T1584;          goto T1572;
5372          goto T1586;          goto T1574;
5373  T1586:;  T1574:;
5374          base[16]= (base[12]->c.c_car);          base[16]= (base[12]->c.c_car);
5375          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
5376          (void) (*Lnk276)(Lclptr276);          (void) (*Lnk292)(Lclptr292);
5377          vs_top=sup;          vs_top=sup;
5378          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5379          goto T1588;}          goto T1576;}
5380          V705= Cnil;          V667= Cnil;
5381          goto T1584;          goto T1572;
5382          goto T1588;          goto T1576;
5383  T1588:;  T1576:;
5384          base[16]= (base[12]->c.c_car);          base[16]= (base[12]->c.c_car);
5385          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
5386          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
5387          vs_top=sup;          vs_top=sup;
5388          V705= vs_base[0];          V667= vs_base[0];
5389          goto T1584;          goto T1572;
5390  T1584:;  T1572:;
5391          {register object x= (VV[132]->s.s_dbind),V707= (V705);          {register object x= (VV[148]->s.s_dbind),V669= (V667);
5392          while(V707!=Cnil)          while(V669!=Cnil)
5393          if(eql(x,V707->c.c_car)){          if(eql(x,V669->c.c_car)){
5394          base[14]= V707;          base[14]= V669;
5395          goto T1592;          goto T1580;
5396          }else V707=V707->c.c_cdr;          }else V669=V669->c.c_cdr;
5397          base[14]= Cnil;}          base[14]= Cnil;}
5398          goto T1592;          goto T1580;
5399  T1592:;  T1580:;
5400          base[14]=MMcons(base[14],base[12]);          base[14]=MMcons(base[14],base[12]);
5401          if(!(type_of((V703))==t_cons)){          if(!(type_of((V665))==t_cons)){
5402          goto T1595;}          goto T1583;}
5403          if(((*(LnkLI262))((V703)))!=Cnil){          if(((*(LnkLI278))((V665)))!=Cnil){
5404          goto T1597;}          goto T1585;}
5405          V706= Cnil;          V668= Cnil;
5406          goto T1593;          goto T1581;
5407          goto T1597;          goto T1585;
5408  T1597:;  T1585:;
5409          base[16]= (V703);          base[16]= (V665);
5410          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
5411          (void) (*Lnk231)();          (void) (*Lnk248)();
5412          vs_top=sup;          vs_top=sup;
5413          V706= vs_base[0];          V668= vs_base[0];
5414          goto T1593;          goto T1581;
5415          goto T1595;          goto T1583;
5416  T1595:;  T1583:;
5417          base[16]= (V703);          base[16]= (V665);
5418          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
5419          (void) (*Lnk268)(Lclptr268);          (void) (*Lnk284)(Lclptr284);
5420          vs_top=sup;          vs_top=sup;
5421          V706= vs_base[0];          V668= vs_base[0];
5422            goto T1581;
5423    T1581:;
5424            if(((V667))==Cnil){
5425            goto T1590;}
5426            {register object x= (VV[151]->s.s_dbind),V670= (V667);
5427            while(V670!=Cnil)
5428            if(eql(x,V670->c.c_car)){
5429            goto T1593;
5430            }else V670=V670->c.c_cdr;
5431            goto T1589;}
5432          goto T1593;          goto T1593;
5433  T1593:;  T1593:;
5434          if(((V705))==Cnil){          goto T1590;
5435          goto T1602;}  T1590:;
         {register object x= (VV[135]->s.s_dbind),V708= (V705);  
         while(V708!=Cnil)  
         if(eql(x,V708->c.c_car)){  
         goto T1605;  
         }else V708=V708->c.c_cdr;  
         goto T1601;}  
         goto T1605;  
 T1605:;  
         goto T1602;  
 T1602:;  
5436          frs_pop();          frs_pop();
5437          base[16]= Cnil;          base[16]= Cnil;
5438          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
5439          return;          return;
5440          goto T1601;          goto T1589;
5441  T1601:;  T1589:;
5442          base[16]=          base[16]=
5443          make_cclosure_new(LC162,Cnil,base[14],Cdata);          make_cclosure_new(LC162,Cnil,base[14],Cdata);
5444          base[18]= (V706);          base[18]= (V668);
5445          base[19]= (VV[136]->s.s_dbind);          base[19]= (VV[152]->s.s_dbind);
5446          vs_top=(vs_base=base+18)+2;          vs_top=(vs_base=base+18)+2;
5447          Lgethash();          Lgethash();
5448          vs_top=sup;          vs_top=sup;
# Line 5546  T1601:; Line 5450  T1601:;
5450          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
5451          Lmaphash();          Lmaphash();
5452          vs_top=sup;}          vs_top=sup;}
5453          V702= CMPcdr((V702));          V664= CMPcdr((V664));
5454          V703= CMPcar((V702));          V665= CMPcar((V664));
5455          goto T1569;}          goto T1557;}
5456          goto T1565;          goto T1553;
5457  T1565:;  T1553:;
5458          base[10]=          base[10]=
5459          make_cclosure_new(LC163,Cnil,base[9],Cdata);          make_cclosure_new(LC163,Cnil,base[9],Cdata);
5460          base[11]= (base[2]->c.c_car);          base[11]= (base[2]->c.c_car);
# Line 5575  static void L97() Line 5479  static void L97()
5479  {register object *base=vs_base;  {register object *base=vs_base;
5480          register object *sup=base+VM92; VC92          register object *sup=base+VM92; VC92
5481          vs_check;          vs_check;
5482          {object V709;          {object V671;
5483          object V710;          object V672;
5484          check_arg(2);          check_arg(2);
5485          V709=(base[0]);          V671=(base[0]);
5486          V710=(base[1]);          V672=(base[1]);
5487          vs_top=sup;          vs_top=sup;
5488          goto TTL;          goto TTL;
5489  TTL:;  TTL:;
5490          {object V711;          {object V673;
5491          object V712;          object V674;
5492          V711= Ct;          V673= Ct;
5493          V712= Cnil;          V674= Cnil;
5494          {register object V713;          {register object V675;
5495          register object V714;          register object V676;
5496          if(((*(LnkLI196))((V709)))==Cnil){          if(((*(LnkLI213))((V671)))==Cnil){
5497          goto T1627;}          goto T1615;}
5498          if(type_of(V709)==t_structure){          if(type_of(V671)==t_structure){
5499          goto T1633;}          goto T1621;}
5500          goto T1631;          goto T1619;
5501          goto T1633;          goto T1621;
5502  T1633:;  T1621:;
5503          if(!(((V709)->str.str_def)==(VV[138]))){          if(!(((V671)->str.str_def)==(VV[154]))){
5504          goto T1631;}          goto T1619;}
5505          V715= STREF(object,(V709),4);          V677= STREF(object,(V671),4);
5506          goto T1629;          goto T1617;
5507          goto T1631;          goto T1619;
5508  T1631:;{object V717;  T1619:;{object V679;
5509          V717= (VV[65]->s.s_dbind);          V679= (VV[73]->s.s_dbind);
5510          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
5511          base[5]= (V709);          base[5]= (V671);
5512          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5513          (void) (*Lnk197)();          (void) (*Lnk214)();
5514          vs_top=sup;          vs_top=sup;
5515          V718= vs_base[0];          V680= vs_base[0];
5516          if(!((V717)==(CMPcar(V718)))){          if(!((V679)==(CMPcar(V680)))){
5517          goto T1636;}}          goto T1624;}}
5518          V715= CMPcar(((V709))->cc.cc_turbo[12]);          V677= CMPcar(((V671))->cc.cc_turbo[12]);
5519          goto T1629;          goto T1617;
5520          goto T1636;          goto T1624;
5521  T1636:;  T1624:;
5522          base[4]= VV[66];          base[4]= VV[74];
5523          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5524          Lerror();          Lerror();
5525          vs_top=sup;          vs_top=sup;
5526          V715= vs_base[0];          V677= vs_base[0];
5527          goto T1629;          goto T1617;
5528  T1629:;  T1617:;
5529          V719 = (VV[67]->s.s_dbind);          V675= (V677)->v.v_self[fix((VV[75]->s.s_dbind))];
5530          V713= (V715)->v.v_self[fix(V719)];          goto T1613;
5531          goto T1625;          goto T1615;
5532          goto T1627;  T1615:;
5533  T1627:;          base[4]= (V671);
         base[4]= (V709);  
5534          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5535          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk216)(Lclptr216);
5536          vs_top=sup;          vs_top=sup;
5537          V713= vs_base[0];          V675= vs_base[0];
5538          goto T1625;          goto T1613;
5539  T1625:;  T1613:;
5540          V714= CMPcar((V713));          V676= CMPcar((V675));
5541          goto T1645;          goto T1633;
5542  T1645:;  T1633:;
5543          if(!(((V713))==Cnil)){          if(!(((V675))==Cnil)){
5544          goto T1646;}          goto T1634;}
5545          goto T1624;          goto T1612;
5546          goto T1646;          goto T1634;
5547  T1646:;  T1634:;
5548          {object V720;          {object V681;
5549          register object V721;          register object V682;
5550          register object V722;          register object V683;
5551          register object V723;          register object V684;
5552          if(!(type_of((V714))==t_cons)){          if(!(type_of((V676))==t_cons)){
5553          goto T1653;}          goto T1641;}
5554          V720= (VFUN_NARGS=2,(*(LnkLI275))((V714),Ct));          V681= (VFUN_NARGS=2,(*(LnkLI291))((V676),Ct));
5555          goto T1651;          goto T1639;
5556          goto T1653;          goto T1641;
5557  T1653:;  T1641:;
5558          base[4]= (V714);          base[4]= (V676);
5559          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5560          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk259)(Lclptr259);
5561          vs_top=sup;          vs_top=sup;
5562          V720= vs_base[0];          V681= vs_base[0];
5563          goto T1651;          goto T1639;
5564  T1651:;  T1639:;
5565          V721= (V710);          V682= (V672);
5566          V722= Ct;          V683= Ct;
5567          V723= Ct;          V684= Ct;
5568          {register object V724;          {register object V685;
5569          register object V725;          register object V686;
5570          V724= (V720);          V685= (V681);
5571          V725= CMPcar((V724));          V686= CMPcar((V685));
5572            goto T1648;
5573    T1648:;
5574            if(!(((V685))==Cnil)){
5575            goto T1649;}
5576            goto T1644;
5577            goto T1649;
5578    T1649:;
5579            {object V687;
5580            object V688;
5581            base[5]= (V686);
5582            {object V689;
5583            V689= CMPcar((V682));
5584            V682= CMPcdr((V682));
5585            base[6]= (V689);}
5586            vs_top=(vs_base=base+5)+2;
5587            (void) (*Lnk162)();
5588            if(vs_base>=vs_top){vs_top=sup;goto T1660;}
5589            V687= vs_base[0];
5590            vs_base++;
5591            if(vs_base>=vs_top){vs_top=sup;goto T1661;}
5592            V688= vs_base[0];
5593            vs_top=sup;
5594            goto T1662;
5595          goto T1660;          goto T1660;
5596  T1660:;  T1660:;
5597          if(!(((V724))==Cnil)){          V687= Cnil;
         goto T1661;}  
         goto T1656;  
5598          goto T1661;          goto T1661;
5599  T1661:;  T1661:;
5600          {object V726;          V688= Cnil;
5601          object V727;          goto T1662;
5602          base[5]= (V725);  T1662:;
5603          {object V728;          if(((V687))!=Cnil){
5604          V728= CMPcar((V721));          goto T1663;}
5605          V721= CMPcdr((V721));          V684= Cnil;
5606          base[6]= (V728);}          goto T1663;
5607          vs_top=(vs_base=base+5)+2;  T1663:;
5608          (void) (*Lnk146)();          if(((V688))!=Cnil){
5609          if(vs_base>=vs_top){vs_top=sup;goto T1672;}          goto T1653;}
5610          V726= vs_base[0];          V683= Cnil;
5611          vs_base++;          goto T1644;}
5612          if(vs_base>=vs_top){vs_top=sup;goto T1673;}          goto T1653;
5613          V727= vs_base[0];  T1653:;
5614          vs_top=sup;          V685= CMPcdr((V685));
5615          goto T1674;          V686= CMPcar((V685));
5616          goto T1672;          goto T1648;}
5617  T1672:;          goto T1644;
5618          V726= Cnil;  T1644:;
5619          goto T1673;          if(((V683))==Cnil){
5620  T1673:;          goto T1638;}
5621          V727= Cnil;          if(((V684))!=Cnil){
5622          goto T1674;          goto T1678;}
5623  T1674:;          V673= Cnil;
5624          if(((V726))!=Cnil){          goto T1678;
5625          goto T1675;}  T1678:;
5626          V723= Cnil;          V674= make_cons(V676,(V674));}
5627          goto T1675;          goto T1638;
5628  T1675:;  T1638:;
5629          if(((V727))!=Cnil){          V675= CMPcdr((V675));
5630          goto T1665;}          V676= CMPcar((V675));
5631          V722= Cnil;          goto T1633;}
5632          goto T1656;}          goto T1612;
5633          goto T1665;  T1612:;
5634  T1665:;          {object V691;
5635          V724= CMPcdr((V724));          if(((*(LnkLI213))((V671)))==Cnil){
5636          V725= CMPcar((V724));          goto T1691;}
5637          goto T1660;}          if(type_of(V671)==t_structure){
5638          goto T1656;          goto T1697;}
5639  T1656:;          goto T1695;
5640          if(((V722))==Cnil){          goto T1697;
5641          goto T1650;}  T1697:;
5642          if(((V723))!=Cnil){          if(!(((V671)->str.str_def)==(VV[155]))){
5643          goto T1690;}          goto T1695;}
5644          V711= Cnil;          V693= STREF(object,(V671),4);
5645          goto T1690;          goto T1693;
5646  T1690:;          goto T1695;
5647          V712= make_cons(V714,(V712));}  T1695:;{object V695;
5648          goto T1650;          V695= (VV[73]->s.s_dbind);
 T1650:;  
         V713= CMPcdr((V713));  
         V714= CMPcar((V713));  
         goto T1645;}  
         goto T1624;  
 T1624:;  
         {object V730;  
         if(((*(LnkLI196))((V709)))==Cnil){  
         goto T1703;}  
         if(type_of(V709)==t_structure){  
         goto T1709;}  
         goto T1707;  
         goto T1709;  
 T1709:;  
         if(!(((V709)->str.str_def)==(VV[139]))){  
         goto T1707;}  
         V732= STREF(object,(V709),4);  
         goto T1705;  
         goto T1707;  
 T1707:;{object V734;  
         V734= (VV[65]->s.s_dbind);  
5649          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
5650          base[3]= (V709);          base[3]= (V671);
5651          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5652          (void) (*Lnk197)();          (void) (*Lnk214)();
5653          vs_top=sup;          vs_top=sup;
5654          V735= vs_base[0];          V696= vs_base[0];
5655          if(!((V734)==(CMPcar(V735)))){          if(!((V695)==(CMPcar(V696)))){
5656          goto T1712;}}          goto T1700;}}
5657          V732= CMPcar(((V709))->cc.cc_turbo[12]);          V693= CMPcar(((V671))->cc.cc_turbo[12]);
5658          goto T1705;          goto T1693;
5659          goto T1712;          goto T1700;
5660  T1712:;  T1700:;
5661          base[2]= VV[66];          base[2]= VV[74];
5662          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5663          Lerror();          Lerror();
5664          vs_top=sup;          vs_top=sup;
5665          V732= vs_base[0];          V693= vs_base[0];
5666          goto T1705;          goto T1693;
5667  T1705:;  T1693:;
5668          V736 = (VV[97]->s.s_dbind);          V692= (V693)->v.v_self[fix((VV[105]->s.s_dbind))];
5669          V731= (V732)->v.v_self[fix(V736)];          goto T1689;
5670          goto T1701;          goto T1691;
5671          goto T1703;  T1691:;
5672  T1703:;          base[2]= (V671);
         base[2]= (V709);  
5673          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5674          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk177)(Lclptr177);
5675          vs_top=sup;          vs_top=sup;
5676          V731= vs_base[0];          V692= vs_base[0];
5677          goto T1701;          goto T1689;
5678  T1701:;  T1689:;
5679          V730= STREF(object,V731,4);          V691= STREF(object,V692,4);
5680          V737 = (V730);          V697= nreverse((V674));
5681          V738= nreverse((V712));          base[2]= (*(LnkLI293))((V691),/* INLINE-ARGS */V697,(V672));
5682          V739 = (V710);          base[3]= (V673);
         base[2]= (*(LnkLI277))(V737,/* INLINE-ARGS */V738,V739);  
         base[3]= (V711);  
5683          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5684          return;}}          return;}}
5685          }          }
5686  }  }
5687  /*      local entry for function SORT-APPLICABLE-METHODS        */  /*      local entry for function SORT-APPLICABLE-METHODS        */
5688    
5689  static object LI99(V743,V744,V745)  static object LI99(V701,V702,V703)
5690    
5691  object V743;object V744;object V745;  object V701;object V702;object V703;
5692  {        VMB93 VMS93 VMV93  {        VMB93 VMS93 VMV93
5693          goto TTL;          goto TTL;
5694  TTL:;  TTL:;
5695          base[0]=MMcons((V745),Cnil);          base[0]=MMcons((V703),Cnil);
5696          V746 = (V744);          V704=
         V747 = (V743);  
         V748=  
5697          make_cclosure_new(LC164,Cnil,base[0],Cdata);          make_cclosure_new(LC164,Cnil,base[0],Cdata);
5698          {object V749 = (*(LnkLI278))(V746,V747,V748);          {object V705 = (*(LnkLI294))((V702),(V701),V704);
5699          VMR93(V749)}          VMR93(V705)}
5700          base[0]=base[0];          base[0]=base[0];
5701          return Cnil;          return Cnil;
5702  }  }
5703  /*      local entry for function SORT-METHODS   */  /*      local entry for function SORT-METHODS   */
5704    
5705  static object LI102(V753,V754,V755)  static object LI102(V709,V710,V711)
5706    
5707  object V753;object V754;object V755;  object V709;object V710;object V711;
5708  {        VMB94 VMS94 VMV94  {        VMB94 VMS94 VMV94
5709          goto TTL;          goto TTL;
5710  TTL:;  TTL:;
5711          base[0]=MMcons((V755),Cnil);          base[0]=MMcons((V711),Cnil);
5712          base[1]=MMcons((V754),base[0]);          base[1]=MMcons((V710),base[0]);
5713          base[2]=make_cclosure_new(LC103,Cnil,base[1],Cdata);          base[2]=make_cclosure_new(LC103,Cnil,base[1],Cdata);
5714          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
5715          base[3]= (V753);          base[3]= (V709);
5716          base[4]= (base[2]->c.c_car);          base[4]= (base[2]->c.c_car);
5717          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5718          (void) (*Lnk279)();          (void) (*Lnk295)();
5719          vs_top=sup;          vs_top=sup;
5720          {object V756 = vs_base[0];          {object V712 = vs_base[0];
5721          VMR94(V756)}          VMR94(V712)}
5722          base[0]=base[0];          base[0]=base[0];
5723          return Cnil;          return Cnil;
5724  }  }
# Line 5830  static void L104() Line 5728  static void L104()
5728  {register object *base=vs_base;  {register object *base=vs_base;
5729          register object *sup=base+VM95; VC95          register object *sup=base+VM95; VC95
5730          vs_check;          vs_check;
5731          {register object V757;          {register object V713;
5732          register object V758;          register object V714;
5733          object V759;          object V715;
5734          object V760;          object V716;
5735          check_arg(4);          check_arg(4);
5736          V757=(base[0]);          V713=(base[0]);
5737          V758=(base[1]);          V714=(base[1]);
5738          V759=(base[2]);          V715=(base[2]);
5739          V760=(base[3]);          V716=(base[3]);
5740          vs_top=sup;          vs_top=sup;
5741          goto TTL;          goto TTL;
5742  TTL:;  TTL:;
5743          {object V761;          {object V717;
5744          register object V762;          register object V718;
5745          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[79]->s.s_dbind))==(VV[80]))){
5746          goto T1726;}          goto T1714;}
5747          base[4]= (V757);          base[4]= (V713);
5748          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5749          (void) (*Lnk280)(Lclptr280);          (void) (*Lnk296)(Lclptr296);
5750          vs_top=sup;          vs_top=sup;
5751          V761= vs_base[0];          V717= vs_base[0];
5752          goto T1724;          goto T1712;
5753          goto T1726;          goto T1714;
5754  T1726:;  T1714:;
5755          if(type_of(V757)==t_structure){          if(type_of(V713)==t_structure){
5756          goto T1733;}          goto T1721;}
5757          goto T1731;          goto T1719;
5758          goto T1733;          goto T1721;
5759  T1733:;  T1721:;
5760          if(!(((V757)->str.str_def)==(VV[140]))){          if(!(((V713)->str.str_def)==(VV[156]))){
5761          goto T1731;}          goto T1719;}
5762          V763= STREF(object,(V757),4);          V719= STREF(object,(V713),4);
5763          goto T1729;          goto T1717;
5764          goto T1731;          goto T1719;
5765  T1731:;{object V765;  T1719:;{object V721;
5766          V765= (VV[65]->s.s_dbind);          V721= (VV[73]->s.s_dbind);
5767          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
5768          base[5]= (V757);          base[5]= (V713);
5769          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5770          (void) (*Lnk197)();          (void) (*Lnk214)();
5771          vs_top=sup;          vs_top=sup;
5772          V766= vs_base[0];          V722= vs_base[0];
5773          if(!((V765)==(CMPcar(V766)))){          if(!((V721)==(CMPcar(V722)))){
5774          goto T1736;}}          goto T1724;}}
5775          V763= CMPcar(((V757))->cc.cc_turbo[12]);          V719= CMPcar(((V713))->cc.cc_turbo[12]);
5776          goto T1729;          goto T1717;
5777          goto T1736;          goto T1724;
5778  T1736:;  T1724:;
5779          base[4]= VV[66];          base[4]= VV[74];
5780          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5781          Lerror();          Lerror();
5782          vs_top=sup;          vs_top=sup;
5783          V763= vs_base[0];          V719= vs_base[0];
5784          goto T1729;          goto T1717;
5785  T1729:;  T1717:;
5786          V767= (*(LnkLI281))(VV[141],VV[142]);          V723= (*(LnkLI297))(VV[157],VV[158]);
5787          V761= (V763)->v.v_self[fix(/* INLINE-ARGS */V767)];          V717= (V719)->v.v_self[fix(/* INLINE-ARGS */V723)];
5788          goto T1724;          goto T1712;
5789  T1724:;  T1712:;
5790          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[79]->s.s_dbind))==(VV[80]))){
5791          goto T1744;}          goto T1732;}
5792          base[4]= (V758);          base[4]= (V714);
5793          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5794          (void) (*Lnk280)(Lclptr280);          (void) (*Lnk296)(Lclptr296);
5795          vs_top=sup;          vs_top=sup;
5796          V762= vs_base[0];          V718= vs_base[0];
5797          goto T1742;          goto T1730;
5798          goto T1744;          goto T1732;
5799  T1744:;  T1732:;
5800          if(type_of(V758)==t_structure){          if(type_of(V714)==t_structure){
5801          goto T1751;}          goto T1739;}
5802          goto T1749;          goto T1737;
5803          goto T1751;          goto T1739;
5804  T1751:;  T1739:;
5805          if(!(((V758)->str.str_def)==(VV[143]))){          if(!(((V714)->str.str_def)==(VV[159]))){
5806          goto T1749;}          goto T1737;}
5807          V768= STREF(object,(V758),4);          V724= STREF(object,(V714),4);
5808          goto T1747;          goto T1735;
5809          goto T1749;          goto T1737;
5810  T1749:;{object V770;  T1737:;{object V726;
5811          V770= (VV[65]->s.s_dbind);          V726= (VV[73]->s.s_dbind);
5812          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
5813          base[5]= (V758);          base[5]= (V714);
5814          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5815          (void) (*Lnk197)();          (void) (*Lnk214)();
5816          vs_top=sup;          vs_top=sup;
5817          V771= vs_base[0];          V727= vs_base[0];
5818          if(!((V770)==(CMPcar(V771)))){          if(!((V726)==(CMPcar(V727)))){
5819          goto T1754;}}          goto T1742;}}
5820          V768= CMPcar(((V758))->cc.cc_turbo[12]);          V724= CMPcar(((V714))->cc.cc_turbo[12]);
5821          goto T1747;          goto T1735;
5822          goto T1754;          goto T1742;
5823  T1754:;  T1742:;
5824          base[4]= VV[66];          base[4]= VV[74];
5825          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5826          Lerror();          Lerror();
5827          vs_top=sup;          vs_top=sup;
5828          V768= vs_base[0];          V724= vs_base[0];
5829          goto T1747;          goto T1735;
5830  T1747:;  T1735:;
5831          V772= (*(LnkLI281))(VV[141],VV[142]);          V728= (*(LnkLI297))(VV[157],VV[158]);
5832          V762= (V768)->v.v_self[fix(/* INLINE-ARGS */V772)];          V718= (V724)->v.v_self[fix(/* INLINE-ARGS */V728)];
5833          goto T1742;          goto T1730;
5834  T1742:;  T1730:;
5835          if(!(((V757))==((V758)))){          if(!(((V713))==((V714)))){
5836          goto T1761;}          goto T1749;}
5837          base[4]= Cnil;          base[4]= Cnil;
5838          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5839          return;          return;
5840          goto T1761;          goto T1749;
5841  T1761:;  T1749:;
5842          if(!(type_of((V761))!=t_cons)){          if(!(type_of((V717))!=t_cons)){
5843          goto T1764;}          goto T1752;}
5844          base[4]= (V758);          base[4]= (V714);
5845          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5846          return;          return;
5847          goto T1764;          goto T1752;
5848  T1764:;  T1752:;
5849          if(!(type_of((V762))!=t_cons)){          if(!(type_of((V718))!=t_cons)){
5850          goto T1767;}          goto T1755;}
5851          base[4]= (V757);          base[4]= (V713);
5852          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5853          return;          return;
5854          goto T1767;          goto T1755;
5855  T1767:;  T1755:;
5856          {object V773= CMPcar((V761));          {object V729= CMPcar((V717));
5857          if((V773!= VV[10]))goto T1769;          if((V729!= VV[8]))goto T1757;
5858          {object V774= CMPcar((V762));          {object V730= CMPcar((V718));
5859          if((V774!= VV[10]))goto T1770;          if((V730!= VV[8]))goto T1758;
5860          base[4]= (V757);          base[4]= (V713);
5861          base[5]= (V758);          base[5]= (V714);
5862          base[6]= (V759);          base[6]= (V715);
5863          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
5864          {object _funobj = (V760);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V716);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5865                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5866                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5867                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5868          return;          return;
5869          goto T1770;          goto T1758;
5870  T1770:;  T1758:;
5871          base[4]= (V758);          base[4]= (V714);
5872          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5873          return;}          return;}
5874          goto T1769;          goto T1757;
5875  T1769:;  T1757:;
5876          if((V773!= VV[282]))goto T1774;          if((V729!= VV[298]))goto T1762;
5877          {object V775= CMPcar((V762));          {object V731= CMPcar((V718));
5878          if((V775!= VV[10]))goto T1775;          if((V731!= VV[8]))goto T1763;
5879          base[4]= (V757);          base[4]= (V713);
5880          base[5]= (V758);          base[5]= (V714);
5881          base[6]= (V759);          base[6]= (V715);
5882          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
5883          {object _funobj = (V760);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V716);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5884                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5885                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5886                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5887          return;          return;
5888          goto T1775;          goto T1763;
5889  T1775:;  T1763:;
5890          base[4]= (V758);          base[4]= (V714);
5891          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5892          return;}          return;}
5893          goto T1774;          goto T1762;
5894  T1774:;  T1762:;
5895          if((V773!= VV[130]))goto T1779;          if((V729!= VV[146]))goto T1767;
5896          {object V776= CMPcar((V762));          {object V732= CMPcar((V718));
5897          if((V776!= VV[147]))goto T1780;          if((V732!= VV[163]))goto T1768;
5898          base[4]= (V758);          base[4]= (V714);
5899          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5900          return;          return;
5901          goto T1780;          goto T1768;
5902  T1780:;  T1768:;
5903          if((V776!= VV[130]))goto T1781;          if((V732!= VV[146]))goto T1769;
5904          base[4]= Cnil;          base[4]= Cnil;
5905          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5906          return;          return;
5907          goto T1781;          goto T1769;
5908  T1781:;  T1769:;
5909          if((V776!= VV[10]))goto T1782;          if((V732!= VV[8]))goto T1770;
5910          base[4]= (V761);          base[4]= (V717);
5911          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5912          return;          return;
5913          goto T1782;          goto T1770;
5914  T1782:;  T1770:;
5915          base[4]= Cnil;          base[4]= Cnil;
5916          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5917          return;}          return;}
5918          goto T1779;          goto T1767;
5919  T1779:;  T1767:;
5920          if((V773!= VV[147]))goto T1783;          if((V729!= VV[163]))goto T1771;
5921          {object V777= CMPcar((V762));          {object V733= CMPcar((V718));
5922          if((V777!= VV[147]))goto T1784;          if((V733!= VV[163]))goto T1772;
5923          base[4]= Cnil;          base[4]= Cnil;
5924          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5925          return;          return;
5926          goto T1784;          goto T1772;
5927  T1784:;  T1772:;
5928          base[4]= (V757);          base[4]= (V713);
5929          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5930          return;}          return;}
5931          goto T1783;          goto T1771;
5932  T1783:;  T1771:;
5933          base[4]= Cnil;          base[4]= Cnil;
5934          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5935          return;}}          return;}}
# Line 6039  T1783:; Line 5937  T1783:;
5937  }  }
5938  /*      local entry for function MAP-ALL-ORDERS */  /*      local entry for function MAP-ALL-ORDERS */
5939    
5940  static object LI105(V781,V782,V783)  static object LI105(V737,V738,V739)
5941    
5942  object V781;object V782;object V783;  object V737;object V738;object V739;
5943  {        VMB96 VMS96 VMV96  {        VMB96 VMS96 VMV96
5944          goto TTL;          goto TTL;
5945  TTL:;  TTL:;
5946          base[0]=MMcons(Cnil,Cnil);          base[0]=MMcons(Cnil,Cnil);
5947          base[1]=make_cclosure_new(LC106,Cnil,base[0],Cdata);          base[1]=make_cclosure_new(LC106,Cnil,base[0],Cdata);
5948          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
5949          goto T1786;          goto T1774;
5950  T1786:;  T1774:;
5951          V784 = (V783);          V740= (base[1]->c.c_car);
5952          V785 = (V781);          V741= (*(LnkLI294))((V737),(V738),V740);
         V786 = (V782);  
         V787= (base[1]->c.c_car);  
         V788= (*(LnkLI278))(V785,V786,V787);  
5953          (void)((          (void)((
5954          V789 = V784,          (type_of((V739)) == t_sfun ?(*(((V739))->sfn.sfn_self)):
5955          (type_of(V789) == t_sfun ?(*((V789)->sfn.sfn_self)):          (fcall.argd=1,type_of((V739))==t_vfun) ?
5956          (fcall.argd=1,type_of(V789)==t_vfun) ?          (*(((V739))->sfn.sfn_self)):
5957          (*((V789)->sfn.sfn_self)):          (fcall.fun=((V739)),fcalln))(/* INLINE-ARGS */V741)));
5958          (fcall.fun=(V789),fcalln))(/* INLINE-ARGS */V788)));          {register object V742;
5959          {register object V790;          register object V743;
5960          register object V791;          V742= (base[0]->c.c_car);
5961          V790= (base[0]->c.c_car);          V743= CMPcar((V742));
5962          V791= CMPcar((V790));          goto T1783;
5963          goto T1795;  T1783:;
5964  T1795:;          if(!(((V742))==Cnil)){
5965          if(!(((V790))==Cnil)){          goto T1784;}
5966          goto T1796;}          goto T1779;
5967          goto T1791;          goto T1784;
5968          goto T1796;  T1784:;
5969  T1796:;          if((CMPcaddr((V743)))!=Cnil){
5970          if((CMPcaddr((V791)))!=Cnil){          goto T1788;}
5971          goto T1800;}          {register object V744;
5972          {register object V792;          register object V745;
5973          register object V793;          register object V746;
5974          register object V794;          register object V747;
5975          register object V795;          V744= (V743);
5976          V792= (V791);          V745= (V743);
5977          V793= (V791);          V746= CMPcadr((V745));
5978          V794= CMPcadr((V793));          V747= CMPcar((V744));
5979          V795= CMPcar((V792));          ((V744))->c.c_car = (V746);
5980          ((V792))->c.c_car = (V794);          (CMPcdr((V745)))->c.c_car = (V747);
5981          (CMPcdr((V793)))->c.c_car = (V795);          (void)(CMPcdr((V745)));}
5982          (void)(CMPcdr((V793)));}          {register object V749;
5983          {register object V797;          V749= Ct;
5984          V797= Ct;          (CMPcddr(V743))->c.c_car = (V749);
5985          (CMPcddr(V791))->c.c_car = (V797);          (void)(CMPcddr(V743));
5986          (void)(CMPcddr(V791));          if(((V749))!=Cnil){
5987          if(((V797))!=Cnil){          goto T1775;}
5988          goto T1787;}          goto T1779;}
5989          goto T1791;}          goto T1788;
5990          goto T1800;  T1788:;
5991  T1800:;          V742= CMPcdr((V742));
5992          V790= CMPcdr((V790));          V743= CMPcar((V742));
5993          V791= CMPcar((V790));          goto T1783;}
5994          goto T1795;}          goto T1779;
5995          goto T1791;  T1779:;
5996  T1791:;          {object V750 = Cnil;
5997          {object V798 = Cnil;          VMR96(V750)}
5998          VMR96(V798)}          goto T1775;
5999          goto T1787;  T1775:;
6000  T1787:;          goto T1774;
         goto T1786;  
6001          base[0]=base[0];          base[0]=base[0];
6002          return Cnil;          return Cnil;
6003  }  }
6004  /*      local entry for function CLASS-MIGHT-PRECEDE-P  */  /*      local entry for function CLASS-MIGHT-PRECEDE-P  */
6005    
6006  static object LI107(V801,V802)  static object LI107(V753,V754)
6007    
6008  object V801;object V802;  object V753;object V754;
6009  {        VMB97 VMS97 VMV97  {        VMB97 VMS97 VMV97
6010          goto TTL;          goto TTL;
6011  TTL:;  TTL:;
6012          if(((VV[144]->s.s_dbind))!=Cnil){          if(((VV[160]->s.s_dbind))!=Cnil){
6013          goto T1821;}          goto T1809;}
6014          base[0]= (V802);          base[0]= (V754);
6015          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6016          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
6017          vs_top=sup;          vs_top=sup;
6018          V805= vs_base[0];          V757= vs_base[0];
6019          {register object x= (V801),V804= CMPcdr(V805);          {register object x= (V753),V756= CMPcdr(V757);
6020          while(V804!=Cnil)          while(V756!=Cnil)
6021          if(eql(x,V804->c.c_car)){          if(eql(x,V756->c.c_car)){
6022          V803= V804;          V755= V756;
6023          goto T1823;          goto T1811;
6024          }else V804=V804->c.c_cdr;          }else V756=V756->c.c_cdr;
6025          V803= Cnil;}          V755= Cnil;}
6026          goto T1823;          goto T1811;
6027  T1823:;  T1811:;
6028          {object V806 = ((V803)==Cnil?Ct:Cnil);          {object V758 = ((V755)==Cnil?Ct:Cnil);
6029          VMR97(V806)}          VMR97(V758)}
6030          goto T1821;          goto T1809;
6031  T1821:;  T1809:;
6032          {object V807 = (*(LnkLI283))((V801),(V802));          {object V759 = (*(LnkLI299))((V753),(V754));
6033          VMR97(V807)}          VMR97(V759)}
6034          base[0]=base[0];          base[0]=base[0];
6035          return Cnil;          return Cnil;
6036  }  }
6037  /*      local entry for function COMPUTE-PRECEDENCE     */  /*      local entry for function COMPUTE-PRECEDENCE     */
6038    
6039  static object LI108(V811,V812,V813)  static object LI108(V763,V764,V765)
6040    
6041  object V811;register object V812;object V813;  object V763;register object V764;object V765;
6042  {        VMB98 VMS98 VMV98  {        VMB98 VMS98 VMV98
6043          goto TTL;          goto TTL;
6044  TTL:;  TTL:;
6045          if(((V813))!=Cnil){          if(((V765))!=Cnil){
6046          goto T1827;}          goto T1815;}
6047          {register object V814;          {register object V766;
6048          V814= Cnil;          V766= Cnil;
6049          {register long V815;          {register long V767;
6050          register long V816;          register long V768;
6051          V815= fix((V812));          V767= fix((V764));
6052          V816= 0;          V768= 0;
6053          goto T1832;          goto T1820;
6054  T1832:;  T1820:;
6055          if(!((V816)>=(V815))){          if(!((V768)>=(V767))){
6056          goto T1833;}          goto T1821;}
6057          {object V817 = (V814);          {object V769 = (V766);
6058          VMR98(V817)}          VMR98(V769)}
6059          goto T1833;          goto T1821;
6060  T1833:;  T1821:;
6061          {register object V818;          {register object V770;
6062          V819= one_minus((V812));          V771= one_minus((V764));
6063          V820 = CMPmake_fixnum(V816);          V772 = CMPmake_fixnum(V768);
6064          V818= number_minus(/* INLINE-ARGS */V819,V820);          V770= number_minus(/* INLINE-ARGS */V771,V772);
6065          V814= make_cons((V818),(V814));}          V766= make_cons((V770),(V766));}
6066          V816= (long)(V816)+1;          V768= (long)(V768)+1;
6067          goto T1832;}}          goto T1820;}}
6068          goto T1827;          goto T1815;
6069  T1827:;  T1815:;
6070          {object V821;          {object V773;
6071          object V822= (V813);          object V774= (V765);
6072          if(V822==Cnil){          if(V774==Cnil){
6073          {object V823 = Cnil;          {object V775 = Cnil;
6074          VMR98(V823)}}          VMR98(V775)}}
6075          base[0]=V821=MMcons(Cnil,Cnil);          base[0]=V773=MMcons(Cnil,Cnil);
6076          goto T1842;          goto T1830;
6077  T1842:;  T1830:;
6078          base[1]= (V822->c.c_car);          base[1]= (V774->c.c_car);
6079          base[2]= (V811);          base[2]= (V763);
6080          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6081          (void) (*Lnk284)();          (void) (*Lnk300)();
6082          vs_top=sup;          vs_top=sup;
6083          (V821->c.c_car)= vs_base[0];          (V773->c.c_car)= vs_base[0];
6084          if((V822=MMcdr(V822))==Cnil){          if((V774=MMcdr(V774))==Cnil){
6085          {object V825 = base[0];          {object V777 = base[0];
6086          VMR98(V825)}}          VMR98(V777)}}
6087          V821=MMcdr(V821)=MMcons(Cnil,Cnil);          V773=MMcdr(V773)=MMcons(Cnil,Cnil);
6088          goto T1842;}          goto T1830;}
6089          base[0]=base[0];          base[0]=base[0];
6090          return Cnil;          return Cnil;
6091  }  }
# Line 6201  static void L109() Line 6095  static void L109()
6095  {register object *base=vs_base;  {register object *base=vs_base;
6096          register object *sup=base+VM99; VC99          register object *sup=base+VM99; VC99
6097          vs_check;          vs_check;
6098          {object V826;          {object V778;
6099          object V827;          object V779;
6100          check_arg(2);          check_arg(2);
6101          V826=(base[0]);          V778=(base[0]);
6102          V827=(base[1]);          V779=(base[1]);
6103          vs_top=sup;          vs_top=sup;
6104          goto TTL;          goto TTL;
6105  TTL:;  TTL:;
6106          {register object V828;          {register object V780;
6107          register object V829;          register object V781;
6108          V828= Cnil;          V780= Cnil;
6109          V829= Ct;          V781= Ct;
6110          {register object V830;          {register object V782;
6111          register object V831;          register object V783;
6112          V830= CMPcdr((V827));          V782= CMPcdr((V779));
6113          V831= CMPcar((V830));          V783= CMPcar((V782));
6114          goto T1850;          goto T1838;
6115  T1850:;  T1838:;
6116          if(!(((V830))==Cnil)){          if(!(((V782))==Cnil)){
6117          goto T1851;}          goto T1839;}
6118          goto T1846;          goto T1834;
6119          goto T1851;          goto T1839;
6120  T1851:;  T1839:;
6121          {register object V832;          {register object V784;
6122          register object V833;          register object V785;
6123          base[4]= (V826);          base[4]= (V778);
6124          base[5]= (V831);          base[5]= (V783);
6125          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
6126          (void) (*Lnk146)();          (void) (*Lnk162)();
6127          if(vs_base>=vs_top){vs_top=sup;goto T1859;}          if(vs_base>=vs_top){vs_top=sup;goto T1847;}
6128          V832= vs_base[0];          V784= vs_base[0];
6129          vs_base++;          vs_base++;
6130          if(vs_base>=vs_top){vs_top=sup;goto T1860;}          if(vs_base>=vs_top){vs_top=sup;goto T1848;}
6131          V833= vs_base[0];          V785= vs_base[0];
6132          vs_top=sup;          vs_top=sup;
6133          goto T1861;          goto T1849;
6134          goto T1859;          goto T1847;
6135  T1859:;  T1847:;
6136          V832= Cnil;          V784= Cnil;
6137          goto T1860;          goto T1848;
6138  T1860:;  T1848:;
6139          V833= Cnil;          V785= Cnil;
6140          goto T1861;          goto T1849;
6141  T1861:;  T1849:;
6142          if(((V832))==Cnil){          if(((V784))==Cnil){
         goto T1862;}  
         V828= Ct;  
         goto T1846;  
         goto T1862;  
 T1862:;  
         if(((V833))!=Cnil){  
         goto T1855;}  
         V829= Cnil;  
         goto T1846;}  
         goto T1855;  
 T1855:;  
         V830= CMPcdr((V830));  
         V831= CMPcar((V830));  
6143          goto T1850;}          goto T1850;}
6144          goto T1846;          V780= Ct;
6145  T1846:;          goto T1834;
6146          base[2]= (V828);          goto T1850;
6147          base[3]= (V829);  T1850:;
6148            if(((V785))!=Cnil){
6149            goto T1843;}
6150            V781= Cnil;
6151            goto T1834;}
6152            goto T1843;
6153    T1843:;
6154            V782= CMPcdr((V782));
6155            V783= CMPcar((V782));
6156            goto T1838;}
6157            goto T1834;
6158    T1834:;
6159            base[2]= (V780);
6160            base[3]= (V781);
6161          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6162          return;}          return;}
6163          }          }
# Line 6274  static void L110() Line 6168  static void L110()
6168  {register object *base=vs_base;  {register object *base=vs_base;
6169          register object *sup=base+VM100; VC100          register object *sup=base+VM100; VC100
6170          vs_check;          vs_check;
6171          {register object V834;          {register object V786;
6172          object V835;          object V787;
6173          check_arg(2);          check_arg(2);
6174          V834=(base[0]);          V786=(base[0]);
6175          V835=(base[1]);          V787=(base[1]);
6176          vs_top=sup;          vs_top=sup;
6177          goto TTL;          goto TTL;
6178  TTL:;  TTL:;
6179          {register object V836;          {register object V788;
6180          V836= CMPcadr((V835));          V788= CMPcadr((V787));
6181          base[2]= Cnil;          base[2]= Cnil;
6182          {object V837= CMPcar((V836));          {object V789= CMPcar((V788));
6183          if((V837!= VV[10]))goto T1879;          if((V789!= VV[8]))goto T1867;
6184          base[3]= (*(LnkLI285))((V834),(V836));          base[3]= (*(LnkLI301))((V786),(V788));
6185          goto T1878;          goto T1866;
6186          goto T1879;          goto T1867;
6187  T1879:;  T1867:;
6188          if((V837!= VV[130]))goto T1880;          if((V789!= VV[146]))goto T1868;
6189          base[3]= (*(LnkLI286))((V834),(V836));          base[3]= (*(LnkLI302))((V786),(V788));
6190          goto T1878;          goto T1866;
6191          goto T1880;          goto T1868;
6192  T1880:;  T1868:;
6193          if((V837!= VV[282]))goto T1881;          if((V789!= VV[298]))goto T1869;
6194          base[3]= (*(LnkLI287))((V834),(V836));          base[3]= (*(LnkLI303))((V786),(V788));
6195          goto T1878;          goto T1866;
6196          goto T1881;          goto T1869;
6197  T1881:;  T1869:;
6198          if((V837!= VV[147]))goto T1882;          if((V789!= VV[163]))goto T1870;
6199          base[3]= (*(LnkLI288))((V834),(V836));          base[3]= (*(LnkLI304))((V786),(V788));
6200          goto T1878;          goto T1866;
6201          goto T1882;          goto T1870;
6202  T1882:;  T1870:;
6203          base[4]= VV[145];          base[4]= VV[161];
6204          base[5]= VV[146];          base[5]= VV[162];
6205          base[6]= (V835);          base[6]= (V787);
6206          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
6207          Lerror();          Lerror();
6208          vs_top=sup;          vs_top=sup;
6209          base[3]= vs_base[0];}          base[3]= vs_base[0];}
6210          goto T1878;          goto T1866;
6211  T1878:;  T1866:;
6212          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6213          return;}          return;}
6214          }          }
6215  }  }
6216  /*      local entry for function SAUT-NOT-CLASS */  /*      local entry for function SAUT-NOT-CLASS */
6217    
6218  static object LI111(V840,V841)  static object LI111(V792,V793)
6219    
6220  object V840;object V841;  object V792;object V793;
6221  {        VMB101 VMS101 VMV101  {        VMB101 VMS101 VMV101
6222          goto TTL;          goto TTL;
6223  TTL:;  TTL:;
6224          {object V842;          {object V794;
6225          object V843;          object V795;
6226          V842= (*(LnkLI289))((V840));          V794= (*(LnkLI305))((V792));
6227          base[2]= (V842);          base[2]= (V794);
6228          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6229          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
6230          vs_top=sup;          vs_top=sup;
6231          V843= vs_base[0];          V795= vs_base[0];
6232          {register object x= CMPcadr((V841)),V845= (V843);          {register object x= CMPcadr((V793)),V797= (V795);
6233          while(V845!=Cnil)          while(V797!=Cnil)
6234          if(x==(V845->c.c_car)){          if(x==(V797->c.c_car)){
6235          V844= V845;          V796= V797;
6236          goto T1889;          goto T1877;
6237          }else V845=V845->c.c_cdr;          }else V797=V797->c.c_cdr;
6238          V844= Cnil;}          V796= Cnil;}
6239          goto T1889;          goto T1877;
6240  T1889:;  T1877:;
6241          {object V846 = ((V844)==Cnil?Ct:Cnil);          {object V798 = ((V796)==Cnil?Ct:Cnil);
6242          VMR101(V846)}}          VMR101(V798)}}
6243          base[0]=base[0];          base[0]=base[0];
6244          return Cnil;          return Cnil;
6245  }  }
6246  /*      local entry for function SAUT-NOT-PROTOTYPE     */  /*      local entry for function SAUT-NOT-PROTOTYPE     */
6247    
6248  static object LI112(V849,V850)  static object LI112(V801,V802)
6249    
6250  register object V849;object V850;  register object V801;object V802;
6251  {        VMB102 VMS102 VMV102  {        VMB102 VMS102 VMV102
6252          goto TTL;          goto TTL;
6253  TTL:;  TTL:;
6254          {object V851;          {object V803;
6255          object V852;          object V804;
6256          {object V853= CMPcar((V849));          {object V805= CMPcar((V801));
6257          if((V853!= VV[147]))goto T1891;          if((V805!= VV[163]))goto T1879;
6258          V851= (*(LnkLI290))(CMPcadr((V849)));          V803= (*(LnkLI306))(CMPcadr((V801)));
6259          goto T1890;          goto T1878;
6260          goto T1891;          goto T1879;
6261  T1891:;  T1879:;
6262          if((V853!= VV[130]))goto T1892;          if((V805!= VV[146]))goto T1880;
6263          V851= CMPcadr((V849));          V803= CMPcadr((V801));
6264          goto T1890;          goto T1878;
6265          goto T1892;          goto T1880;
6266  T1892:;  T1880:;
6267          if((V853!= VV[282]))goto T1893;          if((V805!= VV[298]))goto T1881;
6268          V851= CMPcadr((V849));          V803= CMPcadr((V801));
6269          goto T1890;          goto T1878;
6270          goto T1893;          goto T1881;
6271  T1893:;  T1881:;
6272          if((V853!= VV[10]))goto T1894;          if((V805!= VV[8]))goto T1882;
6273          V851= CMPcadr((V849));          V803= CMPcadr((V801));
6274          goto T1890;          goto T1878;
6275          goto T1894;          goto T1882;
6276  T1894:;  T1882:;
6277          V851= Cnil;}          V803= Cnil;}
6278          goto T1890;          goto T1878;
6279  T1890:;  T1878:;
6280          base[2]= (V851);          base[2]= (V803);
6281          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6282          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
6283          vs_top=sup;          vs_top=sup;
6284          V852= vs_base[0];          V804= vs_base[0];
6285          {register object x= CMPcadr((V850)),V855= (V852);          {register object x= CMPcadr((V802)),V807= (V804);
6286          while(V855!=Cnil)          while(V807!=Cnil)
6287          if(x==(V855->c.c_car)){          if(x==(V807->c.c_car)){
6288          V854= V855;          V806= V807;
6289          goto T1897;          goto T1885;
6290          }else V855=V855->c.c_cdr;          }else V807=V807->c.c_cdr;
6291          V854= Cnil;}          V806= Cnil;}
6292          goto T1897;          goto T1885;
6293  T1897:;  T1885:;
6294          {object V856 = ((V854)==Cnil?Ct:Cnil);          {object V808 = ((V806)==Cnil?Ct:Cnil);
6295          VMR102(V856)}}          VMR102(V808)}}
6296          base[0]=base[0];          base[0]=base[0];
6297          return Cnil;          return Cnil;
6298  }  }
6299  /*      local entry for function SAUT-NOT-CLASS-EQ      */  /*      local entry for function SAUT-NOT-CLASS-EQ      */
6300    
6301  static object LI113(V859,V860)  static object LI113(V811,V812)
6302    
6303  object V859;object V860;  object V811;object V812;
6304  {        VMB103 VMS103 VMV103  {        VMB103 VMS103 VMV103
6305          goto TTL;          goto TTL;
6306  TTL:;  TTL:;
6307          {object V861;          {object V813;
6308          {object V862= CMPcar((V859));          {object V814= CMPcar((V811));
6309          if((V862!= VV[147]))goto T1899;          if((V814!= VV[163]))goto T1887;
6310          V861= (*(LnkLI290))(CMPcadr((V859)));          V813= (*(LnkLI306))(CMPcadr((V811)));
6311          goto T1898;          goto T1886;
6312          goto T1899;          goto T1887;
6313  T1899:;  T1887:;
6314          if((V862!= VV[130]))goto T1900;          if((V814!= VV[146]))goto T1888;
6315          V861= CMPcadr((V859));          V813= CMPcadr((V811));
6316          goto T1898;          goto T1886;
6317          goto T1900;          goto T1888;
6318  T1900:;  T1888:;
6319          V861= Cnil;}          V813= Cnil;}
6320          goto T1898;          goto T1886;
6321  T1898:;  T1886:;
6322          {object V863 = (((((V861))==(CMPcadr((V860)))?Ct:Cnil))==Cnil?Ct:Cnil);          {object V815 = (((((V813))==(CMPcadr((V812)))?Ct:Cnil))==Cnil?Ct:Cnil);
6323          VMR103(V863)}}          VMR103(V815)}}
6324          return Cnil;          return Cnil;
6325  }  }
6326  /*      local entry for function SAUT-NOT-EQL   */  /*      local entry for function SAUT-NOT-EQL   */
6327    
6328  static object LI114(V866,V867)  static object LI114(V818,V819)
6329    
6330  object V866;object V867;  object V818;object V819;
6331  {        VMB104 VMS104 VMV104  {        VMB104 VMS104 VMV104
6332          goto TTL;          goto TTL;
6333  TTL:;  TTL:;
6334          {object V868= CMPcar((V866));          {object V820= CMPcar((V818));
6335          if((V868!= VV[147]))goto T1901;          if((V820!= VV[163]))goto T1889;
6336          {object V869 = (((eql(CMPcadr((V866)),CMPcadr((V867)))?Ct:Cnil))==Cnil?Ct:Cnil);          {object V821 = (((eql(CMPcadr((V818)),CMPcadr((V819)))?Ct:Cnil))==Cnil?Ct:Cnil);
6337          VMR104(V869)}          VMR104(V821)}
6338          goto T1901;          goto T1889;
6339  T1901:;  T1889:;
6340          {object V870 = Ct;          {object V822 = Ct;
6341          VMR104(V870)}}          VMR104(V822)}}
6342          return Cnil;          return Cnil;
6343  }  }
6344  /*      function definition for CLASS-APPLICABLE-USING-CLASS-P  */  /*      function definition for CLASS-APPLICABLE-USING-CLASS-P  */
# Line 6453  static void L115() Line 6347  static void L115()
6347  {register object *base=vs_base;  {register object *base=vs_base;
6348          register object *sup=base+VM105; VC105          register object *sup=base+VM105; VC105
6349          vs_check;          vs_check;
6350          {object V871;          {object V823;
6351          register object V872;          register object V824;
6352          check_arg(2);          check_arg(2);
6353          V871=(base[0]);          V823=(base[0]);
6354          V872=(base[1]);          V824=(base[1]);
6355          vs_top=sup;          vs_top=sup;
6356          goto TTL;          goto TTL;
6357  TTL:;  TTL:;
6358          {object V873;          {object V825;
6359          V875 = (V871);          if(!(((VV[79]->s.s_dbind))==(VV[80]))){
6360          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          goto T1893;}
6361          goto T1905;}          base[2]= (V824);
         base[2]= (V872);  
6362          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6363          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
6364          vs_top=sup;          vs_top=sup;
6365          V876= vs_base[0];          V827= vs_base[0];
6366          goto T1903;          goto T1891;
6367          goto T1905;          goto T1893;
6368  T1905:;  T1893:;
6369          V876= (*(LnkLI263))((V872));          V827= (*(LnkLI279))((V824));
6370          goto T1903;          goto T1891;
6371  T1903:;  T1891:;
6372          {register object x= V875,V874= V876;          {register object x= (V823),V826= V827;
6373          while(V874!=Cnil)          while(V826!=Cnil)
6374          if(x==(V874->c.c_car)){          if(x==(V826->c.c_car)){
6375          V873= V874;          V825= V826;
6376          goto T1902;          goto T1890;
6377          }else V874=V874->c.c_cdr;          }else V826=V826->c.c_cdr;
6378          V873= Cnil;}          V825= Cnil;}
6379          goto T1902;          goto T1890;
6380  T1902:;  T1890:;
6381          base[2]= (V873);          base[2]= (V825);
6382          if((V873)!=Cnil){          if((V825)!=Cnil){
6383          base[3]= (V873);          base[3]= (V825);
6384          goto T1909;}          goto T1897;}
6385          if(((VV[144]->s.s_dbind))!=Cnil){          if(((VV[160]->s.s_dbind))!=Cnil){
6386          goto T1911;}          goto T1899;}
6387          base[3]= (*(LnkLI291))((V871),(V872));          base[3]= (*(LnkLI307))((V823),(V824));
6388          goto T1909;          goto T1897;
6389          goto T1911;          goto T1899;
6390  T1911:;  T1899:;
6391          base[3]= (*(LnkLI292))((V871),(V872));          base[3]= (*(LnkLI308))((V823),(V824));
6392          goto T1909;          goto T1897;
6393  T1909:;  T1897:;
6394          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6395          return;}          return;}
6396          }          }
6397  }  }
6398  /*      local entry for function CLASSES-HAVE-COMMON-SUBCLASS-P */  /*      local entry for function CLASSES-HAVE-COMMON-SUBCLASS-P */
6399    
6400  static object LI116(V879,V880)  static object LI116(V830,V831)
6401    
6402  object V879;register object V880;  object V830;register object V831;
6403  {        VMB106 VMS106 VMV106  {        VMB106 VMS106 VMV106
6404          goto TTL;          goto TTL;
6405  TTL:;  TTL:;
6406          if(!(((V879))==((V880)))){          if(!(((V830))==((V831)))){
6407          goto T1913;}          goto T1901;}
6408          {object V881 = Ct;          {object V832 = Ct;
6409          VMR106(V881)}          VMR106(V832)}
6410          goto T1913;          goto T1901;
6411  T1913:;  T1901:;
6412          {object V882;          {object V833;
6413          base[0]= (V879);          base[0]= (V830);
6414          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6415          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk309)(Lclptr309);
6416          vs_top=sup;          vs_top=sup;
6417          V882= vs_base[0];{object V883;          V833= vs_base[0];{object V834;
6418          {register object x= (V880),V884= (V882);          {register object x= (V831),V835= (V833);
6419          while(V884!=Cnil)          while(V835!=Cnil)
6420          if(x==(V884->c.c_car)){          if(x==(V835->c.c_car)){
6421          V883= V884;          V834= V835;
6422          goto T1918;          goto T1906;
6423          }else V884=V884->c.c_cdr;          }else V835=V835->c.c_cdr;
6424          V883= Cnil;}          V834= Cnil;}
6425          goto T1918;          goto T1906;
6426  T1918:;  T1906:;
6427          if(V883==Cnil)goto T1917;          if(V834==Cnil)goto T1905;
6428          {object V885 = V883;          {object V836 = V834;
6429          VMR106(V885)}          VMR106(V836)}
6430          goto T1917;          goto T1905;
6431  T1917:;}  T1905:;}
6432          {register object V886;          {register object V837;
6433          register object V887;          register object V838;
6434          V886= (V882);          V837= (V833);
6435          V887= CMPcar((V886));          V838= CMPcar((V837));
6436          goto T1922;          goto T1910;
6437  T1922:;  T1910:;
6438          if(!(((V886))==Cnil)){          if(!(((V837))==Cnil)){
6439          goto T1923;}          goto T1911;}
6440          {object V888 = Cnil;          {object V839 = Cnil;
6441          VMR106(V888)}          VMR106(V839)}
6442          goto T1923;          goto T1911;
6443  T1923:;  T1911:;
6444          if(((*(LnkLI292))((V887),(V880)))==Cnil){          if(((*(LnkLI308))((V838),(V831)))==Cnil){
6445          goto T1927;}          goto T1915;}
6446          {object V889 = Ct;          {object V840 = Ct;
6447          VMR106(V889)}          VMR106(V840)}
6448          goto T1927;          goto T1915;
6449  T1927:;  T1915:;
6450          V886= CMPcdr((V886));          V837= CMPcdr((V837));
6451          V887= CMPcar((V886));          V838= CMPcar((V837));
6452          goto T1922;}}          goto T1910;}}
6453          base[0]=base[0];          base[0]=base[0];
6454          return Cnil;          return Cnil;
6455  }  }
# Line 6566  static void L117() Line 6459  static void L117()
6459  {register object *base=vs_base;  {register object *base=vs_base;
6460          register object *sup=base+VM107; VC107          register object *sup=base+VM107; VC107
6461          vs_check;          vs_check;
6462          {object V890;          {object V841;
6463          object V891;          object V842;
6464          check_arg(2);          check_arg(2);
6465          V890=(base[0]);          V841=(base[0]);
6466          V891=(base[1]);          V842=(base[1]);
6467          vs_top=sup;          vs_top=sup;
6468          goto TTL;          goto TTL;
6469  TTL:;  TTL:;
6470          {object V892= CMPcar((V890));          {object V843= CMPcar((V841));
6471          if((V892!= VV[10]))goto T1935;          if((V843!= VV[8]))goto T1923;
6472          base[2]= CMPcadr((V890));          base[2]= CMPcadr((V841));
6473          base[3]= CMPcadr((V891));          base[3]= CMPcadr((V842));
6474          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6475          (void) (*Lnk294)();          (void) (*Lnk310)();
6476          return;          return;
6477          goto T1935;          goto T1923;
6478  T1935:;  T1923:;
6479          base[2]= Cnil;          base[2]= Cnil;
6480          {object V893;          {object V844;
6481          V893= (*(LnkLI289))((V890));          V844= (*(LnkLI305))((V841));
6482          V895= CMPcadr((V891));          V846= CMPcadr((V842));
6483          base[4]= (V893);          base[4]= (V844);
6484          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6485          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
6486          vs_top=sup;          vs_top=sup;
6487          V896= vs_base[0];          V847= vs_base[0];
6488          {register object x= /* INLINE-ARGS */V895,V894= V896;          {register object x= /* INLINE-ARGS */V846,V845= V847;
6489          while(V894!=Cnil)          while(V845!=Cnil)
6490          if(x==(V894->c.c_car)){          if(x==(V845->c.c_car)){
6491          base[3]= V894;          base[3]= V845;
6492          goto T1939;          goto T1927;
6493          }else V894=V894->c.c_cdr;          }else V845=V845->c.c_cdr;
6494          base[3]= Cnil;}}          base[3]= Cnil;}}
6495          goto T1939;          goto T1927;
6496  T1939:;  T1927:;
6497          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6498          return;}          return;}
6499          }          }
# Line 6611  static void L118() Line 6504  static void L118()
6504  {register object *base=vs_base;  {register object *base=vs_base;
6505          register object *sup=base+VM108; VC108          register object *sup=base+VM108; VC108
6506          vs_check;          vs_check;
6507          {register object V897;          {register object V848;
6508          register object V898;          register object V849;
6509          check_arg(2);          check_arg(2);
6510          V897=(base[0]);          V848=(base[0]);
6511          V898=(base[1]);          V849=(base[1]);
6512          vs_top=sup;          vs_top=sup;
6513          goto TTL;          goto TTL;
6514  TTL:;  TTL:;
6515          if(!((CMPcar((V897)))==(VV[147]))){          if(!((CMPcar((V848)))==(VV[163]))){
6516          goto T1944;}          goto T1932;}
6517          base[2]= Cnil;          base[2]= Cnil;
6518          V899= (*(LnkLI290))(CMPcadr((V897)));          V850= (*(LnkLI306))(CMPcadr((V848)));
6519          base[3]= ((/* INLINE-ARGS */V899)==(CMPcadr((V898)))?Ct:Cnil);          base[3]= ((/* INLINE-ARGS */V850)==(CMPcadr((V849)))?Ct:Cnil);
6520          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6521          return;          return;
6522          goto T1944;          goto T1932;
6523  T1944:;  T1932:;
6524          {object V900;          {object V851;
6525          {object V901= CMPcar((V897));          {object V852= CMPcar((V848));
6526          if((V901!= VV[130]))goto T1949;          if((V852!= VV[146]))goto T1937;
6527          V900= ((CMPcadr((V897)))==(CMPcadr((V898)))?Ct:Cnil);          V851= ((CMPcadr((V848)))==(CMPcadr((V849)))?Ct:Cnil);
6528          goto T1948;          goto T1936;
6529          goto T1949;          goto T1937;
6530  T1949:;  T1937:;
6531          if((V901!= VV[10]))goto T1950;          if((V852!= VV[8]))goto T1938;
6532          if(!((CMPcadr((V897)))==(CMPcadr((V898))))){          if(!((CMPcadr((V848)))==(CMPcadr((V849))))){
6533          goto T1951;}          goto T1939;}
6534          V900= Ct;          V851= Ct;
6535          goto T1948;          goto T1936;
6536          goto T1951;          goto T1939;
6537  T1951:;  T1939:;
6538          V903= CMPcadr((V897));          V854= CMPcadr((V848));
6539          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[79]->s.s_dbind))==(VV[80]))){
6540          goto T1955;}          goto T1943;}
6541          base[2]= CMPcadr((V898));          base[2]= CMPcadr((V849));
6542          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6543          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
6544          vs_top=sup;          vs_top=sup;
6545          V904= vs_base[0];          V855= vs_base[0];
6546          goto T1953;          goto T1941;
6547          goto T1955;          goto T1943;
6548  T1955:;  T1943:;
6549          V904= (*(LnkLI263))(CMPcadr((V898)));          V855= (*(LnkLI279))(CMPcadr((V849)));
6550          goto T1953;          goto T1941;
6551  T1953:;  T1941:;
6552          {register object x= /* INLINE-ARGS */V903,V902= V904;          {register object x= /* INLINE-ARGS */V854,V853= V855;
6553          while(V902!=Cnil)          while(V853!=Cnil)
6554          if(x==(V902->c.c_car)){          if(x==(V853->c.c_car)){
6555          V900= V902;          V851= V853;
6556          goto T1948;          goto T1936;
6557          }else V902=V902->c.c_cdr;          }else V853=V853->c.c_cdr;
6558          V900= Cnil;          V851= Cnil;
6559          goto T1948;}          goto T1936;}
6560          goto T1950;          goto T1938;
6561  T1950:;  T1938:;
6562          V900= Cnil;}          V851= Cnil;}
6563          goto T1948;          goto T1936;
6564  T1948:;  T1936:;
6565          base[2]= (V900);          base[2]= (V851);
6566          base[3]= (V900);          base[3]= (V851);
6567          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6568          return;}          return;}
6569          }          }
# Line 6681  static void L119() Line 6574  static void L119()
6574  {register object *base=vs_base;  {register object *base=vs_base;
6575          register object *sup=base+VM109; VC109          register object *sup=base+VM109; VC109
6576          vs_check;          vs_check;
6577          {object V905;          {object V856;
6578          object V906;          object V857;
6579          check_arg(2);          check_arg(2);
6580          V905=(base[0]);          V856=(base[0]);
6581          V906=(base[1]);          V857=(base[1]);
6582          vs_top=sup;          vs_top=sup;
6583          goto TTL;          goto TTL;
6584  TTL:;  TTL:;
# Line 6701  static void L120() Line 6594  static void L120()
6594  {register object *base=vs_base;  {register object *base=vs_base;
6595          register object *sup=base+VM110; VC110          register object *sup=base+VM110; VC110
6596          vs_check;          vs_check;
6597          {register object V907;          {register object V858;
6598          object V908;          object V859;
6599          check_arg(2);          check_arg(2);
6600          V907=(base[0]);          V858=(base[0]);
6601          V908=(base[1]);          V859=(base[1]);
6602          vs_top=sup;          vs_top=sup;
6603          goto TTL;          goto TTL;
6604  TTL:;  TTL:;
6605          {object V909;          {object V860;
6606          {object V910= CMPcar((V907));          {object V861= CMPcar((V858));
6607          if((V910!= VV[147]))goto T1963;          if((V861!= VV[163]))goto T1951;
6608          V909= (eql(CMPcadr((V907)),CMPcadr((V908)))?Ct:Cnil);          V860= (eql(CMPcadr((V858)),CMPcadr((V859)))?Ct:Cnil);
6609          goto T1962;          goto T1950;
6610          goto T1963;          goto T1951;
6611  T1963:;  T1951:;
6612          if((V910!= VV[130]))goto T1964;          if((V861!= VV[146]))goto T1952;
6613          V911= CMPcadr((V907));          V862= CMPcadr((V858));
6614          V912= (*(LnkLI290))(CMPcadr((V908)));          V863= (*(LnkLI306))(CMPcadr((V859)));
6615          V909= ((/* INLINE-ARGS */V911)==(/* INLINE-ARGS */V912)?Ct:Cnil);          V860= ((/* INLINE-ARGS */V862)==(/* INLINE-ARGS */V863)?Ct:Cnil);
6616          goto T1962;          goto T1950;
6617          goto T1964;          goto T1952;
6618  T1964:;  T1952:;
6619          if((V910!= VV[10]))goto T1965;          if((V861!= VV[8]))goto T1953;
6620          V914= CMPcadr((V907));          V865= CMPcadr((V858));
6621          {object V916;          {object V867;
6622          V916= (*(LnkLI290))(CMPcadr((V908)));          V867= (*(LnkLI306))(CMPcadr((V859)));
6623          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[79]->s.s_dbind))==(VV[80]))){
6624          goto T1969;}          goto T1957;}
6625          base[2]= (V916);          base[2]= (V867);
6626          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6627          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
6628          vs_top=sup;          vs_top=sup;
6629          V915= vs_base[0];          V866= vs_base[0];
6630          goto T1966;          goto T1954;
6631          goto T1969;          goto T1957;
6632  T1969:;  T1957:;
6633          V915= (*(LnkLI263))((V916));}          V866= (*(LnkLI279))((V867));}
6634          goto T1966;          goto T1954;
6635  T1966:;  T1954:;
6636          {register object x= /* INLINE-ARGS */V914,V913= V915;          {register object x= /* INLINE-ARGS */V865,V864= V866;
6637          while(V913!=Cnil)          while(V864!=Cnil)
6638          if(x==(V913->c.c_car)){          if(x==(V864->c.c_car)){
6639          V909= V913;          V860= V864;
6640          goto T1962;          goto T1950;
6641          }else V913=V913->c.c_cdr;          }else V864=V864->c.c_cdr;
6642          V909= Cnil;          V860= Cnil;
6643          goto T1962;}          goto T1950;}
6644          goto T1965;          goto T1953;
6645  T1965:;  T1953:;
6646          V909= Cnil;}          V860= Cnil;}
6647          goto T1962;          goto T1950;
6648  T1962:;  T1950:;
6649          base[2]= (V909);          base[2]= (V860);
6650          base[3]= (V909);          base[3]= (V860);
6651          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6652          return;}          return;}
6653          }          }
# Line 6765  static void L121() Line 6658  static void L121()
6658  {register object *base=vs_base;  {register object *base=vs_base;
6659          register object *sup=base+VM111; VC111          register object *sup=base+VM111; VC111
6660          vs_check;          vs_check;
6661          {register object V917;          {register object V868;
6662          register object V918;          register object V869;
6663          check_arg(2);          check_arg(2);
6664          V917=(base[0]);          V868=(base[0]);
6665          V918=(base[1]);          V869=(base[1]);
6666          vs_top=sup;          vs_top=sup;
6667          goto TTL;          goto TTL;
6668  TTL:;  TTL:;
6669          base[2]= (V917);          base[2]= (V868);
6670          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6671          (void) (*Lnk295)();          (void) (*Lnk311)();
6672          vs_top=sup;          vs_top=sup;
6673          V917= vs_base[0];          V868= vs_base[0];
6674          if(!(((V917))==(Ct))){          if(!(((V868))==(Ct))){
6675          goto T1977;}          goto T1965;}
6676          base[2]= Ct;          base[2]= Ct;
6677          base[3]= Ct;          base[3]= Ct;
6678          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6679          return;          return;
6680          goto T1977;          goto T1965;
6681  T1977:;  T1965:;
6682          if(type_of((V918))!=t_cons){          if(type_of((V869))!=t_cons){
6683          goto T1982;}          goto T1970;}
6684          if(!((CMPcar((V918)))==(Ct))){          if(!((CMPcar((V869)))==(Ct))){
6685          goto T1983;}          goto T1971;}
6686          goto T1982;          goto T1970;
6687  T1982:;  T1970:;
6688          base[2]= Cnil;          base[2]= Cnil;
6689          base[3]= Ct;          base[3]= Ct;
6690          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6691          return;          return;
6692          goto T1983;          goto T1971;
6693  T1983:;  T1971:;
6694          {object V919= CMPcar((V918));          {object V870= CMPcar((V869));
6695          if((V919!= VV[88]))goto T1989;          if((V870!= VV[96]))goto T1977;
6696          base[2]= (V917);          base[2]= (V868);
6697          base[3]= (V918);          base[3]= (V869);
6698          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6699          (void) (*Lnk296)();          (void) (*Lnk312)();
6700          return;          return;
6701          goto T1989;          goto T1977;
6702  T1989:;  T1977:;
6703          if((V919!= VV[89]))goto T1992;          if((V870!= VV[97]))goto T1980;
6704          base[2]= (V917);          base[2]= (V868);
6705          base[3]= (V918);          base[3]= (V869);
6706          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6707          (void) (*Lnk297)();          (void) (*Lnk313)();
6708          return;          return;
6709          goto T1992;          goto T1980;
6710  T1992:;  T1980:;
6711          if((V919!= VV[10]))goto T1995;          if((V870!= VV[8]))goto T1983;
6712          base[2]= (V917);          base[2]= (V868);
6713          base[3]= (V918);          base[3]= (V869);
6714          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6715          (void) (*Lnk298)();          (void) (*Lnk314)();
6716          return;          return;
6717          goto T1995;          goto T1983;
6718  T1995:;  T1983:;
6719          if((V919!= VV[282]))goto T1998;          if((V870!= VV[298]))goto T1986;
6720          base[2]= (V917);          base[2]= (V868);
6721          base[3]= (V918);          base[3]= (V869);
6722          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6723          (void) (*Lnk299)();          (void) (*Lnk315)();
6724          return;          return;
6725          goto T1998;          goto T1986;
6726  T1998:;  T1986:;
6727          if((V919!= VV[130]))goto T2001;          if((V870!= VV[146]))goto T1989;
6728          base[2]= (V917);          base[2]= (V868);
6729          base[3]= (V918);          base[3]= (V869);
6730          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6731          (void) (*Lnk300)();          (void) (*Lnk316)();
6732          return;          return;
6733          goto T2001;          goto T1989;
6734  T2001:;  T1989:;
6735          if((V919!= VV[147]))goto T2004;          if((V870!= VV[163]))goto T1992;
6736          base[2]= (V917);          base[2]= (V868);
6737          base[3]= (V918);          base[3]= (V869);
6738          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6739          (void) (*Lnk301)();          (void) (*Lnk317)();
6740          return;          return;
6741          goto T2004;          goto T1992;
6742  T2004:;  T1992:;
6743          base[2]= VV[148];          base[2]= VV[164];
6744          base[3]= VV[146];          base[3]= VV[162];
6745          base[4]= (V918);          base[4]= (V869);
6746          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
6747          Lerror();          Lerror();
6748          return;}          return;}
# Line 6861  static void L122() Line 6754  static void L122()
6754  {register object *base=vs_base;  {register object *base=vs_base;
6755          register object *sup=base+VM112; VC112          register object *sup=base+VM112; VC112
6756          vs_check;          vs_check;
6757          {object V920;          {register object V871;
6758          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
6759          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
6760          vs_base=vs_base+1;          vs_base=vs_base+1;
6761          if(vs_base>=vs_top){vs_top=sup;goto T2010;}          if(vs_base>=vs_top){vs_top=sup;goto T1998;}
6762          V920=(base[1]);          V871=(base[1]);
6763          vs_top=sup;          vs_top=sup;
6764          goto T2011;          goto T1999;
6765          goto T2010;          goto T1998;
6766  T2010:;  T1998:;
6767          V920= Ct;          V871= Ct;
6768          goto T2011;          goto T1999;
6769  T2011:;  T1999:;
6770          if(!(((VV[72]->s.s_dbind))==(VV[149]))){          if(!(((VV[79]->s.s_dbind))==(VV[165]))){
6771          goto T2014;}          goto T2002;}
6772          base[2]= Ct;          base[2]= Ct;
6773          goto T2013;          goto T2001;
6774          goto T2014;          goto T2002;
6775  T2014:;  T2002:;
6776          base[2]= (((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil);          base[2]= (((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil);
6777          goto T2013;          goto T2001;
6778  T2013:;  T2001:;
6779          if(!(type_of((V920))==t_symbol)){          if(!(type_of((V871))==t_symbol)){
6780          goto T2018;}          goto T2006;}
6781          base[3]= (VFUN_NARGS=1,(*(LnkLI302))((V920)));          base[3]= (VFUN_NARGS=1,(*(LnkLI318))((V871)));
6782          goto T2016;          goto T2004;
6783          goto T2018;          goto T2006;
6784  T2018:;  T2006:;
6785          base[3]= (V920);          base[3]= (V871);
6786          goto T2016;          goto T2004;
6787  T2016:;  T2004:;
6788          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6789          L123(base);          L123(base);
6790          return;          return;
# Line 6903  static void L124() Line 6796  static void L124()
6796  {register object *base=vs_base;  {register object *base=vs_base;
6797          register object *sup=base+VM113; VC113          register object *sup=base+VM113; VC113
6798          vs_check;          vs_check;
6799          {object V921;          {object V872;
6800          object V922;          object V873;
6801          object V923;          object V874;
6802          object V924;          object V875;
6803          object V925;          object V876;
6804          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
6805          if(vs_top-vs_base>5) too_many_arguments();          if(vs_top-vs_base>5) too_many_arguments();
6806          V921=(base[0]);          V872=(base[0]);
6807          V922=(base[1]);          V873=(base[1]);
6808          V923=(base[2]);          V874=(base[2]);
6809          vs_base=vs_base+3;          vs_base=vs_base+3;
6810          if(vs_base>=vs_top){vs_top=sup;goto T2020;}          if(vs_base>=vs_top){vs_top=sup;goto T2008;}
6811          V924=(base[3]);          V875=(base[3]);
6812          vs_base++;          vs_base++;
6813          if(vs_base>=vs_top){vs_top=sup;goto T2021;}          if(vs_base>=vs_top){vs_top=sup;goto T2009;}
6814          V925=(base[4]);          V876=(base[4]);
6815          vs_top=sup;          vs_top=sup;
6816          goto T2022;          goto T2010;
6817          goto T2020;          goto T2008;
6818  T2020:;  T2008:;
6819          V924= Cnil;          V875= Cnil;
6820          goto T2021;          goto T2009;
6821  T2021:;  T2009:;
6822          V925= Cnil;          V876= Cnil;
6823          goto T2022;          goto T2010;
6824  T2022:;  T2010:;
6825          V926= (((((V924))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          V877= (((((V875))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
6826          V927= (((((V925))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          V878= (((((V876))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
6827          V928= (*(LnkLI213))((V922));          V879= (*(LnkLI230))((V873));
6828          base[5]= (VFUN_NARGS=6,(*(LnkLI216))((V921),(V922),(V923),/* INLINE-ARGS */V926,/* INLINE-ARGS */V927,((/* INLINE-ARGS */V928)==Cnil?Ct:Cnil)));          base[5]= (VFUN_NARGS=6,(*(LnkLI233))((V872),(V873),(V874),/* INLINE-ARGS */V877,/* INLINE-ARGS */V878,((/* INLINE-ARGS */V879)==Cnil?Ct:Cnil)));
6829          base[6]= (V924);          base[6]= (V875);
6830          base[7]= (V925);          base[7]= (V876);
6831          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
6832          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
6833                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6945  T2022:; Line 6838  T2022:;
6838  }  }
6839  /*      local entry for function GET-SECONDARY-DISPATCH-FUNCTION1       */  /*      local entry for function GET-SECONDARY-DISPATCH-FUNCTION1       */
6840    
6841  static object LI125(object V933,object V932,object V931,object V930,object V929,object first,...)  static object LI125(object V884,object V883,object V882,object V881,object V880,object first,...)
6842  {        {      
6843          va_list ap;          va_list ap;
6844          int narg = VFUN_NARGS; VMB114 VMS114 VMV114          int narg = VFUN_NARGS; VMB114 VMS114 VMV114
6845          {register object V934;          {register object V885;
6846          object V935;          object V886;
6847          register object V936;          register object V887;
6848          register object V937;          register object V888;
6849          register object V938;          register object V889;
6850          object V939;          object V890;
6851          register object V940;          register object V891;
6852          va_start(ap,first);          va_start(ap,first);
6853          if(narg <5) too_few_arguments();          if(narg <5) too_few_arguments();
6854          Vcs[0]=MMcons(V933,Cnil);          Vcs[0]=MMcons(V884,Cnil);
6855          V934= V932;          V885= V883;
6856          V935= V931;          V886= V882;
6857          V936= V930;          V887= V881;
6858          V937= V929;          V888= V880;
6859          narg = narg - 5;          narg = narg - 5;
6860          if (narg <= 0) goto T2028;          if (narg <= 0) goto T2016;
6861          else {          else {
6862          V938= first;}          V889= first;}
6863          if (--narg <= 0) goto T2029;          if (--narg <= 0) goto T2017;
6864          else {          else {
6865          V939= va_arg(ap,object);}          V890= va_arg(ap,object);}
6866          if (--narg <= 0) goto T2030;          if (--narg <= 0) goto T2018;
6867          else {          else {
6868          V940= va_arg(ap,object);}          V891= va_arg(ap,object);}
6869          --narg; goto T2031;          --narg; goto T2019;
6870          goto T2028;          goto T2016;
6871  T2028:;  T2016:;
6872          V938= Cnil;          V889= Cnil;
6873          goto T2029;          goto T2017;
6874  T2029:;  T2017:;
6875          V939= Ct;          V890= Ct;
6876          goto T2030;          goto T2018;
6877  T2030:;  T2018:;
6878          V940= Cnil;          V891= Cnil;
6879          goto T2031;          goto T2019;
6880  T2031:;  T2019:;
6881          if(((V934))!=Cnil){          if(((V885))!=Cnil){
6882          goto T2036;}          goto T2024;}
6883          if(((V940))==Cnil){          if(((V891))==Cnil){
6884          goto T2039;}          goto T2027;}
6885          {object V941 =          {object V892 =
6886          make_cclosure_new(LC165,Cnil,Vcs[0],Cdata);          make_cclosure_new(LC165,Cnil,Vcs[0],Cdata);
6887          VMR114(V941)}          VMR114(V892)}
6888          goto T2039;          goto T2027;
6889  T2039:;  T2027:;
6890          {object V942 =          {object V893 =
6891          make_cclosure_new(LC166,Cnil,Vcs[0],Cdata);          make_cclosure_new(LC166,Cnil,Vcs[0],Cdata);
6892          VMR114(V942)}          VMR114(V893)}
6893          goto T2036;          goto T2024;
6894  T2036:;  T2024:;
6895          {object V943;          {object V894;
6896          register object V944;          register object V895;
6897          V943= CMPcar((V934));{object V945;          V894= CMPcar((V885));{object V896;
6898          base[2]= (V943);          base[2]= (V894);
6899          base[3]= (VV[150]->s.s_dbind);          base[3]= (VV[166]->s.s_dbind);
6900          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6901          Lgethash();          Lgethash();
6902          vs_top=sup;          vs_top=sup;
6903          V945= vs_base[0];          V896= vs_base[0];
6904          if(V945==Cnil)goto T2043;          if(V896==Cnil)goto T2031;
6905          V944= V945;          V895= V896;
6906          goto T2042;          goto T2030;
6907          goto T2043;          goto T2031;
6908  T2043:;}  T2031:;}
6909          {object V947;          {object V898;
6910          object V948;          object V899;
6911          V947= (VV[150]->s.s_dbind);          V898= (VV[166]->s.s_dbind);
6912          V948= make_cons(Cnil,Cnil);          V899= make_cons(Cnil,Cnil);
6913          base[3]= V943;          base[3]= V894;
6914          base[4]= (V947);          base[4]= (V898);
6915          base[5]= (V948);          base[5]= (V899);
6916          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
6917          siLhash_set();          siLhash_set();
6918          vs_top=sup;          vs_top=sup;
6919          V944= vs_base[0];}          V895= vs_base[0];}
6920          goto T2042;          goto T2030;
6921  T2042:;  T2030:;
6922          if((CMPcdr((V934)))!=Cnil){          if((CMPcdr((V885)))!=Cnil){
6923          goto T2053;}          goto T2041;}
6924          if(((V938))==Cnil){          if(((V889))==Cnil){
6925          goto T2053;}          goto T2041;}
6926          if(((V936))!=Cnil){          if(((V887))!=Cnil){
6927          goto T2053;}          goto T2041;}
6928          if(((V937))==Cnil){          if(((V888))==Cnil){
6929          goto T2053;}          goto T2041;}
6930          if(((V940))!=Cnil){          if(((V891))!=Cnil){
6931          goto T2053;}{object V949;          goto T2041;}{object V900;
6932          V949= CMPcar((V944));          V900= CMPcar((V895));
6933          if(V949==Cnil)goto T2063;          if(V900==Cnil)goto T2051;
6934          {object V950 = V949;          {object V901 = V900;
6935          VMR114(V950)}          VMR114(V901)}
6936          goto T2063;          goto T2051;
6937  T2063:;}  T2051:;}
6938          {object V952;          {object V903;
6939          V952= (*(LnkLI303))((Vcs[0]->c.c_car),(V934),(V935),(V936),(V937),(V938),(V939),(V940));          V903= (*(LnkLI319))((Vcs[0]->c.c_car),(V885),(V886),(V887),(V888),(V889),(V890),(V891));
6940          (V944)->c.c_car = (V952);          (V895)->c.c_car = (V903);
6941          {object V953 = (V952);          {object V904 = (V903);
6942          VMR114(V953)}}          VMR114(V904)}}
6943          goto T2053;          goto T2041;
6944  T2053:;  T2041:;
6945          {object V954;          {object V905;
6946          V955 = (V934);          if(((V889))==Cnil){
6947          if(((V938))==Cnil){          goto T2058;}
6948          goto T2070;}          V906= VV[167];
6949          V956= VV[151];          goto T2056;
6950          goto T2068;          goto T2058;
6951          goto T2070;  T2058:;
6952  T2070:;          V906= (V886);
6953          V956= (V935);          goto T2056;
6954          goto T2068;  T2056:;
6955  T2068:;          V905= list(5,(V885),V906,(V887),(V888),(V891));{object V907;
6956          V957 = (V936);          {register object x= (V905),V909= CMPcdr((V895));
6957          V958 = (V937);          while(V909!=Cnil)
6958          V959 = (V940);          if(equal(x,V909->c.c_car->c.c_car) &&V909->c.c_car != Cnil){
6959          V954= list(5,V955,V956,V957,V958,V959);{object V960;          V908= (V909->c.c_car);
6960          {register object x= (V954),V962= CMPcdr((V944));          goto T2062;
6961          while(V962!=Cnil)          }else V909=V909->c.c_cdr;
6962          if(equal(x,V962->c.c_car->c.c_car) &&V962->c.c_car != Cnil){          V908= Cnil;}
6963          V961= (V962->c.c_car);          goto T2062;
6964          goto T2074;  T2062:;
6965          }else V962=V962->c.c_cdr;          V907= CMPcdr(V908);
6966          V961= Cnil;}          if(V907==Cnil)goto T2060;
6967          goto T2074;          {object V910 = V907;
6968  T2074:;          VMR114(V910)}
6969          V960= CMPcdr(V961);          goto T2060;
6970          if(V960==Cnil)goto T2072;  T2060:;}
6971          {object V963 = V960;          {object V911;
6972          VMR114(V963)}          V911= (*(LnkLI319))((Vcs[0]->c.c_car),(V885),(V886),(V887),(V888),(V889),(V890),(V891));
6973          goto T2072;          {object V912;
6974  T2072:;}          object V914;
6975          {object V964;          V912= make_cons((V905),(V911));
6976          V964= (*(LnkLI303))((Vcs[0]->c.c_car),(V934),(V935),(V936),(V937),(V938),(V939),(V940));          V914= make_cons((V912),CMPcdr(V895));
6977          {object V965;          (V895)->c.c_cdr = (V914);}
6978          object V967;          {object V915 = (V911);
6979          V965= make_cons((V954),(V964));          VMR114(V915)}}}}
         V967= make_cons((V965),CMPcdr(V944));  
         (V944)->c.c_cdr = (V967);}  
         {object V968 = (V964);  
         VMR114(V968)}}}}  
6980          va_end(ap);          va_end(ap);
6981          base[0]=base[0];          base[0]=base[0];
6982          return Cnil;}          return Cnil;}
6983          }          }
6984  /*      local entry for function GET-SECONDARY-DISPATCH-FUNCTION2       */  /*      local entry for function GET-SECONDARY-DISPATCH-FUNCTION2       */
6985    
6986  static object LI126(V977,V978,V979,V980,V981,V982,V983,V984)  static object LI126(V924,V925,V926,V927,V928,V929,V930,V931)
6987    
6988  register object V977;object V978;object V979;object V980;object V981;object V982;object V983;object V984;  register object V924;object V925;object V926;object V927;object V928;object V929;object V930;object V931;
6989  {        VMB115 VMS115 VMV115  {        VMB115 VMS115 VMV115
6990          goto TTL;          goto TTL;
6991  TTL:;  TTL:;
6992          if(((V982))==Cnil){          if(((V929))==Cnil){
6993          goto T2081;}          goto T2069;}
6994          if(((V983))==Cnil){          if(((V930))==Cnil){
6995          goto T2081;}          goto T2069;}
6996          if(((V984))!=Cnil){          if(((V931))!=Cnil){
6997          goto T2081;}          goto T2069;}
6998          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[79]->s.s_dbind))==(VV[80]))){
6999          goto T2088;}          goto T2076;}
7000          {object V985;          {object V932;
7001          object V986;          object V933;
7002          base[2]= (V977);          base[2]= (V924);
7003          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7004          (void) (*Lnk304)(Lclptr304);          (void) (*Lnk320)(Lclptr320);
7005          vs_top=sup;          vs_top=sup;
7006          V985= vs_base[0];          V932= vs_base[0];
7007          V986= (*(LnkLI305))((V977),(V985),(V978));          V933= (*(LnkLI321))((V924),(V932),(V925));
7008          {object V987 = (*(LnkLI306))((V977),(V986),(V980),(V981));          {object V934 = (*(LnkLI322))((V924),(V933),(V927),(V928));
7009          VMR115(V987)}}          VMR115(V934)}}
7010          goto T2088;          goto T2076;
7011  T2088:;  T2076:;
7012          {object V988;          {object V935;
7013          V988= (*(LnkLI307))((V977),Cnil,(V978));          V935= (*(LnkLI323))((V924),Cnil,(V925));
7014          {object V989 = (*(LnkLI306))((V977),(V988),(V980),(V981));          {object V936 = (*(LnkLI322))((V924),(V935),(V927),(V928));
7015          VMR115(V989)}}          VMR115(V936)}}
7016          goto T2081;          goto T2069;
7017  T2081:;  T2069:;
7018          {object V990;          {object V937;
7019          base[0]= (V977);          base[0]= (V924);
7020          base[1]= (V978);          base[1]= (V925);
7021          base[2]= (V979);          base[2]= (V926);
7022          base[3]= (V983);          base[3]= (V930);
7023          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
7024          (void) (*Lnk308)();          (void) (*Lnk324)();
7025          vs_top=sup;          vs_top=sup;
7026          V990= vs_base[0];          V937= vs_base[0];
7027          {object V991 = (VFUN_NARGS=3,(*(LnkLI309))((V977),(V990),(V984)));          {object V938 = (VFUN_NARGS=3,(*(LnkLI325))((V924),(V937),(V931)));
7028          VMR115(V991)}}          VMR115(V938)}}
7029          base[0]=base[0];          base[0]=base[0];
7030          return Cnil;          return Cnil;
7031  }  }
# Line 7146  static void L127() Line 7035  static void L127()
7035  {register object *base=vs_base;  {register object *base=vs_base;
7036          register object *sup=base+VM116; VC116          register object *sup=base+VM116; VC116
7037          vs_check;          vs_check;
7038          {object V992;          {object V939;
7039          object V993;          object V940;
7040          object V994;          object V941;
7041          object V995;          object V942;
7042          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
7043          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
7044          V992=(base[0]);          V939=(base[0]);
7045          V993=(base[1]);          V940=(base[1]);
7046          vs_base=vs_base+2;          vs_base=vs_base+2;
7047          if(vs_base>=vs_top){vs_top=sup;goto T2099;}          if(vs_base>=vs_top){vs_top=sup;goto T2087;}
7048          V994=(base[2]);          V941=(base[2]);
7049          vs_base++;          vs_base++;
7050          if(vs_base>=vs_top){vs_top=sup;goto T2100;}          if(vs_base>=vs_top){vs_top=sup;goto T2088;}
7051          V995=(base[3]);          V942=(base[3]);
7052          vs_top=sup;          vs_top=sup;
7053          goto T2101;          goto T2089;
7054          goto T2099;          goto T2087;
7055  T2099:;  T2087:;
7056          V994= Cnil;          V941= Cnil;
7057          goto T2100;          goto T2088;
7058  T2100:;  T2088:;
7059          V995= Cnil;          V942= Cnil;
7060          goto T2101;          goto T2089;
7061  T2101:;  T2089:;
7062          base[4]= (VFUN_NARGS=6,(*(LnkLI216))((V992),(V993),Cnil,(((((V994))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(((((V995))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),Ct));          base[4]= (VFUN_NARGS=6,(*(LnkLI233))((V939),(V940),Cnil,(((((V941))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(((((V942))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),Ct));
7063          base[5]= (V994);          base[5]= (V941);
7064          base[6]= (V995);          base[6]= (V942);
7065          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7066          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7067                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7183  T2101:; Line 7072  T2101:;
7072  }  }
7073  /*      local entry for function GET-EFFECTIVE-METHOD-FUNCTION1 */  /*      local entry for function GET-EFFECTIVE-METHOD-FUNCTION1 */
7074    
7075  static object LI128(object V997,object V996,object first,...)  static object LI128(object V944,object V943,object first,...)
7076  {        {      
7077          va_list ap;          va_list ap;
7078          int narg = VFUN_NARGS; VMB117 VMS117 VMV117          int narg = VFUN_NARGS; VMB117 VMS117 VMV117
7079          {object V998;          {object V945;
7080          object V999;          object V946;
7081          object V1000;          object V947;
7082          va_start(ap,first);          va_start(ap,first);
7083          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
7084          V998= V997;          V945= V944;
7085          V999= V996;          V946= V943;
7086          narg = narg - 2;          narg = narg - 2;
7087          if (narg <= 0) goto T2107;          if (narg <= 0) goto T2095;
7088          else {          else {
7089          V1000= first;}          V947= first;}
7090          --narg; goto T2108;          --narg; goto T2096;
7091          goto T2107;          goto T2095;
7092  T2107:;  T2095:;
7093          V1000= Ct;          V947= Ct;
7094          goto T2108;          goto T2096;
7095  T2108:;  T2096:;
7096          {object V1001 = (VFUN_NARGS=7,(*(LnkLI216))((V998),(V999),Cnil,Cnil,Cnil,Ct,(V1000)));          {object V948 = (VFUN_NARGS=7,(*(LnkLI233))((V945),(V946),Cnil,Cnil,Cnil,Ct,(V947)));
7097          VMR117(V1001)}          VMR117(V948)}
7098          va_end(ap);          va_end(ap);
7099          return Cnil;}          return Cnil;}
7100          }          }
7101  /*      local entry for function METHODS-CONTAIN-EQL-SPECIALIZER-P      */  /*      local entry for function METHODS-CONTAIN-EQL-SPECIALIZER-P      */
7102    
7103  static object LI129(V1003)  static object LI129(V950)
7104    
7105  object V1003;  object V950;
7106  {        VMB118 VMS118 VMV118  {        VMB118 VMS118 VMV118
7107          goto TTL;          goto TTL;
7108  TTL:;  TTL:;
7109          if(((VV[72]->s.s_dbind))==(VV[73])){          if(((VV[79]->s.s_dbind))==(VV[80])){
7110          goto T2110;}          goto T2098;}
7111          {object V1004 = Cnil;          {object V951 = Cnil;
7112          VMR118(V1004)}          VMR118(V951)}
7113          goto T2110;          goto T2098;
7114  T2110:;  T2098:;
7115          {register object V1005;          {register object V952;
7116          register object V1006;          register object V953;
7117          V1005= (V1003);          V952= (V950);
7118          V1006= CMPcar((V1005));          V953= CMPcar((V952));
7119            goto T2103;
7120    T2103:;
7121            if(!(((V952))==Cnil)){
7122            goto T2104;}
7123            {object V954 = Cnil;
7124            VMR118(V954)}
7125            goto T2104;
7126    T2104:;
7127            {register object V955;
7128            register object V956;
7129            base[3]= (V953);
7130            vs_top=(vs_base=base+3)+1;
7131            (void) (*Lnk259)(Lclptr259);
7132            vs_top=sup;
7133            V955= vs_base[0];
7134            V956= CMPcar((V955));
7135          goto T2115;          goto T2115;
7136  T2115:;  T2115:;
7137          if(!(((V1005))==Cnil)){          if(!(((V955))==Cnil)){
7138          goto T2116;}          goto T2116;}
7139          {object V1007 = Cnil;          goto T2108;
         VMR118(V1007)}  
7140          goto T2116;          goto T2116;
7141  T2116:;  T2116:;
7142          {register object V1008;          base[3]= (V956);
         register object V1009;  
         base[3]= (V1006);  
7143          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7144          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk326)(Lclptr326);
         vs_top=sup;  
         V1008= vs_base[0];  
         V1009= CMPcar((V1008));  
         goto T2127;  
 T2127:;  
         if(!(((V1008))==Cnil)){  
         goto T2128;}  
         goto T2120;  
         goto T2128;  
 T2128:;  
         base[3]= (V1009);  
         vs_top=(vs_base=base+3)+1;  
         (void) (*Lnk310)(Lclptr310);  
7145          vs_top=sup;          vs_top=sup;
7146          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7147          goto T2132;}          goto T2120;}
7148          goto T2122;          goto T2110;
         goto T2132;  
 T2132:;  
         V1008= CMPcdr((V1008));  
         V1009= CMPcar((V1008));  
         goto T2127;}  
         goto T2122;  
 T2122:;  
         {object V1010 = Ct;  
         VMR118(V1010)}  
7149          goto T2120;          goto T2120;
7150  T2120:;  T2120:;
7151          V1005= CMPcdr((V1005));          V955= CMPcdr((V955));
7152          V1006= CMPcar((V1005));          V956= CMPcar((V955));
7153          goto T2115;}          goto T2115;}
7154            goto T2110;
7155    T2110:;
7156            {object V957 = Ct;
7157            VMR118(V957)}
7158            goto T2108;
7159    T2108:;
7160            V952= CMPcdr((V952));
7161            V953= CMPcar((V952));
7162            goto T2103;}
7163          base[0]=base[0];          base[0]=base[0];
7164          return Cnil;          return Cnil;
7165  }  }
7166  /*      local entry for function UPDATE-DFUN    */  /*      local entry for function UPDATE-DFUN    */
7167    
7168  static object LI130(object V1011,object first,...)  static object LI130(object V958,object first,...)
7169  {        {      
7170          va_list ap;          va_list ap;
7171          int narg = VFUN_NARGS; VMB119 VMS119 VMV119          int narg = VFUN_NARGS; VMB119 VMS119 VMV119
7172          {register object V1012;          {register object V959;
7173          object V1013;          object V960;
7174          object V1014;          object V961;
7175          object V1015;          object V962;
7176          va_start(ap,first);          va_start(ap,first);
7177          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
7178          V1012= V1011;          V959= V958;
7179          narg = narg - 1;          narg = narg - 1;
7180          if (narg <= 0) goto T2146;          if (narg <= 0) goto T2134;
7181          else {          else {
7182          V1013= first;}          V960= first;}
7183          if (--narg <= 0) goto T2147;          if (--narg <= 0) goto T2135;
7184          else {          else {
7185          V1014= va_arg(ap,object);}          V961= va_arg(ap,object);}
7186          if (--narg <= 0) goto T2148;          if (--narg <= 0) goto T2136;
7187          else {          else {
7188          V1015= va_arg(ap,object);}          V962= va_arg(ap,object);}
7189          --narg; goto T2149;          --narg; goto T2137;
7190          goto T2146;          goto T2134;
7191  T2146:;  T2134:;
7192          V1013= Cnil;          V960= Cnil;
7193          goto T2147;          goto T2135;
7194  T2147:;  T2135:;
7195          V1014= Cnil;          V961= Cnil;
7196          goto T2148;          goto T2136;
7197  T2148:;  T2136:;
7198          V1015= Cnil;          V962= Cnil;
7199          goto T2149;          goto T2137;
7200  T2149:;  T2137:;
7201          {object V1016;          {object V963;
7202          object V1017;          object V964;
7203          object V1018;          object V965;
7204          V1016= (*(LnkLI196))((V1012));          V963= (*(LnkLI213))((V959));
7205          if(((V1016))==Cnil){          if(((V963))==Cnil){
7206          goto T2156;}          goto T2144;}
7207          V1017= (*(LnkLI311))((V1012));          V964= (*(LnkLI327))((V959));
7208          goto T2154;          goto T2142;
7209          goto T2156;          goto T2144;
7210  T2156:;  T2144:;
7211          base[3]= (V1012);          base[3]= (V959);
7212          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7213          (void) (*Lnk162)(Lclptr162);          (void) (*Lnk178)(Lclptr178);
         vs_top=sup;  
         V1017= vs_base[0];  
         goto T2154;  
 T2154:;  
         V1018= (*(LnkLI220))((V1012));  
         (void)((VFUN_NARGS=4,(*(LnkLI230))((V1012),(V1013),(V1014),(V1015))));  
         {register object V1019;  
         object V1020;  
         if(((V1016))==Cnil){  
         goto T2163;}  
         if((V1013)!=Cnil){  
         V1019= (V1013);  
         goto T2161;}  
         V1019= (*(LnkLI312))((V1012));  
         goto T2161;  
         goto T2163;  
 T2163:;  
         base[5]= (V1012);  
         vs_top=(vs_base=base+5)+1;  
         (void) (*Lnk313)(Lclptr313);  
7214          vs_top=sup;          vs_top=sup;
7215          V1019= vs_base[0];          V964= vs_base[0];
7216          goto T2161;          goto T2142;
7217  T2161:;  T2142:;
7218          V1020= (*(LnkLI218))((V1012));          V965= (*(LnkLI237))((V959));
7219          base[5]= (V1020);          (void)((VFUN_NARGS=4,(*(LnkLI247))((V959),(V960),(V961),(V962))));
7220          vs_top=(vs_base=base+5)+1;          {object V966;
7221          Ltype_of();          if(((V963))==Cnil){
7222          vs_top=sup;          goto T2151;}
7223          V1021= vs_base[0];          if((V960)!=Cnil){
7224          if((VV[15])==(V1021)){          V966= (V960);
7225          goto T2167;}          goto T2149;}
7226          V1022 = (V1012);          V966= (*(LnkLI328))((V959));
7227          base[5]= (V1019);          goto T2149;
7228          base[6]= (V1017);          goto T2151;
7229          vs_top=(vs_base=base+5)+2;  T2151:;
7230          (void) (*Lnk315)();          base[3]= (V959);
7231            vs_top=(vs_base=base+3)+1;
7232            (void) (*Lnk329)(Lclptr329);
7233          vs_top=sup;          vs_top=sup;
7234          V1023= vs_base[0];          V966= vs_base[0];
7235          V1019= (*(LnkLI314))(V1022,V1023);          goto T2149;
7236          goto T2167;  T2149:;
7237  T2167:;          (void)((*(LnkLI330))((V959),(V966)));
7238          (void)((*(LnkLI316))((V1012),(V1019)));          if(((V965))==Cnil){
7239          if(((V1018))==Cnil){          goto T2155;}
7240          goto T2177;}          if(((V965))==((V961))){
7241          if(((V1018))==((V1014))){          goto T2155;}
7242          goto T2177;}          (void)((*(LnkLI331))((V965)));
7243          (void)((*(LnkLI317))((V1018)));          goto T2155;
7244          goto T2177;  T2155:;
7245  T2177:;          {object V967 = (V966);
7246          {object V1024 = (V1019);          VMR119(V967)}}}
         VMR119(V1024)}}}  
7247          va_end(ap);          va_end(ap);
7248          base[0]=base[0];          base[0]=base[0];
7249          return Cnil;}          return Cnil;}
7250          }          }
7251  /*      local entry for function LIST-DFUN      */  /*      local entry for function LIST-DFUN      */
7252    
7253  static object LI131(V1026)  static object LI131(V969)
7254    
7255  object V1026;  object V969;
7256  {        VMB120 VMS120 VMV120  {        VMB120 VMS120 VMV120
7257          goto TTL;          goto TTL;
7258  TTL:;  TTL:;
7259          {object V1027;          {object V970;
7260          object V1028;          object V971;
7261          base[2]= (*(LnkLI218))((V1026));          base[2]= (*(LnkLI235))((V969));
7262          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7263          Ltype_of();          Ltype_of();
7264          vs_top=sup;          vs_top=sup;
7265          V1027= vs_base[0];          V970= vs_base[0];
7266          {register object x= (V1027),V1029= (VV[152]->s.s_dbind);          {register object x= (V970),V972= (VV[168]->s.s_dbind);
7267          while(V1029!=Cnil)          while(V972!=Cnil)
7268          if(EQ(x,V1029->c.c_car->c.c_car) &&V1029->c.c_car != Cnil){          if(EQ(x,V972->c.c_car->c.c_car) &&V972->c.c_car != Cnil){
7269          V1028= (V1029->c.c_car);          V971= (V972->c.c_car);
7270          goto T2184;          goto T2162;
7271          }else V1029=V1029->c.c_cdr;          }else V972=V972->c.c_cdr;
7272          V1028= Cnil;}          V971= Cnil;}
7273          goto T2184;          goto T2162;
7274  T2184:;  T2162:;
7275          if(((V1028))!=Cnil){          if(((V971))!=Cnil){
7276          goto T2185;}          goto T2163;}
7277          {object V1030;          {object V973;
7278          V1028= make_cons((V1027),Cnil);          V971= make_cons((V970),Cnil);
7279          V1030= (V1028);          V973= (V971);
7280          (VV[152]->s.s_dbind)= make_cons((V1030),(VV[152]->s.s_dbind));}          (VV[168]->s.s_dbind)= make_cons((V973),(VV[168]->s.s_dbind));}
7281          goto T2185;          goto T2163;
7282  T2185:;  T2163:;
7283          {object V1031;          {object V974;
7284          object V1033;          object V976;
7285          base[4]= (V1026);          base[4]= (V969);
7286          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7287          (void) (*Lnk162)(Lclptr162);          (void) (*Lnk178)(Lclptr178);
7288          vs_top=sup;          vs_top=sup;
7289          V1031= vs_base[0];          V974= vs_base[0];
7290          V1033= make_cons((V1031),CMPcdr(V1028));          V976= make_cons((V974),CMPcdr(V971));
7291          (V1028)->c.c_cdr = (V1033);          (V971)->c.c_cdr = (V976);
7292          {object V1034 = (V1033);          {object V977 = (V976);
7293          VMR120(V1034)}}}          VMR120(V977)}}}
7294          base[0]=base[0];          base[0]=base[0];
7295          return Cnil;          return Cnil;
7296  }  }
# Line 7431  static object LI132() Line 7301  static object LI132()
7301  {        VMB121 VMS121 VMV121  {        VMB121 VMS121 VMV121
7302          goto TTL;          goto TTL;
7303  TTL:;  TTL:;
7304          (VV[152]->s.s_dbind)= Cnil;          (VV[168]->s.s_dbind)= Cnil;
7305          V1035= (VV[319]->s.s_gfdef);          V978= (VV[333]->s.s_gfdef);
7306          (void)((*(LnkLI318))(V1035));          (void)((*(LnkLI332))(V978));
7307          {object V1036 = (VV[152]->s.s_dbind);          {object V979 = (VV[168]->s.s_dbind);
7308          VMR121(V1036)}          VMR121(V979)}
7309          return Cnil;          return Cnil;
7310  }  }
7311  /*      local entry for function LIST-LARGE-CACHE       */  /*      local entry for function LIST-LARGE-CACHE       */
7312    
7313  static object LI133(V1038)  static object LI133(V981)
7314    
7315  object V1038;  object V981;
7316  {        VMB122 VMS122 VMV122  {        VMB122 VMS122 VMV122
7317          goto TTL;          goto TTL;
7318  TTL:;  TTL:;
7319          {object V1039;          {object V982;
7320          object V1040;          object V983;
7321          base[2]= (*(LnkLI218))((V1038));          base[2]= (*(LnkLI235))((V981));
7322          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7323          Ltype_of();          Ltype_of();
7324          vs_top=sup;          vs_top=sup;
7325          V1039= vs_base[0];          V982= vs_base[0];
7326          V1040= (*(LnkLI220))((V1038));          V983= (*(LnkLI237))((V981));
7327          if(((V1040))==Cnil){          if(((V983))==Cnil){
7328          goto T2203;}          goto T2181;}
7329          {object V1041;          {object V984;
7330          V1041= CMPmake_fixnum((long)STREF(fixnum,(V1040),28));          V984= CMPmake_fixnum((long)STREF(fixnum,(V983),28));
7331          if(!(number_compare((V1041),(VV[154]->s.s_dbind))>=0)){          if(!(number_compare((V984),(VV[170]->s.s_dbind))>=0)){
7332          goto T2207;}          goto T2185;}
7333          {object V1042;          {object V985;
7334          {register object x= (V1041),V1043= (VV[152]->s.s_dbind);          {register object x= (V984),V986= (VV[168]->s.s_dbind);
7335          while(V1043!=Cnil)          while(V986!=Cnil)
7336          if(eql(x,V1043->c.c_car->c.c_car) &&V1043->c.c_car != Cnil){          if(eql(x,V986->c.c_car->c.c_car) &&V986->c.c_car != Cnil){
7337          V1042= (V1043->c.c_car);          V985= (V986->c.c_car);
7338          goto T2209;          goto T2187;
7339          }else V1043=V1043->c.c_cdr;          }else V986=V986->c.c_cdr;
7340          V1042= Cnil;}          V985= Cnil;}
7341          goto T2209;          goto T2187;
7342  T2209:;  T2187:;
7343          if(((V1042))!=Cnil){          if(((V985))!=Cnil){
7344          goto T2210;}          goto T2188;}
7345          {object V1044;          {object V987;
7346          V1042= make_cons((V1041),Cnil);          V985= make_cons((V984),Cnil);
7347          V1044= (V1042);          V987= (V985);
7348          (VV[152]->s.s_dbind)= make_cons((V1044),(VV[152]->s.s_dbind));}          (VV[168]->s.s_dbind)= make_cons((V987),(VV[168]->s.s_dbind));}
7349          goto T2210;          goto T2188;
7350  T2210:;  T2188:;
7351          {object V1045;          {object V988;
7352          object V1047;          object V990;
7353          {object V1048;          {object V991;
7354          base[4]= (V1038);          base[4]= (V981);
7355          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7356          (void) (*Lnk162)(Lclptr162);          (void) (*Lnk178)(Lclptr178);
7357          vs_top=sup;          vs_top=sup;
7358          V1048= vs_base[0];          V991= vs_base[0];
7359          if(!(((V1039))==(VV[13]))){          if(!(((V982))==(VV[11]))){
7360          goto T2220;}          goto T2198;}
7361          V1045= (V1048);          V988= (V991);
7362          goto T2216;          goto T2194;
7363          goto T2220;          goto T2198;
7364  T2220:;  T2198:;
7365          V1045= list(2,(V1048),(V1039));}          V988= list(2,(V991),(V982));}
7366          goto T2216;          goto T2194;
7367  T2216:;  T2194:;
7368          V1047= make_cons((V1045),CMPcdr(V1042));          V990= make_cons((V988),CMPcdr(V985));
7369          (V1042)->c.c_cdr = (V1047);          (V985)->c.c_cdr = (V990);
7370          {object V1049 = (V1047);          {object V992 = (V990);
7371          VMR122(V1049)}}}          VMR122(V992)}}}
7372          goto T2207;          goto T2185;
7373  T2207:;  T2185:;
7374          {object V1050 = Cnil;          {object V993 = Cnil;
7375          VMR122(V1050)}}          VMR122(V993)}}
7376          goto T2203;          goto T2181;
7377  T2203:;  T2181:;
7378          {object V1051 = Cnil;          {object V994 = Cnil;
7379          VMR122(V1051)}}          VMR122(V994)}}
7380          base[0]=base[0];          base[0]=base[0];
7381          return Cnil;          return Cnil;
7382  }  }
# Line 7518  static void L134() Line 7388  static void L134()
7388          vs_check;          vs_check;
7389          bds_check;          bds_check;
7390          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
7391          if(vs_base>=vs_top){vs_top=sup;goto T2224;}          if(vs_base>=vs_top){vs_top=sup;goto T2202;}
7392          bds_bind(VV[154],base[0]);          bds_bind(VV[170],base[0]);
7393          vs_top=sup;          vs_top=sup;
7394          goto T2225;          goto T2203;
7395          goto T2224;          goto T2202;
7396  T2224:;  T2202:;
7397          bds_bind(VV[154],small_fixnum(130));          bds_bind(VV[170],small_fixnum(130));
7398          goto T2225;          goto T2203;
7399  T2225:;  T2203:;
7400          (VV[152]->s.s_dbind)= Cnil;          (VV[168]->s.s_dbind)= Cnil;
7401          V1052= (VV[320]->s.s_gfdef);          V995= (VV[334]->s.s_gfdef);
7402          (void)((*(LnkLI318))(V1052));          (void)((*(LnkLI332))(V995));
7403          base[1]= (VV[152]->s.s_dbind);          base[1]= (VV[168]->s.s_dbind);
7404          base[2]= (VV[321]->s.s_gfdef);          base[2]= (VV[335]->s.s_gfdef);
7405          base[3]= VV[155];          base[3]= VV[171];
7406          base[4]= (VV[322]->s.s_gfdef);          base[4]= (VV[336]->s.s_gfdef);
7407          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
7408          (void) (*Lnk323)();          (void) (*Lnk337)();
7409          vs_top=sup;          vs_top=sup;
7410          (VV[152]->s.s_dbind)= vs_base[0];          (VV[168]->s.s_dbind)= vs_base[0];
7411          base[1]= (VV[152]->s.s_dbind);          base[1]= (VV[168]->s.s_dbind);
7412          {          {
7413          object V1053= base[1];          object V996= base[1];
7414          if(V1053==Cnil){          if(V996==Cnil){
7415          goto T2237;}          goto T2215;}
7416          goto T2238;          goto T2216;
7417  T2238:;  T2216:;
7418          (void)(print((V1053->c.c_car),Cnil));          (void)(print((V996->c.c_car),Cnil));
7419          if((V1053=MMcdr(V1053))==Cnil){          if((V996=MMcdr(V996))==Cnil){
7420          goto T2237;}          goto T2215;}
7421          goto T2238;}          goto T2216;}
7422          goto T2237;          goto T2215;
7423  T2237:;  T2215:;
7424          vs_base=vs_top=base+1;          vs_base=vs_top=base+1;
7425          vs_base[0]=Cnil;          vs_base[0]=Cnil;
7426          bds_unwind1;          bds_unwind1;
# Line 7558  T2237:; Line 7428  T2237:;
7428  }  }
7429  /*      local entry for function COUNT-DFUN     */  /*      local entry for function COUNT-DFUN     */
7430    
7431  static object LI135(V1055)  static object LI135(V998)
7432    
7433  object V1055;  object V998;
7434  {        VMB124 VMS124 VMV124  {        VMB124 VMS124 VMV124
7435          goto TTL;          goto TTL;
7436  TTL:;  TTL:;
7437          {object V1056;          {object V999;
7438          object V1057;          object V1000;
7439          register object V1058;          register object V1001;
7440          base[3]= (*(LnkLI218))((V1055));          base[3]= (*(LnkLI235))((V998));
7441          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7442          Ltype_of();          Ltype_of();
7443          vs_top=sup;          vs_top=sup;
7444          V1056= vs_base[0];          V999= vs_base[0];
7445          V1057= (*(LnkLI220))((V1055));          V1000= (*(LnkLI237))((V998));
7446          {register object x= (V1056),V1059= (VV[156]->s.s_dbind);          {register object x= (V999),V1002= (VV[172]->s.s_dbind);
7447          while(V1059!=Cnil)          while(V1002!=Cnil)
7448          if(EQ(x,V1059->c.c_car->c.c_car) &&V1059->c.c_car != Cnil){          if(EQ(x,V1002->c.c_car->c.c_car) &&V1002->c.c_car != Cnil){
7449          V1058= (V1059->c.c_car);          V1001= (V1002->c.c_car);
7450          goto T2243;          goto T2221;
7451          }else V1059=V1059->c.c_cdr;          }else V1002=V1002->c.c_cdr;
7452          V1058= Cnil;}          V1001= Cnil;}
7453          goto T2243;          goto T2221;
7454  T2243:;  T2221:;
7455          if(((V1058))!=Cnil){          if(((V1001))!=Cnil){
7456          goto T2244;}          goto T2222;}
7457          {object V1060;          {object V1003;
7458          V1058= list(3,(V1056),small_fixnum(0),Cnil);          V1001= list(3,(V999),small_fixnum(0),Cnil);
7459          V1060= (V1058);          V1003= (V1001);
7460          (VV[156]->s.s_dbind)= make_cons((V1060),(VV[156]->s.s_dbind));}          (VV[172]->s.s_dbind)= make_cons((V1003),(VV[172]->s.s_dbind));}
7461          goto T2244;          goto T2222;
7462  T2244:;  T2222:;
7463          {object V1062;          {object V1005;
7464          V1062= number_plus(CMPcadr(V1058),small_fixnum(1));          V1005= number_plus(CMPcadr(V1001),small_fixnum(1));
7465          (CMPcdr(V1058))->c.c_car = (V1062);          (CMPcdr(V1001))->c.c_car = (V1005);
7466          (void)(CMPcdr(V1058));}          (void)(CMPcdr(V1001));}
7467          if(((V1057))==Cnil){          if(((V1000))==Cnil){
7468          goto T2254;}          goto T2232;}
7469          {object V1063;          {object V1006;
7470          object V1064;          object V1007;
7471          V1063= CMPmake_fixnum((long)STREF(fixnum,(V1057),28));          V1006= CMPmake_fixnum((long)STREF(fixnum,(V1000),28));
7472          {register object x= (V1063),V1065= CMPcaddr((V1058));          {register object x= (V1006),V1008= CMPcaddr((V1001));
7473          while(V1065!=Cnil)          while(V1008!=Cnil)
7474          if(eql(x,V1065->c.c_car->c.c_car) &&V1065->c.c_car != Cnil){          if(eql(x,V1008->c.c_car->c.c_car) &&V1008->c.c_car != Cnil){
7475          V1064= (V1065->c.c_car);          V1007= (V1008->c.c_car);
7476          goto T2257;          goto T2235;
7477          }else V1065=V1065->c.c_cdr;          }else V1008=V1008->c.c_cdr;
7478          V1064= Cnil;}          V1007= Cnil;}
7479          goto T2257;          goto T2235;
7480  T2257:;  T2235:;
7481          if(((V1064))!=Cnil){          if(((V1007))!=Cnil){
7482          goto T2258;}          goto T2236;}
7483          {object V1066;          {object V1009;
7484          object V1068;          object V1011;
7485          V1064= make_cons((V1063),small_fixnum(0));          V1007= make_cons((V1006),small_fixnum(0));
7486          V1066= (V1064);          V1009= (V1007);
7487          V1068= make_cons((V1066),CMPcaddr(V1058));          V1011= make_cons((V1009),CMPcaddr(V1001));
7488          (CMPcddr(V1058))->c.c_car = (V1068);          (CMPcddr(V1001))->c.c_car = (V1011);
7489          (void)(CMPcddr(V1058));}          (void)(CMPcddr(V1001));}
7490          goto T2258;          goto T2236;
7491  T2258:;  T2236:;
7492          {object V1070;          {object V1013;
7493          V1070= number_plus(CMPcdr(V1064),small_fixnum(1));          V1013= number_plus(CMPcdr(V1007),small_fixnum(1));
7494          (V1064)->c.c_cdr = (V1070);          (V1007)->c.c_cdr = (V1013);
7495          {object V1071 = (V1070);          {object V1014 = (V1013);
7496          VMR124(V1071)}}}          VMR124(V1014)}}}
7497          goto T2254;          goto T2232;
7498  T2254:;  T2232:;
7499          {object V1072 = Cnil;          {object V1015 = Cnil;
7500          VMR124(V1072)}}          VMR124(V1015)}}
7501          base[0]=base[0];          base[0]=base[0];
7502          return Cnil;          return Cnil;
7503  }  }
# Line 7641  static void L136() Line 7511  static void L136()
7511          vs_top=sup;          vs_top=sup;
7512          goto TTL;          goto TTL;
7513  TTL:;  TTL:;
7514          {object V1073;          {object V1016;
7515          object V1074= VV[157];          object V1017= VV[173];
7516          if(V1074==Cnil){          if(V1017==Cnil){
7517          (VV[156]->s.s_dbind)= Cnil;          (VV[172]->s.s_dbind)= Cnil;
7518          goto T2268;}          goto T2246;}
7519          base[0]=V1073=MMcons(Cnil,Cnil);          base[0]=V1016=MMcons(Cnil,Cnil);
7520          goto T2269;          goto T2247;
7521  T2269:;  T2247:;
7522          (V1073->c.c_car)= list(3,(V1074->c.c_car),small_fixnum(0),Cnil);          (V1016->c.c_car)= list(3,(V1017->c.c_car),small_fixnum(0),Cnil);
7523          if((V1074=MMcdr(V1074))==Cnil){          if((V1017=MMcdr(V1017))==Cnil){
7524          (VV[156]->s.s_dbind)= base[0];          (VV[172]->s.s_dbind)= base[0];
7525          goto T2268;}          goto T2246;}
7526          V1073=MMcdr(V1073)=MMcons(Cnil,Cnil);          V1016=MMcdr(V1016)=MMcons(Cnil,Cnil);
7527          goto T2269;}          goto T2247;}
7528          goto T2268;          goto T2246;
7529  T2268:;  T2246:;
7530          V1076= (VV[324]->s.s_gfdef);          V1019= (VV[338]->s.s_gfdef);
7531          (void)((*(LnkLI318))(V1076));          (void)((*(LnkLI332))(V1019));
7532          base[0]= (VV[156]->s.s_dbind);          base[0]= (VV[172]->s.s_dbind);
7533          {          {
7534          object V1077= base[0];          object V1020= base[0];
7535          if(V1077==Cnil){          if(V1020==Cnil){
7536          goto T2273;}          goto T2251;}
7537          goto T2274;          goto T2252;
7538  T2274:;  T2252:;
7539          {object V1080;          {object V1023;
7540          base[2]= CMPcaddr((V1077->c.c_car));          base[2]= CMPcaddr((V1020->c.c_car));
7541          base[3]= (VV[321]->s.s_gfdef);          base[3]= (VV[335]->s.s_gfdef);
7542          base[4]= VV[155];          base[4]= VV[171];
7543          base[5]= (VV[322]->s.s_gfdef);          base[5]= (VV[336]->s.s_gfdef);
7544          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
7545          (void) (*Lnk323)();          (void) (*Lnk337)();
7546          vs_top=sup;          vs_top=sup;
7547          V1080= vs_base[0];          V1023= vs_base[0];
7548          (CMPcddr((V1077->c.c_car)))->c.c_car = (V1080);          (CMPcddr((V1020->c.c_car)))->c.c_car = (V1023);
7549          (void)(CMPcddr((V1077->c.c_car)));}          (void)(CMPcddr((V1020->c.c_car)));}
7550          if((V1077=MMcdr(V1077))==Cnil){          if((V1020=MMcdr(V1020))==Cnil){
7551          goto T2273;}          goto T2251;}
7552          goto T2274;}          goto T2252;}
7553          goto T2273;          goto T2251;
7554  T2273:;  T2251:;
7555          base[0]= (VV[156]->s.s_dbind);          base[0]= (VV[172]->s.s_dbind);
7556          {          {
7557          object V1081= base[0];          object V1024= base[0];
7558          if(V1081==Cnil){          if(V1024==Cnil){
7559          goto T2282;}          goto T2260;}
7560          goto T2283;          goto T2261;
7561  T2283:;  T2261:;
7562          base[1]= Ct;          base[1]= Ct;
7563          base[2]= VV[158];          base[2]= VV[174];
7564          base[3]= CMPcadr((V1081->c.c_car));          base[3]= CMPcadr((V1024->c.c_car));
7565          base[4]= CMPcar((V1081->c.c_car));          base[4]= CMPcar((V1024->c.c_car));
7566          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
7567          Lformat();          Lformat();
7568          vs_top=sup;          vs_top=sup;
7569          base[1]= Ct;          base[1]= Ct;
7570          base[2]= VV[159];          base[2]= VV[175];
7571          base[3]= CMPcaddr((V1081->c.c_car));          base[3]= CMPcaddr((V1024->c.c_car));
7572          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
7573          Lformat();          Lformat();
7574          vs_top=sup;          vs_top=sup;
7575          if((V1081=MMcdr(V1081))==Cnil){          if((V1024=MMcdr(V1024))==Cnil){
7576          goto T2282;}          goto T2260;}
7577          goto T2283;}          goto T2261;}
7578          goto T2282;          goto T2260;
7579  T2282:;  T2260:;
7580          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
7581          vs_base[0]=Cnil;          vs_base[0]=Cnil;
7582          return;          return;
7583  }  }
7584  /*      local entry for function GFS-OF-TYPE    */  /*      local entry for function GFS-OF-TYPE    */
7585    
7586  static object LI138(V1084)  static object LI138(V1027)
7587    
7588  object V1084;  object V1027;
7589  {        VMB126 VMS126 VMV126  {        VMB126 VMS126 VMV126
7590          goto TTL;          goto TTL;
7591  TTL:;  TTL:;
7592          base[0]=MMcons((V1084),Cnil);          base[0]=MMcons((V1027),Cnil);
7593          if(type_of((base[0]->c.c_car))==t_cons){          if(type_of((base[0]->c.c_car))==t_cons){
7594          goto T2293;}          goto T2271;}
7595          (base[0]->c.c_car)= make_cons((base[0]->c.c_car),Cnil);          (base[0]->c.c_car)= make_cons((base[0]->c.c_car),Cnil);
7596          goto T2293;          goto T2271;
7597  T2293:;  T2271:;
7598          base[1]=MMcons(Cnil,base[0]);          base[1]=MMcons(Cnil,base[0]);
7599          V1085=          V1028=
7600          make_cclosure_new(LC167,Cnil,base[1],Cdata);          make_cclosure_new(LC167,Cnil,base[1],Cdata);
7601          (void)((*(LnkLI318))(V1085));          (void)((*(LnkLI332))(V1028));
7602          {object V1086 = (base[1]->c.c_car);          {object V1029 = (base[1]->c.c_car);
7603          VMR126(V1086)}          VMR126(V1029)}
7604          base[0]=base[0];          base[0]=base[0];
7605          return Cnil;          return Cnil;
7606  }  }
# Line 7741  register object *base0; Line 7611  register object *base0;
7611  {       register object *base=vs_base;  {       register object *base=vs_base;
7612          register object *sup=base+VM127; VC127          register object *sup=base+VM127; VC127
7613          vs_check;          vs_check;
7614          {object V1087;          {object V1030;
7615          check_arg(1);          check_arg(1);
7616          V1087=(base[0]);          V1030=(base[0]);
7617          vs_top=sup;          vs_top=sup;
7618          base[1]= (*(LnkLI218))((V1087));          base[1]= (*(LnkLI235))((V1030));
7619          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7620          Ltype_of();          Ltype_of();
7621          vs_top=sup;          vs_top=sup;
7622          V1089= vs_base[0];          V1032= vs_base[0];
7623          V1090 = (base0[1]->c.c_car);          {register object x= V1032,V1031= (base0[1]->c.c_car);
7624          {register object x= V1089,V1088= V1090;          while(V1031!=Cnil)
7625          while(V1088!=Cnil)          if(x==(V1031->c.c_car)){
7626          if(x==(V1088->c.c_car)){          goto T2279;
7627          goto T2301;          }else V1031=V1031->c.c_cdr;
7628          }else V1088=V1088->c.c_cdr;          goto T2278;}
7629          goto T2300;}          goto T2279;
7630          goto T2301;  T2279:;
7631  T2301:;          (base0[0]->c.c_car)= make_cons(V1030,(base0[0]->c.c_car));
         (base0[0]->c.c_car)= make_cons(V1087,(base0[0]->c.c_car));  
7632          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
7633          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7634          return;          return;
7635          goto T2300;          goto T2278;
7636  T2300:;  T2278:;
7637          base[1]= Cnil;          base[1]= Cnil;
7638          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7639          return;          return;
# Line 7777  register object *base0; Line 7646  register object *base0;
7646  {       register object *base=vs_base;  {       register object *base=vs_base;
7647          register object *sup=base+VM128; VC128          register object *sup=base+VM128; VC128
7648          vs_check;          vs_check;
7649          {object V1092;          {object V1034;
7650          object V1093;          object V1035;
7651          check_arg(2);          check_arg(2);
7652          V1092=(base[0]);          V1034=(base[0]);
7653          V1093=(base[1]);          V1035=(base[1]);
7654          vs_top=sup;          vs_top=sup;
7655          base[2]=          base[2]=
7656          make_cclosure_new(LC168,Cnil,base0[0],Cdata);          make_cclosure_new(LC168,Cnil,base0[0],Cdata);
# Line 7796  register object *base0; Line 7665  register object *base0;
7665  {       register object *base=vs_base;  {       register object *base=vs_base;
7666          register object *sup=base+VM129; VC129          register object *sup=base+VM129; VC129
7667          vs_check;          vs_check;
7668          {object V1094;          {object V1036;
7669          vs_top[0]=Cnil;          vs_top[0]=Cnil;
7670          {object *p=vs_top;          {object *p=vs_top;
7671           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
7672          V1094=(base[0]);          V1036=(base[0]);
7673          vs_top=sup;          vs_top=sup;
7674          base[1]=VV[250]->s.s_gfdef;          base[1]=VV[339]->s.s_gfdef;
7675          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
7676          {object V1095;          {object V1037;
7677          V1095= (V1094);          V1037= (V1036);
7678           vs_top=base+3;           vs_top=base+3;
7679           while(V1095!=Cnil)           while(V1037!=Cnil)
7680           {vs_push((V1095)->c.c_car);V1095=(V1095)->c.c_cdr;}           {vs_push((V1037)->c.c_car);V1037=(V1037)->c.c_cdr;}
7681          vs_base=base+2;}          vs_base=base+2;}
7682          (void) (*Lnk250)(Lclptr250);          (void) (*Lnk339)(Lclptr339);
7683          return;          return;
7684          }          }
7685  }  }
# Line 7821  register object *base0; Line 7690  register object *base0;
7690  {       register object *base=vs_base;  {       register object *base=vs_base;
7691          register object *sup=base+VM130; VC130          register object *sup=base+VM130; VC130
7692          vs_check;          vs_check;
7693          {object V1096;          {object V1038;
7694          object V1097;          object V1039;
7695          check_arg(2);          check_arg(2);
7696          V1096=(base[0]);          V1038=(base[0]);
7697          V1097=(base[1]);          V1039=(base[1]);
7698          vs_top=sup;          vs_top=sup;
7699          base[2]=          base[2]=
7700          make_cclosure_new(LC169,Cnil,base0[0],Cdata);          make_cclosure_new(LC169,Cnil,base0[0],Cdata);
# Line 7840  register object *base0; Line 7709  register object *base0;
7709  {       register object *base=vs_base;  {       register object *base=vs_base;
7710          register object *sup=base+VM131; VC131          register object *sup=base+VM131; VC131
7711          vs_check;          vs_check;
7712          {object V1098;          {object V1040;
7713          vs_top[0]=Cnil;          vs_top[0]=Cnil;
7714          {object *p=vs_top;          {object *p=vs_top;
7715           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
7716          V1098=(base[0]);          V1040=(base[0]);
7717          vs_top=sup;          vs_top=sup;
7718          base[1]=VV[250]->s.s_gfdef;          base[1]=VV[339]->s.s_gfdef;
7719          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
7720          {object V1099;          {object V1041;
7721          V1099= (V1098);          V1041= (V1040);
7722           vs_top=base+3;           vs_top=base+3;
7723           while(V1099!=Cnil)           while(V1041!=Cnil)
7724           {vs_push((V1099)->c.c_car);V1099=(V1099)->c.c_cdr;}           {vs_push((V1041)->c.c_car);V1041=(V1041)->c.c_cdr;}
7725          vs_base=base+2;}          vs_base=base+2;}
7726          (void) (*Lnk250)(Lclptr250);          (void) (*Lnk339)(Lclptr339);
7727          return;          return;
7728          }          }
7729  }  }
# Line 7865  register object *base0; Line 7734  register object *base0;
7734  {       register object *base=vs_base;  {       register object *base=vs_base;
7735          register object *sup=base+VM132; VC132          register object *sup=base+VM132; VC132
7736          vs_check;          vs_check;
7737          {object V1100;          {object V1042;
7738          check_arg(1);          check_arg(1);
7739          V1100=(base[0]);          V1042=(base[0]);
7740          vs_top=sup;          vs_top=sup;
7741          goto TTL;          goto TTL;
7742  TTL:;  TTL:;
7743          if((base0[2])==Cnil){          if((base0[2])==Cnil){
7744          goto T2313;}          goto T2291;}
7745          base[1]= (V1100);          base[1]= (V1042);
7746          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7747          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk309)(Lclptr309);
7748          vs_top=sup;          vs_top=sup;
7749          V1102= vs_base[0];          V1044= vs_base[0];
7750          goto T2311;          goto T2289;
7751          goto T2313;          goto T2291;
7752  T2313:;  T2291:;
7753          V1102= (*(LnkLI325))((V1100));          V1044= (*(LnkLI340))((V1042));
7754          goto T2311;          goto T2289;
7755  T2311:;  T2289:;
7756          {          {
7757          object V1101= V1102;          object V1043= V1044;
7758          if(V1101==Cnil){          if(V1043==Cnil){
7759          goto T2309;}          goto T2287;}
7760          goto T2310;          goto T2288;
7761  T2310:;  T2288:;
7762          base[1]= (V1101->c.c_car);          base[1]= (V1043->c.c_car);
7763          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7764          L123(base0);          L123(base0);
7765          vs_top=sup;          vs_top=sup;
7766          if((V1101=MMcdr(V1101))==Cnil){          if((V1043=MMcdr(V1043))==Cnil){
7767          goto T2309;}          goto T2287;}
7768          goto T2310;}          goto T2288;}
7769          goto T2309;          goto T2287;
7770  T2309:;  T2287:;
7771          base[1]= (V1100);          base[1]= (V1042);
7772          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7773          {object _funobj = base0[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base0[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
7774                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7915  register object *base0; Line 7784  register object *base0;
7784  {       register object *base=vs_base;  {       register object *base=vs_base;
7785          register object *sup=base+VM133; VC133          register object *sup=base+VM133; VC133
7786          vs_check;          vs_check;
7787          {object V1103;          {object V1045;
7788          object V1104;          object V1046;
7789          object V1105;          object V1047;
7790          check_arg(3);          check_arg(3);
7791          V1103=(base[0]);          V1045=(base[0]);
7792          V1104=(base[1]);          V1046=(base[1]);
7793          V1105=(base[2]);          V1047=(base[2]);
7794          vs_top=sup;          vs_top=sup;
7795          {object V1106;          {object V1048;
7796          V1106= Cnil;          V1048= Cnil;
7797          {object V1107;          {object V1049;
7798          register object V1108;          register object V1050;
7799          V1107= (base0[0]->c.c_car);          V1049= (base0[0]->c.c_car);
7800          V1108= CMPcar((V1107));          V1050= CMPcar((V1049));
7801          goto T2323;          goto T2301;
7802  T2323:;  T2301:;
7803          if(!(((V1107))==Cnil)){          if(!(((V1049))==Cnil)){
7804          goto T2324;}          goto T2302;}
7805          goto T2319;          goto T2297;
7806          goto T2324;          goto T2302;
7807  T2324:;  T2302:;
7808          if(!((CMPcar((V1108)))==((V1103)))){          if(!((CMPcar((V1050)))==((V1045)))){
7809            goto T2308;}
7810            if((CMPcadr((V1050)))==((V1046))){
7811            goto T2307;}
7812            goto T2308;
7813    T2308:;
7814            if(!((CMPcar((V1050)))==((V1046)))){
7815            goto T2306;}
7816            if(!((CMPcadr((V1050)))==((V1045)))){
7817            goto T2306;}
7818            goto T2307;
7819    T2307:;
7820            V1048= (V1050);
7821            goto T2297;
7822            goto T2306;
7823    T2306:;
7824            V1049= CMPcdr((V1049));
7825            V1050= CMPcar((V1049));
7826            goto T2301;}
7827            goto T2297;
7828    T2297:;
7829            if(((V1048))!=Cnil){
7830            goto T2321;}
7831            if(((*(LnkLI341))((V1045),(V1046)))==Cnil){
7832            goto T2327;}
7833            if(((*(LnkLI341))((V1046),(V1045)))==Cnil){
7834          goto T2330;}          goto T2330;}
7835          if((CMPcadr((V1108)))==((V1104))){          V1048= list(4,(V1045),(V1046),Cnil,Ct);
7836          goto T2329;}          goto T2325;
7837          goto T2330;          goto T2330;
7838  T2330:;  T2330:;
7839          if(!((CMPcar((V1108)))==((V1104)))){          V1048= list(3,(V1045),(V1046),Ct);
7840          goto T2328;}          goto T2325;
7841          if(!((CMPcadr((V1108)))==((V1103)))){          goto T2327;
7842          goto T2328;}  T2327:;
7843          goto T2329;          if(((*(LnkLI341))((V1046),(V1045)))==Cnil){
7844  T2329:;          goto T2333;}
7845          V1106= (V1108);          V1048= list(3,(V1046),(V1045),Ct);
7846          goto T2319;          goto T2325;
7847          goto T2328;          goto T2333;
7848  T2328:;  T2333:;
7849          V1107= CMPcdr((V1107));          {object V1051;
7850          V1108= CMPcar((V1107));          object V1052;
7851          goto T2323;}          base[3]= (V1045);
         goto T2319;  
 T2319:;  
         if(((V1106))!=Cnil){  
         goto T2343;}  
         if(((*(LnkLI326))((V1103),(V1104)))==Cnil){  
         goto T2349;}  
         if(((*(LnkLI326))((V1104),(V1103)))==Cnil){  
         goto T2352;}  
         V1106= list(4,(V1103),(V1104),Cnil,Ct);  
         goto T2347;  
         goto T2352;  
 T2352:;  
         V1106= list(3,(V1103),(V1104),Ct);  
         goto T2347;  
         goto T2349;  
 T2349:;  
         if(((*(LnkLI326))((V1104),(V1103)))==Cnil){  
         goto T2355;}  
         V1106= list(3,(V1104),(V1103),Ct);  
         goto T2347;  
         goto T2355;  
 T2355:;  
         {object V1109;  
         object V1110;  
         base[3]= (V1103);  
7852          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7853          (void) (*Lnk327)(Lclptr327);          (void) (*Lnk342)(Lclptr342);
7854          vs_top=sup;          vs_top=sup;
7855          V1109= vs_base[0];          V1051= vs_base[0];
7856          base[3]= (V1104);          base[3]= (V1046);
7857          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7858          (void) (*Lnk327)(Lclptr327);          (void) (*Lnk342)(Lclptr342);
7859          vs_top=sup;          vs_top=sup;
7860          V1110= vs_base[0];          V1052= vs_base[0];
7861          if(((V1109))==Cnil){          if(((V1051))==Cnil){
7862          goto T2362;}          goto T2340;}
7863          if(((V1110))==Cnil){          if(((V1052))==Cnil){
7864          goto T2362;}          goto T2340;}
7865          if(!(type_of((V1109))==t_symbol)){          if(!(type_of((V1051))==t_symbol)){
7866          goto T2362;}          goto T2340;}
7867          if(!(type_of((V1110))==t_symbol)){          if(!(type_of((V1052))==t_symbol)){
7868          goto T2362;}          goto T2340;}
7869          base[3]= symbol_name((V1109));          base[3]= symbol_name((V1051));
7870          base[4]= symbol_name((V1110));          base[4]= symbol_name((V1052));
7871          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7872          Lstring_l();          Lstring_l();
7873          vs_top=sup;          vs_top=sup;
7874          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7875          goto T2362;}          goto T2340;}
7876          V1106= list(3,(V1103),(V1104),Ct);          V1048= list(3,(V1045),(V1046),Ct);
7877          goto T2347;          goto T2325;
7878          goto T2362;          goto T2340;
7879  T2362:;  T2340:;
7880          V1106= list(3,(V1104),(V1103),Ct);}          V1048= list(3,(V1046),(V1045),Ct);}
7881          goto T2347;          goto T2325;
7882  T2347:;  T2325:;
7883          (base0[0]->c.c_car)= make_cons(V1106,(base0[0]->c.c_car));          (base0[0]->c.c_car)= make_cons(V1048,(base0[0]->c.c_car));
7884          goto T2343;          goto T2321;
7885  T2343:;  T2321:;
7886          base[3]= CMPcar((V1106));          base[3]= CMPcar((V1048));
7887          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7888          return;}          return;}
7889          }          }
# Line 8026  register object *base0; Line 7895  register object *base0;
7895  {       register object *base=vs_base;  {       register object *base=vs_base;
7896          register object *sup=base+VM134; VC134          register object *sup=base+VM134; VC134
7897          vs_check;          vs_check;
7898          {register object V1112;          {register object V1054;
7899          register object V1113;          register object V1055;
7900          check_arg(2);          check_arg(2);
7901          V1112=(base[0]);          V1054=(base[0]);
7902          V1113=(base[1]);          V1055=(base[1]);
7903          vs_top=sup;          vs_top=sup;
7904          {register object V1114;          {register object V1056;
7905          register object V1115;          register object V1057;
7906          V1114= (base0[0]->c.c_car);          V1056= (base0[0]->c.c_car);
7907          V1115= CMPcar((V1114));          V1057= CMPcar((V1056));
7908          goto T2378;          goto T2356;
7909  T2378:;  T2356:;
7910          if(!(((V1114))==Cnil)){          if(!(((V1056))==Cnil)){
7911          goto T2379;}          goto T2357;}
7912          base[3]= Cnil;          base[3]= Cnil;
7913          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7914          return;          return;
7915          goto T2379;          goto T2357;
7916  T2379:;  T2357:;
7917          {register object V1116;          {register object V1058;
7918          object V1117;          object V1059;
7919          register object V1118;          register object V1060;
7920          V1119 = (V1115);          if(!(type_of((V1054))==t_cons||((V1054))==Cnil)){
7921          if(!(type_of((V1112))==t_cons||((V1112))==Cnil)){          goto T2365;}
7922          goto T2387;}          V1061= (VFUN_NARGS=2,(*(LnkLI291))((V1054),Ct));
7923          V1120= (VFUN_NARGS=2,(*(LnkLI275))((V1112),Ct));          goto T2363;
7924          goto T2385;          goto T2365;
7925          goto T2387;  T2365:;
7926  T2387:;          base[6]= (V1054);
         base[6]= (V1112);  
7927          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
7928          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk259)(Lclptr259);
7929          vs_top=sup;          vs_top=sup;
7930          V1120= vs_base[0];          V1061= vs_base[0];
7931          goto T2385;          goto T2363;
7932  T2385:;  T2363:;
7933          V1116= nth(fix(V1119),V1120);          V1058= nth(fix((V1057)),V1061);
7934          V1121 = (V1115);          if(!(type_of((V1055))==t_cons||((V1055))==Cnil)){
7935          if(!(type_of((V1113))==t_cons||((V1113))==Cnil)){          goto T2371;}
7936          goto T2393;}          V1062= (VFUN_NARGS=2,(*(LnkLI291))((V1055),Ct));
7937          V1122= (VFUN_NARGS=2,(*(LnkLI275))((V1113),Ct));          goto T2369;
7938          goto T2391;          goto T2371;
7939          goto T2393;  T2371:;
7940  T2393:;          base[6]= (V1055);
         base[6]= (V1113);  
7941          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
7942          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk259)(Lclptr259);
7943          vs_top=sup;          vs_top=sup;
7944          V1122= vs_base[0];          V1062= vs_base[0];
7945          goto T2391;          goto T2369;
7946  T2391:;  T2369:;
7947          V1117= nth(fix(V1121),V1122);          V1059= nth(fix((V1057)),V1062);
7948          base[6]= (V1116);          base[6]= (V1058);
7949          base[7]= (V1117);          base[7]= (V1059);
7950          base[8]= (V1115);          base[8]= (V1057);
7951          base[9]= (base0[1]->c.c_car);          base[9]= (base0[1]->c.c_car);
7952          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
7953          (void) (*Lnk328)();          (void) (*Lnk343)();
7954          vs_top=sup;          vs_top=sup;
7955          V1118= vs_base[0];          V1060= vs_base[0];
7956          if(((V1118))==Cnil){          if(((V1060))==Cnil){
7957          goto T2383;}          goto T2361;}
7958          base[6]= (((V1118))==((V1116))?Ct:Cnil);          base[6]= (((V1060))==((V1058))?Ct:Cnil);
7959          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
7960          return;}          return;}
7961          goto T2383;          goto T2361;
7962  T2383:;  T2361:;
7963          V1114= CMPcdr((V1114));          V1056= CMPcdr((V1056));
7964          V1115= CMPcar((V1114));          V1057= CMPcar((V1056));
7965          goto T2378;}          goto T2356;}
7966          }          }
7967  }  }
7968  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 8105  register object *base0; Line 7972  register object *base0;
7972  {       register object *base=vs_base;  {       register object *base=vs_base;
7973          register object *sup=base+VM135; VC135          register object *sup=base+VM135; VC135
7974          vs_check;          vs_check;
7975          {object V1123;          {object V1063;
7976          object V1124;          object V1064;
7977          object V1125;          object V1065;
7978          check_arg(3);          check_arg(3);
7979          V1123=(base[0]);          V1063=(base[0]);
7980          V1124=(base[1]);          V1064=(base[1]);
7981          V1125=(base[2]);          V1065=(base[2]);
7982          vs_top=sup;          vs_top=sup;
7983          {object V1126;          {object V1066;
7984          object V1127;          object V1067;
7985          V1126= (*(LnkLI289))(nth(fix((V1125)),(base0[0]->c.c_car)));          V1066= (*(LnkLI305))(nth(fix((V1065)),(base0[0]->c.c_car)));
7986          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[79]->s.s_dbind))==(VV[80]))){
7987          goto T2411;}          goto T2389;}
7988          base[5]= (V1126);          base[5]= (V1066);
7989          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7990          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
7991          vs_top=sup;          vs_top=sup;
7992          V1127= vs_base[0];          V1067= vs_base[0];
7993          goto T2409;          goto T2387;
7994          goto T2411;          goto T2389;
7995  T2411:;  T2389:;
7996          V1127= (*(LnkLI263))((V1126));          V1067= (*(LnkLI279))((V1066));
7997          goto T2409;          goto T2387;
7998  T2409:;  T2387:;
7999          V1129 = (V1124);          {register object x= (V1063),V1070= (V1067);
8000          {register object x= (V1123),V1131= (V1127);          while(V1070!=Cnil)
8001          while(V1131!=Cnil)          if(x==(V1070->c.c_car)){
8002          if(x==(V1131->c.c_car)){          V1069= V1070;
8003          V1130= V1131;          goto T2395;
8004          goto T2417;          }else V1070=V1070->c.c_cdr;
8005          }else V1131=V1131->c.c_cdr;          V1069= Cnil;}
8006          V1130= Cnil;}          goto T2395;
8007          goto T2417;  T2395:;
8008  T2417:;          {register object x= (V1064),V1068= V1069;
8009          {register object x= V1129,V1128= V1130;          while(V1068!=Cnil)
8010          while(V1128!=Cnil)          if(x==(V1068->c.c_car)){
8011          if(x==(V1128->c.c_car)){          goto T2394;
8012          goto T2416;          }else V1068=V1068->c.c_cdr;
8013          }else V1128=V1128->c.c_cdr;          goto T2393;}
8014          goto T2415;}          goto T2394;
8015          goto T2416;  T2394:;
8016  T2416:;          base[5]= (V1063);
         base[5]= (V1123);  
8017          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8018          return;          return;
8019          goto T2415;          goto T2393;
8020  T2415:;  T2393:;
8021          base[5]= (V1124);          base[5]= (V1064);
8022          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8023          return;}          return;}
8024          }          }
# Line 8164  register object *base0; Line 8030  register object *base0;
8030  {       register object *base=vs_base;  {       register object *base=vs_base;
8031          register object *sup=base+VM136; VC136          register object *sup=base+VM136; VC136
8032          vs_check;          vs_check;
8033          {object V1132;          {object V1071;
8034          object V1133;          object V1072;
8035          check_arg(2);          check_arg(2);
8036          V1132=(base[0]);          V1071=(base[0]);
8037          V1133=(base[1]);          V1072=(base[1]);
8038          vs_top=sup;          vs_top=sup;
8039          {register object V1134;          {register object V1073;
8040          object V1135;          object V1074;
8041          if(((base0[3]->c.c_car))==Cnil){          if(((base0[3]->c.c_car))==Cnil){
8042          goto T2420;}          goto T2398;}
8043          V1134= (*(LnkLI263))((V1132));          V1073= (*(LnkLI279))((V1071));
8044          goto T2418;          goto T2396;
8045          goto T2420;          goto T2398;
8046  T2420:;  T2398:;
8047          base[4]= (V1132);          base[4]= (V1071);
8048          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8049          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
8050          vs_top=sup;          vs_top=sup;
8051          V1134= vs_base[0];          V1073= vs_base[0];
8052          goto T2418;          goto T2396;
8053  T2418:;  T2396:;
8054          V1135= CMPcar((V1134));          V1074= CMPcar((V1073));
8055          goto T2425;          goto T2403;
8056  T2425:;  T2403:;
8057          if(!(((V1134))==Cnil)){          if(!(((V1073))==Cnil)){
8058          goto T2426;}          goto T2404;}
8059          base[4]= VV[137];          base[4]= VV[153];
8060          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8061          Lerror();          Lerror();
8062          return;          return;
8063          goto T2426;          goto T2404;
8064  T2426:;  T2404:;
8065          {object V1136;          {object V1075;
8066          {register object x= (V1135),V1137= (V1133);          {register object x= (V1074),V1076= (V1072);
8067          while(V1137!=Cnil)          while(V1076!=Cnil)
8068          if(EQ(x,V1137->c.c_car->c.c_car) &&V1137->c.c_car != Cnil){          if(EQ(x,V1076->c.c_car->c.c_car) &&V1076->c.c_car != Cnil){
8069          V1136= (V1137->c.c_car);          V1075= (V1076->c.c_car);
8070          goto T2432;          goto T2410;
8071          }else V1137=V1137->c.c_cdr;          }else V1076=V1076->c.c_cdr;
8072          V1136= Cnil;}          V1075= Cnil;}
8073          goto T2432;          goto T2410;
8074  T2432:;  T2410:;
8075          if(((V1136))==Cnil){          if(((V1075))==Cnil){
8076          goto T2431;}          goto T2409;}
8077          {object V1138;          {object V1077;
8078          register object V1139;          register object V1078;
8079          V1138= CMPcdr((V1136));          V1077= CMPcdr((V1075));
8080          if(((base0[3]->c.c_car))==Cnil){          if(((base0[3]->c.c_car))==Cnil){
8081          goto T2438;}          goto T2416;}
8082          V1139= (*(LnkLI273))((V1138));          V1078= (*(LnkLI289))((V1077));
8083          goto T2436;          goto T2414;
8084          goto T2438;          goto T2416;
8085  T2438:;  T2416:;
8086          base[6]= (V1138);          base[6]= (V1077);
8087          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
8088          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk290)(Lclptr290);
8089          vs_top=sup;          vs_top=sup;
8090          V1139= vs_base[0];          V1078= vs_base[0];
8091          goto T2436;          goto T2414;
8092  T2436:;  T2414:;
8093          if(((V1139))!=Cnil){          if(((V1078))!=Cnil){
8094          goto T2441;}          goto T2419;}
8095          {frame_ptr fr;          {frame_ptr fr;
8096          fr=frs_sch((base0[6]->c.c_car));          fr=frs_sch((base0[6]->c.c_car));
8097          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[235]);          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[252]);
8098          base[6]= Cnil;          base[6]= Cnil;
8099          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
8100          unwind(fr,Cnil);}          unwind(fr,Cnil);}
8101          goto T2441;          goto T2419;
8102  T2441:;  T2419:;
8103          {object V1141;          {object V1080;
8104          V1141= (base0[7]->c.c_car);          V1080= (base0[7]->c.c_car);
8105          base[6]= V1132;          base[6]= V1071;
8106          base[7]= (V1141);          base[7]= (V1080);
8107          base[8]= V1139;          base[8]= V1078;
8108          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
8109          siLhash_set();          siLhash_set();
8110          vs_top=sup;}          vs_top=sup;}
8111          if(!(type_of((V1139))==t_cons)){          if(!(type_of((V1078))==t_cons)){
8112          goto T2450;}          goto T2428;}
8113          (base0[4]->c.c_car)= Cnil;          (base0[4]->c.c_car)= Cnil;
8114          goto T2450;          goto T2428;
8115  T2450:;  T2428:;
8116          if(((base0[5]->c.c_car))==Cnil){          if(((base0[5]->c.c_car))==Cnil){
8117          goto T2456;}          goto T2434;}
8118          if(!(eql((base0[5]->c.c_car),(V1139)))){          if(!(eql((base0[5]->c.c_car),(V1078)))){
8119          goto T2457;}          goto T2435;}
8120          goto T2456;          goto T2434;
8121  T2456:;  T2434:;
8122          (base0[5]->c.c_car)= (V1139);          (base0[5]->c.c_car)= (V1078);
8123          goto T2455;          goto T2433;
8124          goto T2457;          goto T2435;
8125  T2457:;  T2435:;
8126          (base0[5]->c.c_car)= Ct;          (base0[5]->c.c_car)= Ct;
8127          goto T2455;          goto T2433;
8128  T2455:;  T2433:;
8129          (base0[0]->c.c_car)= CMPmake_fixnum((long)(fix((base0[0]->c.c_car)))+(1));          (base0[0]->c.c_car)= CMPmake_fixnum((long)(fix((base0[0]->c.c_car)))+(1));
8130          if(!((fix((base0[0]->c.c_car)))==(1))){          if(!((fix((base0[0]->c.c_car)))==(1))){
8131          goto T2465;}          goto T2443;}
8132          (base0[2]->c.c_car)= (V1132);          (base0[2]->c.c_car)= (V1071);
8133          goto T2463;          goto T2441;
8134          goto T2465;          goto T2443;
8135  T2465:;  T2443:;
8136          if(!((fix((base0[0]->c.c_car)))==(2))){          if(!((fix((base0[0]->c.c_car)))==(2))){
8137          goto T2463;}          goto T2441;}
8138          (base0[1]->c.c_car)= (V1132);          (base0[1]->c.c_car)= (V1071);
8139          goto T2463;          goto T2441;
8140  T2463:;  T2441:;
8141          base[6]= Cnil;          base[6]= Cnil;
8142          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
8143          return;}}          return;}}
8144          goto T2431;          goto T2409;
8145  T2431:;  T2409:;
8146          V1134= CMPcdr((V1134));          V1073= CMPcdr((V1073));
8147          V1135= CMPcar((V1134));          V1074= CMPcar((V1073));
8148          goto T2425;}          goto T2403;}
8149          }          }
8150  }  }
8151  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 8289  register object *base0; Line 8155  register object *base0;
8155  {       register object *base=vs_base;  {       register object *base=vs_base;
8156          register object *sup=base+VM137; VC137          register object *sup=base+VM137; VC137
8157          vs_check;          vs_check;
8158          {register object V1143;          {register object V1082;
8159          object V1144;          object V1083;
8160          check_arg(2);          check_arg(2);
8161          V1143=(base[0]);          V1082=(base[0]);
8162          V1144=(base[1]);          V1083=(base[1]);
8163          vs_top=sup;          vs_top=sup;
8164          {object V1145;          {object V1084;
8165          if(((base0[5]->c.c_car))==Cnil){          if(((base0[5]->c.c_car))==Cnil){
8166          goto T2478;}          goto T2456;}
8167          V1145= (*(LnkLI263))((V1143));          V1084= (*(LnkLI279))((V1082));
8168          goto T2476;          goto T2454;
8169          goto T2478;          goto T2456;
8170  T2478:;  T2456:;
8171          base[2]= (V1143);          base[2]= (V1082);
8172          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8173          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
8174          vs_top=sup;          vs_top=sup;
8175          V1145= vs_base[0];          V1084= vs_base[0];
8176          goto T2476;          goto T2454;
8177  T2476:;  T2454:;
8178          {register object x= (base0[1]->c.c_car),V1146= (V1145);          {register object x= (base0[1]->c.c_car),V1085= (V1084);
8179          while(V1146!=Cnil)          while(V1085!=Cnil)
8180          if(x==(V1146->c.c_car)){          if(x==(V1085->c.c_car)){
8181          goto T2483;          goto T2461;
8182          }else V1146=V1146->c.c_cdr;          }else V1085=V1085->c.c_cdr;
8183          goto T2482;}          goto T2460;}
8184          goto T2483;          goto T2461;
8185  T2483:;  T2461:;
8186          if(((base0[0]->c.c_car))!=Cnil){          if(((base0[0]->c.c_car))!=Cnil){
8187          goto T2486;}          goto T2464;}
8188          {register object x= (VV[132]->s.s_dbind),V1147= (V1145);          {register object x= (VV[148]->s.s_dbind),V1086= (V1084);
8189          while(V1147!=Cnil)          while(V1086!=Cnil)
8190          if(eql(x,V1147->c.c_car)){          if(eql(x,V1086->c.c_car)){
8191          goto T2489;          goto T2467;
8192          }else V1147=V1147->c.c_cdr;          }else V1086=V1086->c.c_cdr;
8193          goto T2485;}          goto T2463;}
8194          goto T2489;          goto T2467;
8195  T2489:;  T2467:;
8196          goto T2486;          goto T2464;
8197  T2486:;  T2464:;
8198          if(((base0[5]->c.c_car))!=Cnil){          if(((base0[5]->c.c_car))!=Cnil){
8199          goto T2484;}          goto T2462;}
8200          base[2]= (V1144);          base[2]= (V1083);
8201          base[3]= (base0[10]->c.c_car);          base[3]= (base0[10]->c.c_car);
8202          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8203          (void) (*Lnk272)(Lclptr272);          (void) (*Lnk288)(Lclptr288);
8204          vs_top=sup;          vs_top=sup;
8205          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
8206          goto T2484;}          goto T2462;}
8207          goto T2485;          goto T2463;
8208  T2485:;  T2463:;
8209          {frame_ptr fr;          {frame_ptr fr;
8210          fr=frs_sch((base0[8]->c.c_car));          fr=frs_sch((base0[8]->c.c_car));
8211          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[235]);          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[252]);
8212          base[2]= Cnil;          base[2]= Cnil;
8213          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8214          unwind(fr,Cnil);}          unwind(fr,Cnil);}
8215          goto T2484;          goto T2462;
8216  T2484:;  T2462:;
8217          {object V1148;          {object V1087;
8218          object V1150;          object V1089;
8219          object V1151;          object V1090;
8220          V1148= make_cons((base0[1]->c.c_car),(V1144));          V1087= make_cons((base0[1]->c.c_car),(V1083));
8221          V1150= (base0[9]->c.c_car);          V1089= (base0[9]->c.c_car);
8222          V1152 = (V1148);          base[4]= V1082;
8223          base[4]= V1143;          base[5]= (V1089);
         base[5]= (V1150);  
8224          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
8225          Lgethash();          Lgethash();
8226          vs_top=sup;          vs_top=sup;
8227          V1153= vs_base[0];          V1091= vs_base[0];
8228          V1151= make_cons(V1152,V1153);          V1090= make_cons((V1087),V1091);
8229          base[4]= V1143;          base[4]= V1082;
8230          base[5]= (V1150);          base[5]= (V1089);
8231          base[6]= (V1151);          base[6]= (V1090);
8232          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
8233          siLhash_set();          siLhash_set();
8234          return;}          return;}
8235          goto T2482;          goto T2460;
8236  T2482:;  T2460:;
8237          base[2]= Cnil;          base[2]= Cnil;
8238          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8239          return;}          return;}
# Line 8381  register object *base0; Line 8246  register object *base0;
8246  {       register object *base=vs_base;  {       register object *base=vs_base;
8247          register object *sup=base+VM138; VC138          register object *sup=base+VM138; VC138
8248          vs_check;          vs_check;
8249          {object V1154;          {object V1092;
8250          check_arg(1);          check_arg(1);
8251          V1154=(base[0]);          V1092=(base[0]);
8252          vs_top=sup;          vs_top=sup;
8253          base[1]= (base0[2]->c.c_car);          base[1]= (base0[2]->c.c_car);
8254          base[2]= (V1154);          base[2]= (V1092);
8255          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8256          cclosure_call((base0[1]->c.c_car));          cclosure_call((base0[1]->c.c_car));
8257          return;          return;
# Line 8399  register object *base0; Line 8264  register object *base0;
8264  {       register object *base=vs_base;  {       register object *base=vs_base;
8265          register object *sup=base+VM139; VC139          register object *sup=base+VM139; VC139
8266          vs_check;          vs_check;
8267          {object V1155;          {object V1093;
8268          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
8269          if(vs_base>=vs_top){vs_top=sup;goto T2507;}          if(vs_base>=vs_top){vs_top=sup;goto T2485;}
8270          V1155=(base[0]);          V1093=(base[0]);
8271          vs_top=sup;          vs_top=sup;
8272          goto T2508;          goto T2486;
8273          goto T2507;          goto T2485;
8274  T2507:;  T2485:;
8275          V1155= Cnil;          V1093= Cnil;
8276          goto T2508;          goto T2486;
8277  T2508:;  T2486:;
8278          if(!(type_of((base0[1]->c.c_car))==t_cons)){          if(!(type_of((base0[1]->c.c_car))==t_cons)){
8279          goto T2511;}          goto T2489;}
8280          {object V1156;          {object V1094;
8281          object V1157;          object V1095;
8282          object V1158;          object V1096;
8283          base[1]= (base0[4]->c.c_car);          base[1]= (base0[4]->c.c_car);
8284          base[2]= (base0[3]->c.c_car);          base[2]= (base0[3]->c.c_car);
8285          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8286          (void) (*Lnk193)();          (void) (*Lnk210)();
8287          if(vs_base>=vs_top){vs_top=sup;goto T2516;}          if(vs_base>=vs_top){vs_top=sup;goto T2494;}
8288          V1156= vs_base[0];          V1094= vs_base[0];
8289          vs_base++;          vs_base++;
8290          if(vs_base>=vs_top){vs_top=sup;goto T2517;}          if(vs_base>=vs_top){vs_top=sup;goto T2495;}
8291          V1157= vs_base[0];          V1095= vs_base[0];
8292          vs_base++;          vs_base++;
8293          if(vs_base>=vs_top){vs_top=sup;goto T2518;}          if(vs_base>=vs_top){vs_top=sup;goto T2496;}
8294          V1158= vs_base[0];          V1096= vs_base[0];
8295          vs_top=sup;          vs_top=sup;
8296          goto T2519;          goto T2497;
8297          goto T2516;          goto T2494;
8298  T2516:;  T2494:;
8299          V1156= Cnil;          V1094= Cnil;
8300          goto T2517;          goto T2495;
8301  T2517:;  T2495:;
8302          V1157= Cnil;          V1095= Cnil;
8303          goto T2518;          goto T2496;
8304  T2518:;  T2496:;
8305          V1158= Cnil;          V1096= Cnil;
8306          goto T2519;          goto T2497;
8307  T2519:;  T2497:;
8308          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1156),(V1157),(V1158)));          base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[4]->c.c_car),(V1094),(V1095),(V1096)));
8309          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8310          return;}          return;}
8311          goto T2511;          goto T2489;
8312  T2511:;  T2489:;
8313          {object V1159;          {object V1097;
8314          object V1160;          object V1098;
8315          object V1161;          object V1099;
8316          base[1]= (base0[4]->c.c_car);          base[1]= (base0[4]->c.c_car);
8317          base[2]= (base0[2]->c.c_car);          base[2]= (base0[2]->c.c_car);
8318          base[3]= (V1155);          base[3]= (V1093);
8319          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
8320          (void) (*Lnk182)();          (void) (*Lnk199)();
8321          if(vs_base>=vs_top){vs_top=sup;goto T2524;}          if(vs_base>=vs_top){vs_top=sup;goto T2502;}
8322          V1159= vs_base[0];          V1097= vs_base[0];
8323          vs_base++;          vs_base++;
8324          if(vs_base>=vs_top){vs_top=sup;goto T2525;}          if(vs_base>=vs_top){vs_top=sup;goto T2503;}
8325          V1160= vs_base[0];          V1098= vs_base[0];
8326          vs_base++;          vs_base++;
8327          if(vs_base>=vs_top){vs_top=sup;goto T2526;}          if(vs_base>=vs_top){vs_top=sup;goto T2504;}
8328          V1161= vs_base[0];          V1099= vs_base[0];
8329          vs_top=sup;          vs_top=sup;
8330          goto T2527;          goto T2505;
8331          goto T2524;          goto T2502;
8332  T2524:;  T2502:;
8333          V1159= Cnil;          V1097= Cnil;
8334          goto T2525;          goto T2503;
8335  T2525:;  T2503:;
8336          V1160= Cnil;          V1098= Cnil;
8337          goto T2526;          goto T2504;
8338  T2526:;  T2504:;
8339          V1161= Cnil;          V1099= Cnil;
8340          goto T2527;          goto T2505;
8341  T2527:;  T2505:;
8342          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1159),(V1160),(V1161)));          base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[4]->c.c_car),(V1097),(V1098),(V1099)));
8343          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8344          return;}          return;}
8345          }          }
# Line 8486  register object *base0; Line 8351  register object *base0;
8351  {       register object *base=vs_base;  {       register object *base=vs_base;
8352          register object *sup=base+VM140; VC140          register object *sup=base+VM140; VC140
8353          vs_check;          vs_check;
8354          {object V1162;          {object V1100;
8355          object V1163;          object V1101;
8356          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
8357          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
8358          V1162=(base[0]);          V1100=(base[0]);
8359          vs_base=vs_base+1;          vs_base=vs_base+1;
8360          if(vs_base>=vs_top){vs_top=sup;goto T2528;}          if(vs_base>=vs_top){vs_top=sup;goto T2506;}
8361          V1163=(base[1]);          V1101=(base[1]);
8362          vs_top=sup;          vs_top=sup;
8363          goto T2529;          goto T2507;
8364          goto T2528;          goto T2506;
8365  T2528:;  T2506:;
8366          V1163= Cnil;          V1101= Cnil;
8367          goto T2529;          goto T2507;
8368  T2529:;  T2507:;
8369          {object V1164;          {object V1102;
8370          object V1165;          object V1103;
8371          object V1166;          object V1104;
8372          base[2]= (base0[3]->c.c_car);          base[2]= (base0[3]->c.c_car);
8373          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
8374          base[4]= (V1162);          base[4]= (V1100);
8375          base[5]= (V1163);          base[5]= (V1101);
8376          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8377          (void) (*Lnk178)();          (void) (*Lnk195)();
8378          if(vs_base>=vs_top){vs_top=sup;goto T2536;}          if(vs_base>=vs_top){vs_top=sup;goto T2514;}
8379          V1164= vs_base[0];          V1102= vs_base[0];
8380          vs_base++;          vs_base++;
8381          if(vs_base>=vs_top){vs_top=sup;goto T2537;}          if(vs_base>=vs_top){vs_top=sup;goto T2515;}
8382          V1165= vs_base[0];          V1103= vs_base[0];
8383          vs_base++;          vs_base++;
8384          if(vs_base>=vs_top){vs_top=sup;goto T2538;}          if(vs_base>=vs_top){vs_top=sup;goto T2516;}
8385          V1166= vs_base[0];          V1104= vs_base[0];
8386          vs_top=sup;          vs_top=sup;
8387          goto T2539;          goto T2517;
8388          goto T2536;          goto T2514;
8389  T2536:;  T2514:;
8390          V1164= Cnil;          V1102= Cnil;
8391          goto T2537;          goto T2515;
8392  T2537:;  T2515:;
8393          V1165= Cnil;          V1103= Cnil;
8394          goto T2538;          goto T2516;
8395  T2538:;  T2516:;
8396          V1166= Cnil;          V1104= Cnil;
8397          goto T2539;          goto T2517;
8398  T2539:;  T2517:;
8399          base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[3]->c.c_car),(V1164),(V1165),(V1166)));          base[2]= (VFUN_NARGS=4,(*(LnkLI47))((base0[3]->c.c_car),(V1102),(V1103),(V1104)));
8400          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8401          return;}          return;}
8402          }          }
# Line 8543  register object *base0; Line 8408  register object *base0;
8408  {       register object *base=vs_base;  {       register object *base=vs_base;
8409          register object *sup=base+VM141; VC141          register object *sup=base+VM141; VC141
8410          vs_check;          vs_check;
8411          {object V1167;          {object V1105;
8412          check_arg(1);          check_arg(1);
8413          V1167=(base[0]);          V1105=(base[0]);
8414          vs_top=sup;          vs_top=sup;
8415          goto TTL;          goto TTL;
8416  TTL:;  TTL:;
8417          {object V1168;          {object V1106;
8418          V1168= (VFUN_NARGS=3,(*(LnkLI247))(base0[6],base0[9],(base0[11]->c.c_car)));          V1106= (VFUN_NARGS=3,(*(LnkLI264))(base0[6],base0[9],(base0[11]->c.c_car)));
8419          if(((V1168))==(base0[6])){          if(((V1106))==(base0[6])){
8420          goto T2542;}          goto T2520;}
8421          base[1]= (V1168);          base[1]= (V1106);
8422          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8423          {object _funobj = (V1167);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1105);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8424                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8425                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8426                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
8427          return;          return;
8428          goto T2542;          goto T2520;
8429  T2542:;  T2520:;
8430          base[1]= Cnil;          base[1]= Cnil;
8431          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8432          return;}          return;}
# Line 8578  register object *base0; Line 8443  register object *base0;
8443          vs_top=sup;          vs_top=sup;
8444          goto TTL;          goto TTL;
8445  TTL:;  TTL:;
8446          {object V1169;          {object V1107;
8447          object V1170;          object V1108;
8448          object V1171;          object V1109;
8449          base[0]= (base0[0]->c.c_car);          base[0]= (base0[0]->c.c_car);
8450          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
8451          (void) (*Lnk184)();          (void) (*Lnk201)();
8452          if(vs_base>=vs_top){vs_top=sup;goto T2547;}          if(vs_base>=vs_top){vs_top=sup;goto T2525;}
8453          V1169= vs_base[0];          V1107= vs_base[0];
8454          vs_base++;          vs_base++;
8455          if(vs_base>=vs_top){vs_top=sup;goto T2548;}          if(vs_base>=vs_top){vs_top=sup;goto T2526;}
8456          V1170= vs_base[0];          V1108= vs_base[0];
8457          vs_base++;          vs_base++;
8458          if(vs_base>=vs_top){vs_top=sup;goto T2549;}          if(vs_base>=vs_top){vs_top=sup;goto T2527;}
8459          V1171= vs_base[0];          V1109= vs_base[0];
8460          vs_top=sup;          vs_top=sup;
8461          goto T2550;          goto T2528;
8462          goto T2547;          goto T2525;
8463  T2547:;  T2525:;
8464          V1169= Cnil;          V1107= Cnil;
8465          goto T2548;          goto T2526;
8466  T2548:;  T2526:;
8467          V1170= Cnil;          V1108= Cnil;
8468          goto T2549;          goto T2527;
8469  T2549:;  T2527:;
8470          V1171= Cnil;          V1109= Cnil;
8471          goto T2550;          goto T2528;
8472  T2550:;  T2528:;
8473          base[0]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1169),(V1170),(V1171)));          base[0]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1107),(V1108),(V1109)));
8474          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
8475          return;}          return;}
8476  }  }
# Line 8616  register object *base0; Line 8481  register object *base0;
8481  {       register object *base=vs_base;  {       register object *base=vs_base;
8482          register object *sup=base+VM143; VC143          register object *sup=base+VM143; VC143
8483          vs_check;          vs_check;
8484          {object V1172;          {object V1110;
8485          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
8486          if(vs_base>=vs_top){vs_top=sup;goto T2551;}          if(vs_base>=vs_top){vs_top=sup;goto T2529;}
8487          V1172=(base[0]);          V1110=(base[0]);
8488          vs_top=sup;          vs_top=sup;
8489          goto T2552;          goto T2530;
8490          goto T2551;          goto T2529;
8491  T2551:;  T2529:;
8492          V1172= Cnil;          V1110= Cnil;
8493          goto T2552;          goto T2530;
8494  T2552:;  T2530:;
8495          if(!(type_of((base0[11]->c.c_car))==t_cons)){          if(!(type_of((base0[11]->c.c_car))==t_cons)){
8496          goto T2555;}          goto T2533;}
8497          {object V1173;          {object V1111;
8498          object V1174;          object V1112;
8499          object V1175;          object V1113;
8500          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
8501          base[2]= (base0[8]->c.c_car);          base[2]= (base0[8]->c.c_car);
8502          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8503          (void) (*Lnk193)();          (void) (*Lnk210)();
8504          if(vs_base>=vs_top){vs_top=sup;goto T2560;}          if(vs_base>=vs_top){vs_top=sup;goto T2538;}
8505          V1173= vs_base[0];          V1111= vs_base[0];
8506          vs_base++;          vs_base++;
8507          if(vs_base>=vs_top){vs_top=sup;goto T2561;}          if(vs_base>=vs_top){vs_top=sup;goto T2539;}
8508          V1174= vs_base[0];          V1112= vs_base[0];
8509          vs_base++;          vs_base++;
8510          if(vs_base>=vs_top){vs_top=sup;goto T2562;}          if(vs_base>=vs_top){vs_top=sup;goto T2540;}
8511          V1175= vs_base[0];          V1113= vs_base[0];
8512          vs_top=sup;          vs_top=sup;
8513          goto T2563;          goto T2541;
8514          goto T2560;          goto T2538;
8515  T2560:;  T2538:;
8516          V1173= Cnil;          V1111= Cnil;
8517          goto T2561;          goto T2539;
8518  T2561:;  T2539:;
8519          V1174= Cnil;          V1112= Cnil;
8520          goto T2562;          goto T2540;
8521  T2562:;  T2540:;
8522          V1175= Cnil;          V1113= Cnil;
8523          goto T2563;          goto T2541;
8524  T2563:;  T2541:;
8525          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1173),(V1174),(V1175)));          base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1111),(V1112),(V1113)));
8526          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8527          return;}          return;}
8528          goto T2555;          goto T2533;
8529  T2555:;  T2533:;
8530          {object V1176;          {object V1114;
8531          object V1177;          object V1115;
8532          object V1178;          object V1116;
8533          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
8534          base[2]= (base0[10]->c.c_car);          base[2]= (base0[10]->c.c_car);
8535          base[3]= (V1172);          base[3]= (V1110);
8536          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
8537          (void) (*Lnk182)();          (void) (*Lnk199)();
8538          if(vs_base>=vs_top){vs_top=sup;goto T2568;}          if(vs_base>=vs_top){vs_top=sup;goto T2546;}
8539          V1176= vs_base[0];          V1114= vs_base[0];
8540          vs_base++;          vs_base++;
8541          if(vs_base>=vs_top){vs_top=sup;goto T2569;}          if(vs_base>=vs_top){vs_top=sup;goto T2547;}
8542          V1177= vs_base[0];          V1115= vs_base[0];
8543          vs_base++;          vs_base++;
8544          if(vs_base>=vs_top){vs_top=sup;goto T2570;}          if(vs_base>=vs_top){vs_top=sup;goto T2548;}
8545          V1178= vs_base[0];          V1116= vs_base[0];
8546          vs_top=sup;          vs_top=sup;
8547          goto T2571;          goto T2549;
8548          goto T2568;          goto T2546;
8549  T2568:;  T2546:;
8550          V1176= Cnil;          V1114= Cnil;
8551          goto T2569;          goto T2547;
8552  T2569:;  T2547:;
8553          V1177= Cnil;          V1115= Cnil;
8554          goto T2570;          goto T2548;
8555  T2570:;  T2548:;
8556          V1178= Cnil;          V1116= Cnil;
8557          goto T2571;          goto T2549;
8558  T2571:;  T2549:;
8559          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1176),(V1177),(V1178)));          base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1114),(V1115),(V1116)));
8560          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8561          return;}          return;}
8562          }          }
# Line 8703  register object *base0; Line 8568  register object *base0;
8568  {       register object *base=vs_base;  {       register object *base=vs_base;
8569          register object *sup=base+VM144; VC144          register object *sup=base+VM144; VC144
8570          vs_check;          vs_check;
8571          {object V1179;          {object V1117;
8572          object V1180;          object V1118;
8573          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
8574          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
8575          V1179=(base[0]);          V1117=(base[0]);
8576          vs_base=vs_base+1;          vs_base=vs_base+1;
8577          if(vs_base>=vs_top){vs_top=sup;goto T2572;}          if(vs_base>=vs_top){vs_top=sup;goto T2550;}
8578          V1180=(base[1]);          V1118=(base[1]);
8579          vs_top=sup;          vs_top=sup;
8580          goto T2573;          goto T2551;
8581          goto T2572;          goto T2550;
8582  T2572:;  T2550:;
8583          V1180= Cnil;          V1118= Cnil;
8584          goto T2573;          goto T2551;
8585  T2573:;  T2551:;
8586          {object V1181;          {object V1119;
8587          object V1182;          object V1120;
8588          object V1183;          object V1121;
8589          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
8590          base[3]= (base0[10]->c.c_car);          base[3]= (base0[10]->c.c_car);
8591          base[4]= (V1179);          base[4]= (V1117);
8592          base[5]= (V1180);          base[5]= (V1118);
8593          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8594          (void) (*Lnk178)();          (void) (*Lnk195)();
8595          if(vs_base>=vs_top){vs_top=sup;goto T2580;}          if(vs_base>=vs_top){vs_top=sup;goto T2558;}
8596          V1181= vs_base[0];          V1119= vs_base[0];
8597          vs_base++;          vs_base++;
8598          if(vs_base>=vs_top){vs_top=sup;goto T2581;}          if(vs_base>=vs_top){vs_top=sup;goto T2559;}
8599          V1182= vs_base[0];          V1120= vs_base[0];
8600          vs_base++;          vs_base++;
8601          if(vs_base>=vs_top){vs_top=sup;goto T2582;}          if(vs_base>=vs_top){vs_top=sup;goto T2560;}
8602          V1183= vs_base[0];          V1121= vs_base[0];
8603          vs_top=sup;          vs_top=sup;
8604          goto T2583;          goto T2561;
8605          goto T2580;          goto T2558;
8606  T2580:;  T2558:;
8607          V1181= Cnil;          V1119= Cnil;
8608          goto T2581;          goto T2559;
8609  T2581:;  T2559:;
8610          V1182= Cnil;          V1120= Cnil;
8611          goto T2582;          goto T2560;
8612  T2582:;  T2560:;
8613          V1183= Cnil;          V1121= Cnil;
8614          goto T2583;          goto T2561;
8615  T2583:;  T2561:;
8616          base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1181),(V1182),(V1183)));          base[2]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1119),(V1120),(V1121)));
8617          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8618          return;}          return;}
8619          }          }
# Line 8760  register object *base0; Line 8625  register object *base0;
8625  {       register object *base=vs_base;  {       register object *base=vs_base;
8626          register object *sup=base+VM145; VC145          register object *sup=base+VM145; VC145
8627          vs_check;          vs_check;
8628          {object V1184;          {object V1122;
8629          object V1185;          object V1123;
8630          object V1186;          object V1124;
8631          check_arg(3);          check_arg(3);
8632          V1184=(base[0]);          V1122=(base[0]);
8633          V1185=(base[1]);          V1123=(base[1]);
8634          V1186=(base[2]);          V1124=(base[2]);
8635          vs_top=sup;          vs_top=sup;
8636          goto TTL;          goto TTL;
8637  TTL:;  TTL:;
# Line 8774  TTL:; Line 8639  TTL:;
8639          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8640          Lrandom();          Lrandom();
8641          vs_top=sup;          vs_top=sup;
8642          V1187= vs_base[0];          V1125= vs_base[0];
8643          if(!(number_compare(small_fixnum(0),V1187)==0)){          if(!(number_compare(small_fixnum(0),V1125)==0)){
8644          goto T2584;}          goto T2562;}
8645          {object V1188;          {object V1126;
8646          object V1189;          object V1127;
8647          V1188= (V1186);          V1126= (V1124);
8648          V1189= (V1185);          V1127= (V1123);
8649          V1185= (V1188);          V1123= (V1126);
8650          V1186= (V1189);}          V1124= (V1127);}
8651          goto T2584;          goto T2562;
8652  T2584:;  T2562:;
8653          {object V1190;          {object V1128;
8654          object V1191;          object V1129;
8655          object V1192;          object V1130;
8656          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
8657          base[4]= (base0[10]->c.c_car);          base[4]= (base0[10]->c.c_car);
8658          base[5]= (V1185);          base[5]= (V1123);
8659          base[6]= (V1186);          base[6]= (V1124);
8660          base[7]= (V1184);          base[7]= (V1122);
8661          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
8662          (void) (*Lnk237)();          (void) (*Lnk254)();
8663          if(vs_base>=vs_top){vs_top=sup;goto T2601;}          if(vs_base>=vs_top){vs_top=sup;goto T2579;}
8664          V1190= vs_base[0];          V1128= vs_base[0];
8665          vs_base++;          vs_base++;
8666          if(vs_base>=vs_top){vs_top=sup;goto T2602;}          if(vs_base>=vs_top){vs_top=sup;goto T2580;}
8667          V1191= vs_base[0];          V1129= vs_base[0];
8668          vs_base++;          vs_base++;
8669          if(vs_base>=vs_top){vs_top=sup;goto T2603;}          if(vs_base>=vs_top){vs_top=sup;goto T2581;}
8670          V1192= vs_base[0];          V1130= vs_base[0];
8671          vs_top=sup;          vs_top=sup;
8672          goto T2604;          goto T2582;
8673          goto T2601;          goto T2579;
8674  T2601:;  T2579:;
8675          V1190= Cnil;          V1128= Cnil;
8676          goto T2602;          goto T2580;
8677  T2602:;  T2580:;
8678          V1191= Cnil;          V1129= Cnil;
8679          goto T2603;          goto T2581;
8680  T2603:;  T2581:;
8681          V1192= Cnil;          V1130= Cnil;
8682          goto T2604;          goto T2582;
8683  T2604:;  T2582:;
8684          base[3]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1190),(V1191),(V1192)));          base[3]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1128),(V1129),(V1130)));
8685          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8686          return;}          return;}
8687          }          }
# Line 8828  register object *base0; Line 8693  register object *base0;
8693  {       register object *base=vs_base;  {       register object *base=vs_base;
8694          register object *sup=base+VM146; VC146          register object *sup=base+VM146; VC146
8695          vs_check;          vs_check;
8696          {object V1193;          {object V1131;
8697          check_arg(1);          check_arg(1);
8698          V1193=(base[0]);          V1131=(base[0]);
8699          vs_top=sup;          vs_top=sup;
8700          V1194 = (base0[0]->c.c_car);          base[1]= (V1131);
         base[1]= (V1193);  
8701          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8702          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk259)(Lclptr259);
8703          vs_top=sup;          vs_top=sup;
8704          V1195= vs_base[0];          V1132= vs_base[0];
8705          base[1]= (equal(V1194,V1195)?Ct:Cnil);          base[1]= (equal((base0[0]->c.c_car),V1132)?Ct:Cnil);
8706          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8707          return;          return;
8708          }          }
# Line 8850  register object *base0; Line 8714  register object *base0;
8714  {       register object *base=vs_base;  {       register object *base=vs_base;
8715          register object *sup=base+VM147; VC147          register object *sup=base+VM147; VC147
8716          vs_check;          vs_check;
8717          {object V1196;          {object V1133;
8718          check_arg(1);          check_arg(1);
8719          V1196=(base[0]);          V1133=(base[0]);
8720          vs_top=sup;          vs_top=sup;
8721          base[1]= (((V1196))==((VV[125]->s.s_dbind))?Ct:Cnil);          base[1]= (((V1133))==((VV[135]->s.s_dbind))?Ct:Cnil);
8722          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8723          return;          return;
8724          }          }
# Line 8866  register object *base0; Line 8730  register object *base0;
8730  {       register object *base=vs_base;  {       register object *base=vs_base;
8731          register object *sup=base+VM148; VC148          register object *sup=base+VM148; VC148
8732          vs_check;          vs_check;
8733          {object V1197;          {object V1134;
8734          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8735          {object *p=vs_top;          {object *p=vs_top;
8736           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8737          V1197=(base[0]);          V1134=(base[0]);
8738          vs_top=sup;          vs_top=sup;
8739          base[1]=VV[250]->s.s_gfdef;          base[1]=VV[339]->s.s_gfdef;
8740          base[2]= (base0[1]->c.c_car);          base[2]= (base0[1]->c.c_car);
8741          {object V1198;          {object V1135;
8742          V1198= (V1197);          V1135= (V1134);
8743           vs_top=base+3;           vs_top=base+3;
8744           while(V1198!=Cnil)           while(V1135!=Cnil)
8745           {vs_push((V1198)->c.c_car);V1198=(V1198)->c.c_cdr;}           {vs_push((V1135)->c.c_car);V1135=(V1135)->c.c_cdr;}
8746          vs_base=base+2;}          vs_base=base+2;}
8747          (void) (*Lnk250)(Lclptr250);          (void) (*Lnk339)(Lclptr339);
8748          return;          return;
8749          }          }
8750  }  }
# Line 8891  register object *base0; Line 8755  register object *base0;
8755  {       register object *base=vs_base;  {       register object *base=vs_base;
8756          register object *sup=base+VM149; VC149          register object *sup=base+VM149; VC149
8757          vs_check;          vs_check;
8758          {object V1199;          {object V1136;
8759          check_arg(1);          check_arg(1);
8760          V1199=(base[0]);          V1136=(base[0]);
8761          vs_top=sup;          vs_top=sup;
8762          if(!(type_of((V1199))==t_cons)){          if(!(type_of((V1136))==t_cons)){
8763          goto T2610;}{object V1200;          goto T2588;}{object V1137;
8764          V1200= (VV[122]->s.s_dbind);          V1137= (VV[132]->s.s_dbind);
8765          V1201= (*(LnkLI265))((V1199));          V1138= (*(LnkLI281))((V1136));
8766          base[1]= ((V1200)==(/* INLINE-ARGS */V1201)?Ct:Cnil);          base[1]= ((V1137)==(/* INLINE-ARGS */V1138)?Ct:Cnil);
8767          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8768          return;}          return;}
8769          goto T2610;          goto T2588;
8770  T2610:;  T2588:;
8771          base[1]= (V1199);          base[1]= (V1136);
8772          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8773          (void) (*Lnk329)(Lclptr329);          (void) (*Lnk344)(Lclptr344);
8774          return;          return;
8775          }          }
8776  }  }
# Line 8917  register object *base0; Line 8781  register object *base0;
8781  {       register object *base=vs_base;  {       register object *base=vs_base;
8782          register object *sup=base+VM150; VC150          register object *sup=base+VM150; VC150
8783          vs_check;          vs_check;
8784          {object V1202;          {object V1139;
8785          check_arg(1);          check_arg(1);
8786          V1202=(base[0]);          V1139=(base[0]);
8787          vs_top=sup;          vs_top=sup;
8788          if(!(type_of((V1202))==t_cons)){          if(!(type_of((V1139))==t_cons)){
8789          goto T2614;}{object V1203;          goto T2592;}{object V1140;
8790          V1203= (VV[121]->s.s_dbind);          V1140= (VV[131]->s.s_dbind);
8791          V1204= (*(LnkLI265))((V1202));          V1141= (*(LnkLI281))((V1139));
8792          base[1]= ((V1203)==(/* INLINE-ARGS */V1204)?Ct:Cnil);          base[1]= ((V1140)==(/* INLINE-ARGS */V1141)?Ct:Cnil);
8793          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8794          return;}          return;}
8795          goto T2614;          goto T2592;
8796  T2614:;  T2592:;
8797          base[1]= (V1202);          base[1]= (V1139);
8798          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8799          (void) (*Lnk330)(Lclptr330);          (void) (*Lnk345)(Lclptr345);
8800          return;          return;
8801          }          }
8802  }  }
# Line 8943  register object *base0; Line 8807  register object *base0;
8807  {       register object *base=vs_base;  {       register object *base=vs_base;
8808          register object *sup=base+VM151; VC151          register object *sup=base+VM151; VC151
8809          vs_check;          vs_check;
8810          {object V1205;          {object V1142;
8811          object V1206;          object V1143;
8812          check_arg(2);          check_arg(2);
8813          V1205=(base[0]);          V1142=(base[0]);
8814          V1206=(base[1]);          V1143=(base[1]);
8815          vs_top=sup;          vs_top=sup;
8816          {register object V1207;          {register object V1144;
8817          object V1208;          object V1145;
8818          V1207= (*(LnkLI290))((V1206));          V1144= (*(LnkLI306))((V1143));
8819          if(type_of(V1207)==t_structure){          if(type_of(V1144)==t_structure){
8820          goto T2623;}          goto T2601;}
8821          goto T2621;          goto T2599;
8822          goto T2623;          goto T2601;
8823  T2623:;  T2601:;
8824          if(!(((V1207)->str.str_def)==(VV[104]))){          if(!(((V1144)->str.str_def)==(VV[112]))){
8825          goto T2621;}          goto T2599;}
8826          V1209= STREF(object,(V1207),4);          V1146= STREF(object,(V1144),4);
8827          goto T2619;          goto T2597;
8828          goto T2621;          goto T2599;
8829  T2621:;{object V1211;  T2599:;{object V1148;
8830          V1211= (VV[65]->s.s_dbind);          V1148= (VV[73]->s.s_dbind);
8831          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
8832          base[5]= (V1207);          base[5]= (V1144);
8833          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
8834          (void) (*Lnk197)();          (void) (*Lnk214)();
8835          vs_top=sup;          vs_top=sup;
8836          V1212= vs_base[0];          V1149= vs_base[0];
8837          if(!((V1211)==(CMPcar(V1212)))){          if(!((V1148)==(CMPcar(V1149)))){
8838          goto T2626;}}          goto T2604;}}
8839          V1209= CMPcar(((V1207))->cc.cc_turbo[12]);          V1146= CMPcar(((V1144))->cc.cc_turbo[12]);
8840          goto T2619;          goto T2597;
8841          goto T2626;          goto T2604;
8842  T2626:;  T2604:;
8843          base[4]= VV[66];          base[4]= VV[74];
8844          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8845          Lerror();          Lerror();
8846          vs_top=sup;          vs_top=sup;
8847          V1209= vs_base[0];          V1146= vs_base[0];
8848          goto T2619;          goto T2597;
8849  T2619:;  T2597:;
8850          V1213= (*(LnkLI281))(VV[10],VV[102]);          V1150= (*(LnkLI297))(VV[8],VV[110]);
8851          V1208= (V1209)->v.v_self[fix(/* INLINE-ARGS */V1213)];          V1145= (V1146)->v.v_self[fix(/* INLINE-ARGS */V1150)];
8852          base[4]= (*(LnkLI331))((V1208),(V1206),(base0[0]->c.c_car),(V1205));          base[4]= (*(LnkLI346))((V1145),(V1143),(base0[0]->c.c_car),(V1142));
8853          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8854          return;}          return;}
8855          }          }
# Line 8997  register object *base0; Line 8861  register object *base0;
8861  {       register object *base=vs_base;  {       register object *base=vs_base;
8862          register object *sup=base+VM152; VC152          register object *sup=base+VM152; VC152
8863          vs_check;          vs_check;
8864          {register object V1214;          {register object V1151;
8865          check_arg(1);          check_arg(1);
8866          V1214=(base[0]);          V1151=(base[0]);
8867          vs_top=sup;          vs_top=sup;
8868          {register object V1215;          {register object V1152;
8869          object V1216;          object V1153;
8870          V1215= (*(LnkLI290))((V1214));          V1152= (*(LnkLI306))((V1151));
8871          if(type_of(V1215)==t_structure){          if(type_of(V1152)==t_structure){
8872          goto T2638;}          goto T2616;}
8873          goto T2636;          goto T2614;
8874          goto T2638;          goto T2616;
8875  T2638:;  T2616:;
8876          if(!(((V1215)->str.str_def)==(VV[101]))){          if(!(((V1152)->str.str_def)==(VV[109]))){
8877          goto T2636;}          goto T2614;}
8878          V1217= STREF(object,(V1215),4);          V1154= STREF(object,(V1152),4);
8879          goto T2634;          goto T2612;
8880          goto T2636;          goto T2614;
8881  T2636:;{object V1219;  T2614:;{object V1156;
8882          V1219= (VV[65]->s.s_dbind);          V1156= (VV[73]->s.s_dbind);
8883          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
8884          base[4]= (V1215);          base[4]= (V1152);
8885          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8886          (void) (*Lnk197)();          (void) (*Lnk214)();
8887          vs_top=sup;          vs_top=sup;
8888          V1220= vs_base[0];          V1157= vs_base[0];
8889          if(!((V1219)==(CMPcar(V1220)))){          if(!((V1156)==(CMPcar(V1157)))){
8890          goto T2641;}}          goto T2619;}}
8891          V1217= CMPcar(((V1215))->cc.cc_turbo[12]);          V1154= CMPcar(((V1152))->cc.cc_turbo[12]);
8892          goto T2634;          goto T2612;
8893          goto T2641;          goto T2619;
8894  T2641:;  T2619:;
8895          base[3]= VV[66];          base[3]= VV[74];
8896          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8897          Lerror();          Lerror();
8898          vs_top=sup;          vs_top=sup;
8899          V1217= vs_base[0];          V1154= vs_base[0];
8900          goto T2634;          goto T2612;
8901  T2634:;  T2612:;
8902          V1221= (*(LnkLI281))(VV[10],VV[102]);          V1158= (*(LnkLI297))(VV[8],VV[110]);
8903          V1216= (V1217)->v.v_self[fix(/* INLINE-ARGS */V1221)];          V1153= (V1154)->v.v_self[fix(/* INLINE-ARGS */V1158)];
8904          if(type_of(V1214)==t_structure){          if(type_of(V1151)==t_structure){
8905          goto T2651;}          goto T2629;}
8906          goto T2649;          goto T2627;
8907          goto T2651;          goto T2629;
8908  T2651:;  T2629:;
8909          if(!(((V1214)->str.str_def)==(VV[103]))){          if(!(((V1151)->str.str_def)==(VV[111]))){
8910          goto T2649;}          goto T2627;}
8911          V1222= STREF(object,(V1214),4);          V1159= STREF(object,(V1151),4);
8912          goto T2647;          goto T2625;
8913          goto T2649;          goto T2627;
8914  T2649:;{object V1224;  T2627:;{object V1161;
8915          V1224= (VV[65]->s.s_dbind);          V1161= (VV[73]->s.s_dbind);
8916          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
8917          base[4]= (V1214);          base[4]= (V1151);
8918          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8919          (void) (*Lnk197)();          (void) (*Lnk214)();
8920          vs_top=sup;          vs_top=sup;
8921          V1225= vs_base[0];          V1162= vs_base[0];
8922          if(!((V1224)==(CMPcar(V1225)))){          if(!((V1161)==(CMPcar(V1162)))){
8923          goto T2654;}}          goto T2632;}}
8924          V1222= CMPcar(((V1214))->cc.cc_turbo[12]);          V1159= CMPcar(((V1151))->cc.cc_turbo[12]);
8925          goto T2647;          goto T2625;
8926          goto T2654;          goto T2632;
8927  T2654:;  T2632:;
8928          base[3]= VV[66];          base[3]= VV[74];
8929          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8930          Lerror();          Lerror();
8931          vs_top=sup;          vs_top=sup;
8932          V1222= vs_base[0];          V1159= vs_base[0];
8933          goto T2647;          goto T2625;
8934  T2647:;  T2625:;
8935          V1226= (*(LnkLI281))((V1216),(base0[0]->c.c_car));          V1163= (*(LnkLI297))((V1153),(base0[0]->c.c_car));
8936          base[3]= (V1222)->v.v_self[fix(/* INLINE-ARGS */V1226)];          base[3]= (V1159)->v.v_self[fix(/* INLINE-ARGS */V1163)];
8937          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8938          return;}          return;}
8939          }          }
# Line 9081  register object *base0; Line 8945  register object *base0;
8945  {       register object *base=vs_base;  {       register object *base=vs_base;
8946          register object *sup=base+VM153; VC153          register object *sup=base+VM153; VC153
8947          vs_check;          vs_check;
8948          {object V1227;          {object V1164;
8949          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8950          {object *p=vs_top;          {object *p=vs_top;
8951           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8952          V1227=(base[0]);          V1164=(base[0]);
8953          vs_top=sup;          vs_top=sup;
8954          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
8955          base[2]= (V1227);          base[2]= (V1164);
8956          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8957          (void) (*Lnk332)();          (void) (*Lnk347)();
8958          return;          return;
8959          }          }
8960  }  }
# Line 9101  register object *base0; Line 8965  register object *base0;
8965  {       register object *base=vs_base;  {       register object *base=vs_base;
8966          register object *sup=base+VM154; VC154          register object *sup=base+VM154; VC154
8967          vs_check;          vs_check;
8968          {object V1228;          {object V1165;
8969          object V1229;          object V1166;
8970          check_arg(2);          check_arg(2);
8971          V1228=(base[0]);          V1165=(base[0]);
8972          V1229=(base[1]);          V1166=(base[1]);
8973          vs_top=sup;          vs_top=sup;
8974          V1230 = (base0[0]->c.c_car);          base[2]= (V1165);
         base[2]= (V1228);  
8975          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8976          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk253)(Lclptr253);
8977          vs_top=sup;          vs_top=sup;
8978          V1231= vs_base[0];          V1167= vs_base[0];
8979          V1232 = (V1229);          (base0[0]->c.c_car)= (VFUN_NARGS=4,(*(LnkLI264))((base0[0]->c.c_car),V1167,(V1166),Ct));
         (base0[0]->c.c_car)= (VFUN_NARGS=4,(*(LnkLI247))(V1230,V1231,V1232,Ct));  
8980          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
8981          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8982          return;          return;
# Line 9127  register object *base0; Line 8989  register object *base0;
8989  {       register object *base=vs_base;  {       register object *base=vs_base;
8990          register object *sup=base+VM155; VC155          register object *sup=base+VM155; VC155
8991          vs_check;          vs_check;
8992          {object V1233;          {object V1168;
8993          object V1234;          object V1169;
8994          object V1235;          object V1170;
8995          object V1236;          object V1171;
8996          check_arg(4);          check_arg(4);
8997          V1233=(base[0]);          V1168=(base[0]);
8998          V1234=(base[1]);          V1169=(base[1]);
8999          V1235=(base[2]);          V1170=(base[2]);
9000          V1236=(base[3]);          V1171=(base[3]);
9001          vs_top=sup;          vs_top=sup;
9002          {object V1237;          {object V1172;
9003          object V1238;          object V1173;
9004          if(!((VV[10])==(CMPcar((V1234))))){          if(!((VV[8])==(CMPcar((V1169))))){
9005          goto T2667;}          goto T2645;}
9006          {object V1239;          {object V1174;
9007          object V1240;          object V1175;
9008          V1239= (*(LnkLI290))(CMPcadr((V1234)));          V1174= (*(LnkLI306))(CMPcadr((V1169)));
9009          base[8]= (V1239);          base[8]= (V1174);
9010          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
9011          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk280)(Lclptr280);
9012          vs_top=sup;          vs_top=sup;
9013          V1240= vs_base[0];          V1175= vs_base[0];
9014          {register object x= (VV[76]->s.s_dbind),V1241= (V1240);          {register object x= (VV[84]->s.s_dbind),V1176= (V1175);
9015          while(V1241!=Cnil)          while(V1176!=Cnil)
9016          if(x==(V1241->c.c_car)){          if(x==(V1176->c.c_car)){
9017          goto T2674;          goto T2652;
9018          }else V1241=V1241->c.c_cdr;          }else V1176=V1176->c.c_cdr;
9019          goto T2673;}          goto T2651;}
9020          goto T2674;          goto T2652;
9021  T2674:;  T2652:;
9022          V1237= (VV[77]->s.s_dbind);          V1172= (VV[85]->s.s_dbind);
9023          goto T2665;          goto T2643;
9024          goto T2673;          goto T2651;
9025  T2673:;  T2651:;
9026          {register object x= (VV[78]->s.s_dbind),V1242= (V1240);          {register object x= (VV[86]->s.s_dbind),V1177= (V1175);
9027          while(V1242!=Cnil)          while(V1177!=Cnil)
9028          if(x==(V1242->c.c_car)){          if(x==(V1177->c.c_car)){
9029          goto T2677;          goto T2655;
9030          }else V1242=V1242->c.c_cdr;          }else V1177=V1177->c.c_cdr;
9031          goto T2676;}          goto T2654;}
9032          goto T2677;          goto T2655;
9033  T2677:;  T2655:;
9034          V1237= (VV[79]->s.s_dbind);          V1172= (VV[87]->s.s_dbind);
9035          goto T2665;          goto T2643;
9036          goto T2676;          goto T2654;
9037  T2676:;  T2654:;
9038          V1237= (VV[80]->s.s_dbind);          V1172= (VV[88]->s.s_dbind);
9039          goto T2665;}          goto T2643;}
9040          goto T2667;          goto T2645;
9041  T2667:;  T2645:;
9042          V1237= small_fixnum(0);          V1172= small_fixnum(0);
9043          goto T2665;          goto T2643;
9044  T2665:;  T2643:;
9045          V1238= number_plus((number_compare((V1235),(V1236))>=0?((V1235)):(V1236)),(V1237));          V1173= number_plus((number_compare((V1170),(V1171))>=0?((V1170)):(V1171)),(V1172));
9046          if(((base0[1]->c.c_car))==Cnil){          if(((base0[1]->c.c_car))==Cnil){
9047          goto T2679;}          goto T2657;}
9048          if(!(number_compare((base0[1]->c.c_car),(V1238))<=0)){          if(!(number_compare((base0[1]->c.c_car),(V1173))<=0)){
9049          goto T2679;}          goto T2657;}
9050          {frame_ptr fr;          {frame_ptr fr;
9051          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
9052          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[209]);          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[226]);
9053          base[6]= (V1238);          base[6]= (V1173);
9054          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
9055          unwind(fr,Cnil);}          unwind(fr,Cnil);}
9056          goto T2679;          goto T2657;
9057  T2679:;  T2657:;
9058          base[6]= (V1238);          base[6]= (V1173);
9059          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
9060          return;}          return;}
9061          }          }
# Line 9205  register object *base0; Line 9067  register object *base0;
9067  {       register object *base=vs_base;  {       register object *base=vs_base;
9068          register object *sup=base+VM156; VC156          register object *sup=base+VM156; VC156
9069          vs_check;          vs_check;
9070          {object V1243;          {object V1178;
9071          object V1244;          object V1179;
9072          check_arg(2);          check_arg(2);
9073          V1243=(base[0]);          V1178=(base[0]);
9074          V1244=(base[1]);          V1179=(base[1]);
9075          vs_top=sup;          vs_top=sup;
9076          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
9077          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 9223  register object *base0; Line 9085  register object *base0;
9085  {       register object *base=vs_base;  {       register object *base=vs_base;
9086          register object *sup=base+VM157; VC157          register object *sup=base+VM157; VC157
9087          vs_check;          vs_check;
9088          {object V1245;          {object V1180;
9089          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9090          {object *p=vs_top;          {object *p=vs_top;
9091           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9092          V1245=(base[0]);          V1180=(base[0]);
9093          vs_top=sup;          vs_top=sup;
9094          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
9095          base[2]= (V1245);          base[2]= (V1180);
9096          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
9097          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
9098          (void) (*Lnk333)();          (void) (*Lnk348)();
9099          return;          return;
9100          }          }
9101  }  }
# Line 9244  register object *base0; Line 9106  register object *base0;
9106  {       register object *base=vs_base;  {       register object *base=vs_base;
9107          register object *sup=base+VM158; VC158          register object *sup=base+VM158; VC158
9108          vs_check;          vs_check;
9109          {register object V1246;          {register object V1181;
9110          check_arg(1);          check_arg(1);
9111          V1246=(base[0]);          V1181=(base[0]);
9112          vs_top=sup;{object V1247;          vs_top=sup;{object V1182;
9113          if(((VV[72]->s.s_dbind))==(VV[73])){          if(((VV[79]->s.s_dbind))==(VV[80])){
9114          goto T2690;}          goto T2668;}
9115          V1247= Cnil;          V1182= Cnil;
9116          goto T2689;          goto T2667;
9117          goto T2690;          goto T2668;
9118  T2690:;  T2668:;
9119          base[1]= (VV[310]->s.s_gfdef);          base[1]= (VV[326]->s.s_gfdef);
9120          base[3]= (V1246);          base[3]= (V1181);
9121          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9122          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk259)(Lclptr259);
9123          vs_top=sup;          vs_top=sup;
9124          base[2]= vs_base[0];          base[2]= vs_base[0];
9125          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9126          (void) (*Lnk200)();          (void) (*Lnk217)();
9127          vs_top=sup;          vs_top=sup;
9128          V1247= vs_base[0];          V1182= vs_base[0];
9129          goto T2689;          goto T2667;
9130  T2689:;  T2667:;
9131          if(V1247==Cnil)goto T2688;          if(V1182==Cnil)goto T2666;
9132          base[1]= V1247;          base[1]= V1182;
9133          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9134          return;          return;
9135          goto T2688;          goto T2666;
9136  T2688:;}  T2666:;}
9137          {object V1248;          {object V1183;
9138          if(((base0[1]->c.c_car))==Cnil){          if(((base0[1]->c.c_car))==Cnil){
9139          goto T2698;}{object V1250;          goto T2676;}{object V1185;
9140          V1250= CMPcaddr((V1246));          V1185= CMPcaddr((V1181));
9141          if(V1250==Cnil)goto T2700;          if(V1185==Cnil)goto T2678;
9142          V1249= V1250;          V1184= V1185;
9143          goto T2696;          goto T2674;
9144          goto T2700;          goto T2678;
9145  T2700:;}  T2678:;}
9146          V1249= CMPcadr((V1246));          V1184= CMPcadr((V1181));
9147          goto T2696;          goto T2674;
9148          goto T2698;          goto T2676;
9149  T2698:;{object V1251;  T2676:;{object V1186;
9150          base[1]= (V1246);          base[1]= (V1181);
9151          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9152          (void) (*Lnk334)(Lclptr334);          (void) (*Lnk349)(Lclptr349);
9153          vs_top=sup;          vs_top=sup;
9154          V1251= vs_base[0];          V1186= vs_base[0];
9155          if(V1251==Cnil)goto T2702;          if(V1186==Cnil)goto T2680;
9156          V1249= V1251;          V1184= V1186;
9157          goto T2696;          goto T2674;
9158          goto T2702;          goto T2680;
9159  T2702:;}  T2680:;}
9160          base[1]= (V1246);          base[1]= (V1181);
9161          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9162          (void) (*Lnk335)(Lclptr335);          (void) (*Lnk350)(Lclptr350);
9163          vs_top=sup;          vs_top=sup;
9164          V1249= vs_base[0];          V1184= vs_base[0];
9165          goto T2696;          goto T2674;
9166  T2696:;  T2674:;
9167          V1252 = (base0[0]->c.c_car);          V1183= (VFUN_NARGS=3,(*(LnkLI266))(V1184,VV[81],(base0[0]->c.c_car)));
         V1248= (VFUN_NARGS=3,(*(LnkLI249))(V1249,VV[74],V1252));  
9168          if(((base0[2]->c.c_car))==Cnil){          if(((base0[2]->c.c_car))==Cnil){
9169          goto T2707;}          goto T2685;}
9170          if(!(((V1248))==(Ct))){          if(!(((V1183))==(Ct))){
9171          goto T2710;}          goto T2688;}
9172          V1253= Ct;          V1187= Ct;
9173          goto T2709;          goto T2687;
9174          goto T2710;          goto T2688;
9175  T2710:;  T2688:;
9176          V1253= (((V1248))==(Cnil)?Ct:Cnil);          V1187= (((V1183))==(Cnil)?Ct:Cnil);
9177          goto T2709;          goto T2687;
9178  T2709:;  T2687:;
9179          base[1]= ((V1253)==Cnil?Ct:Cnil);          base[1]= ((V1187)==Cnil?Ct:Cnil);
9180          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9181          return;          return;
9182          goto T2707;          goto T2685;
9183  T2707:;  T2685:;
9184          base[1]= (((V1248))==((base0[0]->c.c_car))?Ct:Cnil);          base[1]= (((V1183))==((base0[0]->c.c_car))?Ct:Cnil);
9185          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9186          return;}          return;}
9187          }          }
# Line 9332  register object *base0; Line 9193  register object *base0;
9193  {       register object *base=vs_base;  {       register object *base=vs_base;
9194          register object *sup=base+VM159; VC159          register object *sup=base+VM159; VC159
9195          vs_check;          vs_check;
9196          {object V1254;          {object V1188;
9197          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9198          {object *p=vs_top;          {object *p=vs_top;
9199           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9200          V1254=(base[0]);          V1188=(base[0]);
9201          vs_top=sup;          vs_top=sup;
9202          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
9203          base[2]= (V1254);          base[2]= (V1188);
9204          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
9205          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
9206          (void) (*Lnk336)();          (void) (*Lnk351)();
9207          return;          return;
9208          }          }
9209  }  }
# Line 9353  register object *base0; Line 9214  register object *base0;
9214  {       register object *base=vs_base;  {       register object *base=vs_base;
9215          register object *sup=base+VM160; VC160          register object *sup=base+VM160; VC160
9216          vs_check;          vs_check;
9217          {object V1255;          {object V1189;
9218          check_arg(1);          check_arg(1);
9219          V1255=(base[0]);          V1189=(base[0]);
9220          vs_top=sup;          vs_top=sup;
9221          {object V1256;          {object V1190;
9222          if(!(type_of((V1255))==t_cons||((V1255))==Cnil)){          if(!(type_of((V1189))==t_cons||((V1189))==Cnil)){
9223          goto T2717;}          goto T2695;}
9224          V1256= CMPcaddr((V1255));          V1190= CMPcaddr((V1189));
9225          goto T2715;          goto T2693;
9226          goto T2717;          goto T2695;
9227  T2717:;  T2695:;
9228          base[1]= (V1255);          base[1]= (V1189);
9229          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9230          (void) (*Lnk334)(Lclptr334);          (void) (*Lnk349)(Lclptr349);
9231          vs_top=sup;          vs_top=sup;
9232          V1256= vs_base[0];          V1190= vs_base[0];
9233          goto T2715;          goto T2693;
9234  T2715:;  T2693:;
9235          base[1]= (VFUN_NARGS=2,(*(LnkLI249))((V1256),VV[62]));          base[1]= (VFUN_NARGS=2,(*(LnkLI266))((V1190),VV[70]));
9236          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9237          return;}          return;}
9238          }          }
# Line 9383  register object *base0; Line 9244  register object *base0;
9244  {       register object *base=vs_base;  {       register object *base=vs_base;
9245          register object *sup=base+VM161; VC161          register object *sup=base+VM161; VC161
9246          vs_check;          vs_check;
9247          {object V1257;          {object V1191;
9248          check_arg(1);          check_arg(1);
9249          V1257=(base[0]);          V1191=(base[0]);
9250          vs_top=sup;          vs_top=sup;
9251          base[1]= (((V1257))==(Ct)?Ct:Cnil);          base[1]= (((V1191))==(Ct)?Ct:Cnil);
9252          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9253          return;          return;
9254          }          }
# Line 9399  register object *base0; Line 9260  register object *base0;
9260  {       register object *base=vs_base;  {       register object *base=vs_base;
9261          register object *sup=base+VM162; VC162          register object *sup=base+VM162; VC162
9262          vs_check;          vs_check;
9263          {object V1258;          {object V1192;
9264          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9265          {object *p=vs_top;          {object *p=vs_top;
9266           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9267          V1258=(base[0]);          V1192=(base[0]);
9268          vs_top=sup;          vs_top=sup;
9269          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
9270          base[2]= (V1258);          base[2]= (V1192);
9271          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9272          (void) (*Lnk94)();          (void) (*Lnk102)();
9273          return;          return;
9274          }          }
9275  }  }
# Line 9419  register object *base0; Line 9280  register object *base0;
9280  {       register object *base=vs_base;  {       register object *base=vs_base;
9281          register object *sup=base+VM163; VC163          register object *sup=base+VM163; VC163
9282          vs_check;          vs_check;
9283          {object V1259;          {object V1193;
9284          check_arg(1);          check_arg(1);
9285          V1259=(base[0]);          V1193=(base[0]);
9286          vs_top=sup;          vs_top=sup;
9287          base[1]= (((V1259))==(Ct)?Ct:Cnil);          base[1]= (((V1193))==(Ct)?Ct:Cnil);
9288          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9289          return;          return;
9290          }          }
# Line 9435  register object *base0; Line 9296  register object *base0;
9296  {       register object *base=vs_base;  {       register object *base=vs_base;
9297          register object *sup=base+VM164; VC164          register object *sup=base+VM164; VC164
9298          vs_check;          vs_check;
9299          {object V1260;          {object V1194;
9300          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9301          {object *p=vs_top;          {object *p=vs_top;
9302           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9303          V1260=(base[0]);          V1194=(base[0]);
9304          vs_top=sup;          vs_top=sup;
9305          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
9306          base[2]= (V1260);          base[2]= (V1194);
9307          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
9308          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
9309          (void) (*Lnk337)();          (void) (*Lnk352)();
9310          return;          return;
9311          }          }
9312  }  }
# Line 9456  register object *base0; Line 9317  register object *base0;
9317  {       register object *base=vs_base;  {       register object *base=vs_base;
9318          register object *sup=base+VM165; VC165          register object *sup=base+VM165; VC165
9319          vs_check;          vs_check;
9320          {object V1261;          {object V1195;
9321          check_arg(1);          check_arg(1);
9322          V1261=(base[0]);          V1195=(base[0]);
9323          vs_top=sup;          vs_top=sup;
9324          base[1]= (((V1261))==(Ct)?Ct:Cnil);          base[1]= (((V1195))==(Ct)?Ct:Cnil);
9325          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9326          return;          return;
9327          }          }
# Line 9472  register object *base0; Line 9333  register object *base0;
9333  {       register object *base=vs_base;  {       register object *base=vs_base;
9334          register object *sup=base+VM166; VC166          register object *sup=base+VM166; VC166
9335          vs_check;          vs_check;
9336          {object V1262;          {object V1196;
9337          object V1263;          object V1197;
9338          check_arg(2);          check_arg(2);
9339          V1262=(base[0]);          V1196=(base[0]);
9340          V1263=(base[1]);          V1197=(base[1]);
9341          vs_top=sup;          vs_top=sup;
9342          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
9343          base[3]= (V1262);          base[3]= (V1196);
9344          base[4]= (V1263);          base[4]= (V1197);
9345          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
9346          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
9347          (void) (*Lnk338)();          (void) (*Lnk353)();
9348          return;          return;
9349          }          }
9350  }  }
# Line 9494  register object *base0; Line 9355  register object *base0;
9355  {       register object *base=vs_base;  {       register object *base=vs_base;
9356          register object *sup=base+VM167; VC167          register object *sup=base+VM167; VC167
9357          vs_check;          vs_check;
9358          {object V1264;          {object V1198;
9359          check_arg(1);          check_arg(1);
9360          V1264=(base[0]);          V1198=(base[0]);
9361          vs_top=sup;          vs_top=sup;
9362          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
9363          base[2]= Cnil;          base[2]= Cnil;
9364          base[3]= (V1264);          base[3]= (V1198);
9365          base[4]= (base0[1]->c.c_car);          base[4]= (base0[1]->c.c_car);
9366          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
9367          (void) (*Lnk338)();          (void) (*Lnk353)();
9368          return;          return;
9369          }          }
9370  }  }
9371  static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* ACCESSOR-MISS */  static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* ACCESSOR-MISS */
9372  static void LnkT337(){ call_or_link(VV[337],(void **)(void *)&Lnk337);} /* CHECKING-MISS */  static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* CHECKING-MISS */
9373  static void LnkT336(){ call_or_link(VV[336],(void **)(void *)&Lnk336);} /* CACHING-MISS */  static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* CACHING-MISS */
9374  static void LnkT335(ptr) object *ptr;{ call_or_link_closure(VV[335],(void **)(void *)&Lnk335,(void **)(void *)&Lclptr335);} /* METHOD-FUNCTION */  static void LnkT350(ptr) object *ptr;{ call_or_link_closure(VV[350],(void **)(void *)&Lnk350,(void **)(void *)&Lclptr350);} /* METHOD-FUNCTION */
9375  static void LnkT334(ptr) object *ptr;{ call_or_link_closure(VV[334],(void **)(void *)&Lnk334,(void **)(void *)&Lclptr334);} /* METHOD-FAST-FUNCTION */  static void LnkT349(ptr) object *ptr;{ call_or_link_closure(VV[349],(void **)(void *)&Lnk349,(void **)(void *)&Lclptr349);} /* METHOD-FAST-FUNCTION */
9376  static void LnkT333(){ call_or_link(VV[333],(void **)(void *)&Lnk333);} /* CONSTANT-VALUE-MISS */  static void LnkT348(){ call_or_link(VV[348],(void **)(void *)&Lnk348);} /* CONSTANT-VALUE-MISS */
9377  static void LnkT332(){ call_or_link(VV[332],(void **)(void *)&Lnk332);} /* INITIAL-DFUN */  static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* INITIAL-DFUN */
9378  static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */  static object  LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[346],(void **)(void *)&LnkLI346,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */
9379  static void LnkT330(ptr) object *ptr;{ call_or_link_closure(VV[330],(void **)(void *)&Lnk330,(void **)(void *)&Lclptr330);} /* STANDARD-READER-METHOD-P */  static void LnkT345(ptr) object *ptr;{ call_or_link_closure(VV[345],(void **)(void *)&Lnk345,(void **)(void *)&Lclptr345);} /* STANDARD-READER-METHOD-P */
9380  static void LnkT329(ptr) object *ptr;{ call_or_link_closure(VV[329],(void **)(void *)&Lnk329,(void **)(void *)&Lclptr329);} /* STANDARD-WRITER-METHOD-P */  static void LnkT344(ptr) object *ptr;{ call_or_link_closure(VV[344],(void **)(void *)&Lnk344,(void **)(void *)&Lclptr344);} /* STANDARD-WRITER-METHOD-P */
9381  static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* ORDER-SPECIALIZERS */  static void LnkT343(){ call_or_link(VV[343],(void **)(void *)&Lnk343);} /* ORDER-SPECIALIZERS */
9382  static void LnkT327(ptr) object *ptr;{ call_or_link_closure(VV[327],(void **)(void *)&Lnk327,(void **)(void *)&Lclptr327);} /* CLASS-NAME */  static void LnkT342(ptr) object *ptr;{ call_or_link_closure(VV[342],(void **)(void *)&Lnk342,(void **)(void *)&Lclptr342);} /* CLASS-NAME */
9383  static object  LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,2,first,ap);va_end(ap);return V1;} /* CLASS-MIGHT-PRECEDE-P */  static object  LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,2,first,ap);va_end(ap);return V1;} /* CLASS-MIGHT-PRECEDE-P */
9384  static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)(void *)&LnkLI325,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-DIRECT-SUBCLASSES */  static object  LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)(void *)&LnkLI340,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-DIRECT-SUBCLASSES */
9385  static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* SORT */  static void LnkT339(ptr) object *ptr;{ call_or_link_closure(VV[339],(void **)(void *)&Lnk339,(void **)(void *)&Lclptr339);} /* NO-APPLICABLE-METHOD */
9386  static object  LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)(void *)&LnkLI318,1,first,ap);va_end(ap);return V1;} /* MAP-ALL-GENERIC-FUNCTIONS */  static void LnkT337(){ call_or_link(VV[337],(void **)(void *)&Lnk337);} /* SORT */
9387  static object  LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,1,first,ap);va_end(ap);return V1;} /* FREE-CACHE */  static object  LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)(void *)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* MAP-ALL-GENERIC-FUNCTIONS */
9388  static object  LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)(void *)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */  static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* FREE-CACHE */
9389  static void LnkT315(){ call_or_link(VV[315],(void **)(void *)&Lnk315);} /* SET-FUNCTION-NAME */  static object  LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)(void *)&LnkLI330,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */
9390  static object  LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* DOCTOR-DFUN-FOR-THE-DEBUGGER */  static void LnkT329(ptr) object *ptr;{ call_or_link_closure(VV[329],(void **)(void *)&Lnk329,(void **)(void *)&Lclptr329);} /* COMPUTE-DISCRIMINATING-FUNCTION */
9391  static void LnkT313(ptr) object *ptr;{ call_or_link_closure(VV[313],(void **)(void *)&Lnk313,(void **)(void *)&Lclptr313);} /* COMPUTE-DISCRIMINATING-FUNCTION */  static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* MAKE-INITIAL-DFUN */
9392  static object  LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[312],(void **)(void *)&LnkLI312,1,first,ap);va_end(ap);return V1;} /* MAKE-INITIAL-DFUN */  static object  LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)(void *)&LnkLI327,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */
9393  static object  LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */  static void LnkT326(ptr) object *ptr;{ call_or_link_closure(VV[326],(void **)(void *)&Lnk326,(void **)(void *)&Lclptr326);} /* EQL-SPECIALIZER-P */
9394  static void LnkT310(ptr) object *ptr;{ call_or_link_closure(VV[310],(void **)(void *)&Lnk310,(void **)(void *)&Lclptr310);} /* EQL-SPECIALIZER-P */  static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[325],(void **)(void *)&LnkLI325,first,ap);va_end(ap);return V1;} /* COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */
9395  static object  LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[309],(void **)(void *)&LnkLI309,first,ap);va_end(ap);return V1;} /* COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */  static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* GENERATE-DISCRIMINATION-NET */
9396  static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* GENERATE-DISCRIMINATION-NET */  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,3,first,ap);va_end(ap);return V1;} /* STANDARD-COMPUTE-EFFECTIVE-METHOD */
9397  static object  LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,3,first,ap);va_end(ap);return V1;} /* STANDARD-COMPUTE-EFFECTIVE-METHOD */  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)(void *)&LnkLI322,4,first,ap);va_end(ap);return V1;} /* MAKE-EFFECTIVE-METHOD-FUNCTION1 */
9398  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,4,first,ap);va_end(ap);return V1;} /* MAKE-EFFECTIVE-METHOD-FUNCTION1 */  static object  LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)(void *)&LnkLI321,3,first,ap);va_end(ap);return V1;} /* COMPUTE-EFFECTIVE-METHOD */
9399  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,3,first,ap);va_end(ap);return V1;} /* COMPUTE-EFFECTIVE-METHOD */  static void LnkT320(ptr) object *ptr;{ call_or_link_closure(VV[320],(void **)(void *)&Lnk320,(void **)(void *)&Lclptr320);} /* GENERIC-FUNCTION-METHOD-COMBINATION */
9400  static void LnkT304(ptr) object *ptr;{ call_or_link_closure(VV[304],(void **)(void *)&Lnk304,(void **)(void *)&Lclptr304);} /* GENERIC-FUNCTION-METHOD-COMBINATION */  static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,8,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION2 */
9401  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)(void *)&LnkLI303,8,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION2 */  static object  LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[318],(void **)(void *)&LnkLI318,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
9402  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[302],(void **)(void *)&LnkLI302,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static void LnkT317(){ call_or_link(VV[317],(void **)(void *)&Lnk317);} /* SAUT-EQL */
9403  static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* SAUT-EQL */  static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* SAUT-CLASS-EQ */
9404  static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* SAUT-CLASS-EQ */  static void LnkT315(){ call_or_link(VV[315],(void **)(void *)&Lnk315);} /* SAUT-PROTOTYPE */
9405  static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* SAUT-PROTOTYPE */  static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* SAUT-CLASS */
9406  static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* SAUT-CLASS */  static void LnkT313(){ call_or_link(VV[313],(void **)(void *)&Lnk313);} /* SAUT-NOT */
9407  static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* SAUT-NOT */  static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* SAUT-AND */
9408  static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* SAUT-AND */  static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* TYPE-FROM-SPECIALIZER */
9409  static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* TYPE-FROM-SPECIALIZER */  static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* CLASS-APPLICABLE-USING-CLASS-P */
9410  static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* CLASS-APPLICABLE-USING-CLASS-P */  static void LnkT309(ptr) object *ptr;{ call_or_link_closure(VV[309],(void **)(void *)&Lnk309,(void **)(void *)&Lclptr309);} /* CLASS-DIRECT-SUBCLASSES */
9411  static void LnkT293(ptr) object *ptr;{ call_or_link_closure(VV[293],(void **)(void *)&Lnk293,(void **)(void *)&Lclptr293);} /* CLASS-DIRECT-SUBCLASSES */  static object  LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)(void *)&LnkLI308,2,first,ap);va_end(ap);return V1;} /* CLASSES-HAVE-COMMON-SUBCLASS-P */
9412  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* CLASSES-HAVE-COMMON-SUBCLASS-P */  static object  LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,2,first,ap);va_end(ap);return V1;} /* SUPERCLASSES-COMPATIBLE-P */
9413  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,2,first,ap);va_end(ap);return V1;} /* SUPERCLASSES-COMPATIBLE-P */  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
9414  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* TYPE-CLASS */
9415  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* TYPE-CLASS */  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-EQL */
9416  static object  LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)(void *)&LnkLI288,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-EQL */  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)(void *)&LnkLI303,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-PROTOTYPE */
9417  static object  LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[287],(void **)(void *)&LnkLI287,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-PROTOTYPE */  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)(void *)&LnkLI302,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-CLASS-EQ */
9418  static object  LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)(void *)&LnkLI286,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-CLASS-EQ */  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-CLASS */
9419  static object  LnkTLI285(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[285],(void **)(void *)&LnkLI285,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-CLASS */  static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* POSITION */
9420  static void LnkT284(){ call_or_link(VV[284],(void **)(void *)&Lnk284);} /* POSITION */  static object  LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[299],(void **)(void *)&LnkLI299,2,first,ap);va_end(ap);return V1;} /* CLASS-CAN-PRECEDE-P */
9421  static object  LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)(void *)&LnkLI283,2,first,ap);va_end(ap);return V1;} /* CLASS-CAN-PRECEDE-P */  static object  LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)(void *)&LnkLI297,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */
9422  static object  LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[281],(void **)(void *)&LnkLI281,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */  static void LnkT296(ptr) object *ptr;{ call_or_link_closure(VV[296],(void **)(void *)&Lnk296,(void **)(void *)&Lclptr296);} /* SPECIALIZER-TYPE */
9423  static void LnkT280(ptr) object *ptr;{ call_or_link_closure(VV[280],(void **)(void *)&Lnk280,(void **)(void *)&Lclptr280);} /* SPECIALIZER-TYPE */  static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* STABLE-SORT */
9424  static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* STABLE-SORT */  static object  LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)(void *)&LnkLI294,3,first,ap);va_end(ap);return V1;} /* SORT-METHODS */
9425  static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,3,first,ap);va_end(ap);return V1;} /* SORT-METHODS */  static object  LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,3,first,ap);va_end(ap);return V1;} /* SORT-APPLICABLE-METHODS */
9426  static object  LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)(void *)&LnkLI277,3,first,ap);va_end(ap);return V1;} /* SORT-APPLICABLE-METHODS */  static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */
9427  static void LnkT146(){ call_or_link(VV[146],(void **)(void *)&Lnk146);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */  static void LnkT292(ptr) object *ptr;{ call_or_link_closure(VV[292],(void **)(void *)&Lnk292,(void **)(void *)&Lclptr292);} /* CLASS-FINALIZED-P */
9428  static void LnkT276(ptr) object *ptr;{ call_or_link_closure(VV[276],(void **)(void *)&Lnk276,(void **)(void *)&Lclptr276);} /* CLASS-FINALIZED-P */  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[291],(void **)(void *)&LnkLI291,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */
9429  static object  LnkTLI275(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[275],(void **)(void *)&LnkLI275,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */  static void LnkT290(ptr) object *ptr;{ call_or_link_closure(VV[290],(void **)(void *)&Lnk290,(void **)(void *)&Lclptr290);} /* SLOT-DEFINITION-LOCATION */
9430  static void LnkT274(ptr) object *ptr;{ call_or_link_closure(VV[274],(void **)(void *)&Lnk274,(void **)(void *)&Lclptr274);} /* SLOT-DEFINITION-LOCATION */  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* EARLY-SLOT-DEFINITION-LOCATION */
9431  static object  LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)(void *)&LnkLI273,1,first,ap);va_end(ap);return V1;} /* EARLY-SLOT-DEFINITION-LOCATION */  static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* SLOT-ACCESSOR-STD-P */
9432  static void LnkT272(ptr) object *ptr;{ call_or_link_closure(VV[272],(void **)(void *)&Lnk272,(void **)(void *)&Lclptr272);} /* SLOT-ACCESSOR-STD-P */  static object  LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[287],(void **)(void *)&LnkLI287,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */
9433  static object  LnkTLI271(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[271],(void **)(void *)&LnkLI271,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */  static object  LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)(void *)&LnkLI286,1,first,ap);va_end(ap);return V1;} /* EARLY-SLOT-DEFINITION-NAME */
9434  static object  LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)(void *)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* EARLY-SLOT-DEFINITION-NAME */  static object  LnkTLI285(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[285],(void **)(void *)&LnkLI285,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SLOTDS */
9435  static object  LnkTLI269(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[269],(void **)(void *)&LnkLI269,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SLOTDS */  static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* ACCESSOR-METHOD-SLOT-NAME */
9436  static void LnkT268(ptr) object *ptr;{ call_or_link_closure(VV[268],(void **)(void *)&Lnk268,(void **)(void *)&Lclptr268);} /* ACCESSOR-METHOD-SLOT-NAME */  static object  LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)(void *)&LnkLI283,1,first,ap);va_end(ap);return V1;} /* EARLY-ACCESSOR-METHOD-SLOT-NAME */
9437  static object  LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)(void *)&LnkLI267,1,first,ap);va_end(ap);return V1;} /* EARLY-ACCESSOR-METHOD-SLOT-NAME */  static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* STANDARD-ACCESSOR-METHOD-P */
9438  static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* STANDARD-ACCESSOR-METHOD-P */  static object  LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[281],(void **)(void *)&LnkLI281,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */
9439  static object  LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[265],(void **)(void *)&LnkLI265,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */  static void LnkT280(ptr) object *ptr;{ call_or_link_closure(VV[280],(void **)(void *)&Lnk280,(void **)(void *)&Lclptr280);} /* CLASS-PRECEDENCE-LIST */
9440  static void LnkT264(ptr) object *ptr;{ call_or_link_closure(VV[264],(void **)(void *)&Lnk264,(void **)(void *)&Lclptr264);} /* CLASS-PRECEDENCE-LIST */  static object  LnkTLI279(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[279],(void **)(void *)&LnkLI279,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-PRECEDENCE-LIST */
9441  static object  LnkTLI263(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[263],(void **)(void *)&LnkLI263,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-PRECEDENCE-LIST */  static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-STANDARD-ACCESSOR-P */
9442  static object  LnkTLI262(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[262],(void **)(void *)&LnkLI262,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-STANDARD-ACCESSOR-P */  static void LnkT277(ptr) object *ptr;{ call_or_link_closure(VV[277],(void **)(void *)&Lnk277,(void **)(void *)&Lclptr277);} /* METHOD-QUALIFIERS */
9443  static void LnkT261(ptr) object *ptr;{ call_or_link_closure(VV[261],(void **)(void *)&Lnk261,(void **)(void *)&Lclptr261);} /* METHOD-QUALIFIERS */  static object  LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)(void *)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */
9444  static object  LnkTLI260(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[260],(void **)(void *)&LnkLI260,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */  static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* ACCESSOR-VALUES-INTERNAL */
9445  static void LnkT259(){ call_or_link(VV[259],(void **)(void *)&Lnk259);} /* ACCESSOR-VALUES-INTERNAL */  static void LnkT273(){ call_or_link(VV[273],(void **)(void *)&Lnk273);} /* ACCESSOR-VALUES */
9446  static void LnkT257(){ call_or_link(VV[257],(void **)(void *)&Lnk257);} /* ACCESSOR-VALUES */  static object  LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* DEFAULT-SECONDARY-DISPATCH-FUNCTION */
9447  static object  LnkTLI256(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[256],(void **)(void *)&LnkLI256,1,first,ap);va_end(ap);return V1;} /* DEFAULT-SECONDARY-DISPATCH-FUNCTION */  static void LnkT271(ptr) object *ptr;{ call_or_link_closure(VV[271],(void **)(void *)&Lnk271,(void **)(void *)&Lclptr271);} /* COMPUTE-APPLICABLE-METHODS-USING-CLASSES */
9448  static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* COMPUTE-APPLICABLE-METHODS-USING-CLASSES */  static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* COMPUTE-APPLICABLE-METHODS-USING-TYPES */
9449  static void LnkT254(){ call_or_link(VV[254],(void **)(void *)&Lnk254);} /* COMPUTE-APPLICABLE-METHODS-USING-TYPES */  static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* CACHE-MISS-VALUES-INTERNAL */
9450  static void LnkT253(){ call_or_link(VV[253],(void **)(void *)&Lnk253);} /* CACHE-MISS-VALUES-INTERNAL */  static object  LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)(void *)&LnkLI268,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */
9451  static object  LnkTLI252(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[252],(void **)(void *)&LnkLI252,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */  static object  LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)(void *)&LnkLI267,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */
9452  static object  LnkTLI251(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[251],(void **)(void *)&LnkLI251,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */  static object  LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)(void *)&LnkLI266,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */
9453  static void LnkT250(ptr) object *ptr;{ call_or_link_closure(VV[250],(void **)(void *)&Lnk250,(void **)(void *)&Lclptr250);} /* NO-APPLICABLE-METHOD */  static void LnkT265(){ call_or_link(VV[265],(void **)(void *)&Lnk265);} /* STRUCTURE-SUBTYPE-P */
9454  static object  LnkTLI249(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[249],(void **)(void *)&LnkLI249,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */  static object  LnkTLI264(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[264],(void **)(void *)&LnkLI264,first,ap);va_end(ap);return V1;} /* FILL-CACHE */
9455  static void LnkT248(){ call_or_link(VV[248],(void **)(void *)&Lnk248);} /* STRUCTURE-SUBTYPE-P */  static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* MAKE-FINAL-CHECKING-DFUN */
9456  static object  LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[247],(void **)(void *)&LnkLI247,first,ap);va_end(ap);return V1;} /* FILL-CACHE */  static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* GET-SECONDARY-DISPATCH-FUNCTION */
9457  static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* MAKE-FINAL-CHECKING-DFUN */  static void LnkT261(){ call_or_link(VV[261],(void **)(void *)&Lnk261);} /* MAKE-FINAL-DISPATCH-DFUN */
9458  static void LnkT245(){ call_or_link(VV[245],(void **)(void *)&Lnk245);} /* GET-SECONDARY-DISPATCH-FUNCTION */  static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* MAKE-FINAL-CONSTANT-VALUE-DFUN */
9459  static void LnkT244(){ call_or_link(VV[244],(void **)(void *)&Lnk244);} /* MAKE-FINAL-DISPATCH-DFUN */  static void LnkT259(ptr) object *ptr;{ call_or_link_closure(VV[259],(void **)(void *)&Lnk259,(void **)(void *)&Lclptr259);} /* METHOD-SPECIALIZERS */
9460  static void LnkT243(){ call_or_link(VV[243],(void **)(void *)&Lnk243);} /* MAKE-FINAL-CONSTANT-VALUE-DFUN */  static object  LnkTLI258(){return call_proc0(VV[258],(void **)(void *)&LnkLI258);} /* NO-METHODS-DFUN-INFO */
9461  static void LnkT242(ptr) object *ptr;{ call_or_link_closure(VV[242],(void **)(void *)&Lnk242,(void **)(void *)&Lclptr242);} /* METHOD-SPECIALIZERS */  static void LnkT257(){ call_or_link(VV[257],(void **)(void *)&Lnk257);} /* MAKE-FINAL-CACHING-DFUN */
9462  static object  LnkTLI241(){return call_proc0(VV[241],(void **)(void *)&LnkLI241);} /* NO-METHODS-DFUN-INFO */  static void LnkT256(){ call_or_link(VV[256],(void **)(void *)&Lnk256);} /* MAKE-FINAL-N-N-ACCESSOR-DFUN */
9463  static void LnkT240(){ call_or_link(VV[240],(void **)(void *)&Lnk240);} /* MAKE-FINAL-CACHING-DFUN */  static void LnkT255(){ call_or_link(VV[255],(void **)(void *)&Lnk255);} /* MAKE-FINAL-ONE-INDEX-ACCESSOR-DFUN */
9464  static void LnkT239(){ call_or_link(VV[239],(void **)(void *)&Lnk239);} /* MAKE-FINAL-N-N-ACCESSOR-DFUN */  static void LnkT254(){ call_or_link(VV[254],(void **)(void *)&Lnk254);} /* MAKE-TWO-CLASS-ACCESSOR-DFUN */
9465  static void LnkT238(){ call_or_link(VV[238],(void **)(void *)&Lnk238);} /* MAKE-FINAL-ONE-INDEX-ACCESSOR-DFUN */  static void LnkT253(ptr) object *ptr;{ call_or_link_closure(VV[253],(void **)(void *)&Lnk253,(void **)(void *)&Lclptr253);} /* CLASS-WRAPPER */
9466  static void LnkT237(){ call_or_link(VV[237],(void **)(void *)&Lnk237);} /* MAKE-TWO-CLASS-ACCESSOR-DFUN */  static void LnkT252(){ call_or_link(VV[252],(void **)(void *)&Lnk252);} /* MAKE-ACCESSOR-TABLE */
9467  static void LnkT236(ptr) object *ptr;{ call_or_link_closure(VV[236],(void **)(void *)&Lnk236,(void **)(void *)&Lclptr236);} /* CLASS-WRAPPER */  static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* INVOKE-EMF */
9468  static void LnkT235(){ call_or_link(VV[235],(void **)(void *)&Lnk235);} /* MAKE-ACCESSOR-TABLE */  static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* MAKE-ONE-CLASS-ACCESSOR-DFUN */
9469  static void LnkT94(){ call_or_link(VV[94],(void **)(void *)&Lnk94);} /* INVOKE-EMF */  static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* CACHE-MISS-VALUES */
9470  static void LnkT232(){ call_or_link(VV[232],(void **)(void *)&Lnk232);} /* MAKE-ONE-CLASS-ACCESSOR-DFUN */  static void LnkT248(){ call_or_link(VV[248],(void **)(void *)&Lnk248);} /* EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME */
9471  static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* CACHE-MISS-VALUES */  static object  LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[247],(void **)(void *)&LnkLI247,first,ap);va_end(ap);return V1;} /* SET-DFUN */
9472  static void LnkT231(){ call_or_link(VV[231],(void **)(void *)&Lnk231);} /* EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME */  static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* MAKE-FINAL-ACCESSOR-DFUN */
9473  static object  LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[230],(void **)(void *)&LnkLI230,first,ap);va_end(ap);return V1;} /* SET-DFUN */  static object  LnkTLI245(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[245],(void **)(void *)&LnkLI245,2,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-ACCESSOR */
9474  static void LnkT229(){ call_or_link(VV[229],(void **)(void *)&Lnk229);} /* MAKE-FINAL-ACCESSOR-DFUN */  static object  LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* FINAL-ACCESSOR-DFUN-TYPE */
9475  static object  LnkTLI228(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[228],(void **)(void *)&LnkLI228,2,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-ACCESSOR */  static void LnkT243(){ call_or_link(VV[243],(void **)(void *)&Lnk243);} /* MAKE-FINAL-DFUN-INTERNAL */
9476  static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* FINAL-ACCESSOR-DFUN-TYPE */  static object  LnkTLI242(){return call_proc0(VV[242],(void **)(void *)&LnkLI242);} /* INITIAL-DFUN-INFO */
9477  static void LnkT226(){ call_or_link(VV[226],(void **)(void *)&Lnk226);} /* MAKE-FINAL-DFUN-INTERNAL */  static void LnkT241(){ call_or_link(VV[241],(void **)(void *)&Lnk241);} /* INSURE-CACHING-DFUN */
9478  static object  LnkTLI225(){return call_proc0(VV[225],(void **)(void *)&LnkLI225);} /* INITIAL-DFUN-INFO */  static object  LnkTLI240(){return call_proc0(VV[240],(void **)(void *)&LnkLI240);} /* INITIAL-DISPATCH-DFUN-INFO */
9479  static void LnkT224(){ call_or_link(VV[224],(void **)(void *)&Lnk224);} /* INSURE-DFUN */  static object  LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[239],(void **)(void *)&LnkLI239,first,ap);va_end(ap);return V1;} /* PRECOMPUTE-EFFECTIVE-METHODS */
9480  static object  LnkTLI223(){return call_proc0(VV[223],(void **)(void *)&LnkLI223);} /* INITIAL-DISPATCH-DFUN-INFO */  static object  LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,5,first,ap);va_end(ap);return V1;} /* MAKE-EMF-CACHE */
9481  static object  LnkTLI222(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[222],(void **)(void *)&LnkLI222,first,ap);va_end(ap);return V1;} /* PRECOMPUTE-EFFECTIVE-METHODS */  static object  LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* GF-DFUN-CACHE */
9482  static object  LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,5,first,ap);va_end(ap);return V1;} /* MAKE-EMF-CACHE */  static object  LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* COPY-CACHE */
9483  static object  LnkTLI220(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[220],(void **)(void *)&LnkLI220,1,first,ap);va_end(ap);return V1;} /* GF-DFUN-CACHE */  static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* GF-DFUN-INFO */
9484  static object  LnkTLI219(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[219],(void **)(void *)&LnkLI219,1,first,ap);va_end(ap);return V1;} /* COPY-CACHE */  static object  LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-NKEYS */
9485  static object  LnkTLI218(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[218],(void **)(void *)&LnkLI218,1,first,ap);va_end(ap);return V1;} /* GF-DFUN-INFO */  static object  LnkTLI233(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[233],(void **)(void *)&LnkLI233,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION1 */
9486  static object  LnkTLI217(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[217],(void **)(void *)&LnkLI217,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-NKEYS */  static object  LnkTLI232(){return call_proc0(VV[232],(void **)(void *)&LnkLI232);} /* DISPATCH-DFUN-INFO */
9487  static object  LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[216],(void **)(void *)&LnkLI216,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION1 */  static void LnkT231(){ call_or_link(VV[231],(void **)(void *)&Lnk231);} /* GET-DISPATCH-FUNCTION */
9488  static object  LnkTLI215(){return call_proc0(VV[215],(void **)(void *)&LnkLI215);} /* DISPATCH-DFUN-INFO */  static object  LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,1,first,ap);va_end(ap);return V1;} /* METHODS-CONTAIN-EQL-SPECIALIZER-P */
9489  static void LnkT214(){ call_or_link(VV[214],(void **)(void *)&Lnk214);} /* GET-DISPATCH-FUNCTION */  static void LnkT229(){ call_or_link(VV[229],(void **)(void *)&Lnk229);} /* GENERATE-DISCRIMINATION-NET-INTERNAL */
9490  static object  LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,1,first,ap);va_end(ap);return V1;} /* METHODS-CONTAIN-EQL-SPECIALIZER-P */  static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */
9491  static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* GENERATE-DISCRIMINATION-NET-INTERNAL */  static void LnkT226(){ call_or_link(VV[226],(void **)(void *)&Lnk226);} /* DISPATCH-DFUN-COST */
9492  static object  LnkTLI210(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[210],(void **)(void *)&LnkLI210,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */  static object  LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[225],(void **)(void *)&LnkLI225,1,first,ap);va_end(ap);return V1;} /* CACHING-DFUN-COST */
9493  static void LnkT209(){ call_or_link(VV[209],(void **)(void *)&Lnk209);} /* DISPATCH-DFUN-COST */  static object  LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[224],(void **)(void *)&LnkLI224,1,first,ap);va_end(ap);return V1;} /* CONSTANT-VALUE-DFUN-INFO */
9494  static object  LnkTLI208(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[208],(void **)(void *)&LnkLI208,1,first,ap);va_end(ap);return V1;} /* CACHING-DFUN-COST */  static void LnkT223(){ call_or_link(VV[223],(void **)(void *)&Lnk223);} /* NOTANY */
9495  static object  LnkTLI207(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[207],(void **)(void *)&LnkLI207,1,first,ap);va_end(ap);return V1;} /* CONSTANT-VALUE-DFUN-INFO */  static object  LnkTLI222(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[222],(void **)(void *)&LnkLI222,1,first,ap);va_end(ap);return V1;} /* COMPUTE-APPLICABLE-METHODS-EMF-STD-P */
9496  static void LnkT206(){ call_or_link(VV[206],(void **)(void *)&Lnk206);} /* NOTANY */  static object  LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,1,first,ap);va_end(ap);return V1;} /* CACHING-DFUN-INFO */
9497  static object  LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,1,first,ap);va_end(ap);return V1;} /* COMPUTE-APPLICABLE-METHODS-EMF-STD-P */  static void LnkT219(){ call_or_link(VV[219],(void **)(void *)&Lnk219);} /* MAKE-CONSTANT-VALUE-DFUN */
9498  static object  LnkTLI204(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[204],(void **)(void *)&LnkLI204,1,first,ap);va_end(ap);return V1;} /* CACHING-DFUN-INFO */  static object  LnkTLI218(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[218],(void **)(void *)&LnkLI218,first,ap);va_end(ap);return V1;} /* USE-CONSTANT-VALUE-DFUN-P */
9499  static void LnkT202(){ call_or_link(VV[202],(void **)(void *)&Lnk202);} /* MAKE-CONSTANT-VALUE-DFUN */  static void LnkT217(){ call_or_link(VV[217],(void **)(void *)&Lnk217);} /* SOME */
9500  static object  LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[201],(void **)(void *)&LnkLI201,first,ap);va_end(ap);return V1;} /* USE-CONSTANT-VALUE-DFUN-P */  static void LnkT216(ptr) object *ptr;{ call_or_link_closure(VV[216],(void **)(void *)&Lnk216,(void **)(void *)&Lclptr216);} /* GENERIC-FUNCTION-METHODS */
9501  static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* SOME */  static object  LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
9502  static void LnkT199(ptr) object *ptr;{ call_or_link_closure(VV[199],(void **)(void *)&Lnk199,(void **)(void *)&Lclptr199);} /* GENERIC-FUNCTION-METHODS */  static void LnkT214(){ call_or_link(VV[214],(void **)(void *)&Lnk214);} /* CCLOSURE-ENV-NTHCDR */
9503  static object  LnkTLI198(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[198],(void **)(void *)&LnkLI198,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */
9504  static void LnkT197(){ call_or_link(VV[197],(void **)(void *)&Lnk197);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* MAKE-CHECKING-DFUN */
9505  static object  LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */  static object  LnkTLI209(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[209],(void **)(void *)&LnkLI209,5,first,ap);va_end(ap);return V1;} /* MAKE-FINAL-ORDINARY-DFUN-INTERNAL */
9506  static void LnkT193(){ call_or_link(VV[193],(void **)(void *)&Lnk193);} /* MAKE-CHECKING-DFUN */  static object  LnkTLI208(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[208],(void **)(void *)&LnkLI208,2,first,ap);va_end(ap);return V1;} /* CHECKING-DFUN-INFO */
9507  static object  LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,5,first,ap);va_end(ap);return V1;} /* MAKE-FINAL-ORDINARY-DFUN-INTERNAL */  static object  LnkTLI206(){return call_proc0(VV[206],(void **)(void *)&LnkLI206);} /* DEFAULT-METHOD-ONLY-DFUN-INFO */
9508  static object  LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,2,first,ap);va_end(ap);return V1;} /* CHECKING-DFUN-INFO */  static void LnkT205(){ call_or_link(VV[205],(void **)(void *)&Lnk205);} /* EVERY */
9509  static object  LnkTLI189(){return call_proc0(VV[189],(void **)(void *)&LnkLI189);} /* DEFAULT-METHOD-ONLY-DFUN-INFO */  static void LnkT204(){ call_or_link(VV[204],(void **)(void *)&Lnk204);} /* GET-GENERIC-FUNCTION-INFO */
9510  static void LnkT188(){ call_or_link(VV[188],(void **)(void *)&Lnk188);} /* EVERY */  static void LnkT203(){ call_or_link(VV[203],(void **)(void *)&Lnk203);} /* MAKE-DISPATCH-DFUN */
9511  static void LnkT187(){ call_or_link(VV[187],(void **)(void *)&Lnk187);} /* GET-GENERIC-FUNCTION-INFO */  static object  LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[202],(void **)(void *)&LnkLI202,first,ap);va_end(ap);return V1;} /* USE-DISPATCH-DFUN-P */
9512  static void LnkT186(){ call_or_link(VV[186],(void **)(void *)&Lnk186);} /* MAKE-DISPATCH-DFUN */  static void LnkT201(){ call_or_link(VV[201],(void **)(void *)&Lnk201);} /* MAKE-CACHING-DFUN */
9513  static object  LnkTLI185(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[185],(void **)(void *)&LnkLI185,first,ap);va_end(ap);return V1;} /* USE-DISPATCH-DFUN-P */  static object  LnkTLI200(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[200],(void **)(void *)&LnkLI200,1,first,ap);va_end(ap);return V1;} /* USE-CACHING-DFUN-P */
9514  static void LnkT184(){ call_or_link(VV[184],(void **)(void *)&Lnk184);} /* MAKE-CACHING-DFUN */  static void LnkT199(){ call_or_link(VV[199],(void **)(void *)&Lnk199);} /* MAKE-N-N-ACCESSOR-DFUN */
9515  static object  LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,1,first,ap);va_end(ap);return V1;} /* USE-CACHING-DFUN-P */  static object  LnkTLI198(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[198],(void **)(void *)&LnkLI198,2,first,ap);va_end(ap);return V1;} /* N-N-DFUN-INFO */
9516  static void LnkT182(){ call_or_link(VV[182],(void **)(void *)&Lnk182);} /* MAKE-N-N-ACCESSOR-DFUN */  static object  LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,257,first,ap);va_end(ap);return V1;} /* DEFAULT-LIMIT-FN */
9517  static object  LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* N-N-DFUN-INFO */  static void LnkT195(){ call_or_link(VV[195],(void **)(void *)&Lnk195);} /* MAKE-ONE-INDEX-ACCESSOR-DFUN */
9518  static object  LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,257,first,ap);va_end(ap);return V1;} /* DEFAULT-LIMIT-FN */  static object  LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[194],(void **)(void *)&LnkLI194,first,ap);va_end(ap);return V1;} /* FILL-DFUN-CACHE */
9519  static void LnkT178(){ call_or_link(VV[178],(void **)(void *)&Lnk178);} /* MAKE-ONE-INDEX-ACCESSOR-DFUN */  static object  LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[35],(void **)(void *)&LnkLI35,3,first,ap);va_end(ap);return V1;} /* ONE-INDEX-DFUN-INFO */
9520  static object  LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[177],(void **)(void *)&LnkLI177,first,ap);va_end(ap);return V1;} /* FILL-DFUN-CACHE */  static object  LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,262148,first,ap);va_end(ap);return V1;} /* GET-CACHE */
9521  static object  LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[37],(void **)(void *)&LnkLI37,3,first,ap);va_end(ap);return V1;} /* ONE-INDEX-DFUN-INFO */  static object  LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,4,first,ap);va_end(ap);return V1;} /* TWO-CLASS-DFUN-INFO */
9522  static object  LnkTLI175(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[175],(void **)(void *)&LnkLI175,262148,first,ap);va_end(ap);return V1;} /* GET-CACHE */  static object  LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[190],(void **)(void *)&LnkLI190,2,first,ap);va_end(ap);return V1;} /* ACCESSOR-MISS-FUNCTION */
9523  static object  LnkTLI174(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[174],(void **)(void *)&LnkLI174,4,first,ap);va_end(ap);return V1;} /* TWO-CLASS-DFUN-INFO */  static void LnkT189(){ call_or_link(VV[189],(void **)(void *)&Lnk189);} /* GET-DFUN-CONSTRUCTOR */
9524  static object  LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,2,first,ap);va_end(ap);return V1;} /* ACCESSOR-MISS-FUNCTION */  static object  LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,3,first,ap);va_end(ap);return V1;} /* ONE-CLASS-DFUN-INFO */
9525  static void LnkT172(){ call_or_link(VV[172],(void **)(void *)&Lnk172);} /* GET-DFUN-CONSTRUCTOR */  static void LnkT187(){ call_or_link(VV[187],(void **)(void *)&Lnk187);} /* ERROR */
9526  static object  LnkTLI171(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[171],(void **)(void *)&LnkLI171,3,first,ap);va_end(ap);return V1;} /* ONE-CLASS-DFUN-INFO */  static object  LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */
9527  static object  LnkTLI165(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[165],(void **)(void *)&LnkLI165,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */  static object  LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */
9528  static object  LnkTLI163(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[163],(void **)(void *)&LnkLI163,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */  static object  LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[47],(void **)(void *)&LnkLI47,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */
9529  static object  LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[49],(void **)(void *)&LnkLI49,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */  static void LnkT178(ptr) object *ptr;{ call_or_link_closure(VV[178],(void **)(void *)&Lnk178,(void **)(void *)&Lclptr178);} /* GENERIC-FUNCTION-NAME */
9530  static void LnkT162(ptr) object *ptr;{ call_or_link_closure(VV[162],(void **)(void *)&Lnk162,(void **)(void *)&Lclptr162);} /* GENERIC-FUNCTION-NAME */  static void LnkT177(ptr) object *ptr;{ call_or_link_closure(VV[177],(void **)(void *)&Lnk177,(void **)(void *)&Lclptr177);} /* GF-ARG-INFO */
9531  static void LnkT161(ptr) object *ptr;{ call_or_link_closure(VV[161],(void **)(void *)&Lnk161,(void **)(void *)&Lclptr161);} /* GF-ARG-INFO */  static object  LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)(void *)&LnkLI176,1,first,ap);va_end(ap);return V1;} /* GFS-OF-TYPE */
 static object  LnkTLI160(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[160],(void **)(void *)&LnkLI160,1,first,ap);va_end(ap);return V1;} /* GFS-OF-TYPE */  
9532    
9533  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
9534  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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