/[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.3 by camm, Tue Sep 2 20:32:43 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 211  T72:; Line 211  T72:;
211          Lcopy_list();          Lcopy_list();
212          vs_top=sup;          vs_top=sup;
213          V23= vs_base[0];          V23= vs_base[0];
214            V24 = (V19);
215          if(((V20))!=Cnil){          if(((V20))!=Cnil){
216          goto T79;}          goto T79;}
217          V24= VV[11];          V25= VV[11];
218          goto T77;          goto T77;
219          goto T79;          goto T79;
220  T79:;  T79:;
221          V24= Cnil;          V25= Cnil;
222          goto T77;          goto T77;
223  T77:;  T77:;
224          V22= list(4,V23,(V19),V24,(V20));          V26 = (V20);
225            V22= list(4,V23,V24,V25,V26);
226          if(((V13))==Cnil){          if(((V13))==Cnil){
227          goto T82;}          goto T82;}
228          {object V27;          {object V29;
229          V27= make_cons(V22,CMPcdr(V13));          V29= make_cons(V22,CMPcdr(V13));
230          (V13)->c.c_cdr = (V27);          (V13)->c.c_cdr = (V29);
231          goto T73;}          goto T73;}
232          goto T82;          goto T82;
233  T82:;  T82:;
234          {object V28;          {object V30;
235          V28= list(2,(V6),(V22));          V30= list(2,(V6),(V22));
236          (VV[4]->s.s_dbind)= make_cons((V28),(VV[4]->s.s_dbind));}}          (VV[4]->s.s_dbind)= make_cons((V30),(VV[4]->s.s_dbind));}}
237          goto T73;          goto T73;
238  T73:;  T73:;
239          base[4]= (V19);          base[4]= (V19);
# Line 242  T73:; Line 244  T73:;
244  }  }
245  /*      local entry for function LOAD-PRECOMPILED-DFUN-CONSTRUCTOR      */  /*      local entry for function LOAD-PRECOMPILED-DFUN-CONSTRUCTOR      */
246    
247  static object LI3(V33,V34,V35,V36)  static object LI3(V35,V36,V37,V38)
248    
249  object V33;object V34;object V35;object V36;  object V35;object V36;object V37;object V38;
250  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
251          goto TTL;          goto TTL;
252  TTL:;  TTL:;
253          {object V37;          {object V39;
254          register object V38;          register object V40;
255          {register object x= (V33),V39= (VV[4]->s.s_dbind);          {register object x= (V35),V41= (VV[4]->s.s_dbind);
256          while(V39!=Cnil)          while(V41!=Cnil)
257          if(EQ(x,V39->c.c_car->c.c_car) &&V39->c.c_car != Cnil){          if(EQ(x,V41->c.c_car->c.c_car) &&V41->c.c_car != Cnil){
258          V37= (V39->c.c_car);          V39= (V41->c.c_car);
259          goto T90;          goto T90;
260          }else V39=V39->c.c_cdr;          }else V41=V41->c.c_cdr;
261          V37= Cnil;}          V39= Cnil;}
262          goto T90;          goto T90;
263  T90:;  T90:;
264          {register object x= (V34),V40= CMPcdr((V37));          {register object x= (V36),V42= CMPcdr((V39));
265          while(V40!=Cnil)          while(V42!=Cnil)
266          if(equal(x,V40->c.c_car->c.c_car) &&V40->c.c_car != Cnil){          if(equal(x,V42->c.c_car->c.c_car) &&V42->c.c_car != Cnil){
267          V38= (V40->c.c_car);          V40= (V42->c.c_car);
268          goto T91;          goto T91;
269          }else V40=V40->c.c_cdr;          }else V42=V42->c.c_cdr;
270          V38= Cnil;}          V40= Cnil;}
271          goto T91;          goto T91;
272  T91:;  T91:;
273          if(((V38))==Cnil){          if(((V40))==Cnil){
274          goto T93;}          goto T93;}
275          if((CMPcadddr((V38)))==Cnil){          if((CMPcadddr((V40)))==Cnil){
276          goto T96;}          goto T96;}
277          {object V41;          {object V43;
278          register object V42;          register object V44;
279          object V43;          object V45;
280          {object V44= (V33);          {object V46= (V35);
281          if((V44!= VV[61]))goto T99;          if((V46!= VV[61]))goto T99;
282          V41= VV[12];          V43= VV[12];
283          goto T98;          goto T98;
284          goto T99;          goto T99;
285  T99:;  T99:;
286          if((V44!= VV[68]))goto T100;          if((V46!= VV[68]))goto T100;
287          V41= VV[13];          V43= VV[13];
288          goto T98;          goto T98;
289          goto T100;          goto T100;
290  T100:;  T100:;
291          if((V44!= VV[69]))goto T101;          if((V46!= VV[69]))goto T101;
292          V41= VV[14];          V43= VV[14];
293          goto T98;          goto T98;
294          goto T101;          goto T101;
295  T101:;  T101:;
296          if((V44!= VV[60]))goto T102;          if((V46!= VV[60]))goto T102;
297          V41= VV[15];          V43= VV[15];
298          goto T98;          goto T98;
299          goto T102;          goto T102;
300  T102:;  T102:;
301          V41= Cnil;}          V43= Cnil;}
302          goto T98;          goto T98;
303  T98:;  T98:;
304          V42= CMPcar((V34));          V44= CMPcar((V36));
305          if(((V41))==Cnil){          if(((V43))==Cnil){
306          goto T106;}          goto T106;}
307          V43= (*(LnkLI160))((V41));          V45= (*(LnkLI160))((V43));
308          goto T104;          goto T104;
309          goto T106;          goto T106;
310  T106:;  T106:;
311          V43= Cnil;          V45= Cnil;
312          goto T104;          goto T104;
313  T104:;  T104:;
314          {register object V45;          {register object V47;
315          register object V46;          register object V48;
316          V45= (V43);          V47= (V45);
317          V46= CMPcar((V45));          V48= CMPcar((V47));
318          goto T112;          goto T112;
319  T112:;  T112:;
320          if(!(((V45))==Cnil)){          if(!(((V47))==Cnil)){
321          goto T113;}          goto T113;}
322          goto T108;          goto T108;
323          goto T113;          goto T113;
324  T113:;  T113:;
325          base[6]= (V46);          base[6]= (V48);
326          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
327          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk161)(Lclptr161);
328          vs_top=sup;          vs_top=sup;
329          V47= vs_base[0];          V49= vs_base[0];
330          if(!(equal((V42),STREF(object,V47,8)))){          if(!(equal((V44),STREF(object,V49,8)))){
331          goto T117;}          goto T117;}
332          {register object V48;          {register object V50;
333          base[6]= (V46);          base[6]= (V48);
334          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
335          (void) (*Lnk162)(Lclptr162);          (void) (*Lnk162)(Lclptr162);
336          vs_top=sup;          vs_top=sup;
337          V48= vs_base[0];          V50= vs_base[0];
338          if(((((V48))==(VV[17])?Ct:Cnil))==Cnil){          if(((((V50))==(VV[17])?Ct:Cnil))==Cnil){
339          goto T126;}          goto T126;}
340          goto T117;          goto T117;
341          goto T126;          goto T126;
342  T126:;  T126:;
343          if(((equal((V48),VV[18])?Ct:Cnil))==Cnil){          if(((equal((V50),VV[18])?Ct:Cnil))==Cnil){
344          goto T128;}          goto T128;}
345          goto T117;          goto T117;
346          goto T128;          goto T128;
347  T128:;  T128:;
348          if(!(((((V48))==(VV[19])?Ct:Cnil))==Cnil)){          if(!(((((V50))==(VV[19])?Ct:Cnil))==Cnil)){
349          goto T117;}}          goto T117;}}
350          (void)((VFUN_NARGS=1,(*(LnkLI49))((V46))));          (void)((VFUN_NARGS=1,(*(LnkLI49))((V48))));
351          goto T117;          goto T117;
352  T117:;  T117:;
353          V45= CMPcdr((V45));          V47= CMPcdr((V47));
354          V46= CMPcar((V45));          V48= CMPcar((V47));
355          goto T112;}          goto T112;}
356          goto T108;          goto T108;
357  T108:;  T108:;
358          (CMPcdr(V38))->c.c_car = V36;          (CMPcdr(V40))->c.c_car = V38;
359          (void)(CMPcdr(V38));          (void)(CMPcdr(V40));
360          (CMPcddr(V38))->c.c_car = V35;          (CMPcddr(V40))->c.c_car = V37;
361          (void)(CMPcddr(V38));          (void)(CMPcddr(V40));
362          (CMPcdddr(V38))->c.c_car = Cnil;          (CMPcdddr(V40))->c.c_car = Cnil;
363          (void)(CMPcdddr(V38));          (void)(CMPcdddr(V40));
364          {object V55 = Cnil;          {object V57 = Cnil;
365          VMR3(V55)}}          VMR3(V57)}}
366          goto T96;          goto T96;
367  T96:;  T96:;
368          {object V56 = Cnil;          {object V58 = Cnil;
369          VMR3(V56)}          VMR3(V58)}
370          goto T93;          goto T93;
371  T93:;  T93:;
372          {object V57;          {object V59;
373          V57= list(4,(V34),(V36),(V35),Cnil);          V59= list(4,(V36),(V38),(V37),Cnil);
374          if(((V37))==Cnil){          if(((V39))==Cnil){
375          goto T142;}          goto T142;}
376          {object V60;          {object V62;
377          V60= make_cons(V57,CMPcdr(V37));          V62= make_cons(V59,CMPcdr(V39));
378          (V37)->c.c_cdr = (V60);          (V39)->c.c_cdr = (V62);
379          {object V61 = (V60);          {object V63 = (V62);
380          VMR3(V61)}}          VMR3(V63)}}
381          goto T142;          goto T142;
382  T142:;  T142:;
383          {object V62;          {object V64;
384          V62= list(2,(V33),(V57));          V64= list(2,(V35),(V59));
385          (VV[4]->s.s_dbind)= make_cons((V62),(VV[4]->s.s_dbind));          (VV[4]->s.s_dbind)= make_cons((V64),(VV[4]->s.s_dbind));
386          {object V63 = (VV[4]->s.s_dbind);          {object V65 = (VV[4]->s.s_dbind);
387          VMR3(V63)}}}}          VMR3(V65)}}}}
388          base[0]=base[0];          base[0]=base[0];
389          return Cnil;          return Cnil;
390  }  }
# Line 395  static void L4() Line 397  static void L4()
397          bds_check;          bds_check;
398          check_arg(2);          check_arg(2);
399          vs_top=sup;          vs_top=sup;
400          {object V64=base[0]->c.c_cdr;          {object V66=base[0]->c.c_cdr;
401          if(endp(V64)){          if(endp(V66)){
402          base[2]= Cnil;          base[2]= Cnil;
403          } else {          } else {
404          base[2]= (V64->c.c_car);          base[2]= (V66->c.c_car);
405          V64=V64->c.c_cdr;}          V66=V66->c.c_cdr;}
406          if(!endp(V64))invalid_macro_call();}          if(!endp(V66))invalid_macro_call();}
407          bds_bind(VV[20],Ct);          bds_bind(VV[20],Ct);
         {register object V66;  
         register object V67;  
         V66= Cnil;  
         V67= Cnil;  
408          {register object V68;          {register object V68;
409          register object V69;          register object V69;
410          V68= (VV[4]->s.s_dbind);          V68= Cnil;
411          V69= CMPcar((V68));          V69= Cnil;
412            {register object V70;
413            register object V71;
414            V70= (VV[4]->s.s_dbind);
415            V71= CMPcar((V70));
416          goto T156;          goto T156;
417  T156:;  T156:;
418          if(!(((V68))==Cnil)){          if(!(((V70))==Cnil)){
419          goto T157;}          goto T157;}
420          goto T152;          goto T152;
421          goto T157;          goto T157;
422  T157:;  T157:;
423          {register object V70;          {register object V72;
424          register object V71;          register object V73;
425          V70= CMPcdr((V69));          V72= CMPcdr((V71));
426          V71= CMPcar((V70));          V73= CMPcar((V72));
427          goto T165;          goto T165;
428  T165:;  T165:;
429          if(!(((V70))==Cnil)){          if(!(((V72))==Cnil)){
430          goto T166;}          goto T166;}
431          goto T161;          goto T161;
432          goto T166;          goto T166;
433  T166:;  T166:;
434          if((CMPcaddr((V71)))==Cnil){          if((CMPcaddr((V73)))==Cnil){
435          goto T171;}          goto T171;}
436          if(!((CMPcaddr((V71)))==(base[2]))){          if(!((CMPcaddr((V73)))==(base[2]))){
437          goto T170;}          goto T170;}
438          goto T171;          goto T171;
439  T171:;  T171:;
440          if((base[2])==Cnil){          if((base[2])==Cnil){
441          goto T175;}          goto T175;}
442          {register object V72;          {register object V74;
443          register object V73;          register object V75;
444          V72= (V71);          V74= (V73);
445          V73= base[2];          V75= base[2];
446          (CMPcddr((V72)))->c.c_car = (V73);          (CMPcddr((V74)))->c.c_car = (V75);
447          (void)(CMPcddr((V72)));}          (void)(CMPcddr((V74)));}
448          goto T175;          goto T175;
449  T175:;  T175:;
450          {register object V74;          {register object V76;
451          V75= list(2,VV[22],CMPcar((V69)));          V77= list(2,VV[22],CMPcar((V71)));
452          V76= list(2,VV[25],CMPcar((V69)));          V78= list(2,VV[25],CMPcar((V71)));
453          V77= list(2,VV[25],CMPcar((V71)));          V79= list(2,VV[25],CMPcar((V73)));
454          V78= list(2,VV[25],base[2]);          V80= list(2,VV[25],base[2]);
455          base[8]= CMPcar((V69));          base[8]= CMPcar((V71));
456          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
457          Lsymbol_function();          Lsymbol_function();
458          vs_top=sup;          vs_top=sup;
459          base[7]= vs_base[0];          base[7]= vs_base[0];
460          {object V80;          {object V82;
461          V80= CMPcar((V71));          V82= CMPcar((V73));
462           vs_top=base+8;           vs_top=base+8;
463           while(V80!=Cnil)           while(V82!=Cnil)
464           {vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;}           {vs_push((V82)->c.c_car);V82=(V82)->c.c_cdr;}
465          vs_base=base+8;}          vs_base=base+8;}
466          {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))
467                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
468                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
469                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
470          vs_top=sup;          vs_top=sup;
471          V79= vs_base[0];          V81= vs_base[0];
472          V81= list(5,VV[24],/* INLINE-ARGS */V76,/* INLINE-ARGS */V77,/* INLINE-ARGS */V78,V79);          V83= list(5,VV[24],/* INLINE-ARGS */V78,/* INLINE-ARGS */V79,/* INLINE-ARGS */V80,V81);
473          V74= (*(LnkLI163))(/* INLINE-ARGS */V75,VV[23],/* INLINE-ARGS */V81);          V76= (*(LnkLI163))(/* INLINE-ARGS */V77,VV[23],/* INLINE-ARGS */V83);
474          if(((V66))!=Cnil){          if(((V68))!=Cnil){
475          goto T187;}          goto T187;}
476          V67= make_cons((V74),Cnil);          V69= make_cons((V76),Cnil);
477          V66= (V67);          V68= (V69);
478          goto T170;          goto T170;
479          goto T187;          goto T187;
480  T187:;  T187:;
481          V83= make_cons((V74),Cnil);          V85= make_cons((V76),Cnil);
482          ((V67))->c.c_cdr = /* INLINE-ARGS */V83;          ((V69))->c.c_cdr = /* INLINE-ARGS */V85;
483          V82= (V67);          V84= (V69);
484          V67= CMPcdr(V82);}          V69= CMPcdr(V84);}
485          goto T170;          goto T170;
486  T170:;  T170:;
487          V70= CMPcdr((V70));          V72= CMPcdr((V72));
488          V71= CMPcar((V70));          V73= CMPcar((V72));
489          goto T165;}          goto T165;}
490          goto T161;          goto T161;
491  T161:;  T161:;
492          V68= CMPcdr((V68));          V70= CMPcdr((V70));
493          V69= CMPcar((V68));          V71= CMPcar((V70));
494          goto T156;}          goto T156;}
495          goto T152;          goto T152;
496  T152:;  T152:;
497          V65= (V66);}          V67= (V68);}
498          base[4]= make_cons(VV[21],V65);          base[4]= make_cons(VV[21],V67);
499          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
500          bds_unwind1;          bds_unwind1;
501          return;          return;
# Line 504  static object LI5(object first,...) Line 506  static object LI5(object first,...)
506  {        {      
507          va_list ap;          va_list ap;
508          int narg = VFUN_NARGS; VMB5 VMS5 VMV5          int narg = VFUN_NARGS; VMB5 VMS5 VMV5
509          {object V84;          {object V86;
510          va_start(ap,first);          va_start(ap,first);
511          narg= narg - 0;          narg= narg - 0;
512          {          {
513          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);
514          V84=(Vcs[0]);          V86=(Vcs[0]);
515          base[0]= VV[26];          base[0]= VV[26];
516          base[1]= (V84);          base[1]= (V86);
517          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
518          siLmake_structure();          siLmake_structure();
519          vs_top=sup;          vs_top=sup;
520          {object V85 = vs_base[0];          {object V87 = vs_base[0];
521          VMR5(V85)}          VMR5(V87)}
522          va_end(ap);          va_end(ap);
523          base[0]=base[0];          base[0]=base[0];
524          return Cnil;}          return Cnil;}
525          }}          }}
526  /*      local entry for function PRINT-DFUN-INFO        */  /*      local entry for function PRINT-DFUN-INFO        */
527    
528  static object LI6(V89,V90,V91)  static object LI6(V91,V92,V93)
529    
530  object V89;register object V90;object V91;  object V91;register object V92;object V93;
531  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
532          goto TTL;          goto TTL;
533  TTL:;  TTL:;
534          base[0]= (V90);          base[0]= (V92);
535          base[1]= VV[27];          base[1]= VV[27];
536          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
537          Lformat();          Lformat();
538          vs_top=sup;          vs_top=sup;
539          base[0]= (V90);          base[0]= (V92);
540          base[1]= VV[28];          base[1]= VV[28];
541          base[3]= (V89);          base[3]= (V91);
542          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
543          Ltype_of();          Ltype_of();
544          vs_top=sup;          vs_top=sup;
# Line 544  TTL:; Line 546  TTL:;
546          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
547          Lformat();          Lformat();
548          vs_top=sup;          vs_top=sup;
549          base[0]= (V90);          base[0]= (V92);
550          base[1]= VV[29];          base[1]= VV[29];
551          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
552          Lformat();          Lformat();
553          vs_top=sup;          vs_top=sup;
554          (void)((*(LnkLI165))((V89),(V90)));          (void)((*(LnkLI165))((V91),(V92)));
555          base[0]= (V90);          base[0]= (V92);
556          base[1]= VV[30];          base[1]= VV[30];
557          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
558          Lformat();          Lformat();
559          vs_top=sup;          vs_top=sup;
560          {object V92 = vs_base[0];          {object V94 = vs_base[0];
561          VMR6(V92)}          VMR6(V94)}
562          base[0]=base[0];          base[0]=base[0];
563          return Cnil;          return Cnil;
564  }  }
# Line 566  static object LI7(object first,...) Line 568  static object LI7(object first,...)
568  {        {      
569          va_list ap;          va_list ap;
570          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
571          {object V93;          {object V95;
572          va_start(ap,first);          va_start(ap,first);
573          narg= narg - 0;          narg= narg - 0;
574          {          {
575          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);
576          V93=(Vcs[0]);          V95=(Vcs[0]);
577          base[0]= VV[31];          base[0]= VV[31];
578          base[1]= (V93);          base[1]= (V95);
579          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
580          siLmake_structure();          siLmake_structure();
581          vs_top=sup;          vs_top=sup;
582          {object V94 = vs_base[0];          {object V96 = vs_base[0];
583          VMR7(V94)}          VMR7(V96)}
584          va_end(ap);          va_end(ap);
585          base[0]=base[0];          base[0]=base[0];
586          return Cnil;}          return Cnil;}
# Line 595  TTL:; Line 597  TTL:;
597          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
598          siLmake_structure();          siLmake_structure();
599          vs_top=sup;          vs_top=sup;
600          {object V96 = vs_base[0];          {object V98 = vs_base[0];
601          VMR8(V96)}          VMR8(V98)}
602          base[0]=base[0];          base[0]=base[0];
603          return Cnil;          return Cnil;
604  }  }
# Line 606  static object LI9(object first,...) Line 608  static object LI9(object first,...)
608  {        {      
609          va_list ap;          va_list ap;
610          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
611          {object V97;          {object V99;
612          va_start(ap,first);          va_start(ap,first);
613          narg= narg - 0;          narg= narg - 0;
614          {          {
615          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);
616          V97=(Vcs[0]);          V99=(Vcs[0]);
617          base[0]= VV[32];          base[0]= VV[32];
618          base[1]= (V97);          base[1]= (V99);
619          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
620          siLmake_structure();          siLmake_structure();
621          vs_top=sup;          vs_top=sup;
622          {object V98 = vs_base[0];          {object V100 = vs_base[0];
623          VMR9(V98)}          VMR9(V100)}
624          va_end(ap);          va_end(ap);
625          base[0]=base[0];          base[0]=base[0];
626          return Cnil;}          return Cnil;}
# Line 635  TTL:; Line 637  TTL:;
637          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
638          siLmake_structure();          siLmake_structure();
639          vs_top=sup;          vs_top=sup;
640          {object V100 = vs_base[0];          {object V102 = vs_base[0];
641          VMR10(V100)}          VMR10(V102)}
642          base[0]=base[0];          base[0]=base[0];
643          return Cnil;          return Cnil;
644  }  }
# Line 646  static object LI11(object first,...) Line 648  static object LI11(object first,...)
648  {        {      
649          va_list ap;          va_list ap;
650          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
651          {object V101;          {object V103;
652          va_start(ap,first);          va_start(ap,first);
653          narg= narg - 0;          narg= narg - 0;
654          {          {
655          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);
656          V101=(Vcs[0]);          V103=(Vcs[0]);
657          base[0]= VV[33];          base[0]= VV[33];
658          base[1]= (V101);          base[1]= (V103);
659          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
660          siLmake_structure();          siLmake_structure();
661          vs_top=sup;          vs_top=sup;
662          {object V102 = vs_base[0];          {object V104 = vs_base[0];
663          VMR11(V102)}          VMR11(V104)}
664          va_end(ap);          va_end(ap);
665          base[0]=base[0];          base[0]=base[0];
666          return Cnil;}          return Cnil;}
# Line 675  TTL:; Line 677  TTL:;
677          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
678          siLmake_structure();          siLmake_structure();
679          vs_top=sup;          vs_top=sup;
680          {object V104 = vs_base[0];          {object V106 = vs_base[0];
681          VMR12(V104)}          VMR12(V106)}
682          base[0]=base[0];          base[0]=base[0];
683          return Cnil;          return Cnil;
684  }  }
# Line 686  static object LI13(object first,...) Line 688  static object LI13(object first,...)
688  {        {      
689          va_list ap;          va_list ap;
690          int narg = VFUN_NARGS; VMB13 VMS13 VMV13          int narg = VFUN_NARGS; VMB13 VMS13 VMV13
691          {object V105;          {object V107;
692          va_start(ap,first);          va_start(ap,first);
693          narg= narg - 0;          narg= narg - 0;
694          {          {
695          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);
696          V105=(Vcs[0]);          V107=(Vcs[0]);
697          base[0]= VV[34];          base[0]= VV[34];
698          base[1]= (V105);          base[1]= (V107);
699          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
700          siLmake_structure();          siLmake_structure();
701          vs_top=sup;          vs_top=sup;
702          {object V106 = vs_base[0];          {object V108 = vs_base[0];
703          VMR13(V106)}          VMR13(V108)}
704          va_end(ap);          va_end(ap);
705          base[0]=base[0];          base[0]=base[0];
706          return Cnil;}          return Cnil;}
# Line 715  TTL:; Line 717  TTL:;
717          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
718          siLmake_structure();          siLmake_structure();
719          vs_top=sup;          vs_top=sup;
720          {object V108 = vs_base[0];          {object V110 = vs_base[0];
721          VMR14(V108)}          VMR14(V110)}
722          base[0]=base[0];          base[0]=base[0];
723          return Cnil;          return Cnil;
724  }  }
# Line 726  static object LI15(object first,...) Line 728  static object LI15(object first,...)
728  {        {      
729          va_list ap;          va_list ap;
730          int narg = VFUN_NARGS; VMB15 VMS15 VMV15          int narg = VFUN_NARGS; VMB15 VMS15 VMV15
731          {object V109;          {object V111;
732          va_start(ap,first);          va_start(ap,first);
733          narg= narg - 0;          narg= narg - 0;
734          {          {
735          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);
736          V109=(Vcs[0]);          V111=(Vcs[0]);
737          base[0]= VV[15];          base[0]= VV[15];
738          base[1]= (V109);          base[1]= (V111);
739          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
740          siLmake_structure();          siLmake_structure();
741          vs_top=sup;          vs_top=sup;
742          {object V110 = vs_base[0];          {object V112 = vs_base[0];
743          VMR15(V110)}          VMR15(V112)}
744          va_end(ap);          va_end(ap);
745          base[0]=base[0];          base[0]=base[0];
746          return Cnil;}          return Cnil;}
# Line 755  TTL:; Line 757  TTL:;
757          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
758          siLmake_structure();          siLmake_structure();
759          vs_top=sup;          vs_top=sup;
760          {object V112 = vs_base[0];          {object V114 = vs_base[0];
761          VMR16(V112)}          VMR16(V114)}
762          base[0]=base[0];          base[0]=base[0];
763          return Cnil;          return Cnil;
764  }  }
# Line 766  static object LI17(object first,...) Line 768  static object LI17(object first,...)
768  {        {      
769          va_list ap;          va_list ap;
770          int narg = VFUN_NARGS; VMB17 VMS17 VMV17          int narg = VFUN_NARGS; VMB17 VMS17 VMV17
771          {object V113;          {object V115;
772          object V114;          object V116;
773          va_start(ap,first);          va_start(ap,first);
774          narg= narg - 0;          narg= narg - 0;
775          {          {
776          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);
777          V113=(Vcs[0]);          V115=(Vcs[0]);
778          V114=(Vcs[1]);          V116=(Vcs[1]);
779          base[0]= VV[35];          base[0]= VV[35];
780          base[1]= (V113);          base[1]= (V115);
781          base[2]= (V114);          base[2]= (V116);
782          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
783          siLmake_structure();          siLmake_structure();
784          vs_top=sup;          vs_top=sup;
785          {object V115 = vs_base[0];          {object V117 = vs_base[0];
786          VMR17(V115)}          VMR17(V117)}
787          va_end(ap);          va_end(ap);
788          base[0]=base[0];          base[0]=base[0];
789          return Cnil;}          return Cnil;}
# Line 794  static void L18() Line 796  static void L18()
796          vs_check;          vs_check;
797          check_arg(2);          check_arg(2);
798          vs_top=sup;          vs_top=sup;
799          {object V116=base[0]->c.c_cdr;          {object V118=base[0]->c.c_cdr;
800          if(endp(V116))invalid_macro_call();          if(endp(V118))invalid_macro_call();
801          base[2]= (V116->c.c_car);          base[2]= (V118->c.c_car);
802          V116=V116->c.c_cdr;          V118=V118->c.c_cdr;
803          if(!endp(V116))invalid_macro_call();}          if(!endp(V118))invalid_macro_call();}
804          base[3]= list(2,VV[36],base[2]);          base[3]= list(2,VV[36],base[2]);
805          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
806          return;          return;
# Line 809  static object LI19(object first,...) Line 811  static object LI19(object first,...)
811  {        {      
812          va_list ap;          va_list ap;
813          int narg = VFUN_NARGS; VMB19 VMS19 VMV19          int narg = VFUN_NARGS; VMB19 VMS19 VMV19
814          {object V117;          {object V119;
815          object V118;          object V120;
816          object V119;          object V121;
817          va_start(ap,first);          va_start(ap,first);
818          narg= narg - 0;          narg= narg - 0;
819          {          {
820          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);
821          V117=(Vcs[0]);          V119=(Vcs[0]);
822          V118=(Vcs[1]);          V120=(Vcs[1]);
823          V119=(Vcs[2]);          V121=(Vcs[2]);
824          base[0]= VV[37];          base[0]= VV[37];
825          base[1]= (V117);          base[1]= (V119);
826          base[2]= (V118);          base[2]= (V120);
827          base[3]= (V119);          base[3]= (V121);
828          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
829          siLmake_structure();          siLmake_structure();
830          vs_top=sup;          vs_top=sup;
831          {object V120 = vs_base[0];          {object V122 = vs_base[0];
832          VMR19(V120)}          VMR19(V122)}
833          va_end(ap);          va_end(ap);
834          base[0]=base[0];          base[0]=base[0];
835          return Cnil;}          return Cnil;}
# Line 840  static void L20() Line 842  static void L20()
842          vs_check;          vs_check;
843          check_arg(2);          check_arg(2);
844          vs_top=sup;          vs_top=sup;
845          {object V121=base[0]->c.c_cdr;          {object V123=base[0]->c.c_cdr;
846          if(endp(V121))invalid_macro_call();          if(endp(V123))invalid_macro_call();
847          base[2]= (V121->c.c_car);          base[2]= (V123->c.c_car);
848          V121=V121->c.c_cdr;          V123=V123->c.c_cdr;
849          if(!endp(V121))invalid_macro_call();}          if(!endp(V123))invalid_macro_call();}
850          base[3]= list(2,VV[38],base[2]);          base[3]= list(2,VV[38],base[2]);
851          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
852          return;          return;
# Line 855  static object LI21(object first,...) Line 857  static object LI21(object first,...)
857  {        {      
858          va_list ap;          va_list ap;
859          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB21 VMS21 VMV21
860          {object V122;          {object V124;
861          object V123;          object V125;
862          va_start(ap,first);          va_start(ap,first);
863          narg= narg - 0;          narg= narg - 0;
864          {          {
865          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);
866          V122=(Vcs[0]);          V124=(Vcs[0]);
867          V123=(Vcs[1]);          V125=(Vcs[1]);
868          base[0]= VV[39];          base[0]= VV[39];
869          base[1]= (V122);          base[1]= (V124);
870          base[2]= (V123);          base[2]= (V125);
871          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
872          siLmake_structure();          siLmake_structure();
873          vs_top=sup;          vs_top=sup;
874          {object V124 = vs_base[0];          {object V126 = vs_base[0];
875          VMR21(V124)}          VMR21(V126)}
876          va_end(ap);          va_end(ap);
877          base[0]=base[0];          base[0]=base[0];
878          return Cnil;}          return Cnil;}
879          }}          }}
880  /*      local entry for function N-N-DFUN-INFO  */  /*      local entry for function N-N-DFUN-INFO  */
881    
882  static object LI22(V127,V128)  static object LI22(V129,V130)
883    
884  object V127;object V128;  object V129;object V130;
885  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
886          goto TTL;          goto TTL;
887  TTL:;  TTL:;
888          base[0]= VV[39];          base[0]= VV[39];
889          base[1]= (V128);          base[1]= (V130);
890          base[2]= (V127);          base[2]= (V129);
891          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
892          siLmake_structure();          siLmake_structure();
893          vs_top=sup;          vs_top=sup;
894          {object V129 = vs_base[0];          {object V131 = vs_base[0];
895          VMR22(V129)}          VMR22(V131)}
896          base[0]=base[0];          base[0]=base[0];
897          return Cnil;          return Cnil;
898  }  }
# Line 900  static object LI23(object first,...) Line 902  static object LI23(object first,...)
902  {        {      
903          va_list ap;          va_list ap;
904          int narg = VFUN_NARGS; VMB23 VMS23 VMV23          int narg = VFUN_NARGS; VMB23 VMS23 VMV23
905          {object V130;          {object V132;
         object V131;  
         object V132;  
906          object V133;          object V133;
907            object V134;
908            object V135;
909          va_start(ap,first);          va_start(ap,first);
910          narg= narg - 0;          narg= narg - 0;
911          {          {
912          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);
913          V130=(Vcs[0]);          V132=(Vcs[0]);
914          V131=(Vcs[1]);          V133=(Vcs[1]);
915          V132=(Vcs[2]);          V134=(Vcs[2]);
916          V133=(Vcs[3]);          V135=(Vcs[3]);
917          base[0]= VV[40];          base[0]= VV[40];
918          base[1]= (V130);          base[1]= (V132);
919          base[2]= (V131);          base[2]= (V133);
920          base[3]= (V132);          base[3]= (V134);
921          base[4]= (V133);          base[4]= (V135);
922          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
923          siLmake_structure();          siLmake_structure();
924          vs_top=sup;          vs_top=sup;
925          {object V134 = vs_base[0];          {object V136 = vs_base[0];
926          VMR23(V134)}          VMR23(V136)}
927          va_end(ap);          va_end(ap);
928          base[0]=base[0];          base[0]=base[0];
929          return Cnil;}          return Cnil;}
930          }}          }}
931  /*      local entry for function ONE-CLASS-DFUN-INFO    */  /*      local entry for function ONE-CLASS-DFUN-INFO    */
932    
933  static object LI24(V138,V139,V140)  static object LI24(V140,V141,V142)
934    
935  object V138;object V139;object V140;  object V140;object V141;object V142;
936  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
937          goto TTL;          goto TTL;
938  TTL:;  TTL:;
939          base[0]= VV[40];          base[0]= VV[40];
940          base[1]= Cnil;          base[1]= Cnil;
941          base[2]= (V138);          base[2]= (V140);
942          base[3]= (V139);          base[3]= (V141);
943          base[4]= (V140);          base[4]= (V142);
944          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
945          siLmake_structure();          siLmake_structure();
946          vs_top=sup;          vs_top=sup;
947          {object V142 = vs_base[0];          {object V144 = vs_base[0];
948          VMR24(V142)}          VMR24(V144)}
949          base[0]=base[0];          base[0]=base[0];
950          return Cnil;          return Cnil;
951  }  }
# Line 955  static void L25() Line 957  static void L25()
957          vs_check;          vs_check;
958          check_arg(2);          check_arg(2);
959          vs_top=sup;          vs_top=sup;
960          {object V143=base[0]->c.c_cdr;          {object V145=base[0]->c.c_cdr;
961          if(endp(V143))invalid_macro_call();          if(endp(V145))invalid_macro_call();
962          base[2]= (V143->c.c_car);          base[2]= (V145->c.c_car);
963          V143=V143->c.c_cdr;          V145=V145->c.c_cdr;
964          if(!endp(V143))invalid_macro_call();}          if(!endp(V145))invalid_macro_call();}
965          base[3]= list(2,VV[41],base[2]);          base[3]= list(2,VV[41],base[2]);
966          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
967          return;          return;
# Line 970  static object LI26(object first,...) Line 972  static object LI26(object first,...)
972  {        {      
973          va_list ap;          va_list ap;
974          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
975          {object V144;          {object V146;
         object V145;  
         object V146;  
976          object V147;          object V147;
977          object V148;          object V148;
978            object V149;
979            object V150;
980          va_start(ap,first);          va_start(ap,first);
981          narg= narg - 0;          narg= narg - 0;
982          {          {
983          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);
984          V144=(Vcs[0]);          V146=(Vcs[0]);
985          V145=(Vcs[1]);          V147=(Vcs[1]);
986          V146=(Vcs[2]);          V148=(Vcs[2]);
987          V147=(Vcs[3]);          V149=(Vcs[3]);
988          V148=(Vcs[4]);          V150=(Vcs[4]);
989          base[0]= VV[42];          base[0]= VV[42];
990          base[1]= (V144);          base[1]= (V146);
991          base[2]= (V145);          base[2]= (V147);
992          base[3]= (V146);          base[3]= (V148);
993          base[4]= (V147);          base[4]= (V149);
994          base[5]= (V148);          base[5]= (V150);
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 V149 = vs_base[0];          {object V151 = vs_base[0];
999          VMR26(V149)}          VMR26(V151)}
1000          va_end(ap);          va_end(ap);
1001          base[0]=base[0];          base[0]=base[0];
1002          return Cnil;}          return Cnil;}
1003          }}          }}
1004  /*      local entry for function TWO-CLASS-DFUN-INFO    */  /*      local entry for function TWO-CLASS-DFUN-INFO    */
1005    
1006  static object LI27(V154,V155,V156,V157)  static object LI27(V156,V157,V158,V159)
1007    
1008  object V154;object V155;object V156;object V157;  object V156;object V157;object V158;object V159;
1009  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1010          goto TTL;          goto TTL;
1011  TTL:;  TTL:;
1012          base[0]= VV[42];          base[0]= VV[42];
1013          base[1]= Cnil;          base[1]= Cnil;
1014          base[2]= (V154);          base[2]= (V156);
1015          base[3]= (V155);          base[3]= (V157);
1016          base[4]= (V156);          base[4]= (V158);
1017          base[5]= (V157);          base[5]= (V159);
1018          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
1019          siLmake_structure();          siLmake_structure();
1020          vs_top=sup;          vs_top=sup;
1021          {object V159 = vs_base[0];          {object V161 = vs_base[0];
1022          VMR27(V159)}          VMR27(V161)}
1023          base[0]=base[0];          base[0]=base[0];
1024          return Cnil;          return Cnil;
1025  }  }
# Line 1029  static void L28() Line 1031  static void L28()
1031          vs_check;          vs_check;
1032          check_arg(2);          check_arg(2);
1033          vs_top=sup;          vs_top=sup;
1034          {object V160=base[0]->c.c_cdr;          {object V162=base[0]->c.c_cdr;
1035          if(endp(V160))invalid_macro_call();          if(endp(V162))invalid_macro_call();
1036          base[2]= (V160->c.c_car);          base[2]= (V162->c.c_car);
1037          V160=V160->c.c_cdr;          V162=V162->c.c_cdr;
1038          if(!endp(V160))invalid_macro_call();}          if(!endp(V162))invalid_macro_call();}
1039          base[3]= list(2,VV[43],base[2]);          base[3]= list(2,VV[43],base[2]);
1040          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1041          return;          return;
# Line 1044  static object LI29(object first,...) Line 1046  static object LI29(object first,...)
1046  {        {      
1047          va_list ap;          va_list ap;
1048          int narg = VFUN_NARGS; VMB29 VMS29 VMV29          int narg = VFUN_NARGS; VMB29 VMS29 VMV29
1049          {object V161;          {object V163;
1050          object V162;          object V164;
1051          object V163;          object V165;
1052          va_start(ap,first);          va_start(ap,first);
1053          narg= narg - 0;          narg= narg - 0;
1054          {          {
1055          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);
1056          V161=(Vcs[0]);          V163=(Vcs[0]);
1057          V162=(Vcs[1]);          V164=(Vcs[1]);
1058          V163=(Vcs[2]);          V165=(Vcs[2]);
1059          base[0]= VV[44];          base[0]= VV[44];
1060          base[1]= (V161);          base[1]= (V163);
1061          base[2]= (V162);          base[2]= (V164);
1062          base[3]= (V163);          base[3]= (V165);
1063          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1064          siLmake_structure();          siLmake_structure();
1065          vs_top=sup;          vs_top=sup;
1066          {object V164 = vs_base[0];          {object V166 = vs_base[0];
1067          VMR29(V164)}          VMR29(V166)}
1068          va_end(ap);          va_end(ap);
1069          base[0]=base[0];          base[0]=base[0];
1070          return Cnil;}          return Cnil;}
1071          }}          }}
1072  /*      local entry for function ONE-INDEX-DFUN-INFO    */  /*      local entry for function ONE-INDEX-DFUN-INFO    */
1073    
1074  static object LI30(V168,V169,V170)  static object LI30(V170,V171,V172)
1075    
1076  object V168;object V169;object V170;  object V170;object V171;object V172;
1077  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1078          goto TTL;          goto TTL;
1079  TTL:;  TTL:;
1080          base[0]= VV[44];          base[0]= VV[44];
1081          base[1]= (V170);          base[1]= (V172);
1082          base[2]= (V168);          base[2]= (V170);
1083          base[3]= (V169);          base[3]= (V171);
1084          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1085          siLmake_structure();          siLmake_structure();
1086          vs_top=sup;          vs_top=sup;
1087          {object V171 = vs_base[0];          {object V173 = vs_base[0];
1088          VMR30(V171)}          VMR30(V173)}
1089          base[0]=base[0];          base[0]=base[0];
1090          return Cnil;          return Cnil;
1091  }  }
# Line 1093  static object LI31(object first,...) Line 1095  static object LI31(object first,...)
1095  {        {      
1096          va_list ap;          va_list ap;
1097          int narg = VFUN_NARGS; VMB31 VMS31 VMV31          int narg = VFUN_NARGS; VMB31 VMS31 VMV31
1098          {object V172;          {object V174;
1099          object V173;          object V175;
1100          va_start(ap,first);          va_start(ap,first);
1101          narg= narg - 0;          narg= narg - 0;
1102          {          {
1103          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);
1104          V172=(Vcs[0]);          V174=(Vcs[0]);
1105          V173=(Vcs[1]);          V175=(Vcs[1]);
1106          base[0]= VV[12];          base[0]= VV[12];
1107          base[1]= (V172);          base[1]= (V174);
1108          base[2]= (V173);          base[2]= (V175);
1109          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1110          siLmake_structure();          siLmake_structure();
1111          vs_top=sup;          vs_top=sup;
1112          {object V174 = vs_base[0];          {object V176 = vs_base[0];
1113          VMR31(V174)}          VMR31(V176)}
1114          va_end(ap);          va_end(ap);
1115          base[0]=base[0];          base[0]=base[0];
1116          return Cnil;}          return Cnil;}
1117          }}          }}
1118  /*      local entry for function CHECKING-DFUN-INFO     */  /*      local entry for function CHECKING-DFUN-INFO     */
1119    
1120  static object LI32(V177,V178)  static object LI32(V179,V180)
1121    
1122  object V177;object V178;  object V179;object V180;
1123  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1124          goto TTL;          goto TTL;
1125  TTL:;  TTL:;
1126          base[0]= VV[12];          base[0]= VV[12];
1127          base[1]= (V178);          base[1]= (V180);
1128          base[2]= (V177);          base[2]= (V179);
1129          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1130          siLmake_structure();          siLmake_structure();
1131          vs_top=sup;          vs_top=sup;
1132          {object V179 = vs_base[0];          {object V181 = vs_base[0];
1133          VMR32(V179)}          VMR32(V181)}
1134          base[0]=base[0];          base[0]=base[0];
1135          return Cnil;          return Cnil;
1136  }  }
# Line 1140  static void L33() Line 1142  static void L33()
1142          vs_check;          vs_check;
1143          check_arg(2);          check_arg(2);
1144          vs_top=sup;          vs_top=sup;
1145          {object V180=base[0]->c.c_cdr;          {object V182=base[0]->c.c_cdr;
1146          if(endp(V180))invalid_macro_call();          if(endp(V182))invalid_macro_call();
1147          base[2]= (V180->c.c_car);          base[2]= (V182->c.c_car);
1148          V180=V180->c.c_cdr;          V182=V182->c.c_cdr;
1149          if(!endp(V180))invalid_macro_call();}          if(!endp(V182))invalid_macro_call();}
1150          base[3]= list(2,VV[45],base[2]);          base[3]= list(2,VV[45],base[2]);
1151          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1152          return;          return;
# Line 1155  static object LI34(object first,...) Line 1157  static object LI34(object first,...)
1157  {        {      
1158          va_list ap;          va_list ap;
1159          int narg = VFUN_NARGS; VMB34 VMS34 VMV34          int narg = VFUN_NARGS; VMB34 VMS34 VMV34
1160          {object V181;          {object V183;
1161          va_start(ap,first);          va_start(ap,first);
1162          narg= narg - 0;          narg= narg - 0;
1163          {          {
1164          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);
1165          V181=(Vcs[0]);          V183=(Vcs[0]);
1166          base[0]= VV[13];          base[0]= VV[13];
1167          base[1]= (V181);          base[1]= (V183);
1168          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1169          siLmake_structure();          siLmake_structure();
1170          vs_top=sup;          vs_top=sup;
1171          {object V182 = vs_base[0];          {object V184 = vs_base[0];
1172          VMR34(V182)}          VMR34(V184)}
1173          va_end(ap);          va_end(ap);
1174          base[0]=base[0];          base[0]=base[0];
1175          return Cnil;}          return Cnil;}
1176          }}          }}
1177  /*      local entry for function CACHING-DFUN-INFO      */  /*      local entry for function CACHING-DFUN-INFO      */
1178    
1179  static object LI35(V184)  static object LI35(V186)
1180    
1181  object V184;  object V186;
1182  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
1183          goto TTL;          goto TTL;
1184  TTL:;  TTL:;
1185          base[0]= VV[13];          base[0]= VV[13];
1186          base[1]= (V184);          base[1]= (V186);
1187          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1188          siLmake_structure();          siLmake_structure();
1189          vs_top=sup;          vs_top=sup;
1190          {object V185 = vs_base[0];          {object V187 = vs_base[0];
1191          VMR35(V185)}          VMR35(V187)}
1192          base[0]=base[0];          base[0]=base[0];
1193          return Cnil;          return Cnil;
1194  }  }
# Line 1196  static object LI36(object first,...) Line 1198  static object LI36(object first,...)
1198  {        {      
1199          va_list ap;          va_list ap;
1200          int narg = VFUN_NARGS; VMB36 VMS36 VMV36          int narg = VFUN_NARGS; VMB36 VMS36 VMV36
1201          {object V186;          {object V188;
1202          va_start(ap,first);          va_start(ap,first);
1203          narg= narg - 0;          narg= narg - 0;
1204          {          {
1205          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);
1206          V186=(Vcs[0]);          V188=(Vcs[0]);
1207          base[0]= VV[14];          base[0]= VV[14];
1208          base[1]= (V186);          base[1]= (V188);
1209          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1210          siLmake_structure();          siLmake_structure();
1211          vs_top=sup;          vs_top=sup;
1212          {object V187 = vs_base[0];          {object V189 = vs_base[0];
1213          VMR36(V187)}          VMR36(V189)}
1214          va_end(ap);          va_end(ap);
1215          base[0]=base[0];          base[0]=base[0];
1216          return Cnil;}          return Cnil;}
1217          }}          }}
1218  /*      local entry for function CONSTANT-VALUE-DFUN-INFO       */  /*      local entry for function CONSTANT-VALUE-DFUN-INFO       */
1219    
1220  static object LI37(V189)  static object LI37(V191)
1221    
1222  object V189;  object V191;
1223  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
1224          goto TTL;          goto TTL;
1225  TTL:;  TTL:;
1226          base[0]= VV[14];          base[0]= VV[14];
1227          base[1]= (V189);          base[1]= (V191);
1228          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1229          siLmake_structure();          siLmake_structure();
1230          vs_top=sup;          vs_top=sup;
1231          {object V190 = vs_base[0];          {object V192 = vs_base[0];
1232          VMR37(V190)}          VMR37(V192)}
1233          base[0]=base[0];          base[0]=base[0];
1234          return Cnil;          return Cnil;
1235  }  }
# Line 1239  static void L38() Line 1241  static void L38()
1241          vs_check;          vs_check;
1242          check_arg(2);          check_arg(2);
1243          vs_top=sup;          vs_top=sup;
1244          {object V191=base[0]->c.c_cdr;          {object V193=base[0]->c.c_cdr;
1245          if(endp(V191))invalid_macro_call();          if(endp(V193))invalid_macro_call();
1246          base[2]= (V191->c.c_car);          base[2]= (V193->c.c_car);
1247          V191=V191->c.c_cdr;          V193=V193->c.c_cdr;
1248          if(endp(V191))invalid_macro_call();          if(endp(V193))invalid_macro_call();
1249          base[3]= (V191->c.c_car);          base[3]= (V193->c.c_car);
1250          V191=V191->c.c_cdr;          V193=V193->c.c_cdr;
1251          base[4]= V191;}          base[4]= V193;}
1252          V192= listA(4,VV[48],base[3],base[2],base[4]);          V194= listA(4,VV[48],base[3],base[2],base[4]);
1253          base[5]= list(4,VV[46],VV[47],/* INLINE-ARGS */V192,listA(3,VV[49],base[2],VV[50]));          base[5]= list(4,VV[46],VV[47],/* INLINE-ARGS */V194,listA(3,VV[49],base[2],VV[50]));
1254          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1255          return;          return;
1256  }  }
1257  /*      local entry for function ACCESSOR-MISS-FUNCTION */  /*      local entry for function ACCESSOR-MISS-FUNCTION */
1258    
1259  static object LI40(V195,V196)  static object LI40(V197,V198)
1260    
1261  object V195;object V196;  object V197;object V198;
1262  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
1263          goto TTL;          goto TTL;
1264  TTL:;  TTL:;
1265          base[0]=MMcons((V196),Cnil);          base[0]=MMcons((V198),Cnil);
1266          base[1]=MMcons((V195),base[0]);          base[1]=MMcons((V197),base[0]);
1267          {object V197= STREF(object,(base[0]->c.c_car),4);          {object V199= STREF(object,(base[0]->c.c_car),4);
1268          if((V197!= VV[51]))goto T296;          if((V199!= VV[51]))goto T296;
1269          {object V198 =          {object V200 =
1270          make_cclosure_new(LC139,Cnil,base[1],Cdata);          make_cclosure_new(LC139,Cnil,base[1],Cdata);
1271          VMR39(V198)}          VMR39(V200)}
1272          goto T296;          goto T296;
1273  T296:;  T296:;
1274          if((V197!= VV[123]))goto T297;          if((V199!= VV[123]))goto T297;
1275          {object V199 =          {object V201 =
1276          make_cclosure_new(LC140,Cnil,base[1],Cdata);          make_cclosure_new(LC140,Cnil,base[1],Cdata);
1277          VMR39(V199)}          VMR39(V201)}
1278          goto T297;          goto T297;
1279  T297:;  T297:;
1280          FEerror("The ECASE key value ~s is illegal.",1,V197);          FEerror("The ECASE key value ~s is illegal.",1,V199);
1281          {object V200 = Cnil;          {object V202 = Cnil;
1282          VMR39(V200)}}          VMR39(V202)}}
1283          base[0]=base[0];          base[0]=base[0];
1284          return Cnil;          return Cnil;
1285  }  }
# Line 1287  static void L41() Line 1289  static void L41()
1289  {register object *base=vs_base;  {register object *base=vs_base;
1290          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
1291          vs_check;          vs_check;
1292          {object V201;          {object V203;
         object V202;  
         object V203;  
1293          object V204;          object V204;
1294            object V205;
1295            object V206;
1296          check_arg(4);          check_arg(4);
1297          V201=(base[0]);          V203=(base[0]);
1298          V202=(base[1]);          V204=(base[1]);
1299          V203=(base[2]);          V205=(base[2]);
1300          V204=(base[3]);          V206=(base[3]);
1301          vs_top=sup;          vs_top=sup;
1302          goto TTL;          goto TTL;
1303  TTL:;  TTL:;
1304          {object V205;          {object V207;
1305          object V206;          object V208;
1306          if(!(((V202))==(VV[51]))){          if(!(((V204))==(VV[51]))){
1307          goto T300;}          goto T300;}
1308          V205= VV[52];          V207= VV[52];
1309          goto T298;          goto T298;
1310          goto T300;          goto T300;
1311  T300:;  T300:;
1312          V205= VV[53];          V207= VV[53];
1313          goto T298;          goto T298;
1314  T298:;  T298:;
1315          V206= (*(LnkLI171))((V202),(V204),(V203));          V208= (*(LnkLI171))((V204),(V206),(V205));
1316          base[6]= (V205);          base[6]= (V207);
1317          base[7]= (type_of((V204))==t_cons?Ct:Cnil);          base[7]= (type_of((V206))==t_cons?Ct:Cnil);
1318          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1319          (void) (*Lnk172)();          (void) (*Lnk172)();
1320          vs_top=sup;          vs_top=sup;
1321          base[5]= vs_base[0];          base[5]= vs_base[0];
1322          base[6]= (V203);          base[6]= (V205);
1323          base[7]= (V204);          base[7]= (V206);
1324          base[8]= (*(LnkLI173))((V201),(V206));          base[8]= (*(LnkLI173))((V203),(V208));
1325          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1326          {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))
1327                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1328  T298:; Line 1330  T298:;
1330          vs_top=sup;          vs_top=sup;
1331          base[4]= vs_base[0];          base[4]= vs_base[0];
1332          base[5]= Cnil;          base[5]= Cnil;
1333          base[6]= (V206);          base[6]= (V208);
1334          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1335          return;}          return;}
1336          }          }
# Line 1339  static void L42() Line 1341  static void L42()
1341  {register object *base=vs_base;  {register object *base=vs_base;
1342          register object *sup=base+VM41; VC41          register object *sup=base+VM41; VC41
1343          vs_check;          vs_check;
1344          {object V207;          {object V209;
         object V208;  
         object V209;  
1345          object V210;          object V210;
1346          object V211;          object V211;
1347            object V212;
1348            object V213;
1349          check_arg(5);          check_arg(5);
1350          V207=(base[0]);          V209=(base[0]);
1351          V208=(base[1]);          V210=(base[1]);
1352          V209=(base[2]);          V211=(base[2]);
1353          V210=(base[3]);          V212=(base[3]);
1354          V211=(base[4]);          V213=(base[4]);
1355          vs_top=sup;          vs_top=sup;
1356          goto TTL;          goto TTL;
1357  TTL:;  TTL:;
1358          {object V212;          {object V214;
1359          object V213;          object V215;
1360          if(!(((V208))==(VV[51]))){          if(!(((V210))==(VV[51]))){
1361          goto T314;}          goto T314;}
1362          V212= VV[54];          V214= VV[54];
1363          goto T312;          goto T312;
1364          goto T314;          goto T314;
1365  T314:;  T314:;
1366          V212= VV[55];          V214= VV[55];
1367          goto T312;          goto T312;
1368  T312:;  T312:;
1369          V213= (*(LnkLI174))((V208),(V211),(V209),(V210));          V215= (*(LnkLI174))((V210),(V213),(V211),(V212));
1370          base[7]= (V212);          base[7]= (V214);
1371          base[8]= (type_of((V211))==t_cons?Ct:Cnil);          base[8]= (type_of((V213))==t_cons?Ct:Cnil);
1372          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
1373          (void) (*Lnk172)();          (void) (*Lnk172)();
1374          vs_top=sup;          vs_top=sup;
1375          base[6]= vs_base[0];          base[6]= vs_base[0];
1376          base[7]= (V209);          base[7]= (V211);
1377          base[8]= (V210);          base[8]= (V212);
1378          base[9]= (V211);          base[9]= (V213);
1379          base[10]= (*(LnkLI173))((V207),(V213));          base[10]= (*(LnkLI173))((V209),(V215));
1380          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+7)+4;
1381          {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))
1382                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1383  T312:; Line 1385  T312:;
1385          vs_top=sup;          vs_top=sup;
1386          base[5]= vs_base[0];          base[5]= vs_base[0];
1387          base[6]= Cnil;          base[6]= Cnil;
1388          base[7]= (V213);          base[7]= (V215);
1389          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1390          return;}          return;}
1391          }          }
# Line 1394  static void L43() Line 1396  static void L43()
1396  {register object *base=vs_base;  {register object *base=vs_base;
1397          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
1398          vs_check;          vs_check;
1399          {object V214;          {object V216;
         object V215;  
         object V216;  
1400          object V217;          object V217;
1401            object V218;
1402            object V219;
1403          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
1404          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
1405          V214=(base[0]);          V216=(base[0]);
1406          V215=(base[1]);          V217=(base[1]);
1407          V216=(base[2]);          V218=(base[2]);
1408          vs_base=vs_base+3;          vs_base=vs_base+3;
1409          if(vs_base>=vs_top){vs_top=sup;goto T327;}          if(vs_base>=vs_top){vs_top=sup;goto T327;}
1410          V217=(base[3]);          V219=(base[3]);
1411          vs_top=sup;          vs_top=sup;
1412          goto T328;          goto T328;
1413          goto T327;          goto T327;
1414  T327:;  T327:;
1415          V217= Cnil;          V219= Cnil;
1416          goto T328;          goto T328;
1417  T328:;  T328:;
1418          {object V218;          {object V220;
1419          object V219;          object V221;
1420          object V220;          object V222;
1421          if(!(((V215))==(VV[51]))){          if(!(((V217))==(VV[51]))){
1422          goto T332;}          goto T332;}
1423          V218= VV[56];          V220= VV[56];
1424          goto T330;          goto T330;
1425          goto T332;          goto T332;
1426  T332:;  T332:;
1427          V218= VV[57];          V220= VV[57];
1428          goto T330;          goto T330;
1429  T330:;  T330:;
1430          if((V217)!=Cnil){          if((V219)!=Cnil){
1431          V219= (V217);          V221= (V219);
1432          goto T334;}          goto T334;}
1433          V221= (VV[176]->s.s_gfdef);          V223= (VV[176]->s.s_gfdef);
1434          V219= (*(LnkLI175))(small_fixnum(1),Cnil,V221,4);          V221= (*(LnkLI175))(small_fixnum(1),Cnil,V223,4);
1435          goto T334;          goto T334;
1436  T334:;  T334:;
1437          V220= (*(LnkLI37))((V215),(V216),(V219));          V222= (*(LnkLI37))((V217),(V218),(V221));
1438          base[9]= (V218);          base[9]= (V220);
1439          base[10]= (type_of((V216))==t_cons?Ct:Cnil);          base[10]= (type_of((V218))==t_cons?Ct:Cnil);
1440          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
1441          (void) (*Lnk172)();          (void) (*Lnk172)();
1442          vs_top=sup;          vs_top=sup;
1443          base[8]= vs_base[0];          base[8]= vs_base[0];
1444          base[9]= (V219);          base[9]= (V221);
1445          base[10]= (V216);          base[10]= (V218);
1446          base[11]= (*(LnkLI173))((V214),(V220));          base[11]= (*(LnkLI173))((V216),(V222));
1447          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
1448          {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))
1449                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1449  T334:; Line 1451  T334:;
1451                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1452          vs_top=sup;          vs_top=sup;
1453          base[7]= vs_base[0];          base[7]= vs_base[0];
1454          base[8]= (V219);          base[8]= (V221);
1455          base[9]= (V220);          base[9]= (V222);
1456          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1457          return;}          return;}
1458          }          }
# Line 1461  static void L44() Line 1463  static void L44()
1463  {register object *base=vs_base;  {register object *base=vs_base;
1464          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
1465          vs_check;          vs_check;
1466          {object V222;          {object V224;
         object V223;  
         object V224;  
1467          object V225;          object V225;
1468            object V226;
1469            object V227;
1470          check_arg(4);          check_arg(4);
1471          V222=(base[0]);          V224=(base[0]);
1472          V223=(base[1]);          V225=(base[1]);
1473          V224=(base[2]);          V226=(base[2]);
1474          V225=(base[3]);          V227=(base[3]);
1475          vs_top=sup;          vs_top=sup;
1476          goto TTL;          goto TTL;
1477  TTL:;  TTL:;
1478          {object V226;          {object V228;
1479          V227= (VV[176]->s.s_gfdef);          V229 = (V227);
1480          V226= (VFUN_NARGS=4,(*(LnkLI177))((V225),Cnil,small_fixnum(1),V227));          V230= (VV[176]->s.s_gfdef);
1481          base[4]= (V222);          V228= (VFUN_NARGS=4,(*(LnkLI177))(V229,Cnil,small_fixnum(1),V230));
1482          base[5]= (V223);          base[4]= (V224);
1483          base[6]= (V224);          base[5]= (V225);
1484          base[7]= (V226);          base[6]= (V226);
1485            base[7]= (V228);
1486          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1487          (void) (*Lnk178)();          (void) (*Lnk178)();
1488          return;}          return;}
# Line 1487  TTL:; Line 1490  TTL:;
1490  }  }
1491  /*      local entry for function ONE-INDEX-LIMIT-FN     */  /*      local entry for function ONE-INDEX-LIMIT-FN     */
1492    
1493  static object LI45(V229)  static object LI45(V232)
1494    
1495  object V229;  object V232;
1496  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
1497          goto TTL;          goto TTL;
1498  TTL:;  TTL:;
1499          {long V230 = (long)(*(LnkLI179))((V229));          {long V233 = (long)(*(LnkLI179))((V232));
1500          VMR44((object)V230)}          VMR44((object)V233)}
1501  }  }
1502  /*      function definition for MAKE-N-N-ACCESSOR-DFUN  */  /*      function definition for MAKE-N-N-ACCESSOR-DFUN  */
1503    
# Line 1502  static void L46() Line 1505  static void L46()
1505  {register object *base=vs_base;  {register object *base=vs_base;
1506          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
1507          vs_check;          vs_check;
1508          {object V231;          {object V234;
1509          object V232;          object V235;
1510          object V233;          object V236;
1511          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1512          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1513          V231=(base[0]);          V234=(base[0]);
1514          V232=(base[1]);          V235=(base[1]);
1515          vs_base=vs_base+2;          vs_base=vs_base+2;
1516          if(vs_base>=vs_top){vs_top=sup;goto T352;}          if(vs_base>=vs_top){vs_top=sup;goto T352;}
1517          V233=(base[2]);          V236=(base[2]);
1518          vs_top=sup;          vs_top=sup;
1519          goto T353;          goto T353;
1520          goto T352;          goto T352;
1521  T352:;  T352:;
1522          V233= Cnil;          V236= Cnil;
1523          goto T353;          goto T353;
1524  T353:;  T353:;
1525          {object V234;          {object V237;
1526          object V235;          object V238;
1527          object V236;          object V239;
1528          if(!(((V232))==(VV[51]))){          if(!(((V235))==(VV[51]))){
1529          goto T357;}          goto T357;}
1530          V234= VV[58];          V237= VV[58];
1531          goto T355;          goto T355;
1532          goto T357;          goto T357;
1533  T357:;  T357:;
1534          V234= VV[59];          V237= VV[59];
1535          goto T355;          goto T355;
1536  T355:;  T355:;
1537          if((V233)!=Cnil){          if((V236)!=Cnil){
1538          V235= (V233);          V238= (V236);
1539          goto T359;}          goto T359;}
1540          V237= (VV[180]->s.s_gfdef);          V240= (VV[180]->s.s_gfdef);
1541          V235= (*(LnkLI175))(small_fixnum(1),Ct,V237,2);          V238= (*(LnkLI175))(small_fixnum(1),Ct,V240,2);
1542          goto T359;          goto T359;
1543  T359:;  T359:;
1544          V236= (*(LnkLI181))((V232),(V235));          V239= (*(LnkLI181))((V235),(V238));
1545          base[8]= (V234);          base[8]= (V237);
1546          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1547          (void) (*Lnk172)();          (void) (*Lnk172)();
1548          vs_top=sup;          vs_top=sup;
1549          base[7]= vs_base[0];          base[7]= vs_base[0];
1550          base[8]= (V235);          base[8]= (V238);
1551          base[9]= (*(LnkLI173))((V231),(V236));          base[9]= (*(LnkLI173))((V234),(V239));
1552          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
1553          {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))
1554                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1553  T359:; Line 1556  T359:;
1556                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1557          vs_top=sup;          vs_top=sup;
1558          base[6]= vs_base[0];          base[6]= vs_base[0];
1559          base[7]= (V235);          base[7]= (V238);
1560          base[8]= (V236);          base[8]= (V239);
1561          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1562          return;}          return;}
1563          }          }
# Line 1565  static void L47() Line 1568  static void L47()
1568  {register object *base=vs_base;  {register object *base=vs_base;
1569          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
1570          vs_check;          vs_check;
1571          {object V238;          {object V241;
1572          object V239;          object V242;
1573          object V240;          object V243;
1574          check_arg(3);          check_arg(3);
1575          V238=(base[0]);          V241=(base[0]);
1576          V239=(base[1]);          V242=(base[1]);
1577          V240=(base[2]);          V243=(base[2]);
1578          vs_top=sup;          vs_top=sup;
1579          goto TTL;          goto TTL;
1580  TTL:;  TTL:;
1581          {object V241;          {object V244;
1582          V242= (VV[180]->s.s_gfdef);          V245 = (V243);
1583          V241= (VFUN_NARGS=4,(*(LnkLI177))((V240),Ct,small_fixnum(1),V242));          V246= (VV[180]->s.s_gfdef);
1584          base[3]= (V238);          V244= (VFUN_NARGS=4,(*(LnkLI177))(V245,Ct,small_fixnum(1),V246));
1585          base[4]= (V239);          base[3]= (V241);
1586          base[5]= (V241);          base[4]= (V242);
1587            base[5]= (V244);
1588          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1589          (void) (*Lnk182)();          (void) (*Lnk182)();
1590          return;}          return;}
# Line 1588  TTL:; Line 1592  TTL:;
1592  }  }
1593  /*      local entry for function N-N-ACCESSORS-LIMIT-FN */  /*      local entry for function N-N-ACCESSORS-LIMIT-FN */
1594    
1595  static object LI48(V244)  static object LI48(V248)
1596    
1597  object V244;  object V248;
1598  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
1599          goto TTL;          goto TTL;
1600  TTL:;  TTL:;
1601          {long V245 = (long)(*(LnkLI179))((V244));          {long V249 = (long)(*(LnkLI179))((V248));
1602          VMR47((object)V245)}          VMR47((object)V249)}
1603  }  }
1604  /*      function definition for MAKE-CHECKING-DFUN      */  /*      function definition for MAKE-CHECKING-DFUN      */
1605    
# Line 1603  static void L49() Line 1607  static void L49()
1607  {register object *base=vs_base;  {register object *base=vs_base;
1608          register object *sup=base+VM48; VC48          register object *sup=base+VM48; VC48
1609          vs_check;          vs_check;
1610          {object V246;          {object V250;
1611          object V247;          object V251;
1612          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1613          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1614          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
1615          V246=(base[1]);          V250=(base[1]);
1616          vs_base=vs_base+2;          vs_base=vs_base+2;
1617          if(vs_base>=vs_top){vs_top=sup;goto T374;}          if(vs_base>=vs_top){vs_top=sup;goto T374;}
1618          V247=(base[2]);          V251=(base[2]);
1619          vs_top=sup;          vs_top=sup;
1620          goto T375;          goto T375;
1621          goto T374;          goto T374;
1622  T374:;  T374:;
1623          V247= Cnil;          V251= Cnil;
1624          goto T375;          goto T375;
1625  T375:;  T375:;
1626          if(((V247))!=Cnil){          if(((V251))!=Cnil){
1627          goto T377;}          goto T377;}
1628          if(((*(LnkLI183))((base[0]->c.c_car)))==Cnil){          if(((*(LnkLI183))((base[0]->c.c_car)))==Cnil){
1629          goto T380;}          goto T380;}
# Line 1637  T380:; Line 1641  T380:;
1641          return;          return;
1642          goto T377;          goto T377;
1643  T377:;  T377:;
1644          {object V248;          {object V252;
1645          object V249;          object V253;
1646          object V250;          object V254;
1647          object V251;          object V255;
1648          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
1649          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1650          (void) (*Lnk187)();          (void) (*Lnk187)();
1651          if(vs_base>=vs_top){vs_top=sup;goto T389;}          if(vs_base>=vs_top){vs_top=sup;goto T389;}
1652          V248= vs_base[0];          V252= vs_base[0];
1653          vs_base++;          vs_base++;
1654          if(vs_base>=vs_top){vs_top=sup;goto T390;}          if(vs_base>=vs_top){vs_top=sup;goto T390;}
1655          V249= vs_base[0];          V253= vs_base[0];
1656          vs_base++;          vs_base++;
1657          if(vs_base>=vs_top){vs_top=sup;goto T391;}          if(vs_base>=vs_top){vs_top=sup;goto T391;}
1658          V250= vs_base[0];          V254= vs_base[0];
1659          vs_base++;          vs_base++;
1660          if(vs_base>=vs_top){vs_top=sup;goto T392;}          if(vs_base>=vs_top){vs_top=sup;goto T392;}
1661          V251= vs_base[0];          V255= vs_base[0];
1662          vs_top=sup;          vs_top=sup;
1663          goto T393;          goto T393;
1664          goto T389;          goto T389;
1665  T389:;  T389:;
1666          V248= Cnil;          V252= Cnil;
1667          goto T390;          goto T390;
1668  T390:;  T390:;
1669          V249= Cnil;          V253= Cnil;
1670          goto T391;          goto T391;
1671  T391:;  T391:;
1672          V250= Cnil;          V254= Cnil;
1673          goto T392;          goto T392;
1674  T392:;  T392:;
1675          V251= Cnil;          V255= Cnil;
1676          goto T393;          goto T393;
1677  T393:;  T393:;
1678          base[3]=          base[3]=
1679          make_cclosure_new(LC141,Cnil,base[0],Cdata);          make_cclosure_new(LC141,Cnil,base[0],Cdata);
1680          base[4]= (V250);          base[4]= (V254);
1681          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1682          (void) (*Lnk188)();          (void) (*Lnk188)();
1683          vs_top=sup;          vs_top=sup;
1684          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1685          goto T395;}          goto T395;}
1686          {object V252;          {object V256;
1687          V252= (*(LnkLI189))();          V256= (*(LnkLI189))();
1688          base[5]= VV[60];          base[5]= VV[60];
1689          base[6]= (V250);          base[6]= (V254);
1690          base[7]= (V249);          base[7]= (V253);
1691          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1692          (void) (*Lnk172)();          (void) (*Lnk172)();
1693          vs_top=sup;          vs_top=sup;
1694          base[4]= vs_base[0];          base[4]= vs_base[0];
1695          base[5]= (V246);          base[5]= (V250);
1696          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1697          {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))
1698                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1697  T393:; Line 1701  T393:;
1701          vs_top=sup;          vs_top=sup;
1702          base[3]= vs_base[0];          base[3]= vs_base[0];
1703          base[4]= Cnil;          base[4]= Cnil;
1704          base[5]= (V252);          base[5]= (V256);
1705          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1706          return;}          return;}
1707          goto T395;          goto T395;
1708  T395:;  T395:;
1709          {object V253;          {object V257;
1710          if((V247)!=Cnil){          if((V251)!=Cnil){
1711          V253= (V247);          V257= (V251);
1712          goto T408;}          goto T408;}
1713          V254= (VV[190]->s.s_gfdef);          V258 = (V255);
1714          V253= (*(LnkLI175))((V251),Cnil,V254,2);          V259= (VV[190]->s.s_gfdef);
1715            V257= (*(LnkLI175))(V258,Cnil,V259,2);
1716          goto T408;          goto T408;
1717  T408:;  T408:;
1718          base[4]= (*(LnkLI191))((V246),(V253));          base[4]= (*(LnkLI191))((V250),(V257));
1719          base[4]=MMcons(base[4],base[0]);          base[4]=MMcons(base[4],base[0]);
1720          base[7]= VV[61];          base[7]= VV[61];
1721          base[8]= (V250);          base[8]= (V254);
1722          base[9]= (V249);          base[9]= (V253);
1723          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1724          (void) (*Lnk172)();          (void) (*Lnk172)();
1725          vs_top=sup;          vs_top=sup;
1726          base[6]= vs_base[0];          base[6]= vs_base[0];
1727          base[7]= (V253);          base[7]= (V257);
1728          base[8]= (V246);          base[8]= (V250);
1729          base[9]=          base[9]=
1730          make_cclosure_new(LC142,Cnil,base[4],Cdata);          make_cclosure_new(LC142,Cnil,base[4],Cdata);
1731          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
# Line 1730  T408:; Line 1735  T408:;
1735                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1736          vs_top=sup;          vs_top=sup;
1737          base[5]= vs_base[0];          base[5]= vs_base[0];
1738          base[6]= (V253);          base[6]= (V257);
1739          base[7]= (base[4]->c.c_car);          base[7]= (base[4]->c.c_car);
1740          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1741          return;}}          return;}}
# Line 1742  static void L50() Line 1747  static void L50()
1747  {register object *base=vs_base;  {register object *base=vs_base;
1748          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
1749          vs_check;          vs_check;
1750          {object V255;          {object V260;
1751          object V256;          object V261;
1752          object V257;          object V262;
1753          check_arg(4);          check_arg(4);
1754          V255=(base[0]);          V260=(base[0]);
1755          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
1756          V256=(base[2]);          V261=(base[2]);
1757          V257=(base[3]);          V262=(base[3]);
1758          vs_top=sup;          vs_top=sup;
1759          {object V258;          {object V263;
1760          base[4]= (V255);          base[4]= (V260);
1761          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1762          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk161)(Lclptr161);
1763          vs_top=sup;          vs_top=sup;
1764          V259= vs_base[0];          V264= vs_base[0];
1765          V258= STREF(object,V259,8);          V263= STREF(object,V264,8);
1766          base[4]=          base[4]=
1767          make_cclosure_new(LC143,Cnil,base[1],Cdata);          make_cclosure_new(LC143,Cnil,base[1],Cdata);
1768          base[5]= (V258);          base[5]= (V263);
1769          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1770          (void) (*Lnk188)();          (void) (*Lnk188)();
1771          vs_top=sup;          vs_top=sup;
# Line 1774  static void L50() Line 1779  static void L50()
1779          return;          return;
1780          goto T425;          goto T425;
1781  T425:;  T425:;
1782          {object V260;          {object V265;
1783          V261= (VV[190]->s.s_gfdef);          V266 = (V260);
1784          V260= (*(LnkLI192))((V255),Cnil,V261,(V256),(V257));          V267= (VV[190]->s.s_gfdef);
1785          base[4]= (V255);          V268 = (V261);
1786            V269 = (V262);
1787            V265= (*(LnkLI192))(V266,Cnil,V267,V268,V269);
1788            base[4]= (V260);
1789          base[5]= (base[1]->c.c_car);          base[5]= (base[1]->c.c_car);
1790          base[6]= (V260);          base[6]= (V265);
1791          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1792          (void) (*Lnk193)();          (void) (*Lnk193)();
1793          return;}}          return;}}
# Line 1787  T425:; Line 1795  T425:;
1795  }  }
1796  /*      local entry for function USE-DEFAULT-METHOD-ONLY-DFUN-P */  /*      local entry for function USE-DEFAULT-METHOD-ONLY-DFUN-P */
1797    
1798  static object LI51(V263)  static object LI51(V271)
1799    
1800  object V263;  object V271;
1801  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
1802          goto TTL;          goto TTL;
1803  TTL:;  TTL:;
1804          {object V264;          {object V272;
1805          object V265;          object V273;
1806          object V266;          object V274;
1807          object V267;          object V275;
1808          base[0]= (V263);          base[0]= (V271);
1809          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1810          (void) (*Lnk187)();          (void) (*Lnk187)();
1811          if(vs_base>=vs_top){vs_top=sup;goto T439;}          if(vs_base>=vs_top){vs_top=sup;goto T439;}
1812          V264= vs_base[0];          V272= vs_base[0];
1813          vs_base++;          vs_base++;
1814          if(vs_base>=vs_top){vs_top=sup;goto T440;}          if(vs_base>=vs_top){vs_top=sup;goto T440;}
1815          V265= vs_base[0];          V273= vs_base[0];
1816          vs_base++;          vs_base++;
1817          if(vs_base>=vs_top){vs_top=sup;goto T441;}          if(vs_base>=vs_top){vs_top=sup;goto T441;}
1818          V266= vs_base[0];          V274= vs_base[0];
1819          vs_base++;          vs_base++;
1820          if(vs_base>=vs_top){vs_top=sup;goto T442;}          if(vs_base>=vs_top){vs_top=sup;goto T442;}
1821          V267= vs_base[0];          V275= vs_base[0];
1822          vs_top=sup;          vs_top=sup;
1823          goto T443;          goto T443;
1824          goto T439;          goto T439;
1825  T439:;  T439:;
1826          V264= Cnil;          V272= Cnil;
1827          goto T440;          goto T440;
1828  T440:;  T440:;
1829          V265= Cnil;          V273= Cnil;
1830          goto T441;          goto T441;
1831  T441:;  T441:;
1832          V266= Cnil;          V274= Cnil;
1833          goto T442;          goto T442;
1834  T442:;  T442:;
1835          V267= Cnil;          V275= Cnil;
1836          goto T443;          goto T443;
1837  T443:;  T443:;
1838          base[0]= VV[194];          base[0]= VV[194];
1839          base[1]= (V266);          base[1]= (V274);
1840          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1841          (void) (*Lnk188)();          (void) (*Lnk188)();
1842          vs_top=sup;          vs_top=sup;
1843          {object V268 = vs_base[0];          {object V276 = vs_base[0];
1844          VMR50(V268)}}          VMR50(V276)}}
1845          base[0]=base[0];          base[0]=base[0];
1846          return Cnil;          return Cnil;
1847  }  }
1848  /*      local entry for function USE-CACHING-DFUN-P     */  /*      local entry for function USE-CACHING-DFUN-P     */
1849    
1850  static object LI52(V270)  static object LI52(V278)
1851    
1852  register object V270;  register object V278;
1853  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
1854          goto TTL;          goto TTL;
1855  TTL:;  TTL:;
1856          base[0]= VV[195];          base[0]= VV[195];
1857          if(((*(LnkLI196))((V270)))==Cnil){          if(((*(LnkLI196))((V278)))==Cnil){
1858          goto T449;}          goto T449;}
1859          if(type_of(V270)==t_structure){          if(type_of(V278)==t_structure){
1860          goto T455;}          goto T455;}
1861          goto T453;          goto T453;
1862          goto T455;          goto T455;
1863  T455:;  T455:;
1864          if(!(((V270)->str.str_def)==(VV[63]))){          if(!(((V278)->str.str_def)==(VV[63]))){
1865          goto T453;}          goto T453;}
1866          V271= STREF(object,(V270),4);          V279= STREF(object,(V278),4);
1867          goto T451;          goto T451;
1868          goto T453;          goto T453;
1869  T453:;{object V273;  T453:;{object V281;
1870          V273= (VV[65]->s.s_dbind);          V281= (VV[65]->s.s_dbind);
1871          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1872          base[3]= (V270);          base[3]= (V278);
1873          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1874          (void) (*Lnk197)();          (void) (*Lnk197)();
1875          vs_top=sup;          vs_top=sup;
1876          V274= vs_base[0];          V282= vs_base[0];
1877          if(!((V273)==(CMPcar(V274)))){          if(!((V281)==(CMPcar(V282)))){
1878          goto T458;}}          goto T458;}}
1879          V271= CMPcar(((V270))->cc.cc_turbo[12]);          V279= CMPcar(((V278))->cc.cc_turbo[12]);
1880          goto T451;          goto T451;
1881          goto T458;          goto T458;
1882  T458:;  T458:;
# Line 1876  T458:; Line 1884  T458:;
1884          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1885          Lerror();          Lerror();
1886          vs_top=sup;          vs_top=sup;
1887          V271= vs_base[0];          V279= vs_base[0];
1888          goto T451;          goto T451;
1889  T451:;  T451:;
1890          base[1]= (V271)->v.v_self[fix((VV[67]->s.s_dbind))];          V283 = (VV[67]->s.s_dbind);
1891            base[1]= (V279)->v.v_self[fix(V283)];
1892          goto T447;          goto T447;
1893          goto T449;          goto T449;
1894  T449:;  T449:;
1895          base[2]= (V270);          base[2]= (V278);
1896          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1897          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
1898          vs_top=sup;          vs_top=sup;
# Line 1893  T447:; Line 1902  T447:;
1902          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1903          (void) (*Lnk200)();          (void) (*Lnk200)();
1904          vs_top=sup;          vs_top=sup;
1905          {object V275 = vs_base[0];          {object V284 = vs_base[0];
1906          VMR51(V275)}          VMR51(V284)}
1907          base[0]=base[0];          base[0]=base[0];
1908          return Cnil;          return Cnil;
1909  }  }
1910  /*      local entry for function CHECKING-LIMIT-FN      */  /*      local entry for function CHECKING-LIMIT-FN      */
1911    
1912  static object LI53(V277)  static object LI53(V286)
1913    
1914  object V277;  object V286;
1915  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
1916          goto TTL;          goto TTL;
1917  TTL:;  TTL:;
1918          {long V278 = (long)(*(LnkLI179))((V277));          {long V287 = (long)(*(LnkLI179))((V286));
1919          VMR52((object)V278)}          VMR52((object)V287)}
1920  }  }
1921  /*      function definition for MAKE-CACHING-DFUN       */  /*      function definition for MAKE-CACHING-DFUN       */
1922    
# Line 1915  static void L54() Line 1924  static void L54()
1924  {register object *base=vs_base;  {register object *base=vs_base;
1925          register object *sup=base+VM53; VC53          register object *sup=base+VM53; VC53
1926          vs_check;          vs_check;
1927          {object V279;          {object V288;
1928          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
1929          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
1930          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
1931          vs_base=vs_base+1;          vs_base=vs_base+1;
1932          if(vs_base>=vs_top){vs_top=sup;goto T465;}          if(vs_base>=vs_top){vs_top=sup;goto T465;}
1933          V279=(base[1]);          V288=(base[1]);
1934          vs_top=sup;          vs_top=sup;
1935          goto T466;          goto T466;
1936          goto T465;          goto T465;
1937  T465:;  T465:;
1938          V279= Cnil;          V288= Cnil;
1939          goto T466;          goto T466;
1940  T466:;  T466:;
1941          if(((V279))!=Cnil){          if(((V288))!=Cnil){
1942          goto T468;}          goto T468;}
1943          if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){
1944          goto T471;}          goto T471;}
# Line 1947  T471:; Line 1956  T471:;
1956          return;          return;
1957          goto T468;          goto T468;
1958  T468:;  T468:;
1959          {object V280;          {object V289;
1960          object V281;          object V290;
1961          object V282;          object V291;
1962          object V283;          object V292;
1963          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
1964          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1965          (void) (*Lnk187)();          (void) (*Lnk187)();
1966          if(vs_base>=vs_top){vs_top=sup;goto T480;}          if(vs_base>=vs_top){vs_top=sup;goto T480;}
1967          V280= vs_base[0];          V289= vs_base[0];
1968          vs_base++;          vs_base++;
1969          if(vs_base>=vs_top){vs_top=sup;goto T481;}          if(vs_base>=vs_top){vs_top=sup;goto T481;}
1970          V281= vs_base[0];          V290= vs_base[0];
1971          vs_base++;          vs_base++;
1972          if(vs_base>=vs_top){vs_top=sup;goto T482;}          if(vs_base>=vs_top){vs_top=sup;goto T482;}
1973          V282= vs_base[0];          V291= vs_base[0];
1974          vs_base++;          vs_base++;
1975          if(vs_base>=vs_top){vs_top=sup;goto T483;}          if(vs_base>=vs_top){vs_top=sup;goto T483;}
1976          V283= vs_base[0];          V292= vs_base[0];
1977          vs_top=sup;          vs_top=sup;
1978          goto T484;          goto T484;
1979          goto T480;          goto T480;
1980  T480:;  T480:;
1981          V280= Cnil;          V289= Cnil;
1982          goto T481;          goto T481;
1983  T481:;  T481:;
1984          V281= Cnil;          V290= Cnil;
1985          goto T482;          goto T482;
1986  T482:;  T482:;
1987          V282= Cnil;          V291= Cnil;
1988          goto T483;          goto T483;
1989  T483:;  T483:;
1990          V283= Cnil;          V292= Cnil;
1991          goto T484;          goto T484;
1992  T484:;  T484:;
1993          {object V284;          {object V293;
1994          if((V279)!=Cnil){          if((V288)!=Cnil){
1995          V284= (V279);          V293= (V288);
1996          goto T485;}          goto T485;}
1997          V285= (VV[203]->s.s_gfdef);          V294 = (V292);
1998          V284= (*(LnkLI175))((V283),Ct,V285,2);          V295= (VV[203]->s.s_gfdef);
1999            V293= (*(LnkLI175))(V294,Ct,V295,2);
2000          goto T485;          goto T485;
2001  T485:;  T485:;
2002          base[3]= (*(LnkLI204))((V284));          base[3]= (*(LnkLI204))((V293));
2003          base[3]=MMcons(base[3],base[0]);          base[3]=MMcons(base[3],base[0]);
2004          base[6]= VV[68];          base[6]= VV[68];
2005          base[7]= (V282);          base[7]= (V291);
2006          base[8]= (V281);          base[8]= (V290);
2007          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
2008          (void) (*Lnk172)();          (void) (*Lnk172)();
2009          vs_top=sup;          vs_top=sup;
2010          base[5]= vs_base[0];          base[5]= vs_base[0];
2011          base[6]= (V284);          base[6]= (V293);
2012          base[7]=          base[7]=
2013          make_cclosure_new(LC147,Cnil,base[3],Cdata);          make_cclosure_new(LC147,Cnil,base[3],Cdata);
2014          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
# Line 2008  T485:; Line 2018  T485:;
2018                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2019          vs_top=sup;          vs_top=sup;
2020          base[4]= vs_base[0];          base[4]= vs_base[0];
2021          base[5]= (V284);          base[5]= (V293);
2022          base[6]= (base[3]->c.c_car);          base[6]= (base[3]->c.c_car);
2023          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2024          return;}}          return;}}
# Line 2020  static void L55() Line 2030  static void L55()
2030  {register object *base=vs_base;  {register object *base=vs_base;
2031          register object *sup=base+VM54; VC54          register object *sup=base+VM54; VC54
2032          vs_check;          vs_check;
2033          {object V286;          {object V296;
2034          object V287;          object V297;
2035          object V288;          object V298;
2036          check_arg(3);          check_arg(3);
2037          V286=(base[0]);          V296=(base[0]);
2038          V287=(base[1]);          V297=(base[1]);
2039          V288=(base[2]);          V298=(base[2]);
2040          vs_top=sup;          vs_top=sup;
2041          goto TTL;          goto TTL;
2042  TTL:;  TTL:;
2043          {object V289;          {object V299;
2044          V290= (VV[203]->s.s_gfdef);          V300 = (V296);
2045          V289= (*(LnkLI192))((V286),Ct,V290,(V287),(V288));          V301= (VV[203]->s.s_gfdef);
2046          base[3]= (V286);          V302 = (V297);
2047          base[4]= (V289);          V303 = (V298);
2048            V299= (*(LnkLI192))(V300,Ct,V301,V302,V303);
2049            base[3]= (V296);
2050            base[4]= (V299);
2051          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2052          (void) (*Lnk184)();          (void) (*Lnk184)();
2053          return;}          return;}
# Line 2042  TTL:; Line 2055  TTL:;
2055  }  }
2056  /*      local entry for function CACHING-LIMIT-FN       */  /*      local entry for function CACHING-LIMIT-FN       */
2057    
2058  static object LI56(V292)  static object LI56(V305)
2059    
2060  object V292;  object V305;
2061  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
2062          goto TTL;          goto TTL;
2063  TTL:;  TTL:;
2064          {long V293 = (long)(*(LnkLI179))((V292));          {long V306 = (long)(*(LnkLI179))((V305));
2065          VMR55((object)V293)}          VMR55((object)V306)}
2066  }  }
2067  /*      function definition for INSURE-DFUN     */  /*      function definition for INSURE-DFUN     */
2068    
# Line 2057  static void L57() Line 2070  static void L57()
2070  {register object *base=vs_base;  {register object *base=vs_base;
2071          register object *sup=base+VM56; VC56          register object *sup=base+VM56; VC56
2072          vs_check;          vs_check;
2073          {object V294;          {object V307;
2074          object V295;          object V308;
2075          check_arg(2);          check_arg(2);
2076          V294=(base[0]);          V307=(base[0]);
2077          V295=(base[1]);          V308=(base[1]);
2078          vs_top=sup;          vs_top=sup;
2079          goto TTL;          goto TTL;
2080  TTL:;  TTL:;
2081          {object V296;          {object V309;
2082          object V297;          object V310;
2083          register object V298;          register object V311;
2084          object V299;          object V312;
2085          base[2]= (V294);          base[2]= (V307);
2086          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2087          (void) (*Lnk187)();          (void) (*Lnk187)();
2088          if(vs_base>=vs_top){vs_top=sup;goto T503;}          if(vs_base>=vs_top){vs_top=sup;goto T503;}
2089          V296= vs_base[0];          V309= vs_base[0];
2090          vs_base++;          vs_base++;
2091          if(vs_base>=vs_top){vs_top=sup;goto T504;}          if(vs_base>=vs_top){vs_top=sup;goto T504;}
2092          V297= vs_base[0];          V310= vs_base[0];
2093          vs_base++;          vs_base++;
2094          if(vs_base>=vs_top){vs_top=sup;goto T505;}          if(vs_base>=vs_top){vs_top=sup;goto T505;}
2095          V298= vs_base[0];          V311= vs_base[0];
2096          vs_base++;          vs_base++;
2097          if(vs_base>=vs_top){vs_top=sup;goto T506;}          if(vs_base>=vs_top){vs_top=sup;goto T506;}
2098          V299= vs_base[0];          V312= vs_base[0];
2099          vs_top=sup;          vs_top=sup;
2100          goto T507;          goto T507;
2101          goto T503;          goto T503;
2102  T503:;  T503:;
2103          V296= Cnil;          V309= Cnil;
2104          goto T504;          goto T504;
2105  T504:;  T504:;
2106          V297= Cnil;          V310= Cnil;
2107          goto T505;          goto T505;
2108  T505:;  T505:;
2109          V298= Cnil;          V311= Cnil;
2110          goto T506;          goto T506;
2111  T506:;  T506:;
2112          V299= Cnil;          V312= Cnil;
2113          goto T507;          goto T507;
2114  T507:;  T507:;
2115          if(((V298))==Cnil){          if(((V311))==Cnil){
2116          goto T508;}          goto T508;}
2117          if((CMPcar((V298)))==Cnil){          if((CMPcar((V311)))==Cnil){
2118          goto T509;}          goto T509;}
2119          goto T508;          goto T508;
2120  T508:;  T508:;
2121          if(((VFUN_NARGS=1,(*(LnkLI201))((V294))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI201))((V307))))==Cnil){
2122          goto T514;}          goto T514;}
2123          base[2]= VV[69];          base[2]= VV[69];
2124          base[3]= (V298);          base[3]= (V311);
2125          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2126          (void) (*Lnk172)();          (void) (*Lnk172)();
2127          return;          return;
2128          goto T514;          goto T514;
2129  T514:;  T514:;
2130          if(((V295))==Cnil){          if(((V308))==Cnil){
2131          goto T519;}          goto T519;}
2132          base[2]= VV[68];          base[2]= VV[68];
2133          base[3]= (V298);          base[3]= (V311);
2134          base[4]= (V297);          base[4]= (V310);
2135          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2136          (void) (*Lnk172)();          (void) (*Lnk172)();
2137          return;          return;
2138          goto T519;          goto T519;
2139  T519:;  T519:;
2140          {register object V300;          {register object V313;
2141          register object V301;          register object V314;
2142          V300= (V298);          V313= (V311);
2143          V301= CMPcar((V300));          V314= CMPcar((V313));
2144          goto T530;          goto T530;
2145  T530:;  T530:;
2146          if(!(((V300))==Cnil)){          if(!(((V313))==Cnil)){
2147          goto T531;}          goto T531;}
2148          goto T526;          goto T526;
2149          goto T531;          goto T531;
2150  T531:;  T531:;
2151          if(((V301))==(Ct)){          if(((V314))==(Ct)){
2152          goto T535;}          goto T535;}
2153          goto T525;          goto T525;
2154          goto T535;          goto T535;
2155  T535:;  T535:;
2156          V300= CMPcdr((V300));          V313= CMPcdr((V313));
2157          V301= CMPcar((V300));          V314= CMPcar((V313));
2158          goto T530;}          goto T530;}
2159          goto T526;          goto T526;
2160  T526:;  T526:;
2161          base[2]= VV[60];          base[2]= VV[60];
2162          base[3]= (V298);          base[3]= (V311);
2163          base[4]= (V297);          base[4]= (V310);
2164          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2165          (void) (*Lnk172)();          (void) (*Lnk172)();
2166          return;          return;
2167          goto T525;          goto T525;
2168  T525:;  T525:;
2169          base[2]= VV[61];          base[2]= VV[61];
2170          base[3]= (V298);          base[3]= (V311);
2171          base[4]= (V297);          base[4]= (V310);
2172          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2173          (void) (*Lnk172)();          (void) (*Lnk172)();
2174          return;          return;
# Line 2168  T509:; Line 2181  T509:;
2181  }  }
2182  /*      local entry for function USE-CONSTANT-VALUE-DFUN-P      */  /*      local entry for function USE-CONSTANT-VALUE-DFUN-P      */
2183    
2184  static object LI58(object V302,object first,...)  static object LI58(object V315,object first,...)
2185  {        {      
2186          va_list ap;          va_list ap;
2187          int narg = VFUN_NARGS; VMB57 VMS57 VMV57          int narg = VFUN_NARGS; VMB57 VMS57 VMV57
2188          {register object V303;          {register object V316;
2189          va_start(ap,first);          va_start(ap,first);
2190          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2191          V303= V302;          V316= V315;
2192          narg = narg - 1;          narg = narg - 1;
2193          if (narg <= 0) goto T549;          if (narg <= 0) goto T549;
2194          else {          else {
# Line 2187  T549:; Line 2200  T549:;
2200          Vcs[1]=MMcons(Vcs[1],Cnil);          Vcs[1]=MMcons(Vcs[1],Cnil);
2201          goto T550;          goto T550;
2202  T550:;  T550:;
2203          {object V304;          {object V317;
2204          object V305;          object V318;
2205          object V306;          object V319;
2206          object V307;          object V320;
2207          base[0]= (V303);          base[0]= (V316);
2208          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2209          (void) (*Lnk187)();          (void) (*Lnk187)();
2210          if(vs_base>=vs_top){vs_top=sup;goto T554;}          if(vs_base>=vs_top){vs_top=sup;goto T554;}
2211          V304= vs_base[0];          V317= vs_base[0];
2212          vs_base++;          vs_base++;
2213          if(vs_base>=vs_top){vs_top=sup;goto T555;}          if(vs_base>=vs_top){vs_top=sup;goto T555;}
2214          V305= vs_base[0];          V318= vs_base[0];
2215          vs_base++;          vs_base++;
2216          if(vs_base>=vs_top){vs_top=sup;goto T556;}          if(vs_base>=vs_top){vs_top=sup;goto T556;}
2217          V306= vs_base[0];          V319= vs_base[0];
2218          vs_base++;          vs_base++;
2219          if(vs_base>=vs_top){vs_top=sup;goto T557;}          if(vs_base>=vs_top){vs_top=sup;goto T557;}
2220          V307= vs_base[0];          V320= vs_base[0];
2221          vs_top=sup;          vs_top=sup;
2222          goto T558;          goto T558;
2223          goto T554;          goto T554;
2224  T554:;  T554:;
2225          V304= Cnil;          V317= Cnil;
2226          goto T555;          goto T555;
2227  T555:;  T555:;
2228          V305= Cnil;          V318= Cnil;
2229          goto T556;          goto T556;
2230  T556:;  T556:;
2231          V306= Cnil;          V319= Cnil;
2232          goto T557;          goto T557;
2233  T557:;  T557:;
2234          V307= Cnil;          V320= Cnil;
2235          goto T558;          goto T558;
2236  T558:;  T558:;
2237          {object V308;          {object V321;
2238          base[0]= (*(LnkLI196))((V303));          base[0]= (*(LnkLI196))((V316));
2239          base[0]=MMcons(base[0],Vcs[1]);          base[0]=MMcons(base[0],Vcs[1]);
2240          if(((base[0]->c.c_car))==Cnil){          if(((base[0]->c.c_car))==Cnil){
2241          goto T562;}          goto T562;}
2242          if(type_of(V303)==t_structure){          if(type_of(V316)==t_structure){
2243          goto T568;}          goto T568;}
2244          goto T566;          goto T566;
2245          goto T568;          goto T568;
2246  T568:;  T568:;
2247          if(!(((V303)->str.str_def)==(VV[70]))){          if(!(((V316)->str.str_def)==(VV[70]))){
2248          goto T566;}          goto T566;}
2249          V309= STREF(object,(V303),4);          V322= STREF(object,(V316),4);
2250          goto T564;          goto T564;
2251          goto T566;          goto T566;
2252  T566:;{object V311;  T566:;{object V324;
2253          V311= (VV[65]->s.s_dbind);          V324= (VV[65]->s.s_dbind);
2254          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2255          base[4]= (V303);          base[4]= (V316);
2256          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2257          (void) (*Lnk197)();          (void) (*Lnk197)();
2258          vs_top=sup;          vs_top=sup;
2259          V312= vs_base[0];          V325= vs_base[0];
2260          if(!((V311)==(CMPcar(V312)))){          if(!((V324)==(CMPcar(V325)))){
2261          goto T571;}}          goto T571;}}
2262          V309= CMPcar(((V303))->cc.cc_turbo[12]);          V322= CMPcar(((V316))->cc.cc_turbo[12]);
2263          goto T564;          goto T564;
2264          goto T571;          goto T571;
2265  T571:;  T571:;
# Line 2254  T571:; Line 2267  T571:;
2267          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2268          Lerror();          Lerror();
2269          vs_top=sup;          vs_top=sup;
2270          V309= vs_base[0];          V322= vs_base[0];
2271          goto T564;          goto T564;
2272  T564:;  T564:;
2273          V308= (V309)->v.v_self[fix((VV[67]->s.s_dbind))];          V326 = (VV[67]->s.s_dbind);
2274            V321= (V322)->v.v_self[fix(V326)];
2275          goto T560;          goto T560;
2276          goto T562;          goto T562;
2277  T562:;  T562:;
2278          base[3]= (V303);          base[3]= (V316);
2279          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2280          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
2281          vs_top=sup;          vs_top=sup;
2282          V308= vs_base[0];          V321= vs_base[0];
2283          goto T560;          goto T560;
2284  T560:;  T560:;
2285          base[2]=MMcons(VV[71],base[0]);          base[2]=MMcons(VV[71],base[0]);
2286          if(((V305))==Cnil){          if(((V318))==Cnil){
2287          goto T578;}          goto T578;}
2288          {object V313 = Cnil;          {object V327 = Cnil;
2289          VMR57(V313)}          VMR57(V327)}
2290          goto T578;          goto T578;
2291  T578:;  T578:;
2292          if(!(((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil)){          if(!(((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil)){
# Line 2280  T578:; Line 2294  T578:;
2294          goto T580;          goto T580;
2295          goto T582;          goto T582;
2296  T582:;  T582:;
2297          if(((*(LnkLI205))((V303)))!=Cnil){          if(((*(LnkLI205))((V316)))!=Cnil){
2298          goto T580;}          goto T580;}
2299          {object V314 = Cnil;          {object V328 = Cnil;
2300          VMR57(V314)}          VMR57(V328)}
2301          goto T580;          goto T580;
2302  T580:;  T580:;
2303          base[3]=          base[3]=
2304          make_cclosure_new(LC148,Cnil,base[2],Cdata);          make_cclosure_new(LC148,Cnil,base[2],Cdata);
2305          base[4]= (V308);          base[4]= (V321);
2306          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2307          (void) (*Lnk206)();          (void) (*Lnk206)();
2308          vs_top=sup;          vs_top=sup;
2309          {object V315 = vs_base[0];          {object V329 = vs_base[0];
2310          VMR57(V315)}}}          VMR57(V329)}}}
2311          va_end(ap);          va_end(ap);
2312          base[0]=base[0];          base[0]=base[0];
2313          return Cnil;}          return Cnil;}
# Line 2304  static void L59() Line 2318  static void L59()
2318  {register object *base=vs_base;  {register object *base=vs_base;
2319          register object *sup=base+VM58; VC58          register object *sup=base+VM58; VC58
2320          vs_check;          vs_check;
2321          {object V316;          {object V330;
2322          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
2323          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
2324          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
2325          vs_base=vs_base+1;          vs_base=vs_base+1;
2326          if(vs_base>=vs_top){vs_top=sup;goto T586;}          if(vs_base>=vs_top){vs_top=sup;goto T586;}
2327          V316=(base[1]);          V330=(base[1]);
2328          vs_top=sup;          vs_top=sup;
2329          goto T587;          goto T587;
2330          goto T586;          goto T586;
2331  T586:;  T586:;
2332          V316= Cnil;          V330= Cnil;
2333          goto T587;          goto T587;
2334  T587:;  T587:;
2335          {object V317;          {object V331;
2336          object V318;          object V332;
2337          object V319;          object V333;
2338          object V320;          object V334;
2339          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
2340          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2341          (void) (*Lnk187)();          (void) (*Lnk187)();
2342          if(vs_base>=vs_top){vs_top=sup;goto T591;}          if(vs_base>=vs_top){vs_top=sup;goto T591;}
2343          V317= vs_base[0];          V331= vs_base[0];
2344          vs_base++;          vs_base++;
2345          if(vs_base>=vs_top){vs_top=sup;goto T592;}          if(vs_base>=vs_top){vs_top=sup;goto T592;}
2346          V318= vs_base[0];          V332= vs_base[0];
2347          vs_base++;          vs_base++;
2348          if(vs_base>=vs_top){vs_top=sup;goto T593;}          if(vs_base>=vs_top){vs_top=sup;goto T593;}
2349          V319= vs_base[0];          V333= vs_base[0];
2350          vs_base++;          vs_base++;
2351          if(vs_base>=vs_top){vs_top=sup;goto T594;}          if(vs_base>=vs_top){vs_top=sup;goto T594;}
2352          V320= vs_base[0];          V334= vs_base[0];
2353          vs_top=sup;          vs_top=sup;
2354          goto T595;          goto T595;
2355          goto T591;          goto T591;
2356  T591:;  T591:;
2357          V317= Cnil;          V331= Cnil;
2358          goto T592;          goto T592;
2359  T592:;  T592:;
2360          V318= Cnil;          V332= Cnil;
2361          goto T593;          goto T593;
2362  T593:;  T593:;
2363          V319= Cnil;          V333= Cnil;
2364          goto T594;          goto T594;
2365  T594:;  T594:;
2366          V320= Cnil;          V334= Cnil;
2367          goto T595;          goto T595;
2368  T595:;  T595:;
2369          {object V321;          {object V335;
2370          if((V316)!=Cnil){          if((V330)!=Cnil){
2371          V321= (V316);          V335= (V330);
2372          goto T596;}          goto T596;}
2373          V322= (VV[203]->s.s_gfdef);          V336 = (V334);
2374          V321= (*(LnkLI175))((V320),Ct,V322,2);          V337= (VV[203]->s.s_gfdef);
2375            V335= (*(LnkLI175))(V336,Ct,V337,2);
2376          goto T596;          goto T596;
2377  T596:;  T596:;
2378          base[3]= (*(LnkLI207))((V321));          base[3]= (*(LnkLI207))((V335));
2379          base[3]=MMcons(base[3],base[0]);          base[3]=MMcons(base[3],base[0]);
2380          base[6]= VV[69];          base[6]= VV[69];
2381          base[7]= (V319);          base[7]= (V333);
2382          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
2383          (void) (*Lnk172)();          (void) (*Lnk172)();
2384          vs_top=sup;          vs_top=sup;
2385          base[5]= vs_base[0];          base[5]= vs_base[0];
2386          base[6]= (V321);          base[6]= (V335);
2387          base[7]=          base[7]=
2388          make_cclosure_new(LC149,Cnil,base[3],Cdata);          make_cclosure_new(LC149,Cnil,base[3],Cdata);
2389          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
# Line 2378  T596:; Line 2393  T596:;
2393                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2394          vs_top=sup;          vs_top=sup;
2395          base[4]= vs_base[0];          base[4]= vs_base[0];
2396          base[5]= (V321);          base[5]= (V335);
2397          base[6]= (base[3]->c.c_car);          base[6]= (base[3]->c.c_car);
2398          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2399          return;}}          return;}}
# Line 2390  static void L60() Line 2405  static void L60()
2405  {register object *base=vs_base;  {register object *base=vs_base;
2406          register object *sup=base+VM59; VC59          register object *sup=base+VM59; VC59
2407          vs_check;          vs_check;
2408          {object V323;          {object V338;
2409          object V324;          object V339;
2410          object V325;          object V340;
2411          check_arg(3);          check_arg(3);
2412          V323=(base[0]);          V338=(base[0]);
2413          V324=(base[1]);          V339=(base[1]);
2414          V325=(base[2]);          V340=(base[2]);
2415          vs_top=sup;          vs_top=sup;
2416          goto TTL;          goto TTL;
2417  TTL:;  TTL:;
2418          {object V326;          {object V341;
2419          V327= (VV[203]->s.s_gfdef);          V342 = (V338);
2420          V326= (*(LnkLI192))((V323),VV[74],V327,(V324),(V325));          V343= (VV[203]->s.s_gfdef);
2421          base[3]= (V323);          V344 = (V339);
2422          base[4]= (V326);          V345 = (V340);
2423            V341= (*(LnkLI192))(V342,VV[74],V343,V344,V345);
2424            base[3]= (V338);
2425            base[4]= (V341);
2426          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2427          (void) (*Lnk202)();          (void) (*Lnk202)();
2428          return;}          return;}
# Line 2412  TTL:; Line 2430  TTL:;
2430  }  }
2431  /*      local entry for function USE-DISPATCH-DFUN-P    */  /*      local entry for function USE-DISPATCH-DFUN-P    */
2432    
2433  static object LI61(object V328,object first,...)  static object LI61(object V346,object first,...)
2434  {        {      
2435          va_list ap;          va_list ap;
2436          int narg = VFUN_NARGS; VMB60 VMS60 VMV60          int narg = VFUN_NARGS; VMB60 VMS60 VMV60
2437          {object V329;          {object V347;
2438          object V330;          object V348;
2439          va_start(ap,first);          va_start(ap,first);
2440          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
2441          V329= V328;          V347= V346;
2442          narg = narg - 1;          narg = narg - 1;
2443          if (narg <= 0) goto T611;          if (narg <= 0) goto T611;
2444          else {          else {
2445          V330= first;}          V348= first;}
2446          --narg; goto T612;          --narg; goto T612;
2447          goto T611;          goto T611;
2448  T611:;  T611:;
2449          V330= (*(LnkLI183))((V329));          V348= (*(LnkLI183))((V347));
2450          goto T612;          goto T612;
2451  T612:;  T612:;
2452          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[72]->s.s_dbind))==(VV[73]))){
2453          goto T615;}          goto T615;}
2454          if(((V330))!=Cnil){          if(((V348))!=Cnil){
2455          goto T618;}          goto T618;}
2456          {object V331;          {object V349;
2457          V331= (*(LnkLI208))((V329));          V349= (*(LnkLI208))((V347));
2458          base[0]= (V329);          base[0]= (V347);
2459          base[1]= (V331);          base[1]= (V349);
2460          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2461          (void) (*Lnk209)();          (void) (*Lnk209)();
2462          vs_top=sup;          vs_top=sup;
2463          V332= vs_base[0];          V350= vs_base[0];
2464          {object V333 = (number_compare(V332,(V331))<0?Ct:Cnil);          V351 = (V349);
2465          VMR60(V333)}}          {object V352 = (number_compare(V350,V351)<0?Ct:Cnil);
2466            VMR60(V352)}}
2467          goto T618;          goto T618;
2468  T618:;  T618:;
2469          {object V334 = Cnil;          {object V353 = Cnil;
2470          VMR60(V334)}          VMR60(V353)}
2471          goto T615;          goto T615;
2472  T615:;  T615:;
2473          {object V335 = Cnil;          {object V354 = Cnil;
2474          VMR60(V335)}          VMR60(V354)}
2475          va_end(ap);          va_end(ap);
2476          base[0]=base[0];          base[0]=base[0];
2477          return Cnil;}          return Cnil;}
2478          }          }
2479  /*      local entry for function SHOW-DFUN-COSTS        */  /*      local entry for function SHOW-DFUN-COSTS        */
2480    
2481  static object LI62(V337)  static object LI62(V356)
2482    
2483  register object V337;  register object V356;
2484  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
2485          goto TTL;          goto TTL;
2486  TTL:;  TTL:;
2487          if(type_of((V337))==t_symbol){          if(type_of((V356))==t_symbol){
2488          goto T625;}          goto T625;}
2489          if(!(type_of((V337))==t_cons)){          if(!(type_of((V356))==t_cons)){
2490          goto T624;}          goto T624;}
2491          goto T625;          goto T625;
2492  T625:;  T625:;
2493          V337= (*(LnkLI210))((V337));          V356= (*(LnkLI210))((V356));
2494          goto T624;          goto T624;
2495  T624:;  T624:;
2496          base[0]= Ct;          base[0]= Ct;
2497          base[1]= VV[75];          base[1]= VV[75];
2498          base[3]= (V337);          base[3]= (V356);
2499          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2500          (void) (*Lnk162)(Lclptr162);          (void) (*Lnk162)(Lclptr162);
2501          vs_top=sup;          vs_top=sup;
2502          base[2]= vs_base[0];          base[2]= vs_base[0];
2503          base[3]= (*(LnkLI208))((V337));          base[3]= (*(LnkLI208))((V356));
2504          base[5]= (V337);          base[5]= (V356);
2505          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2506          (void) (*Lnk209)();          (void) (*Lnk209)();
2507          vs_top=sup;          vs_top=sup;
# Line 2490  T624:; Line 2509  T624:;
2509          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
2510          Lformat();          Lformat();
2511          vs_top=sup;          vs_top=sup;
2512          {object V338 = vs_base[0];          {object V357 = vs_base[0];
2513          VMR61(V338)}          VMR61(V357)}
2514          base[0]=base[0];          base[0]=base[0];
2515          return Cnil;          return Cnil;
2516  }  }
# Line 2501  static void L63() Line 2520  static void L63()
2520  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
2521          register object *VOL sup=base+VM62; VC62          register object *VOL sup=base+VM62; VC62
2522          vs_check;          vs_check;
2523          {VOL object V339;          {VOL object V358;
2524          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
2525          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
2526          V339=(base[0]);          V358=(base[0]);
2527          vs_base=vs_base+1;          vs_base=vs_base+1;
2528          if(vs_base>=vs_top){vs_top=sup;goto T637;}          if(vs_base>=vs_top){vs_top=sup;goto T637;}
2529          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
# Line 2523  T638:; Line 2542  T638:;
2542          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
2543          return;}          return;}
2544          else{          else{
2545          base[3]= (V339);          base[3]= (V358);
2546          base[5]= (V339);          base[5]= (V358);
2547          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2548          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
2549          vs_top=sup;          vs_top=sup;
# Line 2544  T638:; Line 2563  T638:;
2563  }  }
2564  /*      local entry for function CACHING-DFUN-COST      */  /*      local entry for function CACHING-DFUN-COST      */
2565    
2566  static object LI64(V341)  static object LI64(V360)
2567    
2568  object V341;  object V360;
2569  {        VMB63 VMS63 VMV63  {        VMB63 VMS63 VMV63
2570          goto TTL;          goto TTL;
2571  TTL:;  TTL:;
2572          {object V342;          {object V361;
2573          object V343;          object V362;
2574          base[2]= (V341);          base[2]= (V360);
2575          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2576          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk161)(Lclptr161);
2577          vs_top=sup;          vs_top=sup;
2578          V342= vs_base[0];          V361= vs_base[0];
2579          V343= CMPmake_fixnum((long)length(STREF(object,(V342),8)));          V362= CMPmake_fixnum((long)length(STREF(object,(V361),8)));
2580          base[2]= (VV[81]->s.s_dbind);          base[2]= (VV[81]->s.s_dbind);
2581          base[3]= number_times((VV[82]->s.s_dbind),(V343));          base[3]= number_times((VV[82]->s.s_dbind),(V362));
2582          base[5]= (V341);          base[5]= (V360);
2583          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2584          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
2585          vs_top=sup;          vs_top=sup;
2586          V344= vs_base[0];          V363= vs_base[0];
2587          if(((*(LnkLI213))(V344))==Cnil){          if(((*(LnkLI213))(V363))==Cnil){
2588          goto T654;}          goto T654;}
2589          base[4]= (VV[83]->s.s_dbind);          base[4]= (VV[83]->s.s_dbind);
2590          goto T652;          goto T652;
# Line 2577  T652:; Line 2596  T652:;
2596          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2597          Lplus();          Lplus();
2598          vs_top=sup;          vs_top=sup;
2599          {object V345 = vs_base[0];          {object V364 = vs_base[0];
2600          VMR63(V345)}}          VMR63(V364)}}
2601          base[0]=base[0];          base[0]=base[0];
2602          return Cnil;          return Cnil;
2603  }  }
# Line 2588  static void L65() Line 2607  static void L65()
2607  {register object *base=vs_base;  {register object *base=vs_base;
2608          register object *sup=base+VM64; VC64          register object *sup=base+VM64; VC64
2609          vs_check;          vs_check;
2610          {object V346;          {object V365;
2611          check_arg(1);          check_arg(1);
2612          V346=(base[0]);          V365=(base[0]);
2613          vs_top=sup;          vs_top=sup;
2614          goto TTL;          goto TTL;
2615  TTL:;  TTL:;
2616          base[2]= (V346);          base[2]= (V365);
2617          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2618          (void) (*Lnk214)();          (void) (*Lnk214)();
2619          vs_top=sup;          vs_top=sup;
# Line 2611  static void L66() Line 2630  static void L66()
2630  {register object *base=vs_base;  {register object *base=vs_base;
2631          register object *sup=base+VM65; VC65          register object *sup=base+VM65; VC65
2632          vs_check;          vs_check;
2633          {object V347;          {object V366;
2634          check_arg(1);          check_arg(1);
2635          V347=(base[0]);          V366=(base[0]);
2636          vs_top=sup;          vs_top=sup;
2637          goto TTL;          goto TTL;
2638  TTL:;  TTL:;
2639          {object V348;          {object V367;
2640          base[1]= (V347);          base[1]= (V366);
2641          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2642          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
2643          vs_top=sup;          vs_top=sup;
2644          V348= vs_base[0];          V367= vs_base[0];
2645          base[1]= (VFUN_NARGS=8,(*(LnkLI216))((V347),(V348),Cnil,Cnil,Cnil,Cnil,Cnil,Ct));          base[1]= (VFUN_NARGS=8,(*(LnkLI216))((V366),(V367),Cnil,Cnil,Cnil,Cnil,Cnil,Ct));
2646          base[2]= Cnil;          base[2]= Cnil;
2647          base[3]= Cnil;          base[3]= Cnil;
2648          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 2640  static void L67() Line 2659  static void L67()
2659  {register object *base=vs_base;  {register object *base=vs_base;
2660          register object *sup=base+VM66; VC66          register object *sup=base+VM66; VC66
2661          vs_check;          vs_check;
2662          {object V349;          {object V368;
2663          check_arg(1);          check_arg(1);
2664          V349=(base[0]);          V368=(base[0]);
2665          vs_top=sup;          vs_top=sup;
2666          goto TTL;          goto TTL;
2667  TTL:;  TTL:;
2668          base[1]= (V349);          base[1]= (V368);
2669          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2670          (void) (*Lnk186)();          (void) (*Lnk186)();
2671          return;          return;
# Line 2659  static object LI68() Line 2678  static object LI68()
2678  {        VMB67 VMS67 VMV67  {        VMB67 VMS67 VMV67
2679          goto TTL;          goto TTL;
2680  TTL:;  TTL:;
2681          {register object V350;          {register object V369;
2682          register object V351;          register object V370;
2683          V350= (*(LnkLI160))(VV[84]);          V369= (*(LnkLI160))(VV[84]);
2684          V351= CMPcar((V350));          V370= CMPcar((V369));
2685          goto T671;          goto T671;
2686  T671:;  T671:;
2687          if(!(((V350))==Cnil)){          if(!(((V369))==Cnil)){
2688          goto T672;}          goto T672;}
2689          {object V352 = Cnil;          {object V371 = Cnil;
2690          VMR67(V352)}          VMR67(V371)}
2691          goto T672;          goto T672;
2692  T672:;  T672:;
2693          {register object V353;          {register object V372;
2694          register object V354;          register object V373;
2695          register object V355;          register object V374;
2696          base[2]= (V351);          base[2]= (V370);
2697          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2698          (void) (*Lnk186)();          (void) (*Lnk186)();
2699          if(vs_base>=vs_top){vs_top=sup;goto T679;}          if(vs_base>=vs_top){vs_top=sup;goto T679;}
2700          V353= vs_base[0];          V372= vs_base[0];
2701          vs_base++;          vs_base++;
2702          if(vs_base>=vs_top){vs_top=sup;goto T680;}          if(vs_base>=vs_top){vs_top=sup;goto T680;}
2703          V354= vs_base[0];          V373= vs_base[0];
2704          vs_base++;          vs_base++;
2705          if(vs_base>=vs_top){vs_top=sup;goto T681;}          if(vs_base>=vs_top){vs_top=sup;goto T681;}
2706          V355= vs_base[0];          V374= vs_base[0];
2707          vs_top=sup;          vs_top=sup;
2708          goto T682;          goto T682;
2709          goto T679;          goto T679;
2710  T679:;  T679:;
2711          V353= Cnil;          V372= Cnil;
2712          goto T680;          goto T680;
2713  T680:;  T680:;
2714          V354= Cnil;          V373= Cnil;
2715          goto T681;          goto T681;
2716  T681:;  T681:;
2717          V355= Cnil;          V374= Cnil;
2718          goto T682;          goto T682;
2719  T682:;  T682:;
2720          (void)((VFUN_NARGS=4,(*(LnkLI49))((V351),(V353),(V354),(V355))));}          (void)((VFUN_NARGS=4,(*(LnkLI49))((V370),(V372),(V373),(V374))));}
2721          V350= CMPcdr((V350));          V369= CMPcdr((V369));
2722          V351= CMPcar((V350));          V370= CMPcar((V369));
2723          goto T671;}          goto T671;}
2724          base[0]=base[0];          base[0]=base[0];
2725          return Cnil;          return Cnil;
2726  }  }
2727  /*      local entry for function FILL-DFUN-CACHE        */  /*      local entry for function FILL-DFUN-CACHE        */
2728    
2729  static object LI69(object V359,object V358,object V357,object V356,object first,...)  static object LI69(object V378,object V377,object V376,object V375,object first,...)
2730  {        {      
2731          va_list ap;          va_list ap;
2732          int narg = VFUN_NARGS; VMB68 VMS68 VMV68          int narg = VFUN_NARGS; VMB68 VMS68 VMV68
2733          {object V360;          {object V379;
2734          object V361;          object V380;
2735          object V362;          object V381;
2736          object V363;          object V382;
2737          object V364;          object V383;
2738          va_start(ap,first);          va_start(ap,first);
2739          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
2740          V360= V359;          V379= V378;
2741          V361= V358;          V380= V377;
2742          V362= V357;          V381= V376;
2743          V363= V356;          V382= V375;
2744          narg = narg - 4;          narg = narg - 4;
2745          if (narg <= 0) goto T688;          if (narg <= 0) goto T688;
2746          else {          else {
2747          V364= first;}          V383= first;}
2748          --narg; goto T689;          --narg; goto T689;
2749          goto T688;          goto T688;
2750  T688:;  T688:;
2751          V364= Cnil;          V383= Cnil;
2752          goto T689;          goto T689;
2753  T689:;  T689:;
2754          if((V364)!=Cnil){          if((V383)!=Cnil){
2755          base[0]= (V364);          base[0]= (V383);
2756          goto T691;}          goto T691;}
2757          base[1]= (V360);          base[1]= (V379);
2758          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2759          Lhash_table_count();          Lhash_table_count();
2760          vs_top=sup;          vs_top=sup;
2761          V365= vs_base[0];          V384= vs_base[0];
2762          {long V366= fix(number_plus(V365,small_fixnum(3)));          {long V385= fix(number_plus(V384,small_fixnum(3)));
2763          base[0]= (*(LnkLI175))((V362),(V361),(V363),/* INLINE-ARGS */V366);}          base[0]= (*(LnkLI175))((V381),(V380),(V382),/* INLINE-ARGS */V385);}
2764          goto T691;          goto T691;
2765  T691:;  T691:;
2766          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
2767          base[1]=          base[1]=
2768          make_cclosure_new(LC152,Cnil,base[0],Cdata);          make_cclosure_new(LC152,Cnil,base[0],Cdata);
2769          base[2]= (V360);          base[2]= (V379);
2770          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2771          Lmaphash();          Lmaphash();
2772          vs_top=sup;          vs_top=sup;
2773          {object V367 = (base[0]->c.c_car);          {object V386 = (base[0]->c.c_car);
2774          VMR68(V367)}          VMR68(V386)}
2775          va_end(ap);          va_end(ap);
2776          base[0]=base[0];          base[0]=base[0];
2777          return Cnil;}          return Cnil;}
2778          }          }
2779  /*      local entry for function MAKE-FINAL-ORDINARY-DFUN-INTERNAL      */  /*      local entry for function MAKE-FINAL-ORDINARY-DFUN-INTERNAL      */
2780    
2781  static object LI70(V373,V374,V375,V376,V377)  static object LI70(V392,V393,V394,V395,V396)
2782    
2783  register object V373;register object V374;object V375;object V376;object V377;  register object V392;register object V393;object V394;object V395;object V396;
2784  {        VMB69 VMS69 VMV69  {        VMB69 VMS69 VMV69
2785          goto TTL;          goto TTL;
2786  TTL:;  TTL:;
2787          {object V378;          {object V397;
2788          object V379;          object V398;
2789          object V380;          object V399;
2790          object V381;          object V400;
2791          base[4]= (V373);          base[4]= (V392);
2792          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2793          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk161)(Lclptr161);
2794          vs_top=sup;          vs_top=sup;
2795          V378= vs_base[0];          V397= vs_base[0];
2796          V379= (*(LnkLI217))((V378));          V398= (*(LnkLI217))((V397));
2797          if((V377)==Cnil){          if((V396)==Cnil){
2798          V380= Cnil;          V399= Cnil;
2799          goto T700;}          goto T700;}
2800          base[4]= (*(LnkLI218))((V373));          base[4]= (*(LnkLI218))((V392));
2801          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2802          Ltype_of();          Ltype_of();
2803          vs_top=sup;          vs_top=sup;
2804          V382= vs_base[0];          V401= vs_base[0];
2805          if(!(((V374))==(Ct))){          if(!(((V393))==(Ct))){
2806          goto T707;}          goto T707;}
2807          V383= VV[13];          V402= VV[13];
2808          goto T705;          goto T705;
2809          goto T707;          goto T707;
2810  T707:;  T707:;
2811          if(!(((V374))==(VV[74]))){          if(!(((V393))==(VV[74]))){
2812          goto T710;}          goto T710;}
2813          V383= VV[14];          V402= VV[14];
2814          goto T705;          goto T705;
2815          goto T710;          goto T710;
2816  T710:;  T710:;
2817          if(((V374))!=Cnil){          if(((V393))!=Cnil){
2818          goto T713;}          goto T713;}
2819          V383= VV[12];          V402= VV[12];
2820          goto T705;          goto T705;
2821          goto T713;          goto T713;
2822  T713:;  T713:;
2823          V383= Cnil;          V402= Cnil;
2824          goto T705;          goto T705;
2825  T705:;  T705:;
2826          if(equal(V382,V383)){          if(equal(V401,V402)){
2827          goto T701;}          goto T701;}
2828          V380= Cnil;          V399= Cnil;
2829          goto T700;          goto T700;
2830          goto T701;          goto T701;
2831  T701:;  T701:;
2832          V380= (V377);          V399= (V396);
2833          goto T700;          goto T700;
2834  T700:;  T700:;
2835          if(((V380))==Cnil){          if(((V399))==Cnil){
2836          goto T717;}          goto T717;}
2837          V384= (*(LnkLI220))((V373));          V403= (*(LnkLI220))((V392));
2838          V381= (*(LnkLI219))(/* INLINE-ARGS */V384);          V400= (*(LnkLI219))(/* INLINE-ARGS */V403);
2839          goto T715;          goto T715;
2840          goto T717;          goto T717;
2841  T717:;  T717:;
2842          V381= (*(LnkLI175))((V379),(((((V374))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(V375),4);          V400= (*(LnkLI175))((V398),(((((V393))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(V394),4);
2843          goto T715;          goto T715;
2844  T715:;  T715:;
2845          {object V385 = (*(LnkLI221))((V373),(V374),(V381),(V376),(V380));          {object V404 = (*(LnkLI221))((V392),(V393),(V400),(V395),(V399));
2846          VMR69(V385)}}          VMR69(V404)}}
2847          base[0]=base[0];          base[0]=base[0];
2848          return Cnil;          return Cnil;
2849  }  }
# Line 2836  static void L71() Line 2855  static void L71()
2855          vs_check;          vs_check;
2856          check_arg(2);          check_arg(2);
2857          vs_top=sup;          vs_top=sup;
2858          {object V386=base[0]->c.c_cdr;          {object V405=base[0]->c.c_cdr;
2859          if(endp(V386))invalid_macro_call();          if(endp(V405))invalid_macro_call();
2860          {object V387= (V386->c.c_car);          {object V406= (V405->c.c_car);
2861          if(endp(V387))invalid_macro_call();          if(endp(V406))invalid_macro_call();
2862          base[2]= (V387->c.c_car);          base[2]= (V406->c.c_car);
2863          V387=V387->c.c_cdr;          V406=V406->c.c_cdr;
2864          if(endp(V387))invalid_macro_call();          if(endp(V406))invalid_macro_call();
2865          base[3]= (V387->c.c_car);          base[3]= (V406->c.c_car);
2866          V387=V387->c.c_cdr;          V406=V406->c.c_cdr;
2867          if(endp(V387))invalid_macro_call();          if(endp(V406))invalid_macro_call();
2868          base[4]= (V387->c.c_car);          base[4]= (V406->c.c_car);
2869          V387=V387->c.c_cdr;          V406=V406->c.c_cdr;
2870          if(endp(V387))invalid_macro_call();          if(endp(V406))invalid_macro_call();
2871          base[5]= (V387->c.c_car);          base[5]= (V406->c.c_car);
2872          V387=V387->c.c_cdr;          V406=V406->c.c_cdr;
2873          if(endp(V387))invalid_macro_call();          if(endp(V406))invalid_macro_call();
2874          base[6]= (V387->c.c_car);          base[6]= (V406->c.c_car);
2875          V387=V387->c.c_cdr;          V406=V406->c.c_cdr;
2876          if(endp(V387)){          if(endp(V406)){
2877          base[7]= Cnil;          base[7]= Cnil;
2878          } else {          } else {
2879          base[7]= (V387->c.c_car);          base[7]= (V406->c.c_car);
2880          V387=V387->c.c_cdr;}          V406=V406->c.c_cdr;}
2881          if(endp(V387)){          if(endp(V406)){
2882          base[8]= Cnil;          base[8]= Cnil;
2883          } else {          } else {
2884          base[8]= (V387->c.c_car);          base[8]= (V406->c.c_car);
2885          V387=V387->c.c_cdr;}          V406=V406->c.c_cdr;}
2886          if(endp(V387)){          if(endp(V406)){
2887          base[9]= Cnil;          base[9]= Cnil;
2888          } else {          } else {
2889          base[9]= (V387->c.c_car);          base[9]= (V406->c.c_car);
2890          V387=V387->c.c_cdr;}          V406=V406->c.c_cdr;}
2891          if(endp(V387)){          if(endp(V406)){
2892          base[10]= Cnil;          base[10]= Cnil;
2893          } else {          } else {
2894          base[10]= (V387->c.c_car);          base[10]= (V406->c.c_car);
2895          V387=V387->c.c_cdr;}          V406=V406->c.c_cdr;}
2896          if(!endp(V387))invalid_macro_call();}          if(!endp(V406))invalid_macro_call();}
2897          V386=V386->c.c_cdr;          V405=V405->c.c_cdr;
2898          base[11]= V386;}          base[11]= V405;}
2899          if((base[10])!=Cnil){          if((base[10])!=Cnil){
2900          goto T723;}          goto T723;}
2901          vs_base=vs_top;          vs_base=vs_top;
# Line 2885  static void L71() Line 2904  static void L71()
2904          base[10]= vs_base[0];          base[10]= vs_base[0];
2905          goto T723;          goto T723;
2906  T723:;  T723:;
2907            V407 = base[6];
2908            V408 = base[10];
2909            V409 = base[4];
2910            V410 = base[5];
2911          if((base[7])==Cnil){          if((base[7])==Cnil){
2912          goto T729;}          goto T729;}
2913          V388= list(2,base[7],base[8]);          V411= list(2,base[7],base[8]);
2914          goto T727;          goto T727;
2915          goto T729;          goto T729;
2916  T729:;  T729:;
2917          V388= Cnil;          V411= Cnil;
2918          goto T727;          goto T727;
2919  T727:;  T727:;
2920          V389= listA(5,base[6],base[10],base[4],base[5],V388);          V412= listA(5,V407,V408,V409,V410,V411);
2921          if((base[9])==Cnil){          if((base[9])==Cnil){
2922          goto T733;}          goto T733;}
2923          V390= VV[13];          V413= VV[13];
2924          goto T731;          goto T731;
2925          goto T733;          goto T733;
2926  T733:;  T733:;
2927          if((base[7])==Cnil){          if((base[7])==Cnil){
2928          goto T736;}          goto T736;}
2929          V390= VV[86];          V413= VV[86];
2930          goto T731;          goto T731;
2931          goto T736;          goto T736;
2932  T736:;  T736:;
2933          V390= VV[12];          V413= VV[12];
2934          goto T731;          goto T731;
2935  T731:;  T731:;
2936          V391= list(4,VV[85],base[2],base[3],list(2,VV[25],V390));          V414= list(4,VV[85],base[2],base[3],list(2,VV[25],V413));
2937          V392= list(3,VV[88],base[10],list(2,VV[89],list(3,VV[90],base[2],VV[91])));          V415= list(3,VV[88],base[10],list(2,VV[89],list(3,VV[90],base[2],VV[91])));
2938          V393= list(2,VV[91],list(3,VV[93],base[2],VV[91]));          V416= list(2,VV[91],list(3,VV[93],base[2],VV[91]));
2939          V394= list(3,VV[87],/* INLINE-ARGS */V392,listA(3,VV[92],make_cons(/* INLINE-ARGS */V393,Cnil),base[11]));          V417= list(3,VV[87],/* INLINE-ARGS */V415,listA(3,VV[92],make_cons(/* INLINE-ARGS */V416,Cnil),base[11]));
2940          base[12]= list(5,VV[46],/* INLINE-ARGS */V389,/* INLINE-ARGS */V391,/* INLINE-ARGS */V394,list(3,VV[94],base[6],base[3]));          base[12]= list(5,VV[46],/* INLINE-ARGS */V412,/* INLINE-ARGS */V414,/* INLINE-ARGS */V417,list(3,VV[94],base[6],base[3]));
2941          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2942          return;          return;
2943  }  }
2944  /*      local entry for function MAKE-INITIAL-DFUN      */  /*      local entry for function MAKE-INITIAL-DFUN      */
2945    
2946  static object LI73(V396)  static object LI73(V419)
2947    
2948  object V396;  object V419;
2949  {        VMB71 VMS71 VMV71  {        VMB71 VMS71 VMV71
2950          goto TTL;          goto TTL;
2951  TTL:;  TTL:;
2952          base[0]=MMcons((V396),Cnil);          base[0]=MMcons((V419),Cnil);
2953          {object V397;          {object V420;
2954          V397=          V420=
2955          make_cclosure_new(LC153,Cnil,base[0],Cdata);          make_cclosure_new(LC153,Cnil,base[0],Cdata);
2956          {object V398;          {object V421;
2957          object V399;          object V422;
2958          object V400;          object V423;
2959          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[72]->s.s_dbind))==(VV[73]))){
2960          goto T741;}          goto T741;}
2961          if(((*(LnkLI205))((base[0]->c.c_car)))==Cnil){          if(((*(LnkLI205))((base[0]->c.c_car)))==Cnil){
2962          goto T741;}          goto T741;}
2963          {object V401;          {object V424;
2964          object V402;          object V425;
2965          V401= (*(LnkLI183))((base[0]->c.c_car));          V424= (*(LnkLI183))((base[0]->c.c_car));
2966          V402= (VFUN_NARGS=3,(*(LnkLI222))((base[0]->c.c_car),(V401),(((VV[95]->s.s_dbind))==Cnil?Ct:Cnil)));          V425= (VFUN_NARGS=3,(*(LnkLI222))((base[0]->c.c_car),(V424),(((VV[95]->s.s_dbind))==Cnil?Ct:Cnil)));
2967          if(((VV[95]->s.s_dbind))==Cnil){          if(((VV[95]->s.s_dbind))==Cnil){
2968          goto T748;}          goto T748;}
2969          if(((VFUN_NARGS=2,(*(LnkLI185))((base[0]->c.c_car),(V401))))==Cnil){          if(((VFUN_NARGS=2,(*(LnkLI185))((base[0]->c.c_car),(V424))))==Cnil){
2970          goto T751;}          goto T751;}
2971          base[3]= (V397);          base[3]= (V420);
2972          base[4]= Cnil;          base[4]= Cnil;
2973          base[5]= (*(LnkLI223))();          base[5]= (*(LnkLI223))();
2974          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
# Line 2953  TTL:; Line 2976  TTL:;
2976          goto T751;          goto T751;
2977  T751:;  T751:;
2978          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
2979          base[4]= (V401);          base[4]= (V424);
2980          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2981          (void) (*Lnk224)();          (void) (*Lnk224)();
2982          vs_top=sup;          vs_top=sup;
2983          base[3]= (V397);          base[3]= (V420);
2984          base[4]= Cnil;          base[4]= Cnil;
2985          base[5]= (*(LnkLI225))();          base[5]= (*(LnkLI225))();
2986          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
# Line 2965  T751:; Line 2988  T751:;
2988          goto T748;          goto T748;
2989  T748:;  T748:;
2990          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
2991          base[4]= (V402);          base[4]= (V425);
2992          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2993          (void) (*Lnk226)();          (void) (*Lnk226)();
2994          goto T739;}          goto T739;}
2995          goto T741;          goto T741;
2996  T741:;  T741:;
2997          {object V403;          {object V426;
2998          object V404;          object V427;
2999          if(((*(LnkLI196))((base[0]->c.c_car)))==Cnil){          if(((*(LnkLI196))((base[0]->c.c_car)))==Cnil){
3000          goto T766;}          goto T766;}
3001          {object V406;          {object V429;
3002          V406= (base[0]->c.c_car);          V429= (base[0]->c.c_car);
3003          if(type_of((V406))==t_structure){          if(type_of((V429))==t_structure){
3004          goto T772;}          goto T772;}
3005          goto T770;          goto T770;
3006          goto T772;          goto T772;
3007  T772:;  T772:;
3008          if(!((((V406))->str.str_def)==(VV[99]))){          if(!((((V429))->str.str_def)==(VV[99]))){
3009          goto T770;}}          goto T770;}}
3010          V405= STREF(object,(base[0]->c.c_car),4);          V428= STREF(object,(base[0]->c.c_car),4);
3011          goto T768;          goto T768;
3012          goto T770;          goto T770;
3013  T770:;{object V407;  T770:;{object V430;
3014          V407= (VV[65]->s.s_dbind);          V430= (VV[65]->s.s_dbind);
3015          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
3016          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
3017          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3018          (void) (*Lnk197)();          (void) (*Lnk197)();
3019          vs_top=sup;          vs_top=sup;
3020          V408= vs_base[0];          V431= vs_base[0];
3021          if(!((V407)==(CMPcar(V408)))){          if(!((V430)==(CMPcar(V431)))){
3022          goto T775;}}          goto T775;}}
3023          V405= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);          V428= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);
3024          goto T768;          goto T768;
3025          goto T775;          goto T775;
3026  T775:;  T775:;
# Line 3005  T775:; Line 3028  T775:;
3028          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3029          Lerror();          Lerror();
3030          vs_top=sup;          vs_top=sup;
3031          V405= vs_base[0];          V428= vs_base[0];
3032          goto T768;          goto T768;
3033  T768:;  T768:;
3034          V403= (V405)->v.v_self[fix((VV[97]->s.s_dbind))];          V432 = (VV[97]->s.s_dbind);
3035            V426= (V428)->v.v_self[fix(V432)];
3036          goto T764;          goto T764;
3037          goto T766;          goto T766;
3038  T766:;  T766:;
# Line 3016  T766:; Line 3040  T766:;
3040          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3041          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk161)(Lclptr161);
3042          vs_top=sup;          vs_top=sup;
3043          V403= vs_base[0];          V426= vs_base[0];
3044          goto T764;          goto T764;
3045  T764:;  T764:;
3046          V404= Cnil;          V427= Cnil;
3047          if((STREF(object,(V403),28))==Cnil){          if((STREF(object,(V426),28))==Cnil){
3048          goto T783;}          goto T783;}
3049          V404= (*(LnkLI227))((base[0]->c.c_car));          V427= (*(LnkLI227))((base[0]->c.c_car));
3050          if(((V404))==Cnil){          if(((V427))==Cnil){
3051          goto T783;}          goto T783;}
3052          if(((VV[98]->s.s_dbind))==Cnil){          if(((VV[98]->s.s_dbind))==Cnil){
3053          goto T789;}          goto T789;}
3054          base[1]= (*(LnkLI228))((base[0]->c.c_car),(V404));          base[1]= (*(LnkLI228))((base[0]->c.c_car),(V427));
3055          base[2]= Cnil;          base[2]= Cnil;
3056          base[3]= Cnil;          base[3]= Cnil;
3057          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 3035  T764:; Line 3059  T764:;
3059          goto T789;          goto T789;
3060  T789:;  T789:;
3061          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
3062          base[2]= (V404);          base[2]= (V427);
3063          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3064          (void) (*Lnk229)();          (void) (*Lnk229)();
3065          goto T739;          goto T739;
3066          goto T783;          goto T783;
3067  T783:;  T783:;
3068          base[1]= (V397);          base[1]= (V420);
3069          base[2]= Cnil;          base[2]= Cnil;
3070          base[3]= (*(LnkLI225))();          base[3]= (*(LnkLI225))();
3071          vs_top=(vs_base=base+1)+3;}          vs_top=(vs_base=base+1)+3;}
3072          goto T739;          goto T739;
3073  T739:;  T739:;
3074          if(vs_base>=vs_top){vs_top=sup;goto T799;}          if(vs_base>=vs_top){vs_top=sup;goto T799;}
3075          V398= vs_base[0];          V421= vs_base[0];
3076          vs_base++;          vs_base++;
3077          if(vs_base>=vs_top){vs_top=sup;goto T800;}          if(vs_base>=vs_top){vs_top=sup;goto T800;}
3078          V399= vs_base[0];          V422= vs_base[0];
3079          vs_base++;          vs_base++;
3080          if(vs_base>=vs_top){vs_top=sup;goto T801;}          if(vs_base>=vs_top){vs_top=sup;goto T801;}
3081          V400= vs_base[0];          V423= vs_base[0];
3082          vs_top=sup;          vs_top=sup;
3083          goto T802;          goto T802;
3084          goto T799;          goto T799;
3085  T799:;  T799:;
3086          V398= Cnil;          V421= Cnil;
3087          goto T800;          goto T800;
3088  T800:;  T800:;
3089          V399= Cnil;          V422= Cnil;
3090          goto T801;          goto T801;
3091  T801:;  T801:;
3092          V400= Cnil;          V423= Cnil;
3093          goto T802;          goto T802;
3094  T802:;  T802:;
3095          {object V409 = (VFUN_NARGS=4,(*(LnkLI230))((base[0]->c.c_car),(V398),(V399),(V400)));          {object V433 = (VFUN_NARGS=4,(*(LnkLI230))((base[0]->c.c_car),(V421),(V422),(V423)));
3096          VMR71(V409)}}}          VMR71(V433)}}}
3097          base[0]=base[0];          base[0]=base[0];
3098          return Cnil;          return Cnil;
3099  }  }
3100  /*      local entry for function MAKE-EARLY-ACCESSOR    */  /*      local entry for function MAKE-EARLY-ACCESSOR    */
3101    
3102  static object LI74(V412,V413)  static object LI74(V436,V437)
3103    
3104  register object V412;object V413;  register object V436;object V437;
3105  {        VMB72 VMS72 VMV72  {        VMB72 VMS72 VMV72
3106          goto TTL;          goto TTL;
3107  TTL:;  TTL:;
3108          {object V414;          {object V438;
3109          if(type_of(V412)==t_structure){          if(type_of(V436)==t_structure){
3110          goto T808;}          goto T808;}
3111          goto T806;          goto T806;
3112          goto T808;          goto T808;
3113  T808:;  T808:;
3114          if(!(((V412)->str.str_def)==(VV[100]))){          if(!(((V436)->str.str_def)==(VV[100]))){
3115          goto T806;}          goto T806;}
3116          V415= STREF(object,(V412),4);          V439= STREF(object,(V436),4);
3117          goto T804;          goto T804;
3118          goto T806;          goto T806;
3119  T806:;{object V417;  T806:;{object V441;
3120          V417= (VV[65]->s.s_dbind);          V441= (VV[65]->s.s_dbind);
3121          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
3122          base[3]= (V412);          base[3]= (V436);
3123          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3124          (void) (*Lnk197)();          (void) (*Lnk197)();
3125          vs_top=sup;          vs_top=sup;
3126          V418= vs_base[0];          V442= vs_base[0];
3127          if(!((V417)==(CMPcar(V418)))){          if(!((V441)==(CMPcar(V442)))){
3128          goto T811;}}          goto T811;}}
3129          V415= CMPcar(((V412))->cc.cc_turbo[12]);          V439= CMPcar(((V436))->cc.cc_turbo[12]);
3130          goto T804;          goto T804;
3131          goto T811;          goto T811;
3132  T811:;  T811:;
# Line 3110  T811:; Line 3134  T811:;
3134          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3135          Lerror();          Lerror();
3136          vs_top=sup;          vs_top=sup;
3137          V415= vs_base[0];          V439= vs_base[0];
3138          goto T804;          goto T804;
3139  T804:;  T804:;
3140          V414= (V415)->v.v_self[fix((VV[67]->s.s_dbind))];          V443 = (VV[67]->s.s_dbind);
3141          base[2]= CMPcar((V414));          V438= (V439)->v.v_self[fix(V443)];
3142            base[2]= CMPcar((V438));
3143          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3144          (void) (*Lnk231)();          (void) (*Lnk231)();
3145          vs_top=sup;          vs_top=sup;
3146          base[1]= vs_base[0];          base[1]= vs_base[0];
3147          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
3148          {object V419= (V413);          {object V444= (V437);
3149          if((V419!= VV[51]))goto T819;          if((V444!= VV[51]))goto T819;
3150          {object V420 =          {object V445 =
3151          make_cclosure_new(LC154,Cnil,base[1],Cdata);          make_cclosure_new(LC154,Cnil,base[1],Cdata);
3152          VMR72(V420)}          VMR72(V445)}
3153          goto T819;          goto T819;
3154  T819:;  T819:;
3155          if((V419!= VV[123]))goto T820;          if((V444!= VV[123]))goto T820;
3156          {object V421 =          {object V446 =
3157          make_cclosure_new(LC155,Cnil,base[1],Cdata);          make_cclosure_new(LC155,Cnil,base[1],Cdata);
3158          VMR72(V421)}          VMR72(V446)}
3159          goto T820;          goto T820;
3160  T820:;  T820:;
3161          FEerror("The ECASE key value ~s is illegal.",1,V419);          FEerror("The ECASE key value ~s is illegal.",1,V444);
3162          {object V422 = Cnil;          {object V447 = Cnil;
3163          VMR72(V422)}}}          VMR72(V447)}}}
3164          base[0]=base[0];          base[0]=base[0];
3165          return Cnil;          return Cnil;
3166  }  }
# Line 3146  static void L75() Line 3171  static void L75()
3171          register object *sup=base+VM73; VC73          register object *sup=base+VM73; VC73
3172          vs_check;          vs_check;
3173          bds_check;          bds_check;
3174          {register object V423;          {register object V448;
3175          object V424;          object V449;
3176          check_arg(2);          check_arg(2);
3177          V423=(base[0]);          V448=(base[0]);
3178          V424=(base[1]);          V449=(base[1]);
3179          vs_top=sup;          vs_top=sup;
3180          goto TTL;          goto TTL;
3181  TTL:;  TTL:;
3182          {object V425;          {object V450;
3183          object V426;          object V451;
3184          object V427;          object V452;
3185          object V428;          object V453;
3186          object V429;          object V454;
3187          object V430;          object V455;
3188          base[2]= (V423);          base[2]= (V448);
3189          base[3]= (V424);          base[3]= (V449);
3190          base[4]= VV[86];          base[4]= VV[86];
3191          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
3192          (void) (*Lnk85)();          (void) (*Lnk85)();
3193          if(vs_base>=vs_top){vs_top=sup;goto T825;}          if(vs_base>=vs_top){vs_top=sup;goto T825;}
3194          V425= vs_base[0];          V450= vs_base[0];
3195          vs_base++;          vs_base++;
3196          if(vs_base>=vs_top){vs_top=sup;goto T826;}          if(vs_base>=vs_top){vs_top=sup;goto T826;}
3197          V426= vs_base[0];          V451= vs_base[0];
3198          vs_base++;          vs_base++;
3199          if(vs_base>=vs_top){vs_top=sup;goto T827;}          if(vs_base>=vs_top){vs_top=sup;goto T827;}
3200          V427= vs_base[0];          V452= vs_base[0];
3201          vs_base++;          vs_base++;
3202          if(vs_base>=vs_top){vs_top=sup;goto T828;}          if(vs_base>=vs_top){vs_top=sup;goto T828;}
3203          V428= vs_base[0];          V453= vs_base[0];
3204          vs_base++;          vs_base++;
3205          if(vs_base>=vs_top){vs_top=sup;goto T829;}          if(vs_base>=vs_top){vs_top=sup;goto T829;}
3206          V429= vs_base[0];          V454= vs_base[0];
3207          vs_base++;          vs_base++;
3208          if(vs_base>=vs_top){vs_top=sup;goto T830;}          if(vs_base>=vs_top){vs_top=sup;goto T830;}
3209          V430= vs_base[0];          V455= vs_base[0];
3210          vs_top=sup;          vs_top=sup;
3211          goto T831;          goto T831;
3212          goto T825;          goto T825;
3213  T825:;  T825:;
3214          V425= Cnil;          V450= Cnil;
3215          goto T826;          goto T826;
3216  T826:;  T826:;
3217          V426= Cnil;          V451= Cnil;
3218          goto T827;          goto T827;
3219  T827:;  T827:;
3220          V427= Cnil;          V452= Cnil;
3221          goto T828;          goto T828;
3222  T828:;  T828:;
3223          V428= Cnil;          V453= Cnil;
3224          goto T829;          goto T829;
3225  T829:;  T829:;
3226          V429= Cnil;          V454= Cnil;
3227          goto T830;          goto T830;
3228  T830:;  T830:;
3229          V430= Cnil;          V455= Cnil;
3230          goto T831;          goto T831;
3231  T831:;  T831:;
3232          if(((V426))==Cnil){          if(((V451))==Cnil){
3233          goto T832;}          goto T832;}
3234          {register object x= (V423),V431= (VV[91]->s.s_dbind);          {register object x= (V448),V456= (VV[91]->s.s_dbind);
3235          while(V431!=Cnil)          while(V456!=Cnil)
3236          if(x==(V431->c.c_car)){          if(x==(V456->c.c_car)){
3237          goto T832;          goto T832;
3238          }else V431=V431->c.c_cdr;}          }else V456=V456->c.c_cdr;}
3239          base[2]= make_cons((V423),(VV[91]->s.s_dbind));          base[2]= make_cons((V448),(VV[91]->s.s_dbind));
3240          bds_bind(VV[91],base[2]);          bds_bind(VV[91],base[2]);
3241          if((V428)==Cnil){          if((V453)==Cnil){
3242          goto T839;}          goto T839;}
3243          bds_unwind1;          bds_unwind1;
3244          goto T832;          goto T832;
3245          goto T839;          goto T839;
3246  T839:;  T839:;
3247          if(((V429))==Cnil){          if(((V454))==Cnil){
3248          goto T842;}          goto T842;}
3249          if(((V430))==Cnil){          if(((V455))==Cnil){
3250          goto T842;}          goto T842;}
3251          {object V433;          {object V458;
3252          object V434;          object V459;
3253          object V435;          object V460;
3254          base[3]= (V423);          base[3]= (V448);
3255          base[4]= (V429);          base[4]= (V454);
3256          base[5]= (V427);          base[5]= (V452);
3257          base[6]= (V430);          base[6]= (V455);
3258          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3259          (void) (*Lnk232)();          (void) (*Lnk232)();
3260          if(vs_base>=vs_top){vs_top=sup;goto T851;}          if(vs_base>=vs_top){vs_top=sup;goto T851;}
3261          V433= vs_base[0];          V458= vs_base[0];
3262          vs_base++;          vs_base++;
3263          if(vs_base>=vs_top){vs_top=sup;goto T852;}          if(vs_base>=vs_top){vs_top=sup;goto T852;}
3264          V434= vs_base[0];          V459= vs_base[0];
3265          vs_base++;          vs_base++;
3266          if(vs_base>=vs_top){vs_top=sup;goto T853;}          if(vs_base>=vs_top){vs_top=sup;goto T853;}
3267          V435= vs_base[0];          V460= vs_base[0];
3268          vs_top=sup;          vs_top=sup;
3269          goto T854;          goto T854;
3270          goto T851;          goto T851;
3271  T851:;  T851:;
3272          V433= Cnil;          V458= Cnil;
3273          goto T852;          goto T852;
3274  T852:;  T852:;
3275          V434= Cnil;          V459= Cnil;
3276          goto T853;          goto T853;
3277  T853:;  T853:;
3278          V435= Cnil;          V460= Cnil;
3279          goto T854;          goto T854;
3280  T854:;  T854:;
3281          V436= (VFUN_NARGS=4,(*(LnkLI49))((V423),(V433),(V434),(V435)));          V461= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V458),(V459),(V460)));
3282          bds_unwind1;          bds_unwind1;
3283          goto T832;}          goto T832;}
3284          goto T842;          goto T842;
3285  T842:;  T842:;
3286          if(((*(LnkLI183))((V423)))==Cnil){          if(((*(LnkLI183))((V448)))==Cnil){
3287          goto T856;}          goto T856;}
3288          {object V437;          {object V462;
3289          object V438;          object V463;
3290          object V439;          object V464;
3291          base[3]= (V423);          base[3]= (V448);
3292          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3293          (void) (*Lnk184)();          (void) (*Lnk184)();
3294          if(vs_base>=vs_top){vs_top=sup;goto T860;}          if(vs_base>=vs_top){vs_top=sup;goto T860;}
3295          V437= vs_base[0];          V462= vs_base[0];
3296          vs_base++;          vs_base++;
3297          if(vs_base>=vs_top){vs_top=sup;goto T861;}          if(vs_base>=vs_top){vs_top=sup;goto T861;}
3298          V438= vs_base[0];          V463= vs_base[0];
3299          vs_base++;          vs_base++;
3300          if(vs_base>=vs_top){vs_top=sup;goto T862;}          if(vs_base>=vs_top){vs_top=sup;goto T862;}
3301          V439= vs_base[0];          V464= vs_base[0];
3302          vs_top=sup;          vs_top=sup;
3303          goto T863;          goto T863;
3304          goto T860;          goto T860;
3305  T860:;  T860:;
3306          V437= Cnil;          V462= Cnil;
3307          goto T861;          goto T861;
3308  T861:;  T861:;
3309          V438= Cnil;          V463= Cnil;
3310          goto T862;          goto T862;
3311  T862:;  T862:;
3312          V439= Cnil;          V464= Cnil;
3313          goto T863;          goto T863;
3314  T863:;  T863:;
3315          V440= (VFUN_NARGS=4,(*(LnkLI49))((V423),(V437),(V438),(V439)));          V465= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V462),(V463),(V464)));
3316          bds_unwind1;          bds_unwind1;
3317          goto T832;}          goto T832;}
3318          goto T856;          goto T856;
3319  T856:;  T856:;
3320          {object V441;          {object V466;
3321          object V442;          object V467;
3322          object V443;          object V468;
3323          base[3]= (V423);          base[3]= (V448);
3324          base[5]= (V423);          base[5]= (V448);
3325          base[6]= (V424);          base[6]= (V449);
3326          base[7]= VV[12];          base[7]= VV[12];
3327          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
3328          (void) (*Lnk85)();          (void) (*Lnk85)();
# Line 3306  T856:; Line 3331  T856:;
3331          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3332          (void) (*Lnk193)();          (void) (*Lnk193)();
3333          if(vs_base>=vs_top){vs_top=sup;goto T870;}          if(vs_base>=vs_top){vs_top=sup;goto T870;}
3334          V441= vs_base[0];          V466= vs_base[0];
3335          vs_base++;          vs_base++;
3336          if(vs_base>=vs_top){vs_top=sup;goto T871;}          if(vs_base>=vs_top){vs_top=sup;goto T871;}
3337          V442= vs_base[0];          V467= vs_base[0];
3338          vs_base++;          vs_base++;
3339          if(vs_base>=vs_top){vs_top=sup;goto T872;}          if(vs_base>=vs_top){vs_top=sup;goto T872;}
3340          V443= vs_base[0];          V468= vs_base[0];
3341          vs_top=sup;          vs_top=sup;
3342          goto T873;          goto T873;
3343          goto T870;          goto T870;
3344  T870:;  T870:;
3345          V441= Cnil;          V466= Cnil;
3346          goto T871;          goto T871;
3347  T871:;  T871:;
3348          V442= Cnil;          V467= Cnil;
3349          goto T872;          goto T872;
3350  T872:;  T872:;
3351          V443= Cnil;          V468= Cnil;
3352          goto T873;          goto T873;
3353  T873:;  T873:;
3354          V444= (VFUN_NARGS=4,(*(LnkLI49))((V423),(V441),(V442),(V443)));          V469= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V466),(V467),(V468)));
3355          bds_unwind1;}          bds_unwind1;}
3356          goto T832;          goto T832;
3357  T832:;  T832:;
3358          base[2]= (V425);          base[2]= (V450);
3359          base[3]= (V424);          base[3]= (V449);
3360          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3361          (void) (*Lnk94)();          (void) (*Lnk94)();
3362          return;}          return;}
# Line 3339  T832:; Line 3364  T832:;
3364  }  }
3365  /*      local entry for function MAKE-FINAL-DFUN        */  /*      local entry for function MAKE-FINAL-DFUN        */
3366    
3367  static object LI76(object V445,object first,...)  static object LI76(object V470,object first,...)
3368  {        {      
3369          va_list ap;          va_list ap;
3370          int narg = VFUN_NARGS; VMB74 VMS74 VMV74          int narg = VFUN_NARGS; VMB74 VMS74 VMV74
3371          {object V446;          {object V471;
3372          object V447;          object V472;
3373          va_start(ap,first);          va_start(ap,first);
3374          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
3375          V446= V445;          V471= V470;
3376          narg = narg - 1;          narg = narg - 1;
3377          if (narg <= 0) goto T876;          if (narg <= 0) goto T876;
3378          else {          else {
3379          V447= first;}          V472= first;}
3380          --narg; goto T877;          --narg; goto T877;
3381          goto T876;          goto T876;
3382  T876:;  T876:;
3383          V447= Cnil;          V472= Cnil;
3384          goto T877;          goto T877;
3385  T877:;  T877:;
3386          {object V448;          {object V473;
3387          object V449;          object V474;
3388          object V450;          object V475;
3389          base[0]= (V446);          base[0]= (V471);
3390          base[1]= (V447);          base[1]= (V472);
3391          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3392          (void) (*Lnk226)();          (void) (*Lnk226)();
3393          if(vs_base>=vs_top){vs_top=sup;goto T882;}          if(vs_base>=vs_top){vs_top=sup;goto T882;}
3394          V448= vs_base[0];          V473= vs_base[0];
3395          vs_base++;          vs_base++;
3396          if(vs_base>=vs_top){vs_top=sup;goto T883;}          if(vs_base>=vs_top){vs_top=sup;goto T883;}
3397          V449= vs_base[0];          V474= vs_base[0];
3398          vs_base++;          vs_base++;
3399          if(vs_base>=vs_top){vs_top=sup;goto T884;}          if(vs_base>=vs_top){vs_top=sup;goto T884;}
3400          V450= vs_base[0];          V475= vs_base[0];
3401          vs_top=sup;          vs_top=sup;
3402          goto T885;          goto T885;
3403          goto T882;          goto T882;
3404  T882:;  T882:;
3405          V448= Cnil;          V473= Cnil;
3406          goto T883;          goto T883;
3407  T883:;  T883:;
3408          V449= Cnil;          V474= Cnil;
3409          goto T884;          goto T884;
3410  T884:;  T884:;
3411          V450= Cnil;          V475= Cnil;
3412          goto T885;          goto T885;
3413  T885:;  T885:;
3414          {object V451 = (VFUN_NARGS=4,(*(LnkLI230))((V446),(V448),(V449),(V450)));          {object V476 = (VFUN_NARGS=4,(*(LnkLI230))((V471),(V473),(V474),(V475)));
3415          VMR74(V451)}}          VMR74(V476)}}
3416          va_end(ap);          va_end(ap);
3417          base[0]=base[0];          base[0]=base[0];
3418          return Cnil;}          return Cnil;}
# Line 3400  static void L77() Line 3425  static void L77()
3425          vs_check;          vs_check;
3426          check_arg(2);          check_arg(2);
3427          vs_top=sup;          vs_top=sup;
3428          {object V452=base[0]->c.c_cdr;          {object V477=base[0]->c.c_cdr;
3429          if(endp(V452))invalid_macro_call();          if(endp(V477))invalid_macro_call();
3430          {object V453= (V452->c.c_car);          {object V478= (V477->c.c_car);
3431          if(endp(V453))invalid_macro_call();          if(endp(V478))invalid_macro_call();
3432          base[2]= (V453->c.c_car);          base[2]= (V478->c.c_car);
3433          V453=V453->c.c_cdr;          V478=V478->c.c_cdr;
3434          if(endp(V453))invalid_macro_call();          if(endp(V478))invalid_macro_call();
3435          base[3]= (V453->c.c_car);          base[3]= (V478->c.c_car);
3436          V453=V453->c.c_cdr;          V478=V478->c.c_cdr;
3437          if(!endp(V453))invalid_macro_call();}          if(!endp(V478))invalid_macro_call();}
3438          V452=V452->c.c_cdr;          V477=V477->c.c_cdr;
3439          base[4]= V452;}          base[4]= V477;}
3440          V454= list(2,VV[106],list(3,VV[107],list(2,VV[25],base[3]),VV[108]));          V479= list(2,VV[106],list(3,VV[107],list(2,VV[25],base[3]),VV[108]));
3441          V455= list(2,/* INLINE-ARGS */V454,list(2,base[2],list(4,VV[109],VV[110],VV[111],list(3,VV[112],VV[113],list(2,VV[25],base[3])))));          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])))));
3442          V456= make_cons(VV[21],base[4]);          V481= make_cons(VV[21],base[4]);
3443          V457= list(2,VV[115],base[2]);          V482= list(2,VV[115],base[2]);
3444          base[5]= list(3,VV[105],/* INLINE-ARGS */V455,list(4,VV[114],/* INLINE-ARGS */V456,/* INLINE-ARGS */V457,list(3,VV[116],base[2],VV[117])));          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])));
3445          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3446          return;          return;
3447  }  }
# Line 3428  static void L78() Line 3453  static void L78()
3453          vs_check;          vs_check;
3454          check_arg(2);          check_arg(2);
3455          vs_top=sup;          vs_top=sup;
3456          {object V458=base[0]->c.c_cdr;          {object V483=base[0]->c.c_cdr;
3457          if(endp(V458))invalid_macro_call();          if(endp(V483))invalid_macro_call();
3458          {object V459= (V458->c.c_car);          {object V484= (V483->c.c_car);
3459          if(endp(V459))invalid_macro_call();          if(endp(V484))invalid_macro_call();
3460          base[2]= (V459->c.c_car);          base[2]= (V484->c.c_car);
3461          V459=V459->c.c_cdr;          V484=V484->c.c_cdr;
3462          if(!endp(V459))invalid_macro_call();}          if(!endp(V484))invalid_macro_call();}
3463          V458=V458->c.c_cdr;          V483=V483->c.c_cdr;
3464          base[3]= V458;}          base[3]= V483;}
3465          base[4]= listA(3,VV[118],list(2,base[2],VV[119]),base[3]);          base[4]= listA(3,VV[118],list(2,base[2],VV[119]),base[3]);
3466          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3467          return;          return;
3468  }  }
3469  /*      local entry for function FINAL-ACCESSOR-DFUN-TYPE       */  /*      local entry for function FINAL-ACCESSOR-DFUN-TYPE       */
3470    
3471  static object LI79(V461)  static object LI79(V486)
3472    
3473  register object V461;  register object V486;
3474  {        VMB77 VMS77 VMV77  {        VMB77 VMS77 VMV77
3475          goto TTL;          goto TTL;
3476  TTL:;  TTL:;
3477          {object V462;          {object V487;
3478          if(((*(LnkLI196))((V461)))==Cnil){          if(((*(LnkLI196))((V486)))==Cnil){
3479          goto T888;}          goto T888;}
3480          if(type_of(V461)==t_structure){          if(type_of(V486)==t_structure){
3481          goto T894;}          goto T894;}
3482          goto T892;          goto T892;
3483          goto T894;          goto T894;
3484  T894:;  T894:;
3485          if(!(((V461)->str.str_def)==(VV[120]))){          if(!(((V486)->str.str_def)==(VV[120]))){
3486          goto T892;}          goto T892;}
3487          V463= STREF(object,(V461),4);          V488= STREF(object,(V486),4);
3488          goto T890;          goto T890;
3489          goto T892;          goto T892;
3490  T892:;{object V465;  T892:;{object V490;
3491          V465= (VV[65]->s.s_dbind);          V490= (VV[65]->s.s_dbind);
3492          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
3493          base[1]= (V461);          base[1]= (V486);
3494          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3495          (void) (*Lnk197)();          (void) (*Lnk197)();
3496          vs_top=sup;          vs_top=sup;
3497          V466= vs_base[0];          V491= vs_base[0];
3498          if(!((V465)==(CMPcar(V466)))){          if(!((V490)==(CMPcar(V491)))){
3499          goto T897;}}          goto T897;}}
3500          V463= CMPcar(((V461))->cc.cc_turbo[12]);          V488= CMPcar(((V486))->cc.cc_turbo[12]);
3501          goto T890;          goto T890;
3502          goto T897;          goto T897;
3503  T897:;  T897:;
# Line 3480  T897:; Line 3505  T897:;
3505          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3506          Lerror();          Lerror();
3507          vs_top=sup;          vs_top=sup;
3508          V463= vs_base[0];          V488= vs_base[0];
3509          goto T890;          goto T890;
3510  T890:;  T890:;
3511          V462= (V463)->v.v_self[fix((VV[67]->s.s_dbind))];          V492 = (VV[67]->s.s_dbind);
3512            V487= (V488)->v.v_self[fix(V492)];
3513          goto T886;          goto T886;
3514          goto T888;          goto T888;
3515  T888:;  T888:;
3516          base[0]= (V461);          base[0]= (V486);
3517          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3518          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
3519          vs_top=sup;          vs_top=sup;
3520          V462= vs_base[0];          V487= vs_base[0];
3521          goto T886;          goto T886;
3522  T886:;  T886:;
3523          base[0]= VV[233];          base[0]= VV[233];
3524          base[1]= (V462);          base[1]= (V487);
3525          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3526          (void) (*Lnk188)();          (void) (*Lnk188)();
3527          vs_top=sup;          vs_top=sup;
3528          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3529          goto T905;}          goto T905;}
3530          {object V467 = VV[51];          {object V493 = VV[51];
3531          VMR77(V467)}          VMR77(V493)}
3532          goto T905;          goto T905;
3533  T905:;  T905:;
3534          base[0]= VV[234];          base[0]= VV[234];
3535          base[1]= (V462);          base[1]= (V487);
3536          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3537          (void) (*Lnk188)();          (void) (*Lnk188)();
3538          vs_top=sup;          vs_top=sup;
3539          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3540          goto T910;}          goto T910;}
3541          {object V468 = VV[123];          {object V494 = VV[123];
3542          VMR77(V468)}          VMR77(V494)}
3543          goto T910;          goto T910;
3544  T910:;  T910:;
3545          {object V469 = Cnil;          {object V495 = Cnil;
3546          VMR77(V469)}}          VMR77(V495)}}
3547          base[0]=base[0];          base[0]=base[0];
3548          return Cnil;          return Cnil;
3549  }  }
# Line 3527  static void L80() Line 3553  static void L80()
3553  {register object *base=vs_base;  {register object *base=vs_base;
3554          register object *sup=base+VM78; VC78          register object *sup=base+VM78; VC78
3555          vs_check;          vs_check;
3556          {register object V470;          {register object V496;
3557          register object V471;          register object V497;
3558          object V472;          object V498;
3559          object V473;          object V499;
3560          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
3561          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
3562          V470=(base[0]);          V496=(base[0]);
3563          V471=(base[1]);          V497=(base[1]);
3564          vs_base=vs_base+2;          vs_base=vs_base+2;
3565          if(vs_base>=vs_top){vs_top=sup;goto T914;}          if(vs_base>=vs_top){vs_top=sup;goto T914;}
3566          V472=(base[2]);          V498=(base[2]);
3567          vs_base++;          vs_base++;
3568          if(vs_base>=vs_top){vs_top=sup;goto T915;}          if(vs_base>=vs_top){vs_top=sup;goto T915;}
3569          V473=(base[3]);          V499=(base[3]);
3570          vs_top=sup;          vs_top=sup;
3571          goto T916;          goto T916;
3572          goto T914;          goto T914;
3573  T914:;  T914:;
3574          V472= Cnil;          V498= Cnil;
3575          goto T915;          goto T915;
3576  T915:;  T915:;
3577          V473= Cnil;          V499= Cnil;
3578          goto T916;          goto T916;
3579  T916:;  T916:;
3580          {object V474;          {object V500;
3581          object V475;          object V501;
3582          {register object x= VV[119],V476= (VV[108]->s.s_dbind);          {register object x= VV[119],V502= (VV[108]->s.s_dbind);
3583          while(V476!=Cnil)          while(V502!=Cnil)
3584          if(eql(x,V476->c.c_car->c.c_car) &&V476->c.c_car != Cnil){          if(eql(x,V502->c.c_car->c.c_car) &&V502->c.c_car != Cnil){
3585          V474= (V476->c.c_car);          V500= (V502->c.c_car);
3586          goto T919;          goto T919;
3587          }else V476=V476->c.c_cdr;          }else V502=V502->c.c_cdr;
3588          V474= Cnil;}          V500= Cnil;}
3589          goto T919;          goto T919;
3590  T919:;  T919:;
3591          if((CMPcdr((V474)))==Cnil){          if((CMPcdr((V500)))==Cnil){
3592          goto T922;}          goto T922;}
3593          {object V478;          {object V504;
3594          V478= CMPcdr(CMPcdr(V474));          V504= CMPcdr(CMPcdr(V500));
3595          {object V479;          {object V505;
3596          V479= CMPcar(CMPcdr(V474));          V505= CMPcar(CMPcdr(V500));
3597          (V474)->c.c_cdr = (V478);          (V500)->c.c_cdr = (V504);
3598          V475= (V479);          V501= (V505);
3599          goto T920;}}          goto T920;}}
3600          goto T922;          goto T922;
3601  T922:;  T922:;
# Line 3578  T922:; Line 3604  T922:;
3604          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
3605          Lmake_hash_table();          Lmake_hash_table();
3606          vs_top=sup;          vs_top=sup;
3607          V475= vs_base[0];          V501= vs_base[0];
3608          goto T920;          goto T920;
3609  T920:;  T920:;
3610          {object V482;          {object V508;
3611          register object V483;          register object V509;
3612          object V484;          object V510;
3613          object V485;          object V511;
3614          object V486;          object V512;
3615          object V487;          object V513;
3616          base[6]= (V470);          base[6]= (V496);
3617          base[7]= (V471);          base[7]= (V497);
3618          base[8]= (V475);          base[8]= (V501);
3619          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3620          (void) (*Lnk235)();          (void) (*Lnk235)();
3621          if(vs_base>=vs_top){vs_top=sup;goto T935;}          if(vs_base>=vs_top){vs_top=sup;goto T935;}
3622          V482= vs_base[0];          V508= vs_base[0];
3623          vs_base++;          vs_base++;
3624          if(vs_base>=vs_top){vs_top=sup;goto T936;}          if(vs_base>=vs_top){vs_top=sup;goto T936;}
3625          V483= vs_base[0];          V509= vs_base[0];
3626          vs_base++;          vs_base++;
3627          if(vs_base>=vs_top){vs_top=sup;goto T937;}          if(vs_base>=vs_top){vs_top=sup;goto T937;}
3628          V484= vs_base[0];          V510= vs_base[0];
3629          vs_base++;          vs_base++;
3630          if(vs_base>=vs_top){vs_top=sup;goto T938;}          if(vs_base>=vs_top){vs_top=sup;goto T938;}
3631          V485= vs_base[0];          V511= vs_base[0];
3632          vs_base++;          vs_base++;
3633          if(vs_base>=vs_top){vs_top=sup;goto T939;}          if(vs_base>=vs_top){vs_top=sup;goto T939;}
3634          V486= vs_base[0];          V512= vs_base[0];
3635          vs_base++;          vs_base++;
3636          if(vs_base>=vs_top){vs_top=sup;goto T940;}          if(vs_base>=vs_top){vs_top=sup;goto T940;}
3637          V487= vs_base[0];          V513= vs_base[0];
3638          vs_top=sup;          vs_top=sup;
3639          goto T941;          goto T941;
3640          goto T935;          goto T935;
3641  T935:;  T935:;
3642          V482= Cnil;          V508= Cnil;
3643          goto T936;          goto T936;
3644  T936:;  T936:;
3645          V483= Cnil;          V509= Cnil;
3646          goto T937;          goto T937;
3647  T937:;  T937:;
3648          V484= Cnil;          V510= Cnil;
3649          goto T938;          goto T938;
3650  T938:;  T938:;
3651          V485= Cnil;          V511= Cnil;
3652          goto T939;          goto T939;
3653  T939:;  T939:;
3654          V486= Cnil;          V512= Cnil;
3655          goto T940;          goto T940;
3656  T940:;  T940:;
3657          V487= Cnil;          V513= Cnil;
3658          goto T941;          goto T941;
3659  T941:;  T941:;
3660          if(((V482))==Cnil){          if(((V508))==Cnil){
3661          goto T943;}          goto T943;}
3662          if(!(number_compare((V486),small_fixnum(1))==0)){          if(!(number_compare((V512),small_fixnum(1))==0)){
3663          goto T946;}          goto T946;}
3664          {object V488;          {object V514;
3665          base[6]= (V484);          base[6]= (V510);
3666          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3667          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
3668          vs_top=sup;          vs_top=sup;
3669          V488= vs_base[0];          V514= vs_base[0];
3670          base[6]= (V470);          base[6]= (V496);
3671          base[7]= (V471);          base[7]= (V497);
3672          base[8]= (V488);          base[8]= (V514);
3673          base[9]= (V483);          base[9]= (V509);
3674          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
3675          (void) (*Lnk232)();          (void) (*Lnk232)();
3676          goto T930;}          goto T930;}
3677          goto T946;          goto T946;
3678  T946:;  T946:;
3679          if(!(number_compare((V486),small_fixnum(2))==0)){          if(!(number_compare((V512),small_fixnum(2))==0)){
3680          goto T955;}          goto T955;}
3681          if(type_of((V483))==t_fixnum||type_of((V483))==t_bignum){          if(type_of((V509))==t_fixnum||type_of((V509))==t_bignum){
3682          goto T954;}          goto T954;}
3683          if(!(type_of((V483))==t_cons)){          if(!(type_of((V509))==t_cons)){
3684          goto T955;}          goto T955;}
3685          goto T954;          goto T954;
3686  T954:;  T954:;
3687          {object V489;          {object V515;
3688          object V490;          object V516;
3689          base[6]= (V484);          base[6]= (V510);
3690          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3691          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
3692          vs_top=sup;          vs_top=sup;
3693          V489= vs_base[0];          V515= vs_base[0];
3694          base[6]= (V485);          base[6]= (V511);
3695          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3696          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
3697          vs_top=sup;          vs_top=sup;
3698          V490= vs_base[0];          V516= vs_base[0];
3699          base[6]= (V470);          base[6]= (V496);
3700          base[7]= (V471);          base[7]= (V497);
3701          base[8]= (V489);          base[8]= (V515);
3702          base[9]= (V490);          base[9]= (V516);
3703          base[10]= (V483);          base[10]= (V509);
3704          vs_top=(vs_base=base+6)+5;          vs_top=(vs_base=base+6)+5;
3705          (void) (*Lnk237)();          (void) (*Lnk237)();
3706          goto T930;}          goto T930;}
3707          goto T955;          goto T955;
3708  T955:;  T955:;
3709          if(type_of((V483))==t_fixnum||type_of((V483))==t_bignum){          if(type_of((V509))==t_fixnum||type_of((V509))==t_bignum){
3710          goto T970;}          goto T970;}
3711          if(!(type_of((V483))==t_cons)){          if(!(type_of((V509))==t_cons)){
3712          goto T971;}          goto T971;}
3713          goto T970;          goto T970;
3714  T970:;  T970:;
3715          base[6]= (V470);          base[6]= (V496);
3716          base[7]= (V471);          base[7]= (V497);
3717          base[8]= (V483);          base[8]= (V509);
3718          base[9]= (V482);          base[9]= (V508);
3719          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
3720          (void) (*Lnk238)();          (void) (*Lnk238)();
3721          goto T930;          goto T930;
3722          goto T971;          goto T971;
3723  T971:;  T971:;
3724          if(((V487))==Cnil){          if(((V513))==Cnil){
3725          goto T980;}          goto T980;}
3726          base[6]= (V470);          base[6]= (V496);
3727          base[7]= (V471);          base[7]= (V497);
3728          base[8]= (V482);          base[8]= (V508);
3729          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3730          (void) (*Lnk239)();          (void) (*Lnk239)();
3731          goto T930;          goto T930;
3732          goto T980;          goto T980;
3733  T980:;  T980:;
3734          base[6]= (V470);          base[6]= (V496);
3735          base[7]= (V472);          base[7]= (V498);
3736          base[8]= (V473);          base[8]= (V499);
3737          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3738          (void) (*Lnk240)();          (void) (*Lnk240)();
3739          goto T930;          goto T930;
3740          goto T943;          goto T943;
3741  T943:;  T943:;
3742          base[6]= (V470);          base[6]= (V496);
3743          base[7]= (V472);          base[7]= (V498);
3744          base[8]= (V473);          base[8]= (V499);
3745          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3746          (void) (*Lnk240)();}          (void) (*Lnk240)();}
3747          goto T930;          goto T930;
3748  T930:;  T930:;
3749          {object *V481=vs_top;object *V480=vs_base; vs_base=V481;          {object *V507=vs_top;object *V506=vs_base; vs_base=V507;
3750          {register object *base0=base;          {register object *base0=base;
3751          {register object *base=V481;          {register object *base=V507;
3752          register object *sup=vs_base+VM79;          register object *sup=vs_base+VM79;
3753          base0[0]=base0[0];          base0[0]=base0[0];
3754          base[0]=base[0];          base[0]=base[0];
3755          vs_check;          vs_check;
3756          vs_top=sup;          vs_top=sup;
3757          base[0]= (V475);          base[0]= (V501);
3758          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3759          Lclrhash();          Lclrhash();
3760          vs_top=sup;          vs_top=sup;
3761          }}          }}
3762          {register object *base0=base;          {register object *base0=base;
3763          {register object *base=V481;          {register object *base=V507;
3764          register object *sup=vs_base+VM80;          register object *sup=vs_base+VM80;
3765          base0[0]=base0[0];          base0[0]=base0[0];
3766          base[0]=base[0];          base[0]=base[0];
3767          vs_check;          vs_check;
3768          vs_top=sup;          vs_top=sup;
3769          {object V493;          {object V519;
3770          V493= make_cons(V475,CMPcdr(V474));          V519= make_cons(V501,CMPcdr(V500));
3771          (V474)->c.c_cdr = (V493);}          (V500)->c.c_cdr = (V519);}
3772          }}          }}
3773          vs_base=V480;vs_top=V481;}          vs_base=V506;vs_top=V507;}
3774          return;}          return;}
3775          }          }
3776  }  }
# Line 3755  static void L81() Line 3781  static void L81()
3781          register object *sup=base+VM81; VC81          register object *sup=base+VM81; VC81
3782          vs_check;          vs_check;
3783          bds_check;          bds_check;
3784          {register object V494;          {register object V520;
3785          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
3786          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
3787          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
3788          vs_base=vs_base+1;          vs_base=vs_base+1;
3789          if(vs_base>=vs_top){vs_top=sup;goto T996;}          if(vs_base>=vs_top){vs_top=sup;goto T996;}
3790          V494=(base[1]);          V520=(base[1]);
3791          vs_top=sup;          vs_top=sup;
3792          goto T997;          goto T997;
3793          goto T996;          goto T996;
3794  T996:;  T996:;
3795          V494= Cnil;          V520= Cnil;
3796          goto T997;          goto T997;
3797  T997:;  T997:;
3798          {register object V495;          {register object V521;
3799          object V496;          object V522;
3800          register object V497;          register object V523;
3801          object V498;          object V524;
3802          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3803          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3804          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
3805          vs_top=sup;          vs_top=sup;
3806          V495= vs_base[0];          V521= vs_base[0];
3807          V496= Cnil;          V522= Cnil;
3808          V497= (VV[124]->s.s_dbind);          V523= (VV[124]->s.s_dbind);
3809          bds_bind(VV[124],Cnil);          bds_bind(VV[124],Cnil);
3810          base[3]=MMcons(Cnil,base[0]);          base[3]=MMcons(Cnil,base[0]);
3811          V498= Cnil;          V524= Cnil;
3812          if(((V495))!=Cnil){          if(((V521))!=Cnil){
3813          goto T1002;}          goto T1002;}
3814          base[4]=          base[4]=
3815          make_cclosure_new(LC158,Cnil,base[3],Cdata);          make_cclosure_new(LC158,Cnil,base[3],Cdata);
# Line 3794  T997:; Line 3820  T997:;
3820          return;          return;
3821          goto T1002;          goto T1002;
3822  T1002:;  T1002:;
3823          V496= (*(LnkLI227))((base[0]->c.c_car));          V522= (*(LnkLI227))((base[0]->c.c_car));
3824          if(((V496))==Cnil){          if(((V522))==Cnil){
3825          goto T1008;}          goto T1008;}
3826          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3827          base[5]= (V496);          base[5]= (V522);
3828          base[6]= (V494);          base[6]= (V520);
3829          base[7]= (V497);          base[7]= (V523);
3830          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
3831          (void) (*Lnk229)();          (void) (*Lnk229)();
3832          bds_unwind1;          bds_unwind1;
# Line 3809  T1002:; Line 3835  T1002:;
3835  T1008:;  T1008:;
3836          base[4]=          base[4]=
3837          make_cclosure_new(LC159,Cnil,base[3],Cdata);          make_cclosure_new(LC159,Cnil,base[3],Cdata);
3838          base[6]= CMPcar((V495));          base[6]= CMPcar((V521));
3839          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3840          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk242)(Lclptr242);
3841          vs_top=sup;          vs_top=sup;
# Line 3822  T1008:; Line 3848  T1008:;
3848          goto T1017;}          goto T1017;}
3849          base[4]=          base[4]=
3850          make_cclosure_new(LC160,Cnil,base[3],Cdata);          make_cclosure_new(LC160,Cnil,base[3],Cdata);
3851          base[5]= (V495);          base[5]= (V521);
3852          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3853          (void) (*Lnk188)();          (void) (*Lnk188)();
3854          vs_top=sup;          vs_top=sup;
3855          V498= vs_base[0];          V524= vs_base[0];
3856          if(((V498))!=Cnil){          if(((V524))!=Cnil){
3857          goto T1016;}          goto T1016;}
3858          goto T1017;          goto T1017;
3859  T1017:;  T1017:;
3860          if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){
3861          goto T1016;}          goto T1016;}
3862          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3863          base[5]= (V494);          base[5]= (V520);
3864          base[6]= (V497);          base[6]= (V523);
3865          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3866          (void) (*Lnk243)();          (void) (*Lnk243)();
3867          bds_unwind1;          bds_unwind1;
# Line 3851  T1016:; Line 3877  T1016:;
3877          return;          return;
3878          goto T1033;          goto T1033;
3879  T1033:;  T1033:;
3880          if(((V498))==Cnil){          if(((V524))==Cnil){
3881          goto T1037;}          goto T1037;}
3882          if(((*(LnkLI183))((base[0]->c.c_car)))!=Cnil){          if(((*(LnkLI183))((base[0]->c.c_car)))!=Cnil){
3883          goto T1037;}          goto T1037;}
3884          {object V499;          {object V525;
3885          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3886          base[5]= (V495);          base[5]= (V521);
3887          base[6]= Cnil;          base[6]= Cnil;
3888          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3889          (void) (*Lnk245)();          (void) (*Lnk245)();
3890          vs_top=sup;          vs_top=sup;
3891          V499= vs_base[0];          V525= vs_base[0];
3892          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3893          base[5]= (V499);          base[5]= (V525);
3894          base[6]= (V494);          base[6]= (V520);
3895          base[7]= (V497);          base[7]= (V523);
3896          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
3897          (void) (*Lnk246)();          (void) (*Lnk246)();
3898          bds_unwind1;          bds_unwind1;
# Line 3874  T1033:; Line 3900  T1033:;
3900          goto T1037;          goto T1037;
3901  T1037:;  T1037:;
3902          base[4]= (base[0]->c.c_car);          base[4]= (base[0]->c.c_car);
3903          base[5]= (V494);          base[5]= (V520);
3904          base[6]= (V497);          base[6]= (V523);
3905          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
3906          (void) (*Lnk240)();          (void) (*Lnk240)();
3907          bds_unwind1;          bds_unwind1;
# Line 3889  static void L82() Line 3915  static void L82()
3915          register object *sup=base+VM82; VC82          register object *sup=base+VM82; VC82
3916          vs_check;          vs_check;
3917          bds_check;          bds_check;
3918          {object V500;          {object V526;
3919          register object V501;          register object V527;
3920          register object V502;          register object V528;
3921          check_arg(4);          check_arg(4);
3922          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
3923          V500=(base[1]);          V526=(base[1]);
3924          V501=(base[2]);          V527=(base[2]);
3925          V502=(base[3]);          V528=(base[3]);
3926          vs_top=sup;          vs_top=sup;
3927          {object V503;          {object V529;
3928          object V504;          object V530;
3929          register object V505;          register object V531;
3930          register object V506;          register object V532;
3931          object V507;          object V533;
3932          object V508;          object V534;
3933          base[8]= (V502);          base[8]= (V528);
3934          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3935          Ltype_of();          Ltype_of();
3936          vs_top=sup;          vs_top=sup;
3937          V503= vs_base[0];          V529= vs_base[0];
3938          V504= STREF(object,(V502),4);          V530= STREF(object,(V528),4);
3939          V505= Cnil;          V531= Cnil;
3940          V506= Cnil;          V532= Cnil;
3941          V507= Cnil;          V533= Cnil;
3942          base[6]= Cnil;          base[6]= Cnil;
3943          {object V509= (V504);          {object V535= (V530);
3944          if((V509!= VV[51]))goto T1059;          if((V535!= VV[51]))goto T1059;
3945          V508= make_cons((V501),Cnil);          V534= make_cons((V527),Cnil);
3946          goto T1058;          goto T1058;
3947          goto T1059;          goto T1059;
3948  T1059:;  T1059:;
3949          if((V509!= VV[123]))goto T1060;          if((V535!= VV[123]))goto T1060;
3950          V508= list(2,(V500),(V501));          V534= list(2,(V526),(V527));
3951          goto T1058;          goto T1058;
3952          goto T1060;          goto T1060;
3953  T1060:;  T1060:;
3954          FEerror("The ECASE key value ~s is illegal.",1,V509);          FEerror("The ECASE key value ~s is illegal.",1,V535);
3955          V508= Cnil;          V534= Cnil;
3956          goto T1058;}          goto T1058;}
3957          goto T1058;          goto T1058;
3958  T1058:;  T1058:;
3959          {object V510;          {object V536;
3960          object V511;          object V537;
3961          base[12]= (base[0]->c.c_car);          base[12]= (base[0]->c.c_car);
3962          base[13]= (V508);          base[13]= (V534);
3963          base[14]= VV[86];          base[14]= VV[86];
3964          vs_top=(vs_base=base+12)+3;          vs_top=(vs_base=base+12)+3;
3965          (void) (*Lnk85)();          (void) (*Lnk85)();
# Line 3941  T1058:; Line 3967  T1058:;
3967          base[8]=MMcons(vs_base[0],base[0]);          base[8]=MMcons(vs_base[0],base[0]);
3968          vs_base++;          vs_base++;
3969          if(vs_base>=vs_top){vs_top=sup;goto T1066;}          if(vs_base>=vs_top){vs_top=sup;goto T1066;}
3970          V510= vs_base[0];          V536= vs_base[0];
3971          vs_base++;          vs_base++;
3972          if(vs_base>=vs_top){vs_top=sup;goto T1067;}          if(vs_base>=vs_top){vs_top=sup;goto T1067;}
3973          base[9]= vs_base[0];          base[9]= vs_base[0];
3974          vs_base++;          vs_base++;
3975          if(vs_base>=vs_top){vs_top=sup;goto T1068;}          if(vs_base>=vs_top){vs_top=sup;goto T1068;}
3976          V511= vs_base[0];          V537= vs_base[0];
3977          vs_base++;          vs_base++;
3978          if(vs_base>=vs_top){vs_top=sup;goto T1069;}          if(vs_base>=vs_top){vs_top=sup;goto T1069;}
3979          base[10]=MMcons(vs_base[0],base[8]);          base[10]=MMcons(vs_base[0],base[8]);
# Line 3961  T1065:; Line 3987  T1065:;
3987          base[8]=MMcons(Cnil,base[0]);          base[8]=MMcons(Cnil,base[0]);
3988          goto T1066;          goto T1066;
3989  T1066:;  T1066:;
3990          V510= Cnil;          V536= Cnil;
3991          goto T1067;          goto T1067;
3992  T1067:;  T1067:;
3993          base[9]= Cnil;          base[9]= Cnil;
3994          goto T1068;          goto T1068;
3995  T1068:;  T1068:;
3996          V511= Cnil;          V537= Cnil;
3997          goto T1069;          goto T1069;
3998  T1069:;  T1069:;
3999          base[10]=MMcons(Cnil,base[8]);          base[10]=MMcons(Cnil,base[8]);
# Line 3976  T1070:; Line 4002  T1070:;
4002          base[11]=MMcons(Cnil,base[10]);          base[11]=MMcons(Cnil,base[10]);
4003          goto T1071;          goto T1071;
4004  T1071:;  T1071:;
4005          if(((V510))==Cnil){          if(((V536))==Cnil){
4006          goto T1072;}          goto T1072;}
4007          {register object x= (base[0]->c.c_car),V512= (VV[91]->s.s_dbind);          {register object x= (base[0]->c.c_car),V538= (VV[91]->s.s_dbind);
4008          while(V512!=Cnil)          while(V538!=Cnil)
4009          if(x==(V512->c.c_car)){          if(x==(V538->c.c_car)){
4010          goto T1072;          goto T1072;
4011          }else V512=V512->c.c_cdr;}          }else V538=V538->c.c_cdr;}
4012          base[12]= make_cons((base[0]->c.c_car),(VV[91]->s.s_dbind));          base[12]= make_cons((base[0]->c.c_car),(VV[91]->s.s_dbind));
4013          bds_bind(VV[91],base[12]);          bds_bind(VV[91],base[12]);
4014          base[13]=make_cclosure_new(LC84,Cnil,base[11],Cdata);          base[13]=make_cclosure_new(LC84,Cnil,base[11],Cdata);
# Line 3998  T1071:; Line 4024  T1071:;
4024          goto T1072;          goto T1072;
4025          goto T1079;          goto T1079;
4026  T1079:;  T1079:;
4027          {object V513;          {object V539;
4028          if((V511)!=Cnil){          if((V537)!=Cnil){
4029          V513= (V511);          V539= (V537);
4030          goto T1081;}          goto T1081;}
4031          V513= (((base[11]->c.c_car))==Cnil?Ct:Cnil);          V539= (((base[11]->c.c_car))==Cnil?Ct:Cnil);
4032          goto T1081;          goto T1081;
4033  T1081:;  T1081:;
4034          if(((V513))==Cnil){          if(((V539))==Cnil){
4035          goto T1083;}          goto T1083;}
4036          bds_unwind1;          bds_unwind1;
4037          goto T1072;          goto T1072;
4038          goto T1083;          goto T1083;
4039  T1083:;  T1083:;
4040          if(type_of(V501)==t_structure){          if(type_of(V527)==t_structure){
4041          goto T1089;}          goto T1089;}
4042          goto T1088;          goto T1088;
4043          goto T1089;          goto T1089;
4044  T1089:;  T1089:;
4045          if(((V501)->str.str_def)==(VV[126])){          if(((V527)->str.str_def)==(VV[126])){
4046          goto T1086;}          goto T1086;}
4047          goto T1088;          goto T1088;
4048  T1088:;{object V515;  T1088:;{object V541;
4049          V515= (VV[65]->s.s_dbind);          V541= (VV[65]->s.s_dbind);
4050          base[15]= small_fixnum(14);          base[15]= small_fixnum(14);
4051          base[16]= (V501);          base[16]= (V527);
4052          vs_top=(vs_base=base+15)+2;          vs_top=(vs_base=base+15)+2;
4053          (void) (*Lnk197)();          (void) (*Lnk197)();
4054          vs_top=sup;          vs_top=sup;
4055          V516= vs_base[0];          V542= vs_base[0];
4056          if((V515)==(CMPcar(V516))){          if((V541)==(CMPcar(V542))){
4057          goto T1086;}}          goto T1086;}}
4058          vs_base=vs_top;          vs_base=vs_top;
4059          L86(base);          L86(base);
# Line 4036  T1088:;{object V515; Line 4062  T1088:;{object V515;
4062          goto T1072;          goto T1072;
4063          goto T1086;          goto T1086;
4064  T1086:;  T1086:;
4065          if(((((base[10]->c.c_car))==((V504))?Ct:Cnil))==Cnil){          if(((((base[10]->c.c_car))==((V530))?Ct:Cnil))==Cnil){
4066          goto T1095;}          goto T1095;}
4067          if(!(type_of(base[9])==t_cons||(base[9])==Cnil)){          if(!(type_of(base[9])==t_cons||(base[9])==Cnil)){
4068          goto T1096;}          goto T1096;}
# Line 4049  T1095:; Line 4075  T1095:;
4075          goto T1072;          goto T1072;
4076          goto T1096;          goto T1096;
4077  T1096:;  T1096:;
4078          {object V517= (V503);          {object V543= (V529);
4079          if((V517!= VV[40]))goto T1100;          if((V543!= VV[40]))goto T1100;
4080          V505= STREF(object,(V502),8);          V531= STREF(object,(V528),8);
4081          V506= STREF(object,(V502),12);          V532= STREF(object,(V528),12);
4082          if(((V506))==(base[9])){          if(((V532))==(base[9])){
4083          bds_unwind1;          bds_unwind1;
4084          goto T1072;}          goto T1072;}
4085          if(!(eql((base[11]->c.c_car),(V505)))){          if(!(eql((base[11]->c.c_car),(V531)))){
4086          goto T1108;}          goto T1108;}
4087          base[15]= (base[11]->c.c_car);          base[15]= (base[11]->c.c_car);
4088          base[16]= (V506);          base[16]= (V532);
4089          base[17]= base[9];          base[17]= base[9];
4090          vs_top=(vs_base=base+15)+3;          vs_top=(vs_base=base+15)+3;
4091          L83(base);          L83(base);
# Line 4075  T1108:; Line 4101  T1108:;
4101          goto T1072;          goto T1072;
4102          goto T1100;          goto T1100;
4103  T1100:;  T1100:;
4104          if((V517!= VV[42]))goto T1113;          if((V543!= VV[42]))goto T1113;
4105          V505= STREF(object,(V502),8);          V531= STREF(object,(V528),8);
4106          V506= STREF(object,(V502),12);          V532= STREF(object,(V528),12);
4107          V507= STREF(object,(V502),16);          V533= STREF(object,(V528),16);
4108          if(((V506))==(base[9])){          if(((V532))==(base[9])){
4109          bds_unwind1;          bds_unwind1;
4110          goto T1072;}          goto T1072;}
4111          if(((V507))==(base[9])){          if(((V533))==(base[9])){
4112          bds_unwind1;          bds_unwind1;
4113          goto T1072;}          goto T1072;}
4114          if(!(eql((base[11]->c.c_car),(V505)))){          if(!(eql((base[11]->c.c_car),(V531)))){
4115          goto T1125;}          goto T1125;}
4116          base[15]= (base[11]->c.c_car);          base[15]= (base[11]->c.c_car);
4117          vs_top=(vs_base=base+15)+1;          vs_top=(vs_base=base+15)+1;
# Line 4102  T1125:; Line 4128  T1125:;
4128          goto T1072;          goto T1072;
4129          goto T1113;          goto T1113;
4130  T1113:;  T1113:;
4131          if((V517!= VV[44]))goto T1128;          if((V543!= VV[44]))goto T1128;
4132          V505= STREF(object,(V502),8);          V531= STREF(object,(V528),8);
4133          base[6]= STREF(object,(V502),0);          base[6]= STREF(object,(V528),0);
4134          if(!(eql((base[11]->c.c_car),(V505)))){          if(!(eql((base[11]->c.c_car),(V531)))){
4135          goto T1134;}          goto T1134;}
4136          base[15]=          base[15]=
4137          make_cclosure_new(LC161,Cnil,base[14],Cdata);          make_cclosure_new(LC161,Cnil,base[14],Cdata);
# Line 4123  T1134:; Line 4149  T1134:;
4149          goto T1072;          goto T1072;
4150          goto T1128;          goto T1128;
4151  T1128:;  T1128:;
4152          if((V517!= VV[39]))goto T1137;          if((V543!= VV[39]))goto T1137;
4153          base[6]= STREF(object,(V502),0);          base[6]= STREF(object,(V528),0);
4154          if(!(type_of((base[11]->c.c_car))==t_cons)){          if(!(type_of((base[11]->c.c_car))==t_cons)){
4155          goto T1141;}          goto T1141;}
4156          vs_base=vs_top;          vs_base=vs_top;
# Line 4142  T1141:; Line 4168  T1141:;
4168          goto T1072;          goto T1072;
4169          goto T1137;          goto T1137;
4170  T1137:;  T1137:;
4171          FEerror("The ECASE key value ~s is illegal.",1,V517);          FEerror("The ECASE key value ~s is illegal.",1,V543);
4172          bds_unwind1;          bds_unwind1;
4173          goto T1072;}}          goto T1072;}}
4174          goto T1072;          goto T1072;
4175  T1072:;  T1072:;
4176          base[12]= (base[8]->c.c_car);          base[12]= (base[8]->c.c_car);
4177          base[13]= (V508);          base[13]= (V534);
4178          vs_top=(vs_base=base+12)+2;          vs_top=(vs_base=base+12)+2;
4179          (void) (*Lnk94)();          (void) (*Lnk94)();
4180          return;}}          return;}}
# Line 4161  static void L88() Line 4187  static void L88()
4187          register object *sup=base+VM83; VC83          register object *sup=base+VM83; VC83
4188          vs_check;          vs_check;
4189          bds_check;          bds_check;
4190          {register object V518;          {register object V544;
4191          object V519;          object V545;
4192          object V520;          object V546;
4193          check_arg(3);          check_arg(3);
4194          V518=(base[0]);          V544=(base[0]);
4195          V519=(base[1]);          V545=(base[1]);
4196          V520=(base[2]);          V546=(base[2]);
4197          vs_top=sup;          vs_top=sup;
4198          goto TTL;          goto TTL;
4199  TTL:;  TTL:;
4200          {object V521;          {object V547;
4201          object V522;          object V548;
4202          V521= STREF(object,(V520),4);          V547= STREF(object,(V546),4);
4203          V522= STREF(object,(V520),0);          V548= STREF(object,(V546),0);
4204          {object V523;          {object V549;
4205          object V524;          object V550;
4206          object V525;          object V551;
4207          object V526;          object V552;
4208          base[3]= (V518);          base[3]= (V544);
4209          base[4]= (V519);          base[4]= (V545);
4210          base[5]= VV[12];          base[5]= VV[12];
4211          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4212          (void) (*Lnk85)();          (void) (*Lnk85)();
4213          if(vs_base>=vs_top){vs_top=sup;goto T1152;}          if(vs_base>=vs_top){vs_top=sup;goto T1152;}
4214          V523= vs_base[0];          V549= vs_base[0];
4215          vs_base++;          vs_base++;
4216          if(vs_base>=vs_top){vs_top=sup;goto T1153;}          if(vs_base>=vs_top){vs_top=sup;goto T1153;}
4217          V524= vs_base[0];          V550= vs_base[0];
4218          vs_base++;          vs_base++;
4219          if(vs_base>=vs_top){vs_top=sup;goto T1154;}          if(vs_base>=vs_top){vs_top=sup;goto T1154;}
4220          V525= vs_base[0];          V551= vs_base[0];
4221          vs_base++;          vs_base++;
4222          if(vs_base>=vs_top){vs_top=sup;goto T1155;}          if(vs_base>=vs_top){vs_top=sup;goto T1155;}
4223          V526= vs_base[0];          V552= vs_base[0];
4224          vs_top=sup;          vs_top=sup;
4225          goto T1156;          goto T1156;
4226          goto T1152;          goto T1152;
4227  T1152:;  T1152:;
4228          V523= Cnil;          V549= Cnil;
4229          goto T1153;          goto T1153;
4230  T1153:;  T1153:;
4231          V524= Cnil;          V550= Cnil;
4232          goto T1154;          goto T1154;
4233  T1154:;  T1154:;
4234          V525= Cnil;          V551= Cnil;
4235          goto T1155;          goto T1155;
4236  T1155:;  T1155:;
4237          V526= Cnil;          V552= Cnil;
4238          goto T1156;          goto T1156;
4239  T1156:;  T1156:;
4240          if(((V524))==Cnil){          if(((V550))==Cnil){
4241          goto T1157;}          goto T1157;}
4242          {register object x= (V518),V527= (VV[91]->s.s_dbind);          {register object x= (V544),V553= (VV[91]->s.s_dbind);
4243          while(V527!=Cnil)          while(V553!=Cnil)
4244          if(x==(V527->c.c_car)){          if(x==(V553->c.c_car)){
4245          goto T1157;          goto T1157;
4246          }else V527=V527->c.c_cdr;}          }else V553=V553->c.c_cdr;}
4247          base[3]= make_cons((V518),(VV[91]->s.s_dbind));          base[3]= make_cons((V544),(VV[91]->s.s_dbind));
4248          bds_bind(VV[91],base[3]);          bds_bind(VV[91],base[3]);
4249          if((V526)==Cnil){          if((V552)==Cnil){
4250          goto T1164;}          goto T1164;}
4251          bds_unwind1;          bds_unwind1;
4252          goto T1157;          goto T1157;
4253          goto T1164;          goto T1164;
4254  T1164:;  T1164:;
4255          if(!(((V521))==((V523)))){          if(!(((V547))==((V549)))){
4256          goto T1167;}          goto T1167;}
4257          {object V529;          {object V555;
4258          V529= (VFUN_NARGS=3,(*(LnkLI247))((V522),(V525),Cnil));          V555= (VFUN_NARGS=3,(*(LnkLI247))((V548),(V551),Cnil));
4259          if(((V529))==((V522))){          if(((V555))==((V548))){
4260          bds_unwind1;          bds_unwind1;
4261          goto T1157;}          goto T1157;}
4262          {object V530;          {object V556;
4263          object V531;          object V557;
4264          object V532;          object V558;
4265          base[4]= (V518);          base[4]= (V544);
4266          base[5]= (V523);          base[5]= (V549);
4267          base[6]= (V529);          base[6]= (V555);
4268          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4269          (void) (*Lnk193)();          (void) (*Lnk193)();
4270          if(vs_base>=vs_top){vs_top=sup;goto T1176;}          if(vs_base>=vs_top){vs_top=sup;goto T1176;}
4271          V530= vs_base[0];          V556= vs_base[0];
4272          vs_base++;          vs_base++;
4273          if(vs_base>=vs_top){vs_top=sup;goto T1177;}          if(vs_base>=vs_top){vs_top=sup;goto T1177;}
4274          V531= vs_base[0];          V557= vs_base[0];
4275          vs_base++;          vs_base++;
4276          if(vs_base>=vs_top){vs_top=sup;goto T1178;}          if(vs_base>=vs_top){vs_top=sup;goto T1178;}
4277          V532= vs_base[0];          V558= vs_base[0];
4278          vs_top=sup;          vs_top=sup;
4279          goto T1179;          goto T1179;
4280          goto T1176;          goto T1176;
4281  T1176:;  T1176:;
4282          V530= Cnil;          V556= Cnil;
4283          goto T1177;          goto T1177;
4284  T1177:;  T1177:;
4285          V531= Cnil;          V557= Cnil;
4286          goto T1178;          goto T1178;
4287  T1178:;  T1178:;
4288          V532= Cnil;          V558= Cnil;
4289          goto T1179;          goto T1179;
4290  T1179:;  T1179:;
4291          V533= (VFUN_NARGS=4,(*(LnkLI49))((V518),(V530),(V531),(V532)));          V559= (VFUN_NARGS=4,(*(LnkLI49))((V544),(V556),(V557),(V558)));
4292          bds_unwind1;          bds_unwind1;
4293          goto T1157;}}          goto T1157;}}
4294          goto T1167;          goto T1167;
4295  T1167:;  T1167:;
4296          {object V534;          {object V560;
4297          object V535;          object V561;
4298          object V536;          object V562;
4299          base[4]= (V518);          base[4]= (V544);
4300          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4301          (void) (*Lnk184)();          (void) (*Lnk184)();
4302          if(vs_base>=vs_top){vs_top=sup;goto T1182;}          if(vs_base>=vs_top){vs_top=sup;goto T1182;}
4303          V534= vs_base[0];          V560= vs_base[0];
4304          vs_base++;          vs_base++;
4305          if(vs_base>=vs_top){vs_top=sup;goto T1183;}          if(vs_base>=vs_top){vs_top=sup;goto T1183;}
4306          V535= vs_base[0];          V561= vs_base[0];
4307          vs_base++;          vs_base++;
4308          if(vs_base>=vs_top){vs_top=sup;goto T1184;}          if(vs_base>=vs_top){vs_top=sup;goto T1184;}
4309          V536= vs_base[0];          V562= vs_base[0];
4310          vs_top=sup;          vs_top=sup;
4311          goto T1185;          goto T1185;
4312          goto T1182;          goto T1182;
4313  T1182:;  T1182:;
4314          V534= Cnil;          V560= Cnil;
4315          goto T1183;          goto T1183;
4316  T1183:;  T1183:;
4317          V535= Cnil;          V561= Cnil;
4318          goto T1184;          goto T1184;
4319  T1184:;  T1184:;
4320          V536= Cnil;          V562= Cnil;
4321          goto T1185;          goto T1185;
4322  T1185:;  T1185:;
4323          V537= (VFUN_NARGS=4,(*(LnkLI49))((V518),(V534),(V535),(V536)));          V563= (VFUN_NARGS=4,(*(LnkLI49))((V544),(V560),(V561),(V562)));
4324          bds_unwind1;}          bds_unwind1;}
4325          goto T1157;          goto T1157;
4326  T1157:;  T1157:;
4327          base[3]= (V523);          base[3]= (V549);
4328          base[4]= (V519);          base[4]= (V545);
4329          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4330          (void) (*Lnk94)();          (void) (*Lnk94)();
4331          return;}}          return;}}
# Line 4312  static void L89() Line 4338  static void L89()
4338          register object *sup=base+VM84; VC84          register object *sup=base+VM84; VC84
4339          vs_check;          vs_check;
4340          bds_check;          bds_check;
4341          {register object V538;          {register object V564;
4342          object V539;          object V565;
4343          object V540;          object V566;
4344          check_arg(3);          check_arg(3);
4345          V538=(base[0]);          V564=(base[0]);
4346          V539=(base[1]);          V565=(base[1]);
4347          V540=(base[2]);          V566=(base[2]);
4348          vs_top=sup;          vs_top=sup;
4349          goto TTL;          goto TTL;
4350  TTL:;  TTL:;
4351          {object V541;          {object V567;
4352          V541= STREF(object,(V540),0);          V567= STREF(object,(V566),0);
4353          {object V542;          {object V568;
4354          object V543;          object V569;
4355          object V544;          object V570;
4356          object V545;          object V571;
4357          base[3]= (V538);          base[3]= (V564);
4358          base[4]= (V539);          base[4]= (V565);
4359          base[5]= VV[13];          base[5]= VV[13];
4360          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4361          (void) (*Lnk85)();          (void) (*Lnk85)();
4362          if(vs_base>=vs_top){vs_top=sup;goto T1193;}          if(vs_base>=vs_top){vs_top=sup;goto T1193;}
4363          V542= vs_base[0];          V568= vs_base[0];
4364          vs_base++;          vs_base++;
4365          if(vs_base>=vs_top){vs_top=sup;goto T1194;}          if(vs_base>=vs_top){vs_top=sup;goto T1194;}
4366          V543= vs_base[0];          V569= vs_base[0];
4367          vs_base++;          vs_base++;
4368          if(vs_base>=vs_top){vs_top=sup;goto T1195;}          if(vs_base>=vs_top){vs_top=sup;goto T1195;}
4369          V544= vs_base[0];          V570= vs_base[0];
4370          vs_base++;          vs_base++;
4371          if(vs_base>=vs_top){vs_top=sup;goto T1196;}          if(vs_base>=vs_top){vs_top=sup;goto T1196;}
4372          V545= vs_base[0];          V571= vs_base[0];
4373          vs_top=sup;          vs_top=sup;
4374          goto T1197;          goto T1197;
4375          goto T1193;          goto T1193;
4376  T1193:;  T1193:;
4377          V542= Cnil;          V568= Cnil;
4378          goto T1194;          goto T1194;
4379  T1194:;  T1194:;
4380          V543= Cnil;          V569= Cnil;
4381          goto T1195;          goto T1195;
4382  T1195:;  T1195:;
4383          V544= Cnil;          V570= Cnil;
4384          goto T1196;          goto T1196;
4385  T1196:;  T1196:;
4386          V545= Cnil;          V571= Cnil;
4387          goto T1197;          goto T1197;
4388  T1197:;  T1197:;
4389          if(((V543))==Cnil){          if(((V569))==Cnil){
4390          goto T1198;}          goto T1198;}
4391          {register object x= (V538),V546= (VV[91]->s.s_dbind);          {register object x= (V564),V572= (VV[91]->s.s_dbind);
4392          while(V546!=Cnil)          while(V572!=Cnil)
4393          if(x==(V546->c.c_car)){          if(x==(V572->c.c_car)){
4394          goto T1198;          goto T1198;
4395          }else V546=V546->c.c_cdr;}          }else V572=V572->c.c_cdr;}
4396          base[3]= make_cons((V538),(VV[91]->s.s_dbind));          base[3]= make_cons((V564),(VV[91]->s.s_dbind));
4397          bds_bind(VV[91],base[3]);          bds_bind(VV[91],base[3]);
4398          if((V545)==Cnil){          if((V571)==Cnil){
4399          goto T1205;}          goto T1205;}
4400          bds_unwind1;          bds_unwind1;
4401          goto T1198;          goto T1198;
4402          goto T1205;          goto T1205;
4403  T1205:;  T1205:;
4404          {object V548;          {object V574;
4405          V548= (VFUN_NARGS=3,(*(LnkLI247))((V541),(V544),(V542)));          V574= (VFUN_NARGS=3,(*(LnkLI247))((V567),(V570),(V568)));
4406          if(((V548))==((V541))){          if(((V574))==((V567))){
4407          bds_unwind1;          bds_unwind1;
4408          goto T1198;}          goto T1198;}
4409          {object V549;          {object V575;
4410          object V550;          object V576;
4411          object V551;          object V577;
4412          base[4]= (V538);          base[4]= (V564);
4413          base[5]= (V548);          base[5]= (V574);
4414          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4415          (void) (*Lnk184)();          (void) (*Lnk184)();
4416          if(vs_base>=vs_top){vs_top=sup;goto T1213;}          if(vs_base>=vs_top){vs_top=sup;goto T1213;}
4417          V549= vs_base[0];          V575= vs_base[0];
4418          vs_base++;          vs_base++;
4419          if(vs_base>=vs_top){vs_top=sup;goto T1214;}          if(vs_base>=vs_top){vs_top=sup;goto T1214;}
4420          V550= vs_base[0];          V576= vs_base[0];
4421          vs_base++;          vs_base++;
4422          if(vs_base>=vs_top){vs_top=sup;goto T1215;}          if(vs_base>=vs_top){vs_top=sup;goto T1215;}
4423          V551= vs_base[0];          V577= vs_base[0];
4424          vs_top=sup;          vs_top=sup;
4425          goto T1216;          goto T1216;
4426          goto T1213;          goto T1213;
4427  T1213:;  T1213:;
4428          V549= Cnil;          V575= Cnil;
4429          goto T1214;          goto T1214;
4430  T1214:;  T1214:;
4431          V550= Cnil;          V576= Cnil;
4432          goto T1215;          goto T1215;
4433  T1215:;  T1215:;
4434          V551= Cnil;          V577= Cnil;
4435          goto T1216;          goto T1216;
4436  T1216:;  T1216:;
4437          V552= (VFUN_NARGS=4,(*(LnkLI49))((V538),(V549),(V550),(V551)));          V578= (VFUN_NARGS=4,(*(LnkLI49))((V564),(V575),(V576),(V577)));
4438          bds_unwind1;}}          bds_unwind1;}}
4439          goto T1198;          goto T1198;
4440  T1198:;  T1198:;
4441          base[3]= (V542);          base[3]= (V568);
4442          base[4]= (V539);          base[4]= (V565);
4443          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4444          (void) (*Lnk94)();          (void) (*Lnk94)();
4445          return;}}          return;}}
# Line 4426  static void L90() Line 4452  static void L90()
4452          register object *sup=base+VM85; VC85          register object *sup=base+VM85; VC85
4453          vs_check;          vs_check;
4454          bds_check;          bds_check;
4455          {register object V553;          {register object V579;
4456          object V554;          object V580;
4457          object V555;          object V581;
4458          check_arg(3);          check_arg(3);
4459          V553=(base[0]);          V579=(base[0]);
4460          V554=(base[1]);          V580=(base[1]);
4461          V555=(base[2]);          V581=(base[2]);
4462          vs_top=sup;          vs_top=sup;
4463          goto TTL;          goto TTL;
4464  TTL:;  TTL:;
4465          {object V556;          {object V582;
4466          V556= STREF(object,(V555),0);          V582= STREF(object,(V581),0);
4467          {register object V557;          {register object V583;
4468          object V558;          object V584;
4469          object V559;          object V585;
4470          object V560;          object V586;
4471          base[3]= (V553);          base[3]= (V579);
4472          base[4]= (V554);          base[4]= (V580);
4473          base[5]= VV[13];          base[5]= VV[13];
4474          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4475          (void) (*Lnk85)();          (void) (*Lnk85)();
4476          if(vs_base>=vs_top){vs_top=sup;goto T1224;}          if(vs_base>=vs_top){vs_top=sup;goto T1224;}
4477          V557= vs_base[0];          V583= vs_base[0];
4478          vs_base++;          vs_base++;
4479          if(vs_base>=vs_top){vs_top=sup;goto T1225;}          if(vs_base>=vs_top){vs_top=sup;goto T1225;}
4480          V558= vs_base[0];          V584= vs_base[0];
4481          vs_base++;          vs_base++;
4482          if(vs_base>=vs_top){vs_top=sup;goto T1226;}          if(vs_base>=vs_top){vs_top=sup;goto T1226;}
4483          V559= vs_base[0];          V585= vs_base[0];
4484          vs_base++;          vs_base++;
4485          if(vs_base>=vs_top){vs_top=sup;goto T1227;}          if(vs_base>=vs_top){vs_top=sup;goto T1227;}
4486          V560= vs_base[0];          V586= vs_base[0];
4487          vs_top=sup;          vs_top=sup;
4488          goto T1228;          goto T1228;
4489          goto T1224;          goto T1224;
4490  T1224:;  T1224:;
4491          V557= Cnil;          V583= Cnil;
4492          goto T1225;          goto T1225;
4493  T1225:;  T1225:;
4494          V558= Cnil;          V584= Cnil;
4495          goto T1226;          goto T1226;
4496  T1226:;  T1226:;
4497          V559= Cnil;          V585= Cnil;
4498          goto T1227;          goto T1227;
4499  T1227:;  T1227:;
4500          V560= Cnil;          V586= Cnil;
4501          goto T1228;          goto T1228;
4502  T1228:;  T1228:;
4503          if(((V558))==Cnil){          if(((V584))==Cnil){
4504          goto T1229;}          goto T1229;}
4505          {register object x= (V553),V561= (VV[91]->s.s_dbind);          {register object x= (V579),V587= (VV[91]->s.s_dbind);
4506          while(V561!=Cnil)          while(V587!=Cnil)
4507          if(x==(V561->c.c_car)){          if(x==(V587->c.c_car)){
4508          goto T1229;          goto T1229;
4509          }else V561=V561->c.c_cdr;}          }else V587=V587->c.c_cdr;}
4510          base[3]= make_cons((V553),(VV[91]->s.s_dbind));          base[3]= make_cons((V579),(VV[91]->s.s_dbind));
4511          bds_bind(VV[91],base[3]);          bds_bind(VV[91],base[3]);
4512          if((V560)==Cnil){          if((V586)==Cnil){
4513          goto T1236;}          goto T1236;}
4514          bds_unwind1;          bds_unwind1;
4515          goto T1229;          goto T1229;
4516          goto T1236;          goto T1236;
4517  T1236:;  T1236:;
4518          {object V563;          {object V589;
4519          object V564;          object V590;
4520          object V565;          object V591;
4521          {register object V566;          {register object V592;
4522          V566= (V557);          V592= (V583);
4523          base[7]= (V566);          base[7]= (V592);
4524          base[8]= VV[127];          base[8]= VV[127];
4525          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4526          (void) (*Lnk248)();          (void) (*Lnk248)();
4527          vs_top=sup;          vs_top=sup;
4528          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4529          goto T1240;}          goto T1240;}
4530          V563= STREF(object,(V557),0);          V589= STREF(object,(V583),0);
4531          goto T1238;          goto T1238;
4532          goto T1240;          goto T1240;
4533  T1240:;  T1240:;
4534          base[7]= (V566);          base[7]= (V592);
4535          base[8]= VV[128];          base[8]= VV[128];
4536          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4537          (void) (*Lnk248)();          (void) (*Lnk248)();
4538          vs_top=sup;          vs_top=sup;
4539          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4540          goto T1245;}          goto T1245;}
4541          V563= STREF(object,(V557),0);          V589= STREF(object,(V583),0);
4542          goto T1238;          goto T1238;
4543          goto T1245;          goto T1245;
4544  T1245:;  T1245:;
4545          V563= Cnil;}          V589= Cnil;}
4546          goto T1238;          goto T1238;
4547  T1238:;  T1238:;
4548          V564= (VFUN_NARGS=2,(*(LnkLI249))((V563),VV[74]));          V590= (VFUN_NARGS=2,(*(LnkLI249))((V589),VV[74]));
4549          V565= (VFUN_NARGS=3,(*(LnkLI247))((V556),(V559),(V564)));          V591= (VFUN_NARGS=3,(*(LnkLI247))((V582),(V585),(V590)));
4550          if(((V565))==((V556))){          if(((V591))==((V582))){
4551          bds_unwind1;          bds_unwind1;
4552          goto T1229;}          goto T1229;}
4553          {object V567;          {object V593;
4554          object V568;          object V594;
4555          object V569;          object V595;
4556          base[7]= (V553);          base[7]= (V579);
4557          base[8]= (V565);          base[8]= (V591);
4558          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4559          (void) (*Lnk202)();          (void) (*Lnk202)();
4560          if(vs_base>=vs_top){vs_top=sup;goto T1256;}          if(vs_base>=vs_top){vs_top=sup;goto T1256;}
4561          V567= vs_base[0];          V593= vs_base[0];
4562          vs_base++;          vs_base++;
4563          if(vs_base>=vs_top){vs_top=sup;goto T1257;}          if(vs_base>=vs_top){vs_top=sup;goto T1257;}
4564          V568= vs_base[0];          V594= vs_base[0];
4565          vs_base++;          vs_base++;
4566          if(vs_base>=vs_top){vs_top=sup;goto T1258;}          if(vs_base>=vs_top){vs_top=sup;goto T1258;}
4567          V569= vs_base[0];          V595= vs_base[0];
4568          vs_top=sup;          vs_top=sup;
4569          goto T1259;          goto T1259;
4570          goto T1256;          goto T1256;
4571  T1256:;  T1256:;
4572          V567= Cnil;          V593= Cnil;
4573          goto T1257;          goto T1257;
4574  T1257:;  T1257:;
4575          V568= Cnil;          V594= Cnil;
4576          goto T1258;          goto T1258;
4577  T1258:;  T1258:;
4578          V569= Cnil;          V595= Cnil;
4579          goto T1259;          goto T1259;
4580  T1259:;  T1259:;
4581          V570= (VFUN_NARGS=4,(*(LnkLI49))((V553),(V567),(V568),(V569)));          V596= (VFUN_NARGS=4,(*(LnkLI49))((V579),(V593),(V594),(V595)));
4582          bds_unwind1;}}          bds_unwind1;}}
4583          goto T1229;          goto T1229;
4584  T1229:;  T1229:;
4585          base[3]= (V557);          base[3]= (V583);
4586          base[4]= (V554);          base[4]= (V580);
4587          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4588          (void) (*Lnk94)();          (void) (*Lnk94)();
4589          return;}}          return;}}
# Line 4569  static void L91() Line 4595  static void L91()
4595  {register object *base=vs_base;  {register object *base=vs_base;
4596          register object *sup=base+VM86; VC86          register object *sup=base+VM86; VC86
4597          vs_check;          vs_check;
4598          {object V571;          {object V597;
4599          object V572;          object V598;
4600          object V573;          object V599;
4601          check_arg(3);          check_arg(3);
4602          V571=(base[0]);          V597=(base[0]);
4603          V572=(base[1]);          V598=(base[1]);
4604          V573=(base[2]);          V599=(base[2]);
4605          vs_top=sup;          vs_top=sup;
4606          goto TTL;          goto TTL;
4607  TTL:;  TTL:;
4608          if(((*(LnkLI196))((V571)))==Cnil){          if(((*(LnkLI196))((V597)))==Cnil){
4609          goto T1266;}          goto T1266;}
4610          if(type_of(V571)==t_structure){          if(type_of(V597)==t_structure){
4611          goto T1272;}          goto T1272;}
4612          goto T1270;          goto T1270;
4613          goto T1272;          goto T1272;
4614  T1272:;  T1272:;
4615          if(!(((V571)->str.str_def)==(VV[129]))){          if(!(((V597)->str.str_def)==(VV[129]))){
4616          goto T1270;}          goto T1270;}
4617          V574= STREF(object,(V571),4);          V600= STREF(object,(V597),4);
4618          goto T1268;          goto T1268;
4619          goto T1270;          goto T1270;
4620  T1270:;{object V576;  T1270:;{object V602;
4621          V576= (VV[65]->s.s_dbind);          V602= (VV[65]->s.s_dbind);
4622          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
4623          base[4]= (V571);          base[4]= (V597);
4624          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4625          (void) (*Lnk197)();          (void) (*Lnk197)();
4626          vs_top=sup;          vs_top=sup;
4627          V577= vs_base[0];          V603= vs_base[0];
4628          if(!((V576)==(CMPcar(V577)))){          if(!((V602)==(CMPcar(V603)))){
4629          goto T1275;}}          goto T1275;}}
4630          V574= CMPcar(((V571))->cc.cc_turbo[12]);          V600= CMPcar(((V597))->cc.cc_turbo[12]);
4631          goto T1268;          goto T1268;
4632          goto T1275;          goto T1275;
4633  T1275:;  T1275:;
# Line 4609  T1275:; Line 4635  T1275:;
4635          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4636          Lerror();          Lerror();
4637          vs_top=sup;          vs_top=sup;
4638          V574= vs_base[0];          V600= vs_base[0];
4639          goto T1268;          goto T1268;
4640  T1268:;  T1268:;
4641          if(((V574)->v.v_self[fix((VV[67]->s.s_dbind))])!=Cnil){          V604 = (VV[67]->s.s_dbind);
4642            if(((V600)->v.v_self[fix(V604)])!=Cnil){
4643          goto T1263;}          goto T1263;}
4644          goto T1264;          goto T1264;
4645          goto T1266;          goto T1266;
4646  T1266:;  T1266:;
4647          base[3]= (V571);          base[3]= (V597);
4648          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4649          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
4650          vs_top=sup;          vs_top=sup;
# Line 4626  T1266:; Line 4653  T1266:;
4653          goto T1264;          goto T1264;
4654  T1264:;  T1264:;
4655          base[3]=VV[250]->s.s_gfdef;          base[3]=VV[250]->s.s_gfdef;
4656          base[4]= (V571);          base[4]= (V597);
4657          {object V578;          {object V605;
4658          V578= (V572);          V605= (V598);
4659           vs_top=base+5;           vs_top=base+5;
4660           while(V578!=Cnil)           while(V605!=Cnil)
4661           {vs_push((V578)->c.c_car);V578=(V578)->c.c_cdr;}           {vs_push((V605)->c.c_car);V605=(V605)->c.c_cdr;}
4662          vs_base=base+4;}          vs_base=base+4;}
4663          (void) (*Lnk250)(Lclptr250);          (void) (*Lnk250)(Lclptr250);
4664          return;          return;
4665          goto T1263;          goto T1263;
4666  T1263:;  T1263:;
4667          {object V579;          {object V606;
4668          object V580;          object V607;
4669          object V581;          object V608;
4670          object V582;          object V609;
4671          object V583;          object V610;
4672          base[3]= (V571);          base[3]= (V597);
4673          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4674          (void) (*Lnk187)();          (void) (*Lnk187)();
4675          if(vs_base>=vs_top){vs_top=sup;goto T1286;}          if(vs_base>=vs_top){vs_top=sup;goto T1286;}
4676          V579= vs_base[0];          V606= vs_base[0];
4677          vs_base++;          vs_base++;
4678          if(vs_base>=vs_top){vs_top=sup;goto T1287;}          if(vs_base>=vs_top){vs_top=sup;goto T1287;}
4679          V580= vs_base[0];          V607= vs_base[0];
4680          vs_base++;          vs_base++;
4681          if(vs_base>=vs_top){vs_top=sup;goto T1288;}          if(vs_base>=vs_top){vs_top=sup;goto T1288;}
4682          V581= vs_base[0];          V608= vs_base[0];
4683          vs_base++;          vs_base++;
4684          if(vs_base>=vs_top){vs_top=sup;goto T1289;}          if(vs_base>=vs_top){vs_top=sup;goto T1289;}
4685          V582= vs_base[0];          V609= vs_base[0];
4686          vs_base++;          vs_base++;
4687          if(vs_base>=vs_top){vs_top=sup;goto T1290;}          if(vs_base>=vs_top){vs_top=sup;goto T1290;}
4688          V583= vs_base[0];          V610= vs_base[0];
4689          vs_top=sup;          vs_top=sup;
4690          goto T1291;          goto T1291;
4691          goto T1286;          goto T1286;
4692  T1286:;  T1286:;
4693          V579= Cnil;          V606= Cnil;
4694          goto T1287;          goto T1287;
4695  T1287:;  T1287:;
4696          V580= Cnil;          V607= Cnil;
4697          goto T1288;          goto T1288;
4698  T1288:;  T1288:;
4699          V581= Cnil;          V608= Cnil;
4700          goto T1289;          goto T1289;
4701  T1289:;  T1289:;
4702          V582= Cnil;          V609= Cnil;
4703          goto T1290;          goto T1290;
4704  T1290:;  T1290:;
4705          V583= Cnil;          V610= Cnil;
4706          goto T1291;          goto T1291;
4707  T1291:;  T1291:;
4708          {register object V584;          {register object V611;
4709          object V585;          object V612;
4710          object V586;          object V613;
4711          register object V587;          register object V614;
4712          register object V588;          register object V615;
4713          object V589;          object V616;
4714          object V590;          object V617;
4715          object V591;          object V618;
4716          V584= (V572);          V611= (V598);
4717          V585= Cnil;          V612= Cnil;
4718          V586= Cnil;          V613= Cnil;
4719          V587= Cnil;          V614= Cnil;
4720          V588= Cnil;          V615= Cnil;
4721          V589= Cnil;          V616= Cnil;
4722          V590= Cnil;          V617= Cnil;
4723          V591= Cnil;          V618= Cnil;
4724          {register object V592;          {register object V619;
4725          object V593;          object V620;
4726          V592= (V581);          V619= (V608);
4727          V593= CMPcar((V592));          V620= CMPcar((V619));
4728          goto T1304;          goto T1304;
4729  T1304:;  T1304:;
4730          if(!(((V592))==Cnil)){          if(!(((V619))==Cnil)){
4731          goto T1305;}          goto T1305;}
4732          goto T1300;          goto T1300;
4733          goto T1305;          goto T1305;
4734  T1305:;  T1305:;
4735          if(((V584))!=Cnil){          if(((V611))!=Cnil){
4736          goto T1309;}          goto T1309;}
4737          V586= Ct;          V613= Ct;
4738          goto T1300;          goto T1300;
4739          goto T1309;          goto T1309;
4740  T1309:;  T1309:;
4741          {object V594;          {object V621;
4742          register object V595;          register object V622;
4743          register object V596;          register object V623;
4744          object V597;          object V624;
4745          {object V598;          {object V625;
4746          V598= CMPcar((V584));          V625= CMPcar((V611));
4747          V584= CMPcdr((V584));          V611= CMPcdr((V611));
4748          V594= (V598);}          V621= (V625);}
4749          V595= Cnil;          V622= Cnil;
4750          V596= (VV[125]->s.s_dbind);          V623= (VV[125]->s.s_dbind);
4751          V597= Ct;          V624= Ct;
4752          if(((V593))==(Ct)){          if(((V620))==(Ct)){
4753          goto T1322;}          goto T1322;}
4754          V595= (*(LnkLI251))((V594));          V622= (*(LnkLI251))((V621));
4755          if(!((((((V595))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((V622))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
4756          goto T1327;}          goto T1327;}
4757          V585= Ct;          V612= Ct;
4758          V595= (*(LnkLI252))((V594));          V622= (*(LnkLI252))((V621));
4759          goto T1327;          goto T1327;
4760  T1327:;  T1327:;
4761          if(((V587))!=Cnil){          if(((V614))!=Cnil){
4762          goto T1335;}          goto T1335;}
4763          V587= (V595);          V614= (V622);
4764          goto T1333;          goto T1333;
4765          goto T1335;          goto T1335;
4766  T1335:;  T1335:;
4767          if(type_of((V587))==t_cons){          if(type_of((V614))==t_cons){
4768          goto T1339;}          goto T1339;}
4769          V588= make_cons((V595),Cnil);          V615= make_cons((V622),Cnil);
4770          V587= make_cons((V587),(V588));          V614= make_cons((V614),(V615));
4771          goto T1333;          goto T1333;
4772          goto T1339;          goto T1339;
4773  T1339:;  T1339:;
4774          {object V599;          {object V626;
4775          V599= make_cons((V595),Cnil);          V626= make_cons((V622),Cnil);
4776          (V588)->c.c_cdr = V599;          (V615)->c.c_cdr = V626;
4777          V588= (V599);}          V615= (V626);}
4778          goto T1333;          goto T1333;
4779  T1333:;  T1333:;
4780          V596= ((V595))->v.v_self[11];          V623= ((V622))->v.v_self[11];
4781          V597= list(2,VV[130],(V596));          V624= list(2,VV[130],(V623));
4782          goto T1322;          goto T1322;
4783  T1322:;  T1322:;
4784          V589= make_cons(V595,(V589));          V616= make_cons(V622,(V616));
4785          V591= make_cons(V596,(V591));          V618= make_cons(V623,(V618));
4786          V590= make_cons(V597,(V590));}          V617= make_cons(V624,(V617));}
4787          V592= CMPcdr((V592));          V619= CMPcdr((V619));
4788          V593= CMPcar((V592));          V620= CMPcar((V619));
4789          goto T1304;}          goto T1304;}
4790          goto T1300;          goto T1300;
4791  T1300:;  T1300:;
4792          if(((V586))==Cnil){          if(((V613))==Cnil){
4793          goto T1362;}          goto T1362;}
4794          base[3]= VV[131];          base[3]= VV[131];
4795          base[4]= (V571);          base[4]= (V597);
4796          base[5]= CMPmake_fixnum((long)length((V581)));          base[5]= CMPmake_fixnum((long)length((V608)));
4797          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4798          Lerror();          Lerror();
4799          return;          return;
4800          goto T1362;          goto T1362;
4801  T1362:;  T1362:;
4802          {object V605;          {object V632;
4803          object V606;          object V633;
4804          object V607;          object V634;
4805          V605= nreverse((V589));          V632= nreverse((V616));
4806          V606= nreverse((V591));          V633= nreverse((V618));
4807          {object V608;          {object V635;
4808          object V609= (V606);          object V636= (V633);
4809          if(V609==Cnil){          if(V636==Cnil){
4810          V607= Cnil;          V634= Cnil;
4811          goto T1369;}          goto T1369;}
4812          base[6]=V608=MMcons(Cnil,Cnil);          base[6]=V635=MMcons(Cnil,Cnil);
4813          goto T1370;          goto T1370;
4814  T1370:;  T1370:;
4815          (V608->c.c_car)= list(2,VV[130],(V609->c.c_car));          (V635->c.c_car)= list(2,VV[130],(V636->c.c_car));
4816          if((V609=MMcdr(V609))==Cnil){          if((V636=MMcdr(V636))==Cnil){
4817          V607= base[6];          V634= base[6];
4818          goto T1369;}          goto T1369;}
4819          V608=MMcdr(V608)=MMcons(Cnil,Cnil);          V635=MMcdr(V635)=MMcons(Cnil,Cnil);
4820          goto T1370;}          goto T1370;}
4821          goto T1369;          goto T1369;
4822  T1369:;  T1369:;
4823          {object V611;          {object V638;
4824          object V612;          object V639;
4825          object V613;          object V640;
4826          object V614;          object V641;
4827          base[6]= (V571);          base[6]= (V597);
4828          base[7]= (V583);          base[7]= (V610);
4829          base[8]= (V605);          base[8]= (V632);
4830          base[9]= (V606);          base[9]= (V633);
4831          base[10]= (V607);          base[10]= (V634);
4832          base[11]= (V573);          base[11]= (V599);
4833          vs_top=(vs_base=base+6)+6;          vs_top=(vs_base=base+6)+6;
4834          (void) (*Lnk253)();          (void) (*Lnk253)();
4835          if(vs_base>=vs_top){vs_top=sup;goto T1379;}          if(vs_base>=vs_top){vs_top=sup;goto T1379;}
4836          V611= vs_base[0];          V638= vs_base[0];
4837          vs_base++;          vs_base++;
4838          if(vs_base>=vs_top){vs_top=sup;goto T1380;}          if(vs_base>=vs_top){vs_top=sup;goto T1380;}
4839          V612= vs_base[0];          V639= vs_base[0];
4840          vs_base++;          vs_base++;
4841          if(vs_base>=vs_top){vs_top=sup;goto T1381;}          if(vs_base>=vs_top){vs_top=sup;goto T1381;}
4842          V613= vs_base[0];          V640= vs_base[0];
4843          vs_base++;          vs_base++;
4844          if(vs_base>=vs_top){vs_top=sup;goto T1382;}          if(vs_base>=vs_top){vs_top=sup;goto T1382;}
4845          V614= vs_base[0];          V641= vs_base[0];
4846          vs_top=sup;          vs_top=sup;
4847          goto T1383;          goto T1383;
4848          goto T1379;          goto T1379;
4849  T1379:;  T1379:;
4850          V611= Cnil;          V638= Cnil;
4851          goto T1380;          goto T1380;
4852  T1380:;  T1380:;
4853          V612= Cnil;          V639= Cnil;
4854          goto T1381;          goto T1381;
4855  T1381:;  T1381:;
4856          V613= Cnil;          V640= Cnil;
4857          goto T1382;          goto T1382;
4858  T1382:;  T1382:;
4859          V614= Cnil;          V641= Cnil;
4860          goto T1383;          goto T1383;
4861  T1383:;  T1383:;
4862          base[6]= (V611);          base[6]= (V638);
4863          base[7]= (V612);          base[7]= (V639);
4864          base[8]= (V587);          base[8]= (V614);
4865          base[9]= (V585);          base[9]= (V612);
4866          base[10]= (V613);          base[10]= (V640);
4867          base[11]= (V614);          base[11]= (V641);
4868          vs_top=(vs_base=base+6)+6;          vs_top=(vs_base=base+6)+6;
4869          return;}}}}          return;}}}}
4870          }          }
# Line 4848  static void L92() Line 4875  static void L92()
4875  {register object *base=vs_base;  {register object *base=vs_base;
4876          register object *sup=base+VM87; VC87          register object *sup=base+VM87; VC87
4877          vs_check;          vs_check;
4878          {register object V615;          {register object V642;
4879          object V616;          object V643;
4880          object V617;          object V644;
4881          object V618;          object V645;
4882          object V619;          object V646;
4883          object V620;          object V647;
4884          check_arg(6);          check_arg(6);
4885          V615=(base[0]);          V642=(base[0]);
4886          V616=(base[1]);          V643=(base[1]);
4887          V617=(base[2]);          V644=(base[2]);
4888          V618=(base[3]);          V645=(base[3]);
4889          V619=(base[4]);          V646=(base[4]);
4890          V620=(base[5]);          V647=(base[5]);
4891          vs_top=sup;          vs_top=sup;
4892          goto TTL;          goto TTL;
4893  TTL:;  TTL:;
4894          {object V621;          {object V648;
4895          object V622;          object V649;
4896          object V623;          object V650;
4897          V621= (((V620))==(VV[86])?Ct:Cnil);          V648= (((V647))==(VV[86])?Ct:Cnil);
4898          if(!(((V620))==(VV[13]))){          if(!(((V647))==(VV[13]))){
4899          goto T1392;}          goto T1392;}
4900          V622= Ct;          V649= Ct;
4901          goto T1391;          goto T1391;
4902          goto T1392;          goto T1392;
4903  T1392:;  T1392:;
4904          V622= (((V620))==(VV[86])?Ct:Cnil);          V649= (((V647))==(VV[86])?Ct:Cnil);
4905          goto T1391;          goto T1391;
4906  T1391:;  T1391:;
4907          if(!(((V616))==Cnil)){          if(!(((V643))==Cnil)){
4908          goto T1395;}          goto T1395;}
4909          V623= Ct;          V650= Ct;
4910          goto T1394;          goto T1394;
4911          goto T1395;          goto T1395;
4912  T1395:;  T1395:;
4913          V623= STREF(object,(V616),36);          V650= STREF(object,(V643),36);
4914          goto T1394;          goto T1394;
4915  T1394:;  T1394:;
4916          {register object V624;          {register object V651;
4917          object V625;          object V652;
4918          if(((V623))==Cnil){          if(((V650))==Cnil){
4919          goto T1399;}          goto T1399;}
4920          base[9]= (V615);          base[9]= (V642);
4921          base[10]= (V619);          base[10]= (V646);
4922          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
4923          (void) (*Lnk254)();          (void) (*Lnk254)();
4924          goto T1397;          goto T1397;
4925          goto T1399;          goto T1399;
4926  T1399:;  T1399:;
4927          base[9]= (V615);          base[9]= (V642);
4928          base[10]= (V618);          base[10]= (V645);
4929          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
4930          (void) (*Lnk255)(Lclptr255);          (void) (*Lnk255)(Lclptr255);
4931          goto T1397;          goto T1397;
4932  T1397:;  T1397:;
4933          if(vs_base>=vs_top){vs_top=sup;goto T1405;}          if(vs_base>=vs_top){vs_top=sup;goto T1405;}
4934          V624= vs_base[0];          V651= vs_base[0];
4935          vs_base++;          vs_base++;
4936          if(vs_base>=vs_top){vs_top=sup;goto T1406;}          if(vs_base>=vs_top){vs_top=sup;goto T1406;}
4937          V625= vs_base[0];          V652= vs_base[0];
4938          vs_top=sup;          vs_top=sup;
4939          goto T1407;          goto T1407;
4940          goto T1405;          goto T1405;
4941  T1405:;  T1405:;
4942          V624= Cnil;          V651= Cnil;
4943          goto T1406;          goto T1406;
4944  T1406:;  T1406:;
4945          V625= Cnil;          V652= Cnil;
4946          goto T1407;          goto T1407;
4947  T1407:;  T1407:;
4948          {object V626;          {object V653;
4949          if(((V623))!=Cnil){          if(((V650))!=Cnil){
4950          goto T1409;}          goto T1409;}
4951          if(((V625))==Cnil){          if(((V652))==Cnil){
4952          goto T1410;}          goto T1410;}
4953          goto T1409;          goto T1409;
4954  T1409:;  T1409:;
4955          if((V622)==Cnil){          V654 = (V642);
4956          V627= Cnil;          V655 = (V651);
4957            V656 = (V646);
4958            if((V649)==Cnil){
4959            V657= Cnil;
4960          goto T1414;}          goto T1414;}
4961          V627= (V617);          V657= (V644);
4962          goto T1414;          goto T1414;
4963  T1414:;  T1414:;
4964          V628= (VFUN_NARGS=6,(*(LnkLI216))((V615),(V624),(V619),Cnil,V627,(V625)));          V658 = (V652);
4965          if((V622)==Cnil){          V659= (VFUN_NARGS=6,(*(LnkLI216))(V654,V655,V656,Cnil,V657,V658));
4966          V629= Cnil;          if((V649)==Cnil){
4967            V660= Cnil;
4968          goto T1415;}          goto T1415;}
4969          V629= (V617);          V660= (V644);
4970          goto T1415;          goto T1415;
4971  T1415:;  T1415:;
4972          V626= (          V653= (
4973          V630 = /* INLINE-ARGS */V628,          V661 = /* INLINE-ARGS */V659,
4974          (type_of(V630) == t_sfun ?(*((V630)->sfn.sfn_self)):          (type_of(V661) == t_sfun ?(*((V661)->sfn.sfn_self)):
4975          (fcall.argd=2,type_of(V630)==t_vfun) ?          (fcall.argd=2,type_of(V661)==t_vfun) ?
4976          (*((V630)->sfn.sfn_self)):          (*((V661)->sfn.sfn_self)):
4977          (fcall.fun=(V630),fcalln))(Cnil,V629));          (fcall.fun=(V661),fcalln))(Cnil,V660));
4978          goto T1408;          goto T1408;
4979          goto T1410;          goto T1410;
4980  T1410:;  T1410:;
4981          V626= (*(LnkLI256))((V615));          V653= (*(LnkLI256))((V642));
4982          goto T1408;          goto T1408;
4983  T1408:;  T1408:;
4984          {object V631;          {object V662;
4985          object V632;          object V663;
4986          if((V621)==Cnil){          if((V648)==Cnil){
4987          base[9]= Cnil;          base[9]= Cnil;
4988          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4989          goto T1416;}          goto T1416;}
4990          if((V625)==Cnil){          if((V652)==Cnil){
4991          base[9]= Cnil;          base[9]= Cnil;
4992          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4993          goto T1416;}          goto T1416;}
4994          if((V624)==Cnil){          if((V651)==Cnil){
4995          base[9]= Cnil;          base[9]= Cnil;
4996          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4997          goto T1416;}          goto T1416;}
4998          base[9]= (V615);          base[9]= (V642);
4999          base[10]= (V616);          base[10]= (V643);
5000          base[11]= (V618);          base[11]= (V645);
5001          base[12]= (V624);          base[12]= (V651);
5002          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
5003          (void) (*Lnk257)();          (void) (*Lnk257)();
5004          goto T1416;          goto T1416;
5005  T1416:;  T1416:;
5006          if(vs_base>=vs_top){vs_top=sup;goto T1421;}          if(vs_base>=vs_top){vs_top=sup;goto T1421;}
5007          V631= vs_base[0];          V662= vs_base[0];
5008          vs_base++;          vs_base++;
5009          if(vs_base>=vs_top){vs_top=sup;goto T1422;}          if(vs_base>=vs_top){vs_top=sup;goto T1422;}
5010          V632= vs_base[0];          V663= vs_base[0];
5011          vs_top=sup;          vs_top=sup;
5012          goto T1423;          goto T1423;
5013          goto T1421;          goto T1421;
5014  T1421:;  T1421:;
5015          V631= Cnil;          V662= Cnil;
5016          goto T1422;          goto T1422;
5017  T1422:;  T1422:;
5018          V632= Cnil;          V663= Cnil;
5019          goto T1423;          goto T1423;
5020  T1423:;  T1423:;
5021          if(!(type_of((V631))==t_fixnum||type_of((V631))==t_bignum)){          if(!(type_of((V662))==t_fixnum||type_of((V662))==t_bignum)){
5022          goto T1426;}          goto T1426;}
5023          base[9]= (V631);          base[9]= (V662);
5024          goto T1424;          goto T1424;
5025          goto T1426;          goto T1426;
5026  T1426:;  T1426:;
5027          base[9]= (V626);          base[9]= (V653);
5028          goto T1424;          goto T1424;
5029  T1424:;  T1424:;
5030          base[10]= (V624);          base[10]= (V651);
5031          base[11]= (V632);          base[11]= (V663);
5032          base[12]= (V631);          base[12]= (V662);
5033          vs_top=(vs_base=base+9)+4;          vs_top=(vs_base=base+9)+4;
5034          return;}}}}          return;}}}}
5035          }          }
# Line 5009  static void L93() Line 5040  static void L93()
5040  {register object *base=vs_base;  {register object *base=vs_base;
5041          register object *sup=base+VM88; VC88          register object *sup=base+VM88; VC88
5042          vs_check;          vs_check;
5043          {object V633;          {object V664;
5044          object V634;          object V665;
5045          object V635;          object V666;
5046          object V636;          object V667;
5047          check_arg(4);          check_arg(4);
5048          V633=(base[0]);          V664=(base[0]);
5049          V634=(base[1]);          V665=(base[1]);
5050          V635=(base[2]);          V666=(base[2]);
5051          V636=(base[3]);          V667=(base[3]);
5052          vs_top=sup;          vs_top=sup;
5053          goto TTL;          goto TTL;
5054  TTL:;  TTL:;
5055          {object V637;          {object V668;
5056          object V638;          object V669;
5057          V637= STREF(object,(V634),24);          V668= STREF(object,(V665),24);
5058          {object V639= (V637);          {object V670= (V668);
5059          if((V639!= VV[51]))goto T1433;          if((V670!= VV[51]))goto T1433;
5060          V638= CMPcar((V635));          V669= CMPcar((V666));
5061          goto T1432;          goto T1432;
5062          goto T1433;          goto T1433;
5063  T1433:;  T1433:;
5064          if((V639!= VV[123]))goto T1434;          if((V670!= VV[123]))goto T1434;
5065          V638= CMPcadr((V635));          V669= CMPcadr((V666));
5066          goto T1432;          goto T1432;
5067          goto T1434;          goto T1434;
5068  T1434:;  T1434:;
5069          if((V639!= VV[258]))goto T1435;          if((V670!= VV[258]))goto T1435;
5070          V638= CMPcar((V635));          V669= CMPcar((V666));
5071          goto T1432;          goto T1432;
5072          goto T1435;          goto T1435;
5073  T1435:;  T1435:;
5074          V638= Cnil;}          V669= Cnil;}
5075          goto T1432;          goto T1432;
5076  T1432:;  T1432:;
5077          base[6]= (V637);          base[6]= (V668);
5078          base[7]= (V638);          base[7]= (V669);
5079          base[8]= (V636);          base[8]= (V667);
5080          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
5081          (void) (*Lnk259)();          (void) (*Lnk259)();
5082          return;}          return;}
# Line 5057  static void L94() Line 5088  static void L94()
5088  {register object *base=vs_base;  {register object *base=vs_base;
5089          register object *sup=base+VM89; VC89          register object *sup=base+VM89; VC89
5090          vs_check;          vs_check;
5091          {object V640;          {object V671;
5092          object V641;          object V672;
5093          object V642;          object V673;
5094          check_arg(3);          check_arg(3);
5095          V640=(base[0]);          V671=(base[0]);
5096          V641=(base[1]);          V672=(base[1]);
5097          V642=(base[2]);          V673=(base[2]);
5098          vs_top=sup;          vs_top=sup;
5099          goto TTL;          goto TTL;
5100  TTL:;  TTL:;
5101          {object V643;          {object V674;
5102          object V644;          object V675;
5103          object V645;          object V676;
5104          V643= list(2,VV[130],(V642));          V674= list(2,VV[130],(V673));
5105          if(!(((V641))==(VV[123]))){          if(!(((V672))==(VV[123]))){
5106          goto T1442;}          goto T1442;}
5107          V644= list(2,Ct,(V643));          V675= list(2,Ct,(V674));
5108          goto T1440;          goto T1440;
5109          goto T1442;          goto T1442;
5110  T1442:;  T1442:;
5111          V644= make_cons((V643),Cnil);          V675= make_cons((V674),Cnil);
5112          goto T1440;          goto T1440;
5113  T1440:;  T1440:;
5114          base[6]= (V640);          base[6]= (V671);
5115          base[7]= (V644);          base[7]= (V675);
5116          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
5117          (void) (*Lnk254)();          (void) (*Lnk254)();
5118          vs_top=sup;          vs_top=sup;
5119          V645= vs_base[0];          V676= vs_base[0];
5120          base[6]= (V641);          base[6]= (V672);
5121          base[7]= (V642);          base[7]= (V673);
5122          base[8]= (V645);          base[8]= (V676);
5123          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
5124          (void) (*Lnk259)();          (void) (*Lnk259)();
5125          return;}          return;}
# Line 5100  static void L95() Line 5131  static void L95()
5131  {register object *base=vs_base;  {register object *base=vs_base;
5132          register object *sup=base+VM90; VC90          register object *sup=base+VM90; VC90
5133          vs_check;          vs_check;
5134          {object V646;          {object V677;
5135          object V647;          object V678;
5136          object V648;          object V679;
5137          check_arg(3);          check_arg(3);
5138          V646=(base[0]);          V677=(base[0]);
5139          V647=(base[1]);          V678=(base[1]);
5140          V648=(base[2]);          V679=(base[2]);
5141          vs_top=sup;          vs_top=sup;
5142          goto TTL;          goto TTL;
5143  TTL:;  TTL:;
5144          {register object V649;          {register object V680;
5145          register object V650;          register object V681;
5146          V649= (V648);          V680= (V679);
5147          V650= CMPcar((V649));          V681= CMPcar((V680));
5148          goto T1454;          goto T1454;
5149  T1454:;  T1454:;
5150          if(!(((V649))==Cnil)){          if(!(((V680))==Cnil)){
5151          goto T1455;}          goto T1455;}
5152          goto T1450;          goto T1450;
5153          goto T1455;          goto T1455;
5154  T1455:;  T1455:;
5155          if(!(type_of((V650))==t_cons)){          if(!(type_of((V681))==t_cons)){
5156          goto T1463;}          goto T1463;}
5157          if(((*(LnkLI260))((V650)))==Cnil){          if(((*(LnkLI260))((V681)))==Cnil){
5158          goto T1459;}          goto T1459;}
5159          goto T1461;          goto T1461;
5160          goto T1463;          goto T1463;
5161  T1463:;  T1463:;
5162          base[4]= (V650);          base[4]= (V681);
5163          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5164          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk261)(Lclptr261);
5165          vs_top=sup;          vs_top=sup;
# Line 5142  T1461:; Line 5173  T1461:;
5173          return;          return;
5174          goto T1459;          goto T1459;
5175  T1459:;  T1459:;
5176          V649= CMPcdr((V649));          V680= CMPcdr((V680));
5177          V650= CMPcar((V649));          V681= CMPcar((V680));
5178          goto T1454;}          goto T1454;}
5179          goto T1450;          goto T1450;
5180  T1450:;  T1450:;
5181          {object V651;          {object V682;
5182          object V652;          object V683;
5183          register object V653;          register object V684;
5184          object V654;          object V685;
5185          V651= CMPcar((V648));          V682= CMPcar((V679));
5186          V652= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil);          V683= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil);
5187          if(((V647))==Cnil){          if(((V678))==Cnil){
5188          goto T1477;}          goto T1477;}
5189          if(!(type_of((V651))==t_cons)){          if(!(type_of((V682))==t_cons)){
5190          goto T1480;}          goto T1480;}
5191          if(((*(LnkLI262))((V651)))!=Cnil){          if(((*(LnkLI262))((V682)))!=Cnil){
5192          goto T1482;}          goto T1482;}
5193          V653= Cnil;          V684= Cnil;
5194          goto T1475;          goto T1475;
5195          goto T1482;          goto T1482;
5196  T1482:;  T1482:;
5197          base[7]= (V651);          base[7]= (V682);
5198          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
5199          (void) (*Lnk231)();          (void) (*Lnk231)();
5200          vs_top=sup;          vs_top=sup;
5201          V653= vs_base[0];          V684= vs_base[0];
5202          goto T1475;          goto T1475;
5203          goto T1480;          goto T1480;
5204  T1480:;{object V656;  T1480:;{object V687;
5205          V656= (VV[132]->s.s_dbind);          V687= (VV[132]->s.s_dbind);
5206          if(((V652))==Cnil){          if(((V683))==Cnil){
5207          goto T1489;}          goto T1489;}
5208          V657= (*(LnkLI263))((V647));          V688= (*(LnkLI263))((V678));
5209          goto T1487;          goto T1487;
5210          goto T1489;          goto T1489;
5211  T1489:;  T1489:;
5212          base[7]= (V647);          base[7]= (V678);
5213          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
5214          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
5215          vs_top=sup;          vs_top=sup;
5216          V657= vs_base[0];          V688= vs_base[0];
5217          goto T1487;          goto T1487;
5218  T1487:;  T1487:;
5219          {register object x= V656,V655= V657;          {register object x= V687,V686= V688;
5220          while(V655!=Cnil)          while(V686!=Cnil)
5221          if(eql(x,V655->c.c_car)){          if(eql(x,V686->c.c_car)){
5222          goto T1485;          goto T1485;
5223          }else V655=V655->c.c_cdr;}}          }else V686=V686->c.c_cdr;}}
5224          V653= Cnil;          V684= Cnil;
5225          goto T1475;          goto T1475;
5226          goto T1485;          goto T1485;
5227  T1485:;  T1485:;
5228          if(((V652))==Cnil){          if(((V683))==Cnil){
5229          goto T1495;}{object V658;          goto T1495;}{object V689;
5230          V658= (VV[133]->s.s_dbind);          V689= (VV[133]->s.s_dbind);
5231          V659= (*(LnkLI265))((V651));          V690= (*(LnkLI265))((V682));
5232          if((((V658)==(/* INLINE-ARGS */V659)?Ct:Cnil))==Cnil){          if((((V689)==(/* INLINE-ARGS */V690)?Ct:Cnil))==Cnil){
5233          goto T1492;}          goto T1492;}
5234          goto T1493;}          goto T1493;}
5235          goto T1495;          goto T1495;
5236  T1495:;  T1495:;
5237          base[7]= (V651);          base[7]= (V682);
5238          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
5239          (void) (*Lnk266)(Lclptr266);          (void) (*Lnk266)(Lclptr266);
5240          vs_top=sup;          vs_top=sup;
# Line 5211  T1495:; Line 5242  T1495:;
5242          goto T1492;}          goto T1492;}
5243          goto T1493;          goto T1493;
5244  T1493:;  T1493:;
5245          V653= Cnil;          V684= Cnil;
5246          goto T1475;          goto T1475;
5247          goto T1492;          goto T1492;
5248  T1492:;  T1492:;
5249          if(((V652))==Cnil){          if(((V683))==Cnil){
5250          goto T1499;}          goto T1499;}
5251          V653= (*(LnkLI267))((V651));          V684= (*(LnkLI267))((V682));
5252          goto T1475;          goto T1475;
5253          goto T1499;          goto T1499;
5254  T1499:;  T1499:;
5255          base[7]= (V651);          base[7]= (V682);
5256          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
5257          (void) (*Lnk268)(Lclptr268);          (void) (*Lnk268)(Lclptr268);
5258          vs_top=sup;          vs_top=sup;
5259          V653= vs_base[0];          V684= vs_base[0];
5260          goto T1475;          goto T1475;
5261          goto T1477;          goto T1477;
5262  T1477:;  T1477:;
5263          V653= Cnil;          V684= Cnil;
5264          goto T1475;          goto T1475;
5265  T1475:;  T1475:;
5266          if((V647)==Cnil){          if((V678)==Cnil){
5267          V654= Cnil;          V685= Cnil;
5268          goto T1502;}          goto T1502;}
5269          if(((V652))==Cnil){          if(((V683))==Cnil){
5270          goto T1504;}          goto T1504;}
5271          {register object V660;          {register object V691;
5272          register object V661;          register object V692;
5273          V660= (*(LnkLI269))((V647));          V691= (*(LnkLI269))((V678));
5274          V661= CMPcar((V660));          V692= CMPcar((V691));
5275          goto T1509;          goto T1509;
5276  T1509:;  T1509:;
5277          if(!(((V660))==Cnil)){          if(!(((V691))==Cnil)){
5278          goto T1510;}          goto T1510;}
5279          V654= Cnil;          V685= Cnil;
5280          goto T1502;          goto T1502;
5281          goto T1510;          goto T1510;
5282  T1510:;  T1510:;
5283          V662= (*(LnkLI270))((V661));          V693 = (V684);
5284          if(!(eql((V653),/* INLINE-ARGS */V662))){          V694= (*(LnkLI270))((V692));
5285            if(!(eql(V693,/* INLINE-ARGS */V694))){
5286          goto T1514;}          goto T1514;}
5287          V654= (V661);          V685= (V692);
5288          goto T1502;          goto T1502;
5289          goto T1514;          goto T1514;
5290  T1514:;  T1514:;
5291          V660= CMPcdr((V660));          V691= CMPcdr((V691));
5292          V661= CMPcar((V660));          V692= CMPcar((V691));
5293          goto T1509;}          goto T1509;}
5294          goto T1504;          goto T1504;
5295  T1504:;  T1504:;
5296          V654= (*(LnkLI271))((V647),(V653));          V685= (*(LnkLI271))((V678),(V684));
5297          goto T1502;          goto T1502;
5298  T1502:;  T1502:;
5299          if(((V654))==Cnil){          if(((V685))==Cnil){
5300          goto T1523;}          goto T1523;}
5301          if(((V652))!=Cnil){          if(((V683))!=Cnil){
5302          goto T1522;}          goto T1522;}
5303          base[7]= (V654);          base[7]= (V685);
5304          base[8]= (V646);          base[8]= (V677);
5305          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
5306          (void) (*Lnk272)(Lclptr272);          (void) (*Lnk272)(Lclptr272);
5307          vs_top=sup;          vs_top=sup;
# Line 5277  T1502:; Line 5309  T1502:;
5309          goto T1523;}          goto T1523;}
5310          goto T1522;          goto T1522;
5311  T1522:;  T1522:;
5312          if(((V652))==Cnil){          if(((V683))==Cnil){
5313          goto T1533;}          goto T1533;}
5314          base[7]= (*(LnkLI273))((V654));          base[7]= (*(LnkLI273))((V685));
5315          goto T1531;          goto T1531;
5316          goto T1533;          goto T1533;
5317  T1533:;  T1533:;
5318          base[8]= (V654);          base[8]= (V685);
5319          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
5320          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk274)(Lclptr274);
5321          vs_top=sup;          vs_top=sup;
5322          base[7]= vs_base[0];          base[7]= vs_base[0];
5323          goto T1531;          goto T1531;
5324  T1531:;  T1531:;
5325          base[8]= (V646);          base[8]= (V677);
5326          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
5327          return;          return;
5328          goto T1523;          goto T1523;
# Line 5306  static void L96() Line 5338  static void L96()
5338  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
5339          register object *VOL sup=base+VM91; VC91          register object *VOL sup=base+VM91; VC91
5340          vs_check;          vs_check;
5341          {VOL object V663;          {VOL object V695;
5342          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
5343          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
5344          V663=(base[0]);          V695=(base[0]);
5345          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
5346          vs_base=vs_base+2;          vs_base=vs_base+2;
5347          if(vs_base>=vs_top){vs_top=sup;goto T1537;}          if(vs_base>=vs_top){vs_top=sup;goto T1537;}
# Line 5339  T1538:; Line 5371  T1538:;
5371          (base[2]->c.c_car)= vs_base[0];          (base[2]->c.c_car)= vs_base[0];
5372          goto T1540;          goto T1540;
5373  T1540:;  T1540:;
5374          {object V664;          {object V696;
5375          if(((*(LnkLI196))((V663)))==Cnil){          if(((*(LnkLI196))((V695)))==Cnil){
5376          goto T1548;}          goto T1548;}
5377          if(type_of(V663)==t_structure){          if(type_of(V695)==t_structure){
5378          goto T1554;}          goto T1554;}
5379          goto T1552;          goto T1552;
5380          goto T1554;          goto T1554;
5381  T1554:;  T1554:;
5382          if(!(((V663)->str.str_def)==(VV[134]))){          if(!(((V695)->str.str_def)==(VV[134]))){
5383          goto T1552;}          goto T1552;}
5384          V665= STREF(object,(V663),4);          V697= STREF(object,(V695),4);
5385          goto T1550;          goto T1550;
5386          goto T1552;          goto T1552;
5387  T1552:;{object V667;  T1552:;{object V699;
5388          V667= (VV[65]->s.s_dbind);          V699= (VV[65]->s.s_dbind);
5389          base[10]= small_fixnum(14);          base[10]= small_fixnum(14);
5390          base[11]= (V663);          base[11]= (V695);
5391          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5392          (void) (*Lnk197)();          (void) (*Lnk197)();
5393          vs_top=sup;          vs_top=sup;
5394          V668= vs_base[0];          V700= vs_base[0];
5395          if(!((V667)==(CMPcar(V668)))){          if(!((V699)==(CMPcar(V700)))){
5396          goto T1557;}}          goto T1557;}}
5397          V665= CMPcar(((V663))->cc.cc_turbo[12]);          V697= CMPcar(((V695))->cc.cc_turbo[12]);
5398          goto T1550;          goto T1550;
5399          goto T1557;          goto T1557;
5400  T1557:;  T1557:;
# Line 5370  T1557:; Line 5402  T1557:;
5402          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5403          Lerror();          Lerror();
5404          vs_top=sup;          vs_top=sup;
5405          V665= vs_base[0];          V697= vs_base[0];
5406          goto T1550;          goto T1550;
5407  T1550:;  T1550:;
5408          V664= (V665)->v.v_self[fix((VV[67]->s.s_dbind))];          V701 = (VV[67]->s.s_dbind);
5409            V696= (V697)->v.v_self[fix(V701)];
5410          goto T1546;          goto T1546;
5411          goto T1548;          goto T1548;
5412  T1548:;  T1548:;
5413          base[10]= (V663);          base[10]= (V695);
5414          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5415          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
5416          vs_top=sup;          vs_top=sup;
5417          V664= vs_base[0];          V696= vs_base[0];
5418          goto T1546;          goto T1546;
5419  T1546:;  T1546:;
5420          base[6]= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil);          base[6]= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil);
# Line 5391  T1546:; Line 5424  T1546:;
5424          base[7]=MMcons(Cnil,base[6]);          base[7]=MMcons(Cnil,base[6]);
5425          base[8]=MMcons(Cnil,base[7]);          base[8]=MMcons(Cnil,base[7]);
5426          base[9]=MMcons(small_fixnum(0),base[8]);          base[9]=MMcons(small_fixnum(0),base[8]);
5427          {register object V669;          {register object V702;
5428          register object V670;          register object V703;
5429          V669= (V664);          V702= (V696);
5430          V670= CMPcar((V669));          V703= CMPcar((V702));
5431          goto T1569;          goto T1569;
5432  T1569:;  T1569:;
5433          if(!(((V669))==Cnil)){          if(!(((V702))==Cnil)){
5434          goto T1570;}          goto T1570;}
5435          goto T1565;          goto T1565;
5436          goto T1570;          goto T1570;
5437  T1570:;  T1570:;
5438          {object V671;          {object V704;
5439          register object V672;          register object V705;
5440          object V673;          object V706;
5441          if(!(type_of((V670))==t_cons)){          if(!(type_of((V703))==t_cons)){
5442          goto T1577;}          goto T1577;}
5443          V671= (VFUN_NARGS=2,(*(LnkLI275))((V670),Ct));          V704= (VFUN_NARGS=2,(*(LnkLI275))((V703),Ct));
5444          goto T1575;          goto T1575;
5445          goto T1577;          goto T1577;
5446  T1577:;  T1577:;
5447          base[16]= (V670);          base[16]= (V703);
5448          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
5449          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk242)(Lclptr242);
5450          vs_top=sup;          vs_top=sup;
5451          V671= vs_base[0];          V704= vs_base[0];
5452          goto T1575;          goto T1575;
5453  T1575:;  T1575:;
5454          if(!(((base[1]->c.c_car))==(VV[51]))){          if(!(((base[1]->c.c_car))==(VV[51]))){
5455          goto T1582;}          goto T1582;}
5456          base[12]= CMPcar((V671));          base[12]= CMPcar((V704));
5457          goto T1580;          goto T1580;
5458          goto T1582;          goto T1582;
5459  T1582:;  T1582:;
5460          base[12]= CMPcadr((V671));          base[12]= CMPcadr((V704));
5461          goto T1580;          goto T1580;
5462  T1580:;  T1580:;
5463          base[12]=MMcons(base[12],base[9]);          base[12]=MMcons(base[12],base[9]);
5464          if(((base[6]->c.c_car))==Cnil){          if(((base[6]->c.c_car))==Cnil){
5465          goto T1586;}          goto T1586;}
5466          V672= (*(LnkLI263))((base[12]->c.c_car));          V705= (*(LnkLI263))((base[12]->c.c_car));
5467          goto T1584;          goto T1584;
5468          goto T1586;          goto T1586;
5469  T1586:;  T1586:;
# Line 5440  T1586:; Line 5473  T1586:;
5473          vs_top=sup;          vs_top=sup;
5474          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5475          goto T1588;}          goto T1588;}
5476          V672= Cnil;          V705= Cnil;
5477          goto T1584;          goto T1584;
5478          goto T1588;          goto T1588;
5479  T1588:;  T1588:;
# Line 5448  T1588:; Line 5481  T1588:;
5481          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
5482          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
5483          vs_top=sup;          vs_top=sup;
5484          V672= vs_base[0];          V705= vs_base[0];
5485          goto T1584;          goto T1584;
5486  T1584:;  T1584:;
5487          {register object x= (VV[132]->s.s_dbind),V674= (V672);          {register object x= (VV[132]->s.s_dbind),V707= (V705);
5488          while(V674!=Cnil)          while(V707!=Cnil)
5489          if(eql(x,V674->c.c_car)){          if(eql(x,V707->c.c_car)){
5490          base[14]= V674;          base[14]= V707;
5491          goto T1592;          goto T1592;
5492          }else V674=V674->c.c_cdr;          }else V707=V707->c.c_cdr;
5493          base[14]= Cnil;}          base[14]= Cnil;}
5494          goto T1592;          goto T1592;
5495  T1592:;  T1592:;
5496          base[14]=MMcons(base[14],base[12]);          base[14]=MMcons(base[14],base[12]);
5497          if(!(type_of((V670))==t_cons)){          if(!(type_of((V703))==t_cons)){
5498          goto T1595;}          goto T1595;}
5499          if(((*(LnkLI262))((V670)))!=Cnil){          if(((*(LnkLI262))((V703)))!=Cnil){
5500          goto T1597;}          goto T1597;}
5501          V673= Cnil;          V706= Cnil;
5502          goto T1593;          goto T1593;
5503          goto T1597;          goto T1597;
5504  T1597:;  T1597:;
5505          base[16]= (V670);          base[16]= (V703);
5506          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
5507          (void) (*Lnk231)();          (void) (*Lnk231)();
5508          vs_top=sup;          vs_top=sup;
5509          V673= vs_base[0];          V706= vs_base[0];
5510          goto T1593;          goto T1593;
5511          goto T1595;          goto T1595;
5512  T1595:;  T1595:;
5513          base[16]= (V670);          base[16]= (V703);
5514          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
5515          (void) (*Lnk268)(Lclptr268);          (void) (*Lnk268)(Lclptr268);
5516          vs_top=sup;          vs_top=sup;
5517          V673= vs_base[0];          V706= vs_base[0];
5518          goto T1593;          goto T1593;
5519  T1593:;  T1593:;
5520          if(((V672))==Cnil){          if(((V705))==Cnil){
5521          goto T1602;}          goto T1602;}
5522          {register object x= (VV[135]->s.s_dbind),V675= (V672);          {register object x= (VV[135]->s.s_dbind),V708= (V705);
5523          while(V675!=Cnil)          while(V708!=Cnil)
5524          if(eql(x,V675->c.c_car)){          if(eql(x,V708->c.c_car)){
5525          goto T1605;          goto T1605;
5526          }else V675=V675->c.c_cdr;          }else V708=V708->c.c_cdr;
5527          goto T1601;}          goto T1601;}
5528          goto T1605;          goto T1605;
5529  T1605:;  T1605:;
# Line 5504  T1602:; Line 5537  T1602:;
5537  T1601:;  T1601:;
5538          base[16]=          base[16]=
5539          make_cclosure_new(LC162,Cnil,base[14],Cdata);          make_cclosure_new(LC162,Cnil,base[14],Cdata);
5540          base[18]= (V673);          base[18]= (V706);
5541          base[19]= (VV[136]->s.s_dbind);          base[19]= (VV[136]->s.s_dbind);
5542          vs_top=(vs_base=base+18)+2;          vs_top=(vs_base=base+18)+2;
5543          Lgethash();          Lgethash();
# Line 5513  T1601:; Line 5546  T1601:;
5546          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
5547          Lmaphash();          Lmaphash();
5548          vs_top=sup;}          vs_top=sup;}
5549          V669= CMPcdr((V669));          V702= CMPcdr((V702));
5550          V670= CMPcar((V669));          V703= CMPcar((V702));
5551          goto T1569;}          goto T1569;}
5552          goto T1565;          goto T1565;
5553  T1565:;  T1565:;
# Line 5542  static void L97() Line 5575  static void L97()
5575  {register object *base=vs_base;  {register object *base=vs_base;
5576          register object *sup=base+VM92; VC92          register object *sup=base+VM92; VC92
5577          vs_check;          vs_check;
5578          {object V676;          {object V709;
5579          object V677;          object V710;
5580          check_arg(2);          check_arg(2);
5581          V676=(base[0]);          V709=(base[0]);
5582          V677=(base[1]);          V710=(base[1]);
5583          vs_top=sup;          vs_top=sup;
5584          goto TTL;          goto TTL;
5585  TTL:;  TTL:;
5586          {object V678;          {object V711;
5587          object V679;          object V712;
5588          V678= Ct;          V711= Ct;
5589          V679= Cnil;          V712= Cnil;
5590          {register object V680;          {register object V713;
5591          register object V681;          register object V714;
5592          if(((*(LnkLI196))((V676)))==Cnil){          if(((*(LnkLI196))((V709)))==Cnil){
5593          goto T1627;}          goto T1627;}
5594          if(type_of(V676)==t_structure){          if(type_of(V709)==t_structure){
5595          goto T1633;}          goto T1633;}
5596          goto T1631;          goto T1631;
5597          goto T1633;          goto T1633;
5598  T1633:;  T1633:;
5599          if(!(((V676)->str.str_def)==(VV[138]))){          if(!(((V709)->str.str_def)==(VV[138]))){
5600          goto T1631;}          goto T1631;}
5601          V682= STREF(object,(V676),4);          V715= STREF(object,(V709),4);
5602          goto T1629;          goto T1629;
5603          goto T1631;          goto T1631;
5604  T1631:;{object V684;  T1631:;{object V717;
5605          V684= (VV[65]->s.s_dbind);          V717= (VV[65]->s.s_dbind);
5606          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
5607          base[5]= (V676);          base[5]= (V709);
5608          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5609          (void) (*Lnk197)();          (void) (*Lnk197)();
5610          vs_top=sup;          vs_top=sup;
5611          V685= vs_base[0];          V718= vs_base[0];
5612          if(!((V684)==(CMPcar(V685)))){          if(!((V717)==(CMPcar(V718)))){
5613          goto T1636;}}          goto T1636;}}
5614          V682= CMPcar(((V676))->cc.cc_turbo[12]);          V715= CMPcar(((V709))->cc.cc_turbo[12]);
5615          goto T1629;          goto T1629;
5616          goto T1636;          goto T1636;
5617  T1636:;  T1636:;
# Line 5586  T1636:; Line 5619  T1636:;
5619          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5620          Lerror();          Lerror();
5621          vs_top=sup;          vs_top=sup;
5622          V682= vs_base[0];          V715= vs_base[0];
5623          goto T1629;          goto T1629;
5624  T1629:;  T1629:;
5625          V680= (V682)->v.v_self[fix((VV[67]->s.s_dbind))];          V719 = (VV[67]->s.s_dbind);
5626            V713= (V715)->v.v_self[fix(V719)];
5627          goto T1625;          goto T1625;
5628          goto T1627;          goto T1627;
5629  T1627:;  T1627:;
5630          base[4]= (V676);          base[4]= (V709);
5631          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5632          (void) (*Lnk199)(Lclptr199);          (void) (*Lnk199)(Lclptr199);
5633          vs_top=sup;          vs_top=sup;
5634          V680= vs_base[0];          V713= vs_base[0];
5635          goto T1625;          goto T1625;
5636  T1625:;  T1625:;
5637          V681= CMPcar((V680));          V714= CMPcar((V713));
5638          goto T1645;          goto T1645;
5639  T1645:;  T1645:;
5640          if(!(((V680))==Cnil)){          if(!(((V713))==Cnil)){
5641          goto T1646;}          goto T1646;}
5642          goto T1624;          goto T1624;
5643          goto T1646;          goto T1646;
5644  T1646:;  T1646:;
5645          {object V686;          {object V720;
5646          register object V687;          register object V721;
5647          register object V688;          register object V722;
5648          register object V689;          register object V723;
5649          if(!(type_of((V681))==t_cons)){          if(!(type_of((V714))==t_cons)){
5650          goto T1653;}          goto T1653;}
5651          V686= (VFUN_NARGS=2,(*(LnkLI275))((V681),Ct));          V720= (VFUN_NARGS=2,(*(LnkLI275))((V714),Ct));
5652          goto T1651;          goto T1651;
5653          goto T1653;          goto T1653;
5654  T1653:;  T1653:;
5655          base[4]= (V681);          base[4]= (V714);
5656          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5657          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk242)(Lclptr242);
5658          vs_top=sup;          vs_top=sup;
5659          V686= vs_base[0];          V720= vs_base[0];
5660          goto T1651;          goto T1651;
5661  T1651:;  T1651:;
5662          V687= (V677);          V721= (V710);
5663          V688= Ct;          V722= Ct;
5664          V689= Ct;          V723= Ct;
5665          {register object V690;          {register object V724;
5666          register object V691;          register object V725;
5667          V690= (V686);          V724= (V720);
5668          V691= CMPcar((V690));          V725= CMPcar((V724));
5669          goto T1660;          goto T1660;
5670  T1660:;  T1660:;
5671          if(!(((V690))==Cnil)){          if(!(((V724))==Cnil)){
5672          goto T1661;}          goto T1661;}
5673          goto T1656;          goto T1656;
5674          goto T1661;          goto T1661;
5675  T1661:;  T1661:;
5676          {object V692;          {object V726;
5677          object V693;          object V727;
5678          base[5]= (V691);          base[5]= (V725);
5679          {object V694;          {object V728;
5680          V694= CMPcar((V687));          V728= CMPcar((V721));
5681          V687= CMPcdr((V687));          V721= CMPcdr((V721));
5682          base[6]= (V694);}          base[6]= (V728);}
5683          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
5684          (void) (*Lnk146)();          (void) (*Lnk146)();
5685          if(vs_base>=vs_top){vs_top=sup;goto T1672;}          if(vs_base>=vs_top){vs_top=sup;goto T1672;}
5686          V692= vs_base[0];          V726= vs_base[0];
5687          vs_base++;          vs_base++;
5688          if(vs_base>=vs_top){vs_top=sup;goto T1673;}          if(vs_base>=vs_top){vs_top=sup;goto T1673;}
5689          V693= vs_base[0];          V727= vs_base[0];
5690          vs_top=sup;          vs_top=sup;
5691          goto T1674;          goto T1674;
5692          goto T1672;          goto T1672;
5693  T1672:;  T1672:;
5694          V692= Cnil;          V726= Cnil;
5695          goto T1673;          goto T1673;
5696  T1673:;  T1673:;
5697          V693= Cnil;          V727= Cnil;
5698          goto T1674;          goto T1674;
5699  T1674:;  T1674:;
5700          if(((V692))!=Cnil){          if(((V726))!=Cnil){
5701          goto T1675;}          goto T1675;}
5702          V689= Cnil;          V723= Cnil;
5703          goto T1675;          goto T1675;
5704  T1675:;  T1675:;
5705          if(((V693))!=Cnil){          if(((V727))!=Cnil){
5706          goto T1665;}          goto T1665;}
5707          V688= Cnil;          V722= Cnil;
5708          goto T1656;}          goto T1656;}
5709          goto T1665;          goto T1665;
5710  T1665:;  T1665:;
5711          V690= CMPcdr((V690));          V724= CMPcdr((V724));
5712          V691= CMPcar((V690));          V725= CMPcar((V724));
5713          goto T1660;}          goto T1660;}
5714          goto T1656;          goto T1656;
5715  T1656:;  T1656:;
5716          if(((V688))==Cnil){          if(((V722))==Cnil){
5717          goto T1650;}          goto T1650;}
5718          if(((V689))!=Cnil){          if(((V723))!=Cnil){
5719          goto T1690;}          goto T1690;}
5720          V678= Cnil;          V711= Cnil;
5721          goto T1690;          goto T1690;
5722  T1690:;  T1690:;
5723          V679= make_cons(V681,(V679));}          V712= make_cons(V714,(V712));}
5724          goto T1650;          goto T1650;
5725  T1650:;  T1650:;
5726          V680= CMPcdr((V680));          V713= CMPcdr((V713));
5727          V681= CMPcar((V680));          V714= CMPcar((V713));
5728          goto T1645;}          goto T1645;}
5729          goto T1624;          goto T1624;
5730  T1624:;  T1624:;
5731          {object V696;          {object V730;
5732          if(((*(LnkLI196))((V676)))==Cnil){          if(((*(LnkLI196))((V709)))==Cnil){
5733          goto T1703;}          goto T1703;}
5734          if(type_of(V676)==t_structure){          if(type_of(V709)==t_structure){
5735          goto T1709;}          goto T1709;}
5736          goto T1707;          goto T1707;
5737          goto T1709;          goto T1709;
5738  T1709:;  T1709:;
5739          if(!(((V676)->str.str_def)==(VV[139]))){          if(!(((V709)->str.str_def)==(VV[139]))){
5740          goto T1707;}          goto T1707;}
5741          V698= STREF(object,(V676),4);          V732= STREF(object,(V709),4);
5742          goto T1705;          goto T1705;
5743          goto T1707;          goto T1707;
5744  T1707:;{object V700;  T1707:;{object V734;
5745          V700= (VV[65]->s.s_dbind);          V734= (VV[65]->s.s_dbind);
5746          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
5747          base[3]= (V676);          base[3]= (V709);
5748          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5749          (void) (*Lnk197)();          (void) (*Lnk197)();
5750          vs_top=sup;          vs_top=sup;
5751          V701= vs_base[0];          V735= vs_base[0];
5752          if(!((V700)==(CMPcar(V701)))){          if(!((V734)==(CMPcar(V735)))){
5753          goto T1712;}}          goto T1712;}}
5754          V698= CMPcar(((V676))->cc.cc_turbo[12]);          V732= CMPcar(((V709))->cc.cc_turbo[12]);
5755          goto T1705;          goto T1705;
5756          goto T1712;          goto T1712;
5757  T1712:;  T1712:;
# Line 5725  T1712:; Line 5759  T1712:;
5759          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5760          Lerror();          Lerror();
5761          vs_top=sup;          vs_top=sup;
5762          V698= vs_base[0];          V732= vs_base[0];
5763          goto T1705;          goto T1705;
5764  T1705:;  T1705:;
5765          V697= (V698)->v.v_self[fix((VV[97]->s.s_dbind))];          V736 = (VV[97]->s.s_dbind);
5766            V731= (V732)->v.v_self[fix(V736)];
5767          goto T1701;          goto T1701;
5768          goto T1703;          goto T1703;
5769  T1703:;  T1703:;
5770          base[2]= (V676);          base[2]= (V709);
5771          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5772          (void) (*Lnk161)(Lclptr161);          (void) (*Lnk161)(Lclptr161);
5773          vs_top=sup;          vs_top=sup;
5774          V697= vs_base[0];          V731= vs_base[0];
5775          goto T1701;          goto T1701;
5776  T1701:;  T1701:;
5777          V696= STREF(object,V697,4);          V730= STREF(object,V731,4);
5778          V702= nreverse((V679));          V737 = (V730);
5779          base[2]= (*(LnkLI277))((V696),/* INLINE-ARGS */V702,(V677));          V738= nreverse((V712));
5780          base[3]= (V678);          V739 = (V710);
5781            base[2]= (*(LnkLI277))(V737,/* INLINE-ARGS */V738,V739);
5782            base[3]= (V711);
5783          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5784          return;}}          return;}}
5785          }          }
5786  }  }
5787  /*      local entry for function SORT-APPLICABLE-METHODS        */  /*      local entry for function SORT-APPLICABLE-METHODS        */
5788    
5789  static object LI99(V706,V707,V708)  static object LI99(V743,V744,V745)
5790    
5791  object V706;object V707;object V708;  object V743;object V744;object V745;
5792  {        VMB93 VMS93 VMV93  {        VMB93 VMS93 VMV93
5793          goto TTL;          goto TTL;
5794  TTL:;  TTL:;
5795          base[0]=MMcons((V708),Cnil);          base[0]=MMcons((V745),Cnil);
5796          V709=          V746 = (V744);
5797            V747 = (V743);
5798            V748=
5799          make_cclosure_new(LC164,Cnil,base[0],Cdata);          make_cclosure_new(LC164,Cnil,base[0],Cdata);
5800          {object V710 = (*(LnkLI278))((V707),(V706),V709);          {object V749 = (*(LnkLI278))(V746,V747,V748);
5801          VMR93(V710)}          VMR93(V749)}
5802          base[0]=base[0];          base[0]=base[0];
5803          return Cnil;          return Cnil;
5804  }  }
5805  /*      local entry for function SORT-METHODS   */  /*      local entry for function SORT-METHODS   */
5806    
5807  static object LI102(V714,V715,V716)  static object LI102(V753,V754,V755)
5808    
5809  object V714;object V715;object V716;  object V753;object V754;object V755;
5810  {        VMB94 VMS94 VMV94  {        VMB94 VMS94 VMV94
5811          goto TTL;          goto TTL;
5812  TTL:;  TTL:;
5813          base[0]=MMcons((V716),Cnil);          base[0]=MMcons((V755),Cnil);
5814          base[1]=MMcons((V715),base[0]);          base[1]=MMcons((V754),base[0]);
5815          base[2]=make_cclosure_new(LC103,Cnil,base[1],Cdata);          base[2]=make_cclosure_new(LC103,Cnil,base[1],Cdata);
5816          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
5817          base[3]= (V714);          base[3]= (V753);
5818          base[4]= (base[2]->c.c_car);          base[4]= (base[2]->c.c_car);
5819          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5820          (void) (*Lnk279)();          (void) (*Lnk279)();
5821          vs_top=sup;          vs_top=sup;
5822          {object V717 = vs_base[0];          {object V756 = vs_base[0];
5823          VMR94(V717)}          VMR94(V756)}
5824          base[0]=base[0];          base[0]=base[0];
5825          return Cnil;          return Cnil;
5826  }  }
# Line 5791  static void L104() Line 5830  static void L104()
5830  {register object *base=vs_base;  {register object *base=vs_base;
5831          register object *sup=base+VM95; VC95          register object *sup=base+VM95; VC95
5832          vs_check;          vs_check;
5833          {register object V718;          {register object V757;
5834          register object V719;          register object V758;
5835          object V720;          object V759;
5836          object V721;          object V760;
5837          check_arg(4);          check_arg(4);
5838          V718=(base[0]);          V757=(base[0]);
5839          V719=(base[1]);          V758=(base[1]);
5840          V720=(base[2]);          V759=(base[2]);
5841          V721=(base[3]);          V760=(base[3]);
5842          vs_top=sup;          vs_top=sup;
5843          goto TTL;          goto TTL;
5844  TTL:;  TTL:;
5845          {object V722;          {object V761;
5846          register object V723;          register object V762;
5847          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[72]->s.s_dbind))==(VV[73]))){
5848          goto T1726;}          goto T1726;}
5849          base[4]= (V718);          base[4]= (V757);
5850          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5851          (void) (*Lnk280)(Lclptr280);          (void) (*Lnk280)(Lclptr280);
5852          vs_top=sup;          vs_top=sup;
5853          V722= vs_base[0];          V761= vs_base[0];
5854          goto T1724;          goto T1724;
5855          goto T1726;          goto T1726;
5856  T1726:;  T1726:;
5857          if(type_of(V718)==t_structure){          if(type_of(V757)==t_structure){
5858          goto T1733;}          goto T1733;}
5859          goto T1731;          goto T1731;
5860          goto T1733;          goto T1733;
5861  T1733:;  T1733:;
5862          if(!(((V718)->str.str_def)==(VV[140]))){          if(!(((V757)->str.str_def)==(VV[140]))){
5863          goto T1731;}          goto T1731;}
5864          V724= STREF(object,(V718),4);          V763= STREF(object,(V757),4);
5865          goto T1729;          goto T1729;
5866          goto T1731;          goto T1731;
5867  T1731:;{object V726;  T1731:;{object V765;
5868          V726= (VV[65]->s.s_dbind);          V765= (VV[65]->s.s_dbind);
5869          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
5870          base[5]= (V718);          base[5]= (V757);
5871          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5872          (void) (*Lnk197)();          (void) (*Lnk197)();
5873          vs_top=sup;          vs_top=sup;
5874          V727= vs_base[0];          V766= vs_base[0];
5875          if(!((V726)==(CMPcar(V727)))){          if(!((V765)==(CMPcar(V766)))){
5876          goto T1736;}}          goto T1736;}}
5877          V724= CMPcar(((V718))->cc.cc_turbo[12]);          V763= CMPcar(((V757))->cc.cc_turbo[12]);
5878          goto T1729;          goto T1729;
5879          goto T1736;          goto T1736;
5880  T1736:;  T1736:;
# Line 5843  T1736:; Line 5882  T1736:;
5882          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5883          Lerror();          Lerror();
5884          vs_top=sup;          vs_top=sup;
5885          V724= vs_base[0];          V763= vs_base[0];
5886          goto T1729;          goto T1729;
5887  T1729:;  T1729:;
5888          V728= (*(LnkLI281))(VV[141],VV[142]);          V767= (*(LnkLI281))(VV[141],VV[142]);
5889          V722= (V724)->v.v_self[fix(/* INLINE-ARGS */V728)];          V761= (V763)->v.v_self[fix(/* INLINE-ARGS */V767)];
5890          goto T1724;          goto T1724;
5891  T1724:;  T1724:;
5892          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[72]->s.s_dbind))==(VV[73]))){
5893          goto T1744;}          goto T1744;}
5894          base[4]= (V719);          base[4]= (V758);
5895          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5896          (void) (*Lnk280)(Lclptr280);          (void) (*Lnk280)(Lclptr280);
5897          vs_top=sup;          vs_top=sup;
5898          V723= vs_base[0];          V762= vs_base[0];
5899          goto T1742;          goto T1742;
5900          goto T1744;          goto T1744;
5901  T1744:;  T1744:;
5902          if(type_of(V719)==t_structure){          if(type_of(V758)==t_structure){
5903          goto T1751;}          goto T1751;}
5904          goto T1749;          goto T1749;
5905          goto T1751;          goto T1751;
5906  T1751:;  T1751:;
5907          if(!(((V719)->str.str_def)==(VV[143]))){          if(!(((V758)->str.str_def)==(VV[143]))){
5908          goto T1749;}          goto T1749;}
5909          V729= STREF(object,(V719),4);          V768= STREF(object,(V758),4);
5910          goto T1747;          goto T1747;
5911          goto T1749;          goto T1749;
5912  T1749:;{object V731;  T1749:;{object V770;
5913          V731= (VV[65]->s.s_dbind);          V770= (VV[65]->s.s_dbind);
5914          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
5915          base[5]= (V719);          base[5]= (V758);
5916          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5917          (void) (*Lnk197)();          (void) (*Lnk197)();
5918          vs_top=sup;          vs_top=sup;
5919          V732= vs_base[0];          V771= vs_base[0];
5920          if(!((V731)==(CMPcar(V732)))){          if(!((V770)==(CMPcar(V771)))){
5921          goto T1754;}}          goto T1754;}}
5922          V729= CMPcar(((V719))->cc.cc_turbo[12]);          V768= CMPcar(((V758))->cc.cc_turbo[12]);
5923          goto T1747;          goto T1747;
5924          goto T1754;          goto T1754;
5925  T1754:;  T1754:;
# Line 5888  T1754:; Line 5927  T1754:;
5927          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5928          Lerror();          Lerror();
5929          vs_top=sup;          vs_top=sup;
5930          V729= vs_base[0];          V768= vs_base[0];
5931          goto T1747;          goto T1747;
5932  T1747:;  T1747:;
5933          V733= (*(LnkLI281))(VV[141],VV[142]);          V772= (*(LnkLI281))(VV[141],VV[142]);
5934          V723= (V729)->v.v_self[fix(/* INLINE-ARGS */V733)];          V762= (V768)->v.v_self[fix(/* INLINE-ARGS */V772)];
5935          goto T1742;          goto T1742;
5936  T1742:;  T1742:;
5937          if(!(((V718))==((V719)))){          if(!(((V757))==((V758)))){
5938          goto T1761;}          goto T1761;}
5939          base[4]= Cnil;          base[4]= Cnil;
5940          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5941          return;          return;
5942          goto T1761;          goto T1761;
5943  T1761:;  T1761:;
5944          if(!(type_of((V722))!=t_cons)){          if(!(type_of((V761))!=t_cons)){
5945          goto T1764;}          goto T1764;}
5946          base[4]= (V719);          base[4]= (V758);
5947          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5948          return;          return;
5949          goto T1764;          goto T1764;
5950  T1764:;  T1764:;
5951          if(!(type_of((V723))!=t_cons)){          if(!(type_of((V762))!=t_cons)){
5952          goto T1767;}          goto T1767;}
5953          base[4]= (V718);          base[4]= (V757);
5954          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5955          return;          return;
5956          goto T1767;          goto T1767;
5957  T1767:;  T1767:;
5958          {object V734= CMPcar((V722));          {object V773= CMPcar((V761));
5959          if((V734!= VV[10]))goto T1769;          if((V773!= VV[10]))goto T1769;
5960          {object V735= CMPcar((V723));          {object V774= CMPcar((V762));
5961          if((V735!= VV[10]))goto T1770;          if((V774!= VV[10]))goto T1770;
5962          base[4]= (V718);          base[4]= (V757);
5963          base[5]= (V719);          base[5]= (V758);
5964          base[6]= (V720);          base[6]= (V759);
5965          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
5966          {object _funobj = (V721);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V760);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5967                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5968                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5969                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5970          return;          return;
5971          goto T1770;          goto T1770;
5972  T1770:;  T1770:;
5973          base[4]= (V719);          base[4]= (V758);
5974          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5975          return;}          return;}
5976          goto T1769;          goto T1769;
5977  T1769:;  T1769:;
5978          if((V734!= VV[282]))goto T1774;          if((V773!= VV[282]))goto T1774;
5979          {object V736= CMPcar((V723));          {object V775= CMPcar((V762));
5980          if((V736!= VV[10]))goto T1775;          if((V775!= VV[10]))goto T1775;
5981          base[4]= (V718);          base[4]= (V757);
5982          base[5]= (V719);          base[5]= (V758);
5983          base[6]= (V720);          base[6]= (V759);
5984          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
5985          {object _funobj = (V721);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V760);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5986                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
5987                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
5988                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
5989          return;          return;
5990          goto T1775;          goto T1775;
5991  T1775:;  T1775:;
5992          base[4]= (V719);          base[4]= (V758);
5993          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5994          return;}          return;}
5995          goto T1774;          goto T1774;
5996  T1774:;  T1774:;
5997          if((V734!= VV[130]))goto T1779;          if((V773!= VV[130]))goto T1779;
5998          {object V737= CMPcar((V723));          {object V776= CMPcar((V762));
5999          if((V737!= VV[147]))goto T1780;          if((V776!= VV[147]))goto T1780;
6000          base[4]= (V719);          base[4]= (V758);
6001          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6002          return;          return;
6003          goto T1780;          goto T1780;
6004  T1780:;  T1780:;
6005          if((V737!= VV[130]))goto T1781;          if((V776!= VV[130]))goto T1781;
6006          base[4]= Cnil;          base[4]= Cnil;
6007          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6008          return;          return;
6009          goto T1781;          goto T1781;
6010  T1781:;  T1781:;
6011          if((V737!= VV[10]))goto T1782;          if((V776!= VV[10]))goto T1782;
6012          base[4]= (V722);          base[4]= (V761);
6013          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6014          return;          return;
6015          goto T1782;          goto T1782;
# Line 5980  T1782:; Line 6019  T1782:;
6019          return;}          return;}
6020          goto T1779;          goto T1779;
6021  T1779:;  T1779:;
6022          if((V734!= VV[147]))goto T1783;          if((V773!= VV[147]))goto T1783;
6023          {object V738= CMPcar((V723));          {object V777= CMPcar((V762));
6024          if((V738!= VV[147]))goto T1784;          if((V777!= VV[147]))goto T1784;
6025          base[4]= Cnil;          base[4]= Cnil;
6026          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6027          return;          return;
6028          goto T1784;          goto T1784;
6029  T1784:;  T1784:;
6030          base[4]= (V718);          base[4]= (V757);
6031          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6032          return;}          return;}
6033          goto T1783;          goto T1783;
# Line 6000  T1783:; Line 6039  T1783:;
6039  }  }
6040  /*      local entry for function MAP-ALL-ORDERS */  /*      local entry for function MAP-ALL-ORDERS */
6041    
6042  static object LI105(V742,V743,V744)  static object LI105(V781,V782,V783)
6043    
6044  object V742;object V743;object V744;  object V781;object V782;object V783;
6045  {        VMB96 VMS96 VMV96  {        VMB96 VMS96 VMV96
6046          goto TTL;          goto TTL;
6047  TTL:;  TTL:;
# Line 6011  TTL:; Line 6050  TTL:;
6050          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
6051          goto T1786;          goto T1786;
6052  T1786:;  T1786:;
6053          V745= (base[1]->c.c_car);          V784 = (V783);
6054          V746= (*(LnkLI278))((V742),(V743),V745);          V785 = (V781);
6055            V786 = (V782);
6056            V787= (base[1]->c.c_car);
6057            V788= (*(LnkLI278))(V785,V786,V787);
6058          (void)((          (void)((
6059          (type_of((V744)) == t_sfun ?(*(((V744))->sfn.sfn_self)):          V789 = V784,
6060          (fcall.argd=1,type_of((V744))==t_vfun) ?          (type_of(V789) == t_sfun ?(*((V789)->sfn.sfn_self)):
6061          (*(((V744))->sfn.sfn_self)):          (fcall.argd=1,type_of(V789)==t_vfun) ?
6062          (fcall.fun=((V744)),fcalln))(/* INLINE-ARGS */V746)));          (*((V789)->sfn.sfn_self)):
6063          {register object V747;          (fcall.fun=(V789),fcalln))(/* INLINE-ARGS */V788)));
6064          register object V748;          {register object V790;
6065          V747= (base[0]->c.c_car);          register object V791;
6066          V748= CMPcar((V747));          V790= (base[0]->c.c_car);
6067            V791= CMPcar((V790));
6068          goto T1795;          goto T1795;
6069  T1795:;  T1795:;
6070          if(!(((V747))==Cnil)){          if(!(((V790))==Cnil)){
6071          goto T1796;}          goto T1796;}
6072          goto T1791;          goto T1791;
6073          goto T1796;          goto T1796;
6074  T1796:;  T1796:;
6075          if((CMPcaddr((V748)))!=Cnil){          if((CMPcaddr((V791)))!=Cnil){
6076          goto T1800;}          goto T1800;}
6077          {register object V749;          {register object V792;
6078          register object V750;          register object V793;
6079          register object V751;          register object V794;
6080          register object V752;          register object V795;
6081          V749= (V748);          V792= (V791);
6082          V750= (V748);          V793= (V791);
6083          V751= CMPcadr((V750));          V794= CMPcadr((V793));
6084          V752= CMPcar((V749));          V795= CMPcar((V792));
6085          ((V749))->c.c_car = (V751);          ((V792))->c.c_car = (V794);
6086          (CMPcdr((V750)))->c.c_car = (V752);          (CMPcdr((V793)))->c.c_car = (V795);
6087          (void)(CMPcdr((V750)));}          (void)(CMPcdr((V793)));}
6088          {register object V754;          {register object V797;
6089          V754= Ct;          V797= Ct;
6090          (CMPcddr(V748))->c.c_car = (V754);          (CMPcddr(V791))->c.c_car = (V797);
6091          (void)(CMPcddr(V748));          (void)(CMPcddr(V791));
6092          if(((V754))!=Cnil){          if(((V797))!=Cnil){
6093          goto T1787;}          goto T1787;}
6094          goto T1791;}          goto T1791;}
6095          goto T1800;          goto T1800;
6096  T1800:;  T1800:;
6097          V747= CMPcdr((V747));          V790= CMPcdr((V790));
6098          V748= CMPcar((V747));          V791= CMPcar((V790));
6099          goto T1795;}          goto T1795;}
6100          goto T1791;          goto T1791;
6101  T1791:;  T1791:;
6102          {object V755 = Cnil;          {object V798 = Cnil;
6103          VMR96(V755)}          VMR96(V798)}
6104          goto T1787;          goto T1787;
6105  T1787:;  T1787:;
6106          goto T1786;          goto T1786;
# Line 6066  T1787:; Line 6109  T1787:;
6109  }  }
6110  /*      local entry for function CLASS-MIGHT-PRECEDE-P  */  /*      local entry for function CLASS-MIGHT-PRECEDE-P  */
6111    
6112  static object LI107(V758,V759)  static object LI107(V801,V802)
6113    
6114  object V758;object V759;  object V801;object V802;
6115  {        VMB97 VMS97 VMV97  {        VMB97 VMS97 VMV97
6116          goto TTL;          goto TTL;
6117  TTL:;  TTL:;
6118          if(((VV[144]->s.s_dbind))!=Cnil){          if(((VV[144]->s.s_dbind))!=Cnil){
6119          goto T1821;}          goto T1821;}
6120          base[0]= (V759);          base[0]= (V802);
6121          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6122          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
6123          vs_top=sup;          vs_top=sup;
6124          V762= vs_base[0];          V805= vs_base[0];
6125          {register object x= (V758),V761= CMPcdr(V762);          {register object x= (V801),V804= CMPcdr(V805);
6126          while(V761!=Cnil)          while(V804!=Cnil)
6127          if(eql(x,V761->c.c_car)){          if(eql(x,V804->c.c_car)){
6128          V760= V761;          V803= V804;
6129          goto T1823;          goto T1823;
6130          }else V761=V761->c.c_cdr;          }else V804=V804->c.c_cdr;
6131          V760= Cnil;}          V803= Cnil;}
6132          goto T1823;          goto T1823;
6133  T1823:;  T1823:;
6134          {object V763 = ((V760)==Cnil?Ct:Cnil);          {object V806 = ((V803)==Cnil?Ct:Cnil);
6135          VMR97(V763)}          VMR97(V806)}
6136          goto T1821;          goto T1821;
6137  T1821:;  T1821:;
6138          {object V764 = (*(LnkLI283))((V758),(V759));          {object V807 = (*(LnkLI283))((V801),(V802));
6139          VMR97(V764)}          VMR97(V807)}
6140          base[0]=base[0];          base[0]=base[0];
6141          return Cnil;          return Cnil;
6142  }  }
6143  /*      local entry for function COMPUTE-PRECEDENCE     */  /*      local entry for function COMPUTE-PRECEDENCE     */
6144    
6145  static object LI108(V768,V769,V770)  static object LI108(V811,V812,V813)
6146    
6147  object V768;register object V769;object V770;  object V811;register object V812;object V813;
6148  {        VMB98 VMS98 VMV98  {        VMB98 VMS98 VMV98
6149          goto TTL;          goto TTL;
6150  TTL:;  TTL:;
6151          if(((V770))!=Cnil){          if(((V813))!=Cnil){
6152          goto T1827;}          goto T1827;}
6153          {register object V771;          {register object V814;
6154          V771= Cnil;          V814= Cnil;
6155          {register long V772;          {register long V815;
6156          register long V773;          register long V816;
6157          V772= fix((V769));          V815= fix((V812));
6158          V773= 0;          V816= 0;
6159          goto T1832;          goto T1832;
6160  T1832:;  T1832:;
6161          if(!((V773)>=(V772))){          if(!((V816)>=(V815))){
6162          goto T1833;}          goto T1833;}
6163          {object V774 = (V771);          {object V817 = (V814);
6164          VMR98(V774)}          VMR98(V817)}
6165          goto T1833;          goto T1833;
6166  T1833:;  T1833:;
6167          {register object V775;          {register object V818;
6168          V776= one_minus((V769));          V819= one_minus((V812));
6169          V777 = CMPmake_fixnum(V773);          V820 = CMPmake_fixnum(V816);
6170          V775= number_minus(/* INLINE-ARGS */V776,V777);          V818= number_minus(/* INLINE-ARGS */V819,V820);
6171          V771= make_cons((V775),(V771));}          V814= make_cons((V818),(V814));}
6172          V773= (long)(V773)+1;          V816= (long)(V816)+1;
6173          goto T1832;}}          goto T1832;}}
6174          goto T1827;          goto T1827;
6175  T1827:;  T1827:;
6176          {object V778;          {object V821;
6177          object V779= (V770);          object V822= (V813);
6178          if(V779==Cnil){          if(V822==Cnil){
6179          {object V780 = Cnil;          {object V823 = Cnil;
6180          VMR98(V780)}}          VMR98(V823)}}
6181          base[0]=V778=MMcons(Cnil,Cnil);          base[0]=V821=MMcons(Cnil,Cnil);
6182          goto T1842;          goto T1842;
6183  T1842:;  T1842:;
6184          base[1]= (V779->c.c_car);          base[1]= (V822->c.c_car);
6185          base[2]= (V768);          base[2]= (V811);
6186          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6187          (void) (*Lnk284)();          (void) (*Lnk284)();
6188          vs_top=sup;          vs_top=sup;
6189          (V778->c.c_car)= vs_base[0];          (V821->c.c_car)= vs_base[0];
6190          if((V779=MMcdr(V779))==Cnil){          if((V822=MMcdr(V822))==Cnil){
6191          {object V782 = base[0];          {object V825 = base[0];
6192          VMR98(V782)}}          VMR98(V825)}}
6193          V778=MMcdr(V778)=MMcons(Cnil,Cnil);          V821=MMcdr(V821)=MMcons(Cnil,Cnil);
6194          goto T1842;}          goto T1842;}
6195          base[0]=base[0];          base[0]=base[0];
6196          return Cnil;          return Cnil;
# Line 6158  static void L109() Line 6201  static void L109()
6201  {register object *base=vs_base;  {register object *base=vs_base;
6202          register object *sup=base+VM99; VC99          register object *sup=base+VM99; VC99
6203          vs_check;          vs_check;
6204          {object V783;          {object V826;
6205          object V784;          object V827;
6206          check_arg(2);          check_arg(2);
6207          V783=(base[0]);          V826=(base[0]);
6208          V784=(base[1]);          V827=(base[1]);
6209          vs_top=sup;          vs_top=sup;
6210          goto TTL;          goto TTL;
6211  TTL:;  TTL:;
6212          {register object V785;          {register object V828;
6213          register object V786;          register object V829;
6214          V785= Cnil;          V828= Cnil;
6215          V786= Ct;          V829= Ct;
6216          {register object V787;          {register object V830;
6217          register object V788;          register object V831;
6218          V787= CMPcdr((V784));          V830= CMPcdr((V827));
6219          V788= CMPcar((V787));          V831= CMPcar((V830));
6220          goto T1850;          goto T1850;
6221  T1850:;  T1850:;
6222          if(!(((V787))==Cnil)){          if(!(((V830))==Cnil)){
6223          goto T1851;}          goto T1851;}
6224          goto T1846;          goto T1846;
6225          goto T1851;          goto T1851;
6226  T1851:;  T1851:;
6227          {register object V789;          {register object V832;
6228          register object V790;          register object V833;
6229          base[4]= (V783);          base[4]= (V826);
6230          base[5]= (V788);          base[5]= (V831);
6231          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
6232          (void) (*Lnk146)();          (void) (*Lnk146)();
6233          if(vs_base>=vs_top){vs_top=sup;goto T1859;}          if(vs_base>=vs_top){vs_top=sup;goto T1859;}
6234          V789= vs_base[0];          V832= vs_base[0];
6235          vs_base++;          vs_base++;
6236          if(vs_base>=vs_top){vs_top=sup;goto T1860;}          if(vs_base>=vs_top){vs_top=sup;goto T1860;}
6237          V790= vs_base[0];          V833= vs_base[0];
6238          vs_top=sup;          vs_top=sup;
6239          goto T1861;          goto T1861;
6240          goto T1859;          goto T1859;
6241  T1859:;  T1859:;
6242          V789= Cnil;          V832= Cnil;
6243          goto T1860;          goto T1860;
6244  T1860:;  T1860:;
6245          V790= Cnil;          V833= Cnil;
6246          goto T1861;          goto T1861;
6247  T1861:;  T1861:;
6248          if(((V789))==Cnil){          if(((V832))==Cnil){
6249          goto T1862;}          goto T1862;}
6250          V785= Ct;          V828= Ct;
6251          goto T1846;          goto T1846;
6252          goto T1862;          goto T1862;
6253  T1862:;  T1862:;
6254          if(((V790))!=Cnil){          if(((V833))!=Cnil){
6255          goto T1855;}          goto T1855;}
6256          V786= Cnil;          V829= Cnil;
6257          goto T1846;}          goto T1846;}
6258          goto T1855;          goto T1855;
6259  T1855:;  T1855:;
6260          V787= CMPcdr((V787));          V830= CMPcdr((V830));
6261          V788= CMPcar((V787));          V831= CMPcar((V830));
6262          goto T1850;}          goto T1850;}
6263          goto T1846;          goto T1846;
6264  T1846:;  T1846:;
6265          base[2]= (V785);          base[2]= (V828);
6266          base[3]= (V786);          base[3]= (V829);
6267          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6268          return;}          return;}
6269          }          }
# Line 6231  static void L110() Line 6274  static void L110()
6274  {register object *base=vs_base;  {register object *base=vs_base;
6275          register object *sup=base+VM100; VC100          register object *sup=base+VM100; VC100
6276          vs_check;          vs_check;
6277          {register object V791;          {register object V834;
6278          object V792;          object V835;
6279          check_arg(2);          check_arg(2);
6280          V791=(base[0]);          V834=(base[0]);
6281          V792=(base[1]);          V835=(base[1]);
6282          vs_top=sup;          vs_top=sup;
6283          goto TTL;          goto TTL;
6284  TTL:;  TTL:;
6285          {register object V793;          {register object V836;
6286          V793= CMPcadr((V792));          V836= CMPcadr((V835));
6287          base[2]= Cnil;          base[2]= Cnil;
6288          {object V794= CMPcar((V793));          {object V837= CMPcar((V836));
6289          if((V794!= VV[10]))goto T1879;          if((V837!= VV[10]))goto T1879;
6290          base[3]= (*(LnkLI285))((V791),(V793));          base[3]= (*(LnkLI285))((V834),(V836));
6291          goto T1878;          goto T1878;
6292          goto T1879;          goto T1879;
6293  T1879:;  T1879:;
6294          if((V794!= VV[130]))goto T1880;          if((V837!= VV[130]))goto T1880;
6295          base[3]= (*(LnkLI286))((V791),(V793));          base[3]= (*(LnkLI286))((V834),(V836));
6296          goto T1878;          goto T1878;
6297          goto T1880;          goto T1880;
6298  T1880:;  T1880:;
6299          if((V794!= VV[282]))goto T1881;          if((V837!= VV[282]))goto T1881;
6300          base[3]= (*(LnkLI287))((V791),(V793));          base[3]= (*(LnkLI287))((V834),(V836));
6301          goto T1878;          goto T1878;
6302          goto T1881;          goto T1881;
6303  T1881:;  T1881:;
6304          if((V794!= VV[147]))goto T1882;          if((V837!= VV[147]))goto T1882;
6305          base[3]= (*(LnkLI288))((V791),(V793));          base[3]= (*(LnkLI288))((V834),(V836));
6306          goto T1878;          goto T1878;
6307          goto T1882;          goto T1882;
6308  T1882:;  T1882:;
6309          base[4]= VV[145];          base[4]= VV[145];
6310          base[5]= VV[146];          base[5]= VV[146];
6311          base[6]= (V792);          base[6]= (V835);
6312          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
6313          Lerror();          Lerror();
6314          vs_top=sup;          vs_top=sup;
# Line 6278  T1878:; Line 6321  T1878:;
6321  }  }
6322  /*      local entry for function SAUT-NOT-CLASS */  /*      local entry for function SAUT-NOT-CLASS */
6323    
6324  static object LI111(V797,V798)  static object LI111(V840,V841)
6325    
6326  object V797;object V798;  object V840;object V841;
6327  {        VMB101 VMS101 VMV101  {        VMB101 VMS101 VMV101
6328          goto TTL;          goto TTL;
6329  TTL:;  TTL:;
6330          {object V799;          {object V842;
6331          object V800;          object V843;
6332          V799= (*(LnkLI289))((V797));          V842= (*(LnkLI289))((V840));
6333          base[2]= (V799);          base[2]= (V842);
6334          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6335          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
6336          vs_top=sup;          vs_top=sup;
6337          V800= vs_base[0];          V843= vs_base[0];
6338          {register object x= CMPcadr((V798)),V802= (V800);          {register object x= CMPcadr((V841)),V845= (V843);
6339          while(V802!=Cnil)          while(V845!=Cnil)
6340          if(x==(V802->c.c_car)){          if(x==(V845->c.c_car)){
6341          V801= V802;          V844= V845;
6342          goto T1889;          goto T1889;
6343          }else V802=V802->c.c_cdr;          }else V845=V845->c.c_cdr;
6344          V801= Cnil;}          V844= Cnil;}
6345          goto T1889;          goto T1889;
6346  T1889:;  T1889:;
6347          {object V803 = ((V801)==Cnil?Ct:Cnil);          {object V846 = ((V844)==Cnil?Ct:Cnil);
6348          VMR101(V803)}}          VMR101(V846)}}
6349          base[0]=base[0];          base[0]=base[0];
6350          return Cnil;          return Cnil;
6351  }  }
6352  /*      local entry for function SAUT-NOT-PROTOTYPE     */  /*      local entry for function SAUT-NOT-PROTOTYPE     */
6353    
6354  static object LI112(V806,V807)  static object LI112(V849,V850)
6355    
6356  register object V806;object V807;  register object V849;object V850;
6357  {        VMB102 VMS102 VMV102  {        VMB102 VMS102 VMV102
6358          goto TTL;          goto TTL;
6359  TTL:;  TTL:;
6360          {object V808;          {object V851;
6361          object V809;          object V852;
6362          {object V810= CMPcar((V806));          {object V853= CMPcar((V849));
6363          if((V810!= VV[147]))goto T1891;          if((V853!= VV[147]))goto T1891;
6364          V808= (*(LnkLI290))(CMPcadr((V806)));          V851= (*(LnkLI290))(CMPcadr((V849)));
6365          goto T1890;          goto T1890;
6366          goto T1891;          goto T1891;
6367  T1891:;  T1891:;
6368          if((V810!= VV[130]))goto T1892;          if((V853!= VV[130]))goto T1892;
6369          V808= CMPcadr((V806));          V851= CMPcadr((V849));
6370          goto T1890;          goto T1890;
6371          goto T1892;          goto T1892;
6372  T1892:;  T1892:;
6373          if((V810!= VV[282]))goto T1893;          if((V853!= VV[282]))goto T1893;
6374          V808= CMPcadr((V806));          V851= CMPcadr((V849));
6375          goto T1890;          goto T1890;
6376          goto T1893;          goto T1893;
6377  T1893:;  T1893:;
6378          if((V810!= VV[10]))goto T1894;          if((V853!= VV[10]))goto T1894;
6379          V808= CMPcadr((V806));          V851= CMPcadr((V849));
6380          goto T1890;          goto T1890;
6381          goto T1894;          goto T1894;
6382  T1894:;  T1894:;
6383          V808= Cnil;}          V851= Cnil;}
6384          goto T1890;          goto T1890;
6385  T1890:;  T1890:;
6386          base[2]= (V808);          base[2]= (V851);
6387          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6388          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
6389          vs_top=sup;          vs_top=sup;
6390          V809= vs_base[0];          V852= vs_base[0];
6391          {register object x= CMPcadr((V807)),V812= (V809);          {register object x= CMPcadr((V850)),V855= (V852);
6392          while(V812!=Cnil)          while(V855!=Cnil)
6393          if(x==(V812->c.c_car)){          if(x==(V855->c.c_car)){
6394          V811= V812;          V854= V855;
6395          goto T1897;          goto T1897;
6396          }else V812=V812->c.c_cdr;          }else V855=V855->c.c_cdr;
6397          V811= Cnil;}          V854= Cnil;}
6398          goto T1897;          goto T1897;
6399  T1897:;  T1897:;
6400          {object V813 = ((V811)==Cnil?Ct:Cnil);          {object V856 = ((V854)==Cnil?Ct:Cnil);
6401          VMR102(V813)}}          VMR102(V856)}}
6402          base[0]=base[0];          base[0]=base[0];
6403          return Cnil;          return Cnil;
6404  }  }
6405  /*      local entry for function SAUT-NOT-CLASS-EQ      */  /*      local entry for function SAUT-NOT-CLASS-EQ      */
6406    
6407  static object LI113(V816,V817)  static object LI113(V859,V860)
6408    
6409  object V816;object V817;  object V859;object V860;
6410  {        VMB103 VMS103 VMV103  {        VMB103 VMS103 VMV103
6411          goto TTL;          goto TTL;
6412  TTL:;  TTL:;
6413          {object V818;          {object V861;
6414          {object V819= CMPcar((V816));          {object V862= CMPcar((V859));
6415          if((V819!= VV[147]))goto T1899;          if((V862!= VV[147]))goto T1899;
6416          V818= (*(LnkLI290))(CMPcadr((V816)));          V861= (*(LnkLI290))(CMPcadr((V859)));
6417          goto T1898;          goto T1898;
6418          goto T1899;          goto T1899;
6419  T1899:;  T1899:;
6420          if((V819!= VV[130]))goto T1900;          if((V862!= VV[130]))goto T1900;
6421          V818= CMPcadr((V816));          V861= CMPcadr((V859));
6422          goto T1898;          goto T1898;
6423          goto T1900;          goto T1900;
6424  T1900:;  T1900:;
6425          V818= Cnil;}          V861= Cnil;}
6426          goto T1898;          goto T1898;
6427  T1898:;  T1898:;
6428          {object V820 = (((((V818))==(CMPcadr((V817)))?Ct:Cnil))==Cnil?Ct:Cnil);          {object V863 = (((((V861))==(CMPcadr((V860)))?Ct:Cnil))==Cnil?Ct:Cnil);
6429          VMR103(V820)}}          VMR103(V863)}}
6430          return Cnil;          return Cnil;
6431  }  }
6432  /*      local entry for function SAUT-NOT-EQL   */  /*      local entry for function SAUT-NOT-EQL   */
6433    
6434  static object LI114(V823,V824)  static object LI114(V866,V867)
6435    
6436  object V823;object V824;  object V866;object V867;
6437  {        VMB104 VMS104 VMV104  {        VMB104 VMS104 VMV104
6438          goto TTL;          goto TTL;
6439  TTL:;  TTL:;
6440          {object V825= CMPcar((V823));          {object V868= CMPcar((V866));
6441          if((V825!= VV[147]))goto T1901;          if((V868!= VV[147]))goto T1901;
6442          {object V826 = (((eql(CMPcadr((V823)),CMPcadr((V824)))?Ct:Cnil))==Cnil?Ct:Cnil);          {object V869 = (((eql(CMPcadr((V866)),CMPcadr((V867)))?Ct:Cnil))==Cnil?Ct:Cnil);
6443          VMR104(V826)}          VMR104(V869)}
6444          goto T1901;          goto T1901;
6445  T1901:;  T1901:;
6446          {object V827 = Ct;          {object V870 = Ct;
6447          VMR104(V827)}}          VMR104(V870)}}
6448          return Cnil;          return Cnil;
6449  }  }
6450  /*      function definition for CLASS-APPLICABLE-USING-CLASS-P  */  /*      function definition for CLASS-APPLICABLE-USING-CLASS-P  */
# Line 6410  static void L115() Line 6453  static void L115()
6453  {register object *base=vs_base;  {register object *base=vs_base;
6454          register object *sup=base+VM105; VC105          register object *sup=base+VM105; VC105
6455          vs_check;          vs_check;
6456          {object V828;          {object V871;
6457          register object V829;          register object V872;
6458          check_arg(2);          check_arg(2);
6459          V828=(base[0]);          V871=(base[0]);
6460          V829=(base[1]);          V872=(base[1]);
6461          vs_top=sup;          vs_top=sup;
6462          goto TTL;          goto TTL;
6463  TTL:;  TTL:;
6464          {object V830;          {object V873;
6465            V875 = (V871);
6466          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[72]->s.s_dbind))==(VV[73]))){
6467          goto T1905;}          goto T1905;}
6468          base[2]= (V829);          base[2]= (V872);
6469          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6470          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
6471          vs_top=sup;          vs_top=sup;
6472          V832= vs_base[0];          V876= vs_base[0];
6473          goto T1903;          goto T1903;
6474          goto T1905;          goto T1905;
6475  T1905:;  T1905:;
6476          V832= (*(LnkLI263))((V829));          V876= (*(LnkLI263))((V872));
6477          goto T1903;          goto T1903;
6478  T1903:;  T1903:;
6479          {register object x= (V828),V831= V832;          {register object x= V875,V874= V876;
6480          while(V831!=Cnil)          while(V874!=Cnil)
6481          if(x==(V831->c.c_car)){          if(x==(V874->c.c_car)){
6482          V830= V831;          V873= V874;
6483          goto T1902;          goto T1902;
6484          }else V831=V831->c.c_cdr;          }else V874=V874->c.c_cdr;
6485          V830= Cnil;}          V873= Cnil;}
6486          goto T1902;          goto T1902;
6487  T1902:;  T1902:;
6488          base[2]= (V830);          base[2]= (V873);
6489          if((V830)!=Cnil){          if((V873)!=Cnil){
6490          base[3]= (V830);          base[3]= (V873);
6491          goto T1909;}          goto T1909;}
6492          if(((VV[144]->s.s_dbind))!=Cnil){          if(((VV[144]->s.s_dbind))!=Cnil){
6493          goto T1911;}          goto T1911;}
6494          base[3]= (*(LnkLI291))((V828),(V829));          base[3]= (*(LnkLI291))((V871),(V872));
6495          goto T1909;          goto T1909;
6496          goto T1911;          goto T1911;
6497  T1911:;  T1911:;
6498          base[3]= (*(LnkLI292))((V828),(V829));          base[3]= (*(LnkLI292))((V871),(V872));
6499          goto T1909;          goto T1909;
6500  T1909:;  T1909:;
6501          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
# Line 6460  T1909:; Line 6504  T1909:;
6504  }  }
6505  /*      local entry for function CLASSES-HAVE-COMMON-SUBCLASS-P */  /*      local entry for function CLASSES-HAVE-COMMON-SUBCLASS-P */
6506    
6507  static object LI116(V835,V836)  static object LI116(V879,V880)
6508    
6509  object V835;register object V836;  object V879;register object V880;
6510  {        VMB106 VMS106 VMV106  {        VMB106 VMS106 VMV106
6511          goto TTL;          goto TTL;
6512  TTL:;  TTL:;
6513          if(!(((V835))==((V836)))){          if(!(((V879))==((V880)))){
6514          goto T1913;}          goto T1913;}
6515          {object V837 = Ct;          {object V881 = Ct;
6516          VMR106(V837)}          VMR106(V881)}
6517          goto T1913;          goto T1913;
6518  T1913:;  T1913:;
6519          {object V838;          {object V882;
6520          base[0]= (V835);          base[0]= (V879);
6521          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6522          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk293)(Lclptr293);
6523          vs_top=sup;          vs_top=sup;
6524          V838= vs_base[0];{object V839;          V882= vs_base[0];{object V883;
6525          {register object x= (V836),V840= (V838);          {register object x= (V880),V884= (V882);
6526          while(V840!=Cnil)          while(V884!=Cnil)
6527          if(x==(V840->c.c_car)){          if(x==(V884->c.c_car)){
6528          V839= V840;          V883= V884;
6529          goto T1918;          goto T1918;
6530          }else V840=V840->c.c_cdr;          }else V884=V884->c.c_cdr;
6531          V839= Cnil;}          V883= Cnil;}
6532          goto T1918;          goto T1918;
6533  T1918:;  T1918:;
6534          if(V839==Cnil)goto T1917;          if(V883==Cnil)goto T1917;
6535          {object V841 = V839;          {object V885 = V883;
6536          VMR106(V841)}          VMR106(V885)}
6537          goto T1917;          goto T1917;
6538  T1917:;}  T1917:;}
6539          {register object V842;          {register object V886;
6540          register object V843;          register object V887;
6541          V842= (V838);          V886= (V882);
6542          V843= CMPcar((V842));          V887= CMPcar((V886));
6543          goto T1922;          goto T1922;
6544  T1922:;  T1922:;
6545          if(!(((V842))==Cnil)){          if(!(((V886))==Cnil)){
6546          goto T1923;}          goto T1923;}
6547          {object V844 = Cnil;          {object V888 = Cnil;
6548          VMR106(V844)}          VMR106(V888)}
6549          goto T1923;          goto T1923;
6550  T1923:;  T1923:;
6551          if(((*(LnkLI292))((V843),(V836)))==Cnil){          if(((*(LnkLI292))((V887),(V880)))==Cnil){
6552          goto T1927;}          goto T1927;}
6553          {object V845 = Ct;          {object V889 = Ct;
6554          VMR106(V845)}          VMR106(V889)}
6555          goto T1927;          goto T1927;
6556  T1927:;  T1927:;
6557          V842= CMPcdr((V842));          V886= CMPcdr((V886));
6558          V843= CMPcar((V842));          V887= CMPcar((V886));
6559          goto T1922;}}          goto T1922;}}
6560          base[0]=base[0];          base[0]=base[0];
6561          return Cnil;          return Cnil;
# Line 6522  static void L117() Line 6566  static void L117()
6566  {register object *base=vs_base;  {register object *base=vs_base;
6567          register object *sup=base+VM107; VC107          register object *sup=base+VM107; VC107
6568          vs_check;          vs_check;
6569          {object V846;          {object V890;
6570          object V847;          object V891;
6571          check_arg(2);          check_arg(2);
6572          V846=(base[0]);          V890=(base[0]);
6573          V847=(base[1]);          V891=(base[1]);
6574          vs_top=sup;          vs_top=sup;
6575          goto TTL;          goto TTL;
6576  TTL:;  TTL:;
6577          {object V848= CMPcar((V846));          {object V892= CMPcar((V890));
6578          if((V848!= VV[10]))goto T1935;          if((V892!= VV[10]))goto T1935;
6579          base[2]= CMPcadr((V846));          base[2]= CMPcadr((V890));
6580          base[3]= CMPcadr((V847));          base[3]= CMPcadr((V891));
6581          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6582          (void) (*Lnk294)();          (void) (*Lnk294)();
6583          return;          return;
6584          goto T1935;          goto T1935;
6585  T1935:;  T1935:;
6586          base[2]= Cnil;          base[2]= Cnil;
6587          {object V849;          {object V893;
6588          V849= (*(LnkLI289))((V846));          V893= (*(LnkLI289))((V890));
6589          V851= CMPcadr((V847));          V895= CMPcadr((V891));
6590          base[4]= (V849);          base[4]= (V893);
6591          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
6592          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
6593          vs_top=sup;          vs_top=sup;
6594          V852= vs_base[0];          V896= vs_base[0];
6595          {register object x= /* INLINE-ARGS */V851,V850= V852;          {register object x= /* INLINE-ARGS */V895,V894= V896;
6596          while(V850!=Cnil)          while(V894!=Cnil)
6597          if(x==(V850->c.c_car)){          if(x==(V894->c.c_car)){
6598          base[3]= V850;          base[3]= V894;
6599          goto T1939;          goto T1939;
6600          }else V850=V850->c.c_cdr;          }else V894=V894->c.c_cdr;
6601          base[3]= Cnil;}}          base[3]= Cnil;}}
6602          goto T1939;          goto T1939;
6603  T1939:;  T1939:;
# Line 6567  static void L118() Line 6611  static void L118()
6611  {register object *base=vs_base;  {register object *base=vs_base;
6612          register object *sup=base+VM108; VC108          register object *sup=base+VM108; VC108
6613          vs_check;          vs_check;
6614          {register object V853;          {register object V897;
6615          register object V854;          register object V898;
6616          check_arg(2);          check_arg(2);
6617          V853=(base[0]);          V897=(base[0]);
6618          V854=(base[1]);          V898=(base[1]);
6619          vs_top=sup;          vs_top=sup;
6620          goto TTL;          goto TTL;
6621  TTL:;  TTL:;
6622          if(!((CMPcar((V853)))==(VV[147]))){          if(!((CMPcar((V897)))==(VV[147]))){
6623          goto T1944;}          goto T1944;}
6624          base[2]= Cnil;          base[2]= Cnil;
6625          V855= (*(LnkLI290))(CMPcadr((V853)));          V899= (*(LnkLI290))(CMPcadr((V897)));
6626          base[3]= ((/* INLINE-ARGS */V855)==(CMPcadr((V854)))?Ct:Cnil);          base[3]= ((/* INLINE-ARGS */V899)==(CMPcadr((V898)))?Ct:Cnil);
6627          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6628          return;          return;
6629          goto T1944;          goto T1944;
6630  T1944:;  T1944:;
6631          {object V856;          {object V900;
6632          {object V857= CMPcar((V853));          {object V901= CMPcar((V897));
6633          if((V857!= VV[130]))goto T1949;          if((V901!= VV[130]))goto T1949;
6634          V856= ((CMPcadr((V853)))==(CMPcadr((V854)))?Ct:Cnil);          V900= ((CMPcadr((V897)))==(CMPcadr((V898)))?Ct:Cnil);
6635          goto T1948;          goto T1948;
6636          goto T1949;          goto T1949;
6637  T1949:;  T1949:;
6638          if((V857!= VV[10]))goto T1950;          if((V901!= VV[10]))goto T1950;
6639          if(!((CMPcadr((V853)))==(CMPcadr((V854))))){          if(!((CMPcadr((V897)))==(CMPcadr((V898))))){
6640          goto T1951;}          goto T1951;}
6641          V856= Ct;          V900= Ct;
6642          goto T1948;          goto T1948;
6643          goto T1951;          goto T1951;
6644  T1951:;  T1951:;
6645          V859= CMPcadr((V853));          V903= CMPcadr((V897));
6646          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[72]->s.s_dbind))==(VV[73]))){
6647          goto T1955;}          goto T1955;}
6648          base[2]= CMPcadr((V854));          base[2]= CMPcadr((V898));
6649          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6650          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
6651          vs_top=sup;          vs_top=sup;
6652          V860= vs_base[0];          V904= vs_base[0];
6653          goto T1953;          goto T1953;
6654          goto T1955;          goto T1955;
6655  T1955:;  T1955:;
6656          V860= (*(LnkLI263))(CMPcadr((V854)));          V904= (*(LnkLI263))(CMPcadr((V898)));
6657          goto T1953;          goto T1953;
6658  T1953:;  T1953:;
6659          {register object x= /* INLINE-ARGS */V859,V858= V860;          {register object x= /* INLINE-ARGS */V903,V902= V904;
6660          while(V858!=Cnil)          while(V902!=Cnil)
6661          if(x==(V858->c.c_car)){          if(x==(V902->c.c_car)){
6662          V856= V858;          V900= V902;
6663          goto T1948;          goto T1948;
6664          }else V858=V858->c.c_cdr;          }else V902=V902->c.c_cdr;
6665          V856= Cnil;          V900= Cnil;
6666          goto T1948;}          goto T1948;}
6667          goto T1950;          goto T1950;
6668  T1950:;  T1950:;
6669          V856= Cnil;}          V900= Cnil;}
6670          goto T1948;          goto T1948;
6671  T1948:;  T1948:;
6672          base[2]= (V856);          base[2]= (V900);
6673          base[3]= (V856);          base[3]= (V900);
6674          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6675          return;}          return;}
6676          }          }
# Line 6637  static void L119() Line 6681  static void L119()
6681  {register object *base=vs_base;  {register object *base=vs_base;
6682          register object *sup=base+VM109; VC109          register object *sup=base+VM109; VC109
6683          vs_check;          vs_check;
6684          {object V861;          {object V905;
6685          object V862;          object V906;
6686          check_arg(2);          check_arg(2);
6687          V861=(base[0]);          V905=(base[0]);
6688          V862=(base[1]);          V906=(base[1]);
6689          vs_top=sup;          vs_top=sup;
6690          goto TTL;          goto TTL;
6691  TTL:;  TTL:;
# Line 6657  static void L120() Line 6701  static void L120()
6701  {register object *base=vs_base;  {register object *base=vs_base;
6702          register object *sup=base+VM110; VC110          register object *sup=base+VM110; VC110
6703          vs_check;          vs_check;
6704          {register object V863;          {register object V907;
6705          object V864;          object V908;
6706          check_arg(2);          check_arg(2);
6707          V863=(base[0]);          V907=(base[0]);
6708          V864=(base[1]);          V908=(base[1]);
6709          vs_top=sup;          vs_top=sup;
6710          goto TTL;          goto TTL;
6711  TTL:;  TTL:;
6712          {object V865;          {object V909;
6713          {object V866= CMPcar((V863));          {object V910= CMPcar((V907));
6714          if((V866!= VV[147]))goto T1963;          if((V910!= VV[147]))goto T1963;
6715          V865= (eql(CMPcadr((V863)),CMPcadr((V864)))?Ct:Cnil);          V909= (eql(CMPcadr((V907)),CMPcadr((V908)))?Ct:Cnil);
6716          goto T1962;          goto T1962;
6717          goto T1963;          goto T1963;
6718  T1963:;  T1963:;
6719          if((V866!= VV[130]))goto T1964;          if((V910!= VV[130]))goto T1964;
6720          V867= CMPcadr((V863));          V911= CMPcadr((V907));
6721          V868= (*(LnkLI290))(CMPcadr((V864)));          V912= (*(LnkLI290))(CMPcadr((V908)));
6722          V865= ((/* INLINE-ARGS */V867)==(/* INLINE-ARGS */V868)?Ct:Cnil);          V909= ((/* INLINE-ARGS */V911)==(/* INLINE-ARGS */V912)?Ct:Cnil);
6723          goto T1962;          goto T1962;
6724          goto T1964;          goto T1964;
6725  T1964:;  T1964:;
6726          if((V866!= VV[10]))goto T1965;          if((V910!= VV[10]))goto T1965;
6727          V870= CMPcadr((V863));          V914= CMPcadr((V907));
6728          {object V872;          {object V916;
6729          V872= (*(LnkLI290))(CMPcadr((V864)));          V916= (*(LnkLI290))(CMPcadr((V908)));
6730          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[72]->s.s_dbind))==(VV[73]))){
6731          goto T1969;}          goto T1969;}
6732          base[2]= (V872);          base[2]= (V916);
6733          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6734          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
6735          vs_top=sup;          vs_top=sup;
6736          V871= vs_base[0];          V915= vs_base[0];
6737          goto T1966;          goto T1966;
6738          goto T1969;          goto T1969;
6739  T1969:;  T1969:;
6740          V871= (*(LnkLI263))((V872));}          V915= (*(LnkLI263))((V916));}
6741          goto T1966;          goto T1966;
6742  T1966:;  T1966:;
6743          {register object x= /* INLINE-ARGS */V870,V869= V871;          {register object x= /* INLINE-ARGS */V914,V913= V915;
6744          while(V869!=Cnil)          while(V913!=Cnil)
6745          if(x==(V869->c.c_car)){          if(x==(V913->c.c_car)){
6746          V865= V869;          V909= V913;
6747          goto T1962;          goto T1962;
6748          }else V869=V869->c.c_cdr;          }else V913=V913->c.c_cdr;
6749          V865= Cnil;          V909= Cnil;
6750          goto T1962;}          goto T1962;}
6751          goto T1965;          goto T1965;
6752  T1965:;  T1965:;
6753          V865= Cnil;}          V909= Cnil;}
6754          goto T1962;          goto T1962;
6755  T1962:;  T1962:;
6756          base[2]= (V865);          base[2]= (V909);
6757          base[3]= (V865);          base[3]= (V909);
6758          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6759          return;}          return;}
6760          }          }
# Line 6721  static void L121() Line 6765  static void L121()
6765  {register object *base=vs_base;  {register object *base=vs_base;
6766          register object *sup=base+VM111; VC111          register object *sup=base+VM111; VC111
6767          vs_check;          vs_check;
6768          {register object V873;          {register object V917;
6769          register object V874;          register object V918;
6770          check_arg(2);          check_arg(2);
6771          V873=(base[0]);          V917=(base[0]);
6772          V874=(base[1]);          V918=(base[1]);
6773          vs_top=sup;          vs_top=sup;
6774          goto TTL;          goto TTL;
6775  TTL:;  TTL:;
6776          base[2]= (V873);          base[2]= (V917);
6777          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6778          (void) (*Lnk295)();          (void) (*Lnk295)();
6779          vs_top=sup;          vs_top=sup;
6780          V873= vs_base[0];          V917= vs_base[0];
6781          if(!(((V873))==(Ct))){          if(!(((V917))==(Ct))){
6782          goto T1977;}          goto T1977;}
6783          base[2]= Ct;          base[2]= Ct;
6784          base[3]= Ct;          base[3]= Ct;
# Line 6742  TTL:; Line 6786  TTL:;
6786          return;          return;
6787          goto T1977;          goto T1977;
6788  T1977:;  T1977:;
6789          if(type_of((V874))!=t_cons){          if(type_of((V918))!=t_cons){
6790          goto T1982;}          goto T1982;}
6791          if(!((CMPcar((V874)))==(Ct))){          if(!((CMPcar((V918)))==(Ct))){
6792          goto T1983;}          goto T1983;}
6793          goto T1982;          goto T1982;
6794  T1982:;  T1982:;
# Line 6754  T1982:; Line 6798  T1982:;
6798          return;          return;
6799          goto T1983;          goto T1983;
6800  T1983:;  T1983:;
6801          {object V875= CMPcar((V874));          {object V919= CMPcar((V918));
6802          if((V875!= VV[88]))goto T1989;          if((V919!= VV[88]))goto T1989;
6803          base[2]= (V873);          base[2]= (V917);
6804          base[3]= (V874);          base[3]= (V918);
6805          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6806          (void) (*Lnk296)();          (void) (*Lnk296)();
6807          return;          return;
6808          goto T1989;          goto T1989;
6809  T1989:;  T1989:;
6810          if((V875!= VV[89]))goto T1992;          if((V919!= VV[89]))goto T1992;
6811          base[2]= (V873);          base[2]= (V917);
6812          base[3]= (V874);          base[3]= (V918);
6813          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6814          (void) (*Lnk297)();          (void) (*Lnk297)();
6815          return;          return;
6816          goto T1992;          goto T1992;
6817  T1992:;  T1992:;
6818          if((V875!= VV[10]))goto T1995;          if((V919!= VV[10]))goto T1995;
6819          base[2]= (V873);          base[2]= (V917);
6820          base[3]= (V874);          base[3]= (V918);
6821          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6822          (void) (*Lnk298)();          (void) (*Lnk298)();
6823          return;          return;
6824          goto T1995;          goto T1995;
6825  T1995:;  T1995:;
6826          if((V875!= VV[282]))goto T1998;          if((V919!= VV[282]))goto T1998;
6827          base[2]= (V873);          base[2]= (V917);
6828          base[3]= (V874);          base[3]= (V918);
6829          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6830          (void) (*Lnk299)();          (void) (*Lnk299)();
6831          return;          return;
6832          goto T1998;          goto T1998;
6833  T1998:;  T1998:;
6834          if((V875!= VV[130]))goto T2001;          if((V919!= VV[130]))goto T2001;
6835          base[2]= (V873);          base[2]= (V917);
6836          base[3]= (V874);          base[3]= (V918);
6837          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6838          (void) (*Lnk300)();          (void) (*Lnk300)();
6839          return;          return;
6840          goto T2001;          goto T2001;
6841  T2001:;  T2001:;
6842          if((V875!= VV[147]))goto T2004;          if((V919!= VV[147]))goto T2004;
6843          base[2]= (V873);          base[2]= (V917);
6844          base[3]= (V874);          base[3]= (V918);
6845          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6846          (void) (*Lnk301)();          (void) (*Lnk301)();
6847          return;          return;
# Line 6805  T2001:; Line 6849  T2001:;
6849  T2004:;  T2004:;
6850          base[2]= VV[148];          base[2]= VV[148];
6851          base[3]= VV[146];          base[3]= VV[146];
6852          base[4]= (V874);          base[4]= (V918);
6853          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
6854          Lerror();          Lerror();
6855          return;}          return;}
# Line 6817  static void L122() Line 6861  static void L122()
6861  {register object *base=vs_base;  {register object *base=vs_base;
6862          register object *sup=base+VM112; VC112          register object *sup=base+VM112; VC112
6863          vs_check;          vs_check;
6864          {object V876;          {object V920;
6865          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
6866          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
6867          vs_base=vs_base+1;          vs_base=vs_base+1;
6868          if(vs_base>=vs_top){vs_top=sup;goto T2010;}          if(vs_base>=vs_top){vs_top=sup;goto T2010;}
6869          V876=(base[1]);          V920=(base[1]);
6870          vs_top=sup;          vs_top=sup;
6871          goto T2011;          goto T2011;
6872          goto T2010;          goto T2010;
6873  T2010:;  T2010:;
6874          V876= Ct;          V920= Ct;
6875          goto T2011;          goto T2011;
6876  T2011:;  T2011:;
6877          if(!(((VV[72]->s.s_dbind))==(VV[149]))){          if(!(((VV[72]->s.s_dbind))==(VV[149]))){
# Line 6839  T2014:; Line 6883  T2014:;
6883          base[2]= (((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil);          base[2]= (((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil);
6884          goto T2013;          goto T2013;
6885  T2013:;  T2013:;
6886          if(!(type_of((V876))==t_symbol)){          if(!(type_of((V920))==t_symbol)){
6887          goto T2018;}          goto T2018;}
6888          base[3]= (VFUN_NARGS=1,(*(LnkLI302))((V876)));          base[3]= (VFUN_NARGS=1,(*(LnkLI302))((V920)));
6889          goto T2016;          goto T2016;
6890          goto T2018;          goto T2018;
6891  T2018:;  T2018:;
6892          base[3]= (V876);          base[3]= (V920);
6893          goto T2016;          goto T2016;
6894  T2016:;  T2016:;
6895          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 6859  static void L124() Line 6903  static void L124()
6903  {register object *base=vs_base;  {register object *base=vs_base;
6904          register object *sup=base+VM113; VC113          register object *sup=base+VM113; VC113
6905          vs_check;          vs_check;
6906          {object V877;          {object V921;
6907          object V878;          object V922;
6908          object V879;          object V923;
6909          object V880;          object V924;
6910          object V881;          object V925;
6911          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
6912          if(vs_top-vs_base>5) too_many_arguments();          if(vs_top-vs_base>5) too_many_arguments();
6913          V877=(base[0]);          V921=(base[0]);
6914          V878=(base[1]);          V922=(base[1]);
6915          V879=(base[2]);          V923=(base[2]);
6916          vs_base=vs_base+3;          vs_base=vs_base+3;
6917          if(vs_base>=vs_top){vs_top=sup;goto T2020;}          if(vs_base>=vs_top){vs_top=sup;goto T2020;}
6918          V880=(base[3]);          V924=(base[3]);
6919          vs_base++;          vs_base++;
6920          if(vs_base>=vs_top){vs_top=sup;goto T2021;}          if(vs_base>=vs_top){vs_top=sup;goto T2021;}
6921          V881=(base[4]);          V925=(base[4]);
6922          vs_top=sup;          vs_top=sup;
6923          goto T2022;          goto T2022;
6924          goto T2020;          goto T2020;
6925  T2020:;  T2020:;
6926          V880= Cnil;          V924= Cnil;
6927          goto T2021;          goto T2021;
6928  T2021:;  T2021:;
6929          V881= Cnil;          V925= Cnil;
6930          goto T2022;          goto T2022;
6931  T2022:;  T2022:;
6932          V882= (((((V880))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          V926= (((((V924))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
6933          V883= (((((V881))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          V927= (((((V925))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
6934          V884= (*(LnkLI213))((V878));          V928= (*(LnkLI213))((V922));
6935          base[5]= (VFUN_NARGS=6,(*(LnkLI216))((V877),(V878),(V879),/* INLINE-ARGS */V882,/* INLINE-ARGS */V883,((/* INLINE-ARGS */V884)==Cnil?Ct:Cnil)));          base[5]= (VFUN_NARGS=6,(*(LnkLI216))((V921),(V922),(V923),/* INLINE-ARGS */V926,/* INLINE-ARGS */V927,((/* INLINE-ARGS */V928)==Cnil?Ct:Cnil)));
6936          base[6]= (V880);          base[6]= (V924);
6937          base[7]= (V881);          base[7]= (V925);
6938          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
6939          {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))
6940                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 6901  T2022:; Line 6945  T2022:;
6945  }  }
6946  /*      local entry for function GET-SECONDARY-DISPATCH-FUNCTION1       */  /*      local entry for function GET-SECONDARY-DISPATCH-FUNCTION1       */
6947    
6948  static object LI125(object V889,object V888,object V887,object V886,object V885,object first,...)  static object LI125(object V933,object V932,object V931,object V930,object V929,object first,...)
6949  {        {      
6950          va_list ap;          va_list ap;
6951          int narg = VFUN_NARGS; VMB114 VMS114 VMV114          int narg = VFUN_NARGS; VMB114 VMS114 VMV114
6952          {register object V890;          {register object V934;
6953          object V891;          object V935;
6954          register object V892;          register object V936;
6955          register object V893;          register object V937;
6956          register object V894;          register object V938;
6957          object V895;          object V939;
6958          register object V896;          register object V940;
6959          va_start(ap,first);          va_start(ap,first);
6960          if(narg <5) too_few_arguments();          if(narg <5) too_few_arguments();
6961          Vcs[0]=MMcons(V889,Cnil);          Vcs[0]=MMcons(V933,Cnil);
6962          V890= V888;          V934= V932;
6963          V891= V887;          V935= V931;
6964          V892= V886;          V936= V930;
6965          V893= V885;          V937= V929;
6966          narg = narg - 5;          narg = narg - 5;
6967          if (narg <= 0) goto T2028;          if (narg <= 0) goto T2028;
6968          else {          else {
6969          V894= first;}          V938= first;}
6970          if (--narg <= 0) goto T2029;          if (--narg <= 0) goto T2029;
6971          else {          else {
6972          V895= va_arg(ap,object);}          V939= va_arg(ap,object);}
6973          if (--narg <= 0) goto T2030;          if (--narg <= 0) goto T2030;
6974          else {          else {
6975          V896= va_arg(ap,object);}          V940= va_arg(ap,object);}
6976          --narg; goto T2031;          --narg; goto T2031;
6977          goto T2028;          goto T2028;
6978  T2028:;  T2028:;
6979          V894= Cnil;          V938= Cnil;
6980          goto T2029;          goto T2029;
6981  T2029:;  T2029:;
6982          V895= Ct;          V939= Ct;
6983          goto T2030;          goto T2030;
6984  T2030:;  T2030:;
6985          V896= Cnil;          V940= Cnil;
6986          goto T2031;          goto T2031;
6987  T2031:;  T2031:;
6988          if(((V890))!=Cnil){          if(((V934))!=Cnil){
6989          goto T2036;}          goto T2036;}
6990          if(((V896))==Cnil){          if(((V940))==Cnil){
6991          goto T2039;}          goto T2039;}
6992          {object V897 =          {object V941 =
6993          make_cclosure_new(LC165,Cnil,Vcs[0],Cdata);          make_cclosure_new(LC165,Cnil,Vcs[0],Cdata);
6994          VMR114(V897)}          VMR114(V941)}
6995          goto T2039;          goto T2039;
6996  T2039:;  T2039:;
6997          {object V898 =          {object V942 =
6998          make_cclosure_new(LC166,Cnil,Vcs[0],Cdata);          make_cclosure_new(LC166,Cnil,Vcs[0],Cdata);
6999          VMR114(V898)}          VMR114(V942)}
7000          goto T2036;          goto T2036;
7001  T2036:;  T2036:;
7002          {object V899;          {object V943;
7003          register object V900;          register object V944;
7004          V899= CMPcar((V890));{object V901;          V943= CMPcar((V934));{object V945;
7005          base[2]= (V899);          base[2]= (V943);
7006          base[3]= (VV[150]->s.s_dbind);          base[3]= (VV[150]->s.s_dbind);
7007          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7008          Lgethash();          Lgethash();
7009          vs_top=sup;          vs_top=sup;
7010          V901= vs_base[0];          V945= vs_base[0];
7011          if(V901==Cnil)goto T2043;          if(V945==Cnil)goto T2043;
7012          V900= V901;          V944= V945;
7013          goto T2042;          goto T2042;
7014          goto T2043;          goto T2043;
7015  T2043:;}  T2043:;}
7016          {object V903;          {object V947;
7017          object V904;          object V948;
7018          V903= (VV[150]->s.s_dbind);          V947= (VV[150]->s.s_dbind);
7019          V904= make_cons(Cnil,Cnil);          V948= make_cons(Cnil,Cnil);
7020          base[3]= V899;          base[3]= V943;
7021          base[4]= (V903);          base[4]= (V947);
7022          base[5]= (V904);          base[5]= (V948);
7023          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7024          siLhash_set();          siLhash_set();
7025          vs_top=sup;          vs_top=sup;
7026          V900= vs_base[0];}          V944= vs_base[0];}
7027          goto T2042;          goto T2042;
7028  T2042:;  T2042:;
7029          if((CMPcdr((V890)))!=Cnil){          if((CMPcdr((V934)))!=Cnil){
7030          goto T2053;}          goto T2053;}
7031          if(((V894))==Cnil){          if(((V938))==Cnil){
7032          goto T2053;}          goto T2053;}
7033          if(((V892))!=Cnil){          if(((V936))!=Cnil){
7034          goto T2053;}          goto T2053;}
7035          if(((V893))==Cnil){          if(((V937))==Cnil){
7036          goto T2053;}          goto T2053;}
7037          if(((V896))!=Cnil){          if(((V940))!=Cnil){
7038          goto T2053;}{object V905;          goto T2053;}{object V949;
7039          V905= CMPcar((V900));          V949= CMPcar((V944));
7040          if(V905==Cnil)goto T2063;          if(V949==Cnil)goto T2063;
7041          {object V906 = V905;          {object V950 = V949;
7042          VMR114(V906)}          VMR114(V950)}
7043          goto T2063;          goto T2063;
7044  T2063:;}  T2063:;}
7045          {object V908;          {object V952;
7046          V908= (*(LnkLI303))((Vcs[0]->c.c_car),(V890),(V891),(V892),(V893),(V894),(V895),(V896));          V952= (*(LnkLI303))((Vcs[0]->c.c_car),(V934),(V935),(V936),(V937),(V938),(V939),(V940));
7047          (V900)->c.c_car = (V908);          (V944)->c.c_car = (V952);
7048          {object V909 = (V908);          {object V953 = (V952);
7049          VMR114(V909)}}          VMR114(V953)}}
7050          goto T2053;          goto T2053;
7051  T2053:;  T2053:;
7052          {object V910;          {object V954;
7053          if(((V894))==Cnil){          V955 = (V934);
7054            if(((V938))==Cnil){
7055          goto T2070;}          goto T2070;}
7056          V911= VV[151];          V956= VV[151];
7057          goto T2068;          goto T2068;
7058          goto T2070;          goto T2070;
7059  T2070:;  T2070:;
7060          V911= (V891);          V956= (V935);
7061          goto T2068;          goto T2068;
7062  T2068:;  T2068:;
7063          V910= list(5,(V890),V911,(V892),(V893),(V896));{object V912;          V957 = (V936);
7064          {register object x= (V910),V914= CMPcdr((V900));          V958 = (V937);
7065          while(V914!=Cnil)          V959 = (V940);
7066          if(equal(x,V914->c.c_car->c.c_car) &&V914->c.c_car != Cnil){          V954= list(5,V955,V956,V957,V958,V959);{object V960;
7067          V913= (V914->c.c_car);          {register object x= (V954),V962= CMPcdr((V944));
7068            while(V962!=Cnil)
7069            if(equal(x,V962->c.c_car->c.c_car) &&V962->c.c_car != Cnil){
7070            V961= (V962->c.c_car);
7071          goto T2074;          goto T2074;
7072          }else V914=V914->c.c_cdr;          }else V962=V962->c.c_cdr;
7073          V913= Cnil;}          V961= Cnil;}
7074          goto T2074;          goto T2074;
7075  T2074:;  T2074:;
7076          V912= CMPcdr(V913);          V960= CMPcdr(V961);
7077          if(V912==Cnil)goto T2072;          if(V960==Cnil)goto T2072;
7078          {object V915 = V912;          {object V963 = V960;
7079          VMR114(V915)}          VMR114(V963)}
7080          goto T2072;          goto T2072;
7081  T2072:;}  T2072:;}
7082          {object V916;          {object V964;
7083          V916= (*(LnkLI303))((Vcs[0]->c.c_car),(V890),(V891),(V892),(V893),(V894),(V895),(V896));          V964= (*(LnkLI303))((Vcs[0]->c.c_car),(V934),(V935),(V936),(V937),(V938),(V939),(V940));
7084          {object V917;          {object V965;
7085          object V919;          object V967;
7086          V917= make_cons((V910),(V916));          V965= make_cons((V954),(V964));
7087          V919= make_cons((V917),CMPcdr(V900));          V967= make_cons((V965),CMPcdr(V944));
7088          (V900)->c.c_cdr = (V919);}          (V944)->c.c_cdr = (V967);}
7089          {object V920 = (V916);          {object V968 = (V964);
7090          VMR114(V920)}}}}          VMR114(V968)}}}}
7091          va_end(ap);          va_end(ap);
7092          base[0]=base[0];          base[0]=base[0];
7093          return Cnil;}          return Cnil;}
7094          }          }
7095  /*      local entry for function GET-SECONDARY-DISPATCH-FUNCTION2       */  /*      local entry for function GET-SECONDARY-DISPATCH-FUNCTION2       */
7096    
7097  static object LI126(V929,V930,V931,V932,V933,V934,V935,V936)  static object LI126(V977,V978,V979,V980,V981,V982,V983,V984)
7098    
7099  register object V929;object V930;object V931;object V932;object V933;object V934;object V935;object V936;  register object V977;object V978;object V979;object V980;object V981;object V982;object V983;object V984;
7100  {        VMB115 VMS115 VMV115  {        VMB115 VMS115 VMV115
7101          goto TTL;          goto TTL;
7102  TTL:;  TTL:;
7103          if(((V934))==Cnil){          if(((V982))==Cnil){
7104          goto T2081;}          goto T2081;}
7105          if(((V935))==Cnil){          if(((V983))==Cnil){
7106          goto T2081;}          goto T2081;}
7107          if(((V936))!=Cnil){          if(((V984))!=Cnil){
7108          goto T2081;}          goto T2081;}
7109          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[72]->s.s_dbind))==(VV[73]))){
7110          goto T2088;}          goto T2088;}
7111          {object V937;          {object V985;
7112          object V938;          object V986;
7113          base[2]= (V929);          base[2]= (V977);
7114          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7115          (void) (*Lnk304)(Lclptr304);          (void) (*Lnk304)(Lclptr304);
7116          vs_top=sup;          vs_top=sup;
7117          V937= vs_base[0];          V985= vs_base[0];
7118          V938= (*(LnkLI305))((V929),(V937),(V930));          V986= (*(LnkLI305))((V977),(V985),(V978));
7119          {object V939 = (*(LnkLI306))((V929),(V938),(V932),(V933));          {object V987 = (*(LnkLI306))((V977),(V986),(V980),(V981));
7120          VMR115(V939)}}          VMR115(V987)}}
7121          goto T2088;          goto T2088;
7122  T2088:;  T2088:;
7123          {object V940;          {object V988;
7124          V940= (*(LnkLI307))((V929),Cnil,(V930));          V988= (*(LnkLI307))((V977),Cnil,(V978));
7125          {object V941 = (*(LnkLI306))((V929),(V940),(V932),(V933));          {object V989 = (*(LnkLI306))((V977),(V988),(V980),(V981));
7126          VMR115(V941)}}          VMR115(V989)}}
7127          goto T2081;          goto T2081;
7128  T2081:;  T2081:;
7129          {object V942;          {object V990;
7130          base[0]= (V929);          base[0]= (V977);
7131          base[1]= (V930);          base[1]= (V978);
7132          base[2]= (V931);          base[2]= (V979);
7133          base[3]= (V935);          base[3]= (V983);
7134          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
7135          (void) (*Lnk308)();          (void) (*Lnk308)();
7136          vs_top=sup;          vs_top=sup;
7137          V942= vs_base[0];          V990= vs_base[0];
7138          {object V943 = (VFUN_NARGS=3,(*(LnkLI309))((V929),(V942),(V936)));          {object V991 = (VFUN_NARGS=3,(*(LnkLI309))((V977),(V990),(V984)));
7139          VMR115(V943)}}          VMR115(V991)}}
7140          base[0]=base[0];          base[0]=base[0];
7141          return Cnil;          return Cnil;
7142  }  }
# Line 7098  static void L127() Line 7146  static void L127()
7146  {register object *base=vs_base;  {register object *base=vs_base;
7147          register object *sup=base+VM116; VC116          register object *sup=base+VM116; VC116
7148          vs_check;          vs_check;
7149          {object V944;          {object V992;
7150          object V945;          object V993;
7151          object V946;          object V994;
7152          object V947;          object V995;
7153          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
7154          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
7155          V944=(base[0]);          V992=(base[0]);
7156          V945=(base[1]);          V993=(base[1]);
7157          vs_base=vs_base+2;          vs_base=vs_base+2;
7158          if(vs_base>=vs_top){vs_top=sup;goto T2099;}          if(vs_base>=vs_top){vs_top=sup;goto T2099;}
7159          V946=(base[2]);          V994=(base[2]);
7160          vs_base++;          vs_base++;
7161          if(vs_base>=vs_top){vs_top=sup;goto T2100;}          if(vs_base>=vs_top){vs_top=sup;goto T2100;}
7162          V947=(base[3]);          V995=(base[3]);
7163          vs_top=sup;          vs_top=sup;
7164          goto T2101;          goto T2101;
7165          goto T2099;          goto T2099;
7166  T2099:;  T2099:;
7167          V946= Cnil;          V994= Cnil;
7168          goto T2100;          goto T2100;
7169  T2100:;  T2100:;
7170          V947= Cnil;          V995= Cnil;
7171          goto T2101;          goto T2101;
7172  T2101:;  T2101:;
7173          base[4]= (VFUN_NARGS=6,(*(LnkLI216))((V944),(V945),Cnil,(((((V946))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(((((V947))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),Ct));          base[4]= (VFUN_NARGS=6,(*(LnkLI216))((V992),(V993),Cnil,(((((V994))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(((((V995))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),Ct));
7174          base[5]= (V946);          base[5]= (V994);
7175          base[6]= (V947);          base[6]= (V995);
7176          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7177          {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))
7178                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7135  T2101:; Line 7183  T2101:;
7183  }  }
7184  /*      local entry for function GET-EFFECTIVE-METHOD-FUNCTION1 */  /*      local entry for function GET-EFFECTIVE-METHOD-FUNCTION1 */
7185    
7186  static object LI128(object V949,object V948,object first,...)  static object LI128(object V997,object V996,object first,...)
7187  {        {      
7188          va_list ap;          va_list ap;
7189          int narg = VFUN_NARGS; VMB117 VMS117 VMV117          int narg = VFUN_NARGS; VMB117 VMS117 VMV117
7190          {object V950;          {object V998;
7191          object V951;          object V999;
7192          object V952;          object V1000;
7193          va_start(ap,first);          va_start(ap,first);
7194          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
7195          V950= V949;          V998= V997;
7196          V951= V948;          V999= V996;
7197          narg = narg - 2;          narg = narg - 2;
7198          if (narg <= 0) goto T2107;          if (narg <= 0) goto T2107;
7199          else {          else {
7200          V952= first;}          V1000= first;}
7201          --narg; goto T2108;          --narg; goto T2108;
7202          goto T2107;          goto T2107;
7203  T2107:;  T2107:;
7204          V952= Ct;          V1000= Ct;
7205          goto T2108;          goto T2108;
7206  T2108:;  T2108:;
7207          {object V953 = (VFUN_NARGS=7,(*(LnkLI216))((V950),(V951),Cnil,Cnil,Cnil,Ct,(V952)));          {object V1001 = (VFUN_NARGS=7,(*(LnkLI216))((V998),(V999),Cnil,Cnil,Cnil,Ct,(V1000)));
7208          VMR117(V953)}          VMR117(V1001)}
7209          va_end(ap);          va_end(ap);
7210          return Cnil;}          return Cnil;}
7211          }          }
7212  /*      local entry for function METHODS-CONTAIN-EQL-SPECIALIZER-P      */  /*      local entry for function METHODS-CONTAIN-EQL-SPECIALIZER-P      */
7213    
7214  static object LI129(V955)  static object LI129(V1003)
7215    
7216  object V955;  object V1003;
7217  {        VMB118 VMS118 VMV118  {        VMB118 VMS118 VMV118
7218          goto TTL;          goto TTL;
7219  TTL:;  TTL:;
7220          if(((VV[72]->s.s_dbind))==(VV[73])){          if(((VV[72]->s.s_dbind))==(VV[73])){
7221          goto T2110;}          goto T2110;}
7222          {object V956 = Cnil;          {object V1004 = Cnil;
7223          VMR118(V956)}          VMR118(V1004)}
7224          goto T2110;          goto T2110;
7225  T2110:;  T2110:;
7226          {register object V957;          {register object V1005;
7227          register object V958;          register object V1006;
7228          V957= (V955);          V1005= (V1003);
7229          V958= CMPcar((V957));          V1006= CMPcar((V1005));
7230          goto T2115;          goto T2115;
7231  T2115:;  T2115:;
7232          if(!(((V957))==Cnil)){          if(!(((V1005))==Cnil)){
7233          goto T2116;}          goto T2116;}
7234          {object V959 = Cnil;          {object V1007 = Cnil;
7235          VMR118(V959)}          VMR118(V1007)}
7236          goto T2116;          goto T2116;
7237  T2116:;  T2116:;
7238          {register object V960;          {register object V1008;
7239          register object V961;          register object V1009;
7240          base[3]= (V958);          base[3]= (V1006);
7241          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7242          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk242)(Lclptr242);
7243          vs_top=sup;          vs_top=sup;
7244          V960= vs_base[0];          V1008= vs_base[0];
7245          V961= CMPcar((V960));          V1009= CMPcar((V1008));
7246          goto T2127;          goto T2127;
7247  T2127:;  T2127:;
7248          if(!(((V960))==Cnil)){          if(!(((V1008))==Cnil)){
7249          goto T2128;}          goto T2128;}
7250          goto T2120;          goto T2120;
7251          goto T2128;          goto T2128;
7252  T2128:;  T2128:;
7253          base[3]= (V961);          base[3]= (V1009);
7254          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7255          (void) (*Lnk310)(Lclptr310);          (void) (*Lnk310)(Lclptr310);
7256          vs_top=sup;          vs_top=sup;
# Line 7211  T2128:; Line 7259  T2128:;
7259          goto T2122;          goto T2122;
7260          goto T2132;          goto T2132;
7261  T2132:;  T2132:;
7262          V960= CMPcdr((V960));          V1008= CMPcdr((V1008));
7263          V961= CMPcar((V960));          V1009= CMPcar((V1008));
7264          goto T2127;}          goto T2127;}
7265          goto T2122;          goto T2122;
7266  T2122:;  T2122:;
7267          {object V962 = Ct;          {object V1010 = Ct;
7268          VMR118(V962)}          VMR118(V1010)}
7269          goto T2120;          goto T2120;
7270  T2120:;  T2120:;
7271          V957= CMPcdr((V957));          V1005= CMPcdr((V1005));
7272          V958= CMPcar((V957));          V1006= CMPcar((V1005));
7273          goto T2115;}          goto T2115;}
7274          base[0]=base[0];          base[0]=base[0];
7275          return Cnil;          return Cnil;
7276  }  }
7277  /*      local entry for function UPDATE-DFUN    */  /*      local entry for function UPDATE-DFUN    */
7278    
7279  static object LI130(object V963,object first,...)  static object LI130(object V1011,object first,...)
7280  {        {      
7281          va_list ap;          va_list ap;
7282          int narg = VFUN_NARGS; VMB119 VMS119 VMV119          int narg = VFUN_NARGS; VMB119 VMS119 VMV119
7283          {register object V964;          {register object V1012;
7284          object V965;          object V1013;
7285          object V966;          object V1014;
7286          object V967;          object V1015;
7287          va_start(ap,first);          va_start(ap,first);
7288          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
7289          V964= V963;          V1012= V1011;
7290          narg = narg - 1;          narg = narg - 1;
7291          if (narg <= 0) goto T2146;          if (narg <= 0) goto T2146;
7292          else {          else {
7293          V965= first;}          V1013= first;}
7294          if (--narg <= 0) goto T2147;          if (--narg <= 0) goto T2147;
7295          else {          else {
7296          V966= va_arg(ap,object);}          V1014= va_arg(ap,object);}
7297          if (--narg <= 0) goto T2148;          if (--narg <= 0) goto T2148;
7298          else {          else {
7299          V967= va_arg(ap,object);}          V1015= va_arg(ap,object);}
7300          --narg; goto T2149;          --narg; goto T2149;
7301          goto T2146;          goto T2146;
7302  T2146:;  T2146:;
7303          V965= Cnil;          V1013= Cnil;
7304          goto T2147;          goto T2147;
7305  T2147:;  T2147:;
7306          V966= Cnil;          V1014= Cnil;
7307          goto T2148;          goto T2148;
7308  T2148:;  T2148:;
7309          V967= Cnil;          V1015= Cnil;
7310          goto T2149;          goto T2149;
7311  T2149:;  T2149:;
7312          {object V968;          {object V1016;
7313          object V969;          object V1017;
7314          object V970;          object V1018;
7315          V968= (*(LnkLI196))((V964));          V1016= (*(LnkLI196))((V1012));
7316          if(((V968))==Cnil){          if(((V1016))==Cnil){
7317          goto T2156;}          goto T2156;}
7318          V969= (*(LnkLI311))((V964));          V1017= (*(LnkLI311))((V1012));
7319          goto T2154;          goto T2154;
7320          goto T2156;          goto T2156;
7321  T2156:;  T2156:;
7322          base[3]= (V964);          base[3]= (V1012);
7323          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7324          (void) (*Lnk162)(Lclptr162);          (void) (*Lnk162)(Lclptr162);
7325          vs_top=sup;          vs_top=sup;
7326          V969= vs_base[0];          V1017= vs_base[0];
7327          goto T2154;          goto T2154;
7328  T2154:;  T2154:;
7329          V970= (*(LnkLI220))((V964));          V1018= (*(LnkLI220))((V1012));
7330          (void)((VFUN_NARGS=4,(*(LnkLI230))((V964),(V965),(V966),(V967))));          (void)((VFUN_NARGS=4,(*(LnkLI230))((V1012),(V1013),(V1014),(V1015))));
7331          {register object V971;          {register object V1019;
7332          object V972;          object V1020;
7333          if(((V968))==Cnil){          if(((V1016))==Cnil){
7334          goto T2163;}          goto T2163;}
7335          if((V965)!=Cnil){          if((V1013)!=Cnil){
7336          V971= (V965);          V1019= (V1013);
7337          goto T2161;}          goto T2161;}
7338          V971= (*(LnkLI312))((V964));          V1019= (*(LnkLI312))((V1012));
7339          goto T2161;          goto T2161;
7340          goto T2163;          goto T2163;
7341  T2163:;  T2163:;
7342          base[5]= (V964);          base[5]= (V1012);
7343          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7344          (void) (*Lnk313)(Lclptr313);          (void) (*Lnk313)(Lclptr313);
7345          vs_top=sup;          vs_top=sup;
7346          V971= vs_base[0];          V1019= vs_base[0];
7347          goto T2161;          goto T2161;
7348  T2161:;  T2161:;
7349          V972= (*(LnkLI218))((V964));          V1020= (*(LnkLI218))((V1012));
7350          base[5]= (V972);          base[5]= (V1020);
7351          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7352          Ltype_of();          Ltype_of();
7353          vs_top=sup;          vs_top=sup;
7354          V973= vs_base[0];          V1021= vs_base[0];
7355          if((VV[15])==(V973)){          if((VV[15])==(V1021)){
7356          goto T2167;}          goto T2167;}
7357          base[5]= (V971);          V1022 = (V1012);
7358          base[6]= (V969);          base[5]= (V1019);
7359            base[6]= (V1017);
7360          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
7361          (void) (*Lnk315)();          (void) (*Lnk315)();
7362          vs_top=sup;          vs_top=sup;
7363          V974= vs_base[0];          V1023= vs_base[0];
7364          V971= (*(LnkLI314))((V964),V974);          V1019= (*(LnkLI314))(V1022,V1023);
7365          goto T2167;          goto T2167;
7366  T2167:;  T2167:;
7367          (void)((*(LnkLI316))((V964),(V971)));          (void)((*(LnkLI316))((V1012),(V1019)));
7368          if(((V970))==Cnil){          if(((V1018))==Cnil){
7369          goto T2177;}          goto T2177;}
7370          if(((V970))==((V966))){          if(((V1018))==((V1014))){
7371          goto T2177;}          goto T2177;}
7372          (void)((*(LnkLI317))((V970)));          (void)((*(LnkLI317))((V1018)));
7373          goto T2177;          goto T2177;
7374  T2177:;  T2177:;
7375          {object V975 = (V971);          {object V1024 = (V1019);
7376          VMR119(V975)}}}          VMR119(V1024)}}}
7377          va_end(ap);          va_end(ap);
7378          base[0]=base[0];          base[0]=base[0];
7379          return Cnil;}          return Cnil;}
7380          }          }
7381  /*      local entry for function LIST-DFUN      */  /*      local entry for function LIST-DFUN      */
7382    
7383  static object LI131(V977)  static object LI131(V1026)
7384    
7385  object V977;  object V1026;
7386  {        VMB120 VMS120 VMV120  {        VMB120 VMS120 VMV120
7387          goto TTL;          goto TTL;
7388  TTL:;  TTL:;
7389          {object V978;          {object V1027;
7390          object V979;          object V1028;
7391          base[2]= (*(LnkLI218))((V977));          base[2]= (*(LnkLI218))((V1026));
7392          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7393          Ltype_of();          Ltype_of();
7394          vs_top=sup;          vs_top=sup;
7395          V978= vs_base[0];          V1027= vs_base[0];
7396          {register object x= (V978),V980= (VV[152]->s.s_dbind);          {register object x= (V1027),V1029= (VV[152]->s.s_dbind);
7397          while(V980!=Cnil)          while(V1029!=Cnil)
7398          if(EQ(x,V980->c.c_car->c.c_car) &&V980->c.c_car != Cnil){          if(EQ(x,V1029->c.c_car->c.c_car) &&V1029->c.c_car != Cnil){
7399          V979= (V980->c.c_car);          V1028= (V1029->c.c_car);
7400          goto T2184;          goto T2184;
7401          }else V980=V980->c.c_cdr;          }else V1029=V1029->c.c_cdr;
7402          V979= Cnil;}          V1028= Cnil;}
7403          goto T2184;          goto T2184;
7404  T2184:;  T2184:;
7405          if(((V979))!=Cnil){          if(((V1028))!=Cnil){
7406          goto T2185;}          goto T2185;}
7407          {object V981;          {object V1030;
7408          V979= make_cons((V978),Cnil);          V1028= make_cons((V1027),Cnil);
7409          V981= (V979);          V1030= (V1028);
7410          (VV[152]->s.s_dbind)= make_cons((V981),(VV[152]->s.s_dbind));}          (VV[152]->s.s_dbind)= make_cons((V1030),(VV[152]->s.s_dbind));}
7411          goto T2185;          goto T2185;
7412  T2185:;  T2185:;
7413          {object V982;          {object V1031;
7414          object V984;          object V1033;
7415          base[4]= (V977);          base[4]= (V1026);
7416          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7417          (void) (*Lnk162)(Lclptr162);          (void) (*Lnk162)(Lclptr162);
7418          vs_top=sup;          vs_top=sup;
7419          V982= vs_base[0];          V1031= vs_base[0];
7420          V984= make_cons((V982),CMPcdr(V979));          V1033= make_cons((V1031),CMPcdr(V1028));
7421          (V979)->c.c_cdr = (V984);          (V1028)->c.c_cdr = (V1033);
7422          {object V985 = (V984);          {object V1034 = (V1033);
7423          VMR120(V985)}}}          VMR120(V1034)}}}
7424          base[0]=base[0];          base[0]=base[0];
7425          return Cnil;          return Cnil;
7426  }  }
# Line 7383  static object LI132() Line 7432  static object LI132()
7432          goto TTL;          goto TTL;
7433  TTL:;  TTL:;
7434          (VV[152]->s.s_dbind)= Cnil;          (VV[152]->s.s_dbind)= Cnil;
7435          V986= (VV[319]->s.s_gfdef);          V1035= (VV[319]->s.s_gfdef);
7436          (void)((*(LnkLI318))(V986));          (void)((*(LnkLI318))(V1035));
7437          {object V987 = (VV[152]->s.s_dbind);          {object V1036 = (VV[152]->s.s_dbind);
7438          VMR121(V987)}          VMR121(V1036)}
7439          return Cnil;          return Cnil;
7440  }  }
7441  /*      local entry for function LIST-LARGE-CACHE       */  /*      local entry for function LIST-LARGE-CACHE       */
7442    
7443  static object LI133(V989)  static object LI133(V1038)
7444    
7445  object V989;  object V1038;
7446  {        VMB122 VMS122 VMV122  {        VMB122 VMS122 VMV122
7447          goto TTL;          goto TTL;
7448  TTL:;  TTL:;
7449          {object V990;          {object V1039;
7450          object V991;          object V1040;
7451          base[2]= (*(LnkLI218))((V989));          base[2]= (*(LnkLI218))((V1038));
7452          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7453          Ltype_of();          Ltype_of();
7454          vs_top=sup;          vs_top=sup;
7455          V990= vs_base[0];          V1039= vs_base[0];
7456          V991= (*(LnkLI220))((V989));          V1040= (*(LnkLI220))((V1038));
7457          if(((V991))==Cnil){          if(((V1040))==Cnil){
7458          goto T2203;}          goto T2203;}
7459          {object V992;          {object V1041;
7460          V992= CMPmake_fixnum((long)STREF(fixnum,(V991),28));          V1041= CMPmake_fixnum((long)STREF(fixnum,(V1040),28));
7461          if(!(number_compare((V992),(VV[154]->s.s_dbind))>=0)){          if(!(number_compare((V1041),(VV[154]->s.s_dbind))>=0)){
7462          goto T2207;}          goto T2207;}
7463          {object V993;          {object V1042;
7464          {register object x= (V992),V994= (VV[152]->s.s_dbind);          {register object x= (V1041),V1043= (VV[152]->s.s_dbind);
7465          while(V994!=Cnil)          while(V1043!=Cnil)
7466          if(eql(x,V994->c.c_car->c.c_car) &&V994->c.c_car != Cnil){          if(eql(x,V1043->c.c_car->c.c_car) &&V1043->c.c_car != Cnil){
7467          V993= (V994->c.c_car);          V1042= (V1043->c.c_car);
7468          goto T2209;          goto T2209;
7469          }else V994=V994->c.c_cdr;          }else V1043=V1043->c.c_cdr;
7470          V993= Cnil;}          V1042= Cnil;}
7471          goto T2209;          goto T2209;
7472  T2209:;  T2209:;
7473          if(((V993))!=Cnil){          if(((V1042))!=Cnil){
7474          goto T2210;}          goto T2210;}
7475          {object V995;          {object V1044;
7476          V993= make_cons((V992),Cnil);          V1042= make_cons((V1041),Cnil);
7477          V995= (V993);          V1044= (V1042);
7478          (VV[152]->s.s_dbind)= make_cons((V995),(VV[152]->s.s_dbind));}          (VV[152]->s.s_dbind)= make_cons((V1044),(VV[152]->s.s_dbind));}
7479          goto T2210;          goto T2210;
7480  T2210:;  T2210:;
7481          {object V996;          {object V1045;
7482          object V998;          object V1047;
7483          {object V999;          {object V1048;
7484          base[4]= (V989);          base[4]= (V1038);
7485          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7486          (void) (*Lnk162)(Lclptr162);          (void) (*Lnk162)(Lclptr162);
7487          vs_top=sup;          vs_top=sup;
7488          V999= vs_base[0];          V1048= vs_base[0];
7489          if(!(((V990))==(VV[13]))){          if(!(((V1039))==(VV[13]))){
7490          goto T2220;}          goto T2220;}
7491          V996= (V999);          V1045= (V1048);
7492          goto T2216;          goto T2216;
7493          goto T2220;          goto T2220;
7494  T2220:;  T2220:;
7495          V996= list(2,(V999),(V990));}          V1045= list(2,(V1048),(V1039));}
7496          goto T2216;          goto T2216;
7497  T2216:;  T2216:;
7498          V998= make_cons((V996),CMPcdr(V993));          V1047= make_cons((V1045),CMPcdr(V1042));
7499          (V993)->c.c_cdr = (V998);          (V1042)->c.c_cdr = (V1047);
7500          {object V1000 = (V998);          {object V1049 = (V1047);
7501          VMR122(V1000)}}}          VMR122(V1049)}}}
7502          goto T2207;          goto T2207;
7503  T2207:;  T2207:;
7504          {object V1001 = Cnil;          {object V1050 = Cnil;
7505          VMR122(V1001)}}          VMR122(V1050)}}
7506          goto T2203;          goto T2203;
7507  T2203:;  T2203:;
7508          {object V1002 = Cnil;          {object V1051 = Cnil;
7509          VMR122(V1002)}}          VMR122(V1051)}}
7510          base[0]=base[0];          base[0]=base[0];
7511          return Cnil;          return Cnil;
7512  }  }
# Line 7479  T2224:; Line 7528  T2224:;
7528          goto T2225;          goto T2225;
7529  T2225:;  T2225:;
7530          (VV[152]->s.s_dbind)= Cnil;          (VV[152]->s.s_dbind)= Cnil;
7531          V1003= (VV[320]->s.s_gfdef);          V1052= (VV[320]->s.s_gfdef);
7532          (void)((*(LnkLI318))(V1003));          (void)((*(LnkLI318))(V1052));
7533          base[1]= (VV[152]->s.s_dbind);          base[1]= (VV[152]->s.s_dbind);
7534          base[2]= (VV[321]->s.s_gfdef);          base[2]= (VV[321]->s.s_gfdef);
7535          base[3]= VV[155];          base[3]= VV[155];
# Line 7491  T2225:; Line 7540  T2225:;
7540          (VV[152]->s.s_dbind)= vs_base[0];          (VV[152]->s.s_dbind)= vs_base[0];
7541          base[1]= (VV[152]->s.s_dbind);          base[1]= (VV[152]->s.s_dbind);
7542          {          {
7543          object V1004= base[1];          object V1053= base[1];
7544          if(V1004==Cnil){          if(V1053==Cnil){
7545          goto T2237;}          goto T2237;}
7546          goto T2238;          goto T2238;
7547  T2238:;  T2238:;
7548          (void)(print((V1004->c.c_car),Cnil));          (void)(print((V1053->c.c_car),Cnil));
7549          if((V1004=MMcdr(V1004))==Cnil){          if((V1053=MMcdr(V1053))==Cnil){
7550          goto T2237;}          goto T2237;}
7551          goto T2238;}          goto T2238;}
7552          goto T2237;          goto T2237;
# Line 7509  T2237:; Line 7558  T2237:;
7558  }  }
7559  /*      local entry for function COUNT-DFUN     */  /*      local entry for function COUNT-DFUN     */
7560    
7561  static object LI135(V1006)  static object LI135(V1055)
7562    
7563  object V1006;  object V1055;
7564  {        VMB124 VMS124 VMV124  {        VMB124 VMS124 VMV124
7565          goto TTL;          goto TTL;
7566  TTL:;  TTL:;
7567          {object V1007;          {object V1056;
7568          object V1008;          object V1057;
7569          register object V1009;          register object V1058;
7570          base[3]= (*(LnkLI218))((V1006));          base[3]= (*(LnkLI218))((V1055));
7571          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7572          Ltype_of();          Ltype_of();
7573          vs_top=sup;          vs_top=sup;
7574          V1007= vs_base[0];          V1056= vs_base[0];
7575          V1008= (*(LnkLI220))((V1006));          V1057= (*(LnkLI220))((V1055));
7576          {register object x= (V1007),V1010= (VV[156]->s.s_dbind);          {register object x= (V1056),V1059= (VV[156]->s.s_dbind);
7577          while(V1010!=Cnil)          while(V1059!=Cnil)
7578          if(EQ(x,V1010->c.c_car->c.c_car) &&V1010->c.c_car != Cnil){          if(EQ(x,V1059->c.c_car->c.c_car) &&V1059->c.c_car != Cnil){
7579          V1009= (V1010->c.c_car);          V1058= (V1059->c.c_car);
7580          goto T2243;          goto T2243;
7581          }else V1010=V1010->c.c_cdr;          }else V1059=V1059->c.c_cdr;
7582          V1009= Cnil;}          V1058= Cnil;}
7583          goto T2243;          goto T2243;
7584  T2243:;  T2243:;
7585          if(((V1009))!=Cnil){          if(((V1058))!=Cnil){
7586          goto T2244;}          goto T2244;}
7587          {object V1011;          {object V1060;
7588          V1009= list(3,(V1007),small_fixnum(0),Cnil);          V1058= list(3,(V1056),small_fixnum(0),Cnil);
7589          V1011= (V1009);          V1060= (V1058);
7590          (VV[156]->s.s_dbind)= make_cons((V1011),(VV[156]->s.s_dbind));}          (VV[156]->s.s_dbind)= make_cons((V1060),(VV[156]->s.s_dbind));}
7591          goto T2244;          goto T2244;
7592  T2244:;  T2244:;
7593          {object V1013;          {object V1062;
7594          V1013= number_plus(CMPcadr(V1009),small_fixnum(1));          V1062= number_plus(CMPcadr(V1058),small_fixnum(1));
7595          (CMPcdr(V1009))->c.c_car = (V1013);          (CMPcdr(V1058))->c.c_car = (V1062);
7596          (void)(CMPcdr(V1009));}          (void)(CMPcdr(V1058));}
7597          if(((V1008))==Cnil){          if(((V1057))==Cnil){
7598          goto T2254;}          goto T2254;}
7599          {object V1014;          {object V1063;
7600          object V1015;          object V1064;
7601          V1014= CMPmake_fixnum((long)STREF(fixnum,(V1008),28));          V1063= CMPmake_fixnum((long)STREF(fixnum,(V1057),28));
7602          {register object x= (V1014),V1016= CMPcaddr((V1009));          {register object x= (V1063),V1065= CMPcaddr((V1058));
7603          while(V1016!=Cnil)          while(V1065!=Cnil)
7604          if(eql(x,V1016->c.c_car->c.c_car) &&V1016->c.c_car != Cnil){          if(eql(x,V1065->c.c_car->c.c_car) &&V1065->c.c_car != Cnil){
7605          V1015= (V1016->c.c_car);          V1064= (V1065->c.c_car);
7606          goto T2257;          goto T2257;
7607          }else V1016=V1016->c.c_cdr;          }else V1065=V1065->c.c_cdr;
7608          V1015= Cnil;}          V1064= Cnil;}
7609          goto T2257;          goto T2257;
7610  T2257:;  T2257:;
7611          if(((V1015))!=Cnil){          if(((V1064))!=Cnil){
7612          goto T2258;}          goto T2258;}
7613          {object V1017;          {object V1066;
7614          object V1019;          object V1068;
7615          V1015= make_cons((V1014),small_fixnum(0));          V1064= make_cons((V1063),small_fixnum(0));
7616          V1017= (V1015);          V1066= (V1064);
7617          V1019= make_cons((V1017),CMPcaddr(V1009));          V1068= make_cons((V1066),CMPcaddr(V1058));
7618          (CMPcddr(V1009))->c.c_car = (V1019);          (CMPcddr(V1058))->c.c_car = (V1068);
7619          (void)(CMPcddr(V1009));}          (void)(CMPcddr(V1058));}
7620          goto T2258;          goto T2258;
7621  T2258:;  T2258:;
7622          {object V1021;          {object V1070;
7623          V1021= number_plus(CMPcdr(V1015),small_fixnum(1));          V1070= number_plus(CMPcdr(V1064),small_fixnum(1));
7624          (V1015)->c.c_cdr = (V1021);          (V1064)->c.c_cdr = (V1070);
7625          {object V1022 = (V1021);          {object V1071 = (V1070);
7626          VMR124(V1022)}}}          VMR124(V1071)}}}
7627          goto T2254;          goto T2254;
7628  T2254:;  T2254:;
7629          {object V1023 = Cnil;          {object V1072 = Cnil;
7630          VMR124(V1023)}}          VMR124(V1072)}}
7631          base[0]=base[0];          base[0]=base[0];
7632          return Cnil;          return Cnil;
7633  }  }
# Line 7592  static void L136() Line 7641  static void L136()
7641          vs_top=sup;          vs_top=sup;
7642          goto TTL;          goto TTL;
7643  TTL:;  TTL:;
7644          {object V1024;          {object V1073;
7645          object V1025= VV[157];          object V1074= VV[157];
7646          if(V1025==Cnil){          if(V1074==Cnil){
7647          (VV[156]->s.s_dbind)= Cnil;          (VV[156]->s.s_dbind)= Cnil;
7648          goto T2268;}          goto T2268;}
7649          base[0]=V1024=MMcons(Cnil,Cnil);          base[0]=V1073=MMcons(Cnil,Cnil);
7650          goto T2269;          goto T2269;
7651  T2269:;  T2269:;
7652          (V1024->c.c_car)= list(3,(V1025->c.c_car),small_fixnum(0),Cnil);          (V1073->c.c_car)= list(3,(V1074->c.c_car),small_fixnum(0),Cnil);
7653          if((V1025=MMcdr(V1025))==Cnil){          if((V1074=MMcdr(V1074))==Cnil){
7654          (VV[156]->s.s_dbind)= base[0];          (VV[156]->s.s_dbind)= base[0];
7655          goto T2268;}          goto T2268;}
7656          V1024=MMcdr(V1024)=MMcons(Cnil,Cnil);          V1073=MMcdr(V1073)=MMcons(Cnil,Cnil);
7657          goto T2269;}          goto T2269;}
7658          goto T2268;          goto T2268;
7659  T2268:;  T2268:;
7660          V1027= (VV[324]->s.s_gfdef);          V1076= (VV[324]->s.s_gfdef);
7661          (void)((*(LnkLI318))(V1027));          (void)((*(LnkLI318))(V1076));
7662          base[0]= (VV[156]->s.s_dbind);          base[0]= (VV[156]->s.s_dbind);
7663          {          {
7664          object V1028= base[0];          object V1077= base[0];
7665          if(V1028==Cnil){          if(V1077==Cnil){
7666          goto T2273;}          goto T2273;}
7667          goto T2274;          goto T2274;
7668  T2274:;  T2274:;
7669          {object V1031;          {object V1080;
7670          base[2]= CMPcaddr((V1028->c.c_car));          base[2]= CMPcaddr((V1077->c.c_car));
7671          base[3]= (VV[321]->s.s_gfdef);          base[3]= (VV[321]->s.s_gfdef);
7672          base[4]= VV[155];          base[4]= VV[155];
7673          base[5]= (VV[322]->s.s_gfdef);          base[5]= (VV[322]->s.s_gfdef);
7674          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
7675          (void) (*Lnk323)();          (void) (*Lnk323)();
7676          vs_top=sup;          vs_top=sup;
7677          V1031= vs_base[0];          V1080= vs_base[0];
7678          (CMPcddr((V1028->c.c_car)))->c.c_car = (V1031);          (CMPcddr((V1077->c.c_car)))->c.c_car = (V1080);
7679          (void)(CMPcddr((V1028->c.c_car)));}          (void)(CMPcddr((V1077->c.c_car)));}
7680          if((V1028=MMcdr(V1028))==Cnil){          if((V1077=MMcdr(V1077))==Cnil){
7681          goto T2273;}          goto T2273;}
7682          goto T2274;}          goto T2274;}
7683          goto T2273;          goto T2273;
7684  T2273:;  T2273:;
7685          base[0]= (VV[156]->s.s_dbind);          base[0]= (VV[156]->s.s_dbind);
7686          {          {
7687          object V1032= base[0];          object V1081= base[0];
7688          if(V1032==Cnil){          if(V1081==Cnil){
7689          goto T2282;}          goto T2282;}
7690          goto T2283;          goto T2283;
7691  T2283:;  T2283:;
7692          base[1]= Ct;          base[1]= Ct;
7693          base[2]= VV[158];          base[2]= VV[158];
7694          base[3]= CMPcadr((V1032->c.c_car));          base[3]= CMPcadr((V1081->c.c_car));
7695          base[4]= CMPcar((V1032->c.c_car));          base[4]= CMPcar((V1081->c.c_car));
7696          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
7697          Lformat();          Lformat();
7698          vs_top=sup;          vs_top=sup;
7699          base[1]= Ct;          base[1]= Ct;
7700          base[2]= VV[159];          base[2]= VV[159];
7701          base[3]= CMPcaddr((V1032->c.c_car));          base[3]= CMPcaddr((V1081->c.c_car));
7702          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
7703          Lformat();          Lformat();
7704          vs_top=sup;          vs_top=sup;
7705          if((V1032=MMcdr(V1032))==Cnil){          if((V1081=MMcdr(V1081))==Cnil){
7706          goto T2282;}          goto T2282;}
7707          goto T2283;}          goto T2283;}
7708          goto T2282;          goto T2282;
# Line 7664  T2282:; Line 7713  T2282:;
7713  }  }
7714  /*      local entry for function GFS-OF-TYPE    */  /*      local entry for function GFS-OF-TYPE    */
7715    
7716  static object LI138(V1035)  static object LI138(V1084)
7717    
7718  object V1035;  object V1084;
7719  {        VMB126 VMS126 VMV126  {        VMB126 VMS126 VMV126
7720          goto TTL;          goto TTL;
7721  TTL:;  TTL:;
7722          base[0]=MMcons((V1035),Cnil);          base[0]=MMcons((V1084),Cnil);
7723          if(type_of((base[0]->c.c_car))==t_cons){          if(type_of((base[0]->c.c_car))==t_cons){
7724          goto T2293;}          goto T2293;}
7725          (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);
7726          goto T2293;          goto T2293;
7727  T2293:;  T2293:;
7728          base[1]=MMcons(Cnil,base[0]);          base[1]=MMcons(Cnil,base[0]);
7729          V1036=          V1085=
7730          make_cclosure_new(LC167,Cnil,base[1],Cdata);          make_cclosure_new(LC167,Cnil,base[1],Cdata);
7731          (void)((*(LnkLI318))(V1036));          (void)((*(LnkLI318))(V1085));
7732          {object V1037 = (base[1]->c.c_car);          {object V1086 = (base[1]->c.c_car);
7733          VMR126(V1037)}          VMR126(V1086)}
7734          base[0]=base[0];          base[0]=base[0];
7735          return Cnil;          return Cnil;
7736  }  }
# Line 7692  register object *base0; Line 7741  register object *base0;
7741  {       register object *base=vs_base;  {       register object *base=vs_base;
7742          register object *sup=base+VM127; VC127          register object *sup=base+VM127; VC127
7743          vs_check;          vs_check;
7744          {object V1038;          {object V1087;
7745          check_arg(1);          check_arg(1);
7746          V1038=(base[0]);          V1087=(base[0]);
7747          vs_top=sup;          vs_top=sup;
7748          base[1]= (*(LnkLI218))((V1038));          base[1]= (*(LnkLI218))((V1087));
7749          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7750          Ltype_of();          Ltype_of();
7751          vs_top=sup;          vs_top=sup;
7752          V1040= vs_base[0];          V1089= vs_base[0];
7753          {register object x= V1040,V1039= (base0[1]->c.c_car);          V1090 = (base0[1]->c.c_car);
7754          while(V1039!=Cnil)          {register object x= V1089,V1088= V1090;
7755          if(x==(V1039->c.c_car)){          while(V1088!=Cnil)
7756            if(x==(V1088->c.c_car)){
7757          goto T2301;          goto T2301;
7758          }else V1039=V1039->c.c_cdr;          }else V1088=V1088->c.c_cdr;
7759          goto T2300;}          goto T2300;}
7760          goto T2301;          goto T2301;
7761  T2301:;  T2301:;
7762          (base0[0]->c.c_car)= make_cons(V1038,(base0[0]->c.c_car));          (base0[0]->c.c_car)= make_cons(V1087,(base0[0]->c.c_car));
7763          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
7764          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7765          return;          return;
# Line 7727  register object *base0; Line 7777  register object *base0;
7777  {       register object *base=vs_base;  {       register object *base=vs_base;
7778          register object *sup=base+VM128; VC128          register object *sup=base+VM128; VC128
7779          vs_check;          vs_check;
7780          {object V1042;          {object V1092;
7781          object V1043;          object V1093;
7782          check_arg(2);          check_arg(2);
7783          V1042=(base[0]);          V1092=(base[0]);
7784          V1043=(base[1]);          V1093=(base[1]);
7785          vs_top=sup;          vs_top=sup;
7786          base[2]=          base[2]=
7787          make_cclosure_new(LC168,Cnil,base0[0],Cdata);          make_cclosure_new(LC168,Cnil,base0[0],Cdata);
# Line 7746  register object *base0; Line 7796  register object *base0;
7796  {       register object *base=vs_base;  {       register object *base=vs_base;
7797          register object *sup=base+VM129; VC129          register object *sup=base+VM129; VC129
7798          vs_check;          vs_check;
7799          {object V1044;          {object V1094;
7800          vs_top[0]=Cnil;          vs_top[0]=Cnil;
7801          {object *p=vs_top;          {object *p=vs_top;
7802           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
7803          V1044=(base[0]);          V1094=(base[0]);
7804          vs_top=sup;          vs_top=sup;
7805          base[1]=VV[250]->s.s_gfdef;          base[1]=VV[250]->s.s_gfdef;
7806          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
7807          {object V1045;          {object V1095;
7808          V1045= (V1044);          V1095= (V1094);
7809           vs_top=base+3;           vs_top=base+3;
7810           while(V1045!=Cnil)           while(V1095!=Cnil)
7811           {vs_push((V1045)->c.c_car);V1045=(V1045)->c.c_cdr;}           {vs_push((V1095)->c.c_car);V1095=(V1095)->c.c_cdr;}
7812          vs_base=base+2;}          vs_base=base+2;}
7813          (void) (*Lnk250)(Lclptr250);          (void) (*Lnk250)(Lclptr250);
7814          return;          return;
# Line 7771  register object *base0; Line 7821  register object *base0;
7821  {       register object *base=vs_base;  {       register object *base=vs_base;
7822          register object *sup=base+VM130; VC130          register object *sup=base+VM130; VC130
7823          vs_check;          vs_check;
7824          {object V1046;          {object V1096;
7825          object V1047;          object V1097;
7826          check_arg(2);          check_arg(2);
7827          V1046=(base[0]);          V1096=(base[0]);
7828          V1047=(base[1]);          V1097=(base[1]);
7829          vs_top=sup;          vs_top=sup;
7830          base[2]=          base[2]=
7831          make_cclosure_new(LC169,Cnil,base0[0],Cdata);          make_cclosure_new(LC169,Cnil,base0[0],Cdata);
# Line 7790  register object *base0; Line 7840  register object *base0;
7840  {       register object *base=vs_base;  {       register object *base=vs_base;
7841          register object *sup=base+VM131; VC131          register object *sup=base+VM131; VC131
7842          vs_check;          vs_check;
7843          {object V1048;          {object V1098;
7844          vs_top[0]=Cnil;          vs_top[0]=Cnil;
7845          {object *p=vs_top;          {object *p=vs_top;
7846           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
7847          V1048=(base[0]);          V1098=(base[0]);
7848          vs_top=sup;          vs_top=sup;
7849          base[1]=VV[250]->s.s_gfdef;          base[1]=VV[250]->s.s_gfdef;
7850          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
7851          {object V1049;          {object V1099;
7852          V1049= (V1048);          V1099= (V1098);
7853           vs_top=base+3;           vs_top=base+3;
7854           while(V1049!=Cnil)           while(V1099!=Cnil)
7855           {vs_push((V1049)->c.c_car);V1049=(V1049)->c.c_cdr;}           {vs_push((V1099)->c.c_car);V1099=(V1099)->c.c_cdr;}
7856          vs_base=base+2;}          vs_base=base+2;}
7857          (void) (*Lnk250)(Lclptr250);          (void) (*Lnk250)(Lclptr250);
7858          return;          return;
# Line 7815  register object *base0; Line 7865  register object *base0;
7865  {       register object *base=vs_base;  {       register object *base=vs_base;
7866          register object *sup=base+VM132; VC132          register object *sup=base+VM132; VC132
7867          vs_check;          vs_check;
7868          {object V1050;          {object V1100;
7869          check_arg(1);          check_arg(1);
7870          V1050=(base[0]);          V1100=(base[0]);
7871          vs_top=sup;          vs_top=sup;
7872          goto TTL;          goto TTL;
7873  TTL:;  TTL:;
7874          if((base0[2])==Cnil){          if((base0[2])==Cnil){
7875          goto T2313;}          goto T2313;}
7876          base[1]= (V1050);          base[1]= (V1100);
7877          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7878          (void) (*Lnk293)(Lclptr293);          (void) (*Lnk293)(Lclptr293);
7879          vs_top=sup;          vs_top=sup;
7880          V1052= vs_base[0];          V1102= vs_base[0];
7881          goto T2311;          goto T2311;
7882          goto T2313;          goto T2313;
7883  T2313:;  T2313:;
7884          V1052= (*(LnkLI325))((V1050));          V1102= (*(LnkLI325))((V1100));
7885          goto T2311;          goto T2311;
7886  T2311:;  T2311:;
7887          {          {
7888          object V1051= V1052;          object V1101= V1102;
7889          if(V1051==Cnil){          if(V1101==Cnil){
7890          goto T2309;}          goto T2309;}
7891          goto T2310;          goto T2310;
7892  T2310:;  T2310:;
7893          base[1]= (V1051->c.c_car);          base[1]= (V1101->c.c_car);
7894          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7895          L123(base0);          L123(base0);
7896          vs_top=sup;          vs_top=sup;
7897          if((V1051=MMcdr(V1051))==Cnil){          if((V1101=MMcdr(V1101))==Cnil){
7898          goto T2309;}          goto T2309;}
7899          goto T2310;}          goto T2310;}
7900          goto T2309;          goto T2309;
7901  T2309:;  T2309:;
7902          base[1]= (V1050);          base[1]= (V1100);
7903          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7904          {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))
7905                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 7865  register object *base0; Line 7915  register object *base0;
7915  {       register object *base=vs_base;  {       register object *base=vs_base;
7916          register object *sup=base+VM133; VC133          register object *sup=base+VM133; VC133
7917          vs_check;          vs_check;
7918          {object V1053;          {object V1103;
7919          object V1054;          object V1104;
7920          object V1055;          object V1105;
7921          check_arg(3);          check_arg(3);
7922          V1053=(base[0]);          V1103=(base[0]);
7923          V1054=(base[1]);          V1104=(base[1]);
7924          V1055=(base[2]);          V1105=(base[2]);
7925          vs_top=sup;          vs_top=sup;
7926          {object V1056;          {object V1106;
7927          V1056= Cnil;          V1106= Cnil;
7928          {object V1057;          {object V1107;
7929          register object V1058;          register object V1108;
7930          V1057= (base0[0]->c.c_car);          V1107= (base0[0]->c.c_car);
7931          V1058= CMPcar((V1057));          V1108= CMPcar((V1107));
7932          goto T2323;          goto T2323;
7933  T2323:;  T2323:;
7934          if(!(((V1057))==Cnil)){          if(!(((V1107))==Cnil)){
7935          goto T2324;}          goto T2324;}
7936          goto T2319;          goto T2319;
7937          goto T2324;          goto T2324;
7938  T2324:;  T2324:;
7939          if(!((CMPcar((V1058)))==((V1053)))){          if(!((CMPcar((V1108)))==((V1103)))){
7940          goto T2330;}          goto T2330;}
7941          if((CMPcadr((V1058)))==((V1054))){          if((CMPcadr((V1108)))==((V1104))){
7942          goto T2329;}          goto T2329;}
7943          goto T2330;          goto T2330;
7944  T2330:;  T2330:;
7945          if(!((CMPcar((V1058)))==((V1054)))){          if(!((CMPcar((V1108)))==((V1104)))){
7946          goto T2328;}          goto T2328;}
7947          if(!((CMPcadr((V1058)))==((V1053)))){          if(!((CMPcadr((V1108)))==((V1103)))){
7948          goto T2328;}          goto T2328;}
7949          goto T2329;          goto T2329;
7950  T2329:;  T2329:;
7951          V1056= (V1058);          V1106= (V1108);
7952          goto T2319;          goto T2319;
7953          goto T2328;          goto T2328;
7954  T2328:;  T2328:;
7955          V1057= CMPcdr((V1057));          V1107= CMPcdr((V1107));
7956          V1058= CMPcar((V1057));          V1108= CMPcar((V1107));
7957          goto T2323;}          goto T2323;}
7958          goto T2319;          goto T2319;
7959  T2319:;  T2319:;
7960          if(((V1056))!=Cnil){          if(((V1106))!=Cnil){
7961          goto T2343;}          goto T2343;}
7962          if(((*(LnkLI326))((V1053),(V1054)))==Cnil){          if(((*(LnkLI326))((V1103),(V1104)))==Cnil){
7963          goto T2349;}          goto T2349;}
7964          if(((*(LnkLI326))((V1054),(V1053)))==Cnil){          if(((*(LnkLI326))((V1104),(V1103)))==Cnil){
7965          goto T2352;}          goto T2352;}
7966          V1056= list(4,(V1053),(V1054),Cnil,Ct);          V1106= list(4,(V1103),(V1104),Cnil,Ct);
7967          goto T2347;          goto T2347;
7968          goto T2352;          goto T2352;
7969  T2352:;  T2352:;
7970          V1056= list(3,(V1053),(V1054),Ct);          V1106= list(3,(V1103),(V1104),Ct);
7971          goto T2347;          goto T2347;
7972          goto T2349;          goto T2349;
7973  T2349:;  T2349:;
7974          if(((*(LnkLI326))((V1054),(V1053)))==Cnil){          if(((*(LnkLI326))((V1104),(V1103)))==Cnil){
7975          goto T2355;}          goto T2355;}
7976          V1056= list(3,(V1054),(V1053),Ct);          V1106= list(3,(V1104),(V1103),Ct);
7977          goto T2347;          goto T2347;
7978          goto T2355;          goto T2355;
7979  T2355:;  T2355:;
7980          {object V1059;          {object V1109;
7981          object V1060;          object V1110;
7982          base[3]= (V1053);          base[3]= (V1103);
7983          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7984          (void) (*Lnk327)(Lclptr327);          (void) (*Lnk327)(Lclptr327);
7985          vs_top=sup;          vs_top=sup;
7986          V1059= vs_base[0];          V1109= vs_base[0];
7987          base[3]= (V1054);          base[3]= (V1104);
7988          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7989          (void) (*Lnk327)(Lclptr327);          (void) (*Lnk327)(Lclptr327);
7990          vs_top=sup;          vs_top=sup;
7991          V1060= vs_base[0];          V1110= vs_base[0];
7992          if(((V1059))==Cnil){          if(((V1109))==Cnil){
7993          goto T2362;}          goto T2362;}
7994          if(((V1060))==Cnil){          if(((V1110))==Cnil){
7995          goto T2362;}          goto T2362;}
7996          if(!(type_of((V1059))==t_symbol)){          if(!(type_of((V1109))==t_symbol)){
7997          goto T2362;}          goto T2362;}
7998          if(!(type_of((V1060))==t_symbol)){          if(!(type_of((V1110))==t_symbol)){
7999          goto T2362;}          goto T2362;}
8000          base[3]= symbol_name((V1059));          base[3]= symbol_name((V1109));
8001          base[4]= symbol_name((V1060));          base[4]= symbol_name((V1110));
8002          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
8003          Lstring_l();          Lstring_l();
8004          vs_top=sup;          vs_top=sup;
8005          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8006          goto T2362;}          goto T2362;}
8007          V1056= list(3,(V1053),(V1054),Ct);          V1106= list(3,(V1103),(V1104),Ct);
8008          goto T2347;          goto T2347;
8009          goto T2362;          goto T2362;
8010  T2362:;  T2362:;
8011          V1056= list(3,(V1054),(V1053),Ct);}          V1106= list(3,(V1104),(V1103),Ct);}
8012          goto T2347;          goto T2347;
8013  T2347:;  T2347:;
8014          (base0[0]->c.c_car)= make_cons(V1056,(base0[0]->c.c_car));          (base0[0]->c.c_car)= make_cons(V1106,(base0[0]->c.c_car));
8015          goto T2343;          goto T2343;
8016  T2343:;  T2343:;
8017          base[3]= CMPcar((V1056));          base[3]= CMPcar((V1106));
8018          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8019          return;}          return;}
8020          }          }
# Line 7976  register object *base0; Line 8026  register object *base0;
8026  {       register object *base=vs_base;  {       register object *base=vs_base;
8027          register object *sup=base+VM134; VC134          register object *sup=base+VM134; VC134
8028          vs_check;          vs_check;
8029          {register object V1062;          {register object V1112;
8030          register object V1063;          register object V1113;
8031          check_arg(2);          check_arg(2);
8032          V1062=(base[0]);          V1112=(base[0]);
8033          V1063=(base[1]);          V1113=(base[1]);
8034          vs_top=sup;          vs_top=sup;
8035          {register object V1064;          {register object V1114;
8036          register object V1065;          register object V1115;
8037          V1064= (base0[0]->c.c_car);          V1114= (base0[0]->c.c_car);
8038          V1065= CMPcar((V1064));          V1115= CMPcar((V1114));
8039          goto T2378;          goto T2378;
8040  T2378:;  T2378:;
8041          if(!(((V1064))==Cnil)){          if(!(((V1114))==Cnil)){
8042          goto T2379;}          goto T2379;}
8043          base[3]= Cnil;          base[3]= Cnil;
8044          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8045          return;          return;
8046          goto T2379;          goto T2379;
8047  T2379:;  T2379:;
8048          {register object V1066;          {register object V1116;
8049          object V1067;          object V1117;
8050          register object V1068;          register object V1118;
8051          if(!(type_of((V1062))==t_cons||((V1062))==Cnil)){          V1119 = (V1115);
8052            if(!(type_of((V1112))==t_cons||((V1112))==Cnil)){
8053          goto T2387;}          goto T2387;}
8054          V1069= (VFUN_NARGS=2,(*(LnkLI275))((V1062),Ct));          V1120= (VFUN_NARGS=2,(*(LnkLI275))((V1112),Ct));
8055          goto T2385;          goto T2385;
8056          goto T2387;          goto T2387;
8057  T2387:;  T2387:;
8058          base[6]= (V1062);          base[6]= (V1112);
8059          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
8060          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk242)(Lclptr242);
8061          vs_top=sup;          vs_top=sup;
8062          V1069= vs_base[0];          V1120= vs_base[0];
8063          goto T2385;          goto T2385;
8064  T2385:;  T2385:;
8065          V1066= nth(fix((V1065)),V1069);          V1116= nth(fix(V1119),V1120);
8066          if(!(type_of((V1063))==t_cons||((V1063))==Cnil)){          V1121 = (V1115);
8067            if(!(type_of((V1113))==t_cons||((V1113))==Cnil)){
8068          goto T2393;}          goto T2393;}
8069          V1070= (VFUN_NARGS=2,(*(LnkLI275))((V1063),Ct));          V1122= (VFUN_NARGS=2,(*(LnkLI275))((V1113),Ct));
8070          goto T2391;          goto T2391;
8071          goto T2393;          goto T2393;
8072  T2393:;  T2393:;
8073          base[6]= (V1063);          base[6]= (V1113);
8074          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
8075          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk242)(Lclptr242);
8076          vs_top=sup;          vs_top=sup;
8077          V1070= vs_base[0];          V1122= vs_base[0];
8078          goto T2391;          goto T2391;
8079  T2391:;  T2391:;
8080          V1067= nth(fix((V1065)),V1070);          V1117= nth(fix(V1121),V1122);
8081          base[6]= (V1066);          base[6]= (V1116);
8082          base[7]= (V1067);          base[7]= (V1117);
8083          base[8]= (V1065);          base[8]= (V1115);
8084          base[9]= (base0[1]->c.c_car);          base[9]= (base0[1]->c.c_car);
8085          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
8086          (void) (*Lnk328)();          (void) (*Lnk328)();
8087          vs_top=sup;          vs_top=sup;
8088          V1068= vs_base[0];          V1118= vs_base[0];
8089          if(((V1068))==Cnil){          if(((V1118))==Cnil){
8090          goto T2383;}          goto T2383;}
8091          base[6]= (((V1068))==((V1066))?Ct:Cnil);          base[6]= (((V1118))==((V1116))?Ct:Cnil);
8092          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
8093          return;}          return;}
8094          goto T2383;          goto T2383;
8095  T2383:;  T2383:;
8096          V1064= CMPcdr((V1064));          V1114= CMPcdr((V1114));
8097          V1065= CMPcar((V1064));          V1115= CMPcar((V1114));
8098          goto T2378;}          goto T2378;}
8099          }          }
8100  }  }
# Line 8053  register object *base0; Line 8105  register object *base0;
8105  {       register object *base=vs_base;  {       register object *base=vs_base;
8106          register object *sup=base+VM135; VC135          register object *sup=base+VM135; VC135
8107          vs_check;          vs_check;
8108          {object V1071;          {object V1123;
8109          object V1072;          object V1124;
8110          object V1073;          object V1125;
8111          check_arg(3);          check_arg(3);
8112          V1071=(base[0]);          V1123=(base[0]);
8113          V1072=(base[1]);          V1124=(base[1]);
8114          V1073=(base[2]);          V1125=(base[2]);
8115          vs_top=sup;          vs_top=sup;
8116          {object V1074;          {object V1126;
8117          object V1075;          object V1127;
8118          V1074= (*(LnkLI289))(nth(fix((V1073)),(base0[0]->c.c_car)));          V1126= (*(LnkLI289))(nth(fix((V1125)),(base0[0]->c.c_car)));
8119          if(!(((VV[72]->s.s_dbind))==(VV[73]))){          if(!(((VV[72]->s.s_dbind))==(VV[73]))){
8120          goto T2411;}          goto T2411;}
8121          base[5]= (V1074);          base[5]= (V1126);
8122          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8123          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
8124          vs_top=sup;          vs_top=sup;
8125          V1075= vs_base[0];          V1127= vs_base[0];
8126          goto T2409;          goto T2409;
8127          goto T2411;          goto T2411;
8128  T2411:;  T2411:;
8129          V1075= (*(LnkLI263))((V1074));          V1127= (*(LnkLI263))((V1126));
8130          goto T2409;          goto T2409;
8131  T2409:;  T2409:;
8132          {register object x= (V1071),V1078= (V1075);          V1129 = (V1124);
8133          while(V1078!=Cnil)          {register object x= (V1123),V1131= (V1127);
8134          if(x==(V1078->c.c_car)){          while(V1131!=Cnil)
8135          V1077= V1078;          if(x==(V1131->c.c_car)){
8136            V1130= V1131;
8137          goto T2417;          goto T2417;
8138          }else V1078=V1078->c.c_cdr;          }else V1131=V1131->c.c_cdr;
8139          V1077= Cnil;}          V1130= Cnil;}
8140          goto T2417;          goto T2417;
8141  T2417:;  T2417:;
8142          {register object x= (V1072),V1076= V1077;          {register object x= V1129,V1128= V1130;
8143          while(V1076!=Cnil)          while(V1128!=Cnil)
8144          if(x==(V1076->c.c_car)){          if(x==(V1128->c.c_car)){
8145          goto T2416;          goto T2416;
8146          }else V1076=V1076->c.c_cdr;          }else V1128=V1128->c.c_cdr;
8147          goto T2415;}          goto T2415;}
8148          goto T2416;          goto T2416;
8149  T2416:;  T2416:;
8150          base[5]= (V1071);          base[5]= (V1123);
8151          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8152          return;          return;
8153          goto T2415;          goto T2415;
8154  T2415:;  T2415:;
8155          base[5]= (V1072);          base[5]= (V1124);
8156          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8157          return;}          return;}
8158          }          }
# Line 8111  register object *base0; Line 8164  register object *base0;
8164  {       register object *base=vs_base;  {       register object *base=vs_base;
8165          register object *sup=base+VM136; VC136          register object *sup=base+VM136; VC136
8166          vs_check;          vs_check;
8167          {object V1079;          {object V1132;
8168          object V1080;          object V1133;
8169          check_arg(2);          check_arg(2);
8170          V1079=(base[0]);          V1132=(base[0]);
8171          V1080=(base[1]);          V1133=(base[1]);
8172          vs_top=sup;          vs_top=sup;
8173          {register object V1081;          {register object V1134;
8174          object V1082;          object V1135;
8175          if(((base0[3]->c.c_car))==Cnil){          if(((base0[3]->c.c_car))==Cnil){
8176          goto T2420;}          goto T2420;}
8177          V1081= (*(LnkLI263))((V1079));          V1134= (*(LnkLI263))((V1132));
8178          goto T2418;          goto T2418;
8179          goto T2420;          goto T2420;
8180  T2420:;  T2420:;
8181          base[4]= (V1079);          base[4]= (V1132);
8182          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8183          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
8184          vs_top=sup;          vs_top=sup;
8185          V1081= vs_base[0];          V1134= vs_base[0];
8186          goto T2418;          goto T2418;
8187  T2418:;  T2418:;
8188          V1082= CMPcar((V1081));          V1135= CMPcar((V1134));
8189          goto T2425;          goto T2425;
8190  T2425:;  T2425:;
8191          if(!(((V1081))==Cnil)){          if(!(((V1134))==Cnil)){
8192          goto T2426;}          goto T2426;}
8193          base[4]= VV[137];          base[4]= VV[137];
8194          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 8143  T2425:; Line 8196  T2425:;
8196          return;          return;
8197          goto T2426;          goto T2426;
8198  T2426:;  T2426:;
8199          {object V1083;          {object V1136;
8200          {register object x= (V1082),V1084= (V1080);          {register object x= (V1135),V1137= (V1133);
8201          while(V1084!=Cnil)          while(V1137!=Cnil)
8202          if(EQ(x,V1084->c.c_car->c.c_car) &&V1084->c.c_car != Cnil){          if(EQ(x,V1137->c.c_car->c.c_car) &&V1137->c.c_car != Cnil){
8203          V1083= (V1084->c.c_car);          V1136= (V1137->c.c_car);
8204          goto T2432;          goto T2432;
8205          }else V1084=V1084->c.c_cdr;          }else V1137=V1137->c.c_cdr;
8206          V1083= Cnil;}          V1136= Cnil;}
8207          goto T2432;          goto T2432;
8208  T2432:;  T2432:;
8209          if(((V1083))==Cnil){          if(((V1136))==Cnil){
8210          goto T2431;}          goto T2431;}
8211          {object V1085;          {object V1138;
8212          register object V1086;          register object V1139;
8213          V1085= CMPcdr((V1083));          V1138= CMPcdr((V1136));
8214          if(((base0[3]->c.c_car))==Cnil){          if(((base0[3]->c.c_car))==Cnil){
8215          goto T2438;}          goto T2438;}
8216          V1086= (*(LnkLI273))((V1085));          V1139= (*(LnkLI273))((V1138));
8217          goto T2436;          goto T2436;
8218          goto T2438;          goto T2438;
8219  T2438:;  T2438:;
8220          base[6]= (V1085);          base[6]= (V1138);
8221          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
8222          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk274)(Lclptr274);
8223          vs_top=sup;          vs_top=sup;
8224          V1086= vs_base[0];          V1139= vs_base[0];
8225          goto T2436;          goto T2436;
8226  T2436:;  T2436:;
8227          if(((V1086))!=Cnil){          if(((V1139))!=Cnil){
8228          goto T2441;}          goto T2441;}
8229          {frame_ptr fr;          {frame_ptr fr;
8230          fr=frs_sch((base0[6]->c.c_car));          fr=frs_sch((base0[6]->c.c_car));
# Line 8181  T2436:; Line 8234  T2436:;
8234          unwind(fr,Cnil);}          unwind(fr,Cnil);}
8235          goto T2441;          goto T2441;
8236  T2441:;  T2441:;
8237          {object V1088;          {object V1141;
8238          V1088= (base0[7]->c.c_car);          V1141= (base0[7]->c.c_car);
8239          base[6]= V1079;          base[6]= V1132;
8240          base[7]= (V1088);          base[7]= (V1141);
8241          base[8]= V1086;          base[8]= V1139;
8242          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
8243          siLhash_set();          siLhash_set();
8244          vs_top=sup;}          vs_top=sup;}
8245          if(!(type_of((V1086))==t_cons)){          if(!(type_of((V1139))==t_cons)){
8246          goto T2450;}          goto T2450;}
8247          (base0[4]->c.c_car)= Cnil;          (base0[4]->c.c_car)= Cnil;
8248          goto T2450;          goto T2450;
8249  T2450:;  T2450:;
8250          if(((base0[5]->c.c_car))==Cnil){          if(((base0[5]->c.c_car))==Cnil){
8251          goto T2456;}          goto T2456;}
8252          if(!(eql((base0[5]->c.c_car),(V1086)))){          if(!(eql((base0[5]->c.c_car),(V1139)))){
8253          goto T2457;}          goto T2457;}
8254          goto T2456;          goto T2456;
8255  T2456:;  T2456:;
8256          (base0[5]->c.c_car)= (V1086);          (base0[5]->c.c_car)= (V1139);
8257          goto T2455;          goto T2455;
8258          goto T2457;          goto T2457;
8259  T2457:;  T2457:;
# Line 8210  T2455:; Line 8263  T2455:;
8263          (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));
8264          if(!((fix((base0[0]->c.c_car)))==(1))){          if(!((fix((base0[0]->c.c_car)))==(1))){
8265          goto T2465;}          goto T2465;}
8266          (base0[2]->c.c_car)= (V1079);          (base0[2]->c.c_car)= (V1132);
8267          goto T2463;          goto T2463;
8268          goto T2465;          goto T2465;
8269  T2465:;  T2465:;
8270          if(!((fix((base0[0]->c.c_car)))==(2))){          if(!((fix((base0[0]->c.c_car)))==(2))){
8271          goto T2463;}          goto T2463;}
8272          (base0[1]->c.c_car)= (V1079);          (base0[1]->c.c_car)= (V1132);
8273          goto T2463;          goto T2463;
8274  T2463:;  T2463:;
8275          base[6]= Cnil;          base[6]= Cnil;
# Line 8224  T2463:; Line 8277  T2463:;
8277          return;}}          return;}}
8278          goto T2431;          goto T2431;
8279  T2431:;  T2431:;
8280          V1081= CMPcdr((V1081));          V1134= CMPcdr((V1134));
8281          V1082= CMPcar((V1081));          V1135= CMPcar((V1134));
8282          goto T2425;}          goto T2425;}
8283          }          }
8284  }  }
# Line 8236  register object *base0; Line 8289  register object *base0;
8289  {       register object *base=vs_base;  {       register object *base=vs_base;
8290          register object *sup=base+VM137; VC137          register object *sup=base+VM137; VC137
8291          vs_check;          vs_check;
8292          {register object V1090;          {register object V1143;
8293          object V1091;          object V1144;
8294          check_arg(2);          check_arg(2);
8295          V1090=(base[0]);          V1143=(base[0]);
8296          V1091=(base[1]);          V1144=(base[1]);
8297          vs_top=sup;          vs_top=sup;
8298          {object V1092;          {object V1145;
8299          if(((base0[5]->c.c_car))==Cnil){          if(((base0[5]->c.c_car))==Cnil){
8300          goto T2478;}          goto T2478;}
8301          V1092= (*(LnkLI263))((V1090));          V1145= (*(LnkLI263))((V1143));
8302          goto T2476;          goto T2476;
8303          goto T2478;          goto T2478;
8304  T2478:;  T2478:;
8305          base[2]= (V1090);          base[2]= (V1143);
8306          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8307          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
8308          vs_top=sup;          vs_top=sup;
8309          V1092= vs_base[0];          V1145= vs_base[0];
8310          goto T2476;          goto T2476;
8311  T2476:;  T2476:;
8312          {register object x= (base0[1]->c.c_car),V1093= (V1092);          {register object x= (base0[1]->c.c_car),V1146= (V1145);
8313          while(V1093!=Cnil)          while(V1146!=Cnil)
8314          if(x==(V1093->c.c_car)){          if(x==(V1146->c.c_car)){
8315          goto T2483;          goto T2483;
8316          }else V1093=V1093->c.c_cdr;          }else V1146=V1146->c.c_cdr;
8317          goto T2482;}          goto T2482;}
8318          goto T2483;          goto T2483;
8319  T2483:;  T2483:;
8320          if(((base0[0]->c.c_car))!=Cnil){          if(((base0[0]->c.c_car))!=Cnil){
8321          goto T2486;}          goto T2486;}
8322          {register object x= (VV[132]->s.s_dbind),V1094= (V1092);          {register object x= (VV[132]->s.s_dbind),V1147= (V1145);
8323          while(V1094!=Cnil)          while(V1147!=Cnil)
8324          if(eql(x,V1094->c.c_car)){          if(eql(x,V1147->c.c_car)){
8325          goto T2489;          goto T2489;
8326          }else V1094=V1094->c.c_cdr;          }else V1147=V1147->c.c_cdr;
8327          goto T2485;}          goto T2485;}
8328          goto T2489;          goto T2489;
8329  T2489:;  T2489:;
# Line 8278  T2489:; Line 8331  T2489:;
8331  T2486:;  T2486:;
8332          if(((base0[5]->c.c_car))!=Cnil){          if(((base0[5]->c.c_car))!=Cnil){
8333          goto T2484;}          goto T2484;}
8334          base[2]= (V1091);          base[2]= (V1144);
8335          base[3]= (base0[10]->c.c_car);          base[3]= (base0[10]->c.c_car);
8336          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8337          (void) (*Lnk272)(Lclptr272);          (void) (*Lnk272)(Lclptr272);
# Line 8295  T2485:; Line 8348  T2485:;
8348          unwind(fr,Cnil);}          unwind(fr,Cnil);}
8349          goto T2484;          goto T2484;
8350  T2484:;  T2484:;
8351          {object V1095;          {object V1148;
8352          object V1097;          object V1150;
8353          object V1098;          object V1151;
8354          V1095= make_cons((base0[1]->c.c_car),(V1091));          V1148= make_cons((base0[1]->c.c_car),(V1144));
8355          V1097= (base0[9]->c.c_car);          V1150= (base0[9]->c.c_car);
8356          base[4]= V1090;          V1152 = (V1148);
8357          base[5]= (V1097);          base[4]= V1143;
8358            base[5]= (V1150);
8359          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
8360          Lgethash();          Lgethash();
8361          vs_top=sup;          vs_top=sup;
8362          V1099= vs_base[0];          V1153= vs_base[0];
8363          V1098= make_cons((V1095),V1099);          V1151= make_cons(V1152,V1153);
8364          base[4]= V1090;          base[4]= V1143;
8365          base[5]= (V1097);          base[5]= (V1150);
8366          base[6]= (V1098);          base[6]= (V1151);
8367          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
8368          siLhash_set();          siLhash_set();
8369          return;}          return;}
# Line 8327  register object *base0; Line 8381  register object *base0;
8381  {       register object *base=vs_base;  {       register object *base=vs_base;
8382          register object *sup=base+VM138; VC138          register object *sup=base+VM138; VC138
8383          vs_check;          vs_check;
8384          {object V1100;          {object V1154;
8385          check_arg(1);          check_arg(1);
8386          V1100=(base[0]);          V1154=(base[0]);
8387          vs_top=sup;          vs_top=sup;
8388          base[1]= (base0[2]->c.c_car);          base[1]= (base0[2]->c.c_car);
8389          base[2]= (V1100);          base[2]= (V1154);
8390          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8391          cclosure_call((base0[1]->c.c_car));          cclosure_call((base0[1]->c.c_car));
8392          return;          return;
# Line 8345  register object *base0; Line 8399  register object *base0;
8399  {       register object *base=vs_base;  {       register object *base=vs_base;
8400          register object *sup=base+VM139; VC139          register object *sup=base+VM139; VC139
8401          vs_check;          vs_check;
8402          {object V1101;          {object V1155;
8403          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
8404          if(vs_base>=vs_top){vs_top=sup;goto T2507;}          if(vs_base>=vs_top){vs_top=sup;goto T2507;}
8405          V1101=(base[0]);          V1155=(base[0]);
8406          vs_top=sup;          vs_top=sup;
8407          goto T2508;          goto T2508;
8408          goto T2507;          goto T2507;
8409  T2507:;  T2507:;
8410          V1101= Cnil;          V1155= Cnil;
8411          goto T2508;          goto T2508;
8412  T2508:;  T2508:;
8413          if(!(type_of((base0[1]->c.c_car))==t_cons)){          if(!(type_of((base0[1]->c.c_car))==t_cons)){
8414          goto T2511;}          goto T2511;}
8415          {object V1102;          {object V1156;
8416          object V1103;          object V1157;
8417          object V1104;          object V1158;
8418          base[1]= (base0[4]->c.c_car);          base[1]= (base0[4]->c.c_car);
8419          base[2]= (base0[3]->c.c_car);          base[2]= (base0[3]->c.c_car);
8420          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8421          (void) (*Lnk193)();          (void) (*Lnk193)();
8422          if(vs_base>=vs_top){vs_top=sup;goto T2516;}          if(vs_base>=vs_top){vs_top=sup;goto T2516;}
8423          V1102= vs_base[0];          V1156= vs_base[0];
8424          vs_base++;          vs_base++;
8425          if(vs_base>=vs_top){vs_top=sup;goto T2517;}          if(vs_base>=vs_top){vs_top=sup;goto T2517;}
8426          V1103= vs_base[0];          V1157= vs_base[0];
8427          vs_base++;          vs_base++;
8428          if(vs_base>=vs_top){vs_top=sup;goto T2518;}          if(vs_base>=vs_top){vs_top=sup;goto T2518;}
8429          V1104= vs_base[0];          V1158= vs_base[0];
8430          vs_top=sup;          vs_top=sup;
8431          goto T2519;          goto T2519;
8432          goto T2516;          goto T2516;
8433  T2516:;  T2516:;
8434          V1102= Cnil;          V1156= Cnil;
8435          goto T2517;          goto T2517;
8436  T2517:;  T2517:;
8437          V1103= Cnil;          V1157= Cnil;
8438          goto T2518;          goto T2518;
8439  T2518:;  T2518:;
8440          V1104= Cnil;          V1158= Cnil;
8441          goto T2519;          goto T2519;
8442  T2519:;  T2519:;
8443          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1102),(V1103),(V1104)));          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1156),(V1157),(V1158)));
8444          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8445          return;}          return;}
8446          goto T2511;          goto T2511;
8447  T2511:;  T2511:;
8448          {object V1105;          {object V1159;
8449          object V1106;          object V1160;
8450          object V1107;          object V1161;
8451          base[1]= (base0[4]->c.c_car);          base[1]= (base0[4]->c.c_car);
8452          base[2]= (base0[2]->c.c_car);          base[2]= (base0[2]->c.c_car);
8453          base[3]= (V1101);          base[3]= (V1155);
8454          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
8455          (void) (*Lnk182)();          (void) (*Lnk182)();
8456          if(vs_base>=vs_top){vs_top=sup;goto T2524;}          if(vs_base>=vs_top){vs_top=sup;goto T2524;}
8457          V1105= vs_base[0];          V1159= vs_base[0];
8458          vs_base++;          vs_base++;
8459          if(vs_base>=vs_top){vs_top=sup;goto T2525;}          if(vs_base>=vs_top){vs_top=sup;goto T2525;}
8460          V1106= vs_base[0];          V1160= vs_base[0];
8461          vs_base++;          vs_base++;
8462          if(vs_base>=vs_top){vs_top=sup;goto T2526;}          if(vs_base>=vs_top){vs_top=sup;goto T2526;}
8463          V1107= vs_base[0];          V1161= vs_base[0];
8464          vs_top=sup;          vs_top=sup;
8465          goto T2527;          goto T2527;
8466          goto T2524;          goto T2524;
8467  T2524:;  T2524:;
8468          V1105= Cnil;          V1159= Cnil;
8469          goto T2525;          goto T2525;
8470  T2525:;  T2525:;
8471          V1106= Cnil;          V1160= Cnil;
8472          goto T2526;          goto T2526;
8473  T2526:;  T2526:;
8474          V1107= Cnil;          V1161= Cnil;
8475          goto T2527;          goto T2527;
8476  T2527:;  T2527:;
8477          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1105),(V1106),(V1107)));          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1159),(V1160),(V1161)));
8478          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8479          return;}          return;}
8480          }          }
# Line 8432  register object *base0; Line 8486  register object *base0;
8486  {       register object *base=vs_base;  {       register object *base=vs_base;
8487          register object *sup=base+VM140; VC140          register object *sup=base+VM140; VC140
8488          vs_check;          vs_check;
8489          {object V1108;          {object V1162;
8490          object V1109;          object V1163;
8491          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
8492          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
8493          V1108=(base[0]);          V1162=(base[0]);
8494          vs_base=vs_base+1;          vs_base=vs_base+1;
8495          if(vs_base>=vs_top){vs_top=sup;goto T2528;}          if(vs_base>=vs_top){vs_top=sup;goto T2528;}
8496          V1109=(base[1]);          V1163=(base[1]);
8497          vs_top=sup;          vs_top=sup;
8498          goto T2529;          goto T2529;
8499          goto T2528;          goto T2528;
8500  T2528:;  T2528:;
8501          V1109= Cnil;          V1163= Cnil;
8502          goto T2529;          goto T2529;
8503  T2529:;  T2529:;
8504          {object V1110;          {object V1164;
8505          object V1111;          object V1165;
8506          object V1112;          object V1166;
8507          base[2]= (base0[3]->c.c_car);          base[2]= (base0[3]->c.c_car);
8508          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
8509          base[4]= (V1108);          base[4]= (V1162);
8510          base[5]= (V1109);          base[5]= (V1163);
8511          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8512          (void) (*Lnk178)();          (void) (*Lnk178)();
8513          if(vs_base>=vs_top){vs_top=sup;goto T2536;}          if(vs_base>=vs_top){vs_top=sup;goto T2536;}
8514          V1110= vs_base[0];          V1164= vs_base[0];
8515          vs_base++;          vs_base++;
8516          if(vs_base>=vs_top){vs_top=sup;goto T2537;}          if(vs_base>=vs_top){vs_top=sup;goto T2537;}
8517          V1111= vs_base[0];          V1165= vs_base[0];
8518          vs_base++;          vs_base++;
8519          if(vs_base>=vs_top){vs_top=sup;goto T2538;}          if(vs_base>=vs_top){vs_top=sup;goto T2538;}
8520          V1112= vs_base[0];          V1166= vs_base[0];
8521          vs_top=sup;          vs_top=sup;
8522          goto T2539;          goto T2539;
8523          goto T2536;          goto T2536;
8524  T2536:;  T2536:;
8525          V1110= Cnil;          V1164= Cnil;
8526          goto T2537;          goto T2537;
8527  T2537:;  T2537:;
8528          V1111= Cnil;          V1165= Cnil;
8529          goto T2538;          goto T2538;
8530  T2538:;  T2538:;
8531          V1112= Cnil;          V1166= Cnil;
8532          goto T2539;          goto T2539;
8533  T2539:;  T2539:;
8534          base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[3]->c.c_car),(V1110),(V1111),(V1112)));          base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[3]->c.c_car),(V1164),(V1165),(V1166)));
8535          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8536          return;}          return;}
8537          }          }
# Line 8489  register object *base0; Line 8543  register object *base0;
8543  {       register object *base=vs_base;  {       register object *base=vs_base;
8544          register object *sup=base+VM141; VC141          register object *sup=base+VM141; VC141
8545          vs_check;          vs_check;
8546          {object V1113;          {object V1167;
8547          check_arg(1);          check_arg(1);
8548          V1113=(base[0]);          V1167=(base[0]);
8549          vs_top=sup;          vs_top=sup;
8550          goto TTL;          goto TTL;
8551  TTL:;  TTL:;
8552          {object V1114;          {object V1168;
8553          V1114= (VFUN_NARGS=3,(*(LnkLI247))(base0[6],base0[9],(base0[11]->c.c_car)));          V1168= (VFUN_NARGS=3,(*(LnkLI247))(base0[6],base0[9],(base0[11]->c.c_car)));
8554          if(((V1114))==(base0[6])){          if(((V1168))==(base0[6])){
8555          goto T2542;}          goto T2542;}
8556          base[1]= (V1114);          base[1]= (V1168);
8557          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8558          {object _funobj = (V1113);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V1167);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8559                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
8560                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
8561                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 8524  register object *base0; Line 8578  register object *base0;
8578          vs_top=sup;          vs_top=sup;
8579          goto TTL;          goto TTL;
8580  TTL:;  TTL:;
8581          {object V1115;          {object V1169;
8582          object V1116;          object V1170;
8583          object V1117;          object V1171;
8584          base[0]= (base0[0]->c.c_car);          base[0]= (base0[0]->c.c_car);
8585          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
8586          (void) (*Lnk184)();          (void) (*Lnk184)();
8587          if(vs_base>=vs_top){vs_top=sup;goto T2547;}          if(vs_base>=vs_top){vs_top=sup;goto T2547;}
8588          V1115= vs_base[0];          V1169= vs_base[0];
8589          vs_base++;          vs_base++;
8590          if(vs_base>=vs_top){vs_top=sup;goto T2548;}          if(vs_base>=vs_top){vs_top=sup;goto T2548;}
8591          V1116= vs_base[0];          V1170= vs_base[0];
8592          vs_base++;          vs_base++;
8593          if(vs_base>=vs_top){vs_top=sup;goto T2549;}          if(vs_base>=vs_top){vs_top=sup;goto T2549;}
8594          V1117= vs_base[0];          V1171= vs_base[0];
8595          vs_top=sup;          vs_top=sup;
8596          goto T2550;          goto T2550;
8597          goto T2547;          goto T2547;
8598  T2547:;  T2547:;
8599          V1115= Cnil;          V1169= Cnil;
8600          goto T2548;          goto T2548;
8601  T2548:;  T2548:;
8602          V1116= Cnil;          V1170= Cnil;
8603          goto T2549;          goto T2549;
8604  T2549:;  T2549:;
8605          V1117= Cnil;          V1171= Cnil;
8606          goto T2550;          goto T2550;
8607  T2550:;  T2550:;
8608          base[0]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1115),(V1116),(V1117)));          base[0]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1169),(V1170),(V1171)));
8609          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
8610          return;}          return;}
8611  }  }
# Line 8562  register object *base0; Line 8616  register object *base0;
8616  {       register object *base=vs_base;  {       register object *base=vs_base;
8617          register object *sup=base+VM143; VC143          register object *sup=base+VM143; VC143
8618          vs_check;          vs_check;
8619          {object V1118;          {object V1172;
8620          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
8621          if(vs_base>=vs_top){vs_top=sup;goto T2551;}          if(vs_base>=vs_top){vs_top=sup;goto T2551;}
8622          V1118=(base[0]);          V1172=(base[0]);
8623          vs_top=sup;          vs_top=sup;
8624          goto T2552;          goto T2552;
8625          goto T2551;          goto T2551;
8626  T2551:;  T2551:;
8627          V1118= Cnil;          V1172= Cnil;
8628          goto T2552;          goto T2552;
8629  T2552:;  T2552:;
8630          if(!(type_of((base0[11]->c.c_car))==t_cons)){          if(!(type_of((base0[11]->c.c_car))==t_cons)){
8631          goto T2555;}          goto T2555;}
8632          {object V1119;          {object V1173;
8633          object V1120;          object V1174;
8634          object V1121;          object V1175;
8635          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
8636          base[2]= (base0[8]->c.c_car);          base[2]= (base0[8]->c.c_car);
8637          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8638          (void) (*Lnk193)();          (void) (*Lnk193)();
8639          if(vs_base>=vs_top){vs_top=sup;goto T2560;}          if(vs_base>=vs_top){vs_top=sup;goto T2560;}
8640          V1119= vs_base[0];          V1173= vs_base[0];
8641          vs_base++;          vs_base++;
8642          if(vs_base>=vs_top){vs_top=sup;goto T2561;}          if(vs_base>=vs_top){vs_top=sup;goto T2561;}
8643          V1120= vs_base[0];          V1174= vs_base[0];
8644          vs_base++;          vs_base++;
8645          if(vs_base>=vs_top){vs_top=sup;goto T2562;}          if(vs_base>=vs_top){vs_top=sup;goto T2562;}
8646          V1121= vs_base[0];          V1175= vs_base[0];
8647          vs_top=sup;          vs_top=sup;
8648          goto T2563;          goto T2563;
8649          goto T2560;          goto T2560;
8650  T2560:;  T2560:;
8651          V1119= Cnil;          V1173= Cnil;
8652          goto T2561;          goto T2561;
8653  T2561:;  T2561:;
8654          V1120= Cnil;          V1174= Cnil;
8655          goto T2562;          goto T2562;
8656  T2562:;  T2562:;
8657          V1121= Cnil;          V1175= Cnil;
8658          goto T2563;          goto T2563;
8659  T2563:;  T2563:;
8660          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1119),(V1120),(V1121)));          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1173),(V1174),(V1175)));
8661          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8662          return;}          return;}
8663          goto T2555;          goto T2555;
8664  T2555:;  T2555:;
8665          {object V1122;          {object V1176;
8666          object V1123;          object V1177;
8667          object V1124;          object V1178;
8668          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
8669          base[2]= (base0[10]->c.c_car);          base[2]= (base0[10]->c.c_car);
8670          base[3]= (V1118);          base[3]= (V1172);
8671          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
8672          (void) (*Lnk182)();          (void) (*Lnk182)();
8673          if(vs_base>=vs_top){vs_top=sup;goto T2568;}          if(vs_base>=vs_top){vs_top=sup;goto T2568;}
8674          V1122= vs_base[0];          V1176= vs_base[0];
8675          vs_base++;          vs_base++;
8676          if(vs_base>=vs_top){vs_top=sup;goto T2569;}          if(vs_base>=vs_top){vs_top=sup;goto T2569;}
8677          V1123= vs_base[0];          V1177= vs_base[0];
8678          vs_base++;          vs_base++;
8679          if(vs_base>=vs_top){vs_top=sup;goto T2570;}          if(vs_base>=vs_top){vs_top=sup;goto T2570;}
8680          V1124= vs_base[0];          V1178= vs_base[0];
8681          vs_top=sup;          vs_top=sup;
8682          goto T2571;          goto T2571;
8683          goto T2568;          goto T2568;
8684  T2568:;  T2568:;
8685          V1122= Cnil;          V1176= Cnil;
8686          goto T2569;          goto T2569;
8687  T2569:;  T2569:;
8688          V1123= Cnil;          V1177= Cnil;
8689          goto T2570;          goto T2570;
8690  T2570:;  T2570:;
8691          V1124= Cnil;          V1178= Cnil;
8692          goto T2571;          goto T2571;
8693  T2571:;  T2571:;
8694          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1122),(V1123),(V1124)));          base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1176),(V1177),(V1178)));
8695          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8696          return;}          return;}
8697          }          }
# Line 8649  register object *base0; Line 8703  register object *base0;
8703  {       register object *base=vs_base;  {       register object *base=vs_base;
8704          register object *sup=base+VM144; VC144          register object *sup=base+VM144; VC144
8705          vs_check;          vs_check;
8706          {object V1125;          {object V1179;
8707          object V1126;          object V1180;
8708          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
8709          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
8710          V1125=(base[0]);          V1179=(base[0]);
8711          vs_base=vs_base+1;          vs_base=vs_base+1;
8712          if(vs_base>=vs_top){vs_top=sup;goto T2572;}          if(vs_base>=vs_top){vs_top=sup;goto T2572;}
8713          V1126=(base[1]);          V1180=(base[1]);
8714          vs_top=sup;          vs_top=sup;
8715          goto T2573;          goto T2573;
8716          goto T2572;          goto T2572;
8717  T2572:;  T2572:;
8718          V1126= Cnil;          V1180= Cnil;
8719          goto T2573;          goto T2573;
8720  T2573:;  T2573:;
8721          {object V1127;          {object V1181;
8722          object V1128;          object V1182;
8723          object V1129;          object V1183;
8724          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
8725          base[3]= (base0[10]->c.c_car);          base[3]= (base0[10]->c.c_car);
8726          base[4]= (V1125);          base[4]= (V1179);
8727          base[5]= (V1126);          base[5]= (V1180);
8728          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8729          (void) (*Lnk178)();          (void) (*Lnk178)();
8730          if(vs_base>=vs_top){vs_top=sup;goto T2580;}          if(vs_base>=vs_top){vs_top=sup;goto T2580;}
8731          V1127= vs_base[0];          V1181= vs_base[0];
8732          vs_base++;          vs_base++;
8733          if(vs_base>=vs_top){vs_top=sup;goto T2581;}          if(vs_base>=vs_top){vs_top=sup;goto T2581;}
8734          V1128= vs_base[0];          V1182= vs_base[0];
8735          vs_base++;          vs_base++;
8736          if(vs_base>=vs_top){vs_top=sup;goto T2582;}          if(vs_base>=vs_top){vs_top=sup;goto T2582;}
8737          V1129= vs_base[0];          V1183= vs_base[0];
8738          vs_top=sup;          vs_top=sup;
8739          goto T2583;          goto T2583;
8740          goto T2580;          goto T2580;
8741  T2580:;  T2580:;
8742          V1127= Cnil;          V1181= Cnil;
8743          goto T2581;          goto T2581;
8744  T2581:;  T2581:;
8745          V1128= Cnil;          V1182= Cnil;
8746          goto T2582;          goto T2582;
8747  T2582:;  T2582:;
8748          V1129= Cnil;          V1183= Cnil;
8749          goto T2583;          goto T2583;
8750  T2583:;  T2583:;
8751          base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1127),(V1128),(V1129)));          base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1181),(V1182),(V1183)));
8752          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8753          return;}          return;}
8754          }          }
# Line 8706  register object *base0; Line 8760  register object *base0;
8760  {       register object *base=vs_base;  {       register object *base=vs_base;
8761          register object *sup=base+VM145; VC145          register object *sup=base+VM145; VC145
8762          vs_check;          vs_check;
8763          {object V1130;          {object V1184;
8764          object V1131;          object V1185;
8765          object V1132;          object V1186;
8766          check_arg(3);          check_arg(3);
8767          V1130=(base[0]);          V1184=(base[0]);
8768          V1131=(base[1]);          V1185=(base[1]);
8769          V1132=(base[2]);          V1186=(base[2]);
8770          vs_top=sup;          vs_top=sup;
8771          goto TTL;          goto TTL;
8772  TTL:;  TTL:;
# Line 8720  TTL:; Line 8774  TTL:;
8774          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8775          Lrandom();          Lrandom();
8776          vs_top=sup;          vs_top=sup;
8777          V1133= vs_base[0];          V1187= vs_base[0];
8778          if(!(number_compare(small_fixnum(0),V1133)==0)){          if(!(number_compare(small_fixnum(0),V1187)==0)){
8779          goto T2584;}          goto T2584;}
8780          {object V1134;          {object V1188;
8781          object V1135;          object V1189;
8782          V1134= (V1132);          V1188= (V1186);
8783          V1135= (V1131);          V1189= (V1185);
8784          V1131= (V1134);          V1185= (V1188);
8785          V1132= (V1135);}          V1186= (V1189);}
8786          goto T2584;          goto T2584;
8787  T2584:;  T2584:;
8788          {object V1136;          {object V1190;
8789          object V1137;          object V1191;
8790          object V1138;          object V1192;
8791          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
8792          base[4]= (base0[10]->c.c_car);          base[4]= (base0[10]->c.c_car);
8793          base[5]= (V1131);          base[5]= (V1185);
8794          base[6]= (V1132);          base[6]= (V1186);
8795          base[7]= (V1130);          base[7]= (V1184);
8796          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
8797          (void) (*Lnk237)();          (void) (*Lnk237)();
8798          if(vs_base>=vs_top){vs_top=sup;goto T2601;}          if(vs_base>=vs_top){vs_top=sup;goto T2601;}
8799          V1136= vs_base[0];          V1190= vs_base[0];
8800          vs_base++;          vs_base++;
8801          if(vs_base>=vs_top){vs_top=sup;goto T2602;}          if(vs_base>=vs_top){vs_top=sup;goto T2602;}
8802          V1137= vs_base[0];          V1191= vs_base[0];
8803          vs_base++;          vs_base++;
8804          if(vs_base>=vs_top){vs_top=sup;goto T2603;}          if(vs_base>=vs_top){vs_top=sup;goto T2603;}
8805          V1138= vs_base[0];          V1192= vs_base[0];
8806          vs_top=sup;          vs_top=sup;
8807          goto T2604;          goto T2604;
8808          goto T2601;          goto T2601;
8809  T2601:;  T2601:;
8810          V1136= Cnil;          V1190= Cnil;
8811          goto T2602;          goto T2602;
8812  T2602:;  T2602:;
8813          V1137= Cnil;          V1191= Cnil;
8814          goto T2603;          goto T2603;
8815  T2603:;  T2603:;
8816          V1138= Cnil;          V1192= Cnil;
8817          goto T2604;          goto T2604;
8818  T2604:;  T2604:;
8819          base[3]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1136),(V1137),(V1138)));          base[3]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1190),(V1191),(V1192)));
8820          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8821          return;}          return;}
8822          }          }
# Line 8774  register object *base0; Line 8828  register object *base0;
8828  {       register object *base=vs_base;  {       register object *base=vs_base;
8829          register object *sup=base+VM146; VC146          register object *sup=base+VM146; VC146
8830          vs_check;          vs_check;
8831          {object V1139;          {object V1193;
8832          check_arg(1);          check_arg(1);
8833          V1139=(base[0]);          V1193=(base[0]);
8834          vs_top=sup;          vs_top=sup;
8835          base[1]= (V1139);          V1194 = (base0[0]->c.c_car);
8836            base[1]= (V1193);
8837          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8838          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk242)(Lclptr242);
8839          vs_top=sup;          vs_top=sup;
8840          V1140= vs_base[0];          V1195= vs_base[0];
8841          base[1]= (equal((base0[0]->c.c_car),V1140)?Ct:Cnil);          base[1]= (equal(V1194,V1195)?Ct:Cnil);
8842          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8843          return;          return;
8844          }          }
# Line 8795  register object *base0; Line 8850  register object *base0;
8850  {       register object *base=vs_base;  {       register object *base=vs_base;
8851          register object *sup=base+VM147; VC147          register object *sup=base+VM147; VC147
8852          vs_check;          vs_check;
8853          {object V1141;          {object V1196;
8854          check_arg(1);          check_arg(1);
8855          V1141=(base[0]);          V1196=(base[0]);
8856          vs_top=sup;          vs_top=sup;
8857          base[1]= (((V1141))==((VV[125]->s.s_dbind))?Ct:Cnil);          base[1]= (((V1196))==((VV[125]->s.s_dbind))?Ct:Cnil);
8858          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8859          return;          return;
8860          }          }
# Line 8811  register object *base0; Line 8866  register object *base0;
8866  {       register object *base=vs_base;  {       register object *base=vs_base;
8867          register object *sup=base+VM148; VC148          register object *sup=base+VM148; VC148
8868          vs_check;          vs_check;
8869          {object V1142;          {object V1197;
8870          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8871          {object *p=vs_top;          {object *p=vs_top;
8872           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8873          V1142=(base[0]);          V1197=(base[0]);
8874          vs_top=sup;          vs_top=sup;
8875          base[1]=VV[250]->s.s_gfdef;          base[1]=VV[250]->s.s_gfdef;
8876          base[2]= (base0[1]->c.c_car);          base[2]= (base0[1]->c.c_car);
8877          {object V1143;          {object V1198;
8878          V1143= (V1142);          V1198= (V1197);
8879           vs_top=base+3;           vs_top=base+3;
8880           while(V1143!=Cnil)           while(V1198!=Cnil)
8881           {vs_push((V1143)->c.c_car);V1143=(V1143)->c.c_cdr;}           {vs_push((V1198)->c.c_car);V1198=(V1198)->c.c_cdr;}
8882          vs_base=base+2;}          vs_base=base+2;}
8883          (void) (*Lnk250)(Lclptr250);          (void) (*Lnk250)(Lclptr250);
8884          return;          return;
# Line 8836  register object *base0; Line 8891  register object *base0;
8891  {       register object *base=vs_base;  {       register object *base=vs_base;
8892          register object *sup=base+VM149; VC149          register object *sup=base+VM149; VC149
8893          vs_check;          vs_check;
8894          {object V1144;          {object V1199;
8895          check_arg(1);          check_arg(1);
8896          V1144=(base[0]);          V1199=(base[0]);
8897          vs_top=sup;          vs_top=sup;
8898          if(!(type_of((V1144))==t_cons)){          if(!(type_of((V1199))==t_cons)){
8899          goto T2610;}{object V1145;          goto T2610;}{object V1200;
8900          V1145= (VV[122]->s.s_dbind);          V1200= (VV[122]->s.s_dbind);
8901          V1146= (*(LnkLI265))((V1144));          V1201= (*(LnkLI265))((V1199));
8902          base[1]= ((V1145)==(/* INLINE-ARGS */V1146)?Ct:Cnil);          base[1]= ((V1200)==(/* INLINE-ARGS */V1201)?Ct:Cnil);
8903          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8904          return;}          return;}
8905          goto T2610;          goto T2610;
8906  T2610:;  T2610:;
8907          base[1]= (V1144);          base[1]= (V1199);
8908          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8909          (void) (*Lnk329)(Lclptr329);          (void) (*Lnk329)(Lclptr329);
8910          return;          return;
# Line 8862  register object *base0; Line 8917  register object *base0;
8917  {       register object *base=vs_base;  {       register object *base=vs_base;
8918          register object *sup=base+VM150; VC150          register object *sup=base+VM150; VC150
8919          vs_check;          vs_check;
8920          {object V1147;          {object V1202;
8921          check_arg(1);          check_arg(1);
8922          V1147=(base[0]);          V1202=(base[0]);
8923          vs_top=sup;          vs_top=sup;
8924          if(!(type_of((V1147))==t_cons)){          if(!(type_of((V1202))==t_cons)){
8925          goto T2614;}{object V1148;          goto T2614;}{object V1203;
8926          V1148= (VV[121]->s.s_dbind);          V1203= (VV[121]->s.s_dbind);
8927          V1149= (*(LnkLI265))((V1147));          V1204= (*(LnkLI265))((V1202));
8928          base[1]= ((V1148)==(/* INLINE-ARGS */V1149)?Ct:Cnil);          base[1]= ((V1203)==(/* INLINE-ARGS */V1204)?Ct:Cnil);
8929          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8930          return;}          return;}
8931          goto T2614;          goto T2614;
8932  T2614:;  T2614:;
8933          base[1]= (V1147);          base[1]= (V1202);
8934          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8935          (void) (*Lnk330)(Lclptr330);          (void) (*Lnk330)(Lclptr330);
8936          return;          return;
# Line 8888  register object *base0; Line 8943  register object *base0;
8943  {       register object *base=vs_base;  {       register object *base=vs_base;
8944          register object *sup=base+VM151; VC151          register object *sup=base+VM151; VC151
8945          vs_check;          vs_check;
8946          {object V1150;          {object V1205;
8947          object V1151;          object V1206;
8948          check_arg(2);          check_arg(2);
8949          V1150=(base[0]);          V1205=(base[0]);
8950          V1151=(base[1]);          V1206=(base[1]);
8951          vs_top=sup;          vs_top=sup;
8952          {register object V1152;          {register object V1207;
8953          object V1153;          object V1208;
8954          V1152= (*(LnkLI290))((V1151));          V1207= (*(LnkLI290))((V1206));
8955          if(type_of(V1152)==t_structure){          if(type_of(V1207)==t_structure){
8956          goto T2623;}          goto T2623;}
8957          goto T2621;          goto T2621;
8958          goto T2623;          goto T2623;
8959  T2623:;  T2623:;
8960          if(!(((V1152)->str.str_def)==(VV[104]))){          if(!(((V1207)->str.str_def)==(VV[104]))){
8961          goto T2621;}          goto T2621;}
8962          V1154= STREF(object,(V1152),4);          V1209= STREF(object,(V1207),4);
8963          goto T2619;          goto T2619;
8964          goto T2621;          goto T2621;
8965  T2621:;{object V1156;  T2621:;{object V1211;
8966          V1156= (VV[65]->s.s_dbind);          V1211= (VV[65]->s.s_dbind);
8967          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
8968          base[5]= (V1152);          base[5]= (V1207);
8969          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
8970          (void) (*Lnk197)();          (void) (*Lnk197)();
8971          vs_top=sup;          vs_top=sup;
8972          V1157= vs_base[0];          V1212= vs_base[0];
8973          if(!((V1156)==(CMPcar(V1157)))){          if(!((V1211)==(CMPcar(V1212)))){
8974          goto T2626;}}          goto T2626;}}
8975          V1154= CMPcar(((V1152))->cc.cc_turbo[12]);          V1209= CMPcar(((V1207))->cc.cc_turbo[12]);
8976          goto T2619;          goto T2619;
8977          goto T2626;          goto T2626;
8978  T2626:;  T2626:;
# Line 8925  T2626:; Line 8980  T2626:;
8980          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8981          Lerror();          Lerror();
8982          vs_top=sup;          vs_top=sup;
8983          V1154= vs_base[0];          V1209= vs_base[0];
8984          goto T2619;          goto T2619;
8985  T2619:;  T2619:;
8986          V1158= (*(LnkLI281))(VV[10],VV[102]);          V1213= (*(LnkLI281))(VV[10],VV[102]);
8987          V1153= (V1154)->v.v_self[fix(/* INLINE-ARGS */V1158)];          V1208= (V1209)->v.v_self[fix(/* INLINE-ARGS */V1213)];
8988          base[4]= (*(LnkLI331))((V1153),(V1151),(base0[0]->c.c_car),(V1150));          base[4]= (*(LnkLI331))((V1208),(V1206),(base0[0]->c.c_car),(V1205));
8989          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8990          return;}          return;}
8991          }          }
# Line 8942  register object *base0; Line 8997  register object *base0;
8997  {       register object *base=vs_base;  {       register object *base=vs_base;
8998          register object *sup=base+VM152; VC152          register object *sup=base+VM152; VC152
8999          vs_check;          vs_check;
9000          {register object V1159;          {register object V1214;
9001          check_arg(1);          check_arg(1);
9002          V1159=(base[0]);          V1214=(base[0]);
9003          vs_top=sup;          vs_top=sup;
9004          {register object V1160;          {register object V1215;
9005          object V1161;          object V1216;
9006          V1160= (*(LnkLI290))((V1159));          V1215= (*(LnkLI290))((V1214));
9007          if(type_of(V1160)==t_structure){          if(type_of(V1215)==t_structure){
9008          goto T2638;}          goto T2638;}
9009          goto T2636;          goto T2636;
9010          goto T2638;          goto T2638;
9011  T2638:;  T2638:;
9012          if(!(((V1160)->str.str_def)==(VV[101]))){          if(!(((V1215)->str.str_def)==(VV[101]))){
9013          goto T2636;}          goto T2636;}
9014          V1162= STREF(object,(V1160),4);          V1217= STREF(object,(V1215),4);
9015          goto T2634;          goto T2634;
9016          goto T2636;          goto T2636;
9017  T2636:;{object V1164;  T2636:;{object V1219;
9018          V1164= (VV[65]->s.s_dbind);          V1219= (VV[65]->s.s_dbind);
9019          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
9020          base[4]= (V1160);          base[4]= (V1215);
9021          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
9022          (void) (*Lnk197)();          (void) (*Lnk197)();
9023          vs_top=sup;          vs_top=sup;
9024          V1165= vs_base[0];          V1220= vs_base[0];
9025          if(!((V1164)==(CMPcar(V1165)))){          if(!((V1219)==(CMPcar(V1220)))){
9026          goto T2641;}}          goto T2641;}}
9027          V1162= CMPcar(((V1160))->cc.cc_turbo[12]);          V1217= CMPcar(((V1215))->cc.cc_turbo[12]);
9028          goto T2634;          goto T2634;
9029          goto T2641;          goto T2641;
9030  T2641:;  T2641:;
# Line 8977  T2641:; Line 9032  T2641:;
9032          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9033          Lerror();          Lerror();
9034          vs_top=sup;          vs_top=sup;
9035          V1162= vs_base[0];          V1217= vs_base[0];
9036          goto T2634;          goto T2634;
9037  T2634:;  T2634:;
9038          V1166= (*(LnkLI281))(VV[10],VV[102]);          V1221= (*(LnkLI281))(VV[10],VV[102]);
9039          V1161= (V1162)->v.v_self[fix(/* INLINE-ARGS */V1166)];          V1216= (V1217)->v.v_self[fix(/* INLINE-ARGS */V1221)];
9040          if(type_of(V1159)==t_structure){          if(type_of(V1214)==t_structure){
9041          goto T2651;}          goto T2651;}
9042          goto T2649;          goto T2649;
9043          goto T2651;          goto T2651;
9044  T2651:;  T2651:;
9045          if(!(((V1159)->str.str_def)==(VV[103]))){          if(!(((V1214)->str.str_def)==(VV[103]))){
9046          goto T2649;}          goto T2649;}
9047          V1167= STREF(object,(V1159),4);          V1222= STREF(object,(V1214),4);
9048          goto T2647;          goto T2647;
9049          goto T2649;          goto T2649;
9050  T2649:;{object V1169;  T2649:;{object V1224;
9051          V1169= (VV[65]->s.s_dbind);          V1224= (VV[65]->s.s_dbind);
9052          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
9053          base[4]= (V1159);          base[4]= (V1214);
9054          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
9055          (void) (*Lnk197)();          (void) (*Lnk197)();
9056          vs_top=sup;          vs_top=sup;
9057          V1170= vs_base[0];          V1225= vs_base[0];
9058          if(!((V1169)==(CMPcar(V1170)))){          if(!((V1224)==(CMPcar(V1225)))){
9059          goto T2654;}}          goto T2654;}}
9060          V1167= CMPcar(((V1159))->cc.cc_turbo[12]);          V1222= CMPcar(((V1214))->cc.cc_turbo[12]);
9061          goto T2647;          goto T2647;
9062          goto T2654;          goto T2654;
9063  T2654:;  T2654:;
# Line 9010  T2654:; Line 9065  T2654:;
9065          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9066          Lerror();          Lerror();
9067          vs_top=sup;          vs_top=sup;
9068          V1167= vs_base[0];          V1222= vs_base[0];
9069          goto T2647;          goto T2647;
9070  T2647:;  T2647:;
9071          V1171= (*(LnkLI281))((V1161),(base0[0]->c.c_car));          V1226= (*(LnkLI281))((V1216),(base0[0]->c.c_car));
9072          base[3]= (V1167)->v.v_self[fix(/* INLINE-ARGS */V1171)];          base[3]= (V1222)->v.v_self[fix(/* INLINE-ARGS */V1226)];
9073          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9074          return;}          return;}
9075          }          }
# Line 9026  register object *base0; Line 9081  register object *base0;
9081  {       register object *base=vs_base;  {       register object *base=vs_base;
9082          register object *sup=base+VM153; VC153          register object *sup=base+VM153; VC153
9083          vs_check;          vs_check;
9084          {object V1172;          {object V1227;
9085          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9086          {object *p=vs_top;          {object *p=vs_top;
9087           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9088          V1172=(base[0]);          V1227=(base[0]);
9089          vs_top=sup;          vs_top=sup;
9090          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
9091          base[2]= (V1172);          base[2]= (V1227);
9092          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9093          (void) (*Lnk332)();          (void) (*Lnk332)();
9094          return;          return;
# Line 9046  register object *base0; Line 9101  register object *base0;
9101  {       register object *base=vs_base;  {       register object *base=vs_base;
9102          register object *sup=base+VM154; VC154          register object *sup=base+VM154; VC154
9103          vs_check;          vs_check;
9104          {object V1173;          {object V1228;
9105          object V1174;          object V1229;
9106          check_arg(2);          check_arg(2);
9107          V1173=(base[0]);          V1228=(base[0]);
9108          V1174=(base[1]);          V1229=(base[1]);
9109          vs_top=sup;          vs_top=sup;
9110          base[2]= (V1173);          V1230 = (base0[0]->c.c_car);
9111            base[2]= (V1228);
9112          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9113          (void) (*Lnk236)(Lclptr236);          (void) (*Lnk236)(Lclptr236);
9114          vs_top=sup;          vs_top=sup;
9115          V1175= vs_base[0];          V1231= vs_base[0];
9116          (base0[0]->c.c_car)= (VFUN_NARGS=4,(*(LnkLI247))((base0[0]->c.c_car),V1175,(V1174),Ct));          V1232 = (V1229);
9117            (base0[0]->c.c_car)= (VFUN_NARGS=4,(*(LnkLI247))(V1230,V1231,V1232,Ct));
9118          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
9119          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9120          return;          return;
# Line 9070  register object *base0; Line 9127  register object *base0;
9127  {       register object *base=vs_base;  {       register object *base=vs_base;
9128          register object *sup=base+VM155; VC155          register object *sup=base+VM155; VC155
9129          vs_check;          vs_check;
9130          {object V1176;          {object V1233;
9131          object V1177;          object V1234;
9132          object V1178;          object V1235;
9133          object V1179;          object V1236;
9134          check_arg(4);          check_arg(4);
9135          V1176=(base[0]);          V1233=(base[0]);
9136          V1177=(base[1]);          V1234=(base[1]);
9137          V1178=(base[2]);          V1235=(base[2]);
9138          V1179=(base[3]);          V1236=(base[3]);
9139          vs_top=sup;          vs_top=sup;
9140          {object V1180;          {object V1237;
9141          object V1181;          object V1238;
9142          if(!((VV[10])==(CMPcar((V1177))))){          if(!((VV[10])==(CMPcar((V1234))))){
9143          goto T2667;}          goto T2667;}
9144          {object V1182;          {object V1239;
9145          object V1183;          object V1240;
9146          V1182= (*(LnkLI290))(CMPcadr((V1177)));          V1239= (*(LnkLI290))(CMPcadr((V1234)));
9147          base[8]= (V1182);          base[8]= (V1239);
9148          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
9149          (void) (*Lnk264)(Lclptr264);          (void) (*Lnk264)(Lclptr264);
9150          vs_top=sup;          vs_top=sup;
9151          V1183= vs_base[0];          V1240= vs_base[0];
9152          {register object x= (VV[76]->s.s_dbind),V1184= (V1183);          {register object x= (VV[76]->s.s_dbind),V1241= (V1240);
9153          while(V1184!=Cnil)          while(V1241!=Cnil)
9154          if(x==(V1184->c.c_car)){          if(x==(V1241->c.c_car)){
9155          goto T2674;          goto T2674;
9156          }else V1184=V1184->c.c_cdr;          }else V1241=V1241->c.c_cdr;
9157          goto T2673;}          goto T2673;}
9158          goto T2674;          goto T2674;
9159  T2674:;  T2674:;
9160          V1180= (VV[77]->s.s_dbind);          V1237= (VV[77]->s.s_dbind);
9161          goto T2665;          goto T2665;
9162          goto T2673;          goto T2673;
9163  T2673:;  T2673:;
9164          {register object x= (VV[78]->s.s_dbind),V1185= (V1183);          {register object x= (VV[78]->s.s_dbind),V1242= (V1240);
9165          while(V1185!=Cnil)          while(V1242!=Cnil)
9166          if(x==(V1185->c.c_car)){          if(x==(V1242->c.c_car)){
9167          goto T2677;          goto T2677;
9168          }else V1185=V1185->c.c_cdr;          }else V1242=V1242->c.c_cdr;
9169          goto T2676;}          goto T2676;}
9170          goto T2677;          goto T2677;
9171  T2677:;  T2677:;
9172          V1180= (VV[79]->s.s_dbind);          V1237= (VV[79]->s.s_dbind);
9173          goto T2665;          goto T2665;
9174          goto T2676;          goto T2676;
9175  T2676:;  T2676:;
9176          V1180= (VV[80]->s.s_dbind);          V1237= (VV[80]->s.s_dbind);
9177          goto T2665;}          goto T2665;}
9178          goto T2667;          goto T2667;
9179  T2667:;  T2667:;
9180          V1180= small_fixnum(0);          V1237= small_fixnum(0);
9181          goto T2665;          goto T2665;
9182  T2665:;  T2665:;
9183          V1181= number_plus((number_compare((V1178),(V1179))>=0?((V1178)):(V1179)),(V1180));          V1238= number_plus((number_compare((V1235),(V1236))>=0?((V1235)):(V1236)),(V1237));
9184          if(((base0[1]->c.c_car))==Cnil){          if(((base0[1]->c.c_car))==Cnil){
9185          goto T2679;}          goto T2679;}
9186          if(!(number_compare((base0[1]->c.c_car),(V1181))<=0)){          if(!(number_compare((base0[1]->c.c_car),(V1238))<=0)){
9187          goto T2679;}          goto T2679;}
9188          {frame_ptr fr;          {frame_ptr fr;
9189          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
9190          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[209]);          if(fr==NULL) FEerror("The block ~s is missing.",1,VV[209]);
9191          base[6]= (V1181);          base[6]= (V1238);
9192          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
9193          unwind(fr,Cnil);}          unwind(fr,Cnil);}
9194          goto T2679;          goto T2679;
9195  T2679:;  T2679:;
9196          base[6]= (V1181);          base[6]= (V1238);
9197          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
9198          return;}          return;}
9199          }          }
# Line 9148  register object *base0; Line 9205  register object *base0;
9205  {       register object *base=vs_base;  {       register object *base=vs_base;
9206          register object *sup=base+VM156; VC156          register object *sup=base+VM156; VC156
9207          vs_check;          vs_check;
9208          {object V1186;          {object V1243;
9209          object V1187;          object V1244;
9210          check_arg(2);          check_arg(2);
9211          V1186=(base[0]);          V1243=(base[0]);
9212          V1187=(base[1]);          V1244=(base[1]);
9213          vs_top=sup;          vs_top=sup;
9214          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
9215          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 9166  register object *base0; Line 9223  register object *base0;
9223  {       register object *base=vs_base;  {       register object *base=vs_base;
9224          register object *sup=base+VM157; VC157          register object *sup=base+VM157; VC157
9225          vs_check;          vs_check;
9226          {object V1188;          {object V1245;
9227          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9228          {object *p=vs_top;          {object *p=vs_top;
9229           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9230          V1188=(base[0]);          V1245=(base[0]);
9231          vs_top=sup;          vs_top=sup;
9232          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
9233          base[2]= (V1188);          base[2]= (V1245);
9234          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
9235          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
9236          (void) (*Lnk333)();          (void) (*Lnk333)();
# Line 9187  register object *base0; Line 9244  register object *base0;
9244  {       register object *base=vs_base;  {       register object *base=vs_base;
9245          register object *sup=base+VM158; VC158          register object *sup=base+VM158; VC158
9246          vs_check;          vs_check;
9247          {register object V1189;          {register object V1246;
9248          check_arg(1);          check_arg(1);
9249          V1189=(base[0]);          V1246=(base[0]);
9250          vs_top=sup;{object V1190;          vs_top=sup;{object V1247;
9251          if(((VV[72]->s.s_dbind))==(VV[73])){          if(((VV[72]->s.s_dbind))==(VV[73])){
9252          goto T2690;}          goto T2690;}
9253          V1190= Cnil;          V1247= Cnil;
9254          goto T2689;          goto T2689;
9255          goto T2690;          goto T2690;
9256  T2690:;  T2690:;
9257          base[1]= (VV[310]->s.s_gfdef);          base[1]= (VV[310]->s.s_gfdef);
9258          base[3]= (V1189);          base[3]= (V1246);
9259          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9260          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk242)(Lclptr242);
9261          vs_top=sup;          vs_top=sup;
# Line 9206  T2690:; Line 9263  T2690:;
9263          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9264          (void) (*Lnk200)();          (void) (*Lnk200)();
9265          vs_top=sup;          vs_top=sup;
9266          V1190= vs_base[0];          V1247= vs_base[0];
9267          goto T2689;          goto T2689;
9268  T2689:;  T2689:;
9269          if(V1190==Cnil)goto T2688;          if(V1247==Cnil)goto T2688;
9270          base[1]= V1190;          base[1]= V1247;
9271          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9272          return;          return;
9273          goto T2688;          goto T2688;
9274  T2688:;}  T2688:;}
9275          {object V1191;          {object V1248;
9276          if(((base0[1]->c.c_car))==Cnil){          if(((base0[1]->c.c_car))==Cnil){
9277          goto T2698;}{object V1193;          goto T2698;}{object V1250;
9278          V1193= CMPcaddr((V1189));          V1250= CMPcaddr((V1246));
9279          if(V1193==Cnil)goto T2700;          if(V1250==Cnil)goto T2700;
9280          V1192= V1193;          V1249= V1250;
9281          goto T2696;          goto T2696;
9282          goto T2700;          goto T2700;
9283  T2700:;}  T2700:;}
9284          V1192= CMPcadr((V1189));          V1249= CMPcadr((V1246));
9285          goto T2696;          goto T2696;
9286          goto T2698;          goto T2698;
9287  T2698:;{object V1194;  T2698:;{object V1251;
9288          base[1]= (V1189);          base[1]= (V1246);
9289          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9290          (void) (*Lnk334)(Lclptr334);          (void) (*Lnk334)(Lclptr334);
9291          vs_top=sup;          vs_top=sup;
9292          V1194= vs_base[0];          V1251= vs_base[0];
9293          if(V1194==Cnil)goto T2702;          if(V1251==Cnil)goto T2702;
9294          V1192= V1194;          V1249= V1251;
9295          goto T2696;          goto T2696;
9296          goto T2702;          goto T2702;
9297  T2702:;}  T2702:;}
9298          base[1]= (V1189);          base[1]= (V1246);
9299          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9300          (void) (*Lnk335)(Lclptr335);          (void) (*Lnk335)(Lclptr335);
9301          vs_top=sup;          vs_top=sup;
9302          V1192= vs_base[0];          V1249= vs_base[0];
9303          goto T2696;          goto T2696;
9304  T2696:;  T2696:;
9305          V1191= (VFUN_NARGS=3,(*(LnkLI249))(V1192,VV[74],(base0[0]->c.c_car)));          V1252 = (base0[0]->c.c_car);
9306            V1248= (VFUN_NARGS=3,(*(LnkLI249))(V1249,VV[74],V1252));
9307          if(((base0[2]->c.c_car))==Cnil){          if(((base0[2]->c.c_car))==Cnil){
9308          goto T2707;}          goto T2707;}
9309          if(!(((V1191))==(Ct))){          if(!(((V1248))==(Ct))){
9310          goto T2710;}          goto T2710;}
9311          V1195= Ct;          V1253= Ct;
9312          goto T2709;          goto T2709;
9313          goto T2710;          goto T2710;
9314  T2710:;  T2710:;
9315          V1195= (((V1191))==(Cnil)?Ct:Cnil);          V1253= (((V1248))==(Cnil)?Ct:Cnil);
9316          goto T2709;          goto T2709;
9317  T2709:;  T2709:;
9318          base[1]= ((V1195)==Cnil?Ct:Cnil);          base[1]= ((V1253)==Cnil?Ct:Cnil);
9319          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9320          return;          return;
9321          goto T2707;          goto T2707;
9322  T2707:;  T2707:;
9323          base[1]= (((V1191))==((base0[0]->c.c_car))?Ct:Cnil);          base[1]= (((V1248))==((base0[0]->c.c_car))?Ct:Cnil);
9324          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9325          return;}          return;}
9326          }          }
# Line 9274  register object *base0; Line 9332  register object *base0;
9332  {       register object *base=vs_base;  {       register object *base=vs_base;
9333          register object *sup=base+VM159; VC159          register object *sup=base+VM159; VC159
9334          vs_check;          vs_check;
9335          {object V1196;          {object V1254;
9336          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9337          {object *p=vs_top;          {object *p=vs_top;
9338           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9339          V1196=(base[0]);          V1254=(base[0]);
9340          vs_top=sup;          vs_top=sup;
9341          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
9342          base[2]= (V1196);          base[2]= (V1254);
9343          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
9344          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
9345          (void) (*Lnk336)();          (void) (*Lnk336)();
# Line 9295  register object *base0; Line 9353  register object *base0;
9353  {       register object *base=vs_base;  {       register object *base=vs_base;
9354          register object *sup=base+VM160; VC160          register object *sup=base+VM160; VC160
9355          vs_check;          vs_check;
9356          {object V1197;          {object V1255;
9357          check_arg(1);          check_arg(1);
9358          V1197=(base[0]);          V1255=(base[0]);
9359          vs_top=sup;          vs_top=sup;
9360          {object V1198;          {object V1256;
9361          if(!(type_of((V1197))==t_cons||((V1197))==Cnil)){          if(!(type_of((V1255))==t_cons||((V1255))==Cnil)){
9362          goto T2717;}          goto T2717;}
9363          V1198= CMPcaddr((V1197));          V1256= CMPcaddr((V1255));
9364          goto T2715;          goto T2715;
9365          goto T2717;          goto T2717;
9366  T2717:;  T2717:;
9367          base[1]= (V1197);          base[1]= (V1255);
9368          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9369          (void) (*Lnk334)(Lclptr334);          (void) (*Lnk334)(Lclptr334);
9370          vs_top=sup;          vs_top=sup;
9371          V1198= vs_base[0];          V1256= vs_base[0];
9372          goto T2715;          goto T2715;
9373  T2715:;  T2715:;
9374          base[1]= (VFUN_NARGS=2,(*(LnkLI249))((V1198),VV[62]));          base[1]= (VFUN_NARGS=2,(*(LnkLI249))((V1256),VV[62]));
9375          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9376          return;}          return;}
9377          }          }
# Line 9325  register object *base0; Line 9383  register object *base0;
9383  {       register object *base=vs_base;  {       register object *base=vs_base;
9384          register object *sup=base+VM161; VC161          register object *sup=base+VM161; VC161
9385          vs_check;          vs_check;
9386          {object V1199;          {object V1257;
9387          check_arg(1);          check_arg(1);
9388          V1199=(base[0]);          V1257=(base[0]);
9389          vs_top=sup;          vs_top=sup;
9390          base[1]= (((V1199))==(Ct)?Ct:Cnil);          base[1]= (((V1257))==(Ct)?Ct:Cnil);
9391          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9392          return;          return;
9393          }          }
# Line 9341  register object *base0; Line 9399  register object *base0;
9399  {       register object *base=vs_base;  {       register object *base=vs_base;
9400          register object *sup=base+VM162; VC162          register object *sup=base+VM162; VC162
9401          vs_check;          vs_check;
9402          {object V1200;          {object V1258;
9403          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9404          {object *p=vs_top;          {object *p=vs_top;
9405           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9406          V1200=(base[0]);          V1258=(base[0]);
9407          vs_top=sup;          vs_top=sup;
9408          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
9409          base[2]= (V1200);          base[2]= (V1258);
9410          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9411          (void) (*Lnk94)();          (void) (*Lnk94)();
9412          return;          return;
# Line 9361  register object *base0; Line 9419  register object *base0;
9419  {       register object *base=vs_base;  {       register object *base=vs_base;
9420          register object *sup=base+VM163; VC163          register object *sup=base+VM163; VC163
9421          vs_check;          vs_check;
9422          {object V1201;          {object V1259;
9423          check_arg(1);          check_arg(1);
9424          V1201=(base[0]);          V1259=(base[0]);
9425          vs_top=sup;          vs_top=sup;
9426          base[1]= (((V1201))==(Ct)?Ct:Cnil);          base[1]= (((V1259))==(Ct)?Ct:Cnil);
9427          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9428          return;          return;
9429          }          }
# Line 9377  register object *base0; Line 9435  register object *base0;
9435  {       register object *base=vs_base;  {       register object *base=vs_base;
9436          register object *sup=base+VM164; VC164          register object *sup=base+VM164; VC164
9437          vs_check;          vs_check;
9438          {object V1202;          {object V1260;
9439          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9440          {object *p=vs_top;          {object *p=vs_top;
9441           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9442          V1202=(base[0]);          V1260=(base[0]);
9443          vs_top=sup;          vs_top=sup;
9444          base[1]= (base0[1]->c.c_car);          base[1]= (base0[1]->c.c_car);
9445          base[2]= (V1202);          base[2]= (V1260);
9446          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
9447          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
9448          (void) (*Lnk337)();          (void) (*Lnk337)();
# Line 9398  register object *base0; Line 9456  register object *base0;
9456  {       register object *base=vs_base;  {       register object *base=vs_base;
9457          register object *sup=base+VM165; VC165          register object *sup=base+VM165; VC165
9458          vs_check;          vs_check;
9459          {object V1203;          {object V1261;
9460          check_arg(1);          check_arg(1);
9461          V1203=(base[0]);          V1261=(base[0]);
9462          vs_top=sup;          vs_top=sup;
9463          base[1]= (((V1203))==(Ct)?Ct:Cnil);          base[1]= (((V1261))==(Ct)?Ct:Cnil);
9464          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9465          return;          return;
9466          }          }
# Line 9414  register object *base0; Line 9472  register object *base0;
9472  {       register object *base=vs_base;  {       register object *base=vs_base;
9473          register object *sup=base+VM166; VC166          register object *sup=base+VM166; VC166
9474          vs_check;          vs_check;
9475          {object V1204;          {object V1262;
9476          object V1205;          object V1263;
9477          check_arg(2);          check_arg(2);
9478          V1204=(base[0]);          V1262=(base[0]);
9479          V1205=(base[1]);          V1263=(base[1]);
9480          vs_top=sup;          vs_top=sup;
9481          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
9482          base[3]= (V1204);          base[3]= (V1262);
9483          base[4]= (V1205);          base[4]= (V1263);
9484          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
9485          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
9486          (void) (*Lnk338)();          (void) (*Lnk338)();
# Line 9436  register object *base0; Line 9494  register object *base0;
9494  {       register object *base=vs_base;  {       register object *base=vs_base;
9495          register object *sup=base+VM167; VC167          register object *sup=base+VM167; VC167
9496          vs_check;          vs_check;
9497          {object V1206;          {object V1264;
9498          check_arg(1);          check_arg(1);
9499          V1206=(base[0]);          V1264=(base[0]);
9500          vs_top=sup;          vs_top=sup;
9501          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
9502          base[2]= Cnil;          base[2]= Cnil;
9503          base[3]= (V1206);          base[3]= (V1264);
9504          base[4]= (base0[1]->c.c_car);          base[4]= (base0[1]->c.c_car);
9505          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
9506          (void) (*Lnk338)();          (void) (*Lnk338)();

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

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