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