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

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

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