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

Diff of /gcl/pcl/pcl_fast_init.c

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

revision 1.3 by camm, Tue Sep 2 20:32:44 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 382  T125:; Line 382  T125:;
382          goto T134;}          goto T134;}
383          if(!(type_of((V60))==t_symbol)){          if(!(type_of((V60))==t_symbol)){
384          goto T133;}          goto T133;}
385          V63= (VFUN_NARGS=2,(*(LnkLI217))((V60),Cnil));          V63 = (V58);
386          if(!(((V58))==(/* INLINE-ARGS */V63))){          V64= (VFUN_NARGS=2,(*(LnkLI217))((V60),Cnil));
387            if(!((V63)==(/* INLINE-ARGS */V64))){
388          goto T133;}          goto T133;}
389          goto T134;          goto T134;
390  T134:;  T134:;
# Line 411  T134:; Line 412  T134:;
412          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
413          Lintern();          Lintern();
414          vs_top=sup;          vs_top=sup;
415          {object V64 = vs_base[0];          {object V65 = vs_base[0];
416          bds_unwind1;          bds_unwind1;
417          bds_unwind1;          bds_unwind1;
418          bds_unwind1;          bds_unwind1;
419          bds_unwind1;          bds_unwind1;
420          bds_unwind1;          bds_unwind1;
421          bds_unwind1;          bds_unwind1;
422          VMR8(V64)}          VMR8(V65)}
423          goto T133;          goto T133;
424  T133:;  T133:;
         {object V65 = Cnil;  
         VMR8(V65)}}  
         goto T120;  
 T120:;  
425          {object V66 = Cnil;          {object V66 = Cnil;
426          VMR8(V66)}}          VMR8(V66)}}
427            goto T120;
428    T120:;
429            {object V67 = Cnil;
430            VMR8(V67)}}
431          base[0]=base[0];          base[0]=base[0];
432          return Cnil;          return Cnil;
433  }  }
# Line 436  static void L9() Line 437  static void L9()
437  {register object *base=vs_base;  {register object *base=vs_base;
438          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
439          vs_check;          vs_check;
440          {object V67;          {object V68;
441          object V68;          object V69;
442          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
443          V67=(base[0]);          V68=(base[0]);
444          vs_base=vs_base+1;          vs_base=vs_base+1;
445          vs_top[0]=Cnil;          vs_top[0]=Cnil;
446          {object *p=vs_top;          {object *p=vs_top;
447           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
448          V68=(base[1]);          V69=(base[1]);
449          vs_top=sup;          vs_top=sup;
450          base[2]=VV[9]->s.s_gfdef;          base[2]=VV[9]->s.s_gfdef;
451          base[3]= (V67);          base[3]= (V68);
452          {object V69;          {object V70;
453          V69= (V68);          V70= (V69);
454           vs_top=base+4;           vs_top=base+4;
455           while(V69!=Cnil)           while(V70!=Cnil)
456           {vs_push((V69)->c.c_car);V69=(V69)->c.c_cdr;}           {vs_push((V70)->c.c_car);V70=(V70)->c.c_cdr;}
457          vs_base=base+3;}          vs_base=base+3;}
458          (void) (*Lnk9)(Lclptr9);          (void) (*Lnk9)(Lclptr9);
459          return;          return;
# Line 466  static void L10() Line 467  static void L10()
467          vs_check;          vs_check;
468          check_arg(2);          check_arg(2);
469          vs_top=sup;          vs_top=sup;
470          {object V70=base[0]->c.c_cdr;          {object V71=base[0]->c.c_cdr;
471          if(endp(V70))invalid_macro_call();          if(endp(V71))invalid_macro_call();
472          base[2]= (V70->c.c_car);          base[2]= (V71->c.c_car);
473          V70=V70->c.c_cdr;          V71=V71->c.c_cdr;
474          if(endp(V70))invalid_macro_call();          if(endp(V71))invalid_macro_call();
475          base[3]= (V70->c.c_car);          base[3]= (V71->c.c_car);
476          V70=V70->c.c_cdr;          V71=V71->c.c_cdr;
477          if(endp(V70))invalid_macro_call();          if(endp(V71))invalid_macro_call();
478          base[4]= (V70->c.c_car);          base[4]= (V71->c.c_car);
479          V70=V70->c.c_cdr;          V71=V71->c.c_cdr;
480          if(!endp(V70))invalid_macro_call();}          if(!endp(V71))invalid_macro_call();}
481          {object V71;          {object V72;
482          object V72;          object V73;
483          base[6]= Cnil;          base[6]= Cnil;
484          base[7]= VV[23];          base[7]= VV[23];
485          base[8]= base[2];          base[8]= base[2];
# Line 490  static void L10() Line 491  static void L10()
491          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
492          Lintern();          Lintern();
493          vs_top=sup;          vs_top=sup;
494          V71= vs_base[0];          V72= vs_base[0];
495          base[6]= Cnil;          base[6]= Cnil;
496          base[7]= VV[24];          base[7]= VV[24];
497          base[8]= base[2];          base[8]= base[2];
# Line 502  static void L10() Line 503  static void L10()
503          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
504          Lintern();          Lintern();
505          vs_top=sup;          vs_top=sup;
506          V72= vs_base[0];          V73= vs_base[0];
507          V73= list(2,VV[27],list(3,VV[27],VV[29],list(3,VV[27],list(2,VV[4],(V72)),VV[30])));          V74= list(2,VV[27],list(3,VV[27],VV[29],list(3,VV[27],list(2,VV[4],(V73)),VV[30])));
508          V74= list(2,VV[4],base[4]);          V75= list(2,VV[4],base[4]);
509          V75= list(4,VV[27],/* INLINE-ARGS */V74,VV[30],list(3,VV[27],VV[34],list(2,VV[4],base[3])));          V76= list(4,VV[27],/* INLINE-ARGS */V75,VV[30],list(3,VV[27],VV[34],list(2,VV[4],base[3])));
510          base[5]= list(4,VV[25],(V71),VV[26],list(4,VV[27],VV[28],/* INLINE-ARGS */V73,list(5,VV[27],VV[31],VV[32],list(4,VV[27],VV[33],/* INLINE-ARGS */V75,list(3,VV[27],list(2,VV[4],(V72)),VV[30])),VV[35])));          base[5]= list(4,VV[25],(V72),VV[26],list(4,VV[27],VV[28],/* INLINE-ARGS */V74,list(5,VV[27],VV[31],VV[32],list(4,VV[27],VV[33],/* INLINE-ARGS */V76,list(3,VV[27],list(2,VV[4],(V73)),VV[30])),VV[35])));
511          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
512          return;}          return;}
513  }  }
# Line 518  static void L11() Line 519  static void L11()
519          vs_check;          vs_check;
520          check_arg(2);          check_arg(2);
521          vs_top=sup;          vs_top=sup;
522          {object V76=base[0]->c.c_cdr;          {object V77=base[0]->c.c_cdr;
523          if(!endp(V76))invalid_macro_call();}          if(!endp(V77))invalid_macro_call();}
524          {object V77;          {object V78;
525          object V78;          object V79;
526          base[3]= (VV[37]->s.s_dbind);          base[3]= (VV[37]->s.s_dbind);
527          {object V79;          {object V80;
528          object V80= base[3];          object V81= base[3];
529          if(V80==Cnil){          if(V81==Cnil){
530          V77= Cnil;          V78= Cnil;
531          goto T162;}          goto T162;}
532          base[2]=V79=MMcons(Cnil,Cnil);          base[2]=V80=MMcons(Cnil,Cnil);
533          goto T163;          goto T163;
534  T163:;  T163:;
535          base[5]= Cnil;          base[5]= Cnil;
536          base[6]= VV[36];          base[6]= VV[36];
537          base[7]= (V80->c.c_car);          base[7]= (V81->c.c_car);
538          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
539          Lformat();          Lformat();
540          vs_top=sup;          vs_top=sup;
# Line 541  T163:; Line 542  T163:;
542          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
543          Lintern();          Lintern();
544          vs_top=sup;          vs_top=sup;
545          (V79->c.c_car)= vs_base[0];          (V80->c.c_car)= vs_base[0];
546          if((V80=MMcdr(V80))==Cnil){          if((V81=MMcdr(V81))==Cnil){
547          V77= base[2];          V78= base[2];
548          goto T162;}          goto T162;}
549          V79=MMcdr(V79)=MMcons(Cnil,Cnil);          V80=MMcdr(V80)=MMcons(Cnil,Cnil);
550          goto T163;}          goto T163;}
551          goto T162;          goto T162;
552  T162:;  T162:;
553          base[3]= (VV[37]->s.s_dbind);          base[3]= (VV[37]->s.s_dbind);
554          {object V82;          {object V83;
555          object V83= base[3];          object V84= base[3];
556          if(V83==Cnil){          if(V84==Cnil){
557          V78= Cnil;          V79= Cnil;
558          goto T169;}          goto T169;}
559          base[2]=V82=MMcons(Cnil,Cnil);          base[2]=V83=MMcons(Cnil,Cnil);
560          goto T170;          goto T170;
561  T170:;  T170:;
562          base[5]= Cnil;          base[5]= Cnil;
563          base[6]= VV[38];          base[6]= VV[38];
564          base[7]= VV[39];          base[7]= VV[39];
565          base[8]= (V83->c.c_car);          base[8]= (V84->c.c_car);
566          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
567          Lformat();          Lformat();
568          vs_top=sup;          vs_top=sup;
# Line 569  T170:; Line 570  T170:;
570          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
571          Lintern();          Lintern();
572          vs_top=sup;          vs_top=sup;
573          (V82->c.c_car)= vs_base[0];          (V83->c.c_car)= vs_base[0];
574          if((V83=MMcdr(V83))==Cnil){          if((V84=MMcdr(V84))==Cnil){
575          V78= base[2];          V79= base[2];
576          goto T169;}          goto T169;}
577          V82=MMcdr(V82)=MMcons(Cnil,Cnil);          V83=MMcdr(V83)=MMcons(Cnil,Cnil);
578          goto T170;}          goto T170;}
579          goto T169;          goto T169;
580  T169:;  T169:;
581          {object V86;          {object V87;
582          object V87= (V77);          object V88= (V78);
583          if(V87==Cnil){          if(V88==Cnil){
584          V85= Cnil;          V86= Cnil;
585          goto T177;}          goto T177;}
586          base[2]=V86=MMcons(Cnil,Cnil);          base[2]=V87=MMcons(Cnil,Cnil);
587          goto T178;          goto T178;
588  T178:;  T178:;
589          (V86->c.c_car)= list(2,(V87->c.c_car),VV[43]);          (V87->c.c_car)= list(2,(V88->c.c_car),VV[43]);
590          if((V87=MMcdr(V87))==Cnil){          if((V88=MMcdr(V88))==Cnil){
591          V85= base[2];          V86= base[2];
592          goto T177;}          goto T177;}
593          V86=MMcdr(V86)=MMcons(Cnil,Cnil);          V87=MMcdr(V87)=MMcons(Cnil,Cnil);
594          goto T178;}          goto T178;}
595          goto T177;          goto T177;
596  T177:;  T177:;
597          V89= listA(5,VV[40],VV[39],VV[41],VV[42],V85);          V90= listA(5,VV[40],VV[39],VV[41],VV[42],V86);
598          V90= list(4,VV[25],VV[44],VV[45],list(3,VV[46],VV[47],list(3,VV[48],VV[49],list(2,VV[4],(V78)))));          V91= list(4,VV[25],VV[44],VV[45],list(3,VV[46],VV[47],list(3,VV[48],VV[49],list(2,VV[4],(V79)))));
599          base[3]= (VV[37]->s.s_dbind);          base[3]= (VV[37]->s.s_dbind);
600          {object V92;          {object V93;
601          object V93= base[3];          object V94= base[3];
602          object V94= (V78);          object V95= (V79);
603          if(V93==Cnil||V94==Cnil){          if(V94==Cnil||V95==Cnil){
604          V91= Cnil;          V92= Cnil;
605          goto T180;}          goto T180;}
606          base[2]=V92=MMcons(Cnil,Cnil);          base[2]=V93=MMcons(Cnil,Cnil);
607          goto T181;          goto T181;
608  T181:;  T181:;
609          V97= list(3,VV[55],VV[56],list(2,(V94->c.c_car),VV[30]));          V98= list(3,VV[55],VV[56],list(2,(V95->c.c_car),VV[30]));
610          (V92->c.c_car)= list(3,VV[54],/* INLINE-ARGS */V97,list(3,VV[57],list(2,VV[4],(V93->c.c_car)),VV[58]));          (V93->c.c_car)= list(3,VV[54],/* INLINE-ARGS */V98,list(3,VV[57],list(2,VV[4],(V94->c.c_car)),VV[58]));
611          if((V93=MMcdr(V93))==Cnil||(V94=MMcdr(V94))==Cnil){          if((V94=MMcdr(V94))==Cnil||(V95=MMcdr(V95))==Cnil){
612          V91= base[2];          V92= base[2];
613          goto T180;}          goto T180;}
614          V92=MMcdr(V92)=MMcons(Cnil,Cnil);          V93=MMcdr(V93)=MMcons(Cnil,Cnil);
615          goto T181;}          goto T181;}
616          goto T180;          goto T180;
617  T180:;  T180:;
618          V98= list(4,VV[11],VV[50],VV[51],listA(3,VV[52],VV[53],append(V91,VV[59])));          V99= list(4,VV[11],VV[50],VV[51],listA(3,VV[52],VV[53],append(V92,VV[59])));
619          base[3]= (VV[37]->s.s_dbind);          base[3]= (VV[37]->s.s_dbind);
620          {object V100;          {object V101;
621          object V101= base[3];          object V102= base[3];
622          if(V101==Cnil){          if(V102==Cnil){
623          V99= Cnil;          V100= Cnil;
624          goto T183;}          goto T183;}
625          base[2]=V100=MMcons(Cnil,Cnil);          base[2]=V101=MMcons(Cnil,Cnil);
626          goto T184;          goto T184;
627  T184:;  T184:;
628          (V100->c.c_car)= list(4,VV[60],VV[39],(V101->c.c_car),VV[61]);          (V101->c.c_car)= list(4,VV[60],VV[39],(V102->c.c_car),VV[61]);
629          if((V101=MMcdr(V101))==Cnil){          if((V102=MMcdr(V102))==Cnil){
630          V99= base[2];          V100= base[2];
631          goto T183;}          goto T183;}
632          V100=MMcdr(V100)=MMcons(Cnil,Cnil);          V101=MMcdr(V101)=MMcons(Cnil,Cnil);
633          goto T184;}          goto T184;}
634          goto T183;          goto T183;
635  T183:;  T183:;
636          base[2]= listA(5,VV[6],/* INLINE-ARGS */V89,/* INLINE-ARGS */V90,/* INLINE-ARGS */V98,V99);          base[2]= listA(5,VV[6],/* INLINE-ARGS */V90,/* INLINE-ARGS */V91,/* INLINE-ARGS */V99,V100);
637          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
638          return;}          return;}
639  }  }
# Line 642  static object LI12(object first,...) Line 643  static object LI12(object first,...)
643  {        {      
644          va_list ap;          va_list ap;
645          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
646          {object V103;          {object V104;
         object V104;  
647          object V105;          object V105;
648          object V106;          object V106;
649          object V107;          object V107;
# Line 656  static object LI12(object first,...) Line 656  static object LI12(object first,...)
656          object V114;          object V114;
657          object V115;          object V115;
658          object V116;          object V116;
659            object V117;
660          va_start(ap,first);          va_start(ap,first);
661          narg= narg - 0;          narg= narg - 0;
662          {          {
663          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap);
664          V103=(Vcs[0]);          V104=(Vcs[0]);
665          V104=(Vcs[1]);          V105=(Vcs[1]);
666          V105=(Vcs[2]);          V106=(Vcs[2]);
667          V106=(Vcs[3]);          V107=(Vcs[3]);
668          V107=(Vcs[4]);          V108=(Vcs[4]);
669          V108=(Vcs[5]);          V109=(Vcs[5]);
670          V109=(Vcs[6]);          V110=(Vcs[6]);
671          V110=(Vcs[7]);          V111=(Vcs[7]);
672          V111=(Vcs[8]);          V112=(Vcs[8]);
673          V112=(Vcs[9]);          V113=(Vcs[9]);
674          V113=(Vcs[10]);          V114=(Vcs[10]);
675          V114=(Vcs[11]);          V115=(Vcs[11]);
676          V115=(Vcs[12]);          V116=(Vcs[12]);
677          V116=(Vcs[13]);          V117=(Vcs[13]);
678          base[0]= VV[39];          base[0]= VV[39];
679          base[1]= (V103);          base[1]= (V104);
680          base[2]= (V104);          base[2]= (V105);
681          base[3]= (V105);          base[3]= (V106);
682          base[4]= (V106);          base[4]= (V107);
683          base[5]= (V107);          base[5]= (V108);
684          base[6]= (V108);          base[6]= (V109);
685          base[7]= (V109);          base[7]= (V110);
686          base[8]= (V110);          base[8]= (V111);
687          base[9]= (V111);          base[9]= (V112);
688          base[10]= (V112);          base[10]= (V113);
689          base[11]= (V113);          base[11]= (V114);
690          base[12]= (V114);          base[12]= (V115);
691          base[13]= (V115);          base[13]= (V116);
692          base[14]= (V116);          base[14]= (V117);
693          vs_top=(vs_base=base+0)+15;          vs_top=(vs_base=base+0)+15;
694          siLmake_structure();          siLmake_structure();
695          vs_top=sup;          vs_top=sup;
696          {object V117 = vs_base[0];          {object V118 = vs_base[0];
697          VMR12(V117)}          VMR12(V118)}
698          va_end(ap);          va_end(ap);
699          base[0]=base[0];          base[0]=base[0];
700          return Cnil;}          return Cnil;}
# Line 706  static void L13() Line 707  static void L13()
707          vs_check;          vs_check;
708          check_arg(2);          check_arg(2);
709          vs_top=sup;          vs_top=sup;
710          {object V118=base[0]->c.c_cdr;          {object V119=base[0]->c.c_cdr;
711          if(endp(V118))invalid_macro_call();          if(endp(V119))invalid_macro_call();
712          base[2]= (V118->c.c_car);          base[2]= (V119->c.c_car);
713          V118=V118->c.c_cdr;          V119=V119->c.c_cdr;
714          if(!endp(V118))invalid_macro_call();}          if(!endp(V119))invalid_macro_call();}
715          {object V120;          {object V121;
716          object V121= VV[64];          object V122= VV[64];
717          if(V121==Cnil){          if(V122==Cnil){
718          V119= Cnil;          V120= Cnil;
719          goto T201;}          goto T201;}
720          base[3]=V120=MMcons(Cnil,Cnil);          base[3]=V121=MMcons(Cnil,Cnil);
721          goto T202;          goto T202;
722  T202:;  T202:;
723          (V120->c.c_car)= list(3,VV[62],list(2,(V121->c.c_car),base[2]),VV[63]);          (V121->c.c_car)= list(3,VV[62],list(2,(V122->c.c_car),base[2]),VV[63]);
724          if((V121=MMcdr(V121))==Cnil){          if((V122=MMcdr(V122))==Cnil){
725          V119= base[3];          V120= base[3];
726          goto T201;}          goto T201;}
727          V120=MMcdr(V120)=MMcons(Cnil,Cnil);          V121=MMcdr(V121)=MMcons(Cnil,Cnil);
728          goto T202;}          goto T202;}
729          goto T201;          goto T201;
730  T201:;  T201:;
731          base[3]= make_cons(VV[6],V119);          base[3]= make_cons(VV[6],V120);
732          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
733          return;          return;
734  }  }
735  /*      local entry for function INITIALIZE-INFO-BOUND-SLOTS    */  /*      local entry for function INITIALIZE-INFO-BOUND-SLOTS    */
736    
737  static object LI14(V124)  static object LI14(V125)
738    
739  register object V124;  register object V125;
740  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
741          goto TTL;          goto TTL;
742  TTL:;  TTL:;
743          {register object V125;          {register object V126;
744          V125= Cnil;          V126= Cnil;
745          if((VV[43])==(STREF(object,(V124),8))){          if((VV[43])==(STREF(object,(V125),8))){
746          goto T204;}          goto T204;}
747          V125= make_cons(VV[65],(V125));          V126= make_cons(VV[65],(V126));
748          goto T204;          goto T204;
749  T204:;  T204:;
750          if((VV[43])==(STREF(object,(V124),12))){          if((VV[43])==(STREF(object,(V125),12))){
751          goto T208;}          goto T208;}
752          V125= make_cons(VV[66],(V125));          V126= make_cons(VV[66],(V126));
753          goto T208;          goto T208;
754  T208:;  T208:;
755          if((VV[43])==(STREF(object,(V124),16))){          if((VV[43])==(STREF(object,(V125),16))){
756          goto T212;}          goto T212;}
757          V125= make_cons(VV[67],(V125));          V126= make_cons(VV[67],(V126));
758          goto T212;          goto T212;
759  T212:;  T212:;
760          if((VV[43])==(STREF(object,(V124),20))){          if((VV[43])==(STREF(object,(V125),20))){
761          goto T216;}          goto T216;}
762          V125= make_cons(VV[68],(V125));          V126= make_cons(VV[68],(V126));
763          goto T216;          goto T216;
764  T216:;  T216:;
765          if((VV[43])==(STREF(object,(V124),24))){          if((VV[43])==(STREF(object,(V125),24))){
766          goto T220;}          goto T220;}
767          V125= make_cons(VV[69],(V125));          V126= make_cons(VV[69],(V126));
768          goto T220;          goto T220;
769  T220:;  T220:;
770          if((VV[43])==(STREF(object,(V124),28))){          if((VV[43])==(STREF(object,(V125),28))){
771          goto T224;}          goto T224;}
772          V125= make_cons(VV[70],(V125));          V126= make_cons(VV[70],(V126));
773          goto T224;          goto T224;
774  T224:;  T224:;
775          if((VV[43])==(STREF(object,(V124),32))){          if((VV[43])==(STREF(object,(V125),32))){
776          goto T228;}          goto T228;}
777          V125= make_cons(VV[71],(V125));          V126= make_cons(VV[71],(V126));
778          goto T228;          goto T228;
779  T228:;  T228:;
780          if((VV[43])==(STREF(object,(V124),36))){          if((VV[43])==(STREF(object,(V125),36))){
781          goto T232;}          goto T232;}
782          V125= make_cons(VV[72],(V125));          V126= make_cons(VV[72],(V126));
783          goto T232;          goto T232;
784  T232:;  T232:;
785          if((VV[43])==(STREF(object,(V124),40))){          if((VV[43])==(STREF(object,(V125),40))){
786          goto T236;}          goto T236;}
787          V125= make_cons(VV[73],(V125));          V126= make_cons(VV[73],(V126));
788          goto T236;          goto T236;
789  T236:;  T236:;
790          if((VV[43])==(STREF(object,(V124),44))){          if((VV[43])==(STREF(object,(V125),44))){
791          goto T240;}          goto T240;}
792          V125= make_cons(VV[74],(V125));          V126= make_cons(VV[74],(V126));
793          goto T240;          goto T240;
794  T240:;  T240:;
795          if((VV[43])==(STREF(object,(V124),48))){          if((VV[43])==(STREF(object,(V125),48))){
796          goto T244;}          goto T244;}
797          V125= make_cons(VV[13],(V125));          V126= make_cons(VV[13],(V126));
798          goto T244;          goto T244;
799  T244:;  T244:;
800          if((VV[43])==(STREF(object,(V124),52))){          if((VV[43])==(STREF(object,(V125),52))){
801          goto T248;}          goto T248;}
802          V125= make_cons(VV[75],(V125));          V126= make_cons(VV[75],(V126));
803          goto T248;          goto T248;
804  T248:;  T248:;
805          {object V138 = (V125);          {object V139 = (V126);
806          VMR14(V138)}}          VMR14(V139)}}
807          return Cnil;          return Cnil;
808  }  }
809  /*      macro definition for INITIALIZE-INFO-VALID-P    */  /*      macro definition for INITIALIZE-INFO-VALID-P    */
# Line 813  static void L15() Line 814  static void L15()
814          vs_check;          vs_check;
815          check_arg(2);          check_arg(2);
816          vs_top=sup;          vs_top=sup;
817          {object V139=base[0]->c.c_cdr;          {object V140=base[0]->c.c_cdr;
818          if(endp(V139))invalid_macro_call();          if(endp(V140))invalid_macro_call();
819          base[2]= (V139->c.c_car);          base[2]= (V140->c.c_car);
820          V139=V139->c.c_cdr;          V140=V140->c.c_cdr;
821          if(!endp(V139))invalid_macro_call();}          if(!endp(V140))invalid_macro_call();}
822          V140= list(2,VV[76],list(2,VV[77],base[2]));          V141= list(2,VV[76],list(2,VV[77],base[2]));
823          V141= make_cons(/* INLINE-ARGS */V140,Cnil);          V142= make_cons(/* INLINE-ARGS */V141,Cnil);
824          V142= list(3,VV[61],base[2],list(2,VV[4],VV[65]));          V143= list(3,VV[61],base[2],list(2,VV[4],VV[65]));
825          base[3]= list(3,VV[52],/* INLINE-ARGS */V141,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V142,list(2,VV[77],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V142,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V143,list(2,VV[77],base[2])),VV[76]));
826          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
827          return;          return;
828  }  }
# Line 833  static void L16() Line 834  static void L16()
834          vs_check;          vs_check;
835          check_arg(2);          check_arg(2);
836          vs_top=sup;          vs_top=sup;
837          {object V143=base[0]->c.c_cdr;          {object V144=base[0]->c.c_cdr;
838          if(endp(V143))invalid_macro_call();          if(endp(V144))invalid_macro_call();
839          base[2]= (V143->c.c_car);          base[2]= (V144->c.c_car);
840          V143=V143->c.c_cdr;          V144=V144->c.c_cdr;
841          if(!endp(V143))invalid_macro_call();}          if(!endp(V144))invalid_macro_call();}
842          V144= list(2,VV[76],list(2,VV[80],base[2]));          V145= list(2,VV[76],list(2,VV[80],base[2]));
843          V145= make_cons(/* INLINE-ARGS */V144,Cnil);          V146= make_cons(/* INLINE-ARGS */V145,Cnil);
844          V146= list(3,VV[61],base[2],list(2,VV[4],VV[66]));          V147= list(3,VV[61],base[2],list(2,VV[4],VV[66]));
845          base[3]= list(3,VV[52],/* INLINE-ARGS */V145,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V146,list(2,VV[80],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V146,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V147,list(2,VV[80],base[2])),VV[76]));
846          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
847          return;          return;
848  }  }
# Line 853  static void L17() Line 854  static void L17()
854          vs_check;          vs_check;
855          check_arg(2);          check_arg(2);
856          vs_top=sup;          vs_top=sup;
857          {object V147=base[0]->c.c_cdr;          {object V148=base[0]->c.c_cdr;
858          if(endp(V147))invalid_macro_call();          if(endp(V148))invalid_macro_call();
859          base[2]= (V147->c.c_car);          base[2]= (V148->c.c_car);
860          V147=V147->c.c_cdr;          V148=V148->c.c_cdr;
861          if(!endp(V147))invalid_macro_call();}          if(!endp(V148))invalid_macro_call();}
862          V148= list(2,VV[76],list(2,VV[81],base[2]));          V149= list(2,VV[76],list(2,VV[81],base[2]));
863          V149= make_cons(/* INLINE-ARGS */V148,Cnil);          V150= make_cons(/* INLINE-ARGS */V149,Cnil);
864          V150= list(3,VV[61],base[2],list(2,VV[4],VV[67]));          V151= list(3,VV[61],base[2],list(2,VV[4],VV[67]));
865          base[3]= list(3,VV[52],/* INLINE-ARGS */V149,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V150,list(2,VV[81],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V150,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V151,list(2,VV[81],base[2])),VV[76]));
866          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
867          return;          return;
868  }  }
# Line 873  static void L18() Line 874  static void L18()
874          vs_check;          vs_check;
875          check_arg(2);          check_arg(2);
876          vs_top=sup;          vs_top=sup;
877          {object V151=base[0]->c.c_cdr;          {object V152=base[0]->c.c_cdr;
878          if(endp(V151))invalid_macro_call();          if(endp(V152))invalid_macro_call();
879          base[2]= (V151->c.c_car);          base[2]= (V152->c.c_car);
880          V151=V151->c.c_cdr;          V152=V152->c.c_cdr;
881          if(!endp(V151))invalid_macro_call();}          if(!endp(V152))invalid_macro_call();}
882          V152= list(2,VV[76],list(2,VV[82],base[2]));          V153= list(2,VV[76],list(2,VV[82],base[2]));
883          V153= make_cons(/* INLINE-ARGS */V152,Cnil);          V154= make_cons(/* INLINE-ARGS */V153,Cnil);
884          V154= list(3,VV[61],base[2],list(2,VV[4],VV[68]));          V155= list(3,VV[61],base[2],list(2,VV[4],VV[68]));
885          base[3]= list(3,VV[52],/* INLINE-ARGS */V153,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V154,list(2,VV[82],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V154,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V155,list(2,VV[82],base[2])),VV[76]));
886          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
887          return;          return;
888  }  }
# Line 893  static void L19() Line 894  static void L19()
894          vs_check;          vs_check;
895          check_arg(2);          check_arg(2);
896          vs_top=sup;          vs_top=sup;
897          {object V155=base[0]->c.c_cdr;          {object V156=base[0]->c.c_cdr;
898          if(endp(V155))invalid_macro_call();          if(endp(V156))invalid_macro_call();
899          base[2]= (V155->c.c_car);          base[2]= (V156->c.c_car);
900          V155=V155->c.c_cdr;          V156=V156->c.c_cdr;
901          if(!endp(V155))invalid_macro_call();}          if(!endp(V156))invalid_macro_call();}
902          V156= list(2,VV[76],list(2,VV[83],base[2]));          V157= list(2,VV[76],list(2,VV[83],base[2]));
903          V157= make_cons(/* INLINE-ARGS */V156,Cnil);          V158= make_cons(/* INLINE-ARGS */V157,Cnil);
904          V158= list(3,VV[61],base[2],list(2,VV[4],VV[69]));          V159= list(3,VV[61],base[2],list(2,VV[4],VV[69]));
905          base[3]= list(3,VV[52],/* INLINE-ARGS */V157,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V158,list(2,VV[83],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V158,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V159,list(2,VV[83],base[2])),VV[76]));
906          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
907          return;          return;
908  }  }
# Line 913  static void L20() Line 914  static void L20()
914          vs_check;          vs_check;
915          check_arg(2);          check_arg(2);
916          vs_top=sup;          vs_top=sup;
917          {object V159=base[0]->c.c_cdr;          {object V160=base[0]->c.c_cdr;
918          if(endp(V159))invalid_macro_call();          if(endp(V160))invalid_macro_call();
919          base[2]= (V159->c.c_car);          base[2]= (V160->c.c_car);
920          V159=V159->c.c_cdr;          V160=V160->c.c_cdr;
921          if(!endp(V159))invalid_macro_call();}          if(!endp(V160))invalid_macro_call();}
922          V160= list(2,VV[76],list(2,VV[84],base[2]));          V161= list(2,VV[76],list(2,VV[84],base[2]));
923          V161= make_cons(/* INLINE-ARGS */V160,Cnil);          V162= make_cons(/* INLINE-ARGS */V161,Cnil);
924          V162= list(3,VV[61],base[2],list(2,VV[4],VV[70]));          V163= list(3,VV[61],base[2],list(2,VV[4],VV[70]));
925          base[3]= list(3,VV[52],/* INLINE-ARGS */V161,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V162,list(2,VV[84],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V162,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V163,list(2,VV[84],base[2])),VV[76]));
926          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
927          return;          return;
928  }  }
# Line 933  static void L21() Line 934  static void L21()
934          vs_check;          vs_check;
935          check_arg(2);          check_arg(2);
936          vs_top=sup;          vs_top=sup;
937          {object V163=base[0]->c.c_cdr;          {object V164=base[0]->c.c_cdr;
938          if(endp(V163))invalid_macro_call();          if(endp(V164))invalid_macro_call();
939          base[2]= (V163->c.c_car);          base[2]= (V164->c.c_car);
940          V163=V163->c.c_cdr;          V164=V164->c.c_cdr;
941          if(!endp(V163))invalid_macro_call();}          if(!endp(V164))invalid_macro_call();}
942          V164= list(2,VV[76],list(2,VV[85],base[2]));          V165= list(2,VV[76],list(2,VV[85],base[2]));
943          V165= make_cons(/* INLINE-ARGS */V164,Cnil);          V166= make_cons(/* INLINE-ARGS */V165,Cnil);
944          V166= list(3,VV[61],base[2],list(2,VV[4],VV[71]));          V167= list(3,VV[61],base[2],list(2,VV[4],VV[71]));
945          base[3]= list(3,VV[52],/* INLINE-ARGS */V165,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V166,list(2,VV[85],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V166,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V167,list(2,VV[85],base[2])),VV[76]));
946          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
947          return;          return;
948  }  }
# Line 953  static void L22() Line 954  static void L22()
954          vs_check;          vs_check;
955          check_arg(2);          check_arg(2);
956          vs_top=sup;          vs_top=sup;
957          {object V167=base[0]->c.c_cdr;          {object V168=base[0]->c.c_cdr;
958          if(endp(V167))invalid_macro_call();          if(endp(V168))invalid_macro_call();
959          base[2]= (V167->c.c_car);          base[2]= (V168->c.c_car);
960          V167=V167->c.c_cdr;          V168=V168->c.c_cdr;
961          if(!endp(V167))invalid_macro_call();}          if(!endp(V168))invalid_macro_call();}
962          V168= list(2,VV[76],list(2,VV[86],base[2]));          V169= list(2,VV[76],list(2,VV[86],base[2]));
963          V169= make_cons(/* INLINE-ARGS */V168,Cnil);          V170= make_cons(/* INLINE-ARGS */V169,Cnil);
964          V170= list(3,VV[61],base[2],list(2,VV[4],VV[72]));          V171= list(3,VV[61],base[2],list(2,VV[4],VV[72]));
965          base[3]= list(3,VV[52],/* INLINE-ARGS */V169,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V170,list(2,VV[86],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V170,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V171,list(2,VV[86],base[2])),VV[76]));
966          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
967          return;          return;
968  }  }
# Line 973  static void L23() Line 974  static void L23()
974          vs_check;          vs_check;
975          check_arg(2);          check_arg(2);
976          vs_top=sup;          vs_top=sup;
977          {object V171=base[0]->c.c_cdr;          {object V172=base[0]->c.c_cdr;
978          if(endp(V171))invalid_macro_call();          if(endp(V172))invalid_macro_call();
979          base[2]= (V171->c.c_car);          base[2]= (V172->c.c_car);
980          V171=V171->c.c_cdr;          V172=V172->c.c_cdr;
981          if(!endp(V171))invalid_macro_call();}          if(!endp(V172))invalid_macro_call();}
982          V172= list(2,VV[76],list(2,VV[87],base[2]));          V173= list(2,VV[76],list(2,VV[87],base[2]));
983          V173= make_cons(/* INLINE-ARGS */V172,Cnil);          V174= make_cons(/* INLINE-ARGS */V173,Cnil);
984          V174= list(3,VV[61],base[2],list(2,VV[4],VV[73]));          V175= list(3,VV[61],base[2],list(2,VV[4],VV[73]));
985          base[3]= list(3,VV[52],/* INLINE-ARGS */V173,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V174,list(2,VV[87],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V174,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V175,list(2,VV[87],base[2])),VV[76]));
986          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
987          return;          return;
988  }  }
# Line 993  static void L24() Line 994  static void L24()
994          vs_check;          vs_check;
995          check_arg(2);          check_arg(2);
996          vs_top=sup;          vs_top=sup;
997          {object V175=base[0]->c.c_cdr;          {object V176=base[0]->c.c_cdr;
998          if(endp(V175))invalid_macro_call();          if(endp(V176))invalid_macro_call();
999          base[2]= (V175->c.c_car);          base[2]= (V176->c.c_car);
1000          V175=V175->c.c_cdr;          V176=V176->c.c_cdr;
1001          if(!endp(V175))invalid_macro_call();}          if(!endp(V176))invalid_macro_call();}
1002          V176= list(2,VV[76],list(2,VV[88],base[2]));          V177= list(2,VV[76],list(2,VV[88],base[2]));
1003          V177= make_cons(/* INLINE-ARGS */V176,Cnil);          V178= make_cons(/* INLINE-ARGS */V177,Cnil);
1004          V178= list(3,VV[61],base[2],list(2,VV[4],VV[74]));          V179= list(3,VV[61],base[2],list(2,VV[4],VV[74]));
1005          base[3]= list(3,VV[52],/* INLINE-ARGS */V177,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V178,list(2,VV[88],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V178,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V179,list(2,VV[88],base[2])),VV[76]));
1006          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1007          return;          return;
1008  }  }
# Line 1013  static void L25() Line 1014  static void L25()
1014          vs_check;          vs_check;
1015          check_arg(2);          check_arg(2);
1016          vs_top=sup;          vs_top=sup;
1017          {object V179=base[0]->c.c_cdr;          {object V180=base[0]->c.c_cdr;
1018          if(endp(V179))invalid_macro_call();          if(endp(V180))invalid_macro_call();
1019          base[2]= (V179->c.c_car);          base[2]= (V180->c.c_car);
1020          V179=V179->c.c_cdr;          V180=V180->c.c_cdr;
1021          if(!endp(V179))invalid_macro_call();}          if(!endp(V180))invalid_macro_call();}
1022          V180= list(2,VV[76],list(2,VV[89],base[2]));          V181= list(2,VV[76],list(2,VV[89],base[2]));
1023          V181= make_cons(/* INLINE-ARGS */V180,Cnil);          V182= make_cons(/* INLINE-ARGS */V181,Cnil);
1024          V182= list(3,VV[61],base[2],list(2,VV[4],VV[13]));          V183= list(3,VV[61],base[2],list(2,VV[4],VV[13]));
1025          base[3]= list(3,VV[52],/* INLINE-ARGS */V181,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V182,list(2,VV[89],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V182,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V183,list(2,VV[89],base[2])),VV[76]));
1026          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1027          return;          return;
1028  }  }
# Line 1033  static void L26() Line 1034  static void L26()
1034          vs_check;          vs_check;
1035          check_arg(2);          check_arg(2);
1036          vs_top=sup;          vs_top=sup;
1037          {object V183=base[0]->c.c_cdr;          {object V184=base[0]->c.c_cdr;
1038          if(endp(V183))invalid_macro_call();          if(endp(V184))invalid_macro_call();
1039          base[2]= (V183->c.c_car);          base[2]= (V184->c.c_car);
1040          V183=V183->c.c_cdr;          V184=V184->c.c_cdr;
1041          if(!endp(V183))invalid_macro_call();}          if(!endp(V184))invalid_macro_call();}
1042          V184= list(2,VV[76],list(2,VV[90],base[2]));          V185= list(2,VV[76],list(2,VV[90],base[2]));
1043          V185= make_cons(/* INLINE-ARGS */V184,Cnil);          V186= make_cons(/* INLINE-ARGS */V185,Cnil);
1044          V186= list(3,VV[61],base[2],list(2,VV[4],VV[75]));          V187= list(3,VV[61],base[2],list(2,VV[4],VV[75]));
1045          base[3]= list(3,VV[52],/* INLINE-ARGS */V185,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V186,list(2,VV[90],base[2])),VV[76]));          base[3]= list(3,VV[52],/* INLINE-ARGS */V186,list(4,VV[78],VV[79],list(3,VV[6],/* INLINE-ARGS */V187,list(2,VV[90],base[2])),VV[76]));
1046          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1047          return;          return;
1048  }  }
1049  /*      local entry for function RESET-INITIALIZE-INFO  */  /*      local entry for function RESET-INITIALIZE-INFO  */
1050    
1051  static object LI27(V188)  static object LI27(V189)
1052    
1053  register object V188;  register object V189;
1054  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1055          goto TTL;          goto TTL;
1056  TTL:;  TTL:;
1057          base[0]= CMPcar(STREF(object,(V188),0));          V190 = (V189);
1058            base[0]= CMPcar(STREF(object,(V189),0));
1059          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1060          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk243)(Lclptr243);
1061          vs_top=sup;          vs_top=sup;
1062          V189= vs_base[0];          V191= vs_base[0];
1063          V190= Ct;          V192= Ct;
1064          STSET(object,(V188),4, V189);          STSET(object,V190,4, V191);
1065          (void)(V189);          (void)(V191);
1066          {object V191;          {object V193;
1067          if(((VV[91]->s.s_dbind))==Cnil){          if(((VV[91]->s.s_dbind))==Cnil){
1068          goto T257;}          goto T257;}
1069          V191= (*(LnkLI50))((V188));          V193= (*(LnkLI50))((V189));
1070          goto T255;          goto T255;
1071          goto T257;          goto T257;
1072  T257:;  T257:;
1073          V191= VV[92];          V193= VV[92];
1074          goto T255;          goto T255;
1075  T255:;  T255:;
1076          V192= Ct;          V194 = (V189);
1077          STSET(object,(V188),8, VV[43]);          V195= Ct;
1078            STSET(object,V194,8, VV[43]);
1079          (void)(VV[43]);          (void)(VV[43]);
1080          V193= Ct;          V196 = (V189);
1081          STSET(object,(V188),12, VV[43]);          V197= Ct;
1082            STSET(object,V196,12, VV[43]);
1083          (void)(VV[43]);          (void)(VV[43]);
1084          V194= Ct;          V198 = (V189);
1085          STSET(object,(V188),16, VV[43]);          V199= Ct;
1086            STSET(object,V198,16, VV[43]);
1087          (void)(VV[43]);          (void)(VV[43]);
1088          V195= Ct;          V200 = (V189);
1089          STSET(object,(V188),20, VV[43]);          V201= Ct;
1090            STSET(object,V200,20, VV[43]);
1091          (void)(VV[43]);          (void)(VV[43]);
1092          V196= Ct;          V202 = (V189);
1093          STSET(object,(V188),24, VV[43]);          V203= Ct;
1094            STSET(object,V202,24, VV[43]);
1095          (void)(VV[43]);          (void)(VV[43]);
1096          V197= Ct;          V204 = (V189);
1097          STSET(object,(V188),28, VV[43]);          V205= Ct;
1098            STSET(object,V204,28, VV[43]);
1099          (void)(VV[43]);          (void)(VV[43]);
1100          V198= Ct;          V206 = (V189);
1101          STSET(object,(V188),32, VV[43]);          V207= Ct;
1102            STSET(object,V206,32, VV[43]);
1103          (void)(VV[43]);          (void)(VV[43]);
1104          V199= Ct;          V208 = (V189);
1105          STSET(object,(V188),36, VV[43]);          V209= Ct;
1106            STSET(object,V208,36, VV[43]);
1107          (void)(VV[43]);          (void)(VV[43]);
1108          V200= Ct;          V210 = (V189);
1109          STSET(object,(V188),40, VV[43]);          V211= Ct;
1110            STSET(object,V210,40, VV[43]);
1111          (void)(VV[43]);          (void)(VV[43]);
1112          V201= Ct;          V212 = (V189);
1113          STSET(object,(V188),44, VV[43]);          V213= Ct;
1114            STSET(object,V212,44, VV[43]);
1115          (void)(VV[43]);          (void)(VV[43]);
1116          V202= Ct;          V214 = (V189);
1117          STSET(object,(V188),48, VV[43]);          V215= Ct;
1118            STSET(object,V214,48, VV[43]);
1119          (void)(VV[43]);          (void)(VV[43]);
1120          V203= Ct;          V216 = (V189);
1121          STSET(object,(V188),52, VV[43]);          V217= Ct;
1122            STSET(object,V216,52, VV[43]);
1123          (void)(VV[43]);          (void)(VV[43]);
1124          {register object V204;          {register object V218;
1125          register object V205;          register object V219;
1126          V204= (V191);          V218= (V193);
1127          V205= CMPcar((V204));          V219= CMPcar((V218));
1128          goto T275;          goto T275;
1129  T275:;  T275:;
1130          if(!(((V204))==Cnil)){          if(!(((V218))==Cnil)){
1131          goto T276;}          goto T276;}
1132          goto T271;          goto T271;
1133          goto T276;          goto T276;
1134  T276:;  T276:;
1135          (void)((*(LnkLI61))((V188),(V205)));          (void)((*(LnkLI61))((V189),(V219)));
1136          V204= CMPcdr((V204));          V218= CMPcdr((V218));
1137          V205= CMPcar((V204));          V219= CMPcar((V218));
1138          goto T275;}          goto T275;}
1139          goto T271;          goto T271;
1140  T271:;  T271:;
1141          {object V206 = (V188);          {object V220 = (V189);
1142          VMR27(V206)}}          VMR27(V220)}}
1143          base[0]=base[0];          base[0]=base[0];
1144          return Cnil;          return Cnil;
1145  }  }
1146  /*      local entry for function RESET-CLASS-INITIALIZE-INFO    */  /*      local entry for function RESET-CLASS-INITIALIZE-INFO    */
1147    
1148  static object LI28(V208)  static object LI28(V222)
1149    
1150  object V208;  object V222;
1151  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1152          goto TTL;          goto TTL;
1153  TTL:;  TTL:;
1154          base[0]= (V208);          base[0]= (V222);
1155          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1156          (void) (*Lnk245)(Lclptr245);          (void) (*Lnk245)(Lclptr245);
1157          vs_top=sup;          vs_top=sup;
1158          V209= vs_base[0];          V223= vs_base[0];
1159          {object V210 = (*(LnkLI244))(V209);          {object V224 = (*(LnkLI244))(V223);
1160          VMR28(V210)}          VMR28(V224)}
1161          base[0]=base[0];          base[0]=base[0];
1162          return Cnil;          return Cnil;
1163  }  }
1164  /*      local entry for function RESET-CLASS-INITIALIZE-INFO-1  */  /*      local entry for function RESET-CLASS-INITIALIZE-INFO-1  */
1165    
1166  static object LI29(V212)  static object LI29(V226)
1167    
1168  register object V212;  register object V226;
1169  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1170          goto TTL;          goto TTL;
1171  TTL:;  TTL:;
1172          if(!(type_of((V212))==t_cons)){          if(!(type_of((V226))==t_cons)){
1173          goto T289;}          goto T289;}
1174          if((CMPcar((V212)))==Cnil){          if((CMPcar((V226)))==Cnil){
1175          goto T291;}          goto T291;}
1176          (void)((*(LnkLI246))(CMPcar((V212))));          (void)((*(LnkLI246))(CMPcar((V226))));
1177          goto T291;          goto T291;
1178  T291:;  T291:;
1179          {object V213;          {object V227;
1180          V213= CMPcdr((V212));          V227= CMPcdr((V226));
1181          {register object V214;          {register object V228;
1182          register object V215;          register object V229;
1183          V214= (V213);          V228= (V227);
1184          V215= CMPcar((V214));          V229= CMPcar((V228));
1185          goto T298;          goto T298;
1186  T298:;  T298:;
1187          if(!(((V214))==Cnil)){          if(!(((V228))==Cnil)){
1188          goto T299;}          goto T299;}
1189          {object V216 = Cnil;          {object V230 = Cnil;
1190          VMR29(V216)}          VMR29(V230)}
1191          goto T299;          goto T299;
1192  T299:;  T299:;
1193          (void)((*(LnkLI244))(CMPcdr((V215))));          (void)((*(LnkLI244))(CMPcdr((V229))));
1194          V214= CMPcdr((V214));          V228= CMPcdr((V228));
1195          V215= CMPcar((V214));          V229= CMPcar((V228));
1196          goto T298;}}          goto T298;}}
1197          goto T289;          goto T289;
1198  T289:;  T289:;
1199          {object V217 = Cnil;          {object V231 = Cnil;
1200          VMR29(V217)}          VMR29(V231)}
1201          base[0]=base[0];          base[0]=base[0];
1202          return Cnil;          return Cnil;
1203  }  }
1204  /*      local entry for function INITIALIZE-INFO        */  /*      local entry for function INITIALIZE-INFO        */
1205    
1206  static object LI30(object V219,object V218,object first,...)  static object LI30(object V233,object V232,object first,...)
1207  {        {      
1208          va_list ap;          va_list ap;
1209          int narg = VFUN_NARGS; VMB30 VMS30 VMV30          int narg = VFUN_NARGS; VMB30 VMS30 VMV30
1210          {object V220;          {object V234;
1211          object V221;          object V235;
1212          object V222;          object V236;
1213          object V223;          object V237;
1214          va_start(ap,first);          va_start(ap,first);
1215          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1216          V220= V219;          V234= V233;
1217          V221= V218;          V235= V232;
1218          narg = narg - 2;          narg = narg - 2;
1219          if (narg <= 0) goto T309;          if (narg <= 0) goto T309;
1220          else {          else {
1221          V222= first;}          V236= first;}
1222          if (--narg <= 0) goto T310;          if (--narg <= 0) goto T310;
1223          else {          else {
1224          V223= va_arg(ap,object);}          V237= va_arg(ap,object);}
1225          --narg; goto T311;          --narg; goto T311;
1226          goto T309;          goto T309;
1227  T309:;  T309:;
1228          V222= Ct;          V236= Ct;
1229          goto T310;          goto T310;
1230  T310:;  T310:;
1231          V223= Cnil;          V237= Cnil;
1232          goto T311;          goto T311;
1233  T311:;  T311:;
1234          {object V224;          {object V238;
1235          V224= Cnil;          V238= Cnil;
1236          if(!(((VV[93]->s.s_dbind))==((V220)))){          if(!(((VV[93]->s.s_dbind))==((V234)))){
1237          goto T316;}          goto T316;}
1238          if(!(((VV[94]->s.s_dbind))==((V221)))){          if(!(((VV[94]->s.s_dbind))==((V235)))){
1239          goto T316;}          goto T316;}
1240          V224= (VV[95]->s.s_dbind);          V238= (VV[95]->s.s_dbind);
1241          goto T314;          goto T314;
1242          goto T316;          goto T316;
1243  T316:;  T316:;
1244          {register object V225;          {register object V239;
1245          register object V226;{object V227;          register object V240;{object V241;
1246          base[0]= (V220);          base[0]= (V234);
1247          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1248          (void) (*Lnk245)(Lclptr245);          (void) (*Lnk245)(Lclptr245);
1249          vs_top=sup;          vs_top=sup;
1250          V227= vs_base[0];          V241= vs_base[0];
1251          if(V227==Cnil)goto T322;          if(V241==Cnil)goto T322;
1252          V226= V227;          V240= V241;
1253          goto T321;          goto T321;
1254          goto T322;          goto T322;
1255  T322:;}  T322:;}
1256          base[0]= make_cons(Cnil,Cnil);          base[0]= make_cons(Cnil,Cnil);
1257          base[1]= V220;          base[1]= V234;
1258          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1259          (void) (*Lnk247)(Lclptr247);          (void) (*Lnk247)(Lclptr247);
1260          vs_top=sup;          vs_top=sup;
1261          V226= vs_base[0];          V240= vs_base[0];
1262          goto T321;          goto T321;
1263  T321:;  T321:;
1264          V225= (V221);          V239= (V235);
1265          goto T329;          goto T329;
1266  T329:;  T329:;
1267          if(((V225))!=Cnil){          if(((V239))!=Cnil){
1268          goto T331;}          goto T331;}
1269          goto T327;          goto T327;
1270          goto T331;          goto T331;
1271  T331:;  T331:;
1272          {register object V229;          {register object V243;
1273          register object V230;          register object V244;
1274          {object V231;          {object V245;
1275          V231= CMPcar((V225));          V245= CMPcar((V239));
1276          V225= CMPcdr((V225));          V239= CMPcdr((V239));
1277          V229= (V231);}          V243= (V245);}
1278          V230= (V226);          V244= (V240);
1279          if(((V222))==Cnil){          if(((V236))==Cnil){
1280          goto T338;}          goto T338;}
1281          if(!(((V229))==(VV[2]))){          if(!(((V243))==(VV[2]))){
1282          goto T342;}          goto T342;}
1283          {object V232;          {object V246;
1284          V232= CMPcar((V225));          V246= CMPcar((V239));
1285          V225= CMPcdr((V225));          V239= CMPcdr((V239));
1286          V223= (V232);}          V237= (V246);}
1287          goto T338;          goto T338;
1288          goto T342;          goto T342;
1289  T342:;  T342:;
1290          {object V233;          {object V247;
1291          V233= CMPcar((V225));          V247= CMPcar((V239));
1292          V225= CMPcdr((V225));}          V239= CMPcdr((V239));}
1293          goto T338;          goto T338;
1294  T338:;  T338:;
1295          goto T352;          goto T352;
1296  T352:;  T352:;
1297          {register object V234;          {register object V248;
1298          V234= CMPcdr((V230));          V248= CMPcdr((V244));
1299          if(((V234))!=Cnil){          if(((V248))!=Cnil){
1300          goto T355;}          goto T355;}
1301          V226= make_cons(Cnil,Cnil);          V240= make_cons(Cnil,Cnil);
1302          {object V236;          {object V250;
1303          V237= make_cons((V229),(V226));          V251= make_cons((V243),(V240));
1304          V236= make_cons(/* INLINE-ARGS */V237,Cnil);          V250= make_cons(/* INLINE-ARGS */V251,Cnil);
1305          (V230)->c.c_cdr = (V236);}          (V244)->c.c_cdr = (V250);}
1306          goto T330;          goto T330;
1307          goto T355;          goto T355;
1308  T355:;  T355:;
1309          if(!(eql((V229),CMPcaar((V234))))){          if(!(eql((V243),CMPcaar((V248))))){
1310          goto T363;}          goto T363;}
1311          V226= CMPcdar((V234));          V240= CMPcdar((V248));
1312          goto T330;          goto T330;
1313          goto T363;          goto T363;
1314  T363:;  T363:;
1315          V230= (V234);}          V244= (V248);}
1316          goto T352;}          goto T352;}
1317          goto T330;          goto T330;
1318  T330:;  T330:;
1319          goto T329;          goto T329;
1320          goto T327;          goto T327;
1321  T327:;{object V238;  T327:;{object V252;
1322          V238= CMPcar((V226));          V252= CMPcar((V240));
1323          if(V238==Cnil)goto T372;          if(V252==Cnil)goto T372;
1324          V224= V238;          V238= V252;
1325          goto T371;          goto T371;
1326          goto T372;          goto T372;
1327  T372:;}  T372:;}
1328          {object V240;          {object V254;
1329          V240= (VFUN_NARGS=0,(*(LnkLI248))());          V254= (VFUN_NARGS=0,(*(LnkLI248))());
1330          (V226)->c.c_car = (V240);          (V240)->c.c_car = (V254);
1331          V224= (V240);}          V238= (V254);}
1332          goto T371;          goto T371;
1333  T371:;}  T371:;}
1334          goto T314;          goto T314;
1335  T314:;  T314:;
1336          {object V241;          {object V255;
1337          V241= STREF(object,(V224),4);          V255= STREF(object,(V238),4);
1338          base[0]= (V220);          V256 = (V255);
1339            base[0]= (V234);
1340          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1341          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk243)(Lclptr243);
1342          vs_top=sup;          vs_top=sup;
1343          V242= vs_base[0];          V257= vs_base[0];
1344          if(((V241))==(V242)){          if((V256)==(V257)){
1345          goto T376;}          goto T376;}
1346          if(((V241))!=Cnil){          if(((V255))!=Cnil){
1347          goto T382;}          goto T382;}
1348          {register object V243;          {register object V258;
1349          object V244;          object V259;
1350          object V245;          object V260;
1351          V243= (V221);          V258= (V235);
1352          V244= make_cons(Cnil,Cnil);          V259= make_cons(Cnil,Cnil);
1353          V245= (V244);          V260= (V259);
1354          goto T390;          goto T390;
1355  T390:;  T390:;
1356          if(((V243))!=Cnil){          if(((V258))!=Cnil){
1357          goto T392;}          goto T392;}
1358          goto T388;          goto T388;
1359          goto T392;          goto T392;
1360  T392:;  T392:;
1361          {object V246;          {object V261;
1362          {object V247;          {object V262;
1363          V247= CMPcar((V243));          V262= CMPcar((V258));
1364          V243= CMPcdr((V243));          V258= CMPcdr((V258));
1365          V246= (V247);}          V261= (V262);}
1366          {object V249;          {object V264;
1367          V249= make_cons((V246),Cnil);          V264= make_cons((V261),Cnil);
1368          (V245)->c.c_cdr = (V249);}}          (V260)->c.c_cdr = (V264);}}
1369          V245= CMPcdr((V245));          V260= CMPcdr((V260));
1370          if(((V222))==Cnil){          if(((V236))==Cnil){
1371          goto T391;}          goto T391;}
1372          {object V250;          {object V265;
1373          V250= CMPcar((V243));          V265= CMPcar((V258));
1374          V243= CMPcdr((V243));}          V258= CMPcdr((V258));}
1375          goto T391;          goto T391;
1376  T391:;  T391:;
1377          goto T390;          goto T390;
1378          goto T388;          goto T388;
1379  T388:;  T388:;
1380          V251= list(3,(V220),CMPcdr((V244)),(V223));          V266 = (V238);
1381          V252= Ct;          V267= list(3,(V234),CMPcdr((V259)),(V237));
1382          STSET(object,(V224),0, /* INLINE-ARGS */V251);          V268= Ct;
1383          (void)(/* INLINE-ARGS */V251);}          STSET(object,V266,0, /* INLINE-ARGS */V267);
1384            (void)(/* INLINE-ARGS */V267);}
1385          goto T382;          goto T382;
1386  T382:;  T382:;
1387          (void)((*(LnkLI246))((V224)));}          (void)((*(LnkLI246))((V238)));}
1388          goto T376;          goto T376;
1389  T376:;  T376:;
1390          (VV[93]->s.s_dbind)= (V220);          (VV[93]->s.s_dbind)= (V234);
1391          (VV[94]->s.s_dbind)= (V221);          (VV[94]->s.s_dbind)= (V235);
1392          (VV[95]->s.s_dbind)= (V224);          (VV[95]->s.s_dbind)= (V238);
1393          {object V253 = (V224);          {object V269 = (V238);
1394          VMR30(V253)}}          VMR30(V269)}}
1395          va_end(ap);          va_end(ap);
1396          base[0]=base[0];          base[0]=base[0];
1397          return Cnil;}          return Cnil;}
1398          }          }
1399  /*      local entry for function UPDATE-INITIALIZE-INFO-INTERNAL        */  /*      local entry for function UPDATE-INITIALIZE-INFO-INTERNAL        */
1400    
1401  static object LI31(V256,V257)  static object LI31(V272,V273)
1402    
1403  register object V256;object V257;  register object V272;object V273;
1404  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1405          goto TTL;          goto TTL;
1406  TTL:;  TTL:;
1407          {register object V258;          {register object V274;
1408          V258= STREF(object,(V256),0);          V274= STREF(object,(V272),0);
1409          base[1]= CMPcar((V258));          base[1]= CMPcar((V274));
1410          base[2]= CMPcadr((V258));          base[2]= CMPcadr((V274));
1411          base[3]= CMPcaddr((V258));          base[3]= CMPcaddr((V274));
1412          {object V259= (V257);          {object V275= (V273);
1413          if((V259!= VV[67])          if((V275!= VV[67])
1414          && (V259!= VV[69]))goto T421;          && (V275!= VV[69]))goto T421;
1415          {object V260;          {object V276;
1416          object V261;          object V277;
1417          base[4]= base[1];          base[4]= base[1];
1418          base[5]= base[2];          base[5]= base[2];
1419          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1420          (void) (*Lnk249)();          (void) (*Lnk249)();
1421          if(vs_base>=vs_top){vs_top=sup;goto T425;}          if(vs_base>=vs_top){vs_top=sup;goto T425;}
1422          V260= vs_base[0];          V276= vs_base[0];
1423          vs_base++;          vs_base++;
1424          if(vs_base>=vs_top){vs_top=sup;goto T426;}          if(vs_base>=vs_top){vs_top=sup;goto T426;}
1425          V261= vs_base[0];          V277= vs_base[0];
1426          vs_top=sup;          vs_top=sup;
1427          goto T427;          goto T427;
1428          goto T425;          goto T425;
1429  T425:;  T425:;
1430          V260= Cnil;          V276= Cnil;
1431          goto T426;          goto T426;
1432  T426:;  T426:;
1433          V261= Cnil;          V277= Cnil;
1434          goto T427;          goto T427;
1435  T427:;  T427:;
1436          V262= Ct;          V278 = (V272);
1437          STSET(object,(V256),16, (V260));          V279 = (V276);
1438          (void)((V260));          V280= Ct;
1439          V263= Ct;          STSET(object,V278,16, V279);
1440          STSET(object,(V256),24, (V261));          (void)(V279);
1441          (void)((V261));          V281 = (V272);
1442            V282 = (V277);
1443            V283= Ct;
1444            STSET(object,V281,24, V282);
1445            (void)(V282);
1446          goto T416;}          goto T416;}
1447          goto T421;          goto T421;
1448  T421:;  T421:;
1449          if((V259!= VV[68]))goto T429;          if((V275!= VV[68]))goto T429;
1450          {object V264;          {object V284;
1451          object V265;          object V285;
1452          base[4]= base[1];          base[4]= base[1];
1453          base[5]= base[2];          base[5]= base[2];
1454          base[6]= Cnil;          base[6]= Cnil;
1455          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1456          (void) (*Lnk249)();          (void) (*Lnk249)();
1457          if(vs_base>=vs_top){vs_top=sup;goto T434;}          if(vs_base>=vs_top){vs_top=sup;goto T434;}
1458          V264= vs_base[0];          V284= vs_base[0];
1459          vs_base++;          vs_base++;
1460          if(vs_base>=vs_top){vs_top=sup;goto T435;}          if(vs_base>=vs_top){vs_top=sup;goto T435;}
1461          V265= vs_base[0];          V285= vs_base[0];
1462          vs_top=sup;          vs_top=sup;
1463          goto T436;          goto T436;
1464          goto T434;          goto T434;
1465  T434:;  T434:;
1466          V264= Cnil;          V284= Cnil;
1467          goto T435;          goto T435;
1468  T435:;  T435:;
1469          V265= Cnil;          V285= Cnil;
1470          goto T436;          goto T436;
1471  T436:;  T436:;
1472          V266= Ct;          V286 = (V272);
1473          STSET(object,(V256),20, (V264));          V287 = (V284);
1474          (void)((V264));          V288= Ct;
1475          V267= Ct;          STSET(object,V286,20, V287);
1476          STSET(object,(V256),24, (V265));          (void)(V287);
1477          (void)((V265));          V289 = (V272);
1478            V290 = (V285);
1479            V291= Ct;
1480            STSET(object,V289,24, V290);
1481            (void)(V290);
1482          goto T416;}          goto T416;}
1483          goto T429;          goto T429;
1484  T429:;  T429:;
1485          if((V259!= VV[70]))goto T438;          if((V275!= VV[70]))goto T438;
1486          {object V268;          {object V292;
1487          {object V269;          {object V293;
1488          V269= STREF(object,(V256),16);          V293= STREF(object,(V272),16);
1489          if(!(((V269))==(VV[43]))){          if(!(((V293))==(VV[43]))){
1490          goto T442;}          goto T442;}
1491          (void)((*(LnkLI61))((V256),VV[67]));          (void)((*(LnkLI61))((V272),VV[67]));
1492          V268= STREF(object,(V256),16);          V292= STREF(object,(V272),16);
1493          goto T439;          goto T439;
1494          goto T442;          goto T442;
1495  T442:;  T442:;
1496          V268= (V269);}          V292= (V293);}
1497          goto T439;          goto T439;
1498  T439:;  T439:;
1499            V294 = (V272);
1500          base[4]= VV[70];          base[4]= VV[70];
1501          base[5]= (V256);          base[5]= (V272);
1502          base[6]= base[1];          base[6]= base[1];
1503          base[7]= (V268);          base[7]= (V292);
1504          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1505          (void) (*Lnk250)();          (void) (*Lnk250)();
1506          vs_top=sup;          vs_top=sup;
1507          V270= vs_base[0];          V295= vs_base[0];
1508          V271= Ct;          V296= Ct;
1509          STSET(object,(V256),28, V270);          STSET(object,V294,28, V295);
1510          (void)(V270);          (void)(V295);
1511          goto T416;}          goto T416;}
1512          goto T438;          goto T438;
1513  T438:;  T438:;
1514          if((V259!= VV[65])          if((V275!= VV[65])
1515          && (V259!= VV[66]))goto T450;          && (V275!= VV[66]))goto T450;
1516          {object V272;          {object V297;
1517          base[4]= base[1];          base[4]= base[1];
1518          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1519          (void) (*Lnk251)(Lclptr251);          (void) (*Lnk251)(Lclptr251);
1520          vs_top=sup;          vs_top=sup;
1521          V272= vs_base[0];          V297= vs_base[0];
1522          V274= listA(3,VV[96],base[1],Cnil);          V298 = (V272);
1523          V275= listA(3,VV[97],(V272),Cnil);          V300= listA(3,VV[96],base[1],Cnil);
1524          base[4]= list(3,/* INLINE-ARGS */V274,/* INLINE-ARGS */V275,listA(4,VV[98],(V272),Ct,Cnil));          V301= listA(3,VV[97],(V297),Cnil);
1525            base[4]= list(3,/* INLINE-ARGS */V300,/* INLINE-ARGS */V301,listA(4,VV[98],(V297),Ct,Cnil));
1526          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1527          L32(base);          L32(base);
1528          vs_top=sup;          vs_top=sup;
1529          V273= vs_base[0];          V299= vs_base[0];
1530          V276= Ct;          V302= Ct;
1531          STSET(object,(V256),8, V273);          STSET(object,V298,8, V299);
1532          (void)(V273);          (void)(V299);
1533          V278= listA(3,VV[99],(V272),Cnil);          V303 = (V272);
1534          base[4]= list(2,/* INLINE-ARGS */V278,listA(4,VV[98],(V272),Cnil,Cnil));          V305= listA(3,VV[99],(V297),Cnil);
1535            base[4]= list(2,/* INLINE-ARGS */V305,listA(4,VV[98],(V297),Cnil,Cnil));
1536          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1537          L32(base);          L32(base);
1538          vs_top=sup;          vs_top=sup;
1539          V277= vs_base[0];          V304= vs_base[0];
1540          V279= Ct;          V306= Ct;
1541          STSET(object,(V256),12, V277);          STSET(object,V303,12, V304);
1542          (void)(V277);          (void)(V304);
1543          goto T416;}          goto T416;}
1544          goto T450;          goto T450;
1545  T450:;  T450:;
1546          if((V259!= VV[71]))goto T458;          if((V275!= VV[71]))goto T458;
1547          {object V280;          {object V307;
1548          object V281;          object V308;
1549          base[4]= base[1];          base[4]= base[1];
1550          base[5]= base[2];          base[5]= base[2];
1551          base[6]= Ct;          base[6]= Ct;
# Line 1526  T450:; Line 1553  T450:;
1553          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1554          (void) (*Lnk252)();          (void) (*Lnk252)();
1555          if(vs_base>=vs_top){vs_top=sup;goto T464;}          if(vs_base>=vs_top){vs_top=sup;goto T464;}
1556          V280= vs_base[0];          V307= vs_base[0];
1557          vs_base++;          vs_base++;
1558          if(vs_base>=vs_top){vs_top=sup;goto T465;}          if(vs_base>=vs_top){vs_top=sup;goto T465;}
1559          V281= vs_base[0];          V308= vs_base[0];
1560          vs_top=sup;          vs_top=sup;
1561          goto T466;          goto T466;
1562          goto T464;          goto T464;
1563  T464:;  T464:;
1564          V280= Cnil;          V307= Cnil;
1565          goto T465;          goto T465;
1566  T465:;  T465:;
1567          V281= Cnil;          V308= Cnil;
1568          goto T466;          goto T466;
1569  T466:;  T466:;
1570            V309 = (V272);
1571          base[4]= VV[71];          base[4]= VV[71];
1572          base[5]= (V256);          base[5]= (V272);
1573          base[6]= base[1];          base[6]= base[1];
1574          base[7]= (V280);          base[7]= (V307);
1575          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1576          (void) (*Lnk250)();          (void) (*Lnk250)();
1577          vs_top=sup;          vs_top=sup;
1578          V282= vs_base[0];          V310= vs_base[0];
1579          V283= Ct;          V311= Ct;
1580          STSET(object,(V256),32, V282);          STSET(object,V309,32, V310);
1581          (void)(V282);          (void)(V310);
1582          goto T416;}          goto T416;}
1583          goto T458;          goto T458;
1584  T458:;  T458:;
1585          if((V259!= VV[72]))goto T472;          if((V275!= VV[72]))goto T472;
1586          {object V284;          {object V312;
1587          object V285;          object V313;
1588          base[4]= base[1];          base[4]= base[1];
1589          base[5]= base[2];          base[5]= base[2];
1590          base[6]= Cnil;          base[6]= Cnil;
# Line 1564  T458:; Line 1592  T458:;
1592          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1593          (void) (*Lnk252)();          (void) (*Lnk252)();
1594          if(vs_base>=vs_top){vs_top=sup;goto T478;}          if(vs_base>=vs_top){vs_top=sup;goto T478;}
1595          V284= vs_base[0];          V312= vs_base[0];
1596          vs_base++;          vs_base++;
1597          if(vs_base>=vs_top){vs_top=sup;goto T479;}          if(vs_base>=vs_top){vs_top=sup;goto T479;}
1598          V285= vs_base[0];          V313= vs_base[0];
1599          vs_top=sup;          vs_top=sup;
1600          goto T480;          goto T480;
1601          goto T478;          goto T478;
1602  T478:;  T478:;
1603          V284= Cnil;          V312= Cnil;
1604          goto T479;          goto T479;
1605  T479:;  T479:;
1606          V285= Cnil;          V313= Cnil;
1607          goto T480;          goto T480;
1608  T480:;  T480:;
1609            V314 = (V272);
1610          base[4]= VV[72];          base[4]= VV[72];
1611          base[5]= (V256);          base[5]= (V272);
1612          base[6]= base[1];          base[6]= base[1];
1613          base[7]= (V284);          base[7]= (V312);
1614          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1615          (void) (*Lnk250)();          (void) (*Lnk250)();
1616          vs_top=sup;          vs_top=sup;
1617          V286= vs_base[0];          V315= vs_base[0];
1618          V287= Ct;          V316= Ct;
1619          STSET(object,(V256),36, V286);          STSET(object,V314,36, V315);
1620          (void)(V286);          (void)(V315);
1621          goto T416;}          goto T416;}
1622          goto T472;          goto T472;
1623  T472:;  T472:;
1624          if((V259!= VV[73])          if((V275!= VV[73])
1625          && (V259!= VV[74]))goto T486;          && (V275!= VV[74]))goto T486;
1626          {object V288;          {object V317;
1627          object V289;          object V318;
1628          {object V290;          {object V319;
1629          V290= STREF(object,(V256),20);          V319= STREF(object,(V272),20);
1630          if(!(((V290))==(VV[43]))){          if(!(((V319))==(VV[43]))){
1631          goto T490;}          goto T490;}
1632          (void)((*(LnkLI61))((V256),VV[68]));          (void)((*(LnkLI61))((V272),VV[68]));
1633          V288= STREF(object,(V256),20);          V317= STREF(object,(V272),20);
1634          goto T487;          goto T487;
1635          goto T490;          goto T490;
1636  T490:;  T490:;
1637          V288= (V290);}          V317= (V319);}
1638          goto T487;          goto T487;
1639  T487:;  T487:;
1640          {object V291;          {object V320;
1641          V291= STREF(object,(V256),24);          V320= STREF(object,(V272),24);
1642          if(!(((V291))==(VV[43]))){          if(!(((V320))==(VV[43]))){
1643          goto T496;}          goto T496;}
1644          (void)((*(LnkLI61))((V256),VV[69]));          (void)((*(LnkLI61))((V272),VV[69]));
1645          V289= STREF(object,(V256),24);          V318= STREF(object,(V272),24);
1646          goto T493;          goto T493;
1647          goto T496;          goto T496;
1648  T496:;  T496:;
1649          V289= (V291);}          V318= (V320);}
1650          goto T493;          goto T493;
1651  T493:;  T493:;
1652          {object V292;          {object V321;
1653          object V293;          object V322;
1654          base[4]= base[1];          base[4]= base[1];
1655          base[5]= (V289);          base[5]= (V318);
1656          base[6]= Ct;          base[6]= Ct;
1657          base[7]= Ct;          base[7]= Ct;
1658          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1659          (void) (*Lnk252)();          (void) (*Lnk252)();
1660          if(vs_base>=vs_top){vs_top=sup;goto T504;}          if(vs_base>=vs_top){vs_top=sup;goto T504;}
1661          V292= vs_base[0];          V321= vs_base[0];
1662          vs_base++;          vs_base++;
1663          if(vs_base>=vs_top){vs_top=sup;goto T505;}          if(vs_base>=vs_top){vs_top=sup;goto T505;}
1664          V293= vs_base[0];          V322= vs_base[0];
1665          vs_top=sup;          vs_top=sup;
1666          goto T506;          goto T506;
1667          goto T504;          goto T504;
1668  T504:;  T504:;
1669          V292= Cnil;          V321= Cnil;
1670          goto T505;          goto T505;
1671  T505:;  T505:;
1672          V293= Cnil;          V322= Cnil;
1673          goto T506;          goto T506;
1674  T506:;  T506:;
1675          V294= Ct;          V323 = (V272);
1676          STSET(object,(V256),40, (V293));          V324 = (V322);
1677          (void)((V293));          V325= Ct;
1678            STSET(object,V323,40, V324);
1679            (void)(V324);
1680            V326 = (V272);
1681          base[4]= VV[74];          base[4]= VV[74];
1682          base[5]= (V256);          base[5]= (V272);
1683          base[6]= base[1];          base[6]= base[1];
1684          base[7]= append((V288),(V292));          base[7]= append((V317),(V321));
1685          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1686          (void) (*Lnk250)();          (void) (*Lnk250)();
1687          vs_top=sup;          vs_top=sup;
1688          V295= vs_base[0];          V327= vs_base[0];
1689          V296= Ct;          V328= Ct;
1690          STSET(object,(V256),44, V295);          STSET(object,V326,44, V327);
1691          (void)(V295);          (void)(V327);
1692          goto T416;}}          goto T416;}}
1693          goto T486;          goto T486;
1694  T486:;  T486:;
1695          if((V259!= VV[75]))goto T513;          if((V275!= VV[75]))goto T513;
1696          V297= (*(LnkLI75))((V258));          V329 = (V272);
1697          V298= Ct;          V330= (*(LnkLI75))((V274));
1698          STSET(object,(V256),52, /* INLINE-ARGS */V297);          V331= Ct;
1699          (void)(/* INLINE-ARGS */V297);          STSET(object,V329,52, /* INLINE-ARGS */V330);
1700            (void)(/* INLINE-ARGS */V330);
1701          goto T416;          goto T416;
1702          goto T513;          goto T513;
1703  T513:;  T513:;
1704          if((V259!= VV[13]))goto T514;          if((V275!= VV[13]))goto T514;
1705          {object V299;          {object V332;
1706          object V300;          object V333;
1707          V299= (*(LnkLI253))((V258));          V332= (*(LnkLI253))((V274));
1708          {object V301;          {object V334;
1709          V301= STREF(object,(V256),52);          V334= STREF(object,(V272),52);
1710          if(!(((V301))==(VV[43]))){          if(!(((V334))==(VV[43]))){
1711          goto T519;}          goto T519;}
1712          (void)((*(LnkLI61))((V256),VV[75]));          (void)((*(LnkLI61))((V272),VV[75]));
1713          V300= STREF(object,(V256),52);          V333= STREF(object,(V272),52);
1714          goto T516;          goto T516;
1715          goto T519;          goto T519;
1716  T519:;  T519:;
1717          V300= (V301);}          V333= (V334);}
1718          goto T516;          goto T516;
1719  T516:;  T516:;
1720          V302= Ct;          V335 = (V272);
1721          STSET(object,(V256),48, (V299));          V336 = (V332);
1722          (void)((V299));          V337= Ct;
1723          if(((V300))==Cnil){          STSET(object,V335,48, V336);
1724            (void)(V336);
1725            if(((V333))==Cnil){
1726          goto T416;}          goto T416;}
1727          if((V299)!=Cnil){          if((V332)!=Cnil){
1728          V304= (V299);          V339= (V332);
1729          goto T525;}          goto T525;}
1730          V304= (VV[255]->s.s_gfdef);          V339= (VV[255]->s.s_gfdef);
1731          goto T525;          goto T525;
1732  T525:;  T525:;
1733          (void)((*(LnkLI254))(V304,V300));          V340 = V333;
1734            (void)((*(LnkLI254))(V339,V340));
1735          goto T416;}          goto T416;}
1736          goto T514;          goto T514;
1737  T514:;  T514:;
1738          FEerror("The ECASE key value ~s is illegal.",1,V259);          FEerror("The ECASE key value ~s is illegal.",1,V275);
1739          goto T416;}}          goto T416;}}
1740          goto T416;          goto T416;
1741  T416:;  T416:;
1742          {object V305 = (V256);          {object V341 = (V272);
1743          VMR31(V305)}          VMR31(V341)}
1744          base[0]=base[0];          base[0]=base[0];
1745          return Cnil;          return Cnil;
1746  }  }
1747  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION     */  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION     */
1748    
1749  static object LI33(V307)  static object LI33(V343)
1750    
1751  object V307;  object V343;
1752  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1753          goto TTL;          goto TTL;
1754  TTL:;  TTL:;
1755          {register object V308;          {register object V344;
1756          object V309;          object V345;
1757          V308= CMPcar((V307));          V344= CMPcar((V343));
1758          V309= CMPcadr((V307));          V345= CMPcadr((V343));
1759          if(((VV[101]->s.s_dbind))==(VV[102])){          if(((VV[101]->s.s_dbind))==(VV[102])){
1760          goto T528;}          goto T528;}
1761          {object V310 = Cnil;          {object V346 = Cnil;
1762          VMR32(V310)}          VMR32(V346)}
1763          goto T528;          goto T528;
1764  T528:;  T528:;
1765          if(!(type_of((V308))==t_symbol)){          if(!(type_of((V344))==t_symbol)){
1766          goto T531;}          goto T531;}
1767          V308= (VFUN_NARGS=1,(*(LnkLI217))((V308)));          V344= (VFUN_NARGS=1,(*(LnkLI217))((V344)));
1768          goto T531;          goto T531;
1769  T531:;  T531:;
1770          base[2]= (V308);          base[2]= (V344);
1771          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1772          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
1773          vs_top=sup;          vs_top=sup;
1774          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1775          goto T535;}          goto T535;}
1776          base[2]= (V308);          base[2]= (V344);
1777          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1778          (void) (*Lnk256)(Lclptr256);          (void) (*Lnk256)(Lclptr256);
1779          vs_top=sup;          vs_top=sup;
1780          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1781          goto T535;}          goto T535;}
1782          base[2]= (V308);          base[2]= (V344);
1783          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1784          (void) (*Lnk257)(Lclptr257);          (void) (*Lnk257)(Lclptr257);
1785          vs_top=sup;          vs_top=sup;
1786          goto T535;          goto T535;
1787  T535:;  T535:;
1788          {register object V311;          {register object V347;
1789          object V312;          object V348;
1790          register object V313;          register object V349;
1791          object V314;          object V350;
1792          object V315;          object V351;
1793          object V316;          object V352;
1794          object V317;          object V353;
1795          register object V318;          register object V354;
1796          object V319;          object V355;
1797          object V320;          object V356;
1798          {object V321;          {object V357;
1799          object V322= (V309);          object V358= (V345);
1800          if(V322==Cnil){          if(V358==Cnil){
1801          V311= Cnil;          V347= Cnil;
1802          goto T543;}          goto T543;}
1803          base[13]=V321=MMcons(Cnil,Cnil);          base[13]=V357=MMcons(Cnil,Cnil);
1804          goto T544;          goto T544;
1805  T544:;  T544:;
1806          (V321->c.c_cdr)= list(2,(V322->c.c_car),Cnil);          (V357->c.c_cdr)= list(2,(V358->c.c_car),Cnil);
1807          while(MMcdr(V321)!=Cnil)V321=MMcdr(V321);          while(MMcdr(V357)!=Cnil)V357=MMcdr(V357);
1808          if((V322=MMcdr(V322))==Cnil){          if((V358=MMcdr(V358))==Cnil){
1809          base[13]=base[13]->c.c_cdr;          base[13]=base[13]->c.c_cdr;
1810          V311= base[13];          V347= base[13];
1811          goto T543;}          goto T543;}
1812          goto T544;}          goto T544;}
1813          goto T543;          goto T543;
1814  T543:;  T543:;
1815          V312= make_cons((V308),(V311));          V348= make_cons((V344),(V347));
1816          base[4]= (*(LnkLI258))(VV[9]);          base[4]= (*(LnkLI258))(VV[9]);
1817          base[4]=MMcons(base[4],Cnil);          base[4]=MMcons(base[4],Cnil);
1818          base[13]= (base[4]->c.c_car);          base[13]= (base[4]->c.c_car);
1819          base[14]= (V312);          base[14]= (V348);
1820          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1821          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk259)(Lclptr259);
1822          vs_top=sup;          vs_top=sup;
1823          V313= vs_base[0];          V349= vs_base[0];
1824          V314= (*(LnkLI260))((V313),VV[103]);          V350= (*(LnkLI260))((V349),VV[103]);
1825          V315= list(2,(V308),(V311));          V351= list(2,(V344),(V347));
1826          V316= (*(LnkLI258))(VV[104]);          V352= (*(LnkLI258))(VV[104]);
1827          base[13]= (V316);          base[13]= (V352);
1828          base[14]= (V315);          base[14]= (V351);
1829          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1830          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk259)(Lclptr259);
1831          vs_top=sup;          vs_top=sup;
1832          V317= vs_base[0];          V353= vs_base[0];
1833          base[13]= (V308);          base[13]= (V344);
1834          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
1835          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
1836          vs_top=sup;          vs_top=sup;
1837          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1838          goto T558;}          goto T558;}
1839          V318= Cnil;          V354= Cnil;
1840          goto T557;          goto T557;
1841          goto T558;          goto T558;
1842  T558:;  T558:;
1843          base[13]= (V308);          base[13]= (V344);
1844          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
1845          (void) (*Lnk251)(Lclptr251);          (void) (*Lnk251)(Lclptr251);
1846          vs_top=sup;          vs_top=sup;
1847          V318= vs_base[0];          V354= vs_base[0];
1848          goto T557;          goto T557;
1849  T557:;  T557:;
1850          if(((V318))==Cnil){          if(((V354))==Cnil){
1851          goto T564;}          goto T564;}
1852          base[13]= (*(LnkLI258))(VV[97]);          base[13]= (*(LnkLI258))(VV[97]);
1853          base[14]= make_cons((V318),(V311));          base[14]= make_cons((V354),(V347));
1854          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1855          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk259)(Lclptr259);
1856          vs_top=sup;          vs_top=sup;
1857          V319= vs_base[0];          V355= vs_base[0];
1858          goto T562;          goto T562;
1859          goto T564;          goto T564;
1860  T564:;  T564:;
1861          V319= Cnil;          V355= Cnil;
1862          goto T562;          goto T562;
1863  T562:;  T562:;
1864          if(((V318))==Cnil){          if(((V354))==Cnil){
1865          goto T570;}          goto T570;}
1866          base[13]= (*(LnkLI258))(VV[98]);          base[13]= (*(LnkLI258))(VV[98]);
1867          base[14]= listA(3,(V318),Ct,(V311));          base[14]= listA(3,(V354),Ct,(V347));
1868          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1869          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk259)(Lclptr259);
1870          vs_top=sup;          vs_top=sup;
1871          V320= vs_base[0];          V356= vs_base[0];
1872          goto T568;          goto T568;
1873          goto T570;          goto T570;
1874  T570:;  T570:;
1875          V320= Cnil;          V356= Cnil;
1876          goto T568;          goto T568;
1877  T568:;  T568:;
1878          if(((V313))!=Cnil){          if(((V349))!=Cnil){
1879          goto T574;}          goto T574;}
1880          {object V324 =          {object V360 =
1881          make_cclosure_new(LC66,Cnil,base[4],Cdata);          make_cclosure_new(LC66,Cnil,base[4],Cdata);
1882          VMR32(V324)}          VMR32(V360)}
1883          goto T574;          goto T574;
1884  T574:;  T574:;
1885          if((CMPcdr((V313)))!=Cnil){          if((CMPcdr((V349)))!=Cnil){
1886          goto T578;}          goto T578;}
1887          if(!((CMPcar((V313)))==((V314)))){          if(!((CMPcar((V349)))==((V350)))){
1888          goto T578;}          goto T578;}
1889          if((CMPcdr((V317)))!=Cnil){          if((CMPcdr((V353)))!=Cnil){
1890          goto T578;}          goto T578;}
1891          base[13]= CMPcar((V317));          base[13]= CMPcar((V353));
1892          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
1893          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk261)(Lclptr261);
1894          vs_top=sup;          vs_top=sup;
1895          V325= vs_base[0];          V361= vs_base[0];
1896          if(!((CMPcar(V325))==((VV[105]->s.s_dbind)))){          if(!((CMPcar(V361))==((VV[105]->s.s_dbind)))){
1897          goto T578;}          goto T578;}
1898          base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata);          base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata);
1899          base[13]=MMcons(base[13],base[4]);          base[13]=MMcons(base[13],base[4]);
1900          base[14]= (base[13]->c.c_car);          base[14]= (base[13]->c.c_car);
1901          base[15]= (V319);          base[15]= (V355);
1902          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1903          (void) (*Lnk262)();          (void) (*Lnk262)();
1904          vs_top=sup;          vs_top=sup;
# Line 1872  T574:; Line 1908  T574:;
1908          goto T590;          goto T590;
1909  T590:;  T590:;
1910          base[14]= (base[13]->c.c_car);          base[14]= (base[13]->c.c_car);
1911          base[15]= (V320);          base[15]= (V356);
1912          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1913          (void) (*Lnk262)();          (void) (*Lnk262)();
1914          vs_top=sup;          vs_top=sup;
# Line 1882  T590:; Line 1918  T590:;
1918  T589:;  T589:;
1919          goto T578;          goto T578;
1920  T578:;  T578:;
1921          {object V326 = Cnil;          {object V362 = Cnil;
1922          VMR32(V326)}          VMR32(V362)}
1923          goto T577;          goto T577;
1924  T577:;  T577:;
1925          base[13]= (V308);          V363 = (V344);
1926          base[14]= (V311);          V364 = (V343);
1927            base[13]= (V344);
1928            base[14]= (V347);
1929          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1930          (void) (*Lnk104)(Lclptr104);          (void) (*Lnk104)(Lclptr104);
1931          vs_top=sup;          vs_top=sup;
1932          V327= vs_base[0];          V365= vs_base[0];
1933          {object V328 = (*(LnkLI263))((V308),(V307),V327,(V319),(V320));          V366 = (V355);
1934          VMR32(V328)}}}          V367 = (V356);
1935            {object V368 = (*(LnkLI263))(V363,V364,V365,V366,V367);
1936            VMR32(V368)}}}
1937          base[0]=base[0];          base[0]=base[0];
1938          return Cnil;          return Cnil;
1939  }  }
1940  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL    */  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL    */
1941    
1942  static object LI35(V334,V335,V336,V337,V338)  static object LI35(V374,V375,V376,V377,V378)
1943    
1944  register object V334;register object V335;object V336;register object V337;register object V338;  register object V374;register object V375;object V376;register object V377;register object V378;
1945  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1946          goto TTL;          goto TTL;
1947  TTL:;  TTL:;
1948          {object V339;          {object V379;
1949          object V340;          object V380;
1950          object V341;          object V381;
1951          V339= CMPcadr((V335));          V379= CMPcadr((V375));
1952          V340= CMPcaddr((V335));          V380= CMPcaddr((V375));
1953          base[3]= (*(LnkLI258))(VV[96]);          base[3]= (*(LnkLI258))(VV[96]);
1954          base[4]= make_cons((V334),(V336));          base[4]= make_cons((V374),(V376));
1955          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1956          (void) (*Lnk259)(Lclptr259);          (void) (*Lnk259)(Lclptr259);
1957          vs_top=sup;          vs_top=sup;
1958          V341= vs_base[0];          V381= vs_base[0];
1959          if(((V340))!=Cnil){          if(((V380))!=Cnil){
1960          goto T604;}          goto T604;}
1961          base[3]= (V341);          V382 = (V374);
1962          base[4]= (V337);          V383 = (V376);
1963          base[5]= (V338);          base[3]= (V381);
1964            base[4]= (V377);
1965            base[5]= (V378);
1966          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1967          Lappend();          Lappend();
1968          vs_top=sup;          vs_top=sup;
1969          V342= vs_base[0];          V384= vs_base[0];
1970          if(((VFUN_NARGS=5,(*(LnkLI264))((V334),(V336),V342,Ct,Cnil)))!=Cnil){          if(((VFUN_NARGS=5,(*(LnkLI264))(V382,V383,V384,Ct,Cnil)))!=Cnil){
1971          goto T604;}          goto T604;}
1972          {object V343 = Cnil;          {object V385 = Cnil;
1973          VMR33(V343)}          VMR33(V385)}
1974          goto T604;          goto T604;
1975  T604:;  T604:;
1976          if((CMPcdr((V341)))!=Cnil){          if((CMPcdr((V381)))!=Cnil){
1977          goto T613;}          goto T613;}
1978          base[3]= (VV[265]->s.s_gfdef);          base[3]= (VV[265]->s.s_gfdef);
1979          base[4]= (V337);          base[4]= (V377);
1980          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1981          (void) (*Lnk266)();          (void) (*Lnk266)();
1982          vs_top=sup;          vs_top=sup;
1983          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1984          goto T613;}          goto T613;}
1985          base[3]= (VV[265]->s.s_gfdef);          base[3]= (VV[265]->s.s_gfdef);
1986          base[4]= (V338);          base[4]= (V378);
1987          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1988          (void) (*Lnk266)();          (void) (*Lnk266)();
1989          vs_top=sup;          vs_top=sup;
# Line 1949  T604:; Line 1991  T604:;
1991          goto T614;}          goto T614;}
1992          goto T613;          goto T613;
1993  T613:;  T613:;
1994          {object V344 = (*(LnkLI267))((V335),(V334),(V339),(V337),(V338));          {object V386 = (*(LnkLI267))((V375),(V374),(V379),(V377),(V378));
1995          VMR33(V344)}          VMR33(V386)}
1996          goto T614;          goto T614;
1997  T614:;  T614:;
1998          {object V345 = (*(LnkLI268))((V335),(V334),(V339),(V337),(V338));          {object V387 = (*(LnkLI268))((V375),(V374),(V379),(V377),(V378));
1999          VMR33(V345)}}          VMR33(V387)}}
2000          base[0]=base[0];          base[0]=base[0];
2001          return Cnil;          return Cnil;
2002  }  }
2003  /*      local entry for function COMPLICATED-INSTANCE-CREATION-METHOD   */  /*      local entry for function COMPLICATED-INSTANCE-CREATION-METHOD   */
2004    
2005  static object LI36(V347)  static object LI36(V389)
2006    
2007  object V347;  object V389;
2008  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
2009          goto TTL;          goto TTL;
2010  TTL:;  TTL:;
2011          {object V348;          {object V390;
2012          base[0]= (V347);          base[0]= (V389);
2013          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2014          (void) (*Lnk269)(Lclptr269);          (void) (*Lnk269)(Lclptr269);
2015          vs_top=sup;          vs_top=sup;
2016          V348= vs_base[0];          V390= vs_base[0];
2017          if(((V348))==Cnil){          if(((V390))==Cnil){
2018          goto T627;}          goto T627;}
2019          if((CMPcdr((V348)))==Cnil){          if((CMPcdr((V390)))==Cnil){
2020          goto T630;}          goto T630;}
2021          V349= Cnil;          V391= Cnil;
2022          goto T629;          goto T629;
2023          goto T630;          goto T630;
2024  T630:;  T630:;
2025          V349= ((CMPcar((V348)))==(VV[107])?Ct:Cnil);          V391= ((CMPcar((V390)))==(VV[107])?Ct:Cnil);
2026          goto T629;          goto T629;
2027  T629:;  T629:;
2028          {object V350 = ((V349)==Cnil?Ct:Cnil);          {object V392 = ((V391)==Cnil?Ct:Cnil);
2029          VMR34(V350)}          VMR34(V392)}
2030          goto T627;          goto T627;
2031  T627:;  T627:;
2032          {object V351;          {object V393;
2033          base[0]= (V347);          base[0]= (V389);
2034          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2035          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk261)(Lclptr261);
2036          vs_top=sup;          vs_top=sup;
2037          V352= vs_base[0];          V394= vs_base[0];
2038          V351= CMPcar(V352);          V393= CMPcar(V394);
2039          base[0]= (V351);          base[0]= (V393);
2040          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2041          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
2042          vs_top=sup;          vs_top=sup;
2043          V353= vs_base[0];          V395= vs_base[0];
2044          if(!((V353)==Cnil)){          if(!((V395)==Cnil)){
2045          goto T635;}          goto T635;}
2046          {object V354 = Ct;          {object V396 = Ct;
2047          VMR34(V354)}          VMR34(V396)}
2048          goto T635;          goto T635;
2049  T635:;  T635:;
2050          base[0]= (V351);          base[0]= (V393);
2051          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2052          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk229)(Lclptr229);
2053          vs_top=sup;          vs_top=sup;
2054          V355= vs_base[0];          V397= vs_base[0];
2055          {object V356 = ((((VV[108])==(V355)?Ct:Cnil))==Cnil?Ct:Cnil);          {object V398 = ((((VV[108])==(V397)?Ct:Cnil))==Cnil?Ct:Cnil);
2056          VMR34(V356)}}}          VMR34(V398)}}}
2057          base[0]=base[0];          base[0]=base[0];
2058          return Cnil;          return Cnil;
2059  }  }
2060  /*      local entry for function FIND-STANDARD-II-METHOD        */  /*      local entry for function FIND-STANDARD-II-METHOD        */
2061    
2062  static object LI37(V359,V360)  static object LI37(V401,V402)
2063    
2064  object V359;register object V360;  object V401;register object V402;
2065  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2066          goto TTL;          goto TTL;
2067  TTL:;  TTL:;
2068          {register object V361;          {register object V403;
2069          register object V362;          register object V404;
2070          V361= (V359);          V403= (V401);
2071          V362= CMPcar((V361));          V404= CMPcar((V403));
2072          goto T644;          goto T644;
2073  T644:;  T644:;
2074          if(!(((V361))==Cnil)){          if(!(((V403))==Cnil)){
2075          goto T645;}          goto T645;}
2076          {object V363 = Cnil;          {object V405 = Cnil;
2077          VMR35(V363)}          VMR35(V405)}
2078          goto T645;          goto T645;
2079  T645:;  T645:;
2080          base[1]= (V362);          base[1]= (V404);
2081          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2082          (void) (*Lnk269)(Lclptr269);          (void) (*Lnk269)(Lclptr269);
2083          vs_top=sup;          vs_top=sup;
2084          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2085          goto T649;}          goto T649;}
2086          {register object V364;          {register object V406;
2087          base[1]= (V362);          base[1]= (V404);
2088          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2089          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk261)(Lclptr261);
2090          vs_top=sup;          vs_top=sup;
2091          V365= vs_base[0];          V407= vs_base[0];
2092          V364= CMPcar(V365);          V406= CMPcar(V407);
2093          base[1]= (V364);          base[1]= (V406);
2094          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2095          (void) (*Lnk228)(Lclptr228);          (void) (*Lnk228)(Lclptr228);
2096          vs_top=sup;          vs_top=sup;
2097          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2098          goto T649;}          goto T649;}
2099          if(!(type_of((V360))==t_cons||((V360))==Cnil)){          if(!(type_of((V402))==t_cons||((V402))==Cnil)){
2100          goto T662;}          goto T662;}
2101          base[1]= (V364);          base[1]= (V406);
2102          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2103          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk229)(Lclptr229);
2104          vs_top=sup;          vs_top=sup;
2105          V367= vs_base[0];          V409= vs_base[0];
2106          {register object x= V367,V366= (V360);          V410 = (V402);
2107          while(V366!=Cnil)          {register object x= V409,V408= V410;
2108          if(eql(x,V366->c.c_car)){          while(V408!=Cnil)
2109            if(eql(x,V408->c.c_car)){
2110          goto T660;          goto T660;
2111          }else V366=V366->c.c_cdr;          }else V408=V408->c.c_cdr;
2112          goto T649;}          goto T649;}
2113          goto T662;          goto T662;
2114  T662:;  T662:;
2115          base[1]= (V364);          base[1]= (V406);
2116          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2117          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk229)(Lclptr229);
2118          vs_top=sup;          vs_top=sup;
2119          V368= vs_base[0];          V411= vs_base[0];
2120          if(!((V368)==((V360)))){          V412 = (V402);
2121            if(!((V411)==(V412))){
2122          goto T649;}          goto T649;}
2123          goto T660;          goto T660;
2124  T660:;  T660:;
2125          {object V369 = (V362);          {object V413 = (V404);
2126          VMR35(V369)}}          VMR35(V413)}}
2127          goto T649;          goto T649;
2128  T649:;  T649:;
2129          V361= CMPcdr((V361));          V403= CMPcdr((V403));
2130          V362= CMPcar((V361));          V404= CMPcar((V403));
2131          goto T644;}          goto T644;}
2132          base[0]=base[0];          base[0]=base[0];
2133          return Cnil;          return Cnil;
# Line 2096  static void L38() Line 2140  static void L38()
2140          vs_check;          vs_check;
2141          check_arg(2);          check_arg(2);
2142          vs_top=sup;          vs_top=sup;
2143          {object V370=base[0]->c.c_cdr;          {object V414=base[0]->c.c_cdr;
2144          if(endp(V370))invalid_macro_call();          if(endp(V414))invalid_macro_call();
2145          base[2]= (V370->c.c_car);          base[2]= (V414->c.c_car);
2146          V370=V370->c.c_cdr;          V414=V414->c.c_cdr;
2147          if(endp(V370))invalid_macro_call();          if(endp(V414))invalid_macro_call();
2148          base[3]= (V370->c.c_car);          base[3]= (V414->c.c_car);
2149          V370=V370->c.c_cdr;          V414=V414->c.c_cdr;
2150          if(endp(V370))invalid_macro_call();          if(endp(V414))invalid_macro_call();
2151          base[4]= (V370->c.c_car);          base[4]= (V414->c.c_car);
2152          V370=V370->c.c_cdr;          V414=V414->c.c_cdr;
2153          if(!endp(V370))invalid_macro_call();}          if(!endp(V414))invalid_macro_call();}
2154          V371= list(2,VV[109],base[2]);          V415= list(2,VV[109],base[2]);
2155          V372= make_cons(/* INLINE-ARGS */V371,Cnil);          V416= make_cons(/* INLINE-ARGS */V415,Cnil);
2156          V373= list(5,VV[111],VV[112],VV[113],base[3],base[4]);          V417= list(5,VV[111],VV[112],VV[113],base[3],base[4]);
2157          base[5]= list(3,VV[52],/* INLINE-ARGS */V372,list(4,VV[78],VV[110],/* INLINE-ARGS */V373,list(4,VV[114],VV[115],base[3],base[4])));          base[5]= list(3,VV[52],/* INLINE-ARGS */V416,list(4,VV[78],VV[110],/* INLINE-ARGS */V417,list(4,VV[114],VV[115],base[3],base[4])));
2158          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2159          return;          return;
2160  }  }
# Line 2122  static void L39() Line 2166  static void L39()
2166          vs_check;          vs_check;
2167          check_arg(2);          check_arg(2);
2168          vs_top=sup;          vs_top=sup;
2169          {object V374=base[0]->c.c_cdr;          {object V418=base[0]->c.c_cdr;
2170          if(endp(V374))invalid_macro_call();          if(endp(V418))invalid_macro_call();
2171          base[2]= (V374->c.c_car);          base[2]= (V418->c.c_car);
2172          V374=V374->c.c_cdr;          V418=V418->c.c_cdr;
2173          if(!endp(V374))invalid_macro_call();}          if(!endp(V418))invalid_macro_call();}
2174          base[3]= list(2,VV[116],base[2]);          base[3]= list(2,VV[116],base[2]);
2175          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2176          return;          return;
# Line 2139  static void L40() Line 2183  static void L40()
2183          vs_check;          vs_check;
2184          check_arg(2);          check_arg(2);
2185          vs_top=sup;          vs_top=sup;
2186          {object V375=base[0]->c.c_cdr;          {object V419=base[0]->c.c_cdr;
2187          if(endp(V375))invalid_macro_call();          if(endp(V419))invalid_macro_call();
2188          base[2]= (V375->c.c_car);          base[2]= (V419->c.c_car);
2189          V375=V375->c.c_cdr;          V419=V419->c.c_cdr;
2190          if(endp(V375))invalid_macro_call();          if(endp(V419))invalid_macro_call();
2191          base[3]= (V375->c.c_car);          base[3]= (V419->c.c_car);
2192          V375=V375->c.c_cdr;          V419=V419->c.c_cdr;
2193          if(!endp(V375))invalid_macro_call();}          if(!endp(V419))invalid_macro_call();}
2194          V376= list(3,VV[62],VV[118],base[2]);          V420= list(3,VV[62],VV[118],base[2]);
2195          base[4]= list(5,VV[52],VV[117],/* INLINE-ARGS */V376,list(3,VV[62],VV[119],list(2,VV[120],base[3])),VV[121]);          base[4]= list(5,VV[52],VV[117],/* INLINE-ARGS */V420,list(3,VV[62],VV[119],list(2,VV[120],base[3])),VV[121]);
2196          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2197          return;          return;
2198  }  }
# Line 2160  static void L41() Line 2204  static void L41()
2204          vs_check;          vs_check;
2205          check_arg(2);          check_arg(2);
2206          vs_top=sup;          vs_top=sup;
2207          {object V377=base[0]->c.c_cdr;          {object V421=base[0]->c.c_cdr;
2208          if(endp(V377))invalid_macro_call();          if(endp(V421))invalid_macro_call();
2209          base[2]= (V377->c.c_car);          base[2]= (V421->c.c_car);
2210          V377=V377->c.c_cdr;          V421=V421->c.c_cdr;
2211          base[3]= V377;}          base[3]= V421;}
2212          V378= list(3,VV[124],VV[125],base[2]);          V422= list(3,VV[124],VV[125],base[2]);
2213          base[4]= list(3,VV[52],VV[122],list(4,VV[78],VV[123],/* INLINE-ARGS */V378,make_cons(VV[6],base[3])));          base[4]= list(3,VV[52],VV[122],list(4,VV[78],VV[123],/* INLINE-ARGS */V422,make_cons(VV[6],base[3])));
2214          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2215          return;          return;
2216  }  }
# Line 2176  static void L42() Line 2220  static void L42()
2220  {register object *base=vs_base;  {register object *base=vs_base;
2221          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
2222          vs_check;          vs_check;
2223          {object V379;          {object V423;
2224          object V380;          object V424;
2225          check_arg(2);          check_arg(2);
2226          V379=(base[0]);          V423=(base[0]);
2227          V380=(base[1]);          V424=(base[1]);
2228          vs_top=sup;          vs_top=sup;
2229          goto TTL;          goto TTL;
2230  TTL:;  TTL:;
2231          {object V381;          {object V425;
2232          object V382;          object V426;
2233          V381= (VFUN_NARGS=2,(*(LnkLI39))((V379),(V380)));          V425= (VFUN_NARGS=2,(*(LnkLI39))((V423),(V424)));
2234          {object V383;          {object V427;
2235          V383= STREF(object,(V381),48);          V427= STREF(object,(V425),48);
2236          if(!(((V383))==(VV[43]))){          if(!(((V427))==(VV[43]))){
2237          goto T677;}          goto T677;}
2238          (void)((*(LnkLI61))((V381),VV[13]));          (void)((*(LnkLI61))((V425),VV[13]));
2239          V382= STREF(object,(V381),48);          V426= STREF(object,(V425),48);
2240          goto T674;          goto T674;
2241          goto T677;          goto T677;
2242  T677:;  T677:;
2243          V382= (V383);}          V426= (V427);}
2244          goto T674;          goto T674;
2245  T674:;  T674:;
2246          base[4]= (V379);          base[4]= (V423);
2247          base[5]= (V380);          base[5]= (V424);
2248          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2249          {object _funobj = (V382);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V426);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2250                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2251                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2252                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 2211  T674:; Line 2255  T674:;
2255  }  }
2256  /*      local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE  */  /*      local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE  */
2257    
2258  static object LI43(V389,V390,V391,V392,V393)  static object LI43(V433,V434,V435,V436,V437)
2259    
2260  object V389;object V390;object V391;object V392;object V393;  object V433;object V434;object V435;object V436;object V437;
2261  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2262          goto TTL;          goto TTL;
2263  TTL:;  TTL:;
2264          {object V394;          {object V438;
2265          object V395;          object V439;
2266          object V396;          object V440;
2267          object V397;          object V441;
2268          base[0]= CMPcar((V389));          base[0]= CMPcar((V433));
2269          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
2270          if(!(type_of((base[0]->c.c_car))==t_symbol)){          if(!(type_of((base[0]->c.c_car))==t_symbol)){
2271          goto T685;}          goto T685;}
# Line 2233  T685:; Line 2277  T685:;
2277          goto T683;          goto T683;
2278  T683:;  T683:;
2279          base[1]=MMcons(base[1],base[0]);          base[1]=MMcons(base[1],base[0]);
2280          base[10]= (V390);          base[10]= (V434);
2281          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2282          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk243)(Lclptr243);
2283          vs_top=sup;          vs_top=sup;
2284          base[2]= vs_base[0];          base[2]= vs_base[0];
2285          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
2286          V394= make_cons((base[2]->c.c_car),Cnil);          V438= make_cons((base[2]->c.c_car),Cnil);
2287          base[10]= (V390);          base[10]= (V434);
2288          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2289          (void) (*Lnk270)(Lclptr270);          (void) (*Lnk270)(Lclptr270);
2290          vs_top=sup;          vs_top=sup;
# Line 2250  T683:; Line 2294  T683:;
2294          goto T690;          goto T690;
2295          goto T692;          goto T692;
2296  T692:;  T692:;
2297          base[10]= (V390);          base[10]= (V434);
2298          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2299          (void) (*Lnk272)(Lclptr272);          (void) (*Lnk272)(Lclptr272);
2300          vs_top=sup;          vs_top=sup;
# Line 2260  T692:; Line 2304  T692:;
2304          goto T690;          goto T690;
2305          goto T696;          goto T696;
2306  T696:;  T696:;
2307          base[10]= (V390);          base[10]= (V434);
2308          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2309          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk274)(Lclptr274);
2310          vs_top=sup;          vs_top=sup;
# Line 2278  T700:; Line 2322  T700:;
2322          goto T690;          goto T690;
2323  T690:;  T690:;
2324          base[4]=MMcons(base[4],base[2]);          base[4]=MMcons(base[4],base[2]);
2325          base[10]= (V390);          base[10]= (V434);
2326          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
2327          (void) (*Lnk272)(Lclptr272);          (void) (*Lnk272)(Lclptr272);
2328          vs_top=sup;          vs_top=sup;
2329          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2330          goto T706;}          goto T706;}
2331          V395= VV[127];          V439= VV[127];
2332          goto T704;          goto T704;
2333          goto T706;          goto T706;
2334  T706:;  T706:;
2335          V395= Cnil;          V439= Cnil;
2336          goto T704;          goto T704;
2337  T704:;  T704:;
2338          V396= (*(LnkLI260))((V393),VV[108]);          V440= (*(LnkLI260))((V437),VV[108]);
2339          base[11]= (V396);          base[11]= (V440);
2340          base[12]= (V393);          base[12]= (V437);
2341          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
2342          (void) (*Lnk276)();          (void) (*Lnk276)();
2343          vs_top=sup;          vs_top=sup;
2344          V401= vs_base[0];          V445= vs_base[0];
2345          {object V399;          {object V443;
2346          object V400= V401;          object V444= V445;
2347          if(V400==Cnil){          if(V444==Cnil){
2348          V398= Cnil;          V442= Cnil;
2349          goto T711;}          goto T711;}
2350          base[10]=V399=MMcons(Cnil,Cnil);          base[10]=V443=MMcons(Cnil,Cnil);
2351          goto T712;          goto T712;
2352  T712:;  T712:;
2353          base[11]= (VV[98]->s.s_gfdef);          base[11]= (VV[98]->s.s_gfdef);
2354          base[12]= list(3,VV[128],(V400->c.c_car),Cnil);          base[12]= list(3,VV[128],(V444->c.c_car),Cnil);
2355          base[13]= Cnil;          base[13]= Cnil;
2356          base[14]= (V394);          base[14]= (V438);
2357          vs_top=(vs_base=base+11)+4;          vs_top=(vs_base=base+11)+4;
2358          (void) (*Lnk277)();          (void) (*Lnk277)();
2359          vs_top=sup;          vs_top=sup;
2360          (V399->c.c_car)= vs_base[0];          (V443->c.c_car)= vs_base[0];
2361          if((V400=MMcdr(V400))==Cnil){          if((V444=MMcdr(V444))==Cnil){
2362          V398= base[10];          V442= base[10];
2363          goto T711;}          goto T711;}
2364          V399=MMcdr(V399)=MMcons(Cnil,Cnil);          V443=MMcdr(V443)=MMcons(Cnil,Cnil);
2365          goto T712;}          goto T712;}
2366          goto T711;          goto T711;
2367  T711:;  T711:;
2368          base[7]= nreverse(V398);          base[7]= nreverse(V442);
2369          base[7]=MMcons(base[7],base[4]);          base[7]=MMcons(base[7],base[4]);
2370          V397= (*(LnkLI260))((V392),VV[108]);          V441= (*(LnkLI260))((V436),VV[108]);
2371          base[11]= (V397);          base[11]= (V441);
2372          base[12]= (V392);          base[12]= (V436);
2373          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
2374          (void) (*Lnk276)();          (void) (*Lnk276)();
2375          vs_top=sup;          vs_top=sup;
2376          V406= vs_base[0];          V450= vs_base[0];
2377          {object V404;          {object V448;
2378          object V405= V406;          object V449= V450;
2379          if(V405==Cnil){          if(V449==Cnil){
2380          V403= Cnil;          V447= Cnil;
2381          goto T723;}          goto T723;}
2382          base[10]=V404=MMcons(Cnil,Cnil);          base[10]=V448=MMcons(Cnil,Cnil);
2383          goto T724;          goto T724;
2384  T724:;  T724:;
2385          base[11]= (VV[97]->s.s_gfdef);          base[11]= (VV[97]->s.s_gfdef);
2386          base[12]= list(3,VV[128],(V405->c.c_car),Cnil);          base[12]= list(3,VV[128],(V449->c.c_car),Cnil);
2387          base[13]= Cnil;          base[13]= Cnil;
2388          base[14]= (V394);          base[14]= (V438);
2389          vs_top=(vs_base=base+11)+4;          vs_top=(vs_base=base+11)+4;
2390          (void) (*Lnk277)();          (void) (*Lnk277)();
2391          vs_top=sup;          vs_top=sup;
2392          (V404->c.c_car)= vs_base[0];          (V448->c.c_car)= vs_base[0];
2393          if((V405=MMcdr(V405))==Cnil){          if((V449=MMcdr(V449))==Cnil){
2394          V403= base[10];          V447= base[10];
2395          goto T723;}          goto T723;}
2396          V404=MMcdr(V404)=MMcons(Cnil,Cnil);          V448=MMcdr(V448)=MMcons(Cnil,Cnil);
2397          goto T724;}          goto T724;}
2398          goto T723;          goto T723;
2399  T723:;  T723:;
2400          base[9]= nreverse(V403);          base[9]= nreverse(V447);
2401          base[9]=MMcons(base[9],base[7]);          base[9]=MMcons(base[9],base[7]);
2402          base[12]= (V390);          base[12]= (V434);
2403          base[13]= (V391);          base[13]= (V435);
2404          base[14]= CMPcaddr((V389));          base[14]= CMPcaddr((V433));
2405          vs_top=(vs_base=base+12)+3;          vs_top=(vs_base=base+12)+3;
2406          (void) (*Lnk278)();          (void) (*Lnk278)();
2407          if(vs_base>=vs_top){vs_top=sup;goto T737;}          if(vs_base>=vs_top){vs_top=sup;goto T737;}
# Line 2375  T738:; Line 2419  T738:;
2419          base[11]=MMcons(Cnil,base[10]);          base[11]=MMcons(Cnil,base[10]);
2420          goto T739;          goto T739;
2421  T739:;  T739:;
2422          if(!(((V395))==(VV[127]))){          if(!(((V439))==(VV[127]))){
2423          goto T741;}          goto T741;}
2424          {object V408 =          {object V452 =
2425          make_cclosure_new(LC67,Cnil,base[11],Cdata);          make_cclosure_new(LC67,Cnil,base[11],Cdata);
2426          VMR41(V408)}          VMR41(V452)}
2427          goto T741;          goto T741;
2428  T741:;  T741:;
2429          {object V409 =          {object V453 =
2430          make_cclosure_new(LC68,Cnil,base[11],Cdata);          make_cclosure_new(LC68,Cnil,base[11],Cdata);
2431          VMR41(V409)}}          VMR41(V453)}}
2432          base[0]=base[0];          base[0]=base[0];
2433          return Cnil;          return Cnil;
2434  }  }
2435  /*      local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */  /*      local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */
2436    
2437  static object LI45(V415,V416,V417,V418,V419)  static object LI45(V459,V460,V461,V462,V463)
2438    
2439  object V415;object V416;object V417;object V418;object V419;  object V459;object V460;object V461;object V462;object V463;
2440  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2441          goto TTL;          goto TTL;
2442  TTL:;  TTL:;
2443          base[0]=MMcons((V416),Cnil);          base[0]=MMcons((V460),Cnil);
2444          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
2445          base[4]= (V417);          base[4]= (V461);
2446          base[5]= CMPcaddr((V415));          base[5]= CMPcaddr((V459));
2447          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2448          (void) (*Lnk279)();          (void) (*Lnk279)();
2449          if(vs_base>=vs_top){vs_top=sup;goto T747;}          if(vs_base>=vs_top){vs_top=sup;goto T747;}
# Line 2417  T748:; Line 2461  T748:;
2461          base[2]=MMcons(Cnil,base[1]);          base[2]=MMcons(Cnil,base[1]);
2462          goto T749;          goto T749;
2463  T749:;  T749:;
2464          base[3]= CMPcar((V415));          base[3]= CMPcar((V459));
2465          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
2466          if(!(type_of((base[3]->c.c_car))==t_symbol)){          if(!(type_of((base[3]->c.c_car))==t_symbol)){
2467          goto T753;}          goto T753;}
# Line 2436  T751:; Line 2480  T751:;
2480          base[5]= vs_base[0];          base[5]= vs_base[0];
2481          base[5]=MMcons(base[5],base[4]);          base[5]=MMcons(base[5],base[4]);
2482          base[8]= (VV[98]->s.s_gfdef);          base[8]= (VV[98]->s.s_gfdef);
2483          base[9]= (V419);          base[9]= (V463);
2484          V420= list(2,VV[138],(base[0]->c.c_car));          V464= list(2,VV[138],(base[0]->c.c_car));
2485          base[10]= make_cons(/* INLINE-ARGS */V420,VV[139]);          base[10]= make_cons(/* INLINE-ARGS */V464,VV[139]);
2486          V421= (*(LnkLI260))((V419),VV[108]);          V465= (*(LnkLI260))((V463),VV[108]);
2487          V422=          V466=
2488          make_cclosure_new(LC69,Cnil,base[5],Cdata);          make_cclosure_new(LC69,Cnil,base[5],Cdata);
2489          V423= list(2,/* INLINE-ARGS */V421,V422);          V467= list(2,/* INLINE-ARGS */V465,V466);
2490          base[11]= make_cons(/* INLINE-ARGS */V423,Cnil);          base[11]= make_cons(/* INLINE-ARGS */V467,Cnil);
2491          base[12]= list(3,(base[5]->c.c_car),(VV[140]->s.s_dbind),(VV[140]->s.s_dbind));          base[12]= list(3,(base[5]->c.c_car),(VV[140]->s.s_dbind),(VV[140]->s.s_dbind));
2492          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
2493          (void) (*Lnk280)();          (void) (*Lnk280)();
# Line 2451  T751:; Line 2495  T751:;
2495          base[6]= vs_base[0];          base[6]= vs_base[0];
2496          base[6]=MMcons(base[6],base[5]);          base[6]=MMcons(base[6],base[5]);
2497          base[8]= (VV[97]->s.s_gfdef);          base[8]= (VV[97]->s.s_gfdef);
2498          base[9]= (V418);          base[9]= (V462);
2499          base[10]= list(2,list(2,VV[138],(base[0]->c.c_car)),Ct);          base[10]= list(2,list(2,VV[138],(base[0]->c.c_car)),Ct);
2500          V424= (*(LnkLI260))((V418),VV[108]);          V468= (*(LnkLI260))((V462),VV[108]);
2501          V425=          V469=
2502          make_cclosure_new(LC70,Cnil,base[6],Cdata);          make_cclosure_new(LC70,Cnil,base[6],Cdata);
2503          V426= list(2,/* INLINE-ARGS */V424,V425);          V470= list(2,/* INLINE-ARGS */V468,V469);
2504          base[11]= make_cons(/* INLINE-ARGS */V426,Cnil);          base[11]= make_cons(/* INLINE-ARGS */V470,Cnil);
2505          base[12]= list(2,(base[5]->c.c_car),(VV[140]->s.s_dbind));          base[12]= list(2,(base[5]->c.c_car),(VV[140]->s.s_dbind));
2506          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
2507          (void) (*Lnk280)();          (void) (*Lnk280)();
2508          vs_top=sup;          vs_top=sup;
2509          base[7]= vs_base[0];          base[7]= vs_base[0];
2510          base[7]=MMcons(base[7],base[6]);          base[7]=MMcons(base[7],base[6]);
2511          {object V427 =          {object V471 =
2512          make_cclosure_new(LC71,Cnil,base[7],Cdata);          make_cclosure_new(LC71,Cnil,base[7],Cdata);
2513          VMR42(V427)}          VMR42(V471)}
2514          base[0]=base[0];          base[0]=base[0];
2515          return Cnil;          return Cnil;
2516  }  }
# Line 2476  static void L46() Line 2520  static void L46()
2520  {register object *base=vs_base;  {register object *base=vs_base;
2521          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
2522          vs_check;          vs_check;
2523          {object V428;          {object V472;
2524          object V429;          object V473;
2525          object V430;          object V474;
2526          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
2527          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
2528          V428=(base[0]);          V472=(base[0]);
2529          V429=(base[1]);          V473=(base[1]);
2530          vs_base=vs_base+2;          vs_base=vs_base+2;
2531          if(vs_base>=vs_top){vs_top=sup;goto T771;}          if(vs_base>=vs_top){vs_top=sup;goto T771;}
2532          V430=(base[2]);          V474=(base[2]);
2533          vs_top=sup;          vs_top=sup;
2534          goto T772;          goto T772;
2535          goto T771;          goto T771;
2536  T771:;  T771:;
2537          V430= Cnil;          V474= Cnil;
2538          goto T772;          goto T772;
2539  T772:;  T772:;
2540          {register object V431;          {register object V475;
2541          V431= (VFUN_NARGS=4,(*(LnkLI39))((V428),(V429),Cnil,(V430)));          V475= (VFUN_NARGS=4,(*(LnkLI39))((V472),(V473),Cnil,(V474)));
2542          {object V432;          {object V476;
2543          V432= STREF(object,(V431),44);          V476= STREF(object,(V475),44);
2544          if(!(((V432))==(VV[43]))){          if(!(((V476))==(VV[43]))){
2545          goto T778;}          goto T778;}
2546          (void)((*(LnkLI61))((V431),VV[74]));          (void)((*(LnkLI61))((V475),VV[74]));
2547          base[3]= STREF(object,(V431),44);          base[3]= STREF(object,(V475),44);
2548          goto T775;          goto T775;
2549          goto T778;          goto T778;
2550  T778:;  T778:;
2551          base[3]= (V432);}          base[3]= (V476);}
2552          goto T775;          goto T775;
2553  T775:;  T775:;
2554          {object V433;          {object V477;
2555          V433= STREF(object,(V431),40);          V477= STREF(object,(V475),40);
2556          if(!(((V433))==(VV[43]))){          if(!(((V477))==(VV[43]))){
2557          goto T784;}          goto T784;}
2558          (void)((*(LnkLI61))((V431),VV[73]));          (void)((*(LnkLI61))((V475),VV[73]));
2559          base[4]= STREF(object,(V431),40);          base[4]= STREF(object,(V475),40);
2560          goto T781;          goto T781;
2561          goto T784;          goto T784;
2562  T784:;  T784:;
2563          base[4]= (V433);}          base[4]= (V477);}
2564          goto T781;          goto T781;
2565  T781:;  T781:;
2566          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 2529  static void L47() Line 2573  static void L47()
2573  {register object *base=vs_base;  {register object *base=vs_base;
2574          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
2575          vs_check;          vs_check;
2576          {register object V434;          {register object V478;
2577          object V435;          object V479;
2578          register object V436;          register object V480;
2579          object V437;          object V481;
2580          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
2581          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
2582          V434=(base[0]);          V478=(base[0]);
2583          V435=(base[1]);          V479=(base[1]);
2584          vs_base=vs_base+2;          vs_base=vs_base+2;
2585          if(vs_base>=vs_top){vs_top=sup;goto T787;}          if(vs_base>=vs_top){vs_top=sup;goto T787;}
2586          V436=(base[2]);          V480=(base[2]);
2587          vs_base++;          vs_base++;
2588          if(vs_base>=vs_top){vs_top=sup;goto T788;}          if(vs_base>=vs_top){vs_top=sup;goto T788;}
2589          V437=(base[3]);          V481=(base[3]);
2590          vs_top=sup;          vs_top=sup;
2591          goto T789;          goto T789;
2592          goto T787;          goto T787;
2593  T787:;  T787:;
2594          V436= Cnil;          V480= Cnil;
2595          goto T788;          goto T788;
2596  T788:;  T788:;
2597          V437= Cnil;          V481= Cnil;
2598          goto T789;          goto T789;
2599  T789:;  T789:;
2600          {register object V438;          {register object V482;
2601          object V439;          object V483;
2602          V438= (VFUN_NARGS=4,(*(LnkLI39))((V434),(V435),Cnil,(V436)));          V482= (VFUN_NARGS=4,(*(LnkLI39))((V478),(V479),Cnil,(V480)));
2603          {object V440;          {object V484;
2604          V440= STREF(object,(V438),28);          V484= STREF(object,(V482),28);
2605          if(!(((V440))==(VV[43]))){          if(!(((V484))==(VV[43]))){
2606          goto T796;}          goto T796;}
2607          (void)((*(LnkLI61))((V438),VV[70]));          (void)((*(LnkLI61))((V482),VV[70]));
2608          V439= STREF(object,(V438),28);          V483= STREF(object,(V482),28);
2609          goto T793;          goto T793;
2610          goto T796;          goto T796;
2611  T796:;  T796:;
2612          V439= (V440);}          V483= (V484);}
2613          goto T793;          goto T793;
2614  T793:;  T793:;
2615          if(((V437))==Cnil){          if(((V481))==Cnil){
2616          goto T800;}          goto T800;}
2617          base[6]= (V439);          base[6]= (V483);
2618          {object V441;          {object V485;
2619          V441= STREF(object,(V438),32);          V485= STREF(object,(V482),32);
2620          if(!(((V441))==(VV[43]))){          if(!(((V485))==(VV[43]))){
2621          goto T806;}          goto T806;}
2622          (void)((*(LnkLI61))((V438),VV[71]));          (void)((*(LnkLI61))((V482),VV[71]));
2623          base[7]= STREF(object,(V438),32);          base[7]= STREF(object,(V482),32);
2624          goto T803;          goto T803;
2625          goto T806;          goto T806;
2626  T806:;  T806:;
2627          base[7]= (V441);}          base[7]= (V485);}
2628          goto T803;          goto T803;
2629  T803:;  T803:;
2630          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
2631          return;          return;
2632          goto T800;          goto T800;
2633  T800:;  T800:;
2634          base[6]= (V439);          base[6]= (V483);
2635          {object V442;          {object V486;
2636          {object V444;          V487 = (V478);
2637          V444= STREF(object,(V438),24);          {object V489;
2638          if(!(((V444))==(VV[43]))){          V489= STREF(object,(V482),24);
2639            if(!(((V489))==(VV[43]))){
2640          goto T815;}          goto T815;}
2641          (void)((*(LnkLI61))((V438),VV[69]));          (void)((*(LnkLI61))((V482),VV[69]));
2642          V443= STREF(object,(V438),24);          V488= STREF(object,(V482),24);
2643          goto T812;          goto T812;
2644          goto T815;          goto T815;
2645  T815:;  T815:;
2646          V443= (V444);}          V488= (V489);}
2647          goto T812;          goto T812;
2648  T812:;  T812:;
2649          V445= (VFUN_NARGS=4,(*(LnkLI39))((V434),V443,Cnil,(V436)));          V490 = (V480);
2650          V442= STREF(object,/* INLINE-ARGS */V445,32);          V491= (VFUN_NARGS=4,(*(LnkLI39))(V487,V488,Cnil,V490));
2651          if(!(((V442))==(VV[43]))){          V486= STREF(object,/* INLINE-ARGS */V491,32);
2652            if(!(((V486))==(VV[43]))){
2653          goto T819;}          goto T819;}
2654          {object V447;          V492 = (V478);
2655          V447= STREF(object,(V438),24);          {object V494;
2656          if(!(((V447))==(VV[43]))){          V494= STREF(object,(V482),24);
2657            if(!(((V494))==(VV[43]))){
2658          goto T825;}          goto T825;}
2659          (void)((*(LnkLI61))((V438),VV[69]));          (void)((*(LnkLI61))((V482),VV[69]));
2660          V446= STREF(object,(V438),24);          V493= STREF(object,(V482),24);
2661          goto T822;          goto T822;
2662          goto T825;          goto T825;
2663  T825:;  T825:;
2664          V446= (V447);}          V493= (V494);}
2665          goto T822;          goto T822;
2666  T822:;  T822:;
2667          V448= (VFUN_NARGS=4,(*(LnkLI39))((V434),V446,Cnil,(V436)));          V495 = (V480);
2668          (void)((*(LnkLI61))(/* INLINE-ARGS */V448,VV[71]));          V496= (VFUN_NARGS=4,(*(LnkLI39))(V492,V493,Cnil,V495));
2669          {object V450;          (void)((*(LnkLI61))(/* INLINE-ARGS */V496,VV[71]));
2670          V450= STREF(object,(V438),24);          V497 = (V478);
2671          if(!(((V450))==(VV[43]))){          {object V499;
2672            V499= STREF(object,(V482),24);
2673            if(!(((V499))==(VV[43]))){
2674          goto T831;}          goto T831;}
2675          (void)((*(LnkLI61))((V438),VV[69]));          (void)((*(LnkLI61))((V482),VV[69]));
2676          V449= STREF(object,(V438),24);          V498= STREF(object,(V482),24);
2677          goto T828;          goto T828;
2678          goto T831;          goto T831;
2679  T831:;  T831:;
2680          V449= (V450);}          V498= (V499);}
2681          goto T828;          goto T828;
2682  T828:;  T828:;
2683          V451= (VFUN_NARGS=4,(*(LnkLI39))((V434),V449,Cnil,(V436)));          V500 = (V480);
2684          base[7]= STREF(object,/* INLINE-ARGS */V451,32);          V501= (VFUN_NARGS=4,(*(LnkLI39))(V497,V498,Cnil,V500));
2685            base[7]= STREF(object,/* INLINE-ARGS */V501,32);
2686          goto T810;          goto T810;
2687          goto T819;          goto T819;
2688  T819:;  T819:;
2689          base[7]= (V442);}          base[7]= (V486);}
2690          goto T810;          goto T810;
2691  T810:;  T810:;
2692          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
# Line 2645  T810:; Line 2695  T810:;
2695  }  }
2696  /*      local entry for function ADD-FORMS      */  /*      local entry for function ADD-FORMS      */
2697    
2698  static object LI48(V454,V455)  static object LI48(V504,V505)
2699    
2700  register object V454;register object V455;  register object V504;register object V505;
2701  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
2702          goto TTL;          goto TTL;
2703  TTL:;  TTL:;
2704          if(((V454))==Cnil){          if(((V504))==Cnil){
2705          goto T834;}          goto T834;}
2706          base[0]= (V454);          base[0]= (V504);
2707          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2708          Lcopy_list();          Lcopy_list();
2709          vs_top=sup;          vs_top=sup;
2710          V454= vs_base[0];          V504= vs_base[0];
2711          if((CMPcar((V455)))!=Cnil){          if((CMPcar((V505)))!=Cnil){
2712          goto T842;}          goto T842;}
2713          (V455)->c.c_car = V454;          (V505)->c.c_car = V504;
2714          goto T840;          goto T840;
2715          goto T842;          goto T842;
2716  T842:;  T842:;
2717          (CMPcdr(V455))->c.c_cdr = V454;          (CMPcdr(V505))->c.c_cdr = V504;
2718          (void)(CMPcdr(V455));          (void)(CMPcdr(V505));
2719          goto T840;          goto T840;
2720  T840:;  T840:;
2721          {object V461;          {object V511;
2722          base[1]= (V454);          base[1]= (V504);
2723          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2724          Llast();          Llast();
2725          vs_top=sup;          vs_top=sup;
2726          V461= vs_base[0];          V511= vs_base[0];
2727          (V455)->c.c_cdr = (V461);}          (V505)->c.c_cdr = (V511);}
2728          goto T834;          goto T834;
2729  T834:;  T834:;
2730          {object V462 = CMPcar((V455));          {object V512 = CMPcar((V505));
2731          VMR45(V462)}          VMR45(V512)}
2732          base[0]=base[0];          base[0]=base[0];
2733          return Cnil;          return Cnil;
2734  }  }
# Line 2688  static void L49() Line 2738  static void L49()
2738  {register object *base=vs_base;  {register object *base=vs_base;
2739          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
2740          vs_check;          vs_check;
2741          {object V463;          {object V513;
2742          object V464;          object V514;
2743          object V465;          object V515;
2744          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
2745          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
2746          V463=(base[0]);          V513=(base[0]);
2747          V464=(base[1]);          V514=(base[1]);
2748          vs_base=vs_base+2;          vs_base=vs_base+2;
2749          if(vs_base>=vs_top){vs_top=sup;goto T849;}          if(vs_base>=vs_top){vs_top=sup;goto T849;}
2750          V465=(base[2]);          V515=(base[2]);
2751          vs_top=sup;          vs_top=sup;
2752          goto T850;          goto T850;
2753          goto T849;          goto T849;
2754  T849:;  T849:;
2755          V465= Ct;          V515= Ct;
2756          goto T850;          goto T850;
2757  T850:;  T850:;
2758          {object V466;          {object V516;
2759          object V467;          object V517;
2760          object V468;          object V518;
2761          object V469;          object V519;
2762          register object V470;          register object V520;
2763          V466= make_cons(Cnil,Cnil);          V516= make_cons(Cnil,Cnil);
2764          base[3]= (V463);          base[3]= (V513);
2765          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2766          (void) (*Lnk281)(Lclptr281);          (void) (*Lnk281)(Lclptr281);
2767          vs_top=sup;          vs_top=sup;
2768          V467= vs_base[0];          V517= vs_base[0];
2769          base[4]= (V463);          base[4]= (V513);
2770          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2771          (void) (*Lnk282)(Lclptr282);          (void) (*Lnk282)(Lclptr282);
2772          vs_top=sup;          vs_top=sup;
2773          V473= vs_base[0];          V523= vs_base[0];
2774          {object V471;          {object V521;
2775          object V472= V473;          object V522= V523;
2776          if(V472==Cnil){          if(V522==Cnil){
2777          V469= Cnil;          V519= Cnil;
2778          goto T855;}          goto T855;}
2779          base[3]=V471=MMcons(Cnil,Cnil);          base[3]=V521=MMcons(Cnil,Cnil);
2780          goto T856;          goto T856;
2781  T856:;  T856:;
2782          base[5]= (V472->c.c_car);          base[5]= (V522->c.c_car);
2783          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2784          (void) (*Lnk283)(Lclptr283);          (void) (*Lnk283)(Lclptr283);
2785          vs_top=sup;          vs_top=sup;
2786          V477= vs_base[0];          V527= vs_base[0];
2787          {object V475;          {object V525;
2788          object V476= V477;          object V526= V527;
2789          if(V476==Cnil){          if(V526==Cnil){
2790          (V471->c.c_cdr)= Cnil;          (V521->c.c_cdr)= Cnil;
2791          goto T859;}          goto T859;}
2792          base[4]=V475=MMcons(Cnil,Cnil);          base[4]=V525=MMcons(Cnil,Cnil);
2793          goto T860;          goto T860;
2794  T860:;  T860:;
2795          (V475->c.c_car)= make_cons((V476->c.c_car),(V472->c.c_car));          (V525->c.c_car)= make_cons((V526->c.c_car),(V522->c.c_car));
2796          if((V476=MMcdr(V476))==Cnil){          if((V526=MMcdr(V526))==Cnil){
2797          (V471->c.c_cdr)= base[4];          (V521->c.c_cdr)= base[4];
2798          goto T859;}          goto T859;}
2799          V475=MMcdr(V475)=MMcons(Cnil,Cnil);          V525=MMcdr(V525)=MMcons(Cnil,Cnil);
2800          goto T860;}          goto T860;}
2801          goto T859;          goto T859;
2802  T859:;  T859:;
2803          while(MMcdr(V471)!=Cnil)V471=MMcdr(V471);          while(MMcdr(V521)!=Cnil)V521=MMcdr(V521);
2804          if((V472=MMcdr(V472))==Cnil){          if((V522=MMcdr(V522))==Cnil){
2805          base[3]=base[3]->c.c_cdr;          base[3]=base[3]->c.c_cdr;
2806          V469= base[3];          V519= base[3];
2807          goto T855;}          goto T855;}
2808          goto T856;}          goto T856;}
2809          goto T855;          goto T855;
2810  T855:;  T855:;
2811          V468= (V464);          V518= (V514);
2812          V470= Cnil;          V520= Cnil;
2813          {register object V479;          {register object V529;
2814          object V480;          object V530;
2815          V479= (V468);          V529= (V518);
2816          V480= CMPcar((V479));          V530= CMPcar((V529));
2817          goto T868;          goto T868;
2818  T868:;  T868:;
2819          if(!(((V479))==Cnil)){          if(!(((V529))==Cnil)){
2820          goto T869;}          goto T869;}
2821          goto T864;          goto T864;
2822          goto T869;          goto T869;
2823  T869:;  T869:;
2824          {object V481;          {object V531;
2825          {register object x= (V480),V483= (V469);          {register object x= (V530),V533= (V519);
2826          while(V483!=Cnil)          while(V533!=Cnil)
2827          if(eql(x,V483->c.c_car->c.c_car) &&V483->c.c_car != Cnil){          if(eql(x,V533->c.c_car->c.c_car) &&V533->c.c_car != Cnil){
2828          V482= (V483->c.c_car);          V532= (V533->c.c_car);
2829          goto T875;          goto T875;
2830          }else V483=V483->c.c_cdr;          }else V533=V533->c.c_cdr;
2831          V482= Cnil;}          V532= Cnil;}
2832          goto T875;          goto T875;
2833  T875:;  T875:;
2834          V481= CMPcdr(V482);          V531= CMPcdr(V532);
2835          base[5]= (V481);          base[5]= (V531);
2836          base[6]= (V470);          base[6]= (V520);
2837          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2838          Ladjoin();          Ladjoin();
2839          vs_top=sup;          vs_top=sup;
2840          V470= vs_base[0];}          V520= vs_base[0];}
2841          V479= CMPcdr((V479));          V529= CMPcdr((V529));
2842          V480= CMPcar((V479));          V530= CMPcar((V529));
2843          goto T868;}          goto T868;}
2844          goto T864;          goto T864;
2845  T864:;  T864:;
2846          {register object V484;          {register object V534;
2847          register object V485;          register object V535;
2848          V484= (V467);          V534= (V517);
2849          V485= CMPcar((V484));          V535= CMPcar((V534));
2850          goto T888;          goto T888;
2851  T888:;  T888:;
2852          if(!(((V484))==Cnil)){          if(!(((V534))==Cnil)){
2853          goto T889;}          goto T889;}
2854          goto T884;          goto T884;
2855          goto T889;          goto T889;
2856  T889:;  T889:;
2857          {register object V486;          {register object V536;
2858          register object V487;          register object V537;
2859          object V488;          object V538;
2860          V486= CMPcar((V485));          V536= CMPcar((V535));
2861          {register object x= (V486),V490= (V469);          {register object x= (V536),V540= (V519);
2862          while(V490!=Cnil)          while(V540!=Cnil)
2863          if(eql(x,V490->c.c_car->c.c_car) &&V490->c.c_car != Cnil){          if(eql(x,V540->c.c_car->c.c_car) &&V540->c.c_car != Cnil){
2864          V489= (V490->c.c_car);          V539= (V540->c.c_car);
2865          goto T896;          goto T896;
2866          }else V490=V490->c.c_cdr;          }else V540=V540->c.c_cdr;
2867          V489= Cnil;}          V539= Cnil;}
2868          goto T896;          goto T896;
2869  T896:;  T896:;
2870          V487= CMPcdr(V489);          V537= CMPcdr(V539);
2871          V488= CMPcadr((V485));          V538= CMPcadr((V535));
2872          {register object x= (V487),V491= (V470);          {register object x= (V537),V541= (V520);
2873          while(V491!=Cnil)          while(V541!=Cnil)
2874          if(eql(x,V491->c.c_car)){          if(eql(x,V541->c.c_car)){
2875          goto T893;          goto T893;
2876          }else V491=V491->c.c_cdr;}          }else V541=V541->c.c_cdr;}
2877          V492= list(2,VV[114],(V488));          V542= list(2,VV[114],(V538));
2878          V493= list(2,/* INLINE-ARGS */V492,list(2,VV[145],(V486)));          V543= list(2,/* INLINE-ARGS */V542,list(2,VV[145],(V536)));
2879          (void)((*(LnkLI284))(/* INLINE-ARGS */V493,(V466)));          (void)((*(LnkLI284))(/* INLINE-ARGS */V543,(V516)));
2880          V468= make_cons(V486,(V468));          V518= make_cons(V536,(V518));
2881          V470= make_cons(V487,(V470));}          V520= make_cons(V537,(V520));}
2882          goto T893;          goto T893;
2883  T893:;  T893:;
2884          V484= CMPcdr((V484));          V534= CMPcdr((V534));
2885          V485= CMPcar((V484));          V535= CMPcar((V534));
2886          goto T888;}          goto T888;}
2887          goto T884;          goto T884;
2888  T884:;  T884:;
2889          if(((V465))==Cnil){          if(((V515))==Cnil){
2890          goto T909;}          goto T909;}
2891          V496= list(3,VV[146],(V463),(VFUN_NARGS=3,(*(LnkLI39))((V463),(V468),Cnil)));          V546 = (V513);
2892          V497= make_cons(/* INLINE-ARGS */V496,Cnil);          V547= list(3,VV[146],V546,(VFUN_NARGS=3,(*(LnkLI39))((V513),(V518),Cnil)));
2893          (void)((*(LnkLI284))(/* INLINE-ARGS */V497,(V466)));          V548= make_cons(/* INLINE-ARGS */V547,Cnil);
2894            (void)((*(LnkLI284))(/* INLINE-ARGS */V548,(V516)));
2895          goto T909;          goto T909;
2896  T909:;  T909:;
2897          (void)((*(LnkLI284))(VV[147],(V466)));          (void)((*(LnkLI284))(VV[147],(V516)));
2898          base[3]= CMPcar((V466));          base[3]= CMPcar((V516));
2899          base[4]= (V468);          base[4]= (V518);
2900          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2901          return;}          return;}
2902          }          }
# Line 2856  static void L50() Line 2907  static void L50()
2907  {register object *base=vs_base;  {register object *base=vs_base;
2908          register object *sup=base+VM47; VC47          register object *sup=base+VM47; VC47
2909          vs_check;          vs_check;
2910          {object V498;          {object V549;
2911          object V499;          object V550;
2912          object V500;          object V551;
2913          object V501;          object V552;
2914          check_arg(4);          check_arg(4);
2915          V498=(base[0]);          V549=(base[0]);
2916          V499=(base[1]);          V550=(base[1]);
2917          V500=(base[2]);          V551=(base[2]);
2918          V501=(base[3]);          V552=(base[3]);
2919          vs_top=sup;          vs_top=sup;
2920          goto TTL;          goto TTL;
2921  TTL:;  TTL:;
2922          {object V502;          {object V553;
2923          object V503;          object V554;
2924          object V504;          object V555;
2925          object V505;          object V556;
2926          object V506;          object V557;
2927          object V507;          object V558;
2928          object V508;          object V559;
2929          object V509;          object V560;
2930          V502= make_cons(Cnil,Cnil);          V553= make_cons(Cnil,Cnil);
2931          base[12]= (V498);          base[12]= (V549);
2932          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2933          (void) (*Lnk270)(Lclptr270);          (void) (*Lnk270)(Lclptr270);
2934          vs_top=sup;          vs_top=sup;
2935          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2936          goto T918;}          goto T918;}
2937          V503= VV[148];          V554= VV[148];
2938          goto T916;          goto T916;
2939          goto T918;          goto T918;
2940  T918:;  T918:;
2941          base[12]= (V498);          base[12]= (V549);
2942          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2943          (void) (*Lnk272)(Lclptr272);          (void) (*Lnk272)(Lclptr272);
2944          vs_top=sup;          vs_top=sup;
2945          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2946          goto T922;}          goto T922;}
2947          V503= VV[149];          V554= VV[149];
2948          goto T916;          goto T916;
2949          goto T922;          goto T922;
2950  T922:;  T922:;
2951          base[12]= (V498);          base[12]= (V549);
2952          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2953          (void) (*Lnk274)(Lclptr274);          (void) (*Lnk274)(Lclptr274);
2954          vs_top=sup;          vs_top=sup;
2955          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2956          goto T926;}          goto T926;}
2957          V503= VV[150];          V554= VV[150];
2958          goto T916;          goto T916;
2959          goto T926;          goto T926;
2960  T926:;  T926:;
# Line 2911  T926:; Line 2962  T926:;
2962          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2963          Lerror();          Lerror();
2964          vs_top=sup;          vs_top=sup;
2965          V503= vs_base[0];          V554= vs_base[0];
2966          goto T916;          goto T916;
2967  T916:;  T916:;
2968          base[12]= (V498);          base[12]= (V549);
2969          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2970          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk243)(Lclptr243);
2971          vs_top=sup;          vs_top=sup;
2972          V504= vs_base[0];          V555= vs_base[0];
2973          if(((V501))==Cnil){          if(((V552))==Cnil){
2974          goto T934;}          goto T934;}
2975          base[12]= ((V504))->v.v_self[12];          base[12]= ((V555))->v.v_self[12];
2976          base[13]= VV[152];          base[13]= VV[152];
2977          base[14]= (VV[153]->s.s_dbind);          base[14]= (VV[153]->s.s_dbind);
2978          vs_top=(vs_base=base+12)+3;          vs_top=(vs_base=base+12)+3;
2979          (void) (*Lnk285)();          (void) (*Lnk285)();
2980          vs_top=sup;          vs_top=sup;
2981          V505= vs_base[0];          V556= vs_base[0];
2982          goto T932;          goto T932;
2983          goto T934;          goto T934;
2984  T934:;  T934:;
2985          V505= Cnil;          V556= Cnil;
2986          goto T932;          goto T932;
2987  T932:;  T932:;
2988          base[12]= (V498);          base[12]= (V549);
2989          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2990          (void) (*Lnk282)(Lclptr282);          (void) (*Lnk282)(Lclptr282);
2991          vs_top=sup;          vs_top=sup;
2992          V506= vs_base[0];          V557= vs_base[0];
2993          base[13]=VV[286]->s.s_gfdef;          base[13]=VV[286]->s.s_gfdef;
2994          {object V510;          {object V561;
2995          object V511= (V506);          object V562= (V557);
2996          if(V511==Cnil){          if(V562==Cnil){
2997          V507= Cnil;          V558= Cnil;
2998          goto T941;}          goto T941;}
2999          base[12]=V510=MMcons(Cnil,Cnil);          base[12]=V561=MMcons(Cnil,Cnil);
3000          goto T942;          goto T942;
3001  T942:;  T942:;
3002          base[14]= (V511->c.c_car);          base[14]= (V562->c.c_car);
3003          vs_top=(vs_base=base+14)+1;          vs_top=(vs_base=base+14)+1;
3004          (void) (*Lnk286)(Lclptr286);          (void) (*Lnk286)(Lclptr286);
3005          vs_top=sup;          vs_top=sup;
3006          (V510->c.c_car)= vs_base[0];          (V561->c.c_car)= vs_base[0];
3007          if((V511=MMcdr(V511))==Cnil){          if((V562=MMcdr(V562))==Cnil){
3008          V507= base[12];          V558= base[12];
3009          goto T941;}          goto T941;}
3010          V510=MMcdr(V510)=MMcons(Cnil,Cnil);          V561=MMcdr(V561)=MMcons(Cnil,Cnil);
3011          goto T942;}          goto T942;}
3012          goto T941;          goto T941;
3013  T941:;  T941:;
3014          {object V512;          {object V563;
3015          object V513= (V506);          object V564= (V557);
3016          if(V513==Cnil){          if(V564==Cnil){
3017          V508= Cnil;          V559= Cnil;
3018          goto T945;}          goto T945;}
3019          base[12]=V512=MMcons(Cnil,Cnil);          base[12]=V563=MMcons(Cnil,Cnil);
3020          goto T946;          goto T946;
3021  T946:;  T946:;
3022          {object V515;          {object V566;
3023          V515= VV[154];          V566= VV[154];
3024          {register object V516;          {register object V567;
3025          object V517;          object V568;
3026          base[15]= (V513->c.c_car);          base[15]= (V564->c.c_car);
3027          vs_top=(vs_base=base+15)+1;          vs_top=(vs_base=base+15)+1;
3028          (void) (*Lnk283)(Lclptr283);          (void) (*Lnk283)(Lclptr283);
3029          vs_top=sup;          vs_top=sup;
3030          V516= vs_base[0];          V567= vs_base[0];
3031          V517= CMPcar((V516));          V568= CMPcar((V567));
3032          goto T953;          goto T953;
3033  T953:;  T953:;
3034          if(!(((V516))==Cnil)){          if(!(((V567))==Cnil)){
3035          goto T954;}          goto T954;}
3036          goto T948;          goto T948;
3037          goto T954;          goto T954;
3038  T954:;  T954:;
3039          {object V518;          {object V569;
3040          base[15]= (V517);          base[15]= (V568);
3041          base[16]= (V499);          base[16]= (V550);
3042          vs_top=(vs_base=base+15)+2;          vs_top=(vs_base=base+15)+2;
3043          (void) (*Lnk287)();          (void) (*Lnk287)();
3044          vs_top=sup;          vs_top=sup;
3045          V518= vs_base[0];          V569= vs_base[0];
3046          if(((V518))==Cnil){          if(((V569))==Cnil){
3047          goto T958;}          goto T958;}
3048          V515= (number_compare((V515),(V518))<=0?((V515)):(V518));}          V566= (number_compare((V566),(V569))<=0?((V566)):(V569));}
3049          goto T958;          goto T958;
3050  T958:;  T958:;
3051          V516= CMPcdr((V516));          V567= CMPcdr((V567));
3052          V517= CMPcar((V516));          V568= CMPcar((V567));
3053          goto T953;}          goto T953;}
3054          goto T948;          goto T948;
3055  T948:;  T948:;
3056          (V512->c.c_car)= make_cons((V513->c.c_car),(V515));}          (V563->c.c_car)= make_cons((V564->c.c_car),(V566));}
3057          if((V513=MMcdr(V513))==Cnil){          if((V564=MMcdr(V564))==Cnil){
3058          V508= base[12];          V559= base[12];
3059          goto T945;}          goto T945;}
3060          V512=MMcdr(V512)=MMcons(Cnil,Cnil);          V563=MMcdr(V563)=MMcons(Cnil,Cnil);
3061          goto T946;}          goto T946;}
3062          goto T945;          goto T945;
3063  T945:;  T945:;
3064          base[12]= (V508);          base[12]= (V559);
3065          base[13]= (VV[288]->s.s_gfdef);          base[13]= (VV[288]->s.s_gfdef);
3066          base[14]= VV[155];          base[14]= VV[155];
3067          base[15]= (VV[189]->s.s_gfdef);          base[15]= (VV[189]->s.s_gfdef);
3068          vs_top=(vs_base=base+12)+4;          vs_top=(vs_base=base+12)+4;
3069          (void) (*Lnk289)();          (void) (*Lnk289)();
3070          vs_top=sup;          vs_top=sup;
3071          V509= vs_base[0];          V560= vs_base[0];
3072          {long V519;          {long V570;
3073          V519= 0;          V570= 0;
3074          {register object V520;          {register object V571;
3075          register object V521;          register object V572;
3076          V520= (V509);          V571= (V560);
3077          V521= CMPcar((V520));          V572= CMPcar((V571));
3078          goto T980;          goto T980;
3079  T980:;  T980:;
3080          if(!(((V520))==Cnil)){          if(!(((V571))==Cnil)){
3081          goto T981;}          goto T981;}
3082          goto T975;          goto T975;
3083          goto T981;          goto T981;
3084  T981:;  T981:;
3085          {object V522;          {object V573;
3086          object V523;          object V574;
3087          register long V524;          register long V575;
3088          V522= CMPcar((V521));          V573= CMPcar((V572));
3089          base[15]= (V522);          base[15]= (V573);
3090          vs_top=(vs_base=base+15)+1;          vs_top=(vs_base=base+15)+1;
3091          (void) (*Lnk286)(Lclptr286);          (void) (*Lnk286)(Lclptr286);
3092          vs_top=sup;          vs_top=sup;
3093          V523= vs_base[0];          V574= vs_base[0];
3094          V525= CMPcdr((V521));          V576= CMPcdr((V572));
3095          V526 = CMPmake_fixnum(V519);          V577 = CMPmake_fixnum(V570);
3096          V527= number_minus(/* INLINE-ARGS */V525,V526);          V578= number_minus(/* INLINE-ARGS */V576,V577);
3097          V524= fix(one_plus(/* INLINE-ARGS */V527));          V575= fix(one_plus(/* INLINE-ARGS */V578));
3098          if(eql(CMPcdr((V521)),VV[154])){          if(eql(CMPcdr((V572)),VV[154])){
3099          goto T985;}          goto T985;}
3100          {object V528;          {object V579;
3101          base[16]= (V523);          base[16]= (V574);
3102          base[17]= (V507);          base[17]= (V558);
3103          vs_top=(vs_base=base+16)+2;          vs_top=(vs_base=base+16)+2;
3104          (void) (*Lnk287)();          (void) (*Lnk287)();
3105          vs_top=sup;          vs_top=sup;
3106          V529= vs_base[0];          V580= vs_base[0];
3107          V528= one_plus(V529);          V579= one_plus(V580);
3108          if(!((V524)>0)){          if(!((V575)>0)){
3109          goto T999;}          goto T999;}
3110          V531 = CMPmake_fixnum((long)(2)*(V524));          V582 = CMPmake_fixnum((long)(2)*(V575));
3111          V532= list(2,VV[156],V531);          V583= list(2,VV[156],V582);
3112          V530= make_cons(/* INLINE-ARGS */V532,Cnil);          V581= make_cons(/* INLINE-ARGS */V583,Cnil);
3113          goto T997;          goto T997;
3114          goto T999;          goto T999;
3115  T999:;  T999:;
3116          V530= Cnil;          V581= Cnil;
3117          goto T997;          goto T997;
3118  T997:;  T997:;
3119          V533= list(3,VV[157],(V528),(V522));          V584= list(3,VV[157],(V579),(V573));
3120          V534= make_cons(/* INLINE-ARGS */V533,Cnil);          V585= make_cons(/* INLINE-ARGS */V584,Cnil);
3121          V535= append(V530,/* INLINE-ARGS */V534);          V586= append(V581,/* INLINE-ARGS */V585);
3122          (void)((*(LnkLI284))(/* INLINE-ARGS */V535,(V502)));}          (void)((*(LnkLI284))(/* INLINE-ARGS */V586,(V553)));}
3123          V519= (long)(V519)+(V524);}          V570= (long)(V570)+(V575);}
3124          goto T985;          goto T985;
3125  T985:;  T985:;
3126          V520= CMPcdr((V520));          V571= CMPcdr((V571));
3127          V521= CMPcar((V520));          V572= CMPcar((V571));
3128          goto T980;}}          goto T980;}}
3129          goto T975;          goto T975;
3130  T975:;  T975:;
3131          {register object V536;          {register object V587;
3132          object V537;          object V588;
3133          V536= (V509);          V587= (V560);
3134          V537= CMPcar((V536));          V588= CMPcar((V587));
3135          goto T1011;          goto T1011;
3136  T1011:;  T1011:;
3137          if(!(((V536))==Cnil)){          if(!(((V587))==Cnil)){
3138          goto T1012;}          goto T1012;}
3139          goto T1007;          goto T1007;
3140          goto T1012;          goto T1012;
3141  T1012:;  T1012:;
3142          {register object V538;          {register object V589;
3143          object V539;          object V590;
3144          V538= CMPcar((V537));          V589= CMPcar((V588));
3145          base[15]= (V538);          base[15]= (V589);
3146          vs_top=(vs_base=base+15)+1;          vs_top=(vs_base=base+15)+1;
3147          (void) (*Lnk286)(Lclptr286);          (void) (*Lnk286)(Lclptr286);
3148          vs_top=sup;          vs_top=sup;
3149          V539= vs_base[0];          V590= vs_base[0];
3150          if(!(eql(CMPcdr((V537)),VV[154]))){          if(!(eql(CMPcdr((V588)),VV[154]))){
3151          goto T1016;}          goto T1016;}
3152          if(((V500))==(Ct)){          if(((V551))==(Ct)){
3153          goto T1020;}          goto T1020;}
3154          {register object x= (V539),V540= (V500);          {register object x= (V590),V591= (V551);
3155          while(V540!=Cnil)          while(V591!=Cnil)
3156          if(eql(x,V540->c.c_car)){          if(eql(x,V591->c.c_car)){
3157          goto T1025;          goto T1025;
3158          }else V540=V540->c.c_cdr;          }else V591=V591->c.c_cdr;
3159          goto T1016;}          goto T1016;}
3160          goto T1025;          goto T1025;
3161  T1025:;  T1025:;
3162          goto T1020;          goto T1020;
3163  T1020:;  T1020:;
3164          {object V541;          {object V592;
3165          object V542;          object V593;
3166          object V543;          object V594;
3167          register object V544;          register object V595;
3168          register object V545;          register object V596;
3169          base[20]= (V538);          base[20]= (V589);
3170          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3171          (void) (*Lnk290)(Lclptr290);          (void) (*Lnk290)(Lclptr290);
3172          vs_top=sup;          vs_top=sup;
3173          V541= vs_base[0];          V592= vs_base[0];
3174          base[20]= (V538);          base[20]= (V589);
3175          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3176          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
3177          vs_top=sup;          vs_top=sup;
3178          V542= vs_base[0];          V593= vs_base[0];
3179          if(((V503))==(VV[148])){          if(((V554))==(VV[148])){
3180          goto T1032;}          goto T1032;}
3181          base[20]= (V538);          base[20]= (V589);
3182          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3183          (void) (*Lnk292)(Lclptr292);          (void) (*Lnk292)(Lclptr292);
3184          vs_top=sup;          vs_top=sup;
3185          V543= vs_base[0];          V594= vs_base[0];
3186          goto T1030;          goto T1030;
3187          goto T1032;          goto T1032;
3188  T1032:;  T1032:;
3189          V543= Cnil;          V594= Cnil;
3190          goto T1030;          goto T1030;
3191  T1030:;  T1030:;
3192          base[20]= (V539);          base[20]= (V590);
3193          base[21]= (V507);          base[21]= (V558);
3194          vs_top=(vs_base=base+20)+2;          vs_top=(vs_base=base+20)+2;
3195          (void) (*Lnk287)();          (void) (*Lnk287)();
3196          vs_top=sup;          vs_top=sup;
3197          V546= vs_base[0];          V597= vs_base[0];
3198          V544= one_plus(V546);          V595= one_plus(V597);
3199          if(((V542))!=Cnil){          if(((V593))!=Cnil){
3200          goto T1041;}          goto T1041;}
3201          V545= Cnil;          V596= Cnil;
3202          goto T1039;          goto T1039;
3203          goto T1041;          goto T1041;
3204  T1041:;  T1041:;
3205          base[20]= (V541);          base[20]= (V592);
3206          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3207          Lconstantp();          Lconstantp();
3208          vs_top=sup;          vs_top=sup;
3209          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3210          goto T1044;}          goto T1044;}
3211          {object V547;          {object V598;
3212          V547= (          V598= (
3213          (type_of((V542)) == t_sfun ?(*(((V542))->sfn.sfn_self)):          (type_of((V593)) == t_sfun ?(*(((V593))->sfn.sfn_self)):
3214          (fcall.argd=0,type_of((V542))==t_vfun) ?          (fcall.argd=0,type_of((V593))==t_vfun) ?
3215          (*(((V542))->sfn.sfn_self)):          (*(((V593))->sfn.sfn_self)):
3216          (fcall.fun=((V542)),fcalln))());          (fcall.fun=((V593)),fcalln))());
3217          if(((V501))==Cnil){          if(((V552))==Cnil){
3218          goto T1049;}          goto T1049;}
3219          if(!(type_of((V543))==t_fixnum||type_of((V543))==t_bignum)){          if(!(type_of((V594))==t_fixnum||type_of((V594))==t_bignum)){
3220          goto T1049;}          goto T1049;}
3221          (void)((((V505))->v.v_self[fix((V543))]=((V547))));          (void)((((V556))->v.v_self[fix((V594))]=((V598))));
3222          V545= Cnil;          V596= Cnil;
3223          goto T1039;          goto T1039;
3224          goto T1049;          goto T1049;
3225  T1049:;  T1049:;
3226          V548= list(2,VV[158],(V547));          V599= list(2,VV[158],(V598));
3227          V545= list(2,/* INLINE-ARGS */V548,list(3,VV[157],(V544),(V538)));          V596= list(2,/* INLINE-ARGS */V599,list(3,VV[157],(V595),(V589)));
3228          goto T1039;}          goto T1039;}
3229          goto T1044;          goto T1044;
3230  T1044:;  T1044:;
3231          base[20]= (V538);          base[20]= (V589);
3232          vs_top=(vs_base=base+20)+1;          vs_top=(vs_base=base+20)+1;
3233          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
3234          vs_top=sup;          vs_top=sup;
3235          V549= vs_base[0];          V600= vs_base[0];
3236          V550= list(2,VV[114],V549);          V601= list(2,VV[114],V600);
3237          V545= list(2,/* INLINE-ARGS */V550,list(3,VV[157],(V544),(V538)));          V596= list(2,/* INLINE-ARGS */V601,list(3,VV[157],(V595),(V589)));
3238          goto T1039;          goto T1039;
3239  T1039:;  T1039:;
3240          if(((V501))!=Cnil){          if(((V552))!=Cnil){
3241          goto T1058;}          goto T1058;}
3242          if(((V545))==Cnil){          if(((V596))==Cnil){
3243          goto T1058;}          goto T1058;}
3244          V552 = CMPmake_fixnum((long)length((V545)));          V603 = CMPmake_fixnum((long)length((V596)));
3245          V553= list(4,VV[159],(V544),(V538),V552);          V604= list(4,VV[159],(V595),(V589),V603);
3246          V551= make_cons(/* INLINE-ARGS */V553,Cnil);          V602= make_cons(/* INLINE-ARGS */V604,Cnil);
3247          goto T1056;          goto T1056;
3248          goto T1058;          goto T1058;
3249  T1058:;  T1058:;
3250          V551= Cnil;          V602= Cnil;
3251          goto T1056;          goto T1056;
3252  T1056:;  T1056:;
3253          V554= append(V551,(V545));          V605 = (V596);
3254          (void)((*(LnkLI284))(/* INLINE-ARGS */V554,(V502)));}}          V606= append(V602,V605);
3255            (void)((*(LnkLI284))(/* INLINE-ARGS */V606,(V553)));}}
3256          goto T1016;          goto T1016;
3257  T1016:;  T1016:;
3258          V536= CMPcdr((V536));          V587= CMPcdr((V587));
3259          V537= CMPcar((V536));          V588= CMPcar((V587));
3260          goto T1011;}          goto T1011;}
3261          goto T1007;          goto T1007;
3262  T1007:;  T1007:;
3263          base[12]= CMPcar((V502));          base[12]= CMPcar((V553));
3264          base[13]= (V505);          base[13]= (V556);
3265          vs_top=(vs_base=base+12)+2;          vs_top=(vs_base=base+12)+2;
3266          return;}          return;}
3267          }          }
3268  }  }
3269  /*      local entry for function GET-PV-CELL-FOR-CLASS  */  /*      local entry for function GET-PV-CELL-FOR-CLASS  */
3270    
3271  static object LI51(V556)  static object LI51(V608)
3272    
3273  register object V556;  register object V608;
3274  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3275          goto TTL;          goto TTL;
3276  TTL:;  TTL:;
3277          {object V557;          {object V609;
3278          object V558;          object V610;
3279          register object V559;          register object V611;
3280          base[4]=VV[286]->s.s_gfdef;          base[4]=VV[286]->s.s_gfdef;
3281          base[5]= (V556);          base[5]= (V608);
3282          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3283          (void) (*Lnk282)(Lclptr282);          (void) (*Lnk282)(Lclptr282);
3284          vs_top=sup;          vs_top=sup;
3285          V562= vs_base[0];          V614= vs_base[0];
3286          {object V560;          {object V612;
3287          object V561= V562;          object V613= V614;
3288          if(V561==Cnil){          if(V613==Cnil){
3289          V557= Cnil;          V609= Cnil;
3290          goto T1069;}          goto T1069;}
3291          base[3]=V560=MMcons(Cnil,Cnil);          base[3]=V612=MMcons(Cnil,Cnil);
3292          goto T1070;          goto T1070;
3293  T1070:;  T1070:;
3294          base[5]= (V561->c.c_car);          base[5]= (V613->c.c_car);
3295          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3296          (void) (*Lnk286)(Lclptr286);          (void) (*Lnk286)(Lclptr286);
3297          vs_top=sup;          vs_top=sup;
3298          (V560->c.c_car)= vs_base[0];          (V612->c.c_car)= vs_base[0];
3299          if((V561=MMcdr(V561))==Cnil){          if((V613=MMcdr(V613))==Cnil){
3300          V557= base[3];          V609= base[3];
3301          goto T1069;}          goto T1069;}
3302          V560=MMcdr(V560)=MMcons(Cnil,Cnil);          V612=MMcdr(V612)=MMcons(Cnil,Cnil);
3303          goto T1070;}          goto T1070;}
3304          goto T1069;          goto T1069;
3305  T1069:;  T1069:;
3306          V563= make_cons(Cnil,(V557));          V615= make_cons(Cnil,(V609));
3307          V558= make_cons(/* INLINE-ARGS */V563,Cnil);          V610= make_cons(/* INLINE-ARGS */V615,Cnil);
3308          base[3]= (V556);          base[3]= (V608);
3309          base[4]= (VV[160]->s.s_dbind);          base[4]= (VV[160]->s.s_dbind);
3310          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3311          Lgethash();          Lgethash();
3312          vs_top=sup;          vs_top=sup;
3313          V559= vs_base[0];          V611= vs_base[0];
3314          if(((V559))==Cnil){          if(((V611))==Cnil){
3315          goto T1080;}          goto T1080;}
3316          if(equal((V558),STREF(object,(V559),8))){          if(equal((V610),STREF(object,(V611),8))){
3317          goto T1079;}          goto T1079;}
3318          goto T1080;          goto T1080;
3319  T1080:;  T1080:;
3320          V559= (VFUN_NARGS=2,(*(LnkLI293))(VV[162],(V558)));          V611= (VFUN_NARGS=2,(*(LnkLI293))(VV[162],(V610)));
3321          {object V565;          {object V617;
3322          V565= (VV[160]->s.s_dbind);          V617= (VV[160]->s.s_dbind);
3323          base[3]= V556;          base[3]= V608;
3324          base[4]= (V565);          base[4]= (V617);
3325          base[5]= V559;          base[5]= V611;
3326          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3327          siLhash_set();          siLhash_set();
3328          vs_top=sup;}          vs_top=sup;}
3329          goto T1079;          goto T1079;
3330  T1079:;  T1079:;
3331          base[3]= (V556);          V619 = (V611);
3332            base[3]= (V608);
3333          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3334          (void) (*Lnk243)(Lclptr243);          (void) (*Lnk243)(Lclptr243);
3335          vs_top=sup;          vs_top=sup;
3336          V567= vs_base[0];          V620= vs_base[0];
3337          {object V568 = (*(LnkLI294))((V559),V567);          {object V621 = (*(LnkLI294))(V619,V620);
3338          VMR48(V568)}}          VMR48(V621)}}
3339          base[0]=base[0];          base[0]=base[0];
3340          return Cnil;          return Cnil;
3341  }  }
# Line 3292  static void L52() Line 3345  static void L52()
3345  {register object *base=vs_base;  {register object *base=vs_base;
3346          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
3347          vs_check;          vs_check;
3348          {object V569;          {object V622;
3349          object V570;          object V623;
3350          object V571;          object V624;
3351          object V572;          object V625;
3352          check_arg(4);          check_arg(4);
3353          V569=(base[0]);          V622=(base[0]);
3354          V570=(base[1]);          V623=(base[1]);
3355          V571=(base[2]);          V624=(base[2]);
3356          V572=(base[3]);          V625=(base[3]);
3357          vs_top=sup;          vs_top=sup;
3358          goto TTL;          goto TTL;
3359  TTL:;  TTL:;
3360          {object V573;          {object V626;
3361          object V574;          object V627;
3362          register object V575;          register object V628;
3363          V573= (*(LnkLI295))((V571));          V626= (*(LnkLI295))((V624));
3364          V574= STREF(object,(V570),0);          V627= STREF(object,(V623),0);
3365          base[7]= CMPcar((V574));          V629 = (V622);
3366            base[7]= CMPcar((V627));
3367          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3368          (void) (*Lnk229)(Lclptr229);          (void) (*Lnk229)(Lclptr229);
3369          vs_top=sup;          vs_top=sup;
3370          V576= vs_base[0];          V630= vs_base[0];
3371          V575= listA(3,(V569),V576,CMPcdr((V574)));          V628= listA(3,V629,V630,CMPcdr((V627)));
3372          if(((VV[163]->s.s_dbind))!=Cnil){          if(((VV[163]->s.s_dbind))!=Cnil){
3373          goto T1097;}          goto T1097;}
3374          base[7]= (V575);          base[7]= (V628);
3375          base[8]= (VV[164]->s.s_dbind);          base[8]= (VV[164]->s.s_dbind);
3376          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
3377          Lgethash();          Lgethash();
# Line 3326  TTL:; Line 3380  TTL:;
3380          goto T1098;}          goto T1098;}
3381          goto T1097;          goto T1097;
3382  T1097:;  T1097:;
3383          {object V577;          {object V631;
3384          object V578;          object V632;
3385          base[7]= (V573);          base[7]= (V626);
3386          base[8]= (V572);          base[8]= (V625);
3387          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
3388          (void) (*Lnk296)();          (void) (*Lnk296)();
3389          if(vs_base>=vs_top){vs_top=sup;goto T1107;}          if(vs_base>=vs_top){vs_top=sup;goto T1107;}
3390          V577= vs_base[0];          V631= vs_base[0];
3391          vs_base++;          vs_base++;
3392          if(vs_base>=vs_top){vs_top=sup;goto T1108;}          if(vs_base>=vs_top){vs_top=sup;goto T1108;}
3393          V578= vs_base[0];          V632= vs_base[0];
3394          vs_top=sup;          vs_top=sup;
3395          goto T1109;          goto T1109;
3396          goto T1107;          goto T1107;
3397  T1107:;  T1107:;
3398          V577= Cnil;          V631= Cnil;
3399          goto T1108;          goto T1108;
3400  T1108:;  T1108:;
3401          V578= Cnil;          V632= Cnil;
3402          goto T1109;          goto T1109;
3403  T1109:;  T1109:;
3404          {register object V579;          {register object V633;
3405          {register object x= (V577),V580= (VV[165]->s.s_dbind);          {register object x= (V631),V634= (VV[165]->s.s_dbind);
3406          while(V580!=Cnil)          while(V634!=Cnil)
3407          if(equal(x,V580->c.c_car->c.c_car) &&V580->c.c_car != Cnil){          if(equal(x,V634->c.c_car->c.c_car) &&V634->c.c_car != Cnil){
3408          V579= (V580->c.c_car);          V633= (V634->c.c_car);
3409          goto T1110;          goto T1110;
3410          }else V580=V580->c.c_cdr;          }else V634=V634->c.c_cdr;
3411          V579= Cnil;}          V633= Cnil;}
3412          goto T1110;          goto T1110;
3413  T1110:;  T1110:;
3414          {object V582;          {object V636;
3415          V582= (VV[164]->s.s_dbind);          V636= (VV[164]->s.s_dbind);
3416          base[7]= V575;          base[7]= V628;
3417          base[8]= (V582);          base[8]= (V636);
3418          base[9]= Ct;          base[9]= Ct;
3419          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
3420          siLhash_set();          siLhash_set();
3421          vs_top=sup;}          vs_top=sup;}
3422          if(((V579))==Cnil){          if(((V633))==Cnil){
3423          goto T1118;}          goto T1118;}
3424          {object V585;          {object V639;
3425          base[8]= make_cons((V575),Cnil);          base[8]= make_cons((V628),Cnil);
3426          base[9]= CMPcdddr((V579));          base[9]= CMPcdddr((V633));
3427          base[10]= VV[12];          base[10]= VV[12];
3428          base[11]= (VV[225]->s.s_gfdef);          base[11]= (VV[225]->s.s_gfdef);
3429          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
3430          (void) (*Lnk297)();          (void) (*Lnk297)();
3431          vs_top=sup;          vs_top=sup;
3432          V585= vs_base[0];          V639= vs_base[0];
3433          (CMPcddr(V579))->c.c_cdr = (V585);          (CMPcddr(V633))->c.c_cdr = (V639);
3434          (void)(CMPcddr(V579));          (void)(CMPcddr(V633));
3435          goto T1116;}          goto T1116;}
3436          goto T1118;          goto T1118;
3437  T1118:;  T1118:;
3438          V579= listA(4,(V577),Cnil,Cnil,make_cons((V575),Cnil));{object V586;          V633= listA(4,(V631),Cnil,Cnil,make_cons((V628),Cnil));{object V640;
3439          V586= (VV[165]->s.s_dbind);          V640= (VV[165]->s.s_dbind);
3440          V587= make_cons((V579),Cnil);          V641= make_cons((V633),Cnil);
3441          (VV[165]->s.s_dbind)= nconc(V586,/* INLINE-ARGS */V587);}          (VV[165]->s.s_dbind)= nconc(V640,/* INLINE-ARGS */V641);}
3442          goto T1116;          goto T1116;
3443  T1116:;  T1116:;
3444          if(((VV[166]->s.s_dbind))!=Cnil){          if(((VV[166]->s.s_dbind))!=Cnil){
3445          goto T1129;}          goto T1129;}
3446          if((CMPcadr((V579)))!=Cnil){          if((CMPcadr((V633)))!=Cnil){
3447          goto T1129;}          goto T1129;}
3448          {object V589;          {object V643;
3449          base[8]= CMPcar((V579));          base[8]= CMPcar((V633));
3450          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
3451          (void) (*Lnk298)();          (void) (*Lnk298)();
3452          vs_top=sup;          vs_top=sup;
3453          V589= vs_base[0];          V643= vs_base[0];
3454          (CMPcdr(V579))->c.c_car = (V589);          (CMPcdr(V633))->c.c_car = (V643);
3455          (void)(CMPcdr(V579));}          (void)(CMPcdr(V633));}
3456          goto T1129;          goto T1129;
3457  T1129:;  T1129:;
3458          if((CMPcadr((V579)))==Cnil){          if((CMPcadr((V633)))==Cnil){
3459          goto T1138;}          goto T1138;}
3460          base[7]= CMPcadr((V579));          base[7]= CMPcadr((V633));
3461          {object V590;          {object V644;
3462          V590= (V578);          V644= (V632);
3463           vs_top=base+8;           vs_top=base+8;
3464           while(V590!=Cnil)           while(V644!=Cnil)
3465           {vs_push((V590)->c.c_car);V590=(V590)->c.c_cdr;}           {vs_push((V644)->c.c_car);V644=(V644)->c.c_cdr;}
3466          vs_base=base+8;}          vs_base=base+8;}
3467          {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))
3468                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 3417  T1129:; Line 3471  T1129:;
3471          return;          return;
3472          goto T1138;          goto T1138;
3473  T1138:;  T1138:;
3474          base[7]= list(3,VV[130],(V573),(V572));          base[7]= list(3,VV[130],(V626),(V625));
3475          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3476          return;}}          return;}}
3477          goto T1098;          goto T1098;
3478  T1098:;  T1098:;
3479          base[7]= list(3,VV[130],(V573),(V572));          base[7]= list(3,VV[130],(V626),(V625));
3480          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3481          return;}          return;}
3482          }          }
3483  }  }
3484  /*      local entry for function LOAD-PRECOMPILED-IIS-ENTRY     */  /*      local entry for function LOAD-PRECOMPILED-IIS-ENTRY     */
3485    
3486  static object LI53(V595,V596,V597,V598)  static object LI53(V649,V650,V651,V652)
3487    
3488  object V595;object V596;object V597;object V598;  object V649;object V650;object V651;object V652;
3489  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
3490          goto TTL;          goto TTL;
3491  TTL:;  TTL:;
3492          {object V599;          {object V653;
3493          {register object x= (V595),V600= (VV[165]->s.s_dbind);          {register object x= (V649),V654= (VV[165]->s.s_dbind);
3494          while(V600!=Cnil)          while(V654!=Cnil)
3495          if(equal(x,V600->c.c_car->c.c_car) &&V600->c.c_car != Cnil){          if(equal(x,V654->c.c_car->c.c_car) &&V654->c.c_car != Cnil){
3496          V599= (V600->c.c_car);          V653= (V654->c.c_car);
3497          goto T1142;          goto T1142;
3498          }else V600=V600->c.c_cdr;          }else V654=V654->c.c_cdr;
3499          V599= Cnil;}          V653= Cnil;}
3500          goto T1142;          goto T1142;
3501  T1142:;  T1142:;
3502          if(((V599))!=Cnil){          if(((V653))!=Cnil){
3503          goto T1143;}          goto T1143;}
3504          V599= listA(4,(V595),Cnil,Cnil,Cnil);{object V601;          V653= listA(4,(V649),Cnil,Cnil,Cnil);{object V655;
3505          V601= (VV[165]->s.s_dbind);          V655= (VV[165]->s.s_dbind);
3506          V602= make_cons((V599),Cnil);          V656= make_cons((V653),Cnil);
3507          (VV[165]->s.s_dbind)= nconc(V601,/* INLINE-ARGS */V602);}          (VV[165]->s.s_dbind)= nconc(V655,/* INLINE-ARGS */V656);}
3508          goto T1143;          goto T1143;
3509  T1143:;  T1143:;
3510          (CMPcdr(V599))->c.c_car = V596;          (CMPcdr(V653))->c.c_car = V650;
3511          (void)(CMPcdr(V599));          (void)(CMPcdr(V653));
3512          (CMPcddr(V599))->c.c_car = V597;          (CMPcddr(V653))->c.c_car = V651;
3513          (void)(CMPcddr(V599));          (void)(CMPcddr(V653));
3514          {register object V607;          {register object V661;
3515          register object V608;          register object V662;
3516          V607= (V598);          V661= (V652);
3517          V608= CMPcar((V607));          V662= CMPcar((V661));
3518          goto T1157;          goto T1157;
3519  T1157:;  T1157:;
3520          if(!(((V607))==Cnil)){          if(!(((V661))==Cnil)){
3521          goto T1158;}          goto T1158;}
3522          goto T1153;          goto T1153;
3523          goto T1158;          goto T1158;
3524  T1158:;  T1158:;
3525          {register object V609;          {register object V663;
3526          register object V610;          register object V664;
3527          register object V611;          register object V665;
3528          V609= (V608);          V663= (V662);
3529          V610= (VV[164]->s.s_dbind);          V664= (VV[164]->s.s_dbind);
3530          V611= Ct;          V665= Ct;
3531          base[1]= (V609);          base[1]= (V663);
3532          base[2]= (V610);          base[2]= (V664);
3533          base[3]= (V611);          base[3]= (V665);
3534          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3535          siLhash_set();          siLhash_set();
3536          vs_top=sup;}          vs_top=sup;}
3537          V607= CMPcdr((V607));          V661= CMPcdr((V661));
3538          V608= CMPcar((V607));          V662= CMPcar((V661));
3539          goto T1157;}          goto T1157;}
3540          goto T1153;          goto T1153;
3541  T1153:;  T1153:;
3542          {object V613;          {object V667;
3543          base[1]= (V598);          base[1]= (V652);
3544          base[2]= CMPcdddr((V599));          base[2]= CMPcdddr((V653));
3545          base[3]= VV[12];          base[3]= VV[12];
3546          base[4]= (VV[225]->s.s_gfdef);          base[4]= (VV[225]->s.s_gfdef);
3547          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
3548          (void) (*Lnk297)();          (void) (*Lnk297)();
3549          vs_top=sup;          vs_top=sup;
3550          V613= vs_base[0];          V667= vs_base[0];
3551          (CMPcddr(V599))->c.c_cdr = (V613);          (CMPcddr(V653))->c.c_cdr = (V667);
3552          (void)(CMPcddr(V599));          (void)(CMPcddr(V653));
3553          {object V614 = (V613);          {object V668 = (V667);
3554          VMR50(V614)}}}          VMR50(V668)}}}
3555          base[0]=base[0];          base[0]=base[0];
3556          return Cnil;          return Cnil;
3557  }  }
# Line 3509  static void L54() Line 3563  static void L54()
3563          vs_check;          vs_check;
3564          check_arg(2);          check_arg(2);
3565          vs_top=sup;          vs_top=sup;
3566          {object V615=base[0]->c.c_cdr;          {object V669=base[0]->c.c_cdr;
3567          if(endp(V615)){          if(endp(V669)){
3568          base[2]= Cnil;          base[2]= Cnil;
3569          } else {          } else {
3570          base[2]= (V615->c.c_car);          base[2]= (V669->c.c_car);
3571          V615=V615->c.c_cdr;}          V669=V669->c.c_cdr;}
3572          if(!endp(V615))invalid_macro_call();}          if(!endp(V669))invalid_macro_call();}
3573          {register object V616;          {register object V670;
3574          V616= small_fixnum(-1);          V670= small_fixnum(-1);
3575          {register object V618;          {register object V672;
3576          register object V619;          register object V673;
3577          V618= Cnil;          V672= Cnil;
3578          V619= Cnil;          V673= Cnil;
3579          {register object V620;          {register object V674;
3580          register object V621;          register object V675;
3581          V620= (VV[165]->s.s_dbind);          V674= (VV[165]->s.s_dbind);
3582          V621= CMPcar((V620));          V675= CMPcar((V674));
3583          goto T1188;          goto T1188;
3584  T1188:;  T1188:;
3585          if(!(((V620))==Cnil)){          if(!(((V674))==Cnil)){
3586          goto T1189;}          goto T1189;}
3587          goto T1184;          goto T1184;
3588          goto T1189;          goto T1189;
3589  T1189:;  T1189:;
3590          if((CMPcaddr((V621)))==Cnil){          if((CMPcaddr((V675)))==Cnil){
3591          goto T1194;}          goto T1194;}
3592          if(!((CMPcaddr((V621)))==(base[2]))){          if(!((CMPcaddr((V675)))==(base[2]))){
3593          goto T1193;}          goto T1193;}
3594          goto T1194;          goto T1194;
3595  T1194:;  T1194:;
3596          if((base[2])==Cnil){          if((base[2])==Cnil){
3597          goto T1198;}          goto T1198;}
3598          {register object V622;          {register object V676;
3599          register object V623;          register object V677;
3600          V622= (V621);          V676= (V675);
3601          V623= base[2];          V677= base[2];
3602          (CMPcddr((V622)))->c.c_car = (V623);          (CMPcddr((V676)))->c.c_car = (V677);
3603          (void)(CMPcddr((V622)));}          (void)(CMPcddr((V676)));}
3604          goto T1198;          goto T1198;
3605  T1198:;  T1198:;
3606          {register object V624;          {register object V678;
3607          V616= number_plus((V616),small_fixnum(1));          V679 = base[2];
3608          V625= list(3,VV[167],base[2],(V616));          V670= number_plus((V670),small_fixnum(1));
3609          V626= list(2,VV[4],CMPcar((V621)));          V680 = (V670);
3610          V627= list(2,VV[170],CMPcar((V621)));          V681= list(3,VV[167],V679,V680);
3611          V628= list(2,VV[4],base[2]);          V682= list(2,VV[4],CMPcar((V675)));
3612          V629= list(5,VV[169],/* INLINE-ARGS */V626,/* INLINE-ARGS */V627,/* INLINE-ARGS */V628,list(2,VV[4],CMPcdddr((V621))));          V683= list(2,VV[170],CMPcar((V675)));
3613          V624= (*(LnkLI299))(/* INLINE-ARGS */V625,VV[168],/* INLINE-ARGS */V629);          V684= list(2,VV[4],base[2]);
3614          if(((V618))!=Cnil){          V685= list(5,VV[169],/* INLINE-ARGS */V682,/* INLINE-ARGS */V683,/* INLINE-ARGS */V684,list(2,VV[4],CMPcdddr((V675))));
3615            V678= (*(LnkLI299))(/* INLINE-ARGS */V681,VV[168],/* INLINE-ARGS */V685);
3616            if(((V672))!=Cnil){
3617          goto T1207;}          goto T1207;}
3618          V619= make_cons((V624),Cnil);          V673= make_cons((V678),Cnil);
3619          V618= (V619);          V672= (V673);
3620          goto T1193;          goto T1193;
3621          goto T1207;          goto T1207;
3622  T1207:;  T1207:;
3623          V631= make_cons((V624),Cnil);          V687= make_cons((V678),Cnil);
3624          ((V619))->c.c_cdr = /* INLINE-ARGS */V631;          ((V673))->c.c_cdr = /* INLINE-ARGS */V687;
3625          V630= (V619);          V686= (V673);
3626          V619= CMPcdr(V630);}          V673= CMPcdr(V686);}
3627          goto T1193;          goto T1193;
3628  T1193:;  T1193:;
3629          V620= CMPcdr((V620));          V674= CMPcdr((V674));
3630          V621= CMPcar((V620));          V675= CMPcar((V674));
3631          goto T1188;}          goto T1188;}
3632          goto T1184;          goto T1184;
3633  T1184:;  T1184:;
3634          V617= (V618);}          V671= (V672);}
3635          base[3]= make_cons(VV[6],V617);          base[3]= make_cons(VV[6],V671);
3636          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3637          return;}          return;}
3638  }  }
# Line 3587  static void L55() Line 3643  static void L55()
3643          register object *sup=base+VM52; VC52          register object *sup=base+VM52; VC52
3644          vs_check;          vs_check;
3645          bds_check;          bds_check;
3646          {object V632;          {object V688;
3647          check_arg(1);          check_arg(1);
3648          V632=(base[0]);          V688=(base[0]);
3649          vs_top=sup;          vs_top=sup;
3650          goto TTL;          goto TTL;
3651  TTL:;  TTL:;
3652          base[3]= (((V632))==Cnil?Ct:Cnil);          base[3]= (((V688))==Cnil?Ct:Cnil);
3653          bds_bind(VV[163],Ct);          bds_bind(VV[163],Ct);
3654          bds_bind(VV[91],Ct);          bds_bind(VV[91],Ct);
3655          bds_bind(VV[166],base[3]);          bds_bind(VV[166],base[3]);
# Line 3617  T1220:; Line 3673  T1220:;
3673  }  }
3674  /*      local entry for function INITIALIZE-INSTANCE-SIMPLE     */  /*      local entry for function INITIALIZE-INSTANCE-SIMPLE     */
3675    
3676  static object LI56(V637,V638,V639,V640)  static object LI56(V693,V694,V695,V696)
3677    
3678  object V637;register object V638;object V639;register object V640;  object V693;register object V694;object V695;register object V696;
3679  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3680          goto TTL;          goto TTL;
3681  TTL:;  TTL:;
3682          {object V641;          {object V697;
3683          register object V642;          register object V698;
3684          object V643;          object V699;
3685          object V644;          object V700;
3686          register object V645;          register object V701;
3687          V641= CMPcar((V637));          V697= CMPcar((V693));
3688          if(type_of(V639)==t_structure){          if(type_of(V695)==t_structure){
3689          goto T1227;}          goto T1227;}
3690          goto T1225;          goto T1225;
3691          goto T1227;          goto T1227;
3692  T1227:;  T1227:;
3693          if(!(((V639)->str.str_def)==(VV[171]))){          if(!(((V695)->str.str_def)==(VV[171]))){
3694          goto T1225;}          goto T1225;}
3695          V643= STREF(object,(V639),4);          V699= STREF(object,(V695),4);
3696          goto T1223;          goto T1223;
3697          goto T1225;          goto T1225;
3698  T1225:;{object V647;  T1225:;{object V703;
3699          V647= (VV[172]->s.s_dbind);          V703= (VV[172]->s.s_dbind);
3700          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
3701          base[1]= (V639);          base[1]= (V695);
3702          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3703          (void) (*Lnk301)();          (void) (*Lnk301)();
3704          vs_top=sup;          vs_top=sup;
3705          V648= vs_base[0];          V704= vs_base[0];
3706          if(!((V647)==(CMPcar(V648)))){          if(!((V703)==(CMPcar(V704)))){
3707          goto T1230;}}          goto T1230;}}
3708          V643= CMPcar(((V639))->cc.cc_turbo[12]);          V699= CMPcar(((V695))->cc.cc_turbo[12]);
3709          goto T1223;          goto T1223;
3710          goto T1230;          goto T1230;
3711  T1230:;  T1230:;
3712          V643= Cnil;          V699= Cnil;
3713          goto T1223;          goto T1223;
3714  T1223:;  T1223:;
3715          V644= (*(LnkLI303))((V639));          V700= (*(LnkLI303))((V695));
3716          V642= (V640);          V698= (V696);
3717          V645= Cnil;          V701= Cnil;
3718          goto T1238;          goto T1238;
3719  T1238:;  T1238:;
3720          if(((V638))!=Cnil){          if(((V694))!=Cnil){
3721          goto T1240;}          goto T1240;}
3722          goto T1236;          goto T1236;
3723          goto T1240;          goto T1240;
3724  T1240:;  T1240:;
3725          {register object V649;          {register object V705;
3726          {object V650;          {object V706;
3727          V650= CMPcar((V638));          V706= CMPcar((V694));
3728          V638= CMPcdr((V638));          V694= CMPcdr((V694));
3729          V649= (V650);}          V705= (V706);}
3730          {object V651= CMPcar((V649));          {object V707= CMPcar((V705));
3731          if((V651!= VV[145]))goto T1247;          if((V707!= VV[145]))goto T1247;
3732          V640= make_cons(V645,(V640));          V696= make_cons(V701,(V696));
3733          {object V653;          {object V709;
3734          V653= CMPcadr((V649));          V709= CMPcadr((V705));
3735          V640= make_cons((V653),(V640));          V696= make_cons((V709),(V696));
3736          goto T1239;}          goto T1239;}
3737          goto T1247;          goto T1247;
3738  T1247:;  T1247:;
3739          if((V651!= VV[158]))goto T1252;          if((V707!= VV[158]))goto T1252;
3740          V645= CMPcadr((V649));          V701= CMPcadr((V705));
3741          goto T1239;          goto T1239;
3742          goto T1252;          goto T1252;
3743  T1252:;  T1252:;
3744          if((V651!= VV[114]))goto T1254;          if((V707!= VV[114]))goto T1254;
3745          V645= (          V701= (
3746          V654 = CMPcadr((V649)),          V710 = CMPcadr((V705)),
3747          (type_of(V654) == t_sfun ?(*((V654)->sfn.sfn_self)):          (type_of(V710) == t_sfun ?(*((V710)->sfn.sfn_self)):
3748          (fcall.argd=0,type_of(V654)==t_vfun) ?          (fcall.argd=0,type_of(V710)==t_vfun) ?
3749          (*((V654)->sfn.sfn_self)):          (*((V710)->sfn.sfn_self)):
3750          (fcall.fun=(V654),fcalln))());          (fcall.fun=(V710),fcalln))());
3751          goto T1239;          goto T1239;
3752          goto T1254;          goto T1254;
3753  T1254:;  T1254:;
3754          if((V651!= VV[156]))goto T1256;          if((V707!= VV[156]))goto T1256;
3755          V655= one_minus(CMPcadr((V649)));          V711= one_minus(CMPcadr((V705)));
3756          V642= nthcdr(fix(/* INLINE-ARGS */V655),(V642));          V698= nthcdr(fix(/* INLINE-ARGS */V711),(V698));
3757          {object V656;          {object V712;
3758          V656= CMPcar((V642));          V712= CMPcar((V698));
3759          V642= CMPcdr((V642));          V698= CMPcdr((V698));
3760          V645= (V656);}          V701= (V712);}
3761          goto T1239;          goto T1239;
3762          goto T1256;          goto T1256;
3763  T1256:;  T1256:;
3764          if((V651!= VV[157]))goto T1263;          if((V707!= VV[157]))goto T1263;
3765          {object V657;          {object V713;
3766          V657= ((V641))->v.v_self[fix(CMPcadr((V649)))];          V713= ((V697))->v.v_self[fix(CMPcadr((V705)))];
3767          if(!(type_of(V657)==t_fixnum)){          if(!(type_of(V713)==t_fixnum)){
3768          goto T1266;}          goto T1266;}
3769          (void)(((V643))->v.v_self[fix((V657))]= ((V645)));          (void)(((V699))->v.v_self[fix((V713))]= ((V701)));
3770          goto T1239;          goto T1239;
3771          goto T1266;          goto T1266;
3772  T1266:;  T1266:;
3773          if(!(type_of(V657)==t_cons)){          if(!(type_of(V713)==t_cons)){
3774          goto T1269;}          goto T1269;}
3775          (V657)->c.c_cdr = V645;          (V713)->c.c_cdr = V701;
3776          goto T1239;          goto T1239;
3777          goto T1269;          goto T1269;
3778  T1269:;  T1269:;
3779          {object V663;          {object V719;
3780          V663= CMPcaddr((V649));          V719= CMPcaddr((V705));
3781          base[0]= (V645);          base[0]= (V701);
3782          base[1]= V644;          base[1]= V700;
3783          base[2]= V639;          base[2]= V695;
3784          base[3]= (V663);          base[3]= (V719);
3785          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
3786          (void) (*Lnk304)(Lclptr304);          (void) (*Lnk304)(Lclptr304);
3787          vs_top=sup;          vs_top=sup;
3788          goto T1239;}}          goto T1239;}}
3789          goto T1263;          goto T1263;
3790  T1263:;  T1263:;
3791          if((V651!= VV[159]))goto T1277;          if((V707!= VV[159]))goto T1277;
3792          {object V664;          {object V720;
3793          V664= ((V641))->v.v_self[fix(CMPcadr((V649)))];          V720= ((V697))->v.v_self[fix(CMPcadr((V705)))];
3794          if(!(type_of(V664)==t_fixnum)){          if(!(type_of(V720)==t_fixnum)){
3795          goto T1282;}          goto T1282;}
3796          if(!((((((V643))->v.v_self[fix((V664))])==(VV[173])?Ct:Cnil))==Cnil)){          if(!((((((V699))->v.v_self[fix((V720))])==(VV[173])?Ct:Cnil))==Cnil)){
3797          goto T1239;}          goto T1239;}
3798          goto T1279;          goto T1279;
3799          goto T1282;          goto T1282;
3800  T1282:;  T1282:;
3801          if(!(type_of(V664)==t_cons)){          if(!(type_of(V720)==t_cons)){
3802          goto T1285;}          goto T1285;}
3803          if(!((((CMPcdr((V664)))==(VV[173])?Ct:Cnil))==Cnil)){          if(!((((CMPcdr((V720)))==(VV[173])?Ct:Cnil))==Cnil)){
3804          goto T1239;}          goto T1239;}
3805          goto T1279;          goto T1279;
3806          goto T1285;          goto T1285;
3807  T1285:;  T1285:;
3808          base[0]= (V644);          base[0]= (V700);
3809          base[1]= (V639);          base[1]= (V695);
3810          base[2]= CMPcaddr((V649));          base[2]= CMPcaddr((V705));
3811          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3812          (void) (*Lnk195)(Lclptr195);          (void) (*Lnk195)(Lclptr195);
3813          vs_top=sup;          vs_top=sup;
# Line 3759  T1285:; Line 3815  T1285:;
3815          goto T1239;}}          goto T1239;}}
3816          goto T1279;          goto T1279;
3817  T1279:;  T1279:;
3818          {long V666;          {long V722;
3819          register long V667;          register long V723;
3820          V666= fix(CMPcadddr((V649)));          V722= fix(CMPcadddr((V705)));
3821          V667= 0;          V723= 0;
3822          goto T1293;          goto T1293;
3823  T1293:;  T1293:;
3824          if(!((V667)>=(V666))){          if(!((V723)>=(V722))){
3825          goto T1294;}          goto T1294;}
3826          goto T1239;          goto T1239;
3827          goto T1294;          goto T1294;
3828  T1294:;  T1294:;
3829          {object V668;          {object V724;
3830          V668= CMPcar((V638));          V724= CMPcar((V694));
3831          V638= CMPcdr((V638));}          V694= CMPcdr((V694));}
3832          V667= (long)(V667)+1;          V723= (long)(V723)+1;
3833          goto T1293;}          goto T1293;}
3834          goto T1277;          goto T1277;
3835  T1277:;  T1277:;
3836          if((V651!= VV[146]))goto T1304;          if((V707!= VV[146]))goto T1304;
3837          if(!(type_of((V640))==t_cons)){          if(!(type_of((V696))==t_cons)){
3838          goto T1305;}          goto T1305;}
3839          V640= make_cons(CMPcar((V640)),CMPcdr((V640)));          V696= make_cons(CMPcar((V696)),CMPcdr((V696)));
3840          goto T1305;          goto T1305;
3841  T1305:;  T1305:;
3842          (VV[93]->s.s_dbind)= CMPcadr((V649));          (VV[93]->s.s_dbind)= CMPcadr((V705));
3843          (VV[94]->s.s_dbind)= (V640);          (VV[94]->s.s_dbind)= (V696);
3844          (VV[95]->s.s_dbind)= CMPcaddr((V649));          (VV[95]->s.s_dbind)= CMPcaddr((V705));
3845          goto T1239;          goto T1239;
3846          goto T1304;          goto T1304;
3847  T1304:;  T1304:;
3848          if((V651!= VV[305]))goto T1314;          if((V707!= VV[305]))goto T1314;
3849          V642= (V640);          V698= (V696);
3850          goto T1239;          goto T1239;
3851          goto T1314;          goto T1314;
3852  T1314:;  T1314:;
3853          FEerror("The ECASE key value ~s is illegal.",1,V651);          FEerror("The ECASE key value ~s is illegal.",1,V707);
3854          goto T1239;}}          goto T1239;}}
3855          goto T1239;          goto T1239;
3856  T1239:;  T1239:;
3857          goto T1238;          goto T1238;
3858          goto T1236;          goto T1236;
3859  T1236:;  T1236:;
3860          {object V669 = (V640);          {object V725 = (V696);
3861          VMR53(V669)}}          VMR53(V725)}}
3862          base[0]=base[0];          base[0]=base[0];
3863          return Cnil;          return Cnil;
3864  }  }
3865  /*      local entry for function ADD-TO-CVECTOR */  /*      local entry for function ADD-TO-CVECTOR */
3866    
3867  static object LI57(V672,V673)  static object LI57(V728,V729)
3868    
3869  register object V672;object V673;  register object V728;object V729;
3870  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3871          goto TTL;          goto TTL;
3872  TTL:;{object V674;  TTL:;{object V730;
3873          base[0]= (V673);          base[0]= (V729);
3874          base[1]= (V672);          base[1]= (V728);
3875          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3876          (void) (*Lnk287)();          (void) (*Lnk287)();
3877          vs_top=sup;          vs_top=sup;
3878          V674= vs_base[0];          V730= vs_base[0];
3879          if(V674==Cnil)goto T1317;          if(V730==Cnil)goto T1317;
3880          {object V675 = V674;          {object V731 = V730;
3881          VMR54(V675)}          VMR54(V731)}
3882          goto T1317;          goto T1317;
3883  T1317:;}  T1317:;}
3884          {object V676;          {object V732;
3885          V676= CMPmake_fixnum((long)(((V672))->st.st_fillp));          V732= CMPmake_fixnum((long)(((V728))->st.st_fillp));
3886          {register object V678;          {register object V734;
3887          register long V679;          register long V735;
3888          long V680;          long V736;
3889          V678= (V672);          V734= (V728);
3890          V679= (long)(((V678))->st.st_fillp);          V735= (long)(((V734))->st.st_fillp);
3891          V680= (long)(((V678))->st.st_dim);          V736= (long)(((V734))->st.st_dim);
3892          if(!((V679)<(V680))){          if(!((V735)<(V736))){
3893          goto T1327;}          goto T1327;}
3894          (void)((((V678))->st.st_fillp)=((long)(1)+(V679)));          (void)((((V734))->st.st_fillp)=((long)(1)+(V735)));
3895          V681 = CMPmake_fixnum(V679);          V737 = CMPmake_fixnum(V735);
3896          (void)(aset1((V678),fix(V681),V673));          (void)(aset1((V734),fix(V737),V729));
3897          goto T1322;          goto T1322;
3898          goto T1327;          goto T1327;
3899  T1327:;  T1327:;
3900          base[0]= V673;          base[0]= V729;
3901          base[1]= (V678);          base[1]= (V734);
3902          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3903          (void) (*Lnk306)();          (void) (*Lnk306)();
3904          vs_top=sup;}          vs_top=sup;}
3905          goto T1322;          goto T1322;
3906  T1322:;  T1322:;
3907          {object V682 = (V676);          {object V738 = (V732);
3908          VMR54(V682)}}          VMR54(V738)}}
3909          base[0]=base[0];          base[0]=base[0];
3910          return Cnil;          return Cnil;
3911  }  }
3912  /*      local entry for function FIRST-FORM-TO-LISP     */  /*      local entry for function FIRST-FORM-TO-LISP     */
3913    
3914  static object LI60(V686,V687,V688)  static object LI60(V742,V743,V744)
3915    
3916  register object V686;object V687;register object V688;  register object V742;object V743;register object V744;
3917  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3918          goto TTL;          goto TTL;
3919  TTL:;  TTL:;
3920          base[0]= (V687);          base[0]= (V743);
3921          {object V689;          {object V745;
3922          {object V691;          {object V747;
3923          V691= CMPcdr(CMPcar(V686));          V747= CMPcdr(CMPcar(V742));
3924          {object V692;          {object V748;
3925          V692= CMPcar(CMPcar(V686));          V748= CMPcar(CMPcar(V742));
3926          (V686)->c.c_car = (V691);          (V742)->c.c_car = (V747);
3927          V689= (V692);}}          V745= (V748);}}
3928          {object V693= CMPcar((V689));          {object V749= CMPcar((V745));
3929          if((V693!= VV[145]))goto T1338;          if((V749!= VV[145]))goto T1338;
3930          base[1]= CMPcadr((V689));          base[1]= CMPcadr((V745));
3931          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3932          L61(base);          L61(base);
3933          vs_top=sup;          vs_top=sup;
3934          V694= vs_base[0];          V750= vs_base[0];
3935          {object V695 = list(2,VV[174],list(3,VV[57],V694,VV[175]));          {object V751 = list(2,VV[174],list(3,VV[57],V750,VV[175]));
3936          VMR55(V695)}          VMR55(V751)}
3937          goto T1338;          goto T1338;
3938  T1338:;  T1338:;
3939          if((V693!= VV[158]))goto T1341;          if((V749!= VV[158]))goto T1341;
3940          base[1]= CMPcadr((V689));          base[1]= CMPcadr((V745));
3941          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3942          L61(base);          L61(base);
3943          vs_top=sup;          vs_top=sup;
3944          V696= vs_base[0];          V752= vs_base[0];
3945          V697= list(3,VV[176],VV[76],V696);          V753= list(3,VV[176],VV[76],V752);
3946          {object V698 = make_cons(/* INLINE-ARGS */V697,Cnil);          {object V754 = make_cons(/* INLINE-ARGS */V753,Cnil);
3947          VMR55(V698)}          VMR55(V754)}
3948          goto T1341;          goto T1341;
3949  T1341:;  T1341:;
3950          if((V693!= VV[114]))goto T1344;          if((V749!= VV[114]))goto T1344;
3951          base[1]= CMPcadr((V689));          base[1]= CMPcadr((V745));
3952          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3953          L61(base);          L61(base);
3954          vs_top=sup;          vs_top=sup;
3955          V699= vs_base[0];          V755= vs_base[0];
3956          V700= list(3,VV[176],VV[76],list(2,VV[114],list(3,VV[177],VV[170],V699)));          V756= list(3,VV[176],VV[76],list(2,VV[114],list(3,VV[177],VV[170],V755)));
3957          {object V701 = make_cons(/* INLINE-ARGS */V700,Cnil);          {object V757 = make_cons(/* INLINE-ARGS */V756,Cnil);
3958          VMR55(V701)}          VMR55(V757)}
3959          goto T1344;          goto T1344;
3960  T1344:;  T1344:;
3961          if((V693!= VV[156]))goto T1347;          if((V749!= VV[156]))goto T1347;
3962          {object V703;          {object V759;
3963          V703= one_minus(CMPcadr((V689)));          V759= one_minus(CMPcadr((V745)));
3964          {object V704= (V703);          {object V760= (V759);
3965          if(!eql(V704,VV[179]))goto T1350;          if(!eql(V760,VV[179]))goto T1350;
3966          V702= VV[180];          V758= VV[180];
3967          goto T1348;          goto T1348;
3968          goto T1350;          goto T1350;
3969  T1350:;  T1350:;
3970          if(!eql(V704,VV[181]))goto T1351;          if(!eql(V760,VV[181]))goto T1351;
3971          V702= VV[182];          V758= VV[182];
3972          goto T1348;          goto T1348;
3973          goto T1351;          goto T1351;
3974  T1351:;  T1351:;
3975          V702= list(2,VV[183],(V703));}}          V758= list(2,VV[183],(V759));}}
3976          goto T1348;          goto T1348;
3977  T1348:;  T1348:;
3978          {object V705 = list(2,list(3,VV[176],VV[178],append(V702,VV[184])),VV[185]);          {object V761 = list(2,list(3,VV[176],VV[178],append(V758,VV[184])),VV[185]);
3979          VMR55(V705)}          VMR55(V761)}
3980          goto T1347;          goto T1347;
3981  T1347:;  T1347:;
3982          if((V693!= VV[157]))goto T1352;          if((V749!= VV[157]))goto T1352;
3983          {object V706;          {object V762;
3984          object V707;          object V763;
3985          object V708;          object V764;
3986          V706= CMPcadr((V689));          V762= CMPcadr((V745));
3987          V707= ((V688))->v.v_self[fix((V706))];          V763= ((V744))->v.v_self[fix((V762))];
3988          base[4]= CMPcaddr((V689));          base[4]= CMPcaddr((V745));
3989          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3990          L61(base);          L61(base);
3991          vs_top=sup;          vs_top=sup;
3992          V709= vs_base[0];          V765= vs_base[0];
3993          V708= list(3,VV[62],list(4,VV[186],VV[103],VV[121],V709),VV[76]);          V764= list(3,VV[62],list(4,VV[186],VV[103],VV[121],V765),VV[76]);
3994          if(((VV[187]->s.s_dbind))==Cnil){          if(((VV[187]->s.s_dbind))==Cnil){
3995          goto T1359;}          goto T1359;}
3996          if(!(type_of(V707)==t_fixnum)){          if(!(type_of(V763)==t_fixnum)){
3997          goto T1362;}          goto T1362;}
3998          base[4]= (V707);          base[4]= (V763);
3999          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4000          L61(base);          L61(base);
4001          vs_top=sup;          vs_top=sup;
4002          V711= vs_base[0];          V767= vs_base[0];
4003          V712= list(3,VV[62],list(3,VV[188],VV[58],V711),VV[76]);          V768= list(3,VV[62],list(3,VV[188],VV[58],V767),VV[76]);
4004          {object V713 = make_cons(/* INLINE-ARGS */V712,Cnil);          {object V769 = make_cons(/* INLINE-ARGS */V768,Cnil);
4005          VMR55(V713)}          VMR55(V769)}
4006          goto T1362;          goto T1362;
4007  T1362:;  T1362:;
4008          if(!(type_of(V707)==t_cons)){          if(!(type_of(V763)==t_cons)){
4009          goto T1367;}          goto T1367;}
4010          base[4]= (V707);          base[4]= (V763);
4011          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4012          L61(base);          L61(base);
4013          vs_top=sup;          vs_top=sup;
4014          V714= vs_base[0];          V770= vs_base[0];
4015          V715= list(3,VV[62],list(2,VV[189],V714),VV[76]);          V771= list(3,VV[62],list(2,VV[189],V770),VV[76]);
4016          {object V716 = make_cons(/* INLINE-ARGS */V715,Cnil);          {object V772 = make_cons(/* INLINE-ARGS */V771,Cnil);
4017          VMR55(V716)}          VMR55(V772)}
4018          goto T1367;          goto T1367;
4019  T1367:;  T1367:;
4020          {object V717 = make_cons((V708),Cnil);          {object V773 = make_cons((V764),Cnil);
4021          VMR55(V717)}          VMR55(V773)}
4022          goto T1359;          goto T1359;
4023  T1359:;  T1359:;
4024          base[4]= (V706);          base[4]= (V762);
4025          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4026          L61(base);          L61(base);
4027          vs_top=sup;          vs_top=sup;
4028          V718= vs_base[0];          V774= vs_base[0];
4029          if(!(type_of(V707)==t_fixnum)){          V775 = (V764);
4030            if(!(type_of(V763)==t_fixnum)){
4031          goto T1375;}          goto T1375;}
4032          V719= VV[192];          V776= VV[192];
4033          goto T1373;          goto T1373;
4034          goto T1375;          goto T1375;
4035  T1375:;  T1375:;
4036          if(!(type_of(V707)==t_cons)){          if(!(type_of(V763)==t_cons)){
4037          goto T1378;}          goto T1378;}
4038          V719= VV[193];          V776= VV[193];
4039          goto T1373;          goto T1373;
4040          goto T1378;          goto T1378;
4041  T1378:;  T1378:;
4042          V719= VV[194];          V776= VV[194];
4043          goto T1373;          goto T1373;
4044  T1373:;  T1373:;
4045          V721= list(7,VV[190],VV[191],VV[58],V718,VV[76],(V708),V719);          V778= list(7,VV[190],VV[191],VV[58],V774,VV[76],V775,V776);
4046          {object V722 = make_cons(/* INLINE-ARGS */V721,Cnil);          {object V779 = make_cons(/* INLINE-ARGS */V778,Cnil);
4047          VMR55(V722)}}          VMR55(V779)}}
4048          goto T1352;          goto T1352;
4049  T1352:;  T1352:;
4050          if((V693!= VV[159]))goto T1380;          if((V749!= VV[159]))goto T1380;
4051          {object V723;          {object V780;
4052          object V724;          object V781;
4053          object V725;          object V782;
4054          V723= CMPcadr((V689));          V780= CMPcadr((V745));
4055          V724= ((V688))->v.v_self[fix((V723))];          V781= ((V744))->v.v_self[fix((V780))];
4056          base[4]= CMPcaddr((V689));          base[4]= CMPcaddr((V745));
4057          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4058          L61(base);          L61(base);
4059          vs_top=sup;          vs_top=sup;
4060          V726= vs_base[0];          V783= vs_base[0];
4061          V725= list(4,VV[195],VV[103],VV[121],V726);          V782= list(4,VV[195],VV[103],VV[121],V783);
4062          if(((VV[187]->s.s_dbind))==Cnil){          if(((VV[187]->s.s_dbind))==Cnil){
4063          goto T1388;}          goto T1388;}
4064          if(!(type_of(V724)==t_fixnum)){          if(!(type_of(V781)==t_fixnum)){
4065          goto T1391;}          goto T1391;}
4066          base[4]= (V724);          base[4]= (V781);
4067          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4068          L61(base);          L61(base);
4069          vs_top=sup;          vs_top=sup;
4070          V729= vs_base[0];          V786= vs_base[0];
4071          V730= list(3,VV[188],VV[58],V729);          V787= list(3,VV[188],VV[58],V786);
4072          V727= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V730,list(2,VV[4],(VV[153]->s.s_dbind))));          V784= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V787,list(2,VV[4],(VV[153]->s.s_dbind))));
4073          goto T1386;          goto T1386;
4074          goto T1391;          goto T1391;
4075  T1391:;  T1391:;
4076          if(!(type_of(V724)==t_cons)){          if(!(type_of(V781)==t_cons)){
4077          goto T1396;}          goto T1396;}
4078          base[4]= (V724);          base[4]= (V781);
4079          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4080          L61(base);          L61(base);
4081          vs_top=sup;          vs_top=sup;
4082          V731= vs_base[0];          V788= vs_base[0];
4083          V732= list(2,VV[189],V731);          V789= list(2,VV[189],V788);
4084          V727= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V732,list(2,VV[4],(VV[153]->s.s_dbind))));          V784= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V789,list(2,VV[4],(VV[153]->s.s_dbind))));
4085          goto T1386;          goto T1386;
4086          goto T1396;          goto T1396;
4087  T1396:;  T1396:;
4088          V727= (V725);          V784= (V782);
4089          goto T1386;          goto T1386;
4090          goto T1388;          goto T1388;
4091  T1388:;  T1388:;
4092          base[4]= (V723);          base[4]= (V780);
4093          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4094          L61(base);          L61(base);
4095          vs_top=sup;          vs_top=sup;
4096          V733= vs_base[0];          V790= vs_base[0];
4097          {object V735;          V791 = (V782);
4098          V735= ((V688))->v.v_self[fix((V723))];          {object V793;
4099          if(!(type_of((V735))==t_fixnum)){          V793= ((V744))->v.v_self[fix((V780))];
4100            if(!(type_of((V793))==t_fixnum)){
4101          goto T1405;}          goto T1405;}
4102          V734= VV[192];          V792= VV[192];
4103          goto T1402;          goto T1402;
4104          goto T1405;          goto T1405;
4105  T1405:;  T1405:;
4106          if(!(type_of((V735))==t_cons)){          if(!(type_of((V793))==t_cons)){
4107          goto T1408;}          goto T1408;}
4108          V734= VV[193];          V792= VV[193];
4109          goto T1402;          goto T1402;
4110          goto T1408;          goto T1408;
4111  T1408:;  T1408:;
4112          V734= VV[194];}          V792= VV[194];}
4113          goto T1402;          goto T1402;
4114  T1402:;  T1402:;
4115          V727= list(6,VV[197],VV[191],VV[58],V733,(V725),V734);          V784= list(6,VV[197],VV[191],VV[58],V790,V791,V792);
4116          goto T1386;          goto T1386;
4117  T1386:;  T1386:;
4118          {register object V737;          {register object V795;
4119          V737= make_cons(Cnil,Cnil);          V795= make_cons(Cnil,Cnil);
4120          {register long V738;          {register long V796;
4121          register long V739;          register long V797;
4122          V738= fix(CMPcadddr((V689)));          V796= fix(CMPcadddr((V745)));
4123          V739= 0;          V797= 0;
4124          goto T1415;          goto T1415;
4125  T1415:;  T1415:;
4126          if(!((V739)>=(V738))){          if(!((V797)>=(V796))){
4127          goto T1416;}          goto T1416;}
4128          V736= CMPcar((V737));          V794= CMPcar((V795));
4129          goto T1410;          goto T1410;
4130          goto T1416;          goto T1416;
4131  T1416:;  T1416:;
4132          V740= (*(LnkLI307))((V686),base[0],(V688));          V798= (*(LnkLI307))((V742),base[0],(V744));
4133          (void)((*(LnkLI284))(/* INLINE-ARGS */V740,(V737)));          V799 = (V795);
4134          V739= (long)(V739)+1;          (void)((*(LnkLI284))(/* INLINE-ARGS */V798,V799));
4135            V797= (long)(V797)+1;
4136          goto T1415;}}          goto T1415;}}
4137          goto T1410;          goto T1410;
4138  T1410:;  T1410:;
4139          V741= listA(3,VV[54],V727,V736);          V800= listA(3,VV[54],V784,V794);
4140          {object V742 = make_cons(/* INLINE-ARGS */V741,Cnil);          {object V801 = make_cons(/* INLINE-ARGS */V800,Cnil);
4141          VMR55(V742)}}          VMR55(V801)}}
4142          goto T1380;          goto T1380;
4143  T1380:;  T1380:;
4144          if((V693!= VV[146]))goto T1423;          if((V749!= VV[146]))goto T1423;
4145          base[1]= CMPcadr((V689));          base[1]= CMPcadr((V745));
4146          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4147          L61(base);          L61(base);
4148          vs_top=sup;          vs_top=sup;
4149          V743= vs_base[0];          V802= vs_base[0];
4150          V744= list(3,VV[176],VV[93],V743);          V803= list(3,VV[176],VV[93],V802);
4151          base[1]= CMPcaddr((V689));          base[1]= CMPcaddr((V745));
4152          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4153          L61(base);          L61(base);
4154          vs_top=sup;          vs_top=sup;
4155          V745= vs_base[0];          V804= vs_base[0];
4156          {object V746 = list(4,VV[198],/* INLINE-ARGS */V744,VV[199],list(3,VV[176],VV[95],V745));          {object V805 = list(4,VV[198],/* INLINE-ARGS */V803,VV[199],list(3,VV[176],VV[95],V804));
4157          VMR55(V746)}          VMR55(V805)}
4158          goto T1423;          goto T1423;
4159  T1423:;  T1423:;
4160          if((V693!= VV[305]))goto T1428;          if((V749!= VV[305]))goto T1428;
4161          {object V747 = VV[200];          {object V806 = VV[200];
4162          VMR55(V747)}          VMR55(V806)}
4163          goto T1428;          goto T1428;
4164  T1428:;  T1428:;
4165          FEerror("The ECASE key value ~s is illegal.",1,V693);          FEerror("The ECASE key value ~s is illegal.",1,V749);
4166          {object V748 = Cnil;          {object V807 = Cnil;
4167          VMR55(V748)}}}          VMR55(V807)}}}
4168          base[0]=base[0];          base[0]=base[0];
4169          return Cnil;          return Cnil;
4170  }  }
# Line 4117  static void L62() Line 4176  static void L62()
4176          vs_check;          vs_check;
4177          check_arg(2);          check_arg(2);
4178          vs_top=sup;          vs_top=sup;
4179          {object V749=base[0]->c.c_cdr;          {object V808=base[0]->c.c_cdr;
4180          base[2]= V749;}          base[2]= V808;}
4181          V751= listA(3,VV[205],VV[206],base[2]);          V810= listA(3,VV[205],VV[206],base[2]);
4182          base[3]= listA(3,VV[52],VV[204],append(VV[203],/* INLINE-ARGS */V751));          base[3]= listA(3,VV[52],VV[204],append(VV[203],/* INLINE-ARGS */V810));
4183          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4184          return;          return;
4185  }  }
# Line 4130  static void L63() Line 4189  static void L63()
4189  {register object *base=vs_base;  {register object *base=vs_base;
4190          register object *sup=base+VM57; VC57          register object *sup=base+VM57; VC57
4191          vs_check;          vs_check;
4192          {object V752;          {object V811;
4193          object V753;          object V812;
4194          check_arg(2);          check_arg(2);
4195          V752=(base[0]);          V811=(base[0]);
4196          V753=(base[1]);          V812=(base[1]);
4197          vs_top=sup;          vs_top=sup;
4198          goto TTL;          goto TTL;
4199  TTL:;  TTL:;
4200          {register object V754;          {register object V813;
4201          register object V755;          register object V814;
4202          register object V756;          register object V815;
4203          object V757;          object V816;
4204          object V758;          object V817;
4205          V754= make_cons((V753),Cnil);          V813= make_cons((V812),Cnil);
4206          base[8]= CMPmake_fixnum((long)length((V753)));          base[8]= CMPmake_fixnum((long)length((V812)));
4207          base[9]= small_fixnum(2);          base[9]= small_fixnum(2);
4208          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
4209          Lfloor();          Lfloor();
# Line 4157  TTL:; Line 4216  TTL:;
4216          vs_top=(vs_base=base+7)+5;          vs_top=(vs_base=base+7)+5;
4217          (void) (*Lnk285)();          (void) (*Lnk285)();
4218          vs_top=sup;          vs_top=sup;
4219          V755= vs_base[0];          V814= vs_base[0];
4220          V756= CMPcar((V752));          V815= CMPcar((V811));
4221          {register object V759;          {register object V818;
4222          V759= make_cons(Cnil,Cnil);          V818= make_cons(Cnil,Cnil);
4223          goto T1442;          goto T1442;
4224  T1442:;  T1442:;
4225          if((CMPcar((V754)))!=Cnil){          if((CMPcar((V813)))!=Cnil){
4226          goto T1444;}          goto T1444;}
4227          V757= CMPcar((V759));          V816= CMPcar((V818));
4228          goto T1439;          goto T1439;
4229          goto T1444;          goto T1444;
4230  T1444:;  T1444:;
4231          V760= (*(LnkLI307))((V754),(V755),(V756));          V819= (*(LnkLI307))((V813),(V814),(V815));
4232          (void)((*(LnkLI284))(/* INLINE-ARGS */V760,(V759)));          V820 = (V818);
4233            (void)((*(LnkLI284))(/* INLINE-ARGS */V819,V820));
4234          goto T1442;}          goto T1442;}
4235          goto T1439;          goto T1439;
4236  T1439:;  T1439:;
4237          V761 = CMPmake_fixnum((long)length((V755)));          V821 = CMPmake_fixnum((long)length((V814)));
4238          V758= list(2,VV[209],V761);          V817= list(2,VV[209],V821);
4239          V762= list(2,VV[212],list(3,VV[213],(V758),VV[202]));          V822= list(2,VV[212],list(3,VV[213],(V817),VV[202]));
4240          base[7]= list(4,VV[210],VV[211],/* INLINE-ARGS */V762,list(2,VV[170],list(5,VV[210],VV[214],VV[215],make_cons(VV[216],(V757)),VV[175])));          base[7]= list(4,VV[210],VV[211],/* INLINE-ARGS */V822,list(2,VV[170],list(5,VV[210],VV[214],VV[215],make_cons(VV[216],(V816)),VV[175])));
4241          base[9]= (V755);          V823 = (V811);
4242          base[10]= (V758);          base[9]= (V814);
4243            base[10]= (V817);
4244          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
4245          (void) (*Lnk308)();          (void) (*Lnk308)();
4246          vs_top=sup;          vs_top=sup;
4247          V763= vs_base[0];          V824= vs_base[0];
4248          base[8]= list(2,(V752),V763);          base[8]= list(2,V823,V824);
4249          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
4250          return;}          return;}
4251          }          }
4252  }  }
4253  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL      */  /*      local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL      */
4254    
4255  static object LI64(V765)  static object LI64(V826)
4256    
4257  object V765;  object V826;
4258  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
4259          goto TTL;          goto TTL;
4260  TTL:;  TTL:;
4261          V766= make_cons((V765),Cnil);          V827= make_cons((V826),Cnil);
4262          (void)((*(LnkLI7))(/* INLINE-ARGS */V766));          (void)((*(LnkLI7))(/* INLINE-ARGS */V827));
4263          {object V767 = (*(LnkLI75))((V765));          {object V828 = (*(LnkLI75))((V826));
4264          VMR58(V767)}          VMR58(V828)}
4265          return Cnil;          return Cnil;
4266  }  }
4267  /*      local function CONST    */  /*      local function CONST    */
# Line 4210  register object *base0; Line 4271  register object *base0;
4271  {       register object *base=vs_base;  {       register object *base=vs_base;
4272          register object *sup=base+VM59; VC59          register object *sup=base+VM59; VC59
4273          vs_check;          vs_check;
4274          {object V768;          {object V829;
4275          check_arg(1);          check_arg(1);
4276          V768=(base[0]);          V829=(base[0]);
4277          vs_top=sup;          vs_top=sup;
4278          goto TTL;          goto TTL;
4279  TTL:;  TTL:;
4280          if(type_of((V768))==t_fixnum||          if(type_of((V829))==t_fixnum||
4281  type_of((V768))==t_bignum||  type_of((V829))==t_bignum||
4282  type_of((V768))==t_ratio||  type_of((V829))==t_ratio||
4283  type_of((V768))==t_shortfloat||  type_of((V829))==t_shortfloat||
4284  type_of((V768))==t_longfloat||  type_of((V829))==t_longfloat||
4285  type_of((V768))==t_complex){  type_of((V829))==t_complex){
4286          goto T1455;}          goto T1455;}
4287          if(!(type_of((V768))==t_character)){          if(!(type_of((V829))==t_character)){
4288          goto T1456;}          goto T1456;}
4289          goto T1455;          goto T1455;
4290  T1455:;  T1455:;
4291          base[1]= (V768);          base[1]= (V829);
4292          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4293          return;          return;
4294          goto T1456;          goto T1456;
4295  T1456:;  T1456:;
4296          if(!(type_of((V768))==t_symbol)){          if(!(type_of((V829))==t_symbol)){
4297          goto T1461;}          goto T1461;}
4298          base[1]= (V768);          base[1]= (V829);
4299          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4300          Lsymbol_package();          Lsymbol_package();
4301          vs_top=sup;          vs_top=sup;
4302          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4303          goto T1461;}          goto T1461;}
4304          base[1]= list(2,VV[4],(V768));          base[1]= list(2,VV[4],(V829));
4305          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4306          return;          return;
4307          goto T1461;          goto T1461;
4308  T1461:;  T1461:;
4309          base[1]= list(3,VV[201],VV[202],(*(LnkLI309))(base0[0],(V768)));          base[1]= list(3,VV[201],VV[202],(*(LnkLI309))(base0[0],(V829)));
4310          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4311          return;          return;
4312          }          }
# Line 4257  register object *base0; Line 4318  register object *base0;
4318  {       register object *base=vs_base;  {       register object *base=vs_base;
4319          register object *sup=base+VM60; VC60          register object *sup=base+VM60; VC60
4320          vs_check;          vs_check;
4321          {object V769;          {object V830;
4322          object V770;          object V831;
4323          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
4324          V769=(base[0]);          V830=(base[0]);
4325          vs_base=vs_base+1;          vs_base=vs_base+1;
4326          vs_top[0]=Cnil;          vs_top[0]=Cnil;
4327          {object *p=vs_top;          {object *p=vs_top;
4328           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
4329          V770=(base[1]);          V831=(base[1]);
4330          vs_top=sup;          vs_top=sup;
4331          {object V771;          {object V832;
4332          if(((base0[3]->c.c_car))==Cnil){          if(((base0[3]->c.c_car))==Cnil){
4333          goto T1468;}          goto T1468;}
4334          V771= (VFUN_NARGS=2,(*(LnkLI310))((base0[4]->c.c_car),(base0[3]->c.c_car)));          V832= (VFUN_NARGS=2,(*(LnkLI310))((base0[4]->c.c_car),(base0[3]->c.c_car)));
4335          goto T1466;          goto T1466;
4336          goto T1468;          goto T1468;
4337  T1468:;  T1468:;
4338          V771= (V769);          V832= (V830);
4339          goto T1466;          goto T1466;
4340  T1466:;  T1466:;
4341          if(!(((V771))==((V769)))){          if(!(((V832))==((V830)))){
4342          goto T1470;}          goto T1470;}
4343          if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
4344          goto T1471;}          goto T1471;}
4345          goto T1470;          goto T1470;
4346  T1470:;  T1470:;
4347          base[2]= (V771);          base[2]= (V832);
4348          base[3]= (V770);          base[3]= (V831);
4349          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4350          (void) (*Lnk124)();          (void) (*Lnk124)();
4351          return;          return;
4352          goto T1471;          goto T1471;
4353  T1471:;  T1471:;
4354          {register object V772;          {register object V833;
4355          register object V773;          register object V834;
4356          {register object V774;          {register object V835;
4357          V774= (base0[6]->c.c_car);          V835= (base0[6]->c.c_car);
4358          if(!(type_of((V774))==t_cons)){          if(!(type_of((V835))==t_cons)){
4359          goto T1479;}          goto T1479;}
4360          if(!((CMPcar((V774)))==(VV[130]))){          if(!((CMPcar((V835)))==(VV[130]))){
4361          goto T1479;}          goto T1479;}
4362          V772= (*(LnkLI111))(CMPcadr((V774)),CMPcaddr((V774)),Cnil,(V770));          V833= (*(LnkLI111))(CMPcadr((V835)),CMPcaddr((V835)),Cnil,(V831));
4363          goto T1477;          goto T1477;
4364          goto T1479;          goto T1479;
4365  T1479:;  T1479:;
4366          V772= (          V833= (
4367          (type_of((V774)) == t_sfun ?(*(((V774))->sfn.sfn_self)):          (type_of((V835)) == t_sfun ?(*(((V835))->sfn.sfn_self)):
4368          (fcall.argd=2,type_of((V774))==t_vfun) ?          (fcall.argd=2,type_of((V835))==t_vfun) ?
4369          (*(((V774))->sfn.sfn_self)):          (*(((V835))->sfn.sfn_self)):
4370          (fcall.fun=((V774)),fcalln))(Cnil,(V770)));}          (fcall.fun=((V835)),fcalln))(Cnil,(V831)));}
4371          goto T1477;          goto T1477;
4372  T1477:;  T1477:;
4373          base[4]=VV[96]->s.s_gfdef;          base[4]=VV[96]->s.s_gfdef;
4374          base[5]= (base0[7]->c.c_car);          base[5]= (base0[7]->c.c_car);
4375          {object V775;          {object V836;
4376          V775= (V772);          V836= (V833);
4377           vs_top=base+6;           vs_top=base+6;
4378           while(V775!=Cnil)           while(V836!=Cnil)
4379           {vs_push((V775)->c.c_car);V775=(V775)->c.c_cdr;}           {vs_push((V836)->c.c_car);V836=(V836)->c.c_cdr;}
4380          vs_base=base+5;}          vs_base=base+5;}
4381          (void) (*Lnk96)(Lclptr96);          (void) (*Lnk96)(Lclptr96);
4382          vs_top=sup;          vs_top=sup;
4383          V773= vs_base[0];          V834= vs_base[0];
4384          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
4385          base[5]= VV[131];          base[5]= VV[131];
4386          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 4328  T1477:; Line 4389  T1477:;
4389          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4390          goto T1489;}          goto T1489;}
4391          (void)((          (void)((
4392          V776 = STREF(object,(base0[0]->c.c_car),0),          V837 = STREF(object,(base0[0]->c.c_car),0),
4393          (type_of(V776) == t_sfun ?(*((V776)->sfn.sfn_self)):          (type_of(V837) == t_sfun ?(*((V837)->sfn.sfn_self)):
4394          (fcall.argd=4,type_of(V776)==t_vfun) ?          (fcall.argd=4,type_of(V837)==t_vfun) ?
4395          (*((V776)->sfn.sfn_self)):          (*((V837)->sfn.sfn_self)):
4396          (fcall.fun=(V776),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V773),(V772))));          (fcall.fun=(V837),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V834),(V833))));
4397          goto T1486;          goto T1486;
4398          goto T1489;          goto T1489;
4399  T1489:;  T1489:;
4400          {register object V777;          {register object V838;
4401          V777= (base0[0]->c.c_car);          V838= (base0[0]->c.c_car);
4402          base[4]= (V777);          base[4]= (V838);
4403          base[5]= VV[132];          base[5]= VV[132];
4404          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4405          (void) (*Lnk311)();          (void) (*Lnk311)();
4406          vs_top=sup;          vs_top=sup;
4407          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4408          goto T1494;}          goto T1494;}
4409          {object V778;          {object V839;
4410          object V779;          object V840;
4411          register object V780;          register object V841;
4412          V778= STREF(object,(base0[0]->c.c_car),0);          V839= STREF(object,(base0[0]->c.c_car),0);
4413          V779= make_cons((V773),(V772));          V840= make_cons((V834),(V833));
4414          V780= STREF(object,(base0[0]->c.c_car),4);          V841= STREF(object,(base0[0]->c.c_car),4);
4415          if(((V780))==Cnil){          if(((V841))==Cnil){
4416          goto T1502;}          goto T1502;}
4417          if((CMPcdr((V780)))!=Cnil){          if((CMPcdr((V841)))!=Cnil){
4418          goto T1502;}          goto T1502;}
4419          (void)((          (void)((
4420          (type_of((V778)) == t_sfun ?(*(((V778))->sfn.sfn_self)):          (type_of((V839)) == t_sfun ?(*(((V839))->sfn.sfn_self)):
4421          (fcall.argd=2,type_of((V778))==t_vfun) ?          (fcall.argd=2,type_of((V839))==t_vfun) ?
4422          (*(((V778))->sfn.sfn_self)):          (*(((V839))->sfn.sfn_self)):
4423          (fcall.fun=((V778)),fcalln))((V779),CMPcar((V780)))));          (fcall.fun=((V839)),fcalln))((V840),CMPcar((V841)))));
4424          goto T1486;          goto T1486;
4425          goto T1502;          goto T1502;
4426  T1502:;  T1502:;
4427          base[4]= (V778);          base[4]= (V839);
4428          base[5]= (V779);          base[5]= (V840);
4429          {object V781;          {object V842;
4430          V781= (V780);          V842= (V841);
4431           vs_top=base+6;           vs_top=base+6;
4432           while(V781!=Cnil)           while(V842!=Cnil)
4433           {vs_push((V781)->c.c_car);V781=(V781)->c.c_cdr;}           {vs_push((V842)->c.c_car);V842=(V842)->c.c_cdr;}
4434          vs_base=base+5;}          vs_base=base+5;}
4435          {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))
4436                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4379  T1502:; Line 4440  T1502:;
4440          goto T1486;}          goto T1486;}
4441          goto T1494;          goto T1494;
4442  T1494:;  T1494:;
4443          base[4]= (V777);          base[4]= (V838);
4444          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4445          Lfunctionp();          Lfunctionp();
4446          vs_top=sup;          vs_top=sup;
4447          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4448          goto T1510;}          goto T1510;}
4449          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
4450          base[5]= (V773);          base[5]= (V834);
4451          {object V782;          {object V843;
4452          V782= (V772);          V843= (V833);
4453           vs_top=base+6;           vs_top=base+6;
4454           while(V782!=Cnil)           while(V843!=Cnil)
4455           {vs_push((V782)->c.c_car);V782=(V782)->c.c_cdr;}           {vs_push((V843)->c.c_car);V843=(V843)->c.c_cdr;}
4456          vs_base=base+5;}          vs_base=base+5;}
4457          {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))
4458                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4402  T1494:; Line 4463  T1494:;
4463          goto T1510;          goto T1510;
4464  T1510:;  T1510:;
4465          base[5]= VV[97];          base[5]= VV[97];
4466          base[6]= (V777);          base[6]= (V838);
4467          base[7]= VV[144];          base[7]= VV[144];
4468          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
4469          (void) (*Lnk312)();          (void) (*Lnk312)();
# Line 4413  T1510:; Line 4474  T1510:;
4474          vs_top=sup;}          vs_top=sup;}
4475          goto T1486;          goto T1486;
4476  T1486:;  T1486:;
4477          base[4]= (V773);          base[4]= (V834);
4478          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4479          return;}}          return;}}
4480          }          }
# Line 4425  register object *base0; Line 4486  register object *base0;
4486  {       register object *base=vs_base;  {       register object *base=vs_base;
4487          register object *sup=base+VM61; VC61          register object *sup=base+VM61; VC61
4488          vs_check;          vs_check;
4489          {object V783;          {object V844;
4490          object V784;          object V845;
4491          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
4492          V783=(base[0]);          V844=(base[0]);
4493          vs_base=vs_base+1;          vs_base=vs_base+1;
4494          vs_top[0]=Cnil;          vs_top[0]=Cnil;
4495          {object *p=vs_top;          {object *p=vs_top;
4496           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
4497          V784=(base[1]);          V845=(base[1]);
4498          vs_top=sup;          vs_top=sup;
4499          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
4500          base[3]= VV[131];          base[3]= VV[131];
# Line 4445  register object *base0; Line 4506  register object *base0;
4506          base[2]= STREF(object,(base0[0]->c.c_car),0);          base[2]= STREF(object,(base0[0]->c.c_car),0);
4507          base[3]= STREF(object,(base0[0]->c.c_car),4);          base[3]= STREF(object,(base0[0]->c.c_car),4);
4508          base[4]= STREF(object,(base0[0]->c.c_car),8);          base[4]= STREF(object,(base0[0]->c.c_car),8);
4509          base[5]= (V783);          base[5]= (V844);
4510          base[6]= Ct;          base[6]= Ct;
4511          base[7]= (V784);          base[7]= (V845);
4512          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
4513          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4514                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4456  register object *base0; Line 4517  register object *base0;
4517          return;          return;
4518          goto T1522;          goto T1522;
4519  T1522:;  T1522:;
4520          {register object V785;          {register object V846;
4521          V785= (base0[0]->c.c_car);          V846= (base0[0]->c.c_car);
4522          base[2]= (V785);          base[2]= (V846);
4523          base[3]= VV[132];          base[3]= VV[132];
4524          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4525          (void) (*Lnk311)();          (void) (*Lnk311)();
4526          vs_top=sup;          vs_top=sup;
4527          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4528          goto T1533;}          goto T1533;}
4529          {object V786;          {object V847;
4530          object V787;          object V848;
4531          register object V788;          register object V849;
4532          V786= STREF(object,(base0[0]->c.c_car),0);          V847= STREF(object,(base0[0]->c.c_car),0);
4533          V787= listA(3,(V783),Ct,(V784));          V848= listA(3,(V844),Ct,(V845));
4534          V788= STREF(object,(base0[0]->c.c_car),4);          V849= STREF(object,(base0[0]->c.c_car),4);
4535          if(((V788))==Cnil){          if(((V849))==Cnil){
4536          goto T1541;}          goto T1541;}
4537          if((CMPcdr((V788)))!=Cnil){          if((CMPcdr((V849)))!=Cnil){
4538          goto T1541;}          goto T1541;}
4539          base[2]= (V787);          base[2]= (V848);
4540          base[3]= CMPcar((V788));          base[3]= CMPcar((V849));
4541          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4542          {object _funobj = (V786);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V847);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4543                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4544                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4545                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4546          return;          return;
4547          goto T1541;          goto T1541;
4548  T1541:;  T1541:;
4549          base[2]= (V786);          base[2]= (V847);
4550          base[3]= (V787);          base[3]= (V848);
4551          {object V789;          {object V850;
4552          V789= (V788);          V850= (V849);
4553           vs_top=base+4;           vs_top=base+4;
4554           while(V789!=Cnil)           while(V850!=Cnil)
4555           {vs_push((V789)->c.c_car);V789=(V789)->c.c_cdr;}           {vs_push((V850)->c.c_car);V850=(V850)->c.c_cdr;}
4556          vs_base=base+3;}          vs_base=base+3;}
4557          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4558                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4500  T1541:; Line 4561  T1541:;
4561          return;}          return;}
4562          goto T1533;          goto T1533;
4563  T1533:;  T1533:;
4564          base[2]= (V785);          base[2]= (V846);
4565          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4566          Lfunctionp();          Lfunctionp();
4567          vs_top=sup;          vs_top=sup;
4568          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4569          goto T1551;}          goto T1551;}
4570          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
4571          base[3]= (V783);          base[3]= (V844);
4572          base[4]= Ct;          base[4]= Ct;
4573          {object V790;          {object V851;
4574          V790= (V784);          V851= (V845);
4575           vs_top=base+5;           vs_top=base+5;
4576           while(V790!=Cnil)           while(V851!=Cnil)
4577           {vs_push((V790)->c.c_car);V790=(V790)->c.c_cdr;}           {vs_push((V851)->c.c_car);V851=(V851)->c.c_cdr;}
4578          vs_base=base+3;}          vs_base=base+3;}
4579          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4580                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4523  T1533:; Line 4584  T1533:;
4584          goto T1551;          goto T1551;
4585  T1551:;  T1551:;
4586          base[3]= VV[98];          base[3]= VV[98];
4587          base[4]= (V785);          base[4]= (V846);
4588          base[5]= VV[143];          base[5]= VV[143];
4589          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4590          (void) (*Lnk312)();          (void) (*Lnk312)();
# Line 4541  register object *base0; Line 4602  register object *base0;
4602  {       register object *base=vs_base;  {       register object *base=vs_base;
4603          register object *sup=base+VM62; VC62          register object *sup=base+VM62; VC62
4604          vs_check;          vs_check;
4605          {object V791;          {object V852;
4606          object V792;          object V853;
4607          object V793;          object V854;
4608          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
4609          V791=(base[0]);          V852=(base[0]);
4610          V792=(base[1]);          V853=(base[1]);
4611          vs_base=vs_base+2;          vs_base=vs_base+2;
4612          vs_top[0]=Cnil;          vs_top[0]=Cnil;
4613          {object *p=vs_top;          {object *p=vs_top;
4614           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
4615          V793=(base[2]);          V854=(base[2]);
4616          vs_top=sup;          vs_top=sup;
4617          {register object V794;          {register object V855;
4618          V794= (base0[3]->c.c_car);          V855= (base0[3]->c.c_car);
4619          if(!(type_of((V794))==t_cons)){          if(!(type_of((V855))==t_cons)){
4620          goto T1564;}          goto T1564;}
4621          if(!((CMPcar((V794)))==(VV[130]))){          if(!((CMPcar((V855)))==(VV[130]))){
4622          goto T1564;}          goto T1564;}
4623          (void)((*(LnkLI111))(CMPcadr((V794)),CMPcaddr((V794)),(V791),(V793)));          (void)((*(LnkLI111))(CMPcadr((V855)),CMPcaddr((V855)),(V852),(V854)));
4624          goto T1562;          goto T1562;
4625          goto T1564;          goto T1564;
4626  T1564:;  T1564:;
4627          (void)((          (void)((
4628          (type_of((V794)) == t_sfun ?(*(((V794))->sfn.sfn_self)):          (type_of((V855)) == t_sfun ?(*(((V855))->sfn.sfn_self)):
4629          (fcall.argd=2,type_of((V794))==t_vfun) ?          (fcall.argd=2,type_of((V855))==t_vfun) ?
4630          (*(((V794))->sfn.sfn_self)):          (*(((V855))->sfn.sfn_self)):
4631          (fcall.fun=((V794)),fcalln))((V791),(V793))));}          (fcall.fun=((V855)),fcalln))((V852),(V854))));}
4632          goto T1562;          goto T1562;
4633  T1562:;  T1562:;
4634          base[3]= (V791);          base[3]= (V852);
4635          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4636          return;          return;
4637          }          }
# Line 4582  register object *base0; Line 4643  register object *base0;
4643  {       register object *base=vs_base;  {       register object *base=vs_base;
4644          register object *sup=base+VM63; VC63          register object *sup=base+VM63; VC63
4645          vs_check;          vs_check;
4646          {object V795;          {object V856;
4647          object V796;          object V857;
4648          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
4649          V795=(base[0]);          V856=(base[0]);
4650          vs_base=vs_base+1;          vs_base=vs_base+1;
4651          vs_top[0]=Cnil;          vs_top[0]=Cnil;
4652          {object *p=vs_top;          {object *p=vs_top;
4653           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
4654          V796=(base[1]);          V857=(base[1]);
4655          vs_top=sup;          vs_top=sup;
4656          {object V797;          {object V858;
4657          if(((base0[6]->c.c_car))==Cnil){          if(((base0[6]->c.c_car))==Cnil){
4658          goto T1570;}          goto T1570;}
4659          V797= (VFUN_NARGS=2,(*(LnkLI310))((base0[7]->c.c_car),(base0[6]->c.c_car)));          V858= (VFUN_NARGS=2,(*(LnkLI310))((base0[7]->c.c_car),(base0[6]->c.c_car)));
4660          goto T1568;          goto T1568;
4661          goto T1570;          goto T1570;
4662  T1570:;  T1570:;
4663          V797= (V795);          V858= (V856);
4664          goto T1568;          goto T1568;
4665  T1568:;  T1568:;
4666          if(!(((V797))==((V795)))){          if(!(((V858))==((V856)))){
4667          goto T1572;}          goto T1572;}
4668          if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
4669          goto T1573;}          goto T1573;}
4670          goto T1572;          goto T1572;
4671  T1572:;  T1572:;
4672          base[2]= (V797);          base[2]= (V858);
4673          base[3]= (V796);          base[3]= (V857);
4674          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4675          (void) (*Lnk124)();          (void) (*Lnk124)();
4676          return;          return;
4677          goto T1573;          goto T1573;
4678  T1573:;  T1573:;
4679          {register object V798;          {register object V859;
4680          object V799;          object V860;
4681          V798= (          V859= (
4682          (type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)):          (type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)):
4683          (fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ?          (fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ?
4684          (*(((base0[4]->c.c_car))->sfn.sfn_self)):          (*(((base0[4]->c.c_car))->sfn.sfn_self)):
4685          (fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car)));          (fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car)));
4686          {object V800;          {object V861;
4687          V800= (base0[1]->c.c_car);          V861= (base0[1]->c.c_car);
4688          if(!(type_of((V800))==t_cons)){          if(!(type_of((V861))==t_cons)){
4689          goto T1582;}          goto T1582;}
4690          if(!((CMPcar((V800)))==(VV[130]))){          if(!((CMPcar((V861)))==(VV[130]))){
4691          goto T1582;}          goto T1582;}
4692          V799= (*(LnkLI111))(CMPcadr((V800)),CMPcaddr((V800)),(V798),(V796));          V860= (*(LnkLI111))(CMPcadr((V861)),CMPcaddr((V861)),(V859),(V857));
4693          goto T1580;          goto T1580;
4694          goto T1582;          goto T1582;
4695  T1582:;  T1582:;
4696          V799= (          V860= (
4697          (type_of((V800)) == t_sfun ?(*(((V800))->sfn.sfn_self)):          (type_of((V861)) == t_sfun ?(*(((V861))->sfn.sfn_self)):
4698          (fcall.argd=2,type_of((V800))==t_vfun) ?          (fcall.argd=2,type_of((V861))==t_vfun) ?
4699          (*(((V800))->sfn.sfn_self)):          (*(((V861))->sfn.sfn_self)):
4700          (fcall.fun=((V800)),fcalln))((V798),(V796)));}          (fcall.fun=((V861)),fcalln))((V859),(V857)));}
4701          goto T1580;          goto T1580;
4702  T1580:;  T1580:;
4703          {object V801;          {object V862;
4704          register object V802;          register object V863;
4705          V801= (base0[3]->c.c_car);          V862= (base0[3]->c.c_car);
4706          V802= CMPcar((V801));          V863= CMPcar((V862));
4707          goto T1590;          goto T1590;
4708  T1590:;  T1590:;
4709          if(!(((V801))==Cnil)){          if(!(((V862))==Cnil)){
4710          goto T1591;}          goto T1591;}
4711          goto T1586;          goto T1586;
4712          goto T1591;          goto T1591;
4713  T1591:;  T1591:;
4714          base[5]= (V802);          base[5]= (V863);
4715          base[6]= VV[131];          base[6]= VV[131];
4716          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4717          (void) (*Lnk311)();          (void) (*Lnk311)();
# Line 4658  T1591:; Line 4719  T1591:;
4719          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4720          goto T1598;}          goto T1598;}
4721          (void)((          (void)((
4722          V803 = STREF(object,(V802),0),          V864 = STREF(object,(V863),0),
4723          (type_of(V803) == t_sfun ?(*((V803)->sfn.sfn_self)):          (type_of(V864) == t_sfun ?(*((V864)->sfn.sfn_self)):
4724          (fcall.argd=5,type_of(V803)==t_vfun) ?          (fcall.argd=5,type_of(V864)==t_vfun) ?
4725          (*((V803)->sfn.sfn_self)):          (*((V864)->sfn.sfn_self)):
4726          (fcall.fun=(V803),fcalln))(STREF(object,(V802),4),STREF(object,(V802),8),(V798),Ct,(V799))));          (fcall.fun=(V864),fcalln))(STREF(object,(V863),4),STREF(object,(V863),8),(V859),Ct,(V860))));
4727          goto T1595;          goto T1595;
4728          goto T1598;          goto T1598;
4729  T1598:;  T1598:;
4730          base[5]= V802;          base[5]= V863;
4731          base[6]= VV[132];          base[6]= VV[132];
4732          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4733          (void) (*Lnk311)();          (void) (*Lnk311)();
4734          vs_top=sup;          vs_top=sup;
4735          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4736          goto T1603;}          goto T1603;}
4737          {object V805;          {object V866;
4738          object V806;          object V867;
4739          object V807;          object V868;
4740          V805= STREF(object,(V802),0);          V866= STREF(object,(V863),0);
4741          V806= listA(3,(V798),Ct,(V799));          V867= listA(3,(V859),Ct,(V860));
4742          V807= STREF(object,(V802),4);          V868= STREF(object,(V863),4);
4743          if(((V807))==Cnil){          if(((V868))==Cnil){
4744          goto T1611;}          goto T1611;}
4745          if((CMPcdr((V807)))!=Cnil){          if((CMPcdr((V868)))!=Cnil){
4746          goto T1611;}          goto T1611;}
4747          (void)((          (void)((
4748          (type_of((V805)) == t_sfun ?(*(((V805))->sfn.sfn_self)):          (type_of((V866)) == t_sfun ?(*(((V866))->sfn.sfn_self)):
4749          (fcall.argd=2,type_of((V805))==t_vfun) ?          (fcall.argd=2,type_of((V866))==t_vfun) ?
4750          (*(((V805))->sfn.sfn_self)):          (*(((V866))->sfn.sfn_self)):
4751          (fcall.fun=((V805)),fcalln))((V806),CMPcar((V807)))));          (fcall.fun=((V866)),fcalln))((V867),CMPcar((V868)))));
4752          goto T1595;          goto T1595;
4753          goto T1611;          goto T1611;
4754  T1611:;  T1611:;
4755          base[5]= (V805);          base[5]= (V866);
4756          base[6]= (V806);          base[6]= (V867);
4757          {object V808;          {object V869;
4758          V808= (V807);          V869= (V868);
4759           vs_top=base+7;           vs_top=base+7;
4760           while(V808!=Cnil)           while(V869!=Cnil)
4761           {vs_push((V808)->c.c_car);V808=(V808)->c.c_cdr;}           {vs_push((V869)->c.c_car);V869=(V869)->c.c_cdr;}
4762          vs_base=base+6;}          vs_base=base+6;}
4763          {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))
4764                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4707  T1611:; Line 4768  T1611:;
4768          goto T1595;}          goto T1595;}
4769          goto T1603;          goto T1603;
4770  T1603:;  T1603:;
4771          base[5]= V802;          base[5]= V863;
4772          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4773          Lfunctionp();          Lfunctionp();
4774          vs_top=sup;          vs_top=sup;
4775          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4776          goto T1619;}          goto T1619;}
4777          base[5]= (V802);          base[5]= (V863);
4778          base[6]= (V798);          base[6]= (V859);
4779          base[7]= Ct;          base[7]= Ct;
4780          {object V809;          {object V870;
4781          V809= (V799);          V870= (V860);
4782           vs_top=base+8;           vs_top=base+8;
4783           while(V809!=Cnil)           while(V870!=Cnil)
4784           {vs_push((V809)->c.c_car);V809=(V809)->c.c_cdr;}           {vs_push((V870)->c.c_car);V870=(V870)->c.c_cdr;}
4785          vs_base=base+6;}          vs_base=base+6;}
4786          {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))
4787                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4731  T1603:; Line 4792  T1603:;
4792          goto T1619;          goto T1619;
4793  T1619:;  T1619:;
4794          base[6]= VV[133];          base[6]= VV[133];
4795          base[7]= V802;          base[7]= V863;
4796          base[8]= VV[136];          base[8]= VV[136];
4797          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
4798          (void) (*Lnk312)();          (void) (*Lnk312)();
# Line 4742  T1619:; Line 4803  T1619:;
4803          vs_top=sup;          vs_top=sup;
4804          goto T1595;          goto T1595;
4805  T1595:;  T1595:;
4806          V801= CMPcdr((V801));          V862= CMPcdr((V862));
4807          V802= CMPcar((V801));          V863= CMPcar((V862));
4808          goto T1590;}          goto T1590;}
4809          goto T1586;          goto T1586;
4810  T1586:;  T1586:;
4811          {object V810;          {object V871;
4812          register object V811;          register object V872;
4813          V810= (base0[2]->c.c_car);          V871= (base0[2]->c.c_car);
4814          V811= CMPcar((V810));          V872= CMPcar((V871));
4815          goto T1639;          goto T1639;
4816  T1639:;  T1639:;
4817          if(!(((V810))==Cnil)){          if(!(((V871))==Cnil)){
4818          goto T1640;}          goto T1640;}
4819          goto T1635;          goto T1635;
4820          goto T1640;          goto T1640;
4821  T1640:;  T1640:;
4822          base[5]= (V811);          base[5]= (V872);
4823          base[6]= VV[131];          base[6]= VV[131];
4824          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4825          (void) (*Lnk311)();          (void) (*Lnk311)();
# Line 4766  T1640:; Line 4827  T1640:;
4827          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4828          goto T1647;}          goto T1647;}
4829          (void)((          (void)((
4830          V812 = STREF(object,(V811),0),          V873 = STREF(object,(V872),0),
4831          (type_of(V812) == t_sfun ?(*((V812)->sfn.sfn_self)):          (type_of(V873) == t_sfun ?(*((V873)->sfn.sfn_self)):
4832          (fcall.argd=4,type_of(V812)==t_vfun) ?          (fcall.argd=4,type_of(V873)==t_vfun) ?
4833          (*((V812)->sfn.sfn_self)):          (*((V873)->sfn.sfn_self)):
4834          (fcall.fun=(V812),fcalln))(STREF(object,(V811),4),STREF(object,(V811),8),(V798),(V799))));          (fcall.fun=(V873),fcalln))(STREF(object,(V872),4),STREF(object,(V872),8),(V859),(V860))));
4835          goto T1644;          goto T1644;
4836          goto T1647;          goto T1647;
4837  T1647:;  T1647:;
4838          base[5]= V811;          base[5]= V872;
4839          base[6]= VV[132];          base[6]= VV[132];
4840          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
4841          (void) (*Lnk311)();          (void) (*Lnk311)();
4842          vs_top=sup;          vs_top=sup;
4843          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4844          goto T1652;}          goto T1652;}
4845          {object V814;          {object V875;
4846          object V815;          object V876;
4847          object V816;          object V877;
4848          V814= STREF(object,(V811),0);          V875= STREF(object,(V872),0);
4849          V815= make_cons((V798),(V799));          V876= make_cons((V859),(V860));
4850          V816= STREF(object,(V811),4);          V877= STREF(object,(V872),4);
4851          if(((V816))==Cnil){          if(((V877))==Cnil){
4852          goto T1660;}          goto T1660;}
4853          if((CMPcdr((V816)))!=Cnil){          if((CMPcdr((V877)))!=Cnil){
4854          goto T1660;}          goto T1660;}
4855          (void)((          (void)((
4856          (type_of((V814)) == t_sfun ?(*(((V814))->sfn.sfn_self)):          (type_of((V875)) == t_sfun ?(*(((V875))->sfn.sfn_self)):
4857          (fcall.argd=2,type_of((V814))==t_vfun) ?          (fcall.argd=2,type_of((V875))==t_vfun) ?
4858          (*(((V814))->sfn.sfn_self)):          (*(((V875))->sfn.sfn_self)):
4859          (fcall.fun=((V814)),fcalln))((V815),CMPcar((V816)))));          (fcall.fun=((V875)),fcalln))((V876),CMPcar((V877)))));
4860          goto T1644;          goto T1644;
4861          goto T1660;          goto T1660;
4862  T1660:;  T1660:;
4863          base[5]= (V814);          base[5]= (V875);
4864          base[6]= (V815);          base[6]= (V876);
4865          {object V817;          {object V878;
4866          V817= (V816);          V878= (V877);
4867           vs_top=base+7;           vs_top=base+7;
4868           while(V817!=Cnil)           while(V878!=Cnil)
4869           {vs_push((V817)->c.c_car);V817=(V817)->c.c_cdr;}           {vs_push((V878)->c.c_car);V878=(V878)->c.c_cdr;}
4870          vs_base=base+6;}          vs_base=base+6;}
4871          {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))
4872                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4815  T1660:; Line 4876  T1660:;
4876          goto T1644;}          goto T1644;}
4877          goto T1652;          goto T1652;
4878  T1652:;  T1652:;
4879          base[5]= V811;          base[5]= V872;
4880          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
4881          Lfunctionp();          Lfunctionp();
4882          vs_top=sup;          vs_top=sup;
4883          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4884          goto T1668;}          goto T1668;}
4885          base[5]= (V811);          base[5]= (V872);
4886          base[6]= (V798);          base[6]= (V859);
4887          {object V818;          {object V879;
4888          V818= (V799);          V879= (V860);
4889           vs_top=base+7;           vs_top=base+7;
4890           while(V818!=Cnil)           while(V879!=Cnil)
4891           {vs_push((V818)->c.c_car);V818=(V818)->c.c_cdr;}           {vs_push((V879)->c.c_car);V879=(V879)->c.c_cdr;}
4892          vs_base=base+6;}          vs_base=base+6;}
4893          {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))
4894                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4838  T1652:; Line 4899  T1652:;
4899          goto T1668;          goto T1668;
4900  T1668:;  T1668:;
4901          base[6]= VV[133];          base[6]= VV[133];
4902          base[7]= V811;          base[7]= V872;
4903          base[8]= VV[137];          base[8]= VV[137];
4904          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
4905          (void) (*Lnk312)();          (void) (*Lnk312)();
# Line 4849  T1668:; Line 4910  T1668:;
4910          vs_top=sup;          vs_top=sup;
4911          goto T1644;          goto T1644;
4912  T1644:;  T1644:;
4913          V810= CMPcdr((V810));          V871= CMPcdr((V871));
4914          V811= CMPcar((V810));          V872= CMPcar((V871));
4915          goto T1639;}          goto T1639;}
4916          goto T1635;          goto T1635;
4917  T1635:;  T1635:;
4918          base[4]= (V798);          base[4]= (V859);
4919          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4920          return;}}          return;}}
4921          }          }
# Line 4866  register object *base0; Line 4927  register object *base0;
4927  {       register object *base=vs_base;  {       register object *base=vs_base;
4928          register object *sup=base+VM64; VC64          register object *sup=base+VM64; VC64
4929          vs_check;          vs_check;
4930          {object V819;          {object V880;
4931          register object V820;          register object V881;
4932          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
4933          V819=(base[0]);          V880=(base[0]);
4934          vs_base=vs_base+1;          vs_base=vs_base+1;
4935          vs_top[0]=Cnil;          vs_top[0]=Cnil;
4936          {object *p=vs_top;          {object *p=vs_top;
4937           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
4938          V820=(base[1]);          V881=(base[1]);
4939          vs_top=sup;          vs_top=sup;
4940          {object V821;          {object V882;
4941          if(((base0[6]->c.c_car))==Cnil){          if(((base0[6]->c.c_car))==Cnil){
4942          goto T1685;}          goto T1685;}
4943          V821= (VFUN_NARGS=2,(*(LnkLI310))((base0[7]->c.c_car),(base0[6]->c.c_car)));          V882= (VFUN_NARGS=2,(*(LnkLI310))((base0[7]->c.c_car),(base0[6]->c.c_car)));
4944          goto T1683;          goto T1683;
4945          goto T1685;          goto T1685;
4946  T1685:;  T1685:;
4947          V821= (V819);          V882= (V880);
4948          goto T1683;          goto T1683;
4949  T1683:;  T1683:;
4950          if(!(((V821))==((V819)))){          if(!(((V882))==((V880)))){
4951          goto T1687;}          goto T1687;}
4952          if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){          if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){
4953          goto T1688;}          goto T1688;}
4954          goto T1687;          goto T1687;
4955  T1687:;  T1687:;
4956          base[2]= (V821);          base[2]= (V882);
4957          base[3]= (V820);          base[3]= (V881);
4958          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
4959          (void) (*Lnk124)();          (void) (*Lnk124)();
4960          return;          return;
4961          goto T1688;          goto T1688;
4962  T1688:;  T1688:;
4963          {register object V822;          {register object V883;
4964          {object V823;          {object V884;
4965          V823= (*(LnkLI313))();          V884= (*(LnkLI313))();
4966          V824= Ct;          V885 = (V884);
4967          STSET(object,(V823),0, (base0[5]->c.c_car));          V886 = (base0[5]->c.c_car);
4968          (void)((base0[5]->c.c_car));          V887= Ct;
4969            STSET(object,V885,0, V886);
4970            (void)(V886);
4971            V888 = (V884);
4972          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
4973          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4974          Lcopy_seq();          Lcopy_seq();
4975          vs_top=sup;          vs_top=sup;
4976          V825= vs_base[0];          V889= vs_base[0];
4977          V826= Ct;          V890= Ct;
4978          STSET(object,(V823),4, V825);          STSET(object,V888,4, V889);
4979          (void)(V825);          (void)(V889);
4980          V822= (V823);}          V883= (V884);}
4981          {object V827;          {object V891;
4982          V827= (base0[1]->c.c_car);          V891= (base0[1]->c.c_car);
4983          if(!(type_of((V827))==t_cons)){          if(!(type_of((V891))==t_cons)){
4984          goto T1702;}          goto T1702;}
4985          if(!((CMPcar((V827)))==(VV[130]))){          if(!((CMPcar((V891)))==(VV[130]))){
4986          goto T1702;}          goto T1702;}
4987          (void)((*(LnkLI111))(CMPcadr((V827)),CMPcaddr((V827)),(V822),(V820)));          (void)((*(LnkLI111))(CMPcadr((V891)),CMPcaddr((V891)),(V883),(V881)));
4988          goto T1700;          goto T1700;
4989          goto T1702;          goto T1702;
4990  T1702:;  T1702:;
4991          (void)((          (void)((
4992          (type_of((V827)) == t_sfun ?(*(((V827))->sfn.sfn_self)):          (type_of((V891)) == t_sfun ?(*(((V891))->sfn.sfn_self)):
4993          (fcall.argd=2,type_of((V827))==t_vfun) ?          (fcall.argd=2,type_of((V891))==t_vfun) ?
4994          (*(((V827))->sfn.sfn_self)):          (*(((V891))->sfn.sfn_self)):
4995          (fcall.fun=((V827)),fcalln))((V822),(V820))));}          (fcall.fun=((V891)),fcalln))((V883),(V881))));}
4996          goto T1700;          goto T1700;
4997  T1700:;  T1700:;
4998          {object V828;          {object V892;
4999          register object V829;          register object V893;
5000          V828= (base0[3]->c.c_car);          V892= (base0[3]->c.c_car);
5001          V829= CMPcar((V828));          V893= CMPcar((V892));
5002          goto T1710;          goto T1710;
5003  T1710:;  T1710:;
5004          if(!(((V828))==Cnil)){          if(!(((V892))==Cnil)){
5005          goto T1711;}          goto T1711;}
5006          goto T1706;          goto T1706;
5007          goto T1711;          goto T1711;
5008  T1711:;  T1711:;
5009          base[3]= (V829);          base[3]= (V893);
5010          base[4]= VV[131];          base[4]= VV[131];
5011          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5012          (void) (*Lnk311)();          (void) (*Lnk311)();
# Line 4950  T1711:; Line 5014  T1711:;
5014          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5015          goto T1718;}          goto T1718;}
5016          (void)((          (void)((
5017          V830 = STREF(object,(V829),0),          V894 = STREF(object,(V893),0),
5018          (type_of(V830) == t_sfun ?(*((V830)->sfn.sfn_self)):          (type_of(V894) == t_sfun ?(*((V894)->sfn.sfn_self)):
5019          (fcall.argd=5,type_of(V830)==t_vfun) ?          (fcall.argd=5,type_of(V894)==t_vfun) ?
5020          (*((V830)->sfn.sfn_self)):          (*((V894)->sfn.sfn_self)):
5021          (fcall.fun=(V830),fcalln))(STREF(object,(V829),4),STREF(object,(V829),8),(V822),Ct,(V820))));          (fcall.fun=(V894),fcalln))(STREF(object,(V893),4),STREF(object,(V893),8),(V883),Ct,(V881))));
5022          goto T1715;          goto T1715;
5023          goto T1718;          goto T1718;
5024  T1718:;  T1718:;
5025          base[3]= V829;          base[3]= V893;
5026          base[4]= VV[132];          base[4]= VV[132];
5027          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5028          (void) (*Lnk311)();          (void) (*Lnk311)();
5029          vs_top=sup;          vs_top=sup;
5030          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5031          goto T1723;}          goto T1723;}
5032          {object V832;          {object V896;
5033          object V833;          object V897;
5034          object V834;          object V898;
5035          V832= STREF(object,(V829),0);          V896= STREF(object,(V893),0);
5036          V833= listA(3,(V822),Ct,(V820));          V897= listA(3,(V883),Ct,(V881));
5037          V834= STREF(object,(V829),4);          V898= STREF(object,(V893),4);
5038          if(((V834))==Cnil){          if(((V898))==Cnil){
5039          goto T1731;}          goto T1731;}
5040          if((CMPcdr((V834)))!=Cnil){          if((CMPcdr((V898)))!=Cnil){
5041          goto T1731;}          goto T1731;}
5042          (void)((          (void)((
5043          (type_of((V832)) == t_sfun ?(*(((V832))->sfn.sfn_self)):          (type_of((V896)) == t_sfun ?(*(((V896))->sfn.sfn_self)):
5044          (fcall.argd=2,type_of((V832))==t_vfun) ?          (fcall.argd=2,type_of((V896))==t_vfun) ?
5045          (*(((V832))->sfn.sfn_self)):          (*(((V896))->sfn.sfn_self)):
5046          (fcall.fun=((V832)),fcalln))((V833),CMPcar((V834)))));          (fcall.fun=((V896)),fcalln))((V897),CMPcar((V898)))));
5047          goto T1715;          goto T1715;
5048          goto T1731;          goto T1731;
5049  T1731:;  T1731:;
5050          base[3]= (V832);          base[3]= (V896);
5051          base[4]= (V833);          base[4]= (V897);
5052          {object V835;          {object V899;
5053          V835= (V834);          V899= (V898);
5054           vs_top=base+5;           vs_top=base+5;
5055           while(V835!=Cnil)           while(V899!=Cnil)
5056           {vs_push((V835)->c.c_car);V835=(V835)->c.c_cdr;}           {vs_push((V899)->c.c_car);V899=(V899)->c.c_cdr;}
5057          vs_base=base+4;}          vs_base=base+4;}
5058          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5059                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 4999  T1731:; Line 5063  T1731:;
5063          goto T1715;}          goto T1715;}
5064          goto T1723;          goto T1723;
5065  T1723:;  T1723:;
5066          base[3]= V829;          base[3]= V893;
5067          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5068          Lfunctionp();          Lfunctionp();
5069          vs_top=sup;          vs_top=sup;
5070          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5071          goto T1739;}          goto T1739;}
5072          base[3]= (V829);          base[3]= (V893);
5073          base[4]= (V822);          base[4]= (V883);
5074          base[5]= Ct;          base[5]= Ct;
5075          {object V836;          {object V900;
5076          V836= (V820);          V900= (V881);
5077           vs_top=base+6;           vs_top=base+6;
5078           while(V836!=Cnil)           while(V900!=Cnil)
5079           {vs_push((V836)->c.c_car);V836=(V836)->c.c_cdr;}           {vs_push((V900)->c.c_car);V900=(V900)->c.c_cdr;}
5080          vs_base=base+4;}          vs_base=base+4;}
5081          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5082                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5023  T1723:; Line 5087  T1723:;
5087          goto T1739;          goto T1739;
5088  T1739:;  T1739:;
5089          base[4]= VV[133];          base[4]= VV[133];
5090          base[5]= V829;          base[5]= V893;
5091          base[6]= VV[134];          base[6]= VV[134];
5092          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
5093          (void) (*Lnk312)();          (void) (*Lnk312)();
# Line 5034  T1739:; Line 5098  T1739:;
5098          vs_top=sup;          vs_top=sup;
5099          goto T1715;          goto T1715;
5100  T1715:;  T1715:;
5101          V828= CMPcdr((V828));          V892= CMPcdr((V892));
5102          V829= CMPcar((V828));          V893= CMPcar((V892));
5103          goto T1710;}          goto T1710;}
5104          goto T1706;          goto T1706;
5105  T1706:;  T1706:;
5106          {object V837;          {object V901;
5107          register object V838;          register object V902;
5108          V837= (base0[2]->c.c_car);          V901= (base0[2]->c.c_car);
5109          V838= CMPcar((V837));          V902= CMPcar((V901));
5110          goto T1759;          goto T1759;
5111  T1759:;  T1759:;
5112          if(!(((V837))==Cnil)){          if(!(((V901))==Cnil)){
5113          goto T1760;}          goto T1760;}
5114          goto T1755;          goto T1755;
5115          goto T1760;          goto T1760;
5116  T1760:;  T1760:;
5117          base[3]= (V838);          base[3]= (V902);
5118          base[4]= VV[131];          base[4]= VV[131];
5119          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5120          (void) (*Lnk311)();          (void) (*Lnk311)();
# Line 5058  T1760:; Line 5122  T1760:;
5122          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5123          goto T1767;}          goto T1767;}
5124          (void)((          (void)((
5125          V839 = STREF(object,(V838),0),          V903 = STREF(object,(V902),0),
5126          (type_of(V839) == t_sfun ?(*((V839)->sfn.sfn_self)):          (type_of(V903) == t_sfun ?(*((V903)->sfn.sfn_self)):
5127          (fcall.argd=4,type_of(V839)==t_vfun) ?          (fcall.argd=4,type_of(V903)==t_vfun) ?
5128          (*((V839)->sfn.sfn_self)):          (*((V903)->sfn.sfn_self)):
5129          (fcall.fun=(V839),fcalln))(STREF(object,(V838),4),STREF(object,(V838),8),(V822),(V820))));          (fcall.fun=(V903),fcalln))(STREF(object,(V902),4),STREF(object,(V902),8),(V883),(V881))));
5130          goto T1764;          goto T1764;
5131          goto T1767;          goto T1767;
5132  T1767:;  T1767:;
5133          base[3]= V838;          base[3]= V902;
5134          base[4]= VV[132];          base[4]= VV[132];
5135          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5136          (void) (*Lnk311)();          (void) (*Lnk311)();
5137          vs_top=sup;          vs_top=sup;
5138          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5139          goto T1772;}          goto T1772;}
5140          {object V841;          {object V905;
5141          object V842;          object V906;
5142          object V843;          object V907;
5143          V841= STREF(object,(V838),0);          V905= STREF(object,(V902),0);
5144          V842= make_cons((V822),(V820));          V906= make_cons((V883),(V881));
5145          V843= STREF(object,(V838),4);          V907= STREF(object,(V902),4);
5146          if(((V843))==Cnil){          if(((V907))==Cnil){
5147          goto T1780;}          goto T1780;}
5148          if((CMPcdr((V843)))!=Cnil){          if((CMPcdr((V907)))!=Cnil){
5149          goto T1780;}          goto T1780;}
5150          (void)((          (void)((
5151          (type_of((V841)) == t_sfun ?(*(((V841))->sfn.sfn_self)):          (type_of((V905)) == t_sfun ?(*(((V905))->sfn.sfn_self)):
5152          (fcall.argd=2,type_of((V841))==t_vfun) ?          (fcall.argd=2,type_of((V905))==t_vfun) ?
5153          (*(((V841))->sfn.sfn_self)):          (*(((V905))->sfn.sfn_self)):
5154          (fcall.fun=((V841)),fcalln))((V842),CMPcar((V843)))));          (fcall.fun=((V905)),fcalln))((V906),CMPcar((V907)))));
5155          goto T1764;          goto T1764;
5156          goto T1780;          goto T1780;
5157  T1780:;  T1780:;
5158          base[3]= (V841);          base[3]= (V905);
5159          base[4]= (V842);          base[4]= (V906);
5160          {object V844;          {object V908;
5161          V844= (V843);          V908= (V907);
5162           vs_top=base+5;           vs_top=base+5;
5163           while(V844!=Cnil)           while(V908!=Cnil)
5164           {vs_push((V844)->c.c_car);V844=(V844)->c.c_cdr;}           {vs_push((V908)->c.c_car);V908=(V908)->c.c_cdr;}
5165          vs_base=base+4;}          vs_base=base+4;}
5166          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5167                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5107  T1780:; Line 5171  T1780:;
5171          goto T1764;}          goto T1764;}
5172          goto T1772;          goto T1772;
5173  T1772:;  T1772:;
5174          base[3]= V838;          base[3]= V902;
5175          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5176          Lfunctionp();          Lfunctionp();
5177          vs_top=sup;          vs_top=sup;
5178          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5179          goto T1788;}          goto T1788;}
5180          base[3]= (V838);          base[3]= (V902);
5181          base[4]= (V822);          base[4]= (V883);
5182          {object V845;          {object V909;
5183          V845= (V820);          V909= (V881);
5184           vs_top=base+5;           vs_top=base+5;
5185           while(V845!=Cnil)           while(V909!=Cnil)
5186           {vs_push((V845)->c.c_car);V845=(V845)->c.c_cdr;}           {vs_push((V909)->c.c_car);V909=(V909)->c.c_cdr;}
5187          vs_base=base+4;}          vs_base=base+4;}
5188          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
5189                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 5130  T1772:; Line 5194  T1772:;
5194          goto T1788;          goto T1788;
5195  T1788:;  T1788:;
5196          base[4]= VV[133];          base[4]= VV[133];
5197          base[5]= V838;          base[5]= V902;
5198          base[6]= VV[135];          base[6]= VV[135];
5199          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
5200          (void) (*Lnk312)();          (void) (*Lnk312)();
# Line 5141  T1788:; Line 5205  T1788:;
5205          vs_top=sup;          vs_top=sup;
5206          goto T1764;          goto T1764;
5207  T1764:;  T1764:;
5208          V837= CMPcdr((V837));          V901= CMPcdr((V901));
5209          V838= CMPcar((V837));          V902= CMPcar((V901));
5210          goto T1759;}          goto T1759;}
5211          goto T1755;          goto T1755;
5212  T1755:;  T1755:;
5213          base[2]= (V822);          base[2]= (V883);
5214          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5215          return;}}          return;}}
5216          }          }
# Line 5158  register object *base0; Line 5222  register object *base0;
5222  {       register object *base=vs_base;  {       register object *base=vs_base;
5223          register object *sup=base+VM65; VC65          register object *sup=base+VM65; VC65
5224          vs_check;          vs_check;
5225          {object V846;          {object V910;
5226          check_arg(1);          check_arg(1);
5227          V846=(base[0]);          V910=(base[0]);
5228          vs_top=sup;          vs_top=sup;
5229          {register object V847;          {register object V911;
5230          base[1]= (V846);          base[1]= (V910);
5231          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5232          (void) (*Lnk269)(Lclptr269);          (void) (*Lnk269)(Lclptr269);
5233          vs_top=sup;          vs_top=sup;
5234          V847= vs_base[0];          V911= vs_base[0];
5235          if(((V847))!=Cnil){          if(((V911))!=Cnil){
5236          goto T1806;}          goto T1806;}
5237          base[1]= (V846);          base[1]= (V910);
5238          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5239          (void) (*Lnk261)(Lclptr261);          (void) (*Lnk261)(Lclptr261);
5240          vs_top=sup;          vs_top=sup;
5241          V848= vs_base[0];          V912= vs_base[0];
5242          base[1]= ((CMPcar(V848))==((VV[1]->s.s_dbind))?Ct:Cnil);          base[1]= ((CMPcar(V912))==((VV[1]->s.s_dbind))?Ct:Cnil);
5243          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5244          return;          return;
5245          goto T1806;          goto T1806;
5246  T1806:;  T1806:;
5247          if((CMPcdr((V847)))==Cnil){          if((CMPcdr((V911)))==Cnil){
5248          goto T1810;}          goto T1810;}
5249          base[1]= Cnil;          base[1]= Cnil;
5250          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5251          return;          return;
5252          goto T1810;          goto T1810;
5253  T1810:;  T1810:;
5254          if(!((CMPcar((V847)))==(VV[106]))){          if(!((CMPcar((V911)))==(VV[106]))){
5255          goto T1812;}          goto T1812;}
5256          base[1]= Ct;          base[1]= Ct;
5257          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5258          return;          return;
5259          goto T1812;          goto T1812;
5260  T1812:;  T1812:;
5261          base[1]= ((CMPcar((V847)))==(VV[107])?Ct:Cnil);          base[1]= ((CMPcar((V911)))==(VV[107])?Ct:Cnil);
5262          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5263          return;}          return;}
5264          }          }
# Line 5206  register object *base0; Line 5270  register object *base0;
5270  {       register object *base=vs_base;  {       register object *base=vs_base;
5271          register object *sup=base+VM66; VC66          register object *sup=base+VM66; VC66
5272          vs_check;          vs_check;
5273          {object V849;          {object V913;
5274          object V850;          object V914;
5275          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
5276          V849=(base[0]);          V913=(base[0]);
5277          vs_base=vs_base+1;          vs_base=vs_base+1;
5278          vs_top[0]=Cnil;          vs_top[0]=Cnil;
5279          {object *p=vs_top;          {object *p=vs_top;
5280           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
5281          V850=(base[1]);          V914=(base[1]);
5282          vs_top=sup;          vs_top=sup;
5283          base[2]=VV[314]->s.s_gfdef;          base[2]=VV[314]->s.s_gfdef;
5284          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
5285          base[4]= (V849);          base[4]= (V913);
5286          {object V851;          {object V915;
5287          V851= (V850);          V915= (V914);
5288           vs_top=base+5;           vs_top=base+5;
5289           while(V851!=Cnil)           while(V915!=Cnil)
5290           {vs_push((V851)->c.c_car);V851=(V851)->c.c_cdr;}           {vs_push((V915)->c.c_car);V915=(V915)->c.c_cdr;}
5291          vs_base=base+3;}          vs_base=base+3;}
5292          (void) (*Lnk314)(Lclptr314);          (void) (*Lnk314)(Lclptr314);
5293          return;          return;
# Line 5236  register object *base0; Line 5300  register object *base0;
5300  {       register object *base=vs_base;  {       register object *base=vs_base;
5301          register object *sup=base+VM67; VC67          register object *sup=base+VM67; VC67
5302          vs_check;          vs_check;
5303          {object V852;          {object V916;
5304          check_arg(1);          check_arg(1);
5305          V852=(base[0]);          V916=(base[0]);
5306          vs_top=sup;          vs_top=sup;
5307          goto TTL;          goto TTL;
5308  TTL:;  TTL:;
# Line 5249  TTL:; Line 5313  TTL:;
5313          return;          return;
5314          goto T1817;          goto T1817;
5315  T1817:;  T1817:;
5316          {register object V853;          {register object V917;
5317          object V854;          object V918;
5318          base[1]= base0[1];          base[1]= base0[1];
5319          base[2]= (V852);          base[2]= (V916);
5320          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5321          (void) (*Lnk315)();          (void) (*Lnk315)();
5322          if(vs_base>=vs_top){vs_top=sup;goto T1822;}          if(vs_base>=vs_top){vs_top=sup;goto T1822;}
5323          V853= vs_base[0];          V917= vs_base[0];
5324          vs_base++;          vs_base++;
5325          if(vs_base>=vs_top){vs_top=sup;goto T1823;}          if(vs_base>=vs_top){vs_top=sup;goto T1823;}
5326          V854= vs_base[0];          V918= vs_base[0];
5327          vs_top=sup;          vs_top=sup;
5328          goto T1824;          goto T1824;
5329          goto T1822;          goto T1822;
5330  T1822:;  T1822:;
5331          V853= Cnil;          V917= Cnil;
5332          goto T1823;          goto T1823;
5333  T1823:;  T1823:;
5334          V854= Cnil;          V918= Cnil;
5335          goto T1824;          goto T1824;
5336  T1824:;  T1824:;
5337          if(!(((((V854))==Cnil?Ct:Cnil))==Cnil)){          if(!(((((V918))==Cnil?Ct:Cnil))==Cnil)){
5338          goto T1825;}          goto T1825;}
5339          base[1]= Ct;          base[1]= Ct;
5340          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5341          return;          return;
5342          goto T1825;          goto T1825;
5343  T1825:;  T1825:;
5344          {register object V855;          {register object V919;
5345          register object V856;          register object V920;
5346          V855= base0[2];          V919= base0[2];
5347          V856= CMPcar((V855));          V920= CMPcar((V919));
5348          goto T1830;          goto T1830;
5349  T1830:;  T1830:;
5350          if(!(((V855))==Cnil)){          if(!(((V919))==Cnil)){
5351          goto T1831;}          goto T1831;}
5352          base[2]= Ct;          base[2]= Ct;
5353          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5354          return;          return;
5355          goto T1831;          goto T1831;
5356  T1831:;  T1831:;
5357          {register object x= (V856),V857= (V853);          {register object x= (V920),V921= (V917);
5358          while(V857!=Cnil)          while(V921!=Cnil)
5359          if(eql(x,V857->c.c_car)){          if(eql(x,V921->c.c_car)){
5360          goto T1835;          goto T1835;
5361          }else V857=V857->c.c_cdr;}          }else V921=V921->c.c_cdr;}
5362          base[2]= make_cons(VV[100],(V856));          base[2]= make_cons(VV[100],(V920));
5363          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5364          return;          return;
5365          goto T1835;          goto T1835;
5366  T1835:;  T1835:;
5367          V855= CMPcdr((V855));          V919= CMPcdr((V919));
5368          V856= CMPcar((V855));          V920= CMPcar((V919));
5369          goto T1830;}}          goto T1830;}}
5370          }          }
5371  }  }
# Line 5312  register object *base0; Line 5376  register object *base0;
5376  {       register object *base=vs_base;  {       register object *base=vs_base;
5377          register object *sup=base+VM68; VC68          register object *sup=base+VM68; VC68
5378          vs_check;          vs_check;
5379          {register object V858;          {register object V922;
5380          object V859;          object V923;
5381          object V860;          object V924;
5382          check_arg(3);          check_arg(3);
5383          V858=(base[0]);          V922=(base[0]);
5384          V859=(base[1]);          V923=(base[1]);
5385          V860=(base[2]);          V924=(base[2]);
5386          vs_top=sup;{object V861;          vs_top=sup;{object V925;
5387          if(((V859))==(VV[8])){          if(((V923))==(VV[8])){
5388          goto T1845;}          goto T1845;}
5389          V861= Cnil;          V925= Cnil;
5390          goto T1844;          goto T1844;
5391          goto T1845;          goto T1845;
5392  T1845:;  T1845:;
5393          if(type_of((V858))==t_cons){          if(type_of((V922))==t_cons){
5394          goto T1847;}          goto T1847;}
5395          V861= Cnil;          V925= Cnil;
5396          goto T1844;          goto T1844;
5397          goto T1847;          goto T1847;
5398  T1847:;  T1847:;
5399          if((CMPcar((V858)))==(VV[9])){          if((CMPcar((V922)))==(VV[9])){
5400          goto T1849;}          goto T1849;}
5401          V861= Cnil;          V925= Cnil;
5402          goto T1844;          goto T1844;
5403          goto T1849;          goto T1849;
5404  T1849:;  T1849:;
5405          V861= (*(LnkLI316))((V858));          V925= (*(LnkLI316))((V922));
5406          goto T1844;          goto T1844;
5407  T1844:;  T1844:;
5408          if(V861==Cnil)goto T1843;          if(V925==Cnil)goto T1843;
5409          base[3]= V861;          base[3]= V925;
5410          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5411          return;          return;
5412          goto T1843;          goto T1843;
5413  T1843:;}  T1843:;}
5414          base[3]= (V858);          base[3]= (V922);
5415          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5416          return;          return;
5417          }          }

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