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; |
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++; |
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; |
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++; |
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:; |
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:; |
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:; |
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++; |
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++; |
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++; |
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++; |
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++; |
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++; |
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:; |
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; |
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 |
} |
} |
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 |
|
|
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 |
|
|
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 |
|
|
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 |
} |
} |
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 |
} |
} |
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 |
} |
} |
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 |
} |
} |
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 |
} |
} |
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 |
} |
} |
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 |