/[gcl]/gcl/lsp/setf.c
ViewVC logotype

Diff of /gcl/lsp/setf.c

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

revision 1.8 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.9 by camm, Fri Oct 18 21:28:53 2002 UTC
# Line 81  T21:; Line 81  T21:;
81          V12= list(3,VV[5],list(2,VV[3],base[2]),VV[14]);          V12= list(3,VV[5],list(2,VV[3],base[2]),VV[14]);
82          V13= list(3,VV[5],list(2,VV[3],base[2]),VV[15]);          V13= list(3,VV[5],list(2,VV[3],base[2]),VV[15]);
83          V14= list(2,VV[3],base[2]);          V14= list(2,VV[3],base[2]);
84          V15= (*(LnkLI93))(cddr(base[3]));          V15= (*(LnkLI96))(cddr(base[3]));
85          V16= list(4,VV[2],/* INLINE-ARGS */V14,/* INLINE-ARGS */V15,VV[16]);          V16= list(4,VV[2],/* INLINE-ARGS */V14,/* INLINE-ARGS */V15,VV[16]);
86          base[4]= list(7,VV[0],VV[12],/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,/* INLINE-ARGS */V16,list(2,VV[3],base[2]));          base[4]= list(7,VV[0],VV[12],/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,/* INLINE-ARGS */V16,list(2,VV[3],base[2]));
87          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 105  static void L2() Line 105  static void L2()
105          base[6]= Cnil;}          base[6]= Cnil;}
106          base[7]= car(base[3]);          base[7]= car(base[3]);
107          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
108          (void) (*Lnk94)();          (void) (*Lnk97)();
109          if(vs_base<vs_top){          if(vs_base<vs_top){
110          base[4]= vs_base[0];          base[4]= vs_base[0];
111          vs_base++;          vs_base++;
# Line 138  T35:; Line 138  T35:;
138          V22= list(3,VV[5],list(2,VV[3],base[2]),VV[23]);          V22= list(3,VV[5],list(2,VV[3],base[2]),VV[23]);
139          V23= list(3,VV[5],list(2,VV[3],base[2]),VV[24]);          V23= list(3,VV[5],list(2,VV[3],base[2]),VV[24]);
140          V24= list(2,VV[3],base[2]);          V24= list(2,VV[3],base[2]);
141          V25= (*(LnkLI93))(cdr(base[3]));          V25= (*(LnkLI96))(cdr(base[3]));
142          V26= list(4,VV[2],/* INLINE-ARGS */V24,/* INLINE-ARGS */V25,VV[25]);          V26= list(4,VV[2],/* INLINE-ARGS */V24,/* INLINE-ARGS */V25,VV[25]);
143          base[7]= list(7,VV[0],VV[19],/* INLINE-ARGS */V21,/* INLINE-ARGS */V22,/* INLINE-ARGS */V23,/* INLINE-ARGS */V26,list(2,VV[3],base[2]));          base[7]= list(7,VV[0],VV[19],/* INLINE-ARGS */V21,/* INLINE-ARGS */V22,/* INLINE-ARGS */V23,/* INLINE-ARGS */V26,list(2,VV[3],base[2]));
144          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
# Line 173  T46:; Line 173  T46:;
173          base[2]= (V27);          base[2]= (V27);
174          base[3]= (V28);          base[3]= (V28);
175          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
176          (void) (*Lnk95)();          (void) (*Lnk98)();
177          if(vs_base>=vs_top){vs_top=sup;goto T51;}          if(vs_base>=vs_top){vs_top=sup;goto T51;}
178          V29= vs_base[0];          V29= vs_base[0];
179          vs_base++;          vs_base++;
# Line 312  T98:; Line 312  T98:;
312          base[2]= (V37);          base[2]= (V37);
313          base[3]= (V36);          base[3]= (V36);
314          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
315          (void) (*Lnk95)();          (void) (*Lnk98)();
316          return;          return;
317  goto T89;  goto T89;
318  T89:;  T89:;
# Line 368  T117:; Line 368  T117:;
368          base[4]= make_cons((V42),Cnil);          base[4]= make_cons((V42),Cnil);
369          if(((V37))==Cnil){          if(((V37))==Cnil){
370          goto T126;}          goto T126;}
371          base[5]= (*(LnkLI96))(car((V41)),car((V37)),cdr((V37)),(V42));          base[5]= (*(LnkLI99))(car((V41)),car((V37)),cdr((V37)),(V42));
372          goto T124;          goto T124;
373  goto T126;  goto T126;
374  T126:;  T126:;
# Line 451  T131:; Line 451  T131:;
451          vs_top=sup;          vs_top=sup;
452          base[2]= vs_base[0];          base[2]= vs_base[0];
453          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
454          (void) (*Lnk95)();          (void) (*Lnk98)();
455          return;          return;
456  goto T149;  goto T149;
457  T149:;  T149:;
# Line 520  T159:; Line 520  T159:;
520          base[4]= (V61);          base[4]= (V61);
521          base[5]= (V60);          base[5]= (V60);
522          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
523          (void) (*Lnk97)();          (void) (*Lnk100)();
524          if(vs_base>=vs_top){vs_top=sup;goto T164;}          if(vs_base>=vs_top){vs_top=sup;goto T164;}
525          V64= vs_base[0];          V64= vs_base[0];
526          vs_base++;          vs_base++;
# Line 601  TTL:; Line 601  TTL:;
601          base[3]= (V77);          base[3]= (V77);
602          base[4]= (V75);          base[4]= (V75);
603          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
604          (void) (*Lnk97)();          (void) (*Lnk100)();
605          if(vs_base>=vs_top){vs_top=sup;goto T180;}          if(vs_base>=vs_top){vs_top=sup;goto T180;}
606          V78= vs_base[0];          V78= vs_base[0];
607          vs_base++;          vs_base++;
# Line 698  T192:; Line 698  T192:;
698          base[3]= make_cons(cadr((V87)),(V88));          base[3]= make_cons(cadr((V87)),(V88));
699          base[4]= (V86);          base[4]= (V86);
700          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
701          (void) (*Lnk97)();          (void) (*Lnk100)();
702          if(vs_base>=vs_top){vs_top=sup;goto T208;}          if(vs_base>=vs_top){vs_top=sup;goto T208;}
703          V89= vs_base[0];          V89= vs_base[0];
704          vs_base++;          vs_base++;
# Line 836  TTL:; Line 836  TTL:;
836          base[3]= (V109);          base[3]= (V109);
837          base[4]= (V108);          base[4]= (V108);
838          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
839          (void) (*Lnk97)();          (void) (*Lnk100)();
840          if(vs_base>=vs_top){vs_top=sup;goto T252;}          if(vs_base>=vs_top){vs_top=sup;goto T252;}
841          V111= vs_base[0];          V111= vs_base[0];
842          vs_base++;          vs_base++;
# Line 916  TTL:; Line 916  TTL:;
916          base[3]= (V122);          base[3]= (V122);
917          base[4]= (V120);          base[4]= (V120);
918          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
919          (void) (*Lnk97)();          (void) (*Lnk100)();
920          if(vs_base>=vs_top){vs_top=sup;goto T269;}          if(vs_base>=vs_top){vs_top=sup;goto T269;}
921          V123= vs_base[0];          V123= vs_base[0];
922          vs_base++;          vs_base++;
# Line 996  TTL:; Line 996  TTL:;
996          base[3]= (V134);          base[3]= (V134);
997          base[4]= (V132);          base[4]= (V132);
998          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
999          (void) (*Lnk97)();          (void) (*Lnk100)();
1000          if(vs_base>=vs_top){vs_top=sup;goto T286;}          if(vs_base>=vs_top){vs_top=sup;goto T286;}
1001          V135= vs_base[0];          V135= vs_base[0];
1002          vs_base++;          vs_base++;
# Line 1056  T291:; Line 1056  T291:;
1056    
1057  static object LI12(V147,V148,V149)  static object LI12(V147,V148,V149)
1058    
1059  register object V147;register object V148;register object V149;  object V147;register object V148;object V149;
1060  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1061  goto TTL;  goto TTL;
1062  TTL:;  TTL:;
1063          {register object V150;          {object V150;
1064          V150= Cnil;          V150= Cnil;
1065          if(!(type_of((V147))==t_cons)){          if(!(type_of((V147))==t_cons)){
1066          goto T301;}          goto T301;}
# Line 1073  TTL:; Line 1073  TTL:;
1073          goto TTL;          goto TTL;
1074  goto T301;  goto T301;
1075  T301:;  T301:;
1076          if(!(type_of((V147))==t_symbol)){          if(!(type_of((V147))==t_cons)){
1077          goto T310;}          goto T310;}
1078          {object V152 = list(3,VV[27],(V147),(V148));          if(!((car((V147)))==(VV[51]))){
1079          VMR12(V152)}          goto T310;}
1080            {register object V152;
1081            register object V153;
1082            register object V154;
1083            register long V155;
1084            V152= cdr((V147));
1085            vs_base=vs_top;
1086            Lgensym();
1087            vs_top=sup;
1088            V153= vs_base[0];
1089            V155= 0;
1090            V154= Cnil;
1091    goto T319;
1092    T319:;
1093            if(!(endp_prop((V152)))){
1094            goto T320;}
1095            V156= list(2,(V153),list(2,VV[52],(V148)));
1096            V157= make_cons(/* INLINE-ARGS */V156,Cnil);
1097            V158= nreverse((V154));
1098            {object V159 = list(3,VV[36],/* INLINE-ARGS */V157,make_cons(VV[51],/* INLINE-ARGS */V158));
1099            VMR12(V159)}
1100    goto T320;
1101    T320:;
1102            {register object V160;
1103            V161= car((V152));
1104            V162 = make_fixnum(V155);
1105            V160= list(3,VV[27],/* INLINE-ARGS */V161,list(3,VV[53],V162,(V153)));
1106            V154= make_cons((V160),(V154));}
1107            V152= cdr((V152));
1108            V155= (long)(V155)+1;
1109            goto T319;}
1110  goto T310;  goto T310;
1111  T310:;  T310:;
1112            if(!(type_of((V147))==t_symbol)){
1113            goto T331;}
1114            {object V163 = list(3,VV[27],(V147),(V148));
1115            VMR12(V163)}
1116    goto T331;
1117    T331:;
1118          if(!(type_of((V147))==t_cons)){          if(!(type_of((V147))==t_cons)){
1119          goto T313;}          goto T334;}
1120          if((get(car((V147)),VV[33],Cnil))!=Cnil){          if((get(car((V147)),VV[33],Cnil))!=Cnil){
1121          goto T313;}          goto T334;}
1122          if((get(car((V147)),VV[31],Cnil))!=Cnil){          if((get(car((V147)),VV[31],Cnil))!=Cnil){
1123          goto T313;}          goto T334;}
1124          base[0]= (V147);          base[0]= (V147);
1125          base[1]= (V149);          base[1]= (V149);
1126          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
# Line 1100  T310:; Line 1136  T310:;
1136          V150= Cnil;}          V150= Cnil;}
1137          vs_top=sup;          vs_top=sup;
1138          if(((V150))==Cnil){          if(((V150))==Cnil){
1139          goto T313;}          goto T334;}
1140          goto TTL;          goto TTL;
1141  goto T313;  goto T334;
1142  T313:;  T334:;
1143          if(!(type_of(car((V147)))==t_symbol)){          if(!(type_of(car((V147)))==t_symbol)){
1144          goto T330;}          goto T351;}
1145          V150= get(car((V147)),VV[31],Cnil);          V150= get(car((V147)),VV[31],Cnil);
1146          if(((V150))==Cnil){          if(((V150))==Cnil){
1147          goto T330;}          goto T351;}
1148          V153= cdr((V147));          V164= cdr((V147));
1149          V154= make_cons((V148),Cnil);          V165= make_cons((V148),Cnil);
1150          V155= append(/* INLINE-ARGS */V153,/* INLINE-ARGS */V154);          V166= append(/* INLINE-ARGS */V164,/* INLINE-ARGS */V165);
1151          {object V156 = make_cons((V150),/* INLINE-ARGS */V155);          {object V167 = make_cons((V150),/* INLINE-ARGS */V166);
1152          VMR12(V156)}          VMR12(V167)}
1153  goto T330;  goto T351;
1154  T330:;  T351:;
1155          if(!(type_of(car((V147)))==t_symbol)){          if(!(type_of(car((V147)))==t_symbol)){
1156          goto T336;}          goto T357;}
1157          V150= get(car((V147)),VV[32],Cnil);          V150= get(car((V147)),VV[32],Cnil);
1158          if(((V150))==Cnil){          if(((V150))==Cnil){
1159          goto T336;}          goto T357;}
1160          {object V157 = (*(LnkLI96))(cadr((V147)),car((V150)),cdr((V150)),(V148));          {object V168 = (*(LnkLI99))(cadr((V147)),car((V150)),cdr((V150)),(V148));
1161          VMR12(V157)}          VMR12(V168)}
1162  goto T336;  goto T357;
1163  T336:;  T357:;
1164          {object V158;          {object V169;
1165          object V159;          object V170;
1166          object V160;          object V171;
1167          object V161;          object V172;
1168          object V162;          object V173;
1169          base[0]= (V147);          base[0]= (V147);
1170          base[1]= (V149);          base[1]= (V149);
1171          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1172          (void) (*Lnk97)();          (void) (*Lnk100)();
1173          if(vs_base>=vs_top){vs_top=sup;goto T345;}          if(vs_base>=vs_top){vs_top=sup;goto T366;}
1174          V158= vs_base[0];          V169= vs_base[0];
1175          vs_base++;          vs_base++;
1176          if(vs_base>=vs_top){vs_top=sup;goto T346;}          if(vs_base>=vs_top){vs_top=sup;goto T367;}
1177          V159= vs_base[0];          V170= vs_base[0];
1178          vs_base++;          vs_base++;
1179          if(vs_base>=vs_top){vs_top=sup;goto T347;}          if(vs_base>=vs_top){vs_top=sup;goto T368;}
1180          V160= vs_base[0];          V171= vs_base[0];
1181          vs_base++;          vs_base++;
1182          if(vs_base>=vs_top){vs_top=sup;goto T348;}          if(vs_base>=vs_top){vs_top=sup;goto T369;}
1183          V161= vs_base[0];          V172= vs_base[0];
1184          vs_base++;          vs_base++;
1185          if(vs_base>=vs_top){vs_top=sup;goto T349;}          if(vs_base>=vs_top){vs_top=sup;goto T370;}
1186          V162= vs_base[0];          V173= vs_base[0];
1187          vs_top=sup;          vs_top=sup;
1188          goto T350;          goto T371;
1189  goto T345;  goto T366;
1190  T345:;  T366:;
1191          V158= Cnil;          V169= Cnil;
1192  goto T346;  goto T367;
1193  T346:;  T367:;
1194          V159= Cnil;          V170= Cnil;
1195  goto T347;  goto T368;
1196  T347:;  T368:;
1197          V160= Cnil;          V171= Cnil;
1198  goto T348;  goto T369;
1199  T348:;  T369:;
1200          V161= Cnil;          V172= Cnil;
1201  goto T349;  goto T370;
1202  T349:;  T370:;
1203          V162= Cnil;          V173= Cnil;
1204  goto T350;  goto T371;
1205  T350:;  T371:;
1206          V167= append((V158),(V160));          V178= append((V169),(V171));
1207          V168= make_cons((V148),Cnil);          V179= make_cons((V148),Cnil);
1208          V169= append((V159),/* INLINE-ARGS */V168);          V180= append((V170),/* INLINE-ARGS */V179);
1209          {object V164;          {object V175;
1210          object V165= /* INLINE-ARGS */V167;          object V176= /* INLINE-ARGS */V178;
1211          object V166= /* INLINE-ARGS */V169;          object V177= /* INLINE-ARGS */V180;
1212          if(endp(V165)||endp(V166)){          if(endp(V176)||endp(V177)){
1213          V163= Cnil;          V174= Cnil;
1214          goto T351;}          goto T372;}
1215          base[0]=V164=MMcons(Cnil,Cnil);          base[0]=V175=MMcons(Cnil,Cnil);
1216  goto T352;  goto T373;
1217  T352:;  T373:;
1218          (V164->c.c_car)= list(2,(V165->c.c_car),(V166->c.c_car));          (V175->c.c_car)= list(2,(V176->c.c_car),(V177->c.c_car));
1219          V165=MMcdr(V165);          V176=MMcdr(V176);
1220          V166=MMcdr(V166);          V177=MMcdr(V177);
1221          if(endp(V165)||endp(V166)){          if(endp(V176)||endp(V177)){
1222          V163= base[0];          V174= base[0];
1223          goto T351;}          goto T372;}
1224          V164=MMcdr(V164)=MMcons(Cnil,Cnil);          V175=MMcdr(V175)=MMcons(Cnil,Cnil);
1225          goto T352;}          goto T373;}
1226  goto T351;  goto T372;
1227  T351:;  T372:;
1228          {object V170 = list(3,VV[51],V163,(V161));          {object V181 = list(3,VV[54],V174,(V172));
1229          VMR12(V170)}}}          VMR12(V181)}}}
1230          base[0]=base[0];          base[0]=base[0];
1231          return Cnil;          return Cnil;
1232  }  }
1233  /*      local entry for function SETF-STRUCTURE-ACCESS  */  /*      local entry for function SETF-STRUCTURE-ACCESS  */
1234    
1235  static object LI13(V175,V176,V177,V178)  static object LI13(V186,V187,V188,V189)
1236    
1237  object V175;object V176;object V177;object V178;  object V186;object V187;object V188;object V189;
1238  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1239  goto TTL;  goto TTL;
1240  TTL:;  TTL:;
1241          {object V179= (V176);          {object V190= (V187);
1242          if((V179!= VV[43]))goto T354;          if((V190!= VV[43]))goto T375;
1243          {object V180 = list(4,VV[52],(V175),(V177),(V178));          {object V191 = list(4,VV[55],(V186),(V188),(V189));
1244          VMR13(V180)}          VMR13(V191)}
1245  goto T354;  goto T375;
1246  T354:;  T375:;
1247          if((V179!= VV[98]))goto T355;          if((V190!= VV[101]))goto T376;
1248          {object V181 = list(4,VV[53],(V175),(V177),(V178));          {object V192 = list(4,VV[56],(V186),(V188),(V189));
1249          VMR13(V181)}          VMR13(V192)}
1250  goto T355;  goto T376;
1251  T355:;  T376:;
1252          {object V182 = list(5,VV[54],(V175),list(2,VV[3],(V176)),(V177),(V178));          {object V193 = list(5,VV[57],(V186),list(2,VV[3],(V187)),(V188),(V189));
1253          VMR13(V182)}}          VMR13(V193)}}
1254          return Cnil;          return Cnil;
1255  }  }
1256  /*      local entry for function SETF-EXPAND    */  /*      local entry for function SETF-EXPAND    */
1257    
1258  static object LI14(V185,V186)  static object LI14(V196,V197)
1259    
1260  register object V185;object V186;  register object V196;object V197;
1261  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1262  goto TTL;  goto TTL;
1263  TTL:;  TTL:;
1264          if(!(endp_prop((V185)))){          if(!(endp_prop((V196)))){
1265          goto T357;}          goto T378;}
1266          {object V187 = Cnil;          {object V198 = Cnil;
1267          VMR14(V187)}          VMR14(V198)}
1268  goto T357;  goto T378;
1269  T357:;  T378:;
1270          if(!(endp_prop(cdr((V185))))){          if(!(endp_prop(cdr((V196))))){
1271          goto T360;}          goto T381;}
1272          base[0]= VV[55];          base[0]= VV[58];
1273          base[1]= (V185);          base[1]= (V196);
1274          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1275          Lerror();          Lerror();
1276          vs_top=sup;          vs_top=sup;
1277          {object V188 = vs_base[0];          {object V199 = vs_base[0];
1278          VMR14(V188)}          VMR14(V199)}
1279  goto T360;  goto T381;
1280  T360:;  T381:;
1281          V189= (*(LnkLI99))(car((V185)),cadr((V185)),(V186));          V200= (*(LnkLI102))(car((V196)),cadr((V196)),(V197));
1282          V190= (*(LnkLI100))(cddr((V185)),(V186));          V201= (*(LnkLI103))(cddr((V196)),(V197));
1283          {object V191 = make_cons(/* INLINE-ARGS */V189,/* INLINE-ARGS */V190);          {object V202 = make_cons(/* INLINE-ARGS */V200,/* INLINE-ARGS */V201);
1284          VMR14(V191)}          VMR14(V202)}
1285          base[0]=base[0];          base[0]=base[0];
1286          return Cnil;          return Cnil;
1287  }  }
1288  /*      local entry for function SETF-HELPER    */  /*      local entry for function SETF-HELPER    */
1289    
1290  static object LI15(V194,V195)  static object LI15(V205,V206)
1291    
1292  register object V194;object V195;  register object V205;object V206;
1293  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1294  goto TTL;  goto TTL;
1295  TTL:;  TTL:;
1296          V194= cdr((V194));          V205= cdr((V205));
1297          if(!(endp_prop((V194)))){          if(!(endp_prop((V205)))){
1298          goto T367;}          goto T388;}
1299          {object V196 = Cnil;          {object V207 = Cnil;
1300          VMR15(V196)}          VMR15(V207)}
1301  goto T367;  goto T388;
1302  T367:;  T388:;
1303          if(!(endp_prop(cdr((V194))))){          if(!(endp_prop(cdr((V205))))){
1304          goto T370;}          goto T391;}
1305          base[0]= VV[56];          base[0]= VV[59];
1306          base[1]= (V194);          base[1]= (V205);
1307          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1308          Lerror();          Lerror();
1309          vs_top=sup;          vs_top=sup;
1310          {object V197 = vs_base[0];          {object V208 = vs_base[0];
1311          VMR15(V197)}          VMR15(V208)}
1312  goto T370;  goto T391;
1313  T370:;  T391:;
1314          if(!(endp_prop(cddr((V194))))){          if(!(endp_prop(cddr((V205))))){
1315          goto T375;}          goto T396;}
1316          {object V198 = (*(LnkLI99))(car((V194)),cadr((V194)),(V195));          {object V209 = (*(LnkLI102))(car((V205)),cadr((V205)),(V206));
1317          VMR15(V198)}          VMR15(V209)}
1318  goto T375;  goto T396;
1319  T375:;  T396:;
1320          V199= (*(LnkLI100))((V194),(V195));          V210= (*(LnkLI103))((V205),(V206));
1321          {object V200 = make_cons(VV[57],/* INLINE-ARGS */V199);          {object V211 = make_cons(VV[60],/* INLINE-ARGS */V210);
1322          VMR15(V200)}          VMR15(V211)}
1323          base[0]=base[0];          base[0]=base[0];
1324          return Cnil;          return Cnil;
1325  }  }
# Line 1295  static void L16() Line 1331  static void L16()
1331          vs_reserve(VM16);          vs_reserve(VM16);
1332          check_arg(2);          check_arg(2);
1333          vs_top=sup;          vs_top=sup;
1334          {object V201=base[0]->c.c_cdr;          {object V212=base[0]->c.c_cdr;
1335          base[2]= V201;}          base[2]= V212;}
1336          if(!(endp_prop(base[2]))){          if(!(endp_prop(base[2]))){
1337          goto T378;}          goto T399;}
1338          base[3]= Cnil;          base[3]= Cnil;
1339          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1340          return;          return;
1341  goto T378;  goto T399;
1342  T378:;  T399:;
1343          if(!(endp_prop(cdr(base[2])))){          if(!(endp_prop(cdr(base[2])))){
1344          goto T381;}          goto T402;}
1345          base[3]= VV[58];          base[3]= VV[61];
1346          base[4]= base[2];          base[4]= base[2];
1347          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1348          Lerror();          Lerror();
1349          return;          return;
1350  goto T381;  goto T402;
1351  T381:;  T402:;
1352          if(!(endp_prop(cddr(base[2])))){          if(!(endp_prop(cddr(base[2])))){
1353          goto T386;}          goto T407;}
1354          V202= (*(LnkLI99))(car(base[2]),cadr(base[2]),base[1]);          V213= (*(LnkLI102))(car(base[2]),cadr(base[2]),base[1]);
1355          base[3]= list(3,VV[57],/* INLINE-ARGS */V202,Cnil);          base[3]= list(3,VV[60],/* INLINE-ARGS */V213,Cnil);
1356          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1357          return;          return;
1358  goto T386;  goto T407;
1359  T386:;  T407:;
1360          {register object V203;          {register object V214;
1361          register object V204;          register object V215;
1362          register object V205;          register object V216;
1363          V203= base[2];          V214= base[2];
1364          V204= Cnil;          V215= Cnil;
1365          V205= Cnil;          V216= Cnil;
1366  goto T389;  goto T410;
1367  T389:;  T410:;
1368          if(!(endp_prop((V203)))){          if(!(endp_prop((V214)))){
1369          goto T390;}          goto T411;}
1370          V206= nreverse((V205));          V217= nreverse((V216));
1371          base[3]= listA(3,VV[51],(V204),append(/* INLINE-ARGS */V206,VV[59]));          base[3]= listA(3,VV[54],(V215),append(/* INLINE-ARGS */V217,VV[62]));
1372          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1373          return;          return;
1374  goto T390;  goto T411;
1375  T390:;  T411:;
1376          if(!(endp_prop(cdr((V203))))){          if(!(endp_prop(cdr((V214))))){
1377          goto T394;}          goto T415;}
1378          base[3]= VV[60];          base[3]= VV[63];
1379          base[4]= base[2];          base[4]= base[2];
1380          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1381          Lerror();          Lerror();
1382          vs_top=sup;          vs_top=sup;
1383  goto T394;  goto T415;
1384  T394:;  T415:;
1385          {register object V207;          {register object V218;
1386          register object V208;          register object V219;
1387          register object V209;          register object V220;
1388          register object V210;          register object V221;
1389          register object V211;          register object V222;
1390          base[3]= car((V203));          base[3]= car((V214));
1391          base[4]= base[1];          base[4]= base[1];
1392          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1393          (void) (*Lnk97)();          (void) (*Lnk100)();
1394          if(vs_base>=vs_top){vs_top=sup;goto T403;}          if(vs_base>=vs_top){vs_top=sup;goto T424;}
1395          V207= vs_base[0];          V218= vs_base[0];
1396          vs_base++;          vs_base++;
1397          if(vs_base>=vs_top){vs_top=sup;goto T404;}          if(vs_base>=vs_top){vs_top=sup;goto T425;}
1398          V208= vs_base[0];          V219= vs_base[0];
1399          vs_base++;          vs_base++;
1400          if(vs_base>=vs_top){vs_top=sup;goto T405;}          if(vs_base>=vs_top){vs_top=sup;goto T426;}
1401          V209= vs_base[0];          V220= vs_base[0];
1402          vs_base++;          vs_base++;
1403          if(vs_base>=vs_top){vs_top=sup;goto T406;}          if(vs_base>=vs_top){vs_top=sup;goto T427;}
1404          V210= vs_base[0];          V221= vs_base[0];
1405          vs_base++;          vs_base++;
1406          if(vs_base>=vs_top){vs_top=sup;goto T407;}          if(vs_base>=vs_top){vs_top=sup;goto T428;}
1407          V211= vs_base[0];          V222= vs_base[0];
1408          vs_top=sup;          vs_top=sup;
1409          goto T408;          goto T429;
1410  goto T403;  goto T424;
1411  T403:;  T424:;
1412          V207= Cnil;          V218= Cnil;
1413  goto T404;  goto T425;
1414  T404:;  T425:;
1415          V208= Cnil;          V219= Cnil;
1416  goto T405;  goto T426;
1417  T405:;  T426:;
1418          V209= Cnil;          V220= Cnil;
1419  goto T406;  goto T427;
1420  T406:;  T427:;
1421          V210= Cnil;          V221= Cnil;
1422  goto T407;  goto T428;
1423  T407:;  T428:;
1424          V211= Cnil;          V222= Cnil;
1425  goto T408;  goto T429;
1426  T408:;  T429:;
1427          V205= make_cons((V210),(V205));          V216= make_cons((V221),(V216));
1428          V216= append((V207),(V209));          V227= append((V218),(V220));
1429          V217= make_cons(cadr((V203)),Cnil);          V228= make_cons(cadr((V214)),Cnil);
1430          V218= append((V208),/* INLINE-ARGS */V217);          V229= append((V219),/* INLINE-ARGS */V228);
1431          {object V213;          {object V224;
1432          object V214= /* INLINE-ARGS */V216;          object V225= /* INLINE-ARGS */V227;
1433          object V215= /* INLINE-ARGS */V218;          object V226= /* INLINE-ARGS */V229;
1434          if(endp(V214)||endp(V215)){          if(endp(V225)||endp(V226)){
1435          V212= Cnil;          V223= Cnil;
1436          goto T412;}          goto T433;}
1437          base[3]=V213=MMcons(Cnil,Cnil);          base[3]=V224=MMcons(Cnil,Cnil);
1438  goto T413;  goto T434;
1439  T413:;  T434:;
1440          (V213->c.c_car)= list(2,(V214->c.c_car),(V215->c.c_car));          (V224->c.c_car)= list(2,(V225->c.c_car),(V226->c.c_car));
1441          V214=MMcdr(V214);          V225=MMcdr(V225);
1442          V215=MMcdr(V215);          V226=MMcdr(V226);
1443          if(endp(V214)||endp(V215)){          if(endp(V225)||endp(V226)){
1444          V212= base[3];          V223= base[3];
1445          goto T412;}          goto T433;}
1446          V213=MMcdr(V213)=MMcons(Cnil,Cnil);          V224=MMcdr(V224)=MMcons(Cnil,Cnil);
1447          goto T413;}          goto T434;}
1448  goto T412;  goto T433;
1449  T412:;  T433:;
1450          V204= nconc((V204),V212);}          V215= nconc((V215),V223);}
1451          V203= cddr((V203));          V214= cddr((V214));
1452          goto T389;}          goto T410;}
1453  }  }
1454  /*      macro definition for SHIFTF     */  /*      macro definition for SHIFTF     */
1455    
# Line 1423  static void L17() Line 1459  static void L17()
1459          vs_reserve(VM17);          vs_reserve(VM17);
1460          check_arg(2);          check_arg(2);
1461          vs_top=sup;          vs_top=sup;
1462          {object V219=base[0]->c.c_cdr;          {object V230=base[0]->c.c_cdr;
1463          base[2]= V219;}          base[2]= V230;}
1464          {register object V220;          {register object V231;
1465          register object V221;          register object V232;
1466          register object V222;          register object V233;
1467          register object V223;          register object V234;
1468          register object V224;          register object V235;
1469          register object V225;          register object V236;
1470          vs_base=vs_top;          vs_base=vs_top;
1471          Lgensym();          Lgensym();
1472          vs_top=sup;          vs_top=sup;
1473          V224= vs_base[0];          V235= vs_base[0];
1474          V220= base[2];          V231= base[2];
1475          V221= Cnil;          V232= Cnil;
1476          V222= Cnil;          V233= Cnil;
1477          V223= Cnil;          V234= Cnil;
1478          V225= Cnil;          V236= Cnil;
1479  goto T420;  goto T441;
1480  T420:;  T441:;
1481          if(!(endp_prop(cdr((V220))))){          if(!(endp_prop(cdr((V231))))){
1482          goto T421;}          goto T442;}
1483          V222= nreverse((V222));          V233= nreverse((V233));
1484          V223= nreverse((V223));          V234= nreverse((V234));
1485          V225= nreverse((V225));          V236= nreverse((V236));
1486          base[3]= (V221);          base[3]= (V232);
1487          V227= list(2,(V224),car((V225)));          V238= list(2,(V235),car((V236)));
1488          base[4]= make_cons(/* INLINE-ARGS */V227,Cnil);          base[4]= make_cons(/* INLINE-ARGS */V238,Cnil);
1489          {object V228;          {object V239;
1490          object V229= (V222);          object V240= (V233);
1491          object V230= cdr((V225));          object V241= cdr((V236));
1492          if(endp(V229)||endp(V230)){          if(endp(V240)||endp(V241)){
1493          base[5]= Cnil;          base[5]= Cnil;
1494          goto T433;}          goto T454;}
1495          base[6]=V228=MMcons(Cnil,Cnil);          base[6]=V239=MMcons(Cnil,Cnil);
1496  goto T434;  goto T455;
1497  T434:;  T455:;
1498          (V228->c.c_car)= list(2,(V229->c.c_car),(V230->c.c_car));          (V239->c.c_car)= list(2,(V240->c.c_car),(V241->c.c_car));
1499          V229=MMcdr(V229);          V240=MMcdr(V240);
1500          V230=MMcdr(V230);          V241=MMcdr(V241);
1501          if(endp(V229)||endp(V230)){          if(endp(V240)||endp(V241)){
1502          base[5]= base[6];          base[5]= base[6];
1503          goto T433;}          goto T454;}
1504          V228=MMcdr(V228)=MMcons(Cnil,Cnil);          V239=MMcdr(V239)=MMcons(Cnil,Cnil);
1505          goto T434;}          goto T455;}
1506  goto T433;  goto T454;
1507  T433:;  T454:;
1508          base[7]= (V222);          base[7]= (V233);
1509          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1510          Llast();          Llast();
1511          vs_top=sup;          vs_top=sup;
1512          V231= vs_base[0];          V242= vs_base[0];
1513          V232= list(2,car(V231),car((V220)));          V243= list(2,car(V242),car((V231)));
1514          base[6]= make_cons(/* INLINE-ARGS */V232,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V243,Cnil);
1515          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1516          Lnconc();          Lnconc();
1517          vs_top=sup;          vs_top=sup;
1518          V226= vs_base[0];          V237= vs_base[0];
1519          V233= make_cons((V224),Cnil);          V244= make_cons((V235),Cnil);
1520          base[3]= listA(3,VV[51],V226,append((V223),/* INLINE-ARGS */V233));          base[3]= listA(3,VV[54],V237,append((V234),/* INLINE-ARGS */V244));
1521          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1522          return;          return;
1523  goto T421;  goto T442;
1524  T421:;  T442:;
1525          {register object V234;          {register object V245;
1526          register object V235;          register object V246;
1527          register object V236;          register object V247;
1528          register object V237;          register object V248;
1529          register object V238;          register object V249;
1530          base[3]= car((V220));          base[3]= car((V231));
1531          base[4]= base[1];          base[4]= base[1];
1532          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1533          (void) (*Lnk97)();          (void) (*Lnk100)();
1534          if(vs_base>=vs_top){vs_top=sup;goto T444;}          if(vs_base>=vs_top){vs_top=sup;goto T465;}
1535          V234= vs_base[0];          V245= vs_base[0];
1536          vs_base++;          vs_base++;
1537          if(vs_base>=vs_top){vs_top=sup;goto T445;}          if(vs_base>=vs_top){vs_top=sup;goto T466;}
1538          V235= vs_base[0];          V246= vs_base[0];
1539          vs_base++;          vs_base++;
1540          if(vs_base>=vs_top){vs_top=sup;goto T446;}          if(vs_base>=vs_top){vs_top=sup;goto T467;}
1541          V236= vs_base[0];          V247= vs_base[0];
1542          vs_base++;          vs_base++;
1543          if(vs_base>=vs_top){vs_top=sup;goto T447;}          if(vs_base>=vs_top){vs_top=sup;goto T468;}
1544          V237= vs_base[0];          V248= vs_base[0];
1545          vs_base++;          vs_base++;
1546          if(vs_base>=vs_top){vs_top=sup;goto T448;}          if(vs_base>=vs_top){vs_top=sup;goto T469;}
1547          V238= vs_base[0];          V249= vs_base[0];
1548          vs_top=sup;          vs_top=sup;
1549          goto T449;          goto T470;
1550  goto T444;  goto T465;
1551  T444:;  T465:;
1552          V234= Cnil;          V245= Cnil;
1553  goto T445;  goto T466;
1554  T445:;  T466:;
1555          V235= Cnil;          V246= Cnil;
1556  goto T446;  goto T467;
1557  T446:;  T467:;
1558          V236= Cnil;          V247= Cnil;
1559  goto T447;  goto T468;
1560  T447:;  T468:;
1561          V237= Cnil;          V248= Cnil;
1562  goto T448;  goto T469;
1563  T448:;  T469:;
1564          V238= Cnil;          V249= Cnil;
1565  goto T449;  goto T470;
1566  T449:;  T470:;
1567          {object V240;          {object V251;
1568          object V241= (V234);          object V252= (V245);
1569          object V242= (V235);          object V253= (V246);
1570          if(endp(V241)||endp(V242)){          if(endp(V252)||endp(V253)){
1571          V239= Cnil;          V250= Cnil;
1572          goto T452;}          goto T473;}
1573          base[3]=V240=MMcons(Cnil,Cnil);          base[3]=V251=MMcons(Cnil,Cnil);
1574  goto T453;  goto T474;
1575  T453:;  T474:;
1576          (V240->c.c_car)= list(2,(V241->c.c_car),(V242->c.c_car));          (V251->c.c_car)= list(2,(V252->c.c_car),(V253->c.c_car));
1577          V241=MMcdr(V241);          V252=MMcdr(V252);
1578          V242=MMcdr(V242);          V253=MMcdr(V253);
1579          if(endp(V241)||endp(V242)){          if(endp(V252)||endp(V253)){
1580          V239= base[3];          V250= base[3];
1581          goto T452;}          goto T473;}
1582          V240=MMcdr(V240)=MMcons(Cnil,Cnil);          V251=MMcdr(V251)=MMcons(Cnil,Cnil);
1583          goto T453;}          goto T474;}
1584  goto T452;  goto T473;
1585  T452:;  T473:;
1586          V221= nconc((V221),V239);          V232= nconc((V232),V250);
1587          V222= make_cons(car((V236)),(V222));          V233= make_cons(car((V247)),(V233));
1588          V223= make_cons((V237),(V223));          V234= make_cons((V248),(V234));
1589          V225= make_cons((V238),(V225));}          V236= make_cons((V249),(V236));}
1590          V220= cdr((V220));          V231= cdr((V231));
1591          goto T420;}          goto T441;}
1592  }  }
1593  /*      macro definition for ROTATEF    */  /*      macro definition for ROTATEF    */
1594    
# Line 1562  static void L18() Line 1598  static void L18()
1598          vs_reserve(VM18);          vs_reserve(VM18);
1599          check_arg(2);          check_arg(2);
1600          vs_top=sup;          vs_top=sup;
1601          {object V243=base[0]->c.c_cdr;          {object V254=base[0]->c.c_cdr;
1602          base[2]= V243;}          base[2]= V254;}
         {register object V244;  
         register object V245;  
         register object V246;  
         register object V247;  
         register object V248;  
         V244= base[2];  
         V245= Cnil;  
         V246= Cnil;  
         V247= Cnil;  
         V248= Cnil;  
 goto T464;  
 T464:;  
         if(!(endp_prop((V244)))){  
         goto T465;}  
         V246= nreverse((V246));  
         V247= nreverse((V247));  
         V248= nreverse((V248));  
         base[3]= (V245);  
         {object V250;  
         object V251= (V246);  
         object V252= cdr((V248));  
         if(endp(V251)||endp(V252)){  
         base[4]= Cnil;  
         goto T476;}  
         base[5]=V250=MMcons(Cnil,Cnil);  
 goto T477;  
 T477:;  
         (V250->c.c_car)= list(2,(V251->c.c_car),(V252->c.c_car));  
         V251=MMcdr(V251);  
         V252=MMcdr(V252);  
         if(endp(V251)||endp(V252)){  
         base[4]= base[5];  
         goto T476;}  
         V250=MMcdr(V250)=MMcons(Cnil,Cnil);  
         goto T477;}  
 goto T476;  
 T476:;  
         base[6]= (V246);  
         vs_top=(vs_base=base+6)+1;  
         Llast();  
         vs_top=sup;  
         V253= vs_base[0];  
         V254= list(2,car(V253),car((V248)));  
         base[5]= make_cons(/* INLINE-ARGS */V254,Cnil);  
         vs_top=(vs_base=base+3)+3;  
         Lnconc();  
         vs_top=sup;  
         V249= vs_base[0];  
         base[3]= listA(3,VV[51],V249,append((V247),VV[61]));  
         vs_top=(vs_base=base+3)+1;  
         return;  
 goto T465;  
 T465:;  
1603          {register object V255;          {register object V255;
1604          register object V256;          register object V256;
1605          register object V257;          register object V257;
1606          register object V258;          register object V258;
1607          register object V259;          register object V259;
1608          base[3]= car((V244));          V255= base[2];
         base[4]= base[1];  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk97)();  
         if(vs_base>=vs_top){vs_top=sup;goto T487;}  
         V255= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T488;}  
         V256= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T489;}  
         V257= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T490;}  
         V258= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T491;}  
         V259= vs_base[0];  
         vs_top=sup;  
         goto T492;  
 goto T487;  
 T487:;  
         V255= Cnil;  
 goto T488;  
 T488:;  
1609          V256= Cnil;          V256= Cnil;
 goto T489;  
 T489:;  
1610          V257= Cnil;          V257= Cnil;
 goto T490;  
 T490:;  
1611          V258= Cnil;          V258= Cnil;
 goto T491;  
 T491:;  
1612          V259= Cnil;          V259= Cnil;
1613  goto T492;  goto T485;
1614  T492:;  T485:;
1615            if(!(endp_prop((V255)))){
1616            goto T486;}
1617            V257= nreverse((V257));
1618            V258= nreverse((V258));
1619            V259= nreverse((V259));
1620            base[3]= (V256);
1621          {object V261;          {object V261;
1622          object V262= (V255);          object V262= (V257);
1623          object V263= (V256);          object V263= cdr((V259));
1624          if(endp(V262)||endp(V263)){          if(endp(V262)||endp(V263)){
1625          V260= Cnil;          base[4]= Cnil;
1626          goto T495;}          goto T497;}
1627          base[3]=V261=MMcons(Cnil,Cnil);          base[5]=V261=MMcons(Cnil,Cnil);
1628  goto T496;  goto T498;
1629  T496:;  T498:;
1630          (V261->c.c_car)= list(2,(V262->c.c_car),(V263->c.c_car));          (V261->c.c_car)= list(2,(V262->c.c_car),(V263->c.c_car));
1631          V262=MMcdr(V262);          V262=MMcdr(V262);
1632          V263=MMcdr(V263);          V263=MMcdr(V263);
1633          if(endp(V262)||endp(V263)){          if(endp(V262)||endp(V263)){
1634          V260= base[3];          base[4]= base[5];
1635          goto T495;}          goto T497;}
1636          V261=MMcdr(V261)=MMcons(Cnil,Cnil);          V261=MMcdr(V261)=MMcons(Cnil,Cnil);
1637          goto T496;}          goto T498;}
1638  goto T495;  goto T497;
1639  T495:;  T497:;
1640          V245= nconc((V245),V260);          base[6]= (V257);
1641          V246= make_cons(car((V257)),(V246));          vs_top=(vs_base=base+6)+1;
1642          V247= make_cons((V258),(V247));          Llast();
1643          V248= make_cons((V259),(V248));}          vs_top=sup;
1644          V244= cdr((V244));          V264= vs_base[0];
1645          goto T464;}          V265= list(2,car(V264),car((V259)));
1646            base[5]= make_cons(/* INLINE-ARGS */V265,Cnil);
1647            vs_top=(vs_base=base+3)+3;
1648            Lnconc();
1649            vs_top=sup;
1650            V260= vs_base[0];
1651            base[3]= listA(3,VV[54],V260,append((V258),VV[64]));
1652            vs_top=(vs_base=base+3)+1;
1653            return;
1654    goto T486;
1655    T486:;
1656            {register object V266;
1657            register object V267;
1658            register object V268;
1659            register object V269;
1660            register object V270;
1661            base[3]= car((V255));
1662            base[4]= base[1];
1663            vs_top=(vs_base=base+3)+2;
1664            (void) (*Lnk100)();
1665            if(vs_base>=vs_top){vs_top=sup;goto T508;}
1666            V266= vs_base[0];
1667            vs_base++;
1668            if(vs_base>=vs_top){vs_top=sup;goto T509;}
1669            V267= vs_base[0];
1670            vs_base++;
1671            if(vs_base>=vs_top){vs_top=sup;goto T510;}
1672            V268= vs_base[0];
1673            vs_base++;
1674            if(vs_base>=vs_top){vs_top=sup;goto T511;}
1675            V269= vs_base[0];
1676            vs_base++;
1677            if(vs_base>=vs_top){vs_top=sup;goto T512;}
1678            V270= vs_base[0];
1679            vs_top=sup;
1680            goto T513;
1681    goto T508;
1682    T508:;
1683            V266= Cnil;
1684    goto T509;
1685    T509:;
1686            V267= Cnil;
1687    goto T510;
1688    T510:;
1689            V268= Cnil;
1690    goto T511;
1691    T511:;
1692            V269= Cnil;
1693    goto T512;
1694    T512:;
1695            V270= Cnil;
1696    goto T513;
1697    T513:;
1698            {object V272;
1699            object V273= (V266);
1700            object V274= (V267);
1701            if(endp(V273)||endp(V274)){
1702            V271= Cnil;
1703            goto T516;}
1704            base[3]=V272=MMcons(Cnil,Cnil);
1705    goto T517;
1706    T517:;
1707            (V272->c.c_car)= list(2,(V273->c.c_car),(V274->c.c_car));
1708            V273=MMcdr(V273);
1709            V274=MMcdr(V274);
1710            if(endp(V273)||endp(V274)){
1711            V271= base[3];
1712            goto T516;}
1713            V272=MMcdr(V272)=MMcons(Cnil,Cnil);
1714            goto T517;}
1715    goto T516;
1716    T516:;
1717            V256= nconc((V256),V271);
1718            V257= make_cons(car((V268)),(V257));
1719            V258= make_cons((V269),(V258));
1720            V259= make_cons((V270),(V259));}
1721            V255= cdr((V255));
1722            goto T485;}
1723  }  }
1724  /*      macro definition for DEFINE-MODIFY-MACRO        */  /*      macro definition for DEFINE-MODIFY-MACRO        */
1725    
# Line 1693  static void L19() Line 1729  static void L19()
1729          vs_reserve(VM19);          vs_reserve(VM19);
1730          check_arg(2);          check_arg(2);
1731          vs_top=sup;          vs_top=sup;
1732          {object V264=base[0]->c.c_cdr;          {object V275=base[0]->c.c_cdr;
1733          if(endp(V264))invalid_macro_call();          if(endp(V275))invalid_macro_call();
1734          base[2]= (V264->c.c_car);          base[2]= (V275->c.c_car);
1735          V264=V264->c.c_cdr;          V275=V275->c.c_cdr;
1736          if(endp(V264))invalid_macro_call();          if(endp(V275))invalid_macro_call();
1737          base[3]= (V264->c.c_car);          base[3]= (V275->c.c_car);
1738          V264=V264->c.c_cdr;          V275=V275->c.c_cdr;
1739          if(endp(V264))invalid_macro_call();          if(endp(V275))invalid_macro_call();
1740          base[4]= (V264->c.c_car);          base[4]= (V275->c.c_car);
1741          V264=V264->c.c_cdr;          V275=V275->c.c_cdr;
1742          if(endp(V264)){          if(endp(V275)){
1743          base[5]= Cnil;          base[5]= Cnil;
1744          } else {          } else {
1745          base[5]= (V264->c.c_car);          base[5]= (V275->c.c_car);
1746          V264=V264->c.c_cdr;}          V275=V275->c.c_cdr;}
1747          if(!endp(V264))invalid_macro_call();}          if(!endp(V275))invalid_macro_call();}
1748          {object V265;          {object V276;
1749          {register object V266;          {register object V277;
1750          register object V267;          register object V278;
1751          V266= base[3];          V277= base[3];
1752          V267= Cnil;          V278= Cnil;
 goto T509;  
 T509:;  
         if(((V266))!=Cnil){  
         goto T510;}  
         V268= list(2,VV[3],base[4]);  
         V265= listA(4,VV[43],/* INLINE-ARGS */V268,VV[62],nreverse((V267)));  
         goto T507;  
 goto T510;  
 T510:;  
         if((car((V266)))==(VV[63])){  
         goto T514;}  
         if(!((car((V266)))==(VV[64]))){  
         goto T517;}  
         V269= list(2,VV[3],base[4]);  
         V270= nreverse((V267));  
         V271= make_cons(cadr((V266)),Cnil);  
         V265= listA(4,VV[65],/* INLINE-ARGS */V269,VV[62],append(/* INLINE-ARGS */V270,/* INLINE-ARGS */V271));  
         goto T507;  
 goto T517;  
 T517:;  
         if(!(type_of(car((V266)))==t_symbol)){  
         goto T521;}  
         V267= make_cons(car((V266)),(V267));  
         goto T514;  
 goto T521;  
 T521:;  
         V267= make_cons(caar((V266)),(V267));  
 goto T514;  
 T514:;  
         V266= cdr((V266));  
         goto T509;}  
 goto T507;  
 T507:;  
         V272= listA(4,VV[67],VV[68],VV[69],base[3]);  
         if((base[5])==Cnil){  
         goto T530;}  
         V273= make_cons(base[5],Cnil);  
         goto T528;  
1753  goto T530;  goto T530;
1754  T530:;  T530:;
1755          V273= Cnil;          if(((V277))!=Cnil){
1756            goto T531;}
1757            V279= list(2,VV[3],base[4]);
1758            V276= listA(4,VV[43],/* INLINE-ARGS */V279,VV[65],nreverse((V278)));
1759            goto T528;
1760    goto T531;
1761    T531:;
1762            if((car((V277)))==(VV[66])){
1763            goto T535;}
1764            if(!((car((V277)))==(VV[67]))){
1765            goto T538;}
1766            V280= list(2,VV[3],base[4]);
1767            V281= nreverse((V278));
1768            V282= make_cons(cadr((V277)),Cnil);
1769            V276= listA(4,VV[68],/* INLINE-ARGS */V280,VV[65],append(/* INLINE-ARGS */V281,/* INLINE-ARGS */V282));
1770            goto T528;
1771    goto T538;
1772    T538:;
1773            if(!(type_of(car((V277)))==t_symbol)){
1774            goto T542;}
1775            V278= make_cons(car((V277)),(V278));
1776            goto T535;
1777    goto T542;
1778    T542:;
1779            V278= make_cons(caar((V277)),(V278));
1780    goto T535;
1781    T535:;
1782            V277= cdr((V277));
1783            goto T530;}
1784  goto T528;  goto T528;
1785  T528:;  T528:;
1786          V274= list(3,VV[70],VV[71],list(3,VV[72],base[2],list(3,VV[36],VV[73],list(4,VV[43],VV[74],VV[69],(V265)))));          V283= listA(4,VV[70],VV[71],VV[72],base[3]);
1787          V275= list(2,/* INLINE-ARGS */V274,list(4,VV[75],VV[76],VV[77],list(4,VV[43],VV[78],list(4,VV[79],VV[80],VV[81],list(3,VV[42],VV[82],list(2,VV[43],(V265)))),VV[83])));          if((base[5])==Cnil){
1788          base[6]= listA(4,VV[66],base[2],/* INLINE-ARGS */V272,append(V273,/* INLINE-ARGS */V275));          goto T551;}
1789            V284= make_cons(base[5],Cnil);
1790            goto T549;
1791    goto T551;
1792    T551:;
1793            V284= Cnil;
1794    goto T549;
1795    T549:;
1796            V285= list(3,VV[73],VV[74],list(3,VV[75],base[2],list(3,VV[36],VV[76],list(4,VV[43],VV[77],VV[72],(V276)))));
1797            V286= list(2,/* INLINE-ARGS */V285,list(4,VV[78],VV[79],VV[80],list(4,VV[43],VV[81],list(4,VV[82],VV[83],VV[84],list(3,VV[42],VV[85],list(2,VV[43],(V276)))),VV[86])));
1798            base[6]= listA(4,VV[69],base[2],/* INLINE-ARGS */V283,append(V284,/* INLINE-ARGS */V286));
1799          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1800          return;}          return;}
1801  }  }
# Line 1771  static void L20() Line 1807  static void L20()
1807          vs_reserve(VM20);          vs_reserve(VM20);
1808          check_arg(2);          check_arg(2);
1809          vs_top=sup;          vs_top=sup;
1810          {object V276=base[0]->c.c_cdr;          {object V287=base[0]->c.c_cdr;
1811          if(endp(V276))invalid_macro_call();          if(endp(V287))invalid_macro_call();
1812          base[2]= (V276->c.c_car);          base[2]= (V287->c.c_car);
1813          V276=V276->c.c_cdr;          V287=V287->c.c_cdr;
1814          if(endp(V276))invalid_macro_call();          if(endp(V287))invalid_macro_call();
1815          base[3]= (V276->c.c_car);          base[3]= (V287->c.c_car);
1816          V276=V276->c.c_cdr;          V287=V287->c.c_cdr;
1817          if(!endp(V276))invalid_macro_call();}          if(!endp(V287))invalid_macro_call();}
1818          {object V277;          {object V288;
1819          object V278;          object V289;
1820          object V279;          object V290;
1821          object V280;          object V291;
1822          object V281;          object V292;
1823          base[4]= base[2];          base[4]= base[2];
1824          base[5]= base[1];          base[5]= base[1];
1825          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1826          (void) (*Lnk97)();          (void) (*Lnk100)();
1827          if(vs_base>=vs_top){vs_top=sup;goto T535;}          if(vs_base>=vs_top){vs_top=sup;goto T556;}
1828          V277= vs_base[0];          V288= vs_base[0];
1829          vs_base++;          vs_base++;
1830          if(vs_base>=vs_top){vs_top=sup;goto T536;}          if(vs_base>=vs_top){vs_top=sup;goto T557;}
1831          V278= vs_base[0];          V289= vs_base[0];
1832          vs_base++;          vs_base++;
1833          if(vs_base>=vs_top){vs_top=sup;goto T537;}          if(vs_base>=vs_top){vs_top=sup;goto T558;}
1834          V279= vs_base[0];          V290= vs_base[0];
1835          vs_base++;          vs_base++;
1836          if(vs_base>=vs_top){vs_top=sup;goto T538;}          if(vs_base>=vs_top){vs_top=sup;goto T559;}
1837          V280= vs_base[0];          V291= vs_base[0];
1838          vs_base++;          vs_base++;
1839          if(vs_base>=vs_top){vs_top=sup;goto T539;}          if(vs_base>=vs_top){vs_top=sup;goto T560;}
1840          V281= vs_base[0];          V292= vs_base[0];
1841          vs_top=sup;          vs_top=sup;
1842          goto T540;          goto T561;
1843  goto T535;  goto T556;
1844  T535:;  T556:;
1845          V277= Cnil;          V288= Cnil;
1846  goto T536;  goto T557;
1847  T536:;  T557:;
1848          V278= Cnil;          V289= Cnil;
1849  goto T537;  goto T558;
1850  T537:;  T558:;
1851          V279= Cnil;          V290= Cnil;
1852  goto T538;  goto T559;
1853  T538:;  T559:;
1854          V280= Cnil;          V291= Cnil;
1855  goto T539;  goto T560;
1856  T539:;  T560:;
1857          V281= Cnil;          V292= Cnil;
1858  goto T540;  goto T561;
1859  T540:;  T561:;
1860          {object V283;          {object V294;
1861          object V284= (V277);          object V295= (V288);
1862          object V285= (V278);          object V296= (V289);
1863          if(endp(V284)||endp(V285)){          if(endp(V295)||endp(V296)){
1864          V282= Cnil;          V293= Cnil;
1865          goto T541;}          goto T562;}
1866          base[4]=V283=MMcons(Cnil,Cnil);          base[4]=V294=MMcons(Cnil,Cnil);
1867  goto T542;  goto T563;
1868  T542:;  T563:;
1869          (V283->c.c_car)= list(2,(V284->c.c_car),(V285->c.c_car));          (V294->c.c_car)= list(2,(V295->c.c_car),(V296->c.c_car));
1870          V284=MMcdr(V284);          V295=MMcdr(V295);
1871          V285=MMcdr(V285);          V296=MMcdr(V296);
1872          if(endp(V284)||endp(V285)){          if(endp(V295)||endp(V296)){
1873          V282= base[4];          V293= base[4];
1874          goto T541;}          goto T562;}
1875          V283=MMcdr(V283)=MMcons(Cnil,Cnil);          V294=MMcdr(V294)=MMcons(Cnil,Cnil);
1876          goto T542;}          goto T563;}
1877  goto T541;  goto T562;
1878  T541:;  T562:;
1879          V286= list(2,car((V279)),VV[84]);          V297= list(2,car((V290)),VV[87]);
1880          base[4]= list(3,VV[51],V282,list(5,VV[75],/* INLINE-ARGS */V286,list(3,VV[85],(V281),base[3]),(V280),VV[84]));          base[4]= list(3,VV[54],V293,list(5,VV[78],/* INLINE-ARGS */V297,list(3,VV[88],(V292),base[3]),(V291),VV[87]));
1881          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1882          return;}          return;}
1883  }  }
# Line 1853  static void L21() Line 1889  static void L21()
1889          vs_reserve(VM21);          vs_reserve(VM21);
1890          check_arg(2);          check_arg(2);
1891          vs_top=sup;          vs_top=sup;
1892          {object V287=base[0]->c.c_cdr;          {object V298=base[0]->c.c_cdr;
1893          if(endp(V287))invalid_macro_call();          if(endp(V298))invalid_macro_call();
1894          base[2]= (V287->c.c_car);          base[2]= (V298->c.c_car);
1895          V287=V287->c.c_cdr;          V298=V298->c.c_cdr;
1896          if(endp(V287)){          if(endp(V298)){
1897          base[3]= small_fixnum(1);          base[3]= small_fixnum(1);
1898          } else {          } else {
1899          base[3]= (V287->c.c_car);          base[3]= (V298->c.c_car);
1900          V287=V287->c.c_cdr;}          V298=V298->c.c_cdr;}
1901          if(!endp(V287))invalid_macro_call();}          if(!endp(V298))invalid_macro_call();}
1902          if(!(type_of(base[2])==t_symbol)){          if(!(type_of(base[2])==t_symbol)){
1903          goto T545;}          goto T566;}
1904          base[4]= list(3,VV[27],base[2],list(3,VV[86],base[2],base[3]));          base[4]= list(3,VV[27],base[2],list(3,VV[89],base[2],base[3]));
1905          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1906          return;          return;
1907  goto T545;  goto T566;
1908  T545:;  T566:;
1909          {object V289;          {object V300;
1910          object V290;          object V301;
1911          object V291;          object V302;
1912          object V292;          object V303;
1913          object V293;          object V304;
1914          base[4]= base[2];          base[4]= base[2];
1915          base[5]= base[1];          base[5]= base[1];
1916          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1917          (void) (*Lnk97)();          (void) (*Lnk100)();
1918          if(vs_base>=vs_top){vs_top=sup;goto T551;}          if(vs_base>=vs_top){vs_top=sup;goto T572;}
1919          V289= vs_base[0];          V300= vs_base[0];
1920          vs_base++;          vs_base++;
1921          if(vs_base>=vs_top){vs_top=sup;goto T552;}          if(vs_base>=vs_top){vs_top=sup;goto T573;}
1922          V290= vs_base[0];          V301= vs_base[0];
1923          vs_base++;          vs_base++;
1924          if(vs_base>=vs_top){vs_top=sup;goto T553;}          if(vs_base>=vs_top){vs_top=sup;goto T574;}
1925          V291= vs_base[0];          V302= vs_base[0];
1926          vs_base++;          vs_base++;
1927          if(vs_base>=vs_top){vs_top=sup;goto T554;}          if(vs_base>=vs_top){vs_top=sup;goto T575;}
1928          V292= vs_base[0];          V303= vs_base[0];
1929          vs_base++;          vs_base++;
1930          if(vs_base>=vs_top){vs_top=sup;goto T555;}          if(vs_base>=vs_top){vs_top=sup;goto T576;}
1931          V293= vs_base[0];          V304= vs_base[0];
1932          vs_top=sup;          vs_top=sup;
1933          goto T556;          goto T577;
1934  goto T551;  goto T572;
1935  T551:;  T572:;
1936          V289= Cnil;          V300= Cnil;
1937  goto T552;  goto T573;
1938  T552:;  T573:;
1939          V290= Cnil;          V301= Cnil;
1940  goto T553;  goto T574;
1941  T553:;  T574:;
1942          V291= Cnil;          V302= Cnil;
1943  goto T554;  goto T575;
1944  T554:;  T575:;
1945          V292= Cnil;          V303= Cnil;
1946  goto T555;  goto T576;
1947  T555:;  T576:;
1948          V293= Cnil;          V304= Cnil;
1949  goto T556;  goto T577;
1950  T556:;  T577:;
1951          V298= append((V289),(V291));          V309= append((V300),(V302));
1952          V299= list(3,VV[86],(V293),base[3]);          V310= list(3,VV[89],(V304),base[3]);
1953          V300= make_cons(/* INLINE-ARGS */V299,Cnil);          V311= make_cons(/* INLINE-ARGS */V310,Cnil);
1954          V301= append((V290),/* INLINE-ARGS */V300);          V312= append((V301),/* INLINE-ARGS */V311);
1955          {object V295;          {object V306;
1956          object V296= /* INLINE-ARGS */V298;          object V307= /* INLINE-ARGS */V309;
1957          object V297= /* INLINE-ARGS */V301;          object V308= /* INLINE-ARGS */V312;
1958          if(endp(V296)||endp(V297)){          if(endp(V307)||endp(V308)){
1959          V294= Cnil;          V305= Cnil;
1960          goto T557;}          goto T578;}
1961          base[4]=V295=MMcons(Cnil,Cnil);          base[4]=V306=MMcons(Cnil,Cnil);
1962  goto T558;  goto T579;
1963  T558:;  T579:;
1964          (V295->c.c_car)= list(2,(V296->c.c_car),(V297->c.c_car));          (V306->c.c_car)= list(2,(V307->c.c_car),(V308->c.c_car));
1965          V296=MMcdr(V296);          V307=MMcdr(V307);
1966          V297=MMcdr(V297);          V308=MMcdr(V308);
1967          if(endp(V296)||endp(V297)){          if(endp(V307)||endp(V308)){
1968          V294= base[4];          V305= base[4];
1969          goto T557;}          goto T578;}
1970          V295=MMcdr(V295)=MMcons(Cnil,Cnil);          V306=MMcdr(V306)=MMcons(Cnil,Cnil);
1971          goto T558;}          goto T579;}
1972  goto T557;  goto T578;
1973  T557:;  T578:;
1974          base[4]= list(3,VV[51],V294,(V292));          base[4]= list(3,VV[54],V305,(V303));
1975          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1976          return;}          return;}
1977  }  }
# Line 1947  static void L22() Line 1983  static void L22()
1983          vs_reserve(VM22);          vs_reserve(VM22);
1984          check_arg(2);          check_arg(2);
1985          vs_top=sup;          vs_top=sup;
1986          {object V302=base[0]->c.c_cdr;          {object V313=base[0]->c.c_cdr;
1987          if(endp(V302))invalid_macro_call();          if(endp(V313))invalid_macro_call();
1988          base[2]= (V302->c.c_car);          base[2]= (V313->c.c_car);
1989          V302=V302->c.c_cdr;          V313=V313->c.c_cdr;
1990          if(endp(V302)){          if(endp(V313)){
1991          base[3]= small_fixnum(1);          base[3]= small_fixnum(1);
1992          } else {          } else {
1993          base[3]= (V302->c.c_car);          base[3]= (V313->c.c_car);
1994          V302=V302->c.c_cdr;}          V313=V313->c.c_cdr;}
1995          if(!endp(V302))invalid_macro_call();}          if(!endp(V313))invalid_macro_call();}
1996          if(!(type_of(base[2])==t_symbol)){          if(!(type_of(base[2])==t_symbol)){
1997          goto T561;}          goto T582;}
1998          base[4]= list(3,VV[27],base[2],list(3,VV[87],base[2],base[3]));          base[4]= list(3,VV[27],base[2],list(3,VV[90],base[2],base[3]));
1999          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2000          return;          return;
2001  goto T561;  goto T582;
2002  T561:;  T582:;
2003          {object V304;          {object V315;
2004          object V305;          object V316;
2005          object V306;          object V317;
2006          object V307;          object V318;
2007          object V308;          object V319;
2008          base[4]= base[2];          base[4]= base[2];
2009          base[5]= base[1];          base[5]= base[1];
2010          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2011          (void) (*Lnk97)();          (void) (*Lnk100)();
2012          if(vs_base>=vs_top){vs_top=sup;goto T567;}          if(vs_base>=vs_top){vs_top=sup;goto T588;}
2013          V304= vs_base[0];          V315= vs_base[0];
2014          vs_base++;          vs_base++;
2015          if(vs_base>=vs_top){vs_top=sup;goto T568;}          if(vs_base>=vs_top){vs_top=sup;goto T589;}
2016          V305= vs_base[0];          V316= vs_base[0];
2017          vs_base++;          vs_base++;
2018          if(vs_base>=vs_top){vs_top=sup;goto T569;}          if(vs_base>=vs_top){vs_top=sup;goto T590;}
2019          V306= vs_base[0];          V317= vs_base[0];
2020          vs_base++;          vs_base++;
2021          if(vs_base>=vs_top){vs_top=sup;goto T570;}          if(vs_base>=vs_top){vs_top=sup;goto T591;}
2022          V307= vs_base[0];          V318= vs_base[0];
2023          vs_base++;          vs_base++;
2024          if(vs_base>=vs_top){vs_top=sup;goto T571;}          if(vs_base>=vs_top){vs_top=sup;goto T592;}
2025          V308= vs_base[0];          V319= vs_base[0];
2026          vs_top=sup;          vs_top=sup;
2027          goto T572;          goto T593;
2028  goto T567;  goto T588;
2029  T567:;  T588:;
2030          V304= Cnil;          V315= Cnil;
2031  goto T568;  goto T589;
2032  T568:;  T589:;
2033          V305= Cnil;          V316= Cnil;
2034  goto T569;  goto T590;
2035  T569:;  T590:;
2036          V306= Cnil;          V317= Cnil;
2037  goto T570;  goto T591;
2038  T570:;  T591:;
2039          V307= Cnil;          V318= Cnil;
2040  goto T571;  goto T592;
2041  T571:;  T592:;
2042          V308= Cnil;          V319= Cnil;
2043  goto T572;  goto T593;
2044  T572:;  T593:;
2045          V313= append((V304),(V306));          V324= append((V315),(V317));
2046          V314= list(3,VV[87],(V308),base[3]);          V325= list(3,VV[90],(V319),base[3]);
2047          V315= make_cons(/* INLINE-ARGS */V314,Cnil);          V326= make_cons(/* INLINE-ARGS */V325,Cnil);
2048          V316= append((V305),/* INLINE-ARGS */V315);          V327= append((V316),/* INLINE-ARGS */V326);
2049          {object V310;          {object V321;
2050          object V311= /* INLINE-ARGS */V313;          object V322= /* INLINE-ARGS */V324;
2051          object V312= /* INLINE-ARGS */V316;          object V323= /* INLINE-ARGS */V327;
2052          if(endp(V311)||endp(V312)){          if(endp(V322)||endp(V323)){
2053          V309= Cnil;          V320= Cnil;
2054          goto T573;}          goto T594;}
2055          base[4]=V310=MMcons(Cnil,Cnil);          base[4]=V321=MMcons(Cnil,Cnil);
2056  goto T574;  goto T595;
2057  T574:;  T595:;
2058          (V310->c.c_car)= list(2,(V311->c.c_car),(V312->c.c_car));          (V321->c.c_car)= list(2,(V322->c.c_car),(V323->c.c_car));
2059          V311=MMcdr(V311);          V322=MMcdr(V322);
2060          V312=MMcdr(V312);          V323=MMcdr(V323);
2061          if(endp(V311)||endp(V312)){          if(endp(V322)||endp(V323)){
2062          V309= base[4];          V320= base[4];
2063          goto T573;}          goto T594;}
2064          V310=MMcdr(V310)=MMcons(Cnil,Cnil);          V321=MMcdr(V321)=MMcons(Cnil,Cnil);
2065          goto T574;}          goto T595;}
2066  goto T573;  goto T594;
2067  T573:;  T594:;
2068          base[4]= list(3,VV[51],V309,(V307));          base[4]= list(3,VV[54],V320,(V318));
2069          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2070          return;}          return;}
2071  }  }
# Line 2041  static void L23() Line 2077  static void L23()
2077          vs_reserve(VM23);          vs_reserve(VM23);
2078          check_arg(2);          check_arg(2);
2079          vs_top=sup;          vs_top=sup;
2080          {object V317=base[0]->c.c_cdr;          {object V328=base[0]->c.c_cdr;
2081          if(endp(V317))invalid_macro_call();          if(endp(V328))invalid_macro_call();
2082          base[2]= (V317->c.c_car);          base[2]= (V328->c.c_car);
2083          V317=V317->c.c_cdr;          V328=V328->c.c_cdr;
2084          if(endp(V317))invalid_macro_call();          if(endp(V328))invalid_macro_call();
2085          base[3]= (V317->c.c_car);          base[3]= (V328->c.c_car);
2086          V317=V317->c.c_cdr;          V328=V328->c.c_cdr;
2087          if(!endp(V317))invalid_macro_call();}          if(!endp(V328))invalid_macro_call();}
2088          {register object V318;          {register object V329;
2089          vs_base=vs_top;          vs_base=vs_top;
2090          Lgensym();          Lgensym();
2091          vs_top=sup;          vs_top=sup;
2092          V318= vs_base[0];          V329= vs_base[0];
2093          if(!(type_of(base[3])==t_symbol)){          if(!(type_of(base[3])==t_symbol)){
2094          goto T577;}          goto T598;}
2095          V319= list(2,(V318),base[2]);          V330= list(2,(V329),base[2]);
2096          V320= make_cons(/* INLINE-ARGS */V319,Cnil);          V331= make_cons(/* INLINE-ARGS */V330,Cnil);
2097          base[4]= list(3,VV[51],/* INLINE-ARGS */V320,list(3,VV[27],base[3],list(3,VV[88],(V318),base[3])));          base[4]= list(3,VV[54],/* INLINE-ARGS */V331,list(3,VV[27],base[3],list(3,VV[91],(V329),base[3])));
2098          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2099          return;          return;
2100  goto T577;  goto T598;
2101  T577:;  T598:;
2102          {object V321;          {object V332;
2103          object V322;          object V333;
2104          object V323;          object V334;
2105          object V324;          object V335;
2106          object V325;          object V336;
2107          base[4]= base[3];          base[4]= base[3];
2108          base[5]= base[1];          base[5]= base[1];
2109          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2110          (void) (*Lnk97)();          (void) (*Lnk100)();
2111          if(vs_base>=vs_top){vs_top=sup;goto T583;}          if(vs_base>=vs_top){vs_top=sup;goto T604;}
2112          V321= vs_base[0];          V332= vs_base[0];
2113          vs_base++;          vs_base++;
2114          if(vs_base>=vs_top){vs_top=sup;goto T584;}          if(vs_base>=vs_top){vs_top=sup;goto T605;}
2115          V322= vs_base[0];          V333= vs_base[0];
2116          vs_base++;          vs_base++;
2117          if(vs_base>=vs_top){vs_top=sup;goto T585;}          if(vs_base>=vs_top){vs_top=sup;goto T606;}
2118          V323= vs_base[0];          V334= vs_base[0];
2119          vs_base++;          vs_base++;
2120          if(vs_base>=vs_top){vs_top=sup;goto T586;}          if(vs_base>=vs_top){vs_top=sup;goto T607;}
2121          V324= vs_base[0];          V335= vs_base[0];
2122          vs_base++;          vs_base++;
2123          if(vs_base>=vs_top){vs_top=sup;goto T587;}          if(vs_base>=vs_top){vs_top=sup;goto T608;}
2124          V325= vs_base[0];          V336= vs_base[0];
2125          vs_top=sup;          vs_top=sup;
2126          goto T588;          goto T609;
2127  goto T583;  goto T604;
2128  T583:;  T604:;
2129          V321= Cnil;          V332= Cnil;
2130  goto T584;  goto T605;
2131  T584:;  T605:;
2132          V322= Cnil;          V333= Cnil;
2133  goto T585;  goto T606;
2134  T585:;  T606:;
2135          V323= Cnil;          V334= Cnil;
2136  goto T586;  goto T607;
2137  T586:;  T607:;
2138          V324= Cnil;          V335= Cnil;
2139  goto T587;  goto T608;
2140  T587:;  T608:;
2141          V325= Cnil;          V336= Cnil;
2142  goto T588;  goto T609;
2143  T588:;  T609:;
2144          base[5]= make_cons((V318),Cnil);          base[5]= make_cons((V329),Cnil);
2145          base[6]= (V321);          base[6]= (V332);
2146          base[7]= (V323);          base[7]= (V334);
2147          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2148          Lappend();          Lappend();
2149          vs_top=sup;          vs_top=sup;
2150          V330= vs_base[0];          V341= vs_base[0];
2151          base[5]= make_cons(base[2],Cnil);          base[5]= make_cons(base[2],Cnil);
2152          base[6]= (V322);          base[6]= (V333);
2153          V332= list(3,VV[88],(V318),(V325));          V343= list(3,VV[91],(V329),(V336));
2154          base[7]= make_cons(/* INLINE-ARGS */V332,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V343,Cnil);
2155          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2156          Lappend();          Lappend();
2157          vs_top=sup;          vs_top=sup;
2158          V331= vs_base[0];          V342= vs_base[0];
2159          {object V327;          {object V338;
2160          object V328= V330;          object V339= V341;
2161          object V329= V331;          object V340= V342;
2162          if(endp(V328)||endp(V329)){          if(endp(V339)||endp(V340)){
2163          V326= Cnil;          V337= Cnil;
2164          goto T589;}          goto T610;}
2165          base[4]=V327=MMcons(Cnil,Cnil);          base[4]=V338=MMcons(Cnil,Cnil);
2166  goto T590;  goto T611;
2167  T590:;  T611:;
2168          (V327->c.c_car)= list(2,(V328->c.c_car),(V329->c.c_car));          (V338->c.c_car)= list(2,(V339->c.c_car),(V340->c.c_car));
2169          V328=MMcdr(V328);          V339=MMcdr(V339);
2170          V329=MMcdr(V329);          V340=MMcdr(V340);
2171          if(endp(V328)||endp(V329)){          if(endp(V339)||endp(V340)){
2172          V326= base[4];          V337= base[4];
2173          goto T589;}          goto T610;}
2174          V327=MMcdr(V327)=MMcons(Cnil,Cnil);          V338=MMcdr(V338)=MMcons(Cnil,Cnil);
2175          goto T590;}          goto T611;}
2176  goto T589;  goto T610;
2177  T589:;  T610:;
2178          base[4]= list(3,VV[51],V326,(V324));          base[4]= list(3,VV[54],V337,(V335));
2179          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2180          return;}}          return;}}
2181  }  }
# Line 2151  static void L24() Line 2187  static void L24()
2187          vs_reserve(VM24);          vs_reserve(VM24);
2188          check_arg(2);          check_arg(2);
2189          vs_top=sup;          vs_top=sup;
2190          {object V333=base[0]->c.c_cdr;          {object V344=base[0]->c.c_cdr;
2191          if(endp(V333))invalid_macro_call();          if(endp(V344))invalid_macro_call();
2192          base[2]= (V333->c.c_car);          base[2]= (V344->c.c_car);
2193          V333=V333->c.c_cdr;          V344=V344->c.c_cdr;
2194          if(endp(V333))invalid_macro_call();          if(endp(V344))invalid_macro_call();
2195          base[3]= (V333->c.c_car);          base[3]= (V344->c.c_car);
2196          V333=V333->c.c_cdr;          V344=V344->c.c_cdr;
2197          base[4]= V333;}          base[4]= V344;}
2198          {register object V334;          {register object V345;
2199          vs_base=vs_top;          vs_base=vs_top;
2200          Lgensym();          Lgensym();
2201          vs_top=sup;          vs_top=sup;
2202          V334= vs_base[0];          V345= vs_base[0];
2203          if(!(type_of(base[3])==t_symbol)){          if(!(type_of(base[3])==t_symbol)){
2204          goto T601;}          goto T622;}
2205          V335= list(2,(V334),base[2]);          V346= list(2,(V345),base[2]);
2206          V336= make_cons(/* INLINE-ARGS */V335,Cnil);          V347= make_cons(/* INLINE-ARGS */V346,Cnil);
2207          base[5]= list(3,VV[51],/* INLINE-ARGS */V336,list(3,VV[27],base[3],listA(4,VV[89],(V334),base[3],base[4])));          base[5]= list(3,VV[54],/* INLINE-ARGS */V347,list(3,VV[27],base[3],listA(4,VV[92],(V345),base[3],base[4])));
2208          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2209          return;          return;
2210  goto T601;  goto T622;
2211  T601:;  T622:;
2212          {object V337;          {object V348;
2213          object V338;          object V349;
2214          object V339;          object V350;
2215          object V340;          object V351;
2216          object V341;          object V352;
2217          base[5]= base[3];          base[5]= base[3];
2218          base[6]= base[1];          base[6]= base[1];
2219          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2220          (void) (*Lnk97)();          (void) (*Lnk100)();
2221          if(vs_base>=vs_top){vs_top=sup;goto T607;}          if(vs_base>=vs_top){vs_top=sup;goto T628;}
2222          V337= vs_base[0];          V348= vs_base[0];
2223          vs_base++;          vs_base++;
2224          if(vs_base>=vs_top){vs_top=sup;goto T608;}          if(vs_base>=vs_top){vs_top=sup;goto T629;}
2225          V338= vs_base[0];          V349= vs_base[0];
2226          vs_base++;          vs_base++;
2227          if(vs_base>=vs_top){vs_top=sup;goto T609;}          if(vs_base>=vs_top){vs_top=sup;goto T630;}
2228          V339= vs_base[0];          V350= vs_base[0];
2229          vs_base++;          vs_base++;
2230          if(vs_base>=vs_top){vs_top=sup;goto T610;}          if(vs_base>=vs_top){vs_top=sup;goto T631;}
2231          V340= vs_base[0];          V351= vs_base[0];
2232          vs_base++;          vs_base++;
2233          if(vs_base>=vs_top){vs_top=sup;goto T611;}          if(vs_base>=vs_top){vs_top=sup;goto T632;}
2234          V341= vs_base[0];          V352= vs_base[0];
2235          vs_top=sup;          vs_top=sup;
2236          goto T612;          goto T633;
2237  goto T607;  goto T628;
2238  T607:;  T628:;
2239          V337= Cnil;          V348= Cnil;
2240  goto T608;  goto T629;
2241  T608:;  T629:;
2242          V338= Cnil;          V349= Cnil;
2243  goto T609;  goto T630;
2244  T609:;  T630:;
2245          V339= Cnil;          V350= Cnil;
2246  goto T610;  goto T631;
2247  T610:;  T631:;
2248          V340= Cnil;          V351= Cnil;
2249  goto T611;  goto T632;
2250  T611:;  T632:;
2251          V341= Cnil;          V352= Cnil;
2252  goto T612;  goto T633;
2253  T612:;  T633:;
2254          base[6]= make_cons((V334),Cnil);          base[6]= make_cons((V345),Cnil);
2255          base[7]= (V337);          base[7]= (V348);
2256          base[8]= (V339);          base[8]= (V350);
2257          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
2258          Lappend();          Lappend();
2259          vs_top=sup;          vs_top=sup;
2260          V346= vs_base[0];          V357= vs_base[0];
2261          base[6]= make_cons(base[2],Cnil);          base[6]= make_cons(base[2],Cnil);
2262          base[7]= (V338);          base[7]= (V349);
2263          V348= listA(4,VV[89],(V334),(V341),base[4]);          V359= listA(4,VV[92],(V345),(V352),base[4]);
2264          base[8]= make_cons(/* INLINE-ARGS */V348,Cnil);          base[8]= make_cons(/* INLINE-ARGS */V359,Cnil);
2265          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
2266          Lappend();          Lappend();
2267          vs_top=sup;          vs_top=sup;
2268          V347= vs_base[0];          V358= vs_base[0];
2269          {object V343;          {object V354;
2270          object V344= V346;          object V355= V357;
2271          object V345= V347;          object V356= V358;
2272          if(endp(V344)||endp(V345)){          if(endp(V355)||endp(V356)){
2273          V342= Cnil;          V353= Cnil;
2274          goto T613;}          goto T634;}
2275          base[5]=V343=MMcons(Cnil,Cnil);          base[5]=V354=MMcons(Cnil,Cnil);
2276  goto T614;  goto T635;
2277  T614:;  T635:;
2278          (V343->c.c_car)= list(2,(V344->c.c_car),(V345->c.c_car));          (V354->c.c_car)= list(2,(V355->c.c_car),(V356->c.c_car));
2279          V344=MMcdr(V344);          V355=MMcdr(V355);
2280          V345=MMcdr(V345);          V356=MMcdr(V356);
2281          if(endp(V344)||endp(V345)){          if(endp(V355)||endp(V356)){
2282          V342= base[5];          V353= base[5];
2283          goto T613;}          goto T634;}
2284          V343=MMcdr(V343)=MMcons(Cnil,Cnil);          V354=MMcdr(V354)=MMcons(Cnil,Cnil);
2285          goto T614;}          goto T635;}
2286  goto T613;  goto T634;
2287  T613:;  T634:;
2288          base[5]= list(3,VV[51],V342,(V340));          base[5]= list(3,VV[54],V353,(V351));
2289          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2290          return;}}          return;}}
2291  }  }
# Line 2261  static void L25() Line 2297  static void L25()
2297          vs_reserve(VM25);          vs_reserve(VM25);
2298          check_arg(2);          check_arg(2);
2299          vs_top=sup;          vs_top=sup;
2300          {object V349=base[0]->c.c_cdr;          {object V360=base[0]->c.c_cdr;
2301          if(endp(V349))invalid_macro_call();          if(endp(V360))invalid_macro_call();
2302          base[2]= (V349->c.c_car);          base[2]= (V360->c.c_car);
2303          V349=V349->c.c_cdr;          V360=V360->c.c_cdr;
2304          if(!endp(V349))invalid_macro_call();}          if(!endp(V360))invalid_macro_call();}
2305          if(!(type_of(base[2])==t_symbol)){          if(!(type_of(base[2])==t_symbol)){
2306          goto T624;}          goto T645;}
2307          {object V350;          {object V361;
2308          vs_base=vs_top;          vs_base=vs_top;
2309          Lgensym();          Lgensym();
2310          vs_top=sup;          vs_top=sup;
2311          V350= vs_base[0];          V361= vs_base[0];
2312          V351= list(2,(V350),list(2,VV[90],base[2]));          V362= list(2,(V361),list(2,VV[93],base[2]));
2313          V352= make_cons(/* INLINE-ARGS */V351,Cnil);          V363= make_cons(/* INLINE-ARGS */V362,Cnil);
2314          base[3]= list(4,VV[36],/* INLINE-ARGS */V352,list(3,VV[27],base[2],list(2,VV[91],base[2])),(V350));          base[3]= list(4,VV[36],/* INLINE-ARGS */V363,list(3,VV[27],base[2],list(2,VV[94],base[2])),(V361));
2315          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2316          return;}          return;}
2317  goto T624;  goto T645;
2318  T624:;  T645:;
2319          {object V353;          {object V364;
2320          object V354;          object V365;
2321          object V355;          object V366;
2322          object V356;          object V367;
2323          object V357;          object V368;
2324          base[3]= base[2];          base[3]= base[2];
2325          base[4]= base[1];          base[4]= base[1];
2326          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2327          (void) (*Lnk97)();          (void) (*Lnk100)();
2328          if(vs_base>=vs_top){vs_top=sup;goto T631;}          if(vs_base>=vs_top){vs_top=sup;goto T652;}
2329          V353= vs_base[0];          V364= vs_base[0];
2330          vs_base++;          vs_base++;
2331          if(vs_base>=vs_top){vs_top=sup;goto T632;}          if(vs_base>=vs_top){vs_top=sup;goto T653;}
2332          V354= vs_base[0];          V365= vs_base[0];
2333          vs_base++;          vs_base++;
2334          if(vs_base>=vs_top){vs_top=sup;goto T633;}          if(vs_base>=vs_top){vs_top=sup;goto T654;}
2335          V355= vs_base[0];          V366= vs_base[0];
2336          vs_base++;          vs_base++;
2337          if(vs_base>=vs_top){vs_top=sup;goto T634;}          if(vs_base>=vs_top){vs_top=sup;goto T655;}
2338          V356= vs_base[0];          V367= vs_base[0];
2339          vs_base++;          vs_base++;
2340          if(vs_base>=vs_top){vs_top=sup;goto T635;}          if(vs_base>=vs_top){vs_top=sup;goto T656;}
2341          V357= vs_base[0];          V368= vs_base[0];
2342          vs_top=sup;          vs_top=sup;
2343          goto T636;          goto T657;
2344  goto T631;  goto T652;
2345  T631:;  T652:;
2346          V353= Cnil;          V364= Cnil;
2347  goto T632;  goto T653;
2348  T632:;  T653:;
2349          V354= Cnil;          V365= Cnil;
2350  goto T633;  goto T654;
2351  T633:;  T654:;
2352          V355= Cnil;          V366= Cnil;
2353  goto T634;  goto T655;
2354  T634:;  T655:;
2355          V356= Cnil;          V367= Cnil;
2356  goto T635;  goto T656;
2357  T635:;  T656:;
2358          V357= Cnil;          V368= Cnil;
2359  goto T636;  goto T657;
2360  T636:;  T657:;
2361          V362= append((V353),(V355));          V373= append((V364),(V366));
2362          V363= list(2,VV[91],(V357));          V374= list(2,VV[94],(V368));
2363          V364= make_cons(/* INLINE-ARGS */V363,Cnil);          V375= make_cons(/* INLINE-ARGS */V374,Cnil);
2364          V365= append((V354),/* INLINE-ARGS */V364);          V376= append((V365),/* INLINE-ARGS */V375);
2365          {object V359;          {object V370;
2366          object V360= /* INLINE-ARGS */V362;          object V371= /* INLINE-ARGS */V373;
2367          object V361= /* INLINE-ARGS */V365;          object V372= /* INLINE-ARGS */V376;
2368          if(endp(V360)||endp(V361)){          if(endp(V371)||endp(V372)){
2369          V358= Cnil;          V369= Cnil;
2370          goto T637;}          goto T658;}
2371          base[3]=V359=MMcons(Cnil,Cnil);          base[3]=V370=MMcons(Cnil,Cnil);
2372  goto T638;  goto T659;
2373  T638:;  T659:;
2374          (V359->c.c_car)= list(2,(V360->c.c_car),(V361->c.c_car));          (V370->c.c_car)= list(2,(V371->c.c_car),(V372->c.c_car));
2375          V360=MMcdr(V360);          V371=MMcdr(V371);
2376          V361=MMcdr(V361);          V372=MMcdr(V372);
2377          if(endp(V360)||endp(V361)){          if(endp(V371)||endp(V372)){
2378          V358= base[3];          V369= base[3];
2379          goto T637;}          goto T658;}
2380          V359=MMcdr(V359)=MMcons(Cnil,Cnil);          V370=MMcdr(V370)=MMcons(Cnil,Cnil);
2381          goto T638;}          goto T659;}
2382  goto T637;  goto T658;
2383  T637:;  T658:;
2384          base[3]= list(3,VV[51],V358,list(3,VV[92],list(2,VV[90],(V357)),(V356)));          base[3]= list(3,VV[54],V369,list(3,VV[95],list(2,VV[93],(V368)),(V367)));
2385          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2386          return;}          return;}
2387  }  }
2388  static object  LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[100],(void **)&LnkLI100,2,ap);va_end(ap);return V1;} /* SETF-EXPAND */  static object  LnkTLI103(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[103],(void **)&LnkLI103,2,ap);va_end(ap);return V1;} /* SETF-EXPAND */
2389  static object  LnkTLI99(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[99],(void **)&LnkLI99,3,ap);va_end(ap);return V1;} /* SETF-EXPAND-1 */  static object  LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[102],(void **)&LnkLI102,3,ap);va_end(ap);return V1;} /* SETF-EXPAND-1 */
2390  static void LnkT97(){ call_or_link(VV[97],(void **)&Lnk97);} /* GET-SETF-METHOD */  static void LnkT100(){ call_or_link(VV[100],(void **)&Lnk100);} /* GET-SETF-METHOD */
2391  static object  LnkTLI96(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[96],(void **)&LnkLI96,4,ap);va_end(ap);return V1;} /* SETF-STRUCTURE-ACCESS */  static object  LnkTLI99(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[99],(void **)&LnkLI99,4,ap);va_end(ap);return V1;} /* SETF-STRUCTURE-ACCESS */
2392  static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* GET-SETF-METHOD-MULTIPLE-VALUE */  static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* GET-SETF-METHOD-MULTIPLE-VALUE */
2393  static void LnkT94(){ call_or_link(VV[94],(void **)&Lnk94);} /* GET-&ENVIRONMENT */  static void LnkT97(){ call_or_link(VV[97],(void **)&Lnk97);} /* GET-&ENVIRONMENT */
2394  static object  LnkTLI93(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[93],(void **)&LnkLI93,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */  static object  LnkTLI96(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[96],(void **)&LnkLI96,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
2395    
2396  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2397  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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