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

Diff of /gcl/pcl/pcl_walk.c

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

revision 1.5 by camm, Fri Oct 3 16:03:18 2003 UTC revision 1.6 by camm, Thu Oct 23 15:30:26 2003 UTC
# Line 85  T11:; Line 85  T11:;
85  T12:;  T12:;
86          {register object V20;          {register object V20;
87          V21= CMPcar((V19));          V21= CMPcar((V19));
88          V22= (VV[69]->s.s_gfdef);          V22= (VV[97]->s.s_gfdef);
89          V20= list(3,/* INLINE-ARGS */V21,VV[3],V22);          V20= list(3,/* INLINE-ARGS */V21,VV[3],V22);
90          V16= make_cons((V20),(V16));}          V16= make_cons((V20),(V16));}
91          V18= CMPcdr((V18));          V18= CMPcdr((V18));
# Line 312  object V68; Line 312  object V68;
312  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
313          goto TTL;          goto TTL;
314  TTL:;  TTL:;
315          {object V69 = (*(LnkLI70))((V68),(VV[23]->s.s_dbind));          {object V69 = (*(LnkLI98))((V68),(VV[23]->s.s_dbind));
316          VMR9(V69)}          VMR9(V69)}
317          return Cnil;          return Cnil;
318  }  }
# Line 362  static object LI10(object V70,object fir Line 362  static object LI10(object V70,object fir
362          V78=(Vcs[4]);          V78=(Vcs[4]);
363          V79= Ct;}          V79= Ct;}
364          {register object V80;          {register object V80;
365          V80= (*(LnkLI70))((V71),(VV[23]->s.s_dbind));{object V81;          V80= (*(LnkLI98))((V71),(VV[23]->s.s_dbind));{object V81;
366          V81= (VV[23]->s.s_dbind);          V81= (VV[23]->s.s_dbind);
367          if(((V73))==Cnil){          if(((V73))==Cnil){
368          goto T73;}          goto T73;}
# Line 414  object V89; Line 414  object V89;
414  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
415          goto TTL;          goto TTL;
416  TTL:;  TTL:;
417          V90= (*(LnkLI72))((V89));          V90= (*(LnkLI100))((V89));
418          {object V91 = CMPcar(/* INLINE-ARGS */V90);          {object V91 = CMPcar(/* INLINE-ARGS */V90);
419          VMR11(V91)}          VMR11(V91)}
420          return Cnil;          return Cnil;
# Line 427  object V93; Line 427  object V93;
427  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
428          goto TTL;          goto TTL;
429  TTL:;  TTL:;
430          V94= (*(LnkLI72))((V93));          V94= (*(LnkLI100))((V93));
431          {object V95 = CMPcadr(/* INLINE-ARGS */V94);          {object V95 = CMPcadr(/* INLINE-ARGS */V94);
432          VMR12(V95)}          VMR12(V95)}
433          return Cnil;          return Cnil;
# Line 440  object V97; Line 440  object V97;
440  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
441          goto TTL;          goto TTL;
442  TTL:;  TTL:;
443          V98= (*(LnkLI72))((V97));          V98= (*(LnkLI100))((V97));
444          {object V99 = CMPcaddr(/* INLINE-ARGS */V98);          {object V99 = CMPcaddr(/* INLINE-ARGS */V98);
445          VMR13(V99)}          VMR13(V99)}
446          return Cnil;          return Cnil;
# Line 453  object V101; Line 453  object V101;
453  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
454          goto TTL;          goto TTL;
455  TTL:;  TTL:;
456          V102= (*(LnkLI72))((V101));          V102= (*(LnkLI100))((V101));
457          {object V103 = CMPcadddr(/* INLINE-ARGS */V102);          {object V103 = CMPcadddr(/* INLINE-ARGS */V102);
458          VMR14(V103)}          VMR14(V103)}
459          return Cnil;          return Cnil;
# Line 468  object V106;object V107; Line 468  object V106;object V107;
468  TTL:;  TTL:;
469          {object V109;          {object V109;
470          object V110;          object V110;
471          V109= (*(LnkLI72))((V107));          V109= (*(LnkLI100))((V107));
472          V110= make_cons(V106,CMPcaddr((V109)));          V110= make_cons(V106,CMPcaddr((V109)));
473          (CMPcddr((V109)))->c.c_car = (V110);          (CMPcddr((V109)))->c.c_car = (V110);
474          (void)(CMPcddr((V109)));          (void)(CMPcddr((V109)));
# Line 489  TTL:; Line 489  TTL:;
489          object V117;          object V117;
490          object V118;          object V118;
491          V116= list(2,(V114),VV[24]);          V116= list(2,(V114),VV[24]);
492          V117= (*(LnkLI72))((V115));          V117= (*(LnkLI100))((V115));
493          V118= make_cons((V116),CMPcadddr((V117)));          V118= make_cons((V116),CMPcadddr((V117)));
494          (CMPcdddr((V117)))->c.c_car = (V118);          (CMPcdddr((V117)))->c.c_car = (V118);
495          (void)(CMPcdddr((V117)));          (void)(CMPcdddr((V117)));
# Line 508  object V122;object V123; Line 508  object V122;object V123;
508  TTL:;  TTL:;
509          {object V124;          {object V124;
510          base[0]= (V122);          base[0]= (V122);
511          base[1]= (*(LnkLI73))((V123));          base[1]= (*(LnkLI101))((V123));
512          base[2]= VV[25];          base[2]= VV[25];
513          base[3]= (VV[8]->s.s_gfdef);          base[3]= (VV[8]->s.s_gfdef);
514          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
# Line 536  object V129;object V130; Line 536  object V129;object V130;
536  TTL:;  TTL:;
537          {object V131;          {object V131;
538          base[0]= (V129);          base[0]= (V129);
539          base[1]= (*(LnkLI73))((V130));          base[1]= (*(LnkLI101))((V130));
540          base[2]= VV[25];          base[2]= VV[25];
541          base[3]= (VV[8]->s.s_gfdef);          base[3]= (VV[8]->s.s_gfdef);
542          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
# Line 577  TTL:; Line 577  TTL:;
577          goto T111;          goto T111;
578  T111:;  T111:;
579          {register object V142;{object V143;          {register object V142;{object V143;
580          V143= (*(LnkLI74))((V138),(V139));          V143= (*(LnkLI102))((V138),(V139));
581          if(V143==Cnil)goto T116;          if(V143==Cnil)goto T116;
582          V142= V143;          V142= V143;
583          goto T115;          goto T115;
# Line 588  T116:;} Line 588  T116:;}
588  T115:;  T115:;
589          {register object V144;          {register object V144;
590          register object V145;          register object V145;
591          V144= (*(LnkLI75))((V139));          V144= (*(LnkLI103))((V139));
592          V145= CMPcar((V144));          V145= CMPcar((V144));
593          goto T121;          goto T121;
594  T121:;  T121:;
# Line 620  object V150;object V151; Line 620  object V150;object V151;
620  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
621          goto TTL;          goto TTL;
622  TTL:;  TTL:;
623          V152= (*(LnkLI76))(VV[29],(V150),(V151));          V152= (*(LnkLI104))(VV[29],(V150),(V151));
624          if(!((((/* INLINE-ARGS */V152)==Cnil?Ct:Cnil))==Cnil)){          if(!((((/* INLINE-ARGS */V152)==Cnil?Ct:Cnil))==Cnil)){
625          goto T136;}          goto T136;}
626          {object V153 = Ct;          {object V153 = Ct;
627          VMR20(V153)}          VMR20(V153)}
628          goto T136;          goto T136;
629  T136:;  T136:;
630          {object V154 = (*(LnkLI77))((V150));          {object V154 = (*(LnkLI105))((V150));
631          VMR20(V154)}          VMR20(V154)}
632          return Cnil;          return Cnil;
633  }  }
# Line 713  T144:; Line 713  T144:;
713          VMR24(V165)}          VMR24(V165)}
714          goto T143;          goto T143;
715  T143:;}  T143:;}
716          {object V166 = (*(LnkLI78))((V162));          {object V166 = (*(LnkLI106))((V162));
717          VMR24(V166)}          VMR24(V166)}
718          goto T141;          goto T141;
719  T141:;  T141:;
# Line 773  T153:; Line 773  T153:;
773          base[3]= (V172);          base[3]= (V172);
774          base[4]= (V173);          base[4]= (V173);
775          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
776          (void) (*Lnk79)();          (void) (*Lnk107)();
777          bds_unwind1;          bds_unwind1;
778          return;          return;
779          }          }
# Line 803  T157:; Line 803  T157:;
803          V175= Cnil;          V175= Cnil;
804          goto T158;          goto T158;
805  T158:;  T158:;
806          V176= VV[80];          V176= VV[108];
807          goto T159;          goto T159;
808  T159:;  T159:;
809          {object V177;          {object V177;
810          V178 = (V175);          V178= (VFUN_NARGS=3,(*(LnkLI22))((V175),VV[43],(V176)));
811          V179= (VFUN_NARGS=3,(*(LnkLI22))((V175),VV[43],(V176)));          V177= (*(LnkLI2))((V175),Cnil,/* INLINE-ARGS */V178);
         V177= (*(LnkLI2))(V178,Cnil,/* INLINE-ARGS */V179);  
812          base[3]= (V174);          base[3]= (V174);
813          base[4]= VV[44];          base[4]= VV[44];
814          base[5]= (V177);          base[5]= (V177);
815          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
816          (void) (*Lnk81)();          (void) (*Lnk109)();
817          return;}          return;}
818          }          }
819  }  }
# Line 824  static void L28() Line 823  static void L28()
823  {register object *base=vs_base;  {register object *base=vs_base;
824          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
825          vs_check;          vs_check;
826          {object V180;          {object V179;
827            object V180;
828          object V181;          object V181;
         object V182;  
829          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
830          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
831          V180=(base[0]);          V179=(base[0]);
832          V181=(base[1]);          V180=(base[1]);
833          vs_base=vs_base+2;          vs_base=vs_base+2;
834          if(vs_base>=vs_top){vs_top=sup;goto T166;}          if(vs_base>=vs_top){vs_top=sup;goto T166;}
835          V182=(base[2]);          V181=(base[2]);
836          vs_base++;          vs_base++;
837          if(vs_base>=vs_top){vs_top=sup;goto T167;}          if(vs_base>=vs_top){vs_top=sup;goto T167;}
838          base[3]=MMcons(base[3],Cnil);          base[3]=MMcons(base[3],Cnil);
# Line 841  static void L28() Line 840  static void L28()
840          goto T168;          goto T168;
841          goto T166;          goto T166;
842  T166:;  T166:;
843          V182= Cnil;          V181= Cnil;
844          goto T167;          goto T167;
845  T167:;  T167:;
846          base[3]= VV[82];          base[3]= VV[110];
847          base[3]=MMcons(base[3],Cnil);          base[3]=MMcons(base[3],Cnil);
848          goto T168;          goto T168;
849  T168:;  T168:;
850          V183 = (V180);          V182= (*(LnkLI111))((V181));
851          V184= (*(LnkLI83))((V182));          if(!(((V179))==(/* INLINE-ARGS */V182))){
         if(!((V183)==(/* INLINE-ARGS */V184))){  
852          goto T172;}          goto T172;}
853          base[4]= (*(LnkLI84))((V182));          base[4]= (*(LnkLI112))((V181));
854          base[4]=MMcons(base[4],base[3]);          base[4]=MMcons(base[4],base[3]);
855          {frame_ptr fr;          {frame_ptr fr;
856          fr=frs_sch_catch((V180));          fr=frs_sch_catch((V179));
857          if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V180));          if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V179));
858          base[5]= (V181);          base[5]= (V180);
859          base[6]= (V182);          base[6]= (V181);
860          base[7]=          base[7]=
861          make_cclosure_new(LC81,Cnil,base[4],Cdata);          make_cclosure_new(LC81,Cnil,base[4],Cdata);
862          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
863          (void) (*Lnk79)();          (void) (*Lnk107)();
864          unwind(fr,(V180));}          unwind(fr,(V179));}
865          goto T172;          goto T172;
866  T172:;  T172:;
867          base[4]= (V181);          base[4]= (V180);
868          base[5]= (V182);          base[5]= (V181);
869          base[6]= (base[3]->c.c_car);          base[6]= (base[3]->c.c_car);
870          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
871          (void) (*Lnk79)();          (void) (*Lnk107)();
872          return;          return;
873          }          }
874  }  }
# Line 880  static void L29() Line 878  static void L29()
878  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
879          register object *VOL sup=base+VM29; VC29          register object *VOL sup=base+VM29; VC29
880          vs_check;          vs_check;
881          {VOL object V185;          {VOL object V183;
882          VOL object V186;          VOL object V184;
883          VOL object V187;          VOL object V185;
884          check_arg(3);          check_arg(3);
885          V185=(base[0]);          V183=(base[0]);
886          V186=(base[1]);          V184=(base[1]);
887          V187=(base[2]);          V185=(base[2]);
888          vs_top=sup;          vs_top=sup;
889          goto TTL;          goto TTL;
890  TTL:;  TTL:;
891          frs_push(FRS_CATCH,(V185));          frs_push(FRS_CATCH,(V183));
892          if(nlj_active)          if(nlj_active)
893          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
894          return;}          return;}
895          else{          else{
896          {VOL object V188;          {VOL object V186;
897          VOL object V189;          VOL object V187;
898          base[3]= (*(LnkLI84))((V187));          base[3]= (*(LnkLI112))((V185));
899          base[4]= (V185);          base[4]= (V183);
900          base[5]= (V186);          base[5]= (V184);
901          base[6]= (V187);          base[6]= (V185);
902          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
903          super_funcall_no_event(base[3]);          super_funcall_no_event(base[3]);
904          if(vs_base>=vs_top){vs_top=sup;goto T188;}          if(vs_base>=vs_top){vs_top=sup;goto T188;}
905          V188= vs_base[0];          V186= vs_base[0];
906          vs_base++;          vs_base++;
907          if(vs_base>=vs_top){vs_top=sup;goto T189;}          if(vs_base>=vs_top){vs_top=sup;goto T189;}
908          V189= vs_base[0];          V187= vs_base[0];
909          vs_top=sup;          vs_top=sup;
910          goto T190;          goto T190;
911          goto T188;          goto T188;
912  T188:;  T188:;
913          V188= Cnil;          V186= Cnil;
914          goto T189;          goto T189;
915  T189:;  T189:;
916          V189= Cnil;          V187= Cnil;
917          goto T190;          goto T190;
918  T190:;  T190:;
919          frs_push(FRS_CATCH,(V188));          frs_push(FRS_CATCH,(V186));
920          if(nlj_active)          if(nlj_active)
921          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
922          frs_pop();          frs_pop();
923          return;}          return;}
924          else{          else{
925          if(((V189))==Cnil){          if(((V187))==Cnil){
926          goto T193;}          goto T193;}
927          frs_pop();          frs_pop();
928          frs_pop();          frs_pop();
929          base[3]= (V188);          base[3]= (V186);
930          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
931          return;          return;
932          goto T193;          goto T193;
933  T193:;  T193:;
934          if(((V185))==((V188))){          if(((V183))==((V186))){
935          goto T196;}          goto T196;}
936          base[3]= (V188);          base[3]= (V186);
937          base[4]= (V186);          base[4]= (V184);
938          base[5]= (V187);          base[5]= (V185);
939          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
940          (void) (*Lnk81)();          (void) (*Lnk109)();
941          frs_pop();          frs_pop();
942          frs_pop();          frs_pop();
943          return;          return;
944          goto T196;          goto T196;
945  T196:;  T196:;
946          if(type_of((V188))==t_cons){          if(type_of((V186))==t_cons){
947          goto T202;}          goto T202;}
948          {object V190;          {object V188;
949          V191= (*(LnkLI85))((V188),(V187));          V189= (*(LnkLI113))((V186),(V185));
950          V190= CMPcar(/* INLINE-ARGS */V191);          V188= CMPcar(/* INLINE-ARGS */V189);
951          if(((V190))==Cnil){          if(((V188))==Cnil){
952          goto T206;}          goto T206;}
953          {object V192;          {object V190;
954          base[3]= CMPcddr((V190));          base[3]= CMPcddr((V188));
955          base[4]= (V186);          base[4]= (V184);
956          base[5]= (V187);          base[5]= (V185);
957          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
958          (void) (*Lnk81)();          (void) (*Lnk109)();
959          vs_top=sup;          vs_top=sup;
960          V192= vs_base[0];          V190= vs_base[0];
961          if(!(((V192))==(CMPcddr((V190))))){          if(!(((V190))==(CMPcddr((V188))))){
962          goto T213;}          goto T213;}
963          if(((VV[42]->s.s_dbind))==Cnil){          if(((VV[42]->s.s_dbind))==Cnil){
964          goto T216;}          goto T216;}
965          frs_pop();          frs_pop();
966          frs_pop();          frs_pop();
967          base[3]= (V192);          base[3]= (V190);
968          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
969          return;          return;
970          goto T216;          goto T216;
971  T216:;  T216:;
972          frs_pop();          frs_pop();
973          frs_pop();          frs_pop();
974          base[3]= (V188);          base[3]= (V186);
975          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
976          return;          return;
977          goto T213;          goto T213;
978  T213:;  T213:;
979          frs_pop();          frs_pop();
980          frs_pop();          frs_pop();
981          base[3]= (V192);          base[3]= (V190);
982          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
983          return;}          return;}
984          goto T206;          goto T206;
985  T206:;  T206:;
986          frs_pop();          frs_pop();
987          frs_pop();          frs_pop();
988          base[3]= (V188);          base[3]= (V186);
989          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
990          return;}          return;}
991          goto T202;          goto T202;
992  T202:;  T202:;
993          {register object V193;          {register object V191;
994          register object V194;          register object V192;
995          V193= CMPcar((V188));          V191= CMPcar((V186));
996          V194= (*(LnkLI86))((V193));          V192= (*(LnkLI114))((V191));
997          if(((V194))==Cnil){          if(((V192))==Cnil){
998          goto T221;}          goto T221;}
999          if(!(type_of((V194))==t_symbol)){          if(!(type_of((V192))==t_symbol)){
1000          goto T224;}          goto T224;}
1001          base[5]= (V188);          base[5]= (V186);
1002          base[6]= (V186);          base[6]= (V184);
1003          base[7]= (V187);          base[7]= (V185);
1004          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1005          super_funcall_no_event((V194));          super_funcall_no_event((V192));
1006          frs_pop();          frs_pop();
1007          frs_pop();          frs_pop();
1008          return;          return;
1009          goto T224;          goto T224;
1010  T224:;  T224:;
1011          V195= (*(LnkLI87))((V188),(V194),(V186),(V187));          V193= (*(LnkLI115))((V186),(V192),(V184),(V185));
1012          frs_pop();          frs_pop();
1013          frs_pop();          frs_pop();
1014          base[5]= V195;          base[5]= V193;
1015          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1016          return;          return;
1017          goto T221;          goto T221;
1018  T221:;  T221:;
1019          {register object V196;          {register object V194;
1020          object V197;          object V195;
1021          {object V198;          {object V196;
1022          V199 = (V187);          V197= (VFUN_NARGS=3,(*(LnkLI22))((V185),VV[45],(V186)));
1023          V200= (VFUN_NARGS=3,(*(LnkLI22))((V187),VV[45],(V188)));          V196= (*(LnkLI2))((V185),Cnil,/* INLINE-ARGS */V197);
1024          V198= (*(LnkLI2))(V199,Cnil,/* INLINE-ARGS */V200);          base[5]= (V186);
1025          base[5]= (V188);          base[6]= (V196);
         base[6]= (V198);  
1026          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1027          Lmacroexpand_1();}          Lmacroexpand_1();}
1028          if(vs_base>=vs_top){vs_top=sup;goto T233;}          if(vs_base>=vs_top){vs_top=sup;goto T233;}
1029          V196= vs_base[0];          V194= vs_base[0];
1030          vs_base++;          vs_base++;
1031          if(vs_base>=vs_top){vs_top=sup;goto T234;}          if(vs_base>=vs_top){vs_top=sup;goto T234;}
1032          V197= vs_base[0];          V195= vs_base[0];
1033          vs_top=sup;          vs_top=sup;
1034          goto T235;          goto T235;
1035          goto T233;          goto T233;
1036  T233:;  T233:;
1037          V196= Cnil;          V194= Cnil;
1038          goto T234;          goto T234;
1039  T234:;  T234:;
1040          V197= Cnil;          V195= Cnil;
1041          goto T235;          goto T235;
1042  T235:;  T235:;
1043          if(((V197))==Cnil){          if(((V195))==Cnil){
1044          goto T237;}          goto T237;}
1045          {object V201;          {object V198;
1046          base[5]= (V196);          base[5]= (V194);
1047          base[6]= (V186);          base[6]= (V184);
1048          base[7]= (V187);          base[7]= (V185);
1049          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1050          (void) (*Lnk81)();          (void) (*Lnk109)();
1051          vs_top=sup;          vs_top=sup;
1052          V201= vs_base[0];          V198= vs_base[0];
1053          if(!(((V201))==((V196)))){          if(!(((V198))==((V194)))){
1054          goto T244;}          goto T244;}
1055          if(((VV[42]->s.s_dbind))==Cnil){          if(((VV[42]->s.s_dbind))==Cnil){
1056          goto T247;}          goto T247;}
1057          frs_pop();          frs_pop();
1058          frs_pop();          frs_pop();
1059          base[5]= (V196);          base[5]= (V194);
1060          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1061          return;          return;
1062          goto T247;          goto T247;
1063  T247:;  T247:;
1064          frs_pop();          frs_pop();
1065          frs_pop();          frs_pop();
1066          base[5]= (V188);          base[5]= (V186);
1067          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1068          return;          return;
1069          goto T244;          goto T244;
1070  T244:;  T244:;
1071          frs_pop();          frs_pop();
1072          frs_pop();          frs_pop();
1073          base[5]= (V201);          base[5]= (V198);
1074          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1075          return;}          return;}
1076          goto T237;          goto T237;
1077  T237:;  T237:;
1078          if(!(type_of((V193))==t_symbol)){          if(!(type_of((V191))==t_symbol)){
1079          goto T250;}          goto T250;}
1080          base[5]= (V193);          base[5]= (V191);
1081          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1082          Lfboundp();          Lfboundp();
1083          vs_top=sup;          vs_top=sup;
1084          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1085          goto T250;}          goto T250;}
1086          base[5]= (V193);          base[5]= (V191);
1087          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1088          Lspecial_form_p();          Lspecial_form_p();
1089          vs_top=sup;          vs_top=sup;
1090          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1091          goto T250;}          goto T250;}
1092          base[5]= VV[46];          base[5]= VV[46];
1093          base[6]= (V193);          base[6]= (V191);
1094          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1095          Lerror();          Lerror();
1096          frs_pop();          frs_pop();
# Line 1101  T237:; Line 1098  T237:;
1098          return;          return;
1099          goto T250;          goto T250;
1100  T250:;  T250:;
1101          V202= (*(LnkLI87))((V196),VV[47],(V186),(V187));          V199= (*(LnkLI115))((V194),VV[47],(V184),(V185));
1102          frs_pop();          frs_pop();
1103          frs_pop();          frs_pop();
1104          base[5]= V202;          base[5]= V199;
1105          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1106          return;}}}}}          return;}}}}}
1107          }          }
1108  }  }
1109  /*      local entry for function WALK-TEMPLATE  */  /*      local entry for function WALK-TEMPLATE  */
1110    
1111  static object LI30(V207,V208,V209,V210)  static object LI30(V204,V205,V206,V207)
1112    
1113  register object V207;register object V208;register object V209;register object V210;  register object V204;register object V205;register object V206;register object V207;
1114  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1115          goto TTL;          goto TTL;
1116  TTL:;  TTL:;
1117          if(!(type_of((V208))!=t_cons)){          if(!(type_of((V205))!=t_cons)){
1118          goto T261;}          goto T261;}
1119          {object V211= (V208);          {object V209= V205;
1120          if((V211!= VV[63])          if((V209!= VV[71])
1121          && (V211!= VV[3])          && (V209!= VV[3])
1122          && (V211!= VV[88])          && (V209!= VV[116])
1123          && (V211!= VV[89])          && (V209!= VV[117])
1124          && (V211!= VV[90]))goto T263;          && (V209!= VV[118]))goto T263;
1125          base[0]= (V207);          base[0]= (V204);
1126          base[1]= VV[44];          base[1]= VV[44];
1127          base[2]= (V210);          base[2]= (V207);
1128          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1129          (void) (*Lnk81)();          (void) (*Lnk109)();
1130          vs_top=sup;          vs_top=sup;
1131          {object V212 = vs_base[0];          {object V210 = vs_base[0];
1132          VMR30(V212)}          VMR30(V210)}
1133          goto T263;          goto T263;
1134  T263:;  T263:;
1135          if((V211!= VV[37])          if((V209!= VV[37])
1136          && (V211!= Cnil))goto T267;          && (V209!= Cnil))goto T267;
1137          {object V213 = (V207);          {object V211 = (V204);
1138          VMR30(V213)}          VMR30(V211)}
1139          goto T267;          goto T267;
1140  T267:;  T267:;
1141          if((V211!= VV[91]))goto T268;          if((V209!= VV[119]))goto T268;
1142          base[0]= (V207);          base[0]= (V204);
1143          base[1]= VV[48];          base[1]= VV[48];
1144          base[2]= (V210);          base[2]= (V207);
1145          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1146          (void) (*Lnk81)();          (void) (*Lnk109)();
1147          vs_top=sup;          vs_top=sup;
1148          {object V214 = vs_base[0];          {object V212 = vs_base[0];
1149          VMR30(V214)}          VMR30(V212)}
1150          goto T268;          goto T268;
1151  T268:;  T268:;
1152          if((V211!= VV[39])          if((V209!= VV[39])
1153          && (V211!= VV[92]))goto T272;          && (V209!= VV[120]))goto T272;
1154          if(type_of((V207))==t_symbol){          if(type_of((V204))==t_symbol){
1155          goto T273;}          goto T273;}
1156          if(!(type_of((V207))==t_cons||((V207))==Cnil)){          if(!(type_of((V204))==t_cons||((V204))==Cnil)){
1157          goto T274;}          goto T274;}
1158          if(!(((long)length((V207)))==(2))){          if(!(((long)length((V204)))==(2))){
1159          goto T274;}          goto T274;}
1160          if(!((CMPcar((V207)))==(VV[35]))){          if(!((CMPcar((V204)))==(VV[35]))){
1161          goto T274;}          goto T274;}
1162          goto T273;          goto T273;
1163  T273:;  T273:;
1164          {object V215 = (V207);          {object V213 = (V204);
1165          VMR30(V215)}          VMR30(V213)}
1166          goto T274;          goto T274;
1167  T274:;  T274:;
1168          base[0]= (V207);          base[0]= (V204);
1169          base[1]= (V209);          base[1]= (V206);
1170          base[2]= (V210);          base[2]= (V207);
1171          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1172          (void) (*Lnk81)();          (void) (*Lnk109)();
1173          vs_top=sup;          vs_top=sup;
1174          {object V216 = vs_base[0];          {object V214 = vs_base[0];
1175          VMR30(V216)}          VMR30(V214)}
1176          goto T272;          goto T272;
1177  T272:;  T272:;
1178          FEerror("The ECASE key value ~s is illegal.",1,V211);          base[0]= VV[49];
1179          {object V217 = Cnil;          base[1]= VV[50];
1180          VMR30(V217)}}          base[2]= VV[51];
1181            base[3]= VV[52];
1182            base[4]= V205;
1183            base[5]= VV[53];
1184            base[6]= VV[54];
1185            base[7]= VV[55];
1186            base[8]= VV[56];
1187            vs_top=(vs_base=base+0)+9;
1188            (void) (*Lnk121)();
1189            vs_top=sup;
1190            {object V215 = vs_base[0];
1191            VMR30(V215)}}
1192          goto T261;          goto T261;
1193  T261:;  T261:;
1194          {object V218= CMPcar((V208));          {object V216= CMPcar((V205));
1195          if((V218!= VV[93]))goto T285;          if((V216!= VV[122]))goto T294;
1196          V219 = (V207);          V217= CMPcdr((V205));
1197          V220= CMPcdr((V208));          if((CMPcddr((V205)))!=Cnil){
1198          if((CMPcddr((V208)))!=Cnil){          goto T297;}
1199          goto T288;}          V218= Cnil;
1200          V221= Cnil;          goto T295;
1201          goto T286;          goto T297;
1202          goto T288;  T297:;
1203  T288:;          V219 = CMPmake_fixnum((long)length((V204)));
1204          V222 = CMPmake_fixnum((long)length((V207)));          V220 = CMPmake_fixnum((long)length(CMPcddr((V205))));
1205          V223 = CMPmake_fixnum((long)length(CMPcddr((V208))));          V221= number_minus(V219,V220);
1206          V224= number_minus(V222,V223);          V218= nthcdr(fix(/* INLINE-ARGS */V221),(V204));
1207          V221= nthcdr(fix(/* INLINE-ARGS */V224),(V207));          goto T295;
1208          goto T286;  T295:;
1209  T286:;          {object V222 = (*(LnkLI123))((V204),/* INLINE-ARGS */V217,V218,(V206),(V207));
1210          V225 = (V209);          VMR30(V222)}
1211          V226 = (V210);          goto T294;
1212          {object V227 = (*(LnkLI94))(V219,/* INLINE-ARGS */V220,V221,V225,V226);  T294:;
1213          VMR30(V227)}          if((V216!= VV[65]))goto T299;
1214          goto T285;          {object V223;
1215  T285:;          V223= (V204);
1216          if((V218!= VV[57]))goto T290;          {object V224= CMPcadr((V205));
1217          {object V228;          if(!(type_of(V224)==t_cons||(V224)==Cnil)){
1218          V228= (V207);          goto T307;}}
1219          {object V229= CMPcadr((V208));          base[0]= CMPcadr((V205));
         if(!(type_of(V229)==t_cons||(V229)==Cnil)){  
         goto T298;}}  
         base[0]= CMPcadr((V208));  
1220          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1221          Leval();          Leval();
1222          vs_top=sup;          vs_top=sup;
1223          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1224          goto T295;}          goto T304;}
1225          goto T296;          goto T305;
1226          goto T298;          goto T307;
1227  T298:;  T307:;
1228          base[0]= CMPcadr((V208));          base[0]= CMPcadr((V205));
1229          base[1]= (V207);          base[1]= (V204);
1230          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1231          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
1232          vs_top=sup;          vs_top=sup;
1233          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1234          goto T295;}          goto T304;}
         goto T296;  
 T296:;  
         V208= CMPcaddr((V208));  
         goto T293;  
         goto T295;  
 T295:;  
         V208= CMPcadddr((V208));  
         goto T293;  
 T293:;  
         V207= (V228);}  
         goto TTL;  
         goto T290;  
 T290:;  
         if((V218!= VV[95]))goto T305;  
         V208= CMPcadr((V208));  
         goto TTL;  
1235          goto T305;          goto T305;
1236  T305:;  T305:;
1237          if(!(type_of((V207))!=t_cons)){          V205= CMPcaddr((V205));
1238          goto T312;}          goto T302;
1239          {object V230 = (V207);          goto T304;
1240          VMR30(V230)}  T304:;
1241          goto T312;          V205= CMPcadddr((V205));
1242  T312:;          goto T302;
1243          V231 = (V207);  T302:;
1244          V232= (*(LnkLI87))(CMPcar((V207)),CMPcar((V208)),(V209),(V210));          V204= (V223);}
1245          V233= (*(LnkLI87))(CMPcdr((V207)),CMPcdr((V208)),(V209),(V210));          goto TTL;
1246          {object V234 = (*(LnkLI96))(V231,/* INLINE-ARGS */V232,/* INLINE-ARGS */V233);          goto T299;
1247          VMR30(V234)}}  T299:;
1248            if((V216!= VV[124]))goto T314;
1249            V205= CMPcadr((V205));
1250            goto TTL;
1251            goto T314;
1252    T314:;
1253            if(!(type_of((V204))!=t_cons)){
1254            goto T321;}
1255            {object V225 = (V204);
1256            VMR30(V225)}
1257            goto T321;
1258    T321:;
1259            V226= (*(LnkLI115))(CMPcar((V204)),CMPcar((V205)),(V206),(V207));
1260            V227= (*(LnkLI115))(CMPcdr((V204)),CMPcdr((V205)),(V206),(V207));
1261            {object V228 = (*(LnkLI125))((V204),/* INLINE-ARGS */V226,/* INLINE-ARGS */V227);
1262            VMR30(V228)}}
1263          base[0]=base[0];          base[0]=base[0];
1264          return Cnil;          return Cnil;
1265  }  }
1266  /*      local entry for function WALK-TEMPLATE-HANDLE-REPEAT    */  /*      local entry for function WALK-TEMPLATE-HANDLE-REPEAT    */
1267    
1268  static object LI31(V240,V241,V242,V243,V244)  static object LI31(V234,V235,V236,V237,V238)
1269    
1270  object V240;object V241;object V242;object V243;object V244;  object V234;object V235;object V236;object V237;object V238;
1271  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1272          goto TTL;          goto TTL;
1273  TTL:;  TTL:;
1274          if(!(((V240))==((V242)))){          if(!(((V234))==((V236)))){
1275          goto T315;}          goto T324;}
1276          {object V245 = (*(LnkLI87))((V240),CMPcdr((V241)),(V243),(V244));          {object V239 = (*(LnkLI115))((V234),CMPcdr((V235)),(V237),(V238));
1277          VMR31(V245)}          VMR31(V239)}
1278          goto T315;          goto T324;
1279  T315:;  T324:;
1280          {object V246 = (*(LnkLI97))((V240),(V241),CMPcar((V241)),(V242),(V243),(V244));          {object V240 = (*(LnkLI126))((V234),(V235),CMPcar((V235)),(V236),(V237),(V238));
1281          VMR31(V246)}          VMR31(V240)}
1282          return Cnil;          return Cnil;
1283  }  }
1284  /*      local entry for function WALK-TEMPLATE-HANDLE-REPEAT-1  */  /*      local entry for function WALK-TEMPLATE-HANDLE-REPEAT-1  */
1285    
1286  static object LI32(V253,V254,V255,V256,V257,V258)  static object LI32(V247,V248,V249,V250,V251,V252)
1287    
1288  register object V253;register object V254;register object V255;register object V256;register object V257;register object V258;  register object V247;register object V248;register object V249;register object V250;register object V251;register object V252;
1289  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1290          goto TTL;          goto TTL;
1291  TTL:;  TTL:;
1292          if(((V253))!=Cnil){          if(((V247))!=Cnil){
1293          goto T318;}          goto T327;}
1294          {object V259 = Cnil;          {object V253 = Cnil;
1295          VMR32(V259)}          VMR32(V253)}
1296          goto T318;          goto T327;
1297  T318:;  T327:;
1298          if(!(((V253))==((V256)))){          if(!(((V247))==((V250)))){
1299          goto T321;}          goto T330;}
1300          if(((V255))!=Cnil){          if(((V249))!=Cnil){
1301          goto T324;}          goto T333;}
1302          {object V260 = (*(LnkLI87))((V256),CMPcdr((V254)),(V257),(V258));          {object V254 = (*(LnkLI115))((V250),CMPcdr((V248)),(V251),(V252));
1303          VMR32(V260)}          VMR32(V254)}
1304          goto T324;          goto T333;
1305  T324:;  T333:;
1306          base[0]= VV[49];          base[0]= VV[57];
1307          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1308          Lerror();          Lerror();
1309          vs_top=sup;          vs_top=sup;
1310          {object V261 = vs_base[0];          {object V255 = vs_base[0];
1311          VMR32(V261)}          VMR32(V255)}
1312          goto T321;          goto T330;
1313  T321:;  T330:;
1314          if(((V255))!=Cnil){          if(((V249))!=Cnil){
1315          goto T328;}          goto T337;}
1316          {object V262;          {object V256;
1317          V262= (V254);          V256= (V248);
1318          V255= CMPcar((V254));          V249= CMPcar((V248));
1319          V254= (V262);}          V248= (V256);}
1320          goto TTL;          goto TTL;
1321          goto T328;          goto T337;
1322  T328:;  T337:;
1323          V263 = (V253);          V257= (*(LnkLI115))(CMPcar((V247)),CMPcar((V249)),(V251),(V252));
1324          V264= (*(LnkLI87))(CMPcar((V253)),CMPcar((V255)),(V257),(V258));          V258= (*(LnkLI126))(CMPcdr((V247)),(V248),CMPcdr((V249)),(V250),(V251),(V252));
1325          V265= (*(LnkLI97))(CMPcdr((V253)),(V254),CMPcdr((V255)),(V256),(V257),(V258));          {object V259 = (*(LnkLI125))((V247),/* INLINE-ARGS */V257,/* INLINE-ARGS */V258);
1326          {object V266 = (*(LnkLI96))(V263,/* INLINE-ARGS */V264,/* INLINE-ARGS */V265);          VMR32(V259)}
         VMR32(V266)}  
1327          base[0]=base[0];          base[0]=base[0];
1328          return Cnil;          return Cnil;
1329  }  }
1330  /*      local entry for function WALK-REPEAT-EVAL       */  /*      local entry for function WALK-REPEAT-EVAL       */
1331    
1332  static object LI33(V269,V270)  static object LI33(V262,V263)
1333    
1334  register object V269;object V270;  register object V262;object V263;
1335  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1336          goto TTL;          goto TTL;
1337  TTL:;  TTL:;
1338          if((V269)==Cnil){          if((V262)==Cnil){
1339          {object V271 = Cnil;          {object V264 = Cnil;
1340          VMR33(V271)}}          VMR33(V264)}}
1341          V272 = (V269);          base[0]= CMPcar((V262));
         base[0]= CMPcar((V269));  
1342          base[1]= VV[44];          base[1]= VV[44];
1343          base[2]= (V270);          base[2]= (V263);
1344          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1345          (void) (*Lnk81)();          (void) (*Lnk109)();
1346          vs_top=sup;          vs_top=sup;
1347          V273= vs_base[0];          V265= vs_base[0];
1348          V274= (*(LnkLI98))(CMPcdr((V269)),(V270));          V266= (*(LnkLI127))(CMPcdr((V262)),(V263));
1349          {object V275 = (*(LnkLI96))(V272,V273,/* INLINE-ARGS */V274);          {object V267 = (*(LnkLI125))((V262),V265,/* INLINE-ARGS */V266);
1350          VMR33(V275)}          VMR33(V267)}
1351          base[0]=base[0];          base[0]=base[0];
1352          return Cnil;          return Cnil;
1353  }  }
1354  /*      local entry for function RECONS */  /*      local entry for function RECONS */
1355    
1356  static object LI34(V279,V280,V281)  static object LI34(V271,V272,V273)
1357    
1358  object V279;object V280;object V281;  object V271;object V272;object V273;
1359  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
1360          goto TTL;          goto TTL;
1361  TTL:;  TTL:;
1362          if(!((CMPcar((V279)))==((V280)))){          if(!((CMPcar((V271)))==((V272)))){
1363          goto T341;}          goto T350;}
1364          if((CMPcdr((V279)))==((V281))){          if((CMPcdr((V271)))==((V273))){
1365          goto T342;}          goto T351;}
1366          goto T341;          goto T350;
1367  T341:;  T350:;
1368          {object V282 = make_cons((V280),(V281));          {object V274 = make_cons((V272),(V273));
1369          VMR34(V282)}          VMR34(V274)}
1370          goto T342;          goto T351;
1371  T342:;  T351:;
1372          {object V283 = (V279);          {object V275 = (V271);
1373          VMR34(V283)}          VMR34(V275)}
1374          return Cnil;          return Cnil;
1375  }  }
1376  /*      local entry for function RELIST */  /*      local entry for function RELIST */
1377    
1378  static object LI35(object V284,object first,...)  static object LI35(object V276,object first,...)
1379  {        {      
1380          va_list ap;          va_list ap;
1381          int narg = VFUN_NARGS; VMB35 VMS35 VMV35          int narg = VFUN_NARGS; VMB35 VMS35 VMV35
1382          {object V285;          {object V277;
1383          object V286;          object V278;
1384          va_start(ap,first);          va_start(ap,first);
1385          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1386          V285= V284;          V277= V276;
1387          narg= narg - 1;          narg= narg - 1;
1388          V287 = list_vector_new(narg,first,ap);          V279 = list_vector_new(narg,first,ap);
1389          V286= V287;          V278= V279;
1390          if(((V286))!=Cnil){          if(((V278))!=Cnil){
1391          goto T347;}          goto T356;}
1392          {object V288 = Cnil;          {object V280 = Cnil;
1393          VMR35(V288)}          VMR35(V280)}
1394          goto T347;          goto T356;
1395  T347:;  T356:;
1396          {object V289 = (*(LnkLI99))((V285),(V286),Cnil);          {object V281 = (*(LnkLI128))((V277),(V278),Cnil);
1397          VMR35(V289)}          VMR35(V281)}
1398          va_end(ap);          va_end(ap);
1399          return Cnil;}          return Cnil;}
1400          }          }
1401  /*      local entry for function RELIST*        */  /*      local entry for function RELIST*        */
1402    
1403  static object LI36(object V290,object first,...)  static object LI36(object V282,object first,...)
1404  {        {      
1405          va_list ap;          va_list ap;
1406          int narg = VFUN_NARGS; VMB36 VMS36 VMV36          int narg = VFUN_NARGS; VMB36 VMS36 VMV36
1407          {object V291;          {object V283;
1408          object V292;          object V284;
1409          va_start(ap,first);          va_start(ap,first);
1410          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1411          V291= V290;          V283= V282;
1412          narg= narg - 1;          narg= narg - 1;
1413          V293 = list_vector_new(narg,first,ap);          V285 = list_vector_new(narg,first,ap);
1414          V292= V293;          V284= V285;
1415          {object V294 = (*(LnkLI99))((V291),(V292),Ct);          {object V286 = (*(LnkLI128))((V283),(V284),Ct);
1416          VMR36(V294)}          VMR36(V286)}
1417          va_end(ap);          va_end(ap);
1418          return Cnil;}          return Cnil;}
1419          }          }
1420  /*      local entry for function RELIST-INTERNAL        */  /*      local entry for function RELIST-INTERNAL        */
1421    
1422  static object LI37(V298,V299,V300)  static object LI37(V290,V291,V292)
1423    
1424  object V298;register object V299;object V300;  object V290;register object V291;object V292;
1425  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
1426          goto TTL;          goto TTL;
1427  TTL:;  TTL:;
1428          if((CMPcdr((V299)))!=Cnil){          if((CMPcdr((V291)))!=Cnil){
1429          goto T350;}          goto T359;}
1430          if(((V300))==Cnil){          if(((V292))==Cnil){
1431          goto T353;}          goto T362;}
1432          {object V301 = CMPcar((V299));          {object V293 = CMPcar((V291));
1433          VMR37(V301)}          VMR37(V293)}
1434          goto T353;          goto T362;
1435  T353:;  T362:;
1436          {object V302 = (*(LnkLI96))((V298),CMPcar((V299)),Cnil);          {object V294 = (*(LnkLI125))((V290),CMPcar((V291)),Cnil);
1437          VMR37(V302)}          VMR37(V294)}
1438          goto T350;          goto T359;
1439  T350:;  T359:;
1440          V303 = (V298);          V295= CMPcar((V291));
1441          V304= CMPcar((V299));          V296= (*(LnkLI128))(CMPcdr((V290)),CMPcdr((V291)),(V292));
1442          V305= (*(LnkLI99))(CMPcdr((V298)),CMPcdr((V299)),(V300));          {object V297 = (*(LnkLI125))((V290),/* INLINE-ARGS */V295,/* INLINE-ARGS */V296);
1443          {object V306 = (*(LnkLI96))(V303,/* INLINE-ARGS */V304,/* INLINE-ARGS */V305);          VMR37(V297)}
         VMR37(V306)}  
1444          return Cnil;          return Cnil;
1445  }  }
1446  /*      function definition for WALK-DECLARATIONS       */  /*      function definition for WALK-DECLARATIONS       */
# Line 1448  static void L38() Line 1449  static void L38()
1449  {register object *base=vs_base;  {register object *base=vs_base;
1450          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
1451          vs_check;          vs_check;
1452          {object V307;          {object V298;
1453          object V308;          object V299;
1454          register object V309;          register object V300;
1455          object V310;          object V301;
1456          register object V311;          register object V302;
1457          object V312;          object V303;
1458          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
1459          if(vs_top-vs_base>6) too_many_arguments();          if(vs_top-vs_base>6) too_many_arguments();
1460          V307=(base[0]);          V298=(base[0]);
1461          V308=(base[1]);          V299=(base[1]);
1462          V309=(base[2]);          V300=(base[2]);
1463          vs_base=vs_base+3;          vs_base=vs_base+3;
1464          if(vs_base>=vs_top){vs_top=sup;goto T355;}          if(vs_base>=vs_top){vs_top=sup;goto T364;}
1465          V310=(base[3]);          V301=(base[3]);
1466          vs_base++;          vs_base++;
1467          if(vs_base>=vs_top){vs_top=sup;goto T356;}          if(vs_base>=vs_top){vs_top=sup;goto T365;}
1468          V311=(base[4]);          V302=(base[4]);
1469          vs_base++;          vs_base++;
1470          if(vs_base>=vs_top){vs_top=sup;goto T357;}          if(vs_base>=vs_top){vs_top=sup;goto T366;}
1471          V312=(base[5]);          V303=(base[5]);
1472          vs_top=sup;          vs_top=sup;
1473          goto T358;          goto T367;
1474          goto T355;          goto T364;
1475  T355:;  T364:;
1476          V310= Cnil;          V301= Cnil;
1477          goto T356;          goto T365;
1478  T356:;  T365:;
1479          V311= Cnil;          V302= Cnil;
1480          goto T357;          goto T366;
1481  T357:;  T366:;
1482          V312= Cnil;          V303= Cnil;
1483          goto T358;          goto T367;
1484  T358:;  T367:;
1485          {object V313;          {object V304;
1486          object V314;          object V305;
1487          object V315;          object V306;
1488          V313= CMPcar((V307));          V304= CMPcar((V298));
1489          V314= Cnil;          V305= Cnil;
1490          V315= Cnil;          V306= Cnil;
1491          if(!(type_of((V313))==t_string)){          if(!(type_of((V304))==t_string)){
1492          goto T366;}          goto T375;}
1493          if((CMPcdr((V307)))==Cnil){          if((CMPcdr((V298)))==Cnil){
1494          goto T366;}          goto T375;}
1495          if(((V310))!=Cnil){          if(((V301))!=Cnil){
1496          goto T366;}          goto T375;}
1497          if(((V311))!=Cnil){          if(((V302))!=Cnil){
1498          goto T366;}          goto T375;}
1499          V316 = (V307);          base[7]= CMPcdr((V298));
1500          V317 = (V313);          base[8]= (V299);
1501          base[7]= CMPcdr((V307));          base[9]= (V300);
         base[8]= (V308);  
         base[9]= (V309);  
1502          base[10]= Ct;          base[10]= Ct;
1503          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+7)+4;
1504          (void) (*Lnk100)();          (void) (*Lnk129)();
1505          vs_top=sup;          vs_top=sup;
1506          V318= vs_base[0];          V307= vs_base[0];
1507          base[7]= (*(LnkLI96))(V316,V317,V318);          base[7]= (*(LnkLI125))((V298),(V304),V307);
1508          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1509          return;          return;
1510          goto T366;          goto T375;
1511  T366:;  T375:;
1512          if(!(type_of((V313))==t_cons||((V313))==Cnil)){          if(!(type_of((V304))==t_cons||((V304))==Cnil)){
         goto T380;}  
         if(!((CMPcar((V313)))==(VV[50]))){  
         goto T380;}  
         {register object V319;  
         register object V320;  
         V319= CMPcdr((V313));  
         V320= CMPcar((V319));  
         goto T388;  
 T388:;  
         if(!(((V319))==Cnil)){  
1513          goto T389;}          goto T389;}
1514          goto T384;          if(!((CMPcar((V304)))==(VV[58]))){
1515          goto T389;          goto T389;}
1516  T389:;          {register object V308;
1517          {register object V321;          register object V309;
1518          register object V322;          V308= CMPcdr((V304));
1519          object V323;          V309= CMPcar((V308));
         V321= CMPcar((V320));  
         V322= CMPcadr((V320));  
         V323= CMPcddr((V320));  
         {register object x= (V321),V324= (VV[27]->s.s_dbind);  
         while(V324!=Cnil)  
         if(eql(x,V324->c.c_car)){  
         goto T400;  
         }else V324=V324->c.c_cdr;  
         goto T399;}  
         goto T400;  
 T400:;  
         V325 = (V321);{object V327;  
         V327= (*(LnkLI74))((V322),(V309));  
         if(V327==Cnil)goto T402;  
         V326= V327;  
         goto T401;  
         goto T402;  
 T402:;}  
         V326= (V322);  
         goto T401;  
 T401:;  
         V328 = (V323);  
         V329= listA(3,V325,V326,V328);  
         (void)((*(LnkLI101))(/* INLINE-ARGS */V329,(V309)));  
         goto T397;  
         goto T399;  
 T399:;  
         (void)((*(LnkLI101))((V320),(V309)));  
1520          goto T397;          goto T397;
1521  T397:;  T397:;
1522          V311= make_cons(V320,(V311));}          if(!(((V308))==Cnil)){
1523          V319= CMPcdr((V319));          goto T398;}
1524          V320= CMPcar((V319));          goto T393;
1525          goto T388;}          goto T398;
1526          goto T384;  T398:;
1527  T384:;          {register object V310;
1528          V331 = (V307);          register object V311;
1529          V332 = (V313);          object V312;
1530          base[7]= CMPcdr((V307));          V310= CMPcar((V309));
1531          base[8]= (V308);          V311= CMPcadr((V309));
1532          base[9]= (V309);          V312= CMPcddr((V309));
1533          base[10]= (V310);          {register object x= (V310),V313= (VV[27]->s.s_dbind);
1534          base[11]= (V311);          while(V313!=Cnil)
1535            if(eql(x,V313->c.c_car)){
1536            goto T409;
1537            }else V313=V313->c.c_cdr;
1538            goto T408;}
1539            goto T409;
1540    T409:;{object V315;
1541            V315= (*(LnkLI102))((V311),(V300));
1542            if(V315==Cnil)goto T411;
1543            V314= V315;
1544            goto T410;
1545            goto T411;
1546    T411:;}
1547            V314= (V311);
1548            goto T410;
1549    T410:;
1550            V316= listA(3,(V310),V314,(V312));
1551            (void)((*(LnkLI130))(/* INLINE-ARGS */V316,(V300)));
1552            goto T406;
1553            goto T408;
1554    T408:;
1555            (void)((*(LnkLI130))((V309),(V300)));
1556            goto T406;
1557    T406:;
1558            V302= make_cons(V309,(V302));}
1559            V308= CMPcdr((V308));
1560            V309= CMPcar((V308));
1561            goto T397;}
1562            goto T393;
1563    T393:;
1564            base[7]= CMPcdr((V298));
1565            base[8]= (V299);
1566            base[9]= (V300);
1567            base[10]= (V301);
1568            base[11]= (V302);
1569          vs_top=(vs_base=base+7)+5;          vs_top=(vs_base=base+7)+5;
1570          (void) (*Lnk100)();          (void) (*Lnk129)();
1571          vs_top=sup;          vs_top=sup;
1572          V333= vs_base[0];          V318= vs_base[0];
1573          base[7]= (*(LnkLI96))(V331,V332,V333);          base[7]= (*(LnkLI125))((V298),(V304),V318);
1574          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1575          return;          return;
1576          goto T380;          goto T389;
1577  T380:;  T389:;
1578          if(((V313))==Cnil){          if(((V304))==Cnil){
1579          goto T417;}          goto T426;}
1580          if(!(type_of((V313))==t_cons||((V313))==Cnil)){          if(!(type_of((V304))==t_cons||((V304))==Cnil)){
1581          goto T417;}          goto T426;}
1582          if(((*(LnkLI86))(CMPcar((V313))))!=Cnil){          if(((*(LnkLI114))(CMPcar((V304))))!=Cnil){
1583          goto T417;}          goto T426;}
1584          base[7]= (V313);          base[7]= (V304);
1585          base[8]= (V309);          base[8]= (V300);
1586          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
1587          Lmacroexpand_1();          Lmacroexpand_1();
1588          if(vs_base<vs_top){          if(vs_base<vs_top){
1589          V315= vs_base[0];          V306= vs_base[0];
1590          vs_base++;          vs_base++;
1591          }else{          }else{
1592          V315= Cnil;}          V306= Cnil;}
1593          if(vs_base<vs_top){          if(vs_base<vs_top){
1594          V314= vs_base[0];          V305= vs_base[0];
1595          }else{          }else{
1596          V314= Cnil;}          V305= Cnil;}
1597          vs_top=sup;          vs_top=sup;
1598          if(((V314))==Cnil){          if(((V305))==Cnil){
1599          goto T417;}          goto T426;}
1600          base[7]= (*(LnkLI96))((V307),(V315),CMPcdr((V307)));          base[7]= (*(LnkLI125))((V298),(V306),CMPcdr((V298)));
1601          base[8]= (V308);          base[8]= (V299);
1602          base[9]= (V309);          base[9]= (V300);
1603          base[10]= (V310);          base[10]= (V301);
1604          base[11]= (V311);          base[11]= (V302);
1605          if((V312)!=Cnil){          if((V303)!=Cnil){
1606          base[12]= (V312);          base[12]= (V303);
1607          goto T434;}          goto T443;}
1608          base[12]= (V307);          base[12]= (V298);
1609          goto T434;          goto T443;
1610  T434:;  T443:;
1611          vs_top=(vs_base=base+7)+6;          vs_top=(vs_base=base+7)+6;
1612          (void) (*Lnk100)();          (void) (*Lnk129)();
1613          return;          return;
1614          goto T417;          goto T426;
1615  T417:;  T426:;
1616          if((V312)!=Cnil){          if((V303)!=Cnil){
1617          base[7]= (V312);          base[7]= (V303);
1618          goto T435;}          goto T444;}
1619          base[7]= (V307);          base[7]= (V298);
1620          goto T435;          goto T444;
1621  T435:;  T444:;
1622          base[8]= (V309);          base[8]= (V300);
1623          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
1624          super_funcall_no_event((V308));          super_funcall_no_event((V299));
1625          return;}          return;}
1626          }          }
1627  }  }
1628  /*      local entry for function WALK-UNEXPECTED-DECLARE        */  /*      local entry for function WALK-UNEXPECTED-DECLARE        */
1629    
1630  static object LI39(V337,V338,V339)  static object LI39(V322,V323,V324)
1631    
1632  object V337;object V338;object V339;  object V322;object V323;object V324;
1633  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
1634          goto TTL;          goto TTL;
1635  TTL:;  TTL:;
1636          base[0]= VV[51];          base[0]= VV[59];
1637          base[1]= (V337);          base[1]= (V322);
1638          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1639          (void) (*Lnk102)();          (void) (*Lnk131)();
1640          vs_top=sup;          vs_top=sup;
1641          {object V340 = (V337);          {object V325 = (V322);
1642          VMR39(V340)}          VMR39(V325)}
1643          base[0]=base[0];          base[0]=base[0];
1644          return Cnil;          return Cnil;
1645  }  }
1646  /*      local entry for function WALK-ARGLIST   */  /*      local entry for function WALK-ARGLIST   */
1647    
1648  static object LI40(object V343,object V342,object V341,object first,...)  static object LI40(object V328,object V327,object V326,object first,...)
1649  {        {      
1650          va_list ap;          va_list ap;
1651          int narg = VFUN_NARGS; VMB40 VMS40 VMV40          int narg = VFUN_NARGS; VMB40 VMS40 VMV40
1652          {register object V344;          {register object V329;
1653          object V345;          object V330;
1654          register object V346;          register object V331;
1655          object V347;          object V332;
1656          va_start(ap,first);          va_start(ap,first);
1657          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
1658          V344= V343;          V329= V328;
1659          V345= V342;          V330= V327;
1660          V346= V341;          V331= V326;
1661          narg = narg - 3;          narg = narg - 3;
1662          if (narg <= 0) goto T440;          if (narg <= 0) goto T449;
1663          else {          else {
1664          V347= first;}          V332= first;}
1665          --narg; goto T441;          --narg; goto T450;
1666          goto T440;          goto T449;
1667  T440:;  T449:;
1668          V347= Cnil;          V332= Cnil;
1669          goto T441;          goto T450;
1670  T441:;  T450:;
1671          {register object V348;          {register object V333;
1672          V348= Cnil;          V333= Cnil;
1673          if(((V344))!=Cnil){          if(((V329))!=Cnil){
         goto T445;}  
         {object V349 = Cnil;  
         VMR40(V349)}  
         goto T445;  
 T445:;  
         V348= CMPcar((V344));  
         V350 = (V348);  
         if(!(type_of(V350)==t_symbol)){  
         goto T448;}{object V351;  
         {register object x= (V348),V352= VV[52];  
         while(V352!=Cnil)  
         if(eql(x,V352->c.c_car)){  
         V351= V352;  
         goto T453;  
         }else V352=V352->c.c_cdr;  
         V351= Cnil;}  
         goto T453;  
 T453:;  
         if(V351==Cnil)goto T452;  
         goto T451;  
         goto T452;  
 T452:;}  
         (void)((*(LnkLI103))((V348),(V346)));  
         goto T451;  
 T451:;  
         V353 = (V344);  
         V354 = (V348);  
         V355= CMPcdr((V344));  
         V356 = (V345);  
         V357 = (V346);  
         if((V347)==Cnil){  
         V358= Cnil;  
1674          goto T454;}          goto T454;}
1675          {register object x= (V348),V360= VV[52];          {object V334 = Cnil;
1676          while(V360!=Cnil)          VMR40(V334)}
         if(eql(x,V360->c.c_car)){  
         V359= V360;  
         goto T455;  
         }else V360=V360->c.c_cdr;  
         V359= Cnil;}  
         goto T455;  
 T455:;  
         V358= ((V359)==Cnil?Ct:Cnil);  
1677          goto T454;          goto T454;
1678  T454:;  T454:;
1679          V361= (VFUN_NARGS=4,(*(LnkLI104))(/* INLINE-ARGS */V355,V356,V357,V358));          V333= CMPcar((V329));
1680          {object V362 = (*(LnkLI96))(V353,V354,/* INLINE-ARGS */V361);          if(!(type_of((V333))==t_symbol)){
1681          VMR40(V362)}          goto T457;}{object V335;
1682          goto T448;          {register object x= (V333),V336= VV[60];
1683  T448:;          while(V336!=Cnil)
1684          if(!(type_of((V348))==t_cons)){          if(eql(x,V336->c.c_car)){
1685          goto T457;}          V335= V336;
1686          {object V363;          goto T462;
1687          V364 = (V344);          }else V336=V336->c.c_cdr;
1688          if(((V347))==Cnil){          V335= Cnil;}
         goto T462;}  
         V365= (VFUN_NARGS=4,(*(LnkLI104))((V348),(V345),(V346),(V347)));  
         goto T460;  
1689          goto T462;          goto T462;
1690  T462:;  T462:;
1691          V366 = (V348);          if(V335==Cnil)goto T461;
1692          V367= CMPcar((V348));          goto T460;
1693          base[0]= CMPcadr((V348));          goto T461;
1694          base[1]= VV[44];  T461:;}
1695          base[2]= (V346);          (void)((*(LnkLI132))((V333),(V331)));
         vs_top=(vs_base=base+0)+3;  
         (void) (*Lnk81)();  
         vs_top=sup;  
         V368= vs_base[0];  
         V365= (VFUN_NARGS=4,(*(LnkLI105))(V366,/* INLINE-ARGS */V367,V368,CMPcddr((V348))));  
1696          goto T460;          goto T460;
1697  T460:;  T460:;
1698          V369= (VFUN_NARGS=4,(*(LnkLI104))(CMPcdr((V344)),(V345),(V346),Cnil));          V337= CMPcdr((V329));
1699          V363= (*(LnkLI96))(V364,V365,/* INLINE-ARGS */V369);          if((V332)==Cnil){
1700          if(!(type_of(CMPcar((V348)))==t_symbol)){          V338= Cnil;
1701          goto T470;}          goto T463;}
1702          (void)((*(LnkLI103))(CMPcar((V348)),(V346)));          {register object x= (V333),V340= VV[60];
1703          goto T468;          while(V340!=Cnil)
1704          goto T470;          if(eql(x,V340->c.c_car)){
1705  T470:;          V339= V340;
1706          (void)((*(LnkLI103))(CMPcadar((V348)),(V346)));          goto T464;
1707          goto T468;          }else V340=V340->c.c_cdr;
1708  T468:;          V339= Cnil;}
1709          if(!((CMPcddr((V348)))==Cnil)){          goto T464;
1710          goto T473;}  T464:;
1711          goto T472;          V338= ((V339)==Cnil?Ct:Cnil);
1712          goto T473;          goto T463;
1713  T473:;  T463:;
1714          if(!(((type_of(CMPcaddr((V348)))==t_symbol?Ct:Cnil))==Cnil)){          V341= (VFUN_NARGS=4,(*(LnkLI133))(/* INLINE-ARGS */V337,(V330),(V331),V338));
1715          goto T475;}          {object V342 = (*(LnkLI125))((V329),(V333),/* INLINE-ARGS */V341);
1716          goto T472;          VMR40(V342)}
         goto T475;  
 T475:;  
         (void)((*(LnkLI103))(CMPcaddr((V348)),(V346)));  
         goto T472;  
 T472:;  
         {object V370 = (V363);  
         VMR40(V370)}}  
1717          goto T457;          goto T457;
1718  T457:;  T457:;
1719          base[0]= VV[53];          if(!(type_of((V333))==t_cons)){
1720          base[1]= (V344);          goto T466;}
1721            {object V343;
1722            if(((V332))==Cnil){
1723            goto T471;}
1724            V344= (VFUN_NARGS=4,(*(LnkLI133))((V333),(V330),(V331),(V332)));
1725            goto T469;
1726            goto T471;
1727    T471:;
1728            V345= CMPcar((V333));
1729            base[0]= CMPcadr((V333));
1730            base[1]= VV[44];
1731            base[2]= (V331);
1732            vs_top=(vs_base=base+0)+3;
1733            (void) (*Lnk109)();
1734            vs_top=sup;
1735            V346= vs_base[0];
1736            V344= (VFUN_NARGS=4,(*(LnkLI134))((V333),/* INLINE-ARGS */V345,V346,CMPcddr((V333))));
1737            goto T469;
1738    T469:;
1739            V347= (VFUN_NARGS=4,(*(LnkLI133))(CMPcdr((V329)),(V330),(V331),Cnil));
1740            V343= (*(LnkLI125))((V329),V344,/* INLINE-ARGS */V347);
1741            if(!(type_of(CMPcar((V333)))==t_symbol)){
1742            goto T479;}
1743            (void)((*(LnkLI132))(CMPcar((V333)),(V331)));
1744            goto T477;
1745            goto T479;
1746    T479:;
1747            (void)((*(LnkLI132))(CMPcadar((V333)),(V331)));
1748            goto T477;
1749    T477:;
1750            if(!((CMPcddr((V333)))==Cnil)){
1751            goto T482;}
1752            goto T481;
1753            goto T482;
1754    T482:;
1755            if(!(((type_of(CMPcaddr((V333)))==t_symbol?Ct:Cnil))==Cnil)){
1756            goto T484;}
1757            goto T481;
1758            goto T484;
1759    T484:;
1760            (void)((*(LnkLI132))(CMPcaddr((V333)),(V331)));
1761            goto T481;
1762    T481:;
1763            {object V348 = (V343);
1764            VMR40(V348)}}
1765            goto T466;
1766    T466:;
1767            base[0]= VV[61];
1768            base[1]= (V329);
1769          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1770          Lerror();          Lerror();
1771          vs_top=sup;          vs_top=sup;
1772          {object V371 = vs_base[0];          {object V349 = vs_base[0];
1773          VMR40(V371)}}          VMR40(V349)}}
1774          va_end(ap);          va_end(ap);
1775          base[0]=base[0];          base[0]=base[0];
1776          return Cnil;}          return Cnil;}
1777          }          }
1778  /*      local entry for function WALK-LET       */  /*      local entry for function WALK-LET       */
1779    
1780  static object LI41(V375,V376,V377)  static object LI41(V353,V354,V355)
1781    
1782  object V375;object V376;object V377;  object V353;object V354;object V355;
1783  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
1784          goto TTL;          goto TTL;
1785  TTL:;  TTL:;
1786          {object V378 = (*(LnkLI106))((V375),(V376),(V377),Cnil);          {object V356 = (*(LnkLI135))((V353),(V354),(V355),Cnil);
1787          VMR41(V378)}          VMR41(V356)}
1788          return Cnil;          return Cnil;
1789  }  }
1790  /*      local entry for function WALK-LET*      */  /*      local entry for function WALK-LET*      */
1791    
1792  static object LI42(V382,V383,V384)  static object LI42(V360,V361,V362)
1793    
1794  object V382;object V383;object V384;  object V360;object V361;object V362;
1795  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
1796          goto TTL;          goto TTL;
1797  TTL:;  TTL:;
1798          {object V385 = (*(LnkLI106))((V382),(V383),(V384),Ct);          {object V363 = (*(LnkLI135))((V360),(V361),(V362),Ct);
1799          VMR42(V385)}          VMR42(V363)}
1800          return Cnil;          return Cnil;
1801  }  }
1802  /*      local entry for function WALK-PROG      */  /*      local entry for function WALK-PROG      */
1803    
1804  static object LI43(V389,V390,V391)  static object LI43(V367,V368,V369)
1805    
1806  object V389;object V390;object V391;  object V367;object V368;object V369;
1807  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
1808          goto TTL;          goto TTL;
1809  TTL:;  TTL:;
1810          {object V392 = (*(LnkLI107))((V389),(V390),(V391),Cnil);          {object V370 = (*(LnkLI136))((V367),(V368),(V369),Cnil);
1811          VMR43(V392)}          VMR43(V370)}
1812          return Cnil;          return Cnil;
1813  }  }
1814  /*      local entry for function WALK-PROG*     */  /*      local entry for function WALK-PROG*     */
1815    
1816  static object LI44(V396,V397,V398)  static object LI44(V374,V375,V376)
1817    
1818  object V396;object V397;object V398;  object V374;object V375;object V376;
1819  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
1820          goto TTL;          goto TTL;
1821  TTL:;  TTL:;
1822          {object V399 = (*(LnkLI107))((V396),(V397),(V398),Ct);          {object V377 = (*(LnkLI136))((V374),(V375),(V376),Ct);
1823          VMR44(V399)}          VMR44(V377)}
1824          return Cnil;          return Cnil;
1825  }  }
1826  /*      local entry for function WALK-DO        */  /*      local entry for function WALK-DO        */
1827    
1828  static object LI45(V403,V404,V405)  static object LI45(V381,V382,V383)
1829    
1830  object V403;object V404;object V405;  object V381;object V382;object V383;
1831  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
1832          goto TTL;          goto TTL;
1833  TTL:;  TTL:;
1834          {object V406 = (*(LnkLI108))((V403),(V404),(V405),Cnil);          {object V384 = (*(LnkLI137))((V381),(V382),(V383),Cnil);
1835          VMR45(V406)}          VMR45(V384)}
1836          return Cnil;          return Cnil;
1837  }  }
1838  /*      local entry for function WALK-DO*       */  /*      local entry for function WALK-DO*       */
1839    
1840  static object LI46(V410,V411,V412)  static object LI46(V388,V389,V390)
1841    
1842  object V410;object V411;object V412;  object V388;object V389;object V390;
1843  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
1844          goto TTL;          goto TTL;
1845  TTL:;  TTL:;
1846          {object V413 = (*(LnkLI108))((V410),(V411),(V412),Ct);          {object V391 = (*(LnkLI137))((V388),(V389),(V390),Ct);
1847          VMR46(V413)}          VMR46(V391)}
1848          return Cnil;          return Cnil;
1849  }  }
1850  /*      local entry for function WALK-LETLET*   */  /*      local entry for function WALK-LETLET*   */
1851    
1852  static object LI47(V418,V419,V420,V421)  static object LI47(V396,V397,V398,V399)
1853    
1854  register object V418;object V419;object V420;object V421;  register object V396;object V397;object V398;object V399;
1855  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
1856          goto TTL;          goto TTL;
1857  TTL:;  TTL:;
1858          {object V422;          {object V400;
1859          V423 = (V420);          V401= (VFUN_NARGS=1,(*(LnkLI22))((V398)));
1860          V424= (VFUN_NARGS=1,(*(LnkLI22))((V420)));          V400= (*(LnkLI2))((V398),Cnil,/* INLINE-ARGS */V401);
1861          V422= (*(LnkLI2))(V423,Cnil,/* INLINE-ARGS */V424);          {object V402;
1862          {object V425;          object V403;
1863          object V426;          object V404;
1864          object V427;          object V405;
1865          object V428;          object V406;
1866          object V429;          V402= CMPcar((V396));
1867          V425= CMPcar((V418));          V403= CMPcadr((V396));
1868          V426= CMPcadr((V418));          V404= CMPcddr((V396));
1869          V427= CMPcddr((V418));          V405= (*(LnkLI138))((V403),(V398),(V400),(V397),(V399));
1870          V428= (*(LnkLI109))((V426),(V420),(V422),(V419),(V421));          base[5]= (V404);
1871          base[5]= (V427);          base[6]= (VV[127]->s.s_gfdef);
1872          base[6]= (VV[98]->s.s_gfdef);          base[7]= (V400);
         base[7]= (V422);  
1873          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1874          (void) (*Lnk100)();          (void) (*Lnk129)();
1875          vs_top=sup;          vs_top=sup;
1876          V429= vs_base[0];          V406= vs_base[0];
1877          {object V430 = (VFUN_NARGS=4,(*(LnkLI105))((V418),(V425),(V428),(V429)));          {object V407 = (VFUN_NARGS=4,(*(LnkLI134))((V396),(V402),(V405),(V406)));
1878          VMR47(V430)}}}          VMR47(V407)}}}
1879          base[0]=base[0];          base[0]=base[0];
1880          return Cnil;          return Cnil;
1881  }  }
1882  /*      local entry for function WALK-LOCALLY   */  /*      local entry for function WALK-LOCALLY   */
1883    
1884  static object LI48(V434,V435,V436)  static object LI48(V411,V412,V413)
1885    
1886  object V434;object V435;object V436;  object V411;object V412;object V413;
1887  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
1888          goto TTL;          goto TTL;
1889  TTL:;  TTL:;
1890          {object V437;          {object V414;
1891          object V438;          object V415;
1892          object V439;          object V416;
1893          V437= CMPcar((V434));          V414= CMPcar((V411));
1894          V438= CMPcdr((V434));          V415= CMPcdr((V411));
1895          base[3]= (V438);          base[3]= (V415);
1896          base[4]= (VV[98]->s.s_gfdef);          base[4]= (VV[127]->s.s_gfdef);
1897          base[5]= (V436);          base[5]= (V413);
1898          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1899          (void) (*Lnk100)();          (void) (*Lnk129)();
1900          vs_top=sup;          vs_top=sup;
1901          V439= vs_base[0];          V416= vs_base[0];
1902          {object V440 = (VFUN_NARGS=3,(*(LnkLI105))((V434),(V437),(V439)));          {object V417 = (VFUN_NARGS=3,(*(LnkLI134))((V411),(V414),(V416)));
1903          VMR48(V440)}}          VMR48(V417)}}
1904          base[0]=base[0];          base[0]=base[0];
1905          return Cnil;          return Cnil;
1906  }  }
1907  /*      local entry for function WALK-PROGPROG* */  /*      local entry for function WALK-PROGPROG* */
1908    
1909  static object LI50(V445,V446,V447,V448)  static object LI50(V422,V423,V424,V425)
1910    
1911  register object V445;object V446;object V447;object V448;  register object V422;object V423;object V424;object V425;
1912  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
1913          goto TTL;          goto TTL;
1914  TTL:;  TTL:;
1915          base[0]=MMcons((V446),Cnil);          base[0]=MMcons((V423),Cnil);
1916          {object V449;          {object V426;
1917          V450 = (V447);          V427= (VFUN_NARGS=1,(*(LnkLI22))((V424)));
1918          V451= (VFUN_NARGS=1,(*(LnkLI22))((V447)));          V426= (*(LnkLI2))((V424),Cnil,/* INLINE-ARGS */V427);
1919          V449= (*(LnkLI2))(V450,Cnil,/* INLINE-ARGS */V451);          {object V428;
1920          {object V452;          object V429;
1921          object V453;          V428= CMPcadr((V422));
1922          V452= CMPcadr((V445));          if(type_of((V428))==t_symbol){
1923          if(type_of((V452))==t_symbol){          goto T506;}
1924          goto T497;}          V429= Cnil;
1925          V453= Cnil;          goto T505;
1926          goto T496;          goto T506;
1927          goto T497;  T506:;
1928  T497:;          V429= (((((V428))==(Cnil)?Ct:Cnil))==Cnil?Ct:Cnil);
1929          V453= (((((V452))==(Cnil)?Ct:Cnil))==Cnil?Ct:Cnil);          goto T505;
1930          goto T496;  T505:;
1931  T496:;          {object V430;
1932          {object V454;          object V431;
1933          object V455;          object V432;
1934          object V456;          object V433;
1935          object V457;          if(((V429))==Cnil){
1936          if(((V453))==Cnil){          goto T510;}
1937          goto T501;}          base[3]= CMPcar((V422));
1938          base[3]= CMPcar((V445));          base[4]= CMPcadr((V422));
1939          base[4]= CMPcadr((V445));          base[5]= CMPcaddr((V422));
1940          base[5]= CMPcaddr((V445));          base[6]= CMPcdddr((V422));
         base[6]= CMPcdddr((V445));  
1941          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1942          goto T499;          goto T508;
1943          goto T501;          goto T510;
1944  T501:;  T510:;
1945          base[3]= CMPcar((V445));          base[3]= CMPcar((V422));
1946          base[4]= Cnil;          base[4]= Cnil;
1947          base[5]= CMPcadr((V445));          base[5]= CMPcadr((V422));
1948          base[6]= CMPcddr((V445));          base[6]= CMPcddr((V422));
1949          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1950          goto T499;          goto T508;
1951  T499:;  T508:;
1952          if(vs_base>=vs_top){vs_top=sup;goto T511;}          if(vs_base>=vs_top){vs_top=sup;goto T520;}
1953          V454= vs_base[0];          V430= vs_base[0];
1954          vs_base++;          vs_base++;
1955          if(vs_base>=vs_top){vs_top=sup;goto T512;}          if(vs_base>=vs_top){vs_top=sup;goto T521;}
1956          V455= vs_base[0];          V431= vs_base[0];
1957          vs_base++;          vs_base++;
1958          if(vs_base>=vs_top){vs_top=sup;goto T513;}          if(vs_base>=vs_top){vs_top=sup;goto T522;}
1959          V456= vs_base[0];          V432= vs_base[0];
1960          vs_base++;          vs_base++;
1961          if(vs_base>=vs_top){vs_top=sup;goto T514;}          if(vs_base>=vs_top){vs_top=sup;goto T523;}
1962          V457= vs_base[0];          V433= vs_base[0];
1963          vs_top=sup;          vs_top=sup;
1964          goto T515;          goto T524;
1965          goto T511;          goto T520;
1966  T511:;  T520:;
1967          V454= Cnil;          V430= Cnil;
1968          goto T512;          goto T521;
1969  T512:;  T521:;
1970          V455= Cnil;          V431= Cnil;
1971          goto T513;          goto T522;
1972  T513:;  T522:;
1973          V456= Cnil;          V432= Cnil;
1974          goto T514;          goto T523;
1975  T514:;  T523:;
1976          V457= Cnil;          V433= Cnil;
1977          goto T515;          goto T524;
1978  T515:;  T524:;
1979          {object V458;          {object V434;
1980          object V459;          object V435;
1981          V458= (*(LnkLI109))((V456),(V447),(V449),(base[0]->c.c_car),(V448));          V434= (*(LnkLI138))((V432),(V424),(V426),(base[0]->c.c_car),(V425));
1982          base[5]= (V457);          base[5]= (V433);
1983          base[6]=          base[6]=
1984          make_cclosure_new(LC82,Cnil,base[0],Cdata);          make_cclosure_new(LC82,Cnil,base[0],Cdata);
1985          base[7]= (V449);          base[7]= (V426);
1986          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1987          (void) (*Lnk100)();          (void) (*Lnk129)();
1988          vs_top=sup;          vs_top=sup;
1989          V459= vs_base[0];          V435= vs_base[0];
1990          if(((V455))==Cnil){          if(((V431))==Cnil){
1991          goto T522;}          goto T531;}
1992          {object V460 = (VFUN_NARGS=5,(*(LnkLI105))((V445),(V454),(V455),(V458),(V459)));          {object V436 = (VFUN_NARGS=5,(*(LnkLI134))((V422),(V430),(V431),(V434),(V435)));
1993          VMR49(V460)}          VMR49(V436)}
1994          goto T522;          goto T531;
1995  T522:;  T531:;
1996          {object V461 = (VFUN_NARGS=4,(*(LnkLI105))((V445),(V454),(V458),(V459)));          {object V437 = (VFUN_NARGS=4,(*(LnkLI134))((V422),(V430),(V434),(V435)));
1997          VMR49(V461)}}}}}          VMR49(V437)}}}}}
1998          base[0]=base[0];          base[0]=base[0];
1999          return Cnil;          return Cnil;
2000  }  }
2001  /*      local entry for function WALK-DODO*     */  /*      local entry for function WALK-DODO*     */
2002    
2003  static object LI51(V466,V467,V468,V469)  static object LI51(V442,V443,V444,V445)
2004    
2005  register object V466;object V467;object V468;object V469;  register object V442;object V443;object V444;object V445;
2006  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
2007          goto TTL;          goto TTL;
2008  TTL:;  TTL:;
2009          {register object V470;          {register object V446;
2010          V471 = (V468);          V447= (VFUN_NARGS=1,(*(LnkLI22))((V444)));
2011          V472= (VFUN_NARGS=1,(*(LnkLI22))((V468)));          V446= (*(LnkLI2))((V444),Cnil,/* INLINE-ARGS */V447);
2012          V470= (*(LnkLI2))(V471,Cnil,/* INLINE-ARGS */V472);          {object V448;
2013          {object V473;          object V449;
2014          object V474;          object V450;
2015          object V475;          object V451;
2016          object V476;          object V452;
2017          object V477;          object V453;
2018          object V478;          V448= CMPcar((V442));
2019          V473= CMPcar((V466));          V449= CMPcadr((V442));
2020          V474= CMPcadr((V466));          V450= CMPcaddr((V442));
2021          V475= CMPcaddr((V466));          V451= CMPcdddr((V442));
2022          V476= CMPcdddr((V466));          V452= (*(LnkLI138))((V449),(V444),(V446),(V443),(V445));
2023          V477= (*(LnkLI109))((V474),(V468),(V470),(V467),(V469));          base[6]= (V451);
2024          base[6]= (V476);          base[7]= (VV[127]->s.s_gfdef);
2025          base[7]= (VV[98]->s.s_gfdef);          base[8]= (V446);
         base[8]= (V470);  
2026          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
2027          (void) (*Lnk100)();          (void) (*Lnk129)();
2028          vs_top=sup;          vs_top=sup;
2029          V478= vs_base[0];          V453= vs_base[0];
2030          V479 = (V466);          V454= (*(LnkLI139))((V449),(V452),(V443),(V446));
2031          V480 = (V473);          V455= (*(LnkLI115))((V450),VV[62],(V443),(V446));
2032          V481= (*(LnkLI110))((V474),(V477),(V467),(V470));          {object V456 = (VFUN_NARGS=5,(*(LnkLI134))((V442),(V448),/* INLINE-ARGS */V454,/* INLINE-ARGS */V455,(V453)));
2033          V482= (*(LnkLI87))((V475),VV[54],(V467),(V470));          VMR50(V456)}}}
         V483 = (V478);  
         {object V484 = (VFUN_NARGS=5,(*(LnkLI105))(V479,V480,/* INLINE-ARGS */V481,/* INLINE-ARGS */V482,V483));  
         VMR50(V484)}}}  
2034          base[0]=base[0];          base[0]=base[0];
2035          return Cnil;          return Cnil;
2036  }  }
# Line 2058  static void L52() Line 2040  static void L52()
2040  {register object *base=vs_base;  {register object *base=vs_base;
2041          register object *sup=base+VM51; VC51          register object *sup=base+VM51; VC51
2042          vs_check;          vs_check;
2043          {object V485;          {object V457;
2044          object V486;          object V458;
2045          object V487;          object V459;
2046          check_arg(3);          check_arg(3);
2047          V485=(base[0]);          V457=(base[0]);
2048          V486=(base[1]);          V458=(base[1]);
2049          V487=(base[2]);          V459=(base[2]);
2050          vs_top=sup;          vs_top=sup;
2051          goto TTL;          goto TTL;
2052  TTL:;  TTL:;
2053          {object V488;          {object V460;
2054          object V489;          object V461;
2055          object V490;          object V462;
2056          V488= CMPcadr((V485));          V460= CMPcadr((V457));
2057          V489= CMPcaddr((V485));          V461= CMPcaddr((V457));
2058          V490= CMPcdddr((V485));          V462= CMPcdddr((V457));
2059          {object V492;          {object V464;
2060          object V493= (V489);          object V465= (V461);
2061          if(V493==Cnil){          if(V465==Cnil){
2062          V491= Cnil;          V463= Cnil;
2063          goto T538;}          goto T547;}
2064          base[4]=V492=MMcons(Cnil,Cnil);          base[4]=V464=MMcons(Cnil,Cnil);
2065          goto T539;          goto T548;
2066  T539:;  T548:;
2067          if(!(type_of((V493->c.c_car))==t_cons||((V493->c.c_car))==Cnil)){          if(!(type_of((V465->c.c_car))==t_cons||((V465->c.c_car))==Cnil)){
2068          goto T542;}          goto T551;}
2069          (V492->c.c_car)= CMPcar((V493->c.c_car));          (V464->c.c_car)= CMPcar((V465->c.c_car));
2070          goto T540;          goto T549;
2071          goto T542;          goto T551;
2072  T542:;  T551:;
2073          (V492->c.c_car)= (V493->c.c_car);          (V464->c.c_car)= (V465->c.c_car);
2074          goto T540;          goto T549;
2075  T540:;  T549:;
2076          if((V493=MMcdr(V493))==Cnil){          if((V465=MMcdr(V465))==Cnil){
2077          V491= base[4];          V463= base[4];
2078          goto T538;}          goto T547;}
2079          V492=MMcdr(V492)=MMcons(Cnil,Cnil);          V464=MMcdr(V464)=MMcons(Cnil,Cnil);
2080          goto T539;}          goto T548;}
2081          goto T538;          goto T547;
2082  T538:;  T547:;
2083          V495= list(2,VV[50],make_cons(VV[29],V491));          V467= list(2,VV[58],make_cons(VV[29],V463));
2084          V496= listA(3,VV[56],Cnil,(V490));          V468= listA(3,VV[64],Cnil,(V462));
2085          V497= make_cons(/* INLINE-ARGS */V496,Cnil);          V469= make_cons(/* INLINE-ARGS */V468,Cnil);
2086          base[3]= list(4,VV[1],Cnil,/* INLINE-ARGS */V495,list(3,VV[55],/* INLINE-ARGS */V497,list(4,VV[57],(V488),list(3,VV[1],(V489),VV[58]),VV[59])));          base[3]= list(4,VV[1],Cnil,/* INLINE-ARGS */V467,list(3,VV[63],/* INLINE-ARGS */V469,list(4,VV[65],(V460),list(3,VV[1],(V461),VV[66]),VV[67])));
2087          base[4]= (V486);          base[4]= (V458);
2088          base[5]= (V487);          base[5]= (V459);
2089          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2090          (void) (*Lnk81)();          (void) (*Lnk109)();
2091          return;}          return;}
2092          }          }
2093  }  }
2094  /*      local entry for function WALK-MULTIPLE-VALUE-SETQ       */  /*      local entry for function WALK-MULTIPLE-VALUE-SETQ       */
2095    
2096  static object LI54(V501,V502,V503)  static object LI54(V473,V474,V475)
2097    
2098  register object V501;object V502;object V503;  register object V473;object V474;object V475;
2099  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
2100          goto TTL;          goto TTL;
2101  TTL:;  TTL:;
2102          base[0]=MMcons((V503),Cnil);          base[0]=MMcons((V475),Cnil);
2103          {object V504;          {object V476;
2104          V504= CMPcadr((V501));          V476= CMPcadr((V473));
2105          base[1]=          base[1]=
2106          make_cclosure_new(LC83,Cnil,base[0],Cdata);          make_cclosure_new(LC83,Cnil,base[0],Cdata);
2107          base[2]= (V504);          base[2]= (V476);
2108          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2109          (void) (*Lnk111)();          (void) (*Lnk140)();
2110          vs_top=sup;          vs_top=sup;
2111          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2112          goto T548;}          goto T557;}
2113          {object V505;          {object V477;
2114          object V506;          object V478;
2115          object V507;          object V479;
2116          object V508;          object V480;
2117          {object V509;          {object V481;
2118          object V510= (V504);          object V482= (V476);
2119          if(V510==Cnil){          if(V482==Cnil){
2120          V505= Cnil;          V477= Cnil;
2121          goto T552;}          goto T561;}
2122          base[5]=V509=MMcons(Cnil,Cnil);          base[5]=V481=MMcons(Cnil,Cnil);
2123          goto T553;          goto T562;
2124  T553:;  T562:;
2125          vs_base=vs_top;          vs_base=vs_top;
2126          Lgensym();          Lgensym();
2127          vs_top=sup;          vs_top=sup;
2128          (V509->c.c_car)= vs_base[0];          (V481->c.c_car)= vs_base[0];
2129          if((V510=MMcdr(V510))==Cnil){          if((V482=MMcdr(V482))==Cnil){
2130          V505= base[5];          V477= base[5];
2131          goto T552;}          goto T561;}
2132          V509=MMcdr(V509)=MMcons(Cnil,Cnil);          V481=MMcdr(V481)=MMcons(Cnil,Cnil);
2133          goto T553;}          goto T562;}
2134          goto T552;          goto T561;
2135  T552:;  T561:;
2136          {object V512;          {object V484;
2137          object V513= (V504);          object V485= (V476);
2138          object V514= (V505);          object V486= (V477);
2139          if(V513==Cnil||V514==Cnil){          if(V485==Cnil||V486==Cnil){
2140          V506= Cnil;          V478= Cnil;
2141          goto T555;}          goto T564;}
2142          base[5]=V512=MMcons(Cnil,Cnil);          base[5]=V484=MMcons(Cnil,Cnil);
2143          goto T556;          goto T565;
2144  T556:;  T565:;
2145          (V512->c.c_car)= list(3,VV[60],(V513->c.c_car),(V514->c.c_car));          (V484->c.c_car)= list(3,VV[68],(V485->c.c_car),(V486->c.c_car));
2146          if((V513=MMcdr(V513))==Cnil||(V514=MMcdr(V514))==Cnil){          if((V485=MMcdr(V485))==Cnil||(V486=MMcdr(V486))==Cnil){
2147          V506= base[5];          V478= base[5];
         goto T555;}  
         V512=MMcdr(V512)=MMcons(Cnil,Cnil);  
         goto T556;}  
         goto T555;  
 T555:;  
         V507= listA(4,VV[61],(V505),CMPcaddr((V501)),(V506));  
         base[5]= (V507);  
         base[6]= (V502);  
         base[7]= (base[0]->c.c_car);  
         vs_top=(vs_base=base+5)+3;  
         (void) (*Lnk81)();  
         vs_top=sup;  
         V508= vs_base[0];  
         if(!(((V508))==((V507)))){  
2148          goto T564;}          goto T564;}
2149          {object V517 = (V501);          V484=MMcdr(V484)=MMcons(Cnil,Cnil);
2150          VMR52(V517)}          goto T565;}
2151          goto T564;          goto T564;
2152  T564:;  T564:;
2153          {object V518 = (V508);          V479= listA(4,VV[69],(V477),CMPcaddr((V473)),(V478));
2154          VMR52(V518)}}          base[5]= (V479);
2155          goto T548;          base[6]= (V474);
2156  T548:;          base[7]= (base[0]->c.c_car);
2157          {object V519 = (*(LnkLI87))((V501),VV[62],(V502),(base[0]->c.c_car));          vs_top=(vs_base=base+5)+3;
2158          VMR52(V519)}}          (void) (*Lnk109)();
2159            vs_top=sup;
2160            V480= vs_base[0];
2161            if(!(((V480))==((V479)))){
2162            goto T573;}
2163            {object V489 = (V473);
2164            VMR52(V489)}
2165            goto T573;
2166    T573:;
2167            {object V490 = (V480);
2168            VMR52(V490)}}
2169            goto T557;
2170    T557:;
2171            {object V491 = (*(LnkLI115))((V473),VV[70],(V474),(base[0]->c.c_car));
2172            VMR52(V491)}}
2173          base[0]=base[0];          base[0]=base[0];
2174          return Cnil;          return Cnil;
2175  }  }
2176  /*      local entry for function WALK-MULTIPLE-VALUE-BIND       */  /*      local entry for function WALK-MULTIPLE-VALUE-BIND       */
2177    
2178  static object LI56(V523,V524,V525)  static object LI56(V495,V496,V497)
2179    
2180  register object V523;object V524;object V525;  register object V495;object V496;object V497;
2181  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
2182          goto TTL;          goto TTL;
2183  TTL:;  TTL:;
2184          base[0]=MMcons((V525),Cnil);          base[0]=MMcons((V497),Cnil);
2185          base[1]=MMcons((V524),base[0]);          base[1]=MMcons((V496),base[0]);
2186          V526 = (base[0]->c.c_car);          V498= (VFUN_NARGS=1,(*(LnkLI22))((base[0]->c.c_car)));
2187          V527= (VFUN_NARGS=1,(*(LnkLI22))((base[0]->c.c_car)));          base[2]= (*(LnkLI2))((base[0]->c.c_car),Cnil,/* INLINE-ARGS */V498);
         base[2]= (*(LnkLI2))(V526,Cnil,/* INLINE-ARGS */V527);  
2188          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
2189          {object V528;          {object V499;
2190          object V529;          object V500;
2191          object V530;          object V501;
2192          object V531;          object V502;
2193          V528= CMPcar((V523));          V499= CMPcar((V495));
2194          base[4]= CMPcadr((V523));          base[4]= CMPcadr((V495));
2195          base[4]=MMcons(base[4],base[2]);          base[4]=MMcons(base[4],base[2]);
2196          V529= (*(LnkLI87))(CMPcaddr((V523)),VV[63],(base[1]->c.c_car),(base[0]->c.c_car));          V500= (*(LnkLI115))(CMPcaddr((V495)),VV[71],(base[1]->c.c_car),(base[0]->c.c_car));
2197          V530= CMPcdddr((V523));          V501= CMPcdddr((V495));
2198          base[7]=MMcons(Cnil,base[4]);          base[7]=MMcons(Cnil,base[4]);
2199          base[9]= (V530);          base[9]= (V501);
2200          base[10]=          base[10]=
2201          make_cclosure_new(LC84,Cnil,base[7],Cdata);          make_cclosure_new(LC84,Cnil,base[7],Cdata);
2202          base[11]= (base[2]->c.c_car);          base[11]= (base[2]->c.c_car);
2203          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
2204          (void) (*Lnk100)();          (void) (*Lnk129)();
2205          vs_top=sup;          vs_top=sup;
2206          V531= vs_base[0];          V502= vs_base[0];
2207          {object V532 = (VFUN_NARGS=5,(*(LnkLI105))((V523),(V528),(base[7]->c.c_car),(V529),(V531)));          {object V503 = (VFUN_NARGS=5,(*(LnkLI134))((V495),(V499),(base[7]->c.c_car),(V500),(V502)));
2208          VMR53(V532)}}          VMR53(V503)}}
2209          base[0]=base[0];          base[0]=base[0];
2210          return Cnil;          return Cnil;
2211  }  }
2212  /*      local entry for function WALK-BINDINGS-1        */  /*      local entry for function WALK-BINDINGS-1        */
2213    
2214  static object LI57(V538,V539,V540,V541,V542)  static object LI57(V509,V510,V511,V512,V513)
2215    
2216  register object V538;object V539;register object V540;object V541;object V542;  register object V509;object V510;register object V511;object V512;object V513;
2217  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
2218          goto TTL;          goto TTL;
2219  TTL:;  TTL:;
2220          if((V538)==Cnil){          if((V509)==Cnil){
2221          {object V543 = Cnil;          {object V514 = Cnil;
2222          VMR54(V543)}}          VMR54(V514)}}
2223          {register object V544;          {register object V515;
2224          V544= CMPcar((V538));          V515= CMPcar((V509));
2225          V545 = (V538);          if(!(type_of((V515))==t_symbol)){
         if(!(type_of((V544))==t_symbol)){  
         goto T578;}  
         (void)((*(LnkLI103))((V544),(V540)));  
         V546= V544;  
         goto T576;  
         goto T578;  
 T578:;  
         {object V548;  
         V549 = (V544);  
         V550= CMPcar((V544));  
         base[0]= CMPcadr((V544));  
         base[1]= (V541);  
         if(((V542))==Cnil){  
2226          goto T587;}          goto T587;}
2227          base[2]= (V540);          (void)((*(LnkLI132))((V515),(V511)));
2228            V516= V515;
2229          goto T585;          goto T585;
2230          goto T587;          goto T587;
2231  T587:;  T587:;
2232          base[2]= (V539);          {object V518;
2233          goto T585;          V519= CMPcar((V515));
2234  T585:;          base[0]= CMPcadr((V515));
2235            base[1]= (V512);
2236            if(((V513))==Cnil){
2237            goto T596;}
2238            base[2]= (V511);
2239            goto T594;
2240            goto T596;
2241    T596:;
2242            base[2]= (V510);
2243            goto T594;
2244    T594:;
2245          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2246          (void) (*Lnk81)();          (void) (*Lnk109)();
2247          vs_top=sup;          vs_top=sup;
2248          V551= vs_base[0];          V520= vs_base[0];
2249          V548= (VFUN_NARGS=4,(*(LnkLI105))(V549,/* INLINE-ARGS */V550,V551,CMPcddr((V544))));          V518= (VFUN_NARGS=4,(*(LnkLI134))((V515),/* INLINE-ARGS */V519,V520,CMPcddr((V515))));
2250          (void)((*(LnkLI103))(CMPcar((V544)),(V540)));          (void)((*(LnkLI132))(CMPcar((V515)),(V511)));
2251          V546= (V548);}          V516= (V518);}
2252          goto T576;          goto T585;
2253  T576:;  T585:;
2254          V552= (*(LnkLI109))(CMPcdr((V538)),(V539),(V540),(V541),(V542));          V521= (*(LnkLI138))(CMPcdr((V509)),(V510),(V511),(V512),(V513));
2255          {object V553 = (*(LnkLI96))(V545,V546,/* INLINE-ARGS */V552);          {object V522 = (*(LnkLI125))((V509),V516,/* INLINE-ARGS */V521);
2256          VMR54(V553)}}          VMR54(V522)}}
2257          base[0]=base[0];          base[0]=base[0];
2258          return Cnil;          return Cnil;
2259  }  }
2260  /*      local entry for function WALK-BINDINGS-2        */  /*      local entry for function WALK-BINDINGS-2        */
2261    
2262  static object LI58(V558,V559,V560,V561)  static object LI58(V527,V528,V529,V530)
2263    
2264  register object V558;object V559;object V560;object V561;  register object V527;object V528;object V529;object V530;
2265  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
2266          goto TTL;          goto TTL;
2267  TTL:;  TTL:;
2268          if((V558)==Cnil){          if((V527)==Cnil){
2269          {object V562 = Cnil;          {object V531 = Cnil;
2270          VMR55(V562)}}          VMR55(V531)}}
2271          {register object V563;          {register object V532;
2272          object V564;          object V533;
2273          V563= CMPcar((V558));          V532= CMPcar((V527));
2274          V564= CMPcar((V559));          V533= CMPcar((V528));
2275          V565 = (V558);          if(!(type_of((V532))==t_symbol)){
2276          if(!(type_of((V563))==t_symbol)){          goto T603;}
2277          goto T594;}          V534= (V532);
2278          V566= (V563);          goto T601;
2279          goto T592;          goto T603;
2280          goto T594;  T603:;
2281  T594:;          V535= CMPcar((V533));
2282          V567 = (V563);          V536= CMPcadr((V533));
2283          V568= CMPcar((V564));          V537= (*(LnkLI115))(CMPcddr((V532)),VV[72],(V529),(V530));
2284          V569= CMPcadr((V564));          V534= (VFUN_NARGS=4,(*(LnkLI134))((V532),/* INLINE-ARGS */V535,/* INLINE-ARGS */V536,/* INLINE-ARGS */V537));
2285          V570= (*(LnkLI87))(CMPcddr((V563)),VV[64],(V560),(V561));          goto T601;
2286          V566= (VFUN_NARGS=4,(*(LnkLI105))(V567,/* INLINE-ARGS */V568,/* INLINE-ARGS */V569,/* INLINE-ARGS */V570));  T601:;
2287          goto T592;          V538= (*(LnkLI139))(CMPcdr((V527)),CMPcdr((V528)),(V529),(V530));
2288  T592:;          {object V539 = (*(LnkLI125))((V527),V534,/* INLINE-ARGS */V538);
2289          V571= (*(LnkLI110))(CMPcdr((V558)),CMPcdr((V559)),(V560),(V561));          VMR55(V539)}}
         {object V572 = (*(LnkLI96))(V565,V566,/* INLINE-ARGS */V571);  
         VMR55(V572)}}  
2290          return Cnil;          return Cnil;
2291  }  }
2292  /*      local entry for function WALK-LAMBDA    */  /*      local entry for function WALK-LAMBDA    */
2293    
2294  static object LI59(V576,V577,V578)  static object LI59(V543,V544,V545)
2295    
2296  register object V576;object V577;object V578;  register object V543;object V544;object V545;
2297  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
2298          goto TTL;          goto TTL;
2299  TTL:;  TTL:;
2300          {object V579;          {object V546;
2301          V580 = (V578);          V547= (VFUN_NARGS=1,(*(LnkLI22))((V545)));
2302          V581= (VFUN_NARGS=1,(*(LnkLI22))((V578)));          V546= (*(LnkLI2))((V545),Cnil,/* INLINE-ARGS */V547);
2303          V579= (*(LnkLI2))(V580,Cnil,/* INLINE-ARGS */V581);          {object V548;
2304          {object V582;          object V549;
2305          object V583;          object V550;
2306          object V584;          object V551;
2307          object V585;          V548= CMPcadr((V543));
2308          V582= CMPcadr((V576));          V549= CMPcddr((V543));
2309          V583= CMPcddr((V576));          V550= (VFUN_NARGS=3,(*(LnkLI133))((V548),(V544),(V546)));
2310          V584= (VFUN_NARGS=3,(*(LnkLI104))((V582),(V577),(V579)));          base[4]= (V549);
2311          base[4]= (V583);          base[5]= (VV[127]->s.s_gfdef);
2312          base[5]= (VV[98]->s.s_gfdef);          base[6]= (V546);
         base[6]= (V579);  
2313          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2314          (void) (*Lnk100)();          (void) (*Lnk129)();
2315          vs_top=sup;          vs_top=sup;
2316          V585= vs_base[0];          V551= vs_base[0];
2317          {object V586 = (VFUN_NARGS=4,(*(LnkLI105))((V576),CMPcar((V576)),(V584),(V585)));          {object V552 = (VFUN_NARGS=4,(*(LnkLI134))((V543),CMPcar((V543)),(V550),(V551)));
2318          VMR56(V586)}}}          VMR56(V552)}}}
2319          base[0]=base[0];          base[0]=base[0];
2320          return Cnil;          return Cnil;
2321  }  }
2322  /*      local entry for function WALK-NAMED-LAMBDA      */  /*      local entry for function WALK-NAMED-LAMBDA      */
2323    
2324  static object LI60(V590,V591,V592)  static object LI60(V556,V557,V558)
2325    
2326  register object V590;object V591;object V592;  register object V556;object V557;object V558;
2327  {        VMB57 VMS57 VMV57  {        VMB57 VMS57 VMV57
2328          goto TTL;          goto TTL;
2329  TTL:;  TTL:;
2330          {object V593;          {object V559;
2331          V594 = (V592);          V560= (VFUN_NARGS=1,(*(LnkLI22))((V558)));
2332          V595= (VFUN_NARGS=1,(*(LnkLI22))((V592)));          V559= (*(LnkLI2))((V558),Cnil,/* INLINE-ARGS */V560);
2333          V593= (*(LnkLI2))(V594,Cnil,/* INLINE-ARGS */V595);          {object V561;
2334          {object V596;          object V562;
2335          object V597;          object V563;
2336          object V598;          object V564;
2337          object V599;          object V565;
2338          object V600;          V561= CMPcadr((V556));
2339          V596= CMPcadr((V590));          V562= CMPcaddr((V556));
2340          V597= CMPcaddr((V590));          V563= CMPcdddr((V556));
2341          V598= CMPcdddr((V590));          V564= (VFUN_NARGS=3,(*(LnkLI133))((V562),(V557),(V559)));
2342          V599= (VFUN_NARGS=3,(*(LnkLI104))((V597),(V591),(V593)));          base[5]= (V563);
2343          base[5]= (V598);          base[6]= (VV[127]->s.s_gfdef);
2344          base[6]= (VV[98]->s.s_gfdef);          base[7]= (V559);
         base[7]= (V593);  
2345          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2346          (void) (*Lnk100)();          (void) (*Lnk129)();
2347          vs_top=sup;          vs_top=sup;
2348          V600= vs_base[0];          V565= vs_base[0];
2349          {object V601 = (VFUN_NARGS=5,(*(LnkLI105))((V590),CMPcar((V590)),(V596),(V599),(V600)));          {object V566 = (VFUN_NARGS=5,(*(LnkLI134))((V556),CMPcar((V556)),(V561),(V564),(V565)));
2350          VMR57(V601)}}}          VMR57(V566)}}}
2351          base[0]=base[0];          base[0]=base[0];
2352          return Cnil;          return Cnil;
2353  }  }
2354  /*      local entry for function WALK-SETQ      */  /*      local entry for function WALK-SETQ      */
2355    
2356  static object LI61(V605,V606,V607)  static object LI61(V570,V571,V572)
2357    
2358  object V605;object V606;object V607;  object V570;object V571;object V572;
2359  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
2360          goto TTL;          goto TTL;
2361  TTL:;  TTL:;
2362          if((CMPcdddr((V605)))==Cnil){          if((CMPcdddr((V570)))==Cnil){
2363          goto T614;}          goto T623;}
2364          {object V608;          {object V573;
2365          object V609;          object V574;
2366          {register object V610;          {register object V575;
2367          register object V611;          register object V576;
2368          V611= CMPcdr((V605));          V576= CMPcdr((V570));
2369          V610= Cnil;          V575= Cnil;
2370          goto T619;          goto T628;
2371  T619:;  T628:;
2372          if(((V611))!=Cnil){          if(((V576))!=Cnil){
2373          goto T621;}          goto T630;}
2374          V608= nreverse((V610));          V573= nreverse((V575));
2375          goto T616;          goto T625;
2376          goto T621;          goto T630;
2377  T621:;  T630:;
2378          {register object V612;          {register object V577;
2379          register object V613;          register object V578;
2380          {register object V614;          {register object V579;
2381          V614= CMPcar((V611));          V579= CMPcar((V576));
2382          V611= CMPcdr((V611));          V576= CMPcdr((V576));
2383          V612= (V614);}          V577= (V579);}
2384          {register object V615;          {register object V580;
2385          V615= CMPcar((V611));          V580= CMPcar((V576));
2386          V611= CMPcdr((V611));          V576= CMPcdr((V576));
2387          V613= (V615);}          V578= (V580);}
2388          {register object V616;          {register object V581;
2389          V616= list(3,VV[60],(V612),(V613));          V581= list(3,VV[68],(V577),(V578));
2390          V610= make_cons((V616),(V610));}}          V575= make_cons((V581),(V575));}}
2391          goto T619;}          goto T628;}
2392          goto T616;          goto T625;
2393  T616:;  T625:;
2394          V609= (*(LnkLI98))((V608),(V607));          V574= (*(LnkLI127))((V573),(V572));
2395          if(!(((V608))==((V609)))){          if(!(((V573))==((V574)))){
2396          goto T637;}          goto T646;}
2397          {object V617 = (V605);          {object V582 = (V570);
2398          VMR58(V617)}          VMR58(V582)}
2399          goto T637;          goto T646;
2400  T637:;  T646:;
2401          {object V618 = make_cons(VV[65],(V609));          {object V583 = make_cons(VV[73],(V574));
2402          VMR58(V618)}}          VMR58(V583)}}
2403          goto T614;          goto T623;
2404  T614:;  T623:;
2405          {object V619;          {object V584;
2406          object V620;          object V585;
2407          object V621;          object V586;
2408          V619= CMPcadr((V605));          V584= CMPcadr((V570));
2409          V620= CMPcaddr((V605));          V585= CMPcaddr((V570));
2410          V622= (*(LnkLI85))((V619),(V607));          V587= (*(LnkLI113))((V584),(V572));
2411          V621= CMPcar(/* INLINE-ARGS */V622);          V586= CMPcar(/* INLINE-ARGS */V587);
2412          if(((V621))==Cnil){          if(((V586))==Cnil){
2413          goto T643;}          goto T652;}
2414          {object V623;          {object V588;
2415          object V624;          object V589;
2416          V623= list(3,VV[35],CMPcddr((V621)),(V620));          V588= list(3,VV[35],CMPcddr((V586)),(V585));
2417          base[5]= (V623);          base[5]= (V588);
2418          base[6]= (V606);          base[6]= (V571);
2419          base[7]= (V607);          base[7]= (V572);
2420          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2421          (void) (*Lnk81)();          (void) (*Lnk109)();
2422          vs_top=sup;          vs_top=sup;
2423          V624= vs_base[0];          V589= vs_base[0];
2424          if(!(((V623))==((V624)))){          if(!(((V588))==((V589)))){
2425          goto T651;}          goto T660;}
2426          {object V625 = (V605);          {object V590 = (V570);
2427          VMR58(V625)}          VMR58(V590)}
2428          goto T651;          goto T660;
2429  T651:;  T660:;
2430          {object V626 = (V624);          {object V591 = (V589);
2431          VMR58(V626)}}          VMR58(V591)}}
2432          goto T643;          goto T652;
2433  T643:;  T652:;
2434          V627 = (V605);          base[3]= (V584);
         base[3]= (V619);  
2435          base[4]= VV[48];          base[4]= VV[48];
2436          base[5]= (V607);          base[5]= (V572);
2437          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2438          (void) (*Lnk81)();          (void) (*Lnk109)();
2439          vs_top=sup;          vs_top=sup;
2440          V628= vs_base[0];          V592= vs_base[0];
2441          base[3]= (V620);          base[3]= (V585);
2442          base[4]= VV[44];          base[4]= VV[44];
2443          base[5]= (V607);          base[5]= (V572);
2444          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2445          (void) (*Lnk81)();          (void) (*Lnk109)();
2446          vs_top=sup;          vs_top=sup;
2447          V629= vs_base[0];          V593= vs_base[0];
2448          {object V630 = (VFUN_NARGS=4,(*(LnkLI112))(V627,VV[60],V628,V629));          {object V594 = (VFUN_NARGS=4,(*(LnkLI141))((V570),VV[68],V592,V593));
2449          VMR58(V630)}}          VMR58(V594)}}
2450          base[0]=base[0];          base[0]=base[0];
2451          return Cnil;          return Cnil;
2452  }  }
2453  /*      local entry for function WALK-SYMBOL-MACROLET   */  /*      local entry for function WALK-SYMBOL-MACROLET   */
2454    
2455  static object LI62(V634,V635,V636)  static object LI62(V598,V599,V600)
2456    
2457  object V634;object V635;object V636;  object V598;object V599;object V600;
2458  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
2459          goto TTL;          goto TTL;
2460  TTL:;  TTL:;
2461          {object V637;          {object V601;
2462          V637= CMPcadr((V634));          V601= CMPcadr((V598));
2463          {object V638;          {object V602;
2464          V639 = (V636);          {object V604;
2465          {object V641;          object V605= (V601);
2466          object V642= (V637);          if(V605==Cnil){
2467          if(V642==Cnil){          V603= Cnil;
2468          V640= Cnil;          goto T672;}
2469          goto T663;}          base[1]=V604=MMcons(Cnil,Cnil);
2470          base[1]=V641=MMcons(Cnil,Cnil);          goto T673;
2471          goto T664;  T673:;
2472  T664:;          (V604->c.c_car)= listA(3,CMPcar((V605->c.c_car)),VV[26],CMPcadr((V605->c.c_car)));
2473          (V641->c.c_car)= listA(3,CMPcar((V642->c.c_car)),VV[26],CMPcadr((V642->c.c_car)));          if((V605=MMcdr(V605))==Cnil){
2474          if((V642=MMcdr(V642))==Cnil){          V603= base[1];
2475          V640= base[1];          goto T672;}
2476          goto T663;}          V604=MMcdr(V604)=MMcons(Cnil,Cnil);
2477          V641=MMcdr(V641)=MMcons(Cnil,Cnil);          goto T673;}
2478          goto T664;}          goto T672;
2479          goto T663;  T672:;
2480  T663:;          V607= (*(LnkLI101))((V600));
2481          V644= (*(LnkLI73))((V636));          V608= append(V603,/* INLINE-ARGS */V607);
2482          V645= append(V640,/* INLINE-ARGS */V644);          V609= (VFUN_NARGS=3,(*(LnkLI22))((V600),VV[74],/* INLINE-ARGS */V608));
2483          V646= (VFUN_NARGS=3,(*(LnkLI22))((V636),VV[66],/* INLINE-ARGS */V645));          V602= (*(LnkLI2))((V600),Cnil,/* INLINE-ARGS */V609);
2484          V638= (*(LnkLI2))(V639,Cnil,/* INLINE-ARGS */V646);          V610= (*(LnkLI127))(CMPcddr((V598)),(V602));
2485          V647 = (V634);          {object V611 = (VFUN_NARGS=4,(*(LnkLI134))((V598),VV[75],(V601),/* INLINE-ARGS */V610));
2486          V648 = (V637);          VMR59(V611)}}}
         V649= (*(LnkLI98))(CMPcddr((V634)),(V638));  
         {object V650 = (VFUN_NARGS=4,(*(LnkLI105))(V647,VV[67],V648,/* INLINE-ARGS */V649));  
         VMR59(V650)}}}  
2487          base[0]=base[0];          base[0]=base[0];
2488          return Cnil;          return Cnil;
2489  }  }
2490  /*      local entry for function WALK-TAGBODY   */  /*      local entry for function WALK-TAGBODY   */
2491    
2492  static object LI63(V654,V655,V656)  static object LI63(V615,V616,V617)
2493    
2494  object V654;object V655;object V656;  object V615;object V616;object V617;
2495  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
2496          goto TTL;          goto TTL;
2497  TTL:;  TTL:;
2498          V657 = (V654);          V618= CMPcar((V615));
2499          V658= CMPcar((V654));          V619= (*(LnkLI142))(CMPcdr((V615)),(V616),(V617));
2500          V659= (*(LnkLI113))(CMPcdr((V654)),(V655),(V656));          {object V620 = (*(LnkLI125))((V615),/* INLINE-ARGS */V618,/* INLINE-ARGS */V619);
2501          {object V660 = (*(LnkLI96))(V657,/* INLINE-ARGS */V658,/* INLINE-ARGS */V659);          VMR60(V620)}
         VMR60(V660)}  
2502          return Cnil;          return Cnil;
2503  }  }
2504  /*      local entry for function WALK-TAGBODY-1 */  /*      local entry for function WALK-TAGBODY-1 */
2505    
2506  static object LI64(V664,V665,V666)  static object LI64(V624,V625,V626)
2507    
2508  register object V664;object V665;object V666;  register object V624;object V625;object V626;
2509  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
2510          goto TTL;          goto TTL;
2511  TTL:;  TTL:;
2512          if((V664)==Cnil){          if((V624)==Cnil){
2513          {object V667 = Cnil;          {object V627 = Cnil;
2514          VMR61(V667)}}          VMR61(V627)}}
2515          V668 = (V664);          base[0]= CMPcar((V624));
2516          base[0]= CMPcar((V664));          if(!(type_of(CMPcar((V624)))==t_symbol)){
2517          if(!(type_of(CMPcar((V664)))==t_symbol)){          goto T679;}
         goto T670;}  
2518          base[1]= VV[37];          base[1]= VV[37];
2519          goto T668;          goto T677;
2520          goto T670;          goto T679;
2521  T670:;  T679:;
2522          base[1]= (V665);          base[1]= (V625);
2523          goto T668;          goto T677;
2524  T668:;  T677:;
2525          base[2]= (V666);          base[2]= (V626);
2526          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2527          (void) (*Lnk81)();          (void) (*Lnk109)();
2528          vs_top=sup;          vs_top=sup;
2529          V669= vs_base[0];          V628= vs_base[0];
2530          V670= (*(LnkLI113))(CMPcdr((V664)),(V665),(V666));          V629= (*(LnkLI142))(CMPcdr((V624)),(V625),(V626));
2531          {object V671 = (*(LnkLI96))(V668,V669,/* INLINE-ARGS */V670);          {object V630 = (*(LnkLI125))((V624),V628,/* INLINE-ARGS */V629);
2532          VMR61(V671)}          VMR61(V630)}
2533          base[0]=base[0];          base[0]=base[0];
2534          return Cnil;          return Cnil;
2535  }  }
2536  /*      local entry for function WALK-COMPILER-LET      */  /*      local entry for function WALK-COMPILER-LET      */
2537    
2538  static object LI65(V675,V676,V677)  static object LI65(V634,V635,V636)
2539    
2540  object V675;object V676;object V677;  object V634;object V635;object V636;
2541  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
2542          goto TTL;          goto TTL;
2543  TTL:;  TTL:;
2544          {register object V678;          {register object V637;
2545          register object V679;          register object V638;
2546          V678= Cnil;          V637= Cnil;
2547          V679= Cnil;          V638= Cnil;
2548          {register object V680;          {register object V639;
2549          register object V681;          register object V640;
2550          V680= CMPcadr((V675));          V639= CMPcadr((V634));
2551          V681= CMPcar((V680));          V640= CMPcar((V639));
2552          goto T677;          goto T686;
2553  T677:;  T686:;
2554          if(!(((V680))==Cnil)){          if(!(((V639))==Cnil)){
2555          goto T678;}          goto T687;}
2556          goto T673;          goto T682;
2557          goto T678;          goto T687;
2558  T678:;  T687:;
2559          if(!(type_of((V681))==t_symbol)){          if(!(type_of((V640))==t_symbol)){
2560          goto T684;}          goto T693;}
2561          {register object V682;          {register object V641;
2562          V682= (V681);          V641= (V640);
2563          V678= make_cons((V682),(V678));}          V637= make_cons((V641),(V637));}
2564          {register object V683;          {register object V642;
2565          V683= Cnil;          V642= Cnil;
2566          V679= make_cons((V683),(V679));          V638= make_cons((V642),(V638));
2567          goto T682;}          goto T691;}
2568          goto T684;          goto T693;
2569  T684:;  T693:;
2570          {register object V684;          {register object V643;
2571          V684= CMPcar((V681));          V643= CMPcar((V640));
2572          V678= make_cons((V684),(V678));}          V637= make_cons((V643),(V637));}
2573          {register object V685;          {register object V644;
2574          base[3]= CMPcadr((V681));          base[3]= CMPcadr((V640));
2575          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2576          Leval();          Leval();
2577          vs_top=sup;          vs_top=sup;
2578          V685= vs_base[0];          V644= vs_base[0];
2579          V679= make_cons((V685),(V679));}          V638= make_cons((V644),(V638));}
2580            goto T691;
2581    T691:;
2582            V639= CMPcdr((V639));
2583            V640= CMPcar((V639));
2584            goto T686;}
2585          goto T682;          goto T682;
2586  T682:;  T682:;
2587          V680= CMPcdr((V680));          V645= CMPcar((V634));
2588          V681= CMPcar((V680));          V646= CMPcadr((V634));
         goto T677;}  
         goto T673;  
 T673:;  
         V686 = (V675);  
         V687= CMPcar((V675));  
         V688= CMPcadr((V675));  
2589          {object symbols,values;          {object symbols,values;
2590          bds_ptr V690=bds_top;          bds_ptr V648=bds_top;
2591          base[0]= (V678);          base[0]= (V637);
2592          symbols= base[0];          symbols= base[0];
2593          base[1]= (V679);          base[1]= (V638);
2594          values= base[1];          values= base[1];
2595          while(!endp(symbols)){          while(!endp(symbols)){
2596          if(endp(values))bds_bind(MMcar(symbols),OBJNULL);          if(endp(values))bds_bind(MMcar(symbols),OBJNULL);
2597          else{bds_bind(MMcar(symbols),MMcar(values));          else{bds_bind(MMcar(symbols),MMcar(values));
2598          values=MMcdr(values);}          values=MMcdr(values);}
2599          symbols=MMcdr(symbols);}          symbols=MMcdr(symbols);}
2600          V691= (*(LnkLI98))(CMPcddr((V675)),(V677));          V649= (*(LnkLI127))(CMPcddr((V634)),(V636));
2601          bds_unwind(V690);          bds_unwind(V648);
2602          V689= V691;}          V647= V649;}
2603          {object V692 = (VFUN_NARGS=4,(*(LnkLI105))(V686,/* INLINE-ARGS */V687,/* INLINE-ARGS */V688,V689));          {object V650 = (VFUN_NARGS=4,(*(LnkLI134))((V634),/* INLINE-ARGS */V645,/* INLINE-ARGS */V646,V647));
2604          VMR62(V692)}}          VMR62(V650)}}
2605          base[0]=base[0];          base[0]=base[0];
2606          return Cnil;          return Cnil;
2607  }  }
2608  /*      local entry for function WALK-MACROLET  */  /*      local entry for function WALK-MACROLET  */
2609    
2610  static object LI68(V696,V697,V698)  static object LI68(V654,V655,V656)
2611    
2612  object V696;object V697;object V698;  object V654;object V655;object V656;
2613  {        VMB63 VMS63 VMV63  {        VMB63 VMS63 VMV63
2614          goto TTL;          goto TTL;
2615  TTL:;  TTL:;
2616          base[0]= (V697);          base[0]= (V655);
2617          V699= (*(LnkLI84))((V698));          V657= (*(LnkLI112))((V656));
2618          V700= (VFUN_NARGS=3,(*(LnkLI22))(Cnil,VV[43],/* INLINE-ARGS */V699));          V658= (VFUN_NARGS=3,(*(LnkLI22))(Cnil,VV[43],/* INLINE-ARGS */V657));
2619          base[1]= (*(LnkLI2))(Cnil,Cnil,/* INLINE-ARGS */V700);          base[1]= (*(LnkLI2))(Cnil,Cnil,/* INLINE-ARGS */V658);
2620          {register object V701;          {object V659;
2621          register object V702;          object V660;
2622          V701= Cnil;          V659= Cnil;
2623          V702= Cnil;          V660= Cnil;
2624          {object V703= CMPcar((V696));          {object V661;
2625          if((V703!= VV[55])          V661= CMPcar((V654));
2626          && (V703!= VV[114]))goto T707;          {object V662= (V661);
2627          {register object V704;          if((V662!= VV[63])
2628          register object V705;          && (V662!= VV[143]))goto T717;
2629          V704= CMPcadr((V696));          {register object V663;
2630          V705= CMPcar((V704));          object V664;
2631          goto T711;          V663= CMPcadr((V654));
2632  T711:;          V664= CMPcar((V663));
2633          if(!(((V704))==Cnil)){          goto T721;
2634          goto T712;}  T721:;
2635          goto T706;          if(!(((V663))==Cnil)){
2636          goto T712;          goto T722;}
2637  T712:;          goto T715;
2638          V701= make_cons(V705,(V701));          goto T722;
2639          V704= CMPcdr((V704));  T722:;
2640          V705= CMPcar((V704));          V659= make_cons(V664,(V659));
2641          goto T711;}          V663= CMPcdr((V663));
2642          goto T707;          V664= CMPcar((V663));
2643  T707:;          goto T721;}
2644          if((V703!= VV[115]))goto T723;          goto T717;
2645          {register object V707;  T717:;
2646          register object V708;          if((V662!= VV[144]))goto T733;
2647          V707= CMPcadr((V696));          {register object V666;
2648          V708= CMPcar((V707));          register object V667;
2649          goto T727;          V666= CMPcadr((V654));
2650  T727:;          V667= CMPcar((V666));
2651          if(!(((V707))==Cnil)){          goto T737;
2652          goto T728;}  T737:;
2653          goto T706;          if(!(((V666))==Cnil)){
2654          goto T728;          goto T738;}
2655  T728:;          goto T715;
2656          {object V709;          goto T738;
2657          V710= CMPcar((V708));  T738:;
2658          V711= CMPcadr((V708));          {object V668;
2659          V712= CMPcddr((V708));          V669= CMPcar((V667));
2660          V713= coerce_to_string(CMPcar((V708)));          V670= CMPcadr((V667));
2661          V709= list(2,/* INLINE-ARGS */V710,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V711,/* INLINE-ARGS */V712,/* INLINE-ARGS */V713)));          V671= CMPcddr((V667));
2662          V702= make_cons((V709),(V702));}          V672= coerce_to_string(CMPcar((V667)));
2663          V707= CMPcdr((V707));          V668= list(2,/* INLINE-ARGS */V669,(VFUN_NARGS=3,(*(LnkLI145))(/* INLINE-ARGS */V670,/* INLINE-ARGS */V671,/* INLINE-ARGS */V672)));
2664          V708= CMPcar((V707));          V660= make_cons((V668),(V660));}
2665          goto T727;}          V666= CMPcdr((V666));
2666          goto T723;          V667= CMPcar((V666));
2667  T723:;          goto T737;}
2668          FEerror("The ECASE key value ~s is illegal.",1,V703);          goto T733;
2669          goto T706;}  T733:;
2670          goto T706;          base[2]= VV[49];
2671  T706:;          base[3]= VV[50];
2672          {object V714;          base[4]= VV[51];
2673          V714= (*(LnkLI2))((V698),(V701),(V702));          base[5]= VV[52];
2674          V715 = (V696);          base[6]= (V661);
2675          V716= CMPcar((V696));          base[7]= VV[53];
2676          base[2]= CMPcadr((V696));          base[8]= VV[82];
2677            base[9]= VV[55];
2678            base[10]= VV[83];
2679            vs_top=(vs_base=base+2)+9;
2680            (void) (*Lnk121)();
2681            vs_top=sup;}}
2682            goto T715;
2683    T715:;
2684            {object V673;
2685            V673= (*(LnkLI2))((V656),(V659),(V660));
2686            V674= CMPcar((V654));
2687            base[2]= CMPcadr((V654));
2688          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2689          L69(base);          L69(base);
2690          vs_top=sup;          vs_top=sup;
2691          V717= vs_base[0];          V675= vs_base[0];
2692          base[2]= CMPcddr((V696));          base[2]= CMPcddr((V654));
2693          base[3]= (VV[98]->s.s_gfdef);          base[3]= (VV[127]->s.s_gfdef);
2694          base[4]= (V714);          base[4]= (V673);
2695          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2696          (void) (*Lnk100)();          (void) (*Lnk129)();
2697          vs_top=sup;          vs_top=sup;
2698          V718= vs_base[0];          V676= vs_base[0];
2699          {object V719 = (VFUN_NARGS=4,(*(LnkLI105))(V715,/* INLINE-ARGS */V716,V717,V718));          {object V677 = (VFUN_NARGS=4,(*(LnkLI134))((V654),/* INLINE-ARGS */V674,V675,V676));
2700          VMR63(V719)}}}          VMR63(V677)}}}
2701          base[0]=base[0];          base[0]=base[0];
2702          return Cnil;          return Cnil;
2703  }  }
2704  /*      local entry for function WALK-FLET      */  /*      local entry for function WALK-FLET      */
2705    
2706  static object LI72(V723,V724,V725)  static object LI72(V681,V682,V683)
2707    
2708  object V723;object V724;object V725;  object V681;object V682;object V683;
2709  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
2710          goto TTL;          goto TTL;
2711  TTL:;  TTL:;
2712          base[0]= (V725);          base[0]= (V683);
2713          base[1]= (V724);          base[1]= (V682);
2714          V726 = (V723);          V684= CMPcar((V681));
2715          V727= CMPcar((V723));          V685= CMPcdr((V681));
2716          V728= CMPcdr((V723));          base[2]= CMPcadr((V681));
         base[2]= CMPcadr((V723));  
2717          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2718          L73(base);          L73(base);
2719          vs_top=sup;          vs_top=sup;
2720          V729= vs_base[0];          V686= vs_base[0];
2721          {register object V731;          {object V688;
2722          register object V732;          object V689;
2723          V731= Cnil;          V688= Cnil;
2724          V732= Cnil;          V689= Cnil;
2725          {object V733= CMPcar((V723));          {object V690;
2726          if((V733!= VV[55])          V690= CMPcar((V681));
2727          && (V733!= VV[114]))goto T751;          {object V691= (V690);
2728          {register object V734;          if((V691!= VV[63])
2729          register object V735;          && (V691!= VV[143]))goto T771;
2730          V734= CMPcadr((V723));          {register object V692;
2731          V735= CMPcar((V734));          object V693;
2732          goto T755;          V692= CMPcadr((V681));
2733  T755:;          V693= CMPcar((V692));
2734          if(!(((V734))==Cnil)){          goto T775;
2735          goto T756;}  T775:;
2736          goto T750;          if(!(((V692))==Cnil)){
2737          goto T756;          goto T776;}
2738  T756:;          goto T769;
2739          V731= make_cons(V735,(V731));          goto T776;
2740          V734= CMPcdr((V734));  T776:;
2741          V735= CMPcar((V734));          V688= make_cons(V693,(V688));
2742          goto T755;}          V692= CMPcdr((V692));
2743          goto T751;          V693= CMPcar((V692));
2744  T751:;          goto T775;}
         if((V733!= VV[115]))goto T767;  
         {register object V737;  
         register object V738;  
         V737= CMPcadr((V723));  
         V738= CMPcar((V737));  
2745          goto T771;          goto T771;
2746  T771:;  T771:;
2747          if(!(((V737))==Cnil)){          if((V691!= VV[144]))goto T787;
2748          goto T772;}          {register object V695;
2749          goto T750;          register object V696;
2750          goto T772;          V695= CMPcadr((V681));
2751  T772:;          V696= CMPcar((V695));
2752          {object V739;          goto T791;
2753          V740= CMPcar((V738));  T791:;
2754          V741= CMPcadr((V738));          if(!(((V695))==Cnil)){
2755          V742= CMPcddr((V738));          goto T792;}
2756          V743= coerce_to_string(CMPcar((V738)));          goto T769;
2757          V739= list(2,/* INLINE-ARGS */V740,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V741,/* INLINE-ARGS */V742,/* INLINE-ARGS */V743)));          goto T792;
2758          V732= make_cons((V739),(V732));}  T792:;
2759          V737= CMPcdr((V737));          {object V697;
2760          V738= CMPcar((V737));          V698= CMPcar((V696));
2761          goto T771;}          V699= CMPcadr((V696));
2762          goto T767;          V700= CMPcddr((V696));
2763  T767:;          V701= coerce_to_string(CMPcar((V696)));
2764          FEerror("The ECASE key value ~s is illegal.",1,V733);          V697= list(2,/* INLINE-ARGS */V698,(VFUN_NARGS=3,(*(LnkLI145))(/* INLINE-ARGS */V699,/* INLINE-ARGS */V700,/* INLINE-ARGS */V701)));
2765          goto T750;}          V689= make_cons((V697),(V689));}
2766          goto T750;          V695= CMPcdr((V695));
2767  T750:;          V696= CMPcar((V695));
2768          {object V744;          goto T791;}
2769          V744= (*(LnkLI2))(base[0],(V731),(V732));          goto T787;
2770          base[2]= CMPcddr((V723));  T787:;
2771          base[3]= (VV[98]->s.s_gfdef);          base[2]= VV[49];
2772          base[4]= (V744);          base[3]= VV[50];
2773            base[4]= VV[51];
2774            base[5]= VV[52];
2775            base[6]= (V690);
2776            base[7]= VV[53];
2777            base[8]= VV[90];
2778            base[9]= VV[55];
2779            base[10]= VV[91];
2780            vs_top=(vs_base=base+2)+9;
2781            (void) (*Lnk121)();
2782            vs_top=sup;}}
2783            goto T769;
2784    T769:;
2785            {object V702;
2786            V702= (*(LnkLI2))(base[0],(V688),(V689));
2787            base[2]= CMPcddr((V681));
2788            base[3]= (VV[127]->s.s_gfdef);
2789            base[4]= (V702);
2790          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2791          (void) (*Lnk100)();          (void) (*Lnk129)();
2792          vs_top=sup;          vs_top=sup;
2793          V730= vs_base[0];}}          V687= vs_base[0];}}
2794          V745= (*(LnkLI96))(/* INLINE-ARGS */V728,V729,V730);          V703= (*(LnkLI125))(/* INLINE-ARGS */V685,V686,V687);
2795          {object V746 = (*(LnkLI96))(V726,/* INLINE-ARGS */V727,/* INLINE-ARGS */V745);          {object V704 = (*(LnkLI125))((V681),/* INLINE-ARGS */V684,/* INLINE-ARGS */V703);
2796          VMR64(V746)}          VMR64(V704)}
2797          base[0]=base[0];          base[0]=base[0];
2798          return Cnil;          return Cnil;
2799  }  }
2800  /*      local entry for function WALK-LABELS    */  /*      local entry for function WALK-LABELS    */
2801    
2802  static object LI76(V750,V751,V752)  static object LI76(V708,V709,V710)
2803    
2804  object V750;object V751;object V752;  object V708;object V709;object V710;
2805  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
2806          goto TTL;          goto TTL;
2807  TTL:;  TTL:;
2808          base[0]= (V751);          base[0]= (V709);
2809          {register object V753;          {register object V711;
2810          register object V754;          register object V712;
2811          V753= Cnil;          V711= Cnil;
2812          V754= Cnil;          V712= Cnil;
2813          {object V755= CMPcar((V750));          {object V713;
2814          if((V755!= VV[55])          V713= CMPcar((V708));
2815          && (V755!= VV[114]))goto T789;          {object V714= (V713);
2816          {register object V756;          if((V714!= VV[63])
2817          register object V757;          && (V714!= VV[143]))goto T819;
2818          V756= CMPcadr((V750));          {register object V715;
2819          V757= CMPcar((V756));          register object V716;
2820          goto T793;          V715= CMPcadr((V708));
2821  T793:;          V716= CMPcar((V715));
2822          if(!(((V756))==Cnil)){          goto T823;
2823          goto T794;}  T823:;
2824          goto T788;          if(!(((V715))==Cnil)){
2825          goto T794;          goto T824;}
2826  T794:;          goto T817;
2827          V753= make_cons(V757,(V753));          goto T824;
2828          V756= CMPcdr((V756));  T824:;
2829          V757= CMPcar((V756));          V711= make_cons(V716,(V711));
2830          goto T793;}          V715= CMPcdr((V715));
2831          goto T789;          V716= CMPcar((V715));
2832  T789:;          goto T823;}
2833          if((V755!= VV[115]))goto T805;          goto T819;
2834          {register object V759;  T819:;
2835          register object V760;          if((V714!= VV[144]))goto T835;
2836          V759= CMPcadr((V750));          {register object V718;
2837          V760= CMPcar((V759));          register object V719;
2838          goto T809;          V718= CMPcadr((V708));
2839  T809:;          V719= CMPcar((V718));
2840          if(!(((V759))==Cnil)){          goto T839;
2841          goto T810;}  T839:;
2842          goto T788;          if(!(((V718))==Cnil)){
2843          goto T810;          goto T840;}
2844  T810:;          goto T817;
2845          {object V761;          goto T840;
2846          V762= CMPcar((V760));  T840:;
2847          V763= CMPcadr((V760));          {object V720;
2848          V764= CMPcddr((V760));          V721= CMPcar((V719));
2849          V765= coerce_to_string(CMPcar((V760)));          V722= CMPcadr((V719));
2850          V761= list(2,/* INLINE-ARGS */V762,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V763,/* INLINE-ARGS */V764,/* INLINE-ARGS */V765)));          V723= CMPcddr((V719));
2851          V754= make_cons((V761),(V754));}          V724= coerce_to_string(CMPcar((V719)));
2852          V759= CMPcdr((V759));          V720= list(2,/* INLINE-ARGS */V721,(VFUN_NARGS=3,(*(LnkLI145))(/* INLINE-ARGS */V722,/* INLINE-ARGS */V723,/* INLINE-ARGS */V724)));
2853          V760= CMPcar((V759));          V712= make_cons((V720),(V712));}
2854          goto T809;}          V718= CMPcdr((V718));
2855          goto T805;          V719= CMPcar((V718));
2856  T805:;          goto T839;}
2857          FEerror("The ECASE key value ~s is illegal.",1,V755);          goto T835;
2858          goto T788;}  T835:;
2859          goto T788;          base[1]= VV[49];
2860  T788:;          base[2]= VV[50];
2861          base[1]= (*(LnkLI2))((V752),(V753),(V754));          base[3]= VV[51];
2862          V766 = (V750);          base[4]= VV[52];
2863          V767= CMPcar((V750));          base[5]= (V713);
2864          V768= CMPcdr((V750));          base[6]= VV[53];
2865          base[2]= CMPcadr((V750));          base[7]= VV[94];
2866            base[8]= VV[55];
2867            base[9]= VV[95];
2868            vs_top=(vs_base=base+1)+9;
2869            (void) (*Lnk121)();
2870            vs_top=sup;}}
2871            goto T817;
2872    T817:;
2873            base[1]= (*(LnkLI2))((V710),(V711),(V712));
2874            V725= CMPcar((V708));
2875            V726= CMPcdr((V708));
2876            base[2]= CMPcadr((V708));
2877          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2878          L77(base);          L77(base);
2879          vs_top=sup;          vs_top=sup;
2880          V769= vs_base[0];          V727= vs_base[0];
2881          base[2]= CMPcddr((V750));          base[2]= CMPcddr((V708));
2882          base[3]= (VV[98]->s.s_gfdef);          base[3]= (VV[127]->s.s_gfdef);
2883          base[4]= base[1];          base[4]= base[1];
2884          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2885          (void) (*Lnk100)();          (void) (*Lnk129)();
2886          vs_top=sup;          vs_top=sup;
2887          V770= vs_base[0];          V728= vs_base[0];
2888          V771= (*(LnkLI96))(/* INLINE-ARGS */V768,V769,V770);          V729= (*(LnkLI125))(/* INLINE-ARGS */V726,V727,V728);
2889          {object V772 = (*(LnkLI96))(V766,/* INLINE-ARGS */V767,/* INLINE-ARGS */V771);          {object V730 = (*(LnkLI125))((V708),/* INLINE-ARGS */V725,/* INLINE-ARGS */V729);
2890          VMR65(V772)}}          VMR65(V730)}}
2891          base[0]=base[0];          base[0]=base[0];
2892          return Cnil;          return Cnil;
2893  }  }
2894  /*      local entry for function WALK-IF        */  /*      local entry for function WALK-IF        */
2895    
2896  static object LI78(V776,V777,V778)  static object LI78(V734,V735,V736)
2897    
2898  register object V776;object V777;object V778;  register object V734;object V735;object V736;
2899  {        VMB66 VMS66 VMV66  {        VMB66 VMS66 VMV66
2900          goto TTL;          goto TTL;
2901  TTL:;  TTL:;
2902          {object V779;          {object V737;
2903          object V780;          object V738;
2904          object V781;          object V739;
2905          V779= CMPcadr((V776));          V737= CMPcadr((V734));
2906          V780= CMPcaddr((V776));          V738= CMPcaddr((V734));
2907          if((CMPcddddr((V776)))==Cnil){          if((CMPcddddr((V734)))==Cnil){
2908          goto T833;}          goto T872;}
2909          base[0]= VV[68];          base[0]= VV[96];
2910          base[1]= (V776);          base[1]= (V734);
2911          base[2]= CMPmake_fixnum((long)length(CMPcdr((V776))));          base[2]= CMPmake_fixnum((long)length(CMPcdr((V734))));
2912          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2913          (void) (*Lnk102)();          (void) (*Lnk131)();
2914          vs_top=sup;          vs_top=sup;
2915          V781= make_cons(VV[65],CMPcdddr((V776)));          V739= make_cons(VV[73],CMPcdddr((V734)));
2916          goto T831;          goto T870;
2917          goto T833;          goto T872;
2918  T833:;  T872:;
2919          V781= CMPcadddr((V776));          V739= CMPcadddr((V734));
2920          goto T831;          goto T870;
2921  T831:;  T870:;
2922          V782 = (V776);          base[0]= (V737);
2923          base[0]= (V779);          base[1]= (V735);
2924          base[1]= (V777);          base[2]= (V736);
         base[2]= (V778);  
2925          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2926          (void) (*Lnk81)();          (void) (*Lnk109)();
2927          vs_top=sup;          vs_top=sup;
2928          V783= vs_base[0];          V740= vs_base[0];
2929          base[0]= (V780);          base[0]= (V738);
2930          base[1]= (V777);          base[1]= (V735);
2931          base[2]= (V778);          base[2]= (V736);
2932          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2933          (void) (*Lnk81)();          (void) (*Lnk109)();
2934          vs_top=sup;          vs_top=sup;
2935          V784= vs_base[0];          V741= vs_base[0];
2936          base[0]= (V781);          base[0]= (V739);
2937          base[1]= (V777);          base[1]= (V735);
2938          base[2]= (V778);          base[2]= (V736);
2939          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2940          (void) (*Lnk81)();          (void) (*Lnk109)();
2941          vs_top=sup;          vs_top=sup;
2942          V785= vs_base[0];          V742= vs_base[0];
2943          {object V786 = (VFUN_NARGS=5,(*(LnkLI112))(V782,VV[57],V783,V784,V785));          {object V743 = (VFUN_NARGS=5,(*(LnkLI141))((V734),VV[65],V740,V741,V742));
2944          VMR66(V786)}}          VMR66(V743)}}
2945          base[0]=base[0];          base[0]=base[0];
2946          return Cnil;          return Cnil;
2947  }  }
# Line 2952  register object *base0; Line 2952  register object *base0;
2952  {       register object *base=vs_base;  {       register object *base=vs_base;
2953          register object *sup=base+VM67; VC67          register object *sup=base+VM67; VC67
2954          vs_check;          vs_check;
2955          {object V787;          {object V744;
2956          check_arg(1);          check_arg(1);
2957          V787=(base[0]);          V744=(base[0]);
2958          vs_top=sup;          vs_top=sup;
2959          goto TTL;          goto TTL;
2960  TTL:;  TTL:;
2961          if(((V787))!=Cnil){          if(((V744))!=Cnil){
2962          goto T852;}          goto T891;}
2963          base[1]= Cnil;          base[1]= Cnil;
2964          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2965          return;          return;
2966          goto T852;          goto T891;
2967  T852:;  T891:;
2968          V788 = (V787);          V745= (*(LnkLI146))(CMPcar((V744)),base0[0],base0[1]);
2969          V789= (*(LnkLI117))(CMPcar((V787)),base0[0],base0[1]);          base[1]= CMPcdr((V744));
         base[1]= CMPcdr((V787));  
2970          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2971          L77(base0);          L77(base0);
2972          vs_top=sup;          vs_top=sup;
2973          V790= vs_base[0];          V746= vs_base[0];
2974          base[1]= (*(LnkLI96))(V788,/* INLINE-ARGS */V789,V790);          base[1]= (*(LnkLI125))((V744),/* INLINE-ARGS */V745,V746);
2975          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2976          return;          return;
2977          }          }
# Line 2984  register object *base0; Line 2983  register object *base0;
2983  {       register object *base=vs_base;  {       register object *base=vs_base;
2984          register object *sup=base+VM68; VC68          register object *sup=base+VM68; VC68
2985          vs_check;          vs_check;
2986          {object V791;          {object V747;
2987          check_arg(1);          check_arg(1);
2988          V791=(base[0]);          V747=(base[0]);
2989          vs_top=sup;          vs_top=sup;
2990          goto TTL;          goto TTL;
2991  TTL:;  TTL:;
2992          if(((V791))!=Cnil){          if(((V747))!=Cnil){
2993          goto T857;}          goto T896;}
2994          base[1]= Cnil;          base[1]= Cnil;
2995          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2996          return;          return;
2997          goto T857;          goto T896;
2998  T857:;  T896:;
2999          V792 = (V791);          V748= (*(LnkLI146))(CMPcar((V747)),base0[1],base0[0]);
3000          V793= (*(LnkLI117))(CMPcar((V791)),base0[1],base0[0]);          base[1]= CMPcdr((V747));
         base[1]= CMPcdr((V791));  
3001          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3002          L73(base0);          L73(base0);
3003          vs_top=sup;          vs_top=sup;
3004          V794= vs_base[0];          V749= vs_base[0];
3005          base[1]= (*(LnkLI96))(V792,/* INLINE-ARGS */V793,V794);          base[1]= (*(LnkLI125))((V747),/* INLINE-ARGS */V748,V749);
3006          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3007          return;          return;
3008          }          }
# Line 3016  register object *base0; Line 3014  register object *base0;
3014  {       register object *base=vs_base;  {       register object *base=vs_base;
3015          register object *sup=base+VM69; VC69          register object *sup=base+VM69; VC69
3016          vs_check;          vs_check;
3017          {object V795;          {object V750;
3018          check_arg(1);          check_arg(1);
3019          V795=(base[0]);          V750=(base[0]);
3020          vs_top=sup;          vs_top=sup;
3021          goto TTL;          goto TTL;
3022  TTL:;  TTL:;
3023          if((V795)==Cnil){          if((V750)==Cnil){
3024          base[1]= Cnil;          base[1]= Cnil;
3025          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3026          return;}          return;}
3027          {object V796;          {object V751;
3028          V796= CMPcar((V795));          V751= CMPcar((V750));
3029          V797 = (V795);          V752= CMPcar((V751));
3030          V798 = (V796);          V753= (VFUN_NARGS=4,(*(LnkLI133))(CMPcadr((V751)),base0[0],base0[1],Ct));
3031          V799= CMPcar((V796));          base[1]= CMPcddr((V751));
3032          V800= (VFUN_NARGS=4,(*(LnkLI104))(CMPcadr((V796)),base0[0],base0[1],Ct));          base[2]= (VV[127]->s.s_gfdef);
         base[1]= CMPcddr((V796));  
         base[2]= (VV[98]->s.s_gfdef);  
3033          base[3]= base0[1];          base[3]= base0[1];
3034          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3035          (void) (*Lnk100)();          (void) (*Lnk129)();
3036          vs_top=sup;          vs_top=sup;
3037          V801= vs_base[0];          V754= vs_base[0];
3038          V802= (VFUN_NARGS=4,(*(LnkLI105))(V798,/* INLINE-ARGS */V799,/* INLINE-ARGS */V800,V801));          V755= (VFUN_NARGS=4,(*(LnkLI134))((V751),/* INLINE-ARGS */V752,/* INLINE-ARGS */V753,V754));
3039          base[1]= CMPcdr((V795));          base[1]= CMPcdr((V750));
3040          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3041          L69(base0);          L69(base0);
3042          vs_top=sup;          vs_top=sup;
3043          V803= vs_base[0];          V756= vs_base[0];
3044          base[1]= (*(LnkLI96))(V797,/* INLINE-ARGS */V802,V803);          base[1]= (*(LnkLI125))((V750),/* INLINE-ARGS */V755,V756);
3045          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3046          return;}          return;}
3047          }          }
# Line 3057  register object *base0; Line 3053  register object *base0;
3053  {       register object *base=vs_base;  {       register object *base=vs_base;
3054          register object *sup=base+VM70; VC70          register object *sup=base+VM70; VC70
3055          vs_check;          vs_check;
3056          {object V804;          {object V757;
3057          object V805;          object V758;
3058          check_arg(2);          check_arg(2);
3059          V804=(base[0]);          V757=(base[0]);
3060          V805=(base[1]);          V758=(base[1]);
3061          vs_top=sup;          vs_top=sup;
3062          (base0[0]->c.c_car)= (*(LnkLI109))((base0[1]->c.c_car),(base0[4]->c.c_car),(base0[2]->c.c_car),(base0[3]->c.c_car),Cnil);          (base0[0]->c.c_car)= (*(LnkLI138))((base0[1]->c.c_car),(base0[4]->c.c_car),(base0[2]->c.c_car),(base0[3]->c.c_car),Cnil);
3063          base[2]= (*(LnkLI98))((V804),(V805));          base[2]= (*(LnkLI127))((V757),(V758));
3064          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3065          return;          return;
3066          }          }
# Line 3076  register object *base0; Line 3072  register object *base0;
3072  {       register object *base=vs_base;  {       register object *base=vs_base;
3073          register object *sup=base+VM71; VC71          register object *sup=base+VM71; VC71
3074          vs_check;          vs_check;
3075          {object V806;          {object V759;
3076          check_arg(1);          check_arg(1);
3077          V806=(base[0]);          V759=(base[0]);
3078          vs_top=sup;          vs_top=sup;
3079          base[1]= (*(LnkLI85))((V806),(base0[0]->c.c_car));          base[1]= (*(LnkLI113))((V759),(base0[0]->c.c_car));
3080          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3081          return;          return;
3082          }          }
# Line 3092  register object *base0; Line 3088  register object *base0;
3088  {       register object *base=vs_base;  {       register object *base=vs_base;
3089          register object *sup=base+VM72; VC72          register object *sup=base+VM72; VC72
3090          vs_check;          vs_check;
3091          {object V807;          {object V760;
3092          object V808;          object V761;
3093          check_arg(2);          check_arg(2);
3094          V807=(base[0]);          V760=(base[0]);
3095          V808=(base[1]);          V761=(base[1]);
3096          vs_top=sup;          vs_top=sup;
3097          base[2]= (*(LnkLI113))((V807),(base0[0]->c.c_car),(V808));          base[2]= (*(LnkLI142))((V760),(base0[0]->c.c_car),(V761));
3098          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3099          return;          return;
3100          }          }
# Line 3110  register object *base0; Line 3106  register object *base0;
3106  {       register object *base=vs_base;  {       register object *base=vs_base;
3107          register object *sup=base+VM73; VC73          register object *sup=base+VM73; VC73
3108          vs_check;          vs_check;
3109          {register object V809;          {register object V762;
3110          object V810;          object V763;
3111          register object V811;          register object V764;
3112          check_arg(3);          check_arg(3);
3113          V809=(base[0]);          V762=(base[0]);
3114          V810=(base[1]);          V763=(base[1]);
3115          V811=(base[2]);          V764=(base[2]);
3116          vs_top=sup;          vs_top=sup;
3117          {register object V812;          {register object V765;
3118          register object V813;          register object V766;
3119          object V814;          object V767;
3120          object V815;          object V768;
3121          V812= Cnil;          V765= Cnil;
3122          V813= Cnil;          V766= Cnil;
3123          V814= Cnil;          V767= Cnil;
3124          V815= Cnil;          V768= Cnil;
3125          goto T872;          goto T911;
3126  T872:;  T911:;
3127          base[3]= (V809);          base[3]= (V762);
3128          base[4]= (V810);          base[4]= (V763);
3129          base[5]= (V811);          base[5]= (V764);
3130          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3131          super_funcall_no_event((base0[1]->c.c_car));          super_funcall_no_event((base0[1]->c.c_car));
3132          if(vs_base<vs_top){          if(vs_base<vs_top){
3133          V812= vs_base[0];          V765= vs_base[0];
3134          vs_base++;          vs_base++;
3135          }else{          }else{
3136          V812= Cnil;}          V765= Cnil;}
3137          if(vs_base<vs_top){          if(vs_base<vs_top){
3138          V813= vs_base[0];          V766= vs_base[0];
3139          }else{          }else{
3140          V813= Cnil;}          V766= Cnil;}
3141          vs_top=sup;          vs_top=sup;
3142          if(((V813))==Cnil){          if(((V766))==Cnil){
3143          goto T881;}          goto T920;}
3144          goto T870;          goto T909;
3145          goto T881;          goto T920;
3146  T881:;  T920:;
3147          {register object V816;          {register object V769;
3148          V816= (((((V812))==((V809))?Ct:Cnil))==Cnil?Ct:Cnil);          V769= (((((V765))==((V762))?Ct:Cnil))==Cnil?Ct:Cnil);
3149          if(((V816))==Cnil){          if(((V769))==Cnil){
3150          goto T885;}          goto T924;}
3151          goto T879;          goto T918;
3152          goto T885;          goto T924;
3153  T885:;  T924:;
3154          if(type_of((V812))==t_cons){          if(type_of((V765))==t_cons){
3155          goto T888;}          goto T927;}
3156          goto T870;          goto T909;
3157          goto T888;          goto T927;
3158  T888:;  T927:;
3159          if(((*(LnkLI86))(CMPcar((V812))))==Cnil){          if(((*(LnkLI114))(CMPcar((V765))))==Cnil){
3160          goto T891;}          goto T930;}
3161          goto T870;          goto T909;
3162          goto T891;          goto T930;
3163  T891:;  T930:;
3164          {register object V817;          {register object V770;
3165          register object V818;          register object V771;
3166          {register object V819;          {register object V772;
3167          V820 = (V811);          V773= (VFUN_NARGS=3,(*(LnkLI22))((V764),VV[45],(V765)));
3168          V821= (VFUN_NARGS=3,(*(LnkLI22))((V811),VV[45],(V812)));          V772= (*(LnkLI2))((V764),Cnil,/* INLINE-ARGS */V773);
3169          V819= (*(LnkLI2))(V820,Cnil,/* INLINE-ARGS */V821);          base[3]= (V765);
3170          base[3]= (V812);          base[4]= (V772);
         base[4]= (V819);  
3171          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3172          Lmacroexpand_1();}          Lmacroexpand_1();}
3173          if(vs_base>=vs_top){vs_top=sup;goto T897;}          if(vs_base>=vs_top){vs_top=sup;goto T936;}
3174          V817= vs_base[0];          V770= vs_base[0];
3175          vs_base++;          vs_base++;
3176          if(vs_base>=vs_top){vs_top=sup;goto T898;}          if(vs_base>=vs_top){vs_top=sup;goto T937;}
3177          V818= vs_base[0];          V771= vs_base[0];
3178          vs_top=sup;          vs_top=sup;
3179          goto T899;          goto T938;
3180          goto T897;          goto T936;
3181  T897:;  T936:;
3182          V817= Cnil;          V770= Cnil;
3183          goto T898;          goto T937;
3184  T898:;  T937:;
3185          V818= Cnil;          V771= Cnil;
3186          goto T899;          goto T938;
3187  T899:;  T938:;
3188          if(((V818))==Cnil){          if(((V771))==Cnil){
3189          goto T901;}          goto T940;}
3190          V812= (V817);          V765= (V770);
3191          goto T879;          goto T918;
3192          goto T901;          goto T940;
3193  T901:;  T940:;
3194          goto T870;}}          goto T909;}}
3195          goto T879;          goto T918;
3196  T879:;  T918:;
3197          V809= (V812);          V762= (V765);
3198          goto T872;          goto T911;
3199          goto T870;          goto T909;
3200  T870:;  T909:;
3201          base[3]= (V812);          base[3]= (V765);
3202          base[4]= (V810);          base[4]= (V763);
3203          base[5]= (V811);          base[5]= (V764);
3204          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3205          super_funcall_no_event((base0[0]->c.c_car));          super_funcall_no_event((base0[0]->c.c_car));
3206          if(vs_base<vs_top){          if(vs_base<vs_top){
3207          V814= vs_base[0];          V767= vs_base[0];
3208          vs_base++;          vs_base++;
3209          }else{          }else{
3210          V814= Cnil;}          V767= Cnil;}
3211          if(vs_base<vs_top){          if(vs_base<vs_top){
3212          V815= vs_base[0];          V768= vs_base[0];
3213          }else{          }else{
3214          V815= Cnil;}          V768= Cnil;}
3215          vs_top=sup;          vs_top=sup;
3216          base[3]= (V814);          base[3]= (V767);
3217          if((V813)==Cnil){          if((V766)==Cnil){
3218          base[4]= Cnil;          base[4]= Cnil;
3219          goto T912;}          goto T951;}
3220          base[4]= (V815);          base[4]= (V768);
3221          goto T912;          goto T951;
3222  T912:;  T951:;
3223          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3224          return;}          return;}
3225          }          }
# Line 3236  register object *base0; Line 3231  register object *base0;
3231  {       register object *base=vs_base;  {       register object *base=vs_base;
3232          register object *sup=base+VM74; VC74          register object *sup=base+VM74; VC74
3233          vs_check;          vs_check;
3234          {object V822;          {object V774;
3235          object V823;          object V775;
3236          object V824;          object V776;
3237          check_arg(3);          check_arg(3);
3238          V822=(base[0]);          V774=(base[0]);
3239          V823=(base[1]);          V775=(base[1]);
3240          V824=(base[2]);          V776=(base[2]);
3241          vs_top=sup;          vs_top=sup;
3242          base[3]= (V822);          base[3]= (V774);
3243          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3244          return;          return;
3245          }          }
# Line 3256  register object *base0; Line 3251  register object *base0;
3251  {       register object *base=vs_base;  {       register object *base=vs_base;
3252          register object *sup=base+VM75; VC75          register object *sup=base+VM75; VC75
3253          vs_check;          vs_check;
3254          {object V825;          {object V777;
3255          object V826;          object V778;
3256          object V827;          object V779;
3257          check_arg(3);          check_arg(3);
3258          V825=(base[0]);          V777=(base[0]);
3259          V826=(base[1]);          V778=(base[1]);
3260          V827=(base[2]);          V779=(base[2]);
3261          vs_top=sup;          vs_top=sup;
3262          base[3]= (V825);          base[3]= (V777);
3263          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3264          return;          return;
3265          }          }
3266  }  }
3267  static object  LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,3,first,ap);va_end(ap);return V1;} /* WALK-LAMBDA */  static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,3,first,ap);va_end(ap);return V1;} /* WALK-LAMBDA */
3268  static object  LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[116],(void **)(void *)&LnkLI116,first,ap);va_end(ap);return V1;} /* CONVERT-MACRO-TO-LAMBDA */  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[145],(void **)(void *)&LnkLI145,first,ap);va_end(ap);return V1;} /* CONVERT-MACRO-TO-LAMBDA */
3269  static object  LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,3,first,ap);va_end(ap);return V1;} /* WALK-TAGBODY-1 */  static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,3,first,ap);va_end(ap);return V1;} /* WALK-TAGBODY-1 */
3270  static object  LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[112],(void **)(void *)&LnkLI112,first,ap);va_end(ap);return V1;} /* RELIST */  static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[141],(void **)(void *)&LnkLI141,first,ap);va_end(ap);return V1;} /* RELIST */
3271  static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* SOME */  static void LnkT140(){ call_or_link(VV[140],(void **)(void *)&Lnk140);} /* SOME */
3272  static object  LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,4,first,ap);va_end(ap);return V1;} /* WALK-BINDINGS-2 */  static object  LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,4,first,ap);va_end(ap);return V1;} /* WALK-BINDINGS-2 */
3273  static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,5,first,ap);va_end(ap);return V1;} /* WALK-BINDINGS-1 */  static object  LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)(void *)&LnkLI138,5,first,ap);va_end(ap);return V1;} /* WALK-BINDINGS-1 */
3274  static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,4,first,ap);va_end(ap);return V1;} /* WALK-DODO* */  static object  LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[137],(void **)(void *)&LnkLI137,4,first,ap);va_end(ap);return V1;} /* WALK-DODO* */
3275  static object  LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,4,first,ap);va_end(ap);return V1;} /* WALK-PROGPROG* */  static object  LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)(void *)&LnkLI136,4,first,ap);va_end(ap);return V1;} /* WALK-PROGPROG* */
3276  static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,4,first,ap);va_end(ap);return V1;} /* WALK-LETLET* */  static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,4,first,ap);va_end(ap);return V1;} /* WALK-LETLET* */
3277  static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[105],(void **)(void *)&LnkLI105,first,ap);va_end(ap);return V1;} /* RELIST* */  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[134],(void **)(void *)&LnkLI134,first,ap);va_end(ap);return V1;} /* RELIST* */
3278  static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[104],(void **)(void *)&LnkLI104,first,ap);va_end(ap);return V1;} /* WALK-ARGLIST */  static object  LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[133],(void **)(void *)&LnkLI133,first,ap);va_end(ap);return V1;} /* WALK-ARGLIST */
3279  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,2,first,ap);va_end(ap);return V1;} /* NOTE-LEXICAL-BINDING */  static object  LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,2,first,ap);va_end(ap);return V1;} /* NOTE-LEXICAL-BINDING */
3280  static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* WARN */  static void LnkT131(){ call_or_link(VV[131],(void **)(void *)&Lnk131);} /* WARN */
3281  static object  LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,2,first,ap);va_end(ap);return V1;} /* NOTE-DECLARATION */  static object  LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,2,first,ap);va_end(ap);return V1;} /* NOTE-DECLARATION */
3282  static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* WALK-DECLARATIONS */  static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* WALK-DECLARATIONS */
3283  static object  LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)(void *)&LnkLI99,3,first,ap);va_end(ap);return V1;} /* RELIST-INTERNAL */  static object  LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[128],(void **)(void *)&LnkLI128,3,first,ap);va_end(ap);return V1;} /* RELIST-INTERNAL */
3284  static object  LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,2,first,ap);va_end(ap);return V1;} /* WALK-REPEAT-EVAL */  static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* WALK-REPEAT-EVAL */
3285  static object  LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,6,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE-HANDLE-REPEAT-1 */  static object  LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[126],(void **)(void *)&LnkLI126,6,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE-HANDLE-REPEAT-1 */
3286  static object  LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,3,first,ap);va_end(ap);return V1;} /* RECONS */  static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,3,first,ap);va_end(ap);return V1;} /* RECONS */
3287  static object  LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[94],(void **)(void *)&LnkLI94,5,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE-HANDLE-REPEAT */  static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,5,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE-HANDLE-REPEAT */
3288  static object  LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)(void *)&LnkLI87,4,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE */  static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* ERROR */
3289  static object  LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)(void *)&LnkLI86,1,first,ap);va_end(ap);return V1;} /* GET-WALKER-TEMPLATE */  static object  LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,4,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE */
3290  static object  LnkTLI85(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[85],(void **)(void *)&LnkLI85,2,first,ap);va_end(ap);return V1;} /* VARIABLE-SYMBOL-MACRO-P */  static object  LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* GET-WALKER-TEMPLATE */
3291  static object  LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* ENV-WALK-FUNCTION */  static object  LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,2,first,ap);va_end(ap);return V1;} /* VARIABLE-SYMBOL-MACRO-P */
3292  static object  LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)(void *)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* ENV-WALK-FORM */  static object  LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[112],(void **)(void *)&LnkLI112,1,first,ap);va_end(ap);return V1;} /* ENV-WALK-FUNCTION */
3293  static void LnkT81(){ call_or_link(VV[81],(void **)(void *)&Lnk81);} /* WALK-FORM-INTERNAL */  static object  LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,1,first,ap);va_end(ap);return V1;} /* ENV-WALK-FORM */
3294    static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* WALK-FORM-INTERNAL */
3295  static object  LnkTLI22(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[22],(void **)(void *)&LnkLI22,first,ap);va_end(ap);return V1;} /* WALKER-ENVIRONMENT-BIND-1 */  static object  LnkTLI22(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[22],(void **)(void *)&LnkLI22,first,ap);va_end(ap);return V1;} /* WALKER-ENVIRONMENT-BIND-1 */
3296  static object  LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[2],(void **)(void *)&LnkLI2,3,first,ap);va_end(ap);return V1;} /* WITH-AUGMENTED-ENVIRONMENT-INTERNAL */  static object  LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[2],(void **)(void *)&LnkLI2,3,first,ap);va_end(ap);return V1;} /* WITH-AUGMENTED-ENVIRONMENT-INTERNAL */
3297  static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* WALK-FORM */  static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* WALK-FORM */
3298  static object  LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[78],(void **)(void *)&LnkLI78,1,first,ap);va_end(ap);return V1;} /* GET-IMPLEMENTATION-DEPENDENT-WALKER-TEMPLATE */  static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* GET-IMPLEMENTATION-DEPENDENT-WALKER-TEMPLATE */
3299  static object  LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* VARIABLE-GLOBALLY-SPECIAL-P */  static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* VARIABLE-GLOBALLY-SPECIAL-P */
3300  static object  LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */  static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */
3301  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* ENV-DECLARATIONS */  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,1,first,ap);va_end(ap);return V1;} /* ENV-DECLARATIONS */
3302  static object  LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,2,first,ap);va_end(ap);return V1;} /* VARIABLE-LEXICAL-P */  static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,2,first,ap);va_end(ap);return V1;} /* VARIABLE-LEXICAL-P */
3303  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* ENV-LEXICAL-VARIABLES */  static object  LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* ENV-LEXICAL-VARIABLES */
3304  static object  LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* ENV-LOCK */  static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* ENV-LOCK */
3305  static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,2,first,ap);va_end(ap);return V1;} /* ENVIRONMENT-MACRO */  static object  LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,2,first,ap);va_end(ap);return V1;} /* ENVIRONMENT-MACRO */
3306    
3307  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3308  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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