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

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

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