1081 |
T539:; |
T539:; |
1082 |
if(!(type_of(car((V163)))==t_fixnum)){ |
if(!(type_of(car((V163)))==t_fixnum)){ |
1083 |
goto T545;} |
goto T545;} |
1084 |
V160= make_cons(car((V163)),(V160)); |
{object V164; |
1085 |
goto T543; |
V164= car((V163)); |
1086 |
|
V160= make_cons((V164),(V160)); |
1087 |
|
goto T543;} |
1088 |
goto T545; |
goto T545; |
1089 |
T545:; |
T545:; |
1090 |
if(!(type_of(car((V163)))==t_cons)){ |
if(!(type_of(car((V163)))==t_cons)){ |
1091 |
goto T549;} |
goto T550;} |
1092 |
{register object V164; |
{register object V165; |
1093 |
register object V165; |
register object V166; |
1094 |
V164= car((V163)); |
V165= car((V163)); |
1095 |
V165= car((V164)); |
V166= car((V165)); |
|
goto T554; |
|
|
T554:; |
|
|
if(!(endp_prop((V164)))){ |
|
|
goto T555;} |
|
|
goto T543; |
|
1096 |
goto T555; |
goto T555; |
1097 |
T555:; |
T555:; |
1098 |
V160= make_cons((V165),(V160)); |
if(!(endp_prop((V165)))){ |
1099 |
V164= cdr((V164)); |
goto T556;} |
1100 |
V165= car((V164)); |
goto T543; |
1101 |
goto T554;} |
goto T556; |
1102 |
goto T549; |
T556:; |
1103 |
T549:; |
V160= make_cons(V166,(V160)); |
1104 |
{register object x= car((V163)),V166= VV[26]; |
V165= cdr((V165)); |
1105 |
while(!endp(V166)) |
V166= car((V165)); |
1106 |
if(eql(x,V166->c.c_car)){ |
goto T555;} |
1107 |
goto T567; |
goto T550; |
1108 |
}else V166=V166->c.c_cdr; |
T550:; |
1109 |
|
{register object x= car((V163)),V168= VV[26]; |
1110 |
|
while(!endp(V168)) |
1111 |
|
if(eql(x,V168->c.c_car)){ |
1112 |
|
goto T568; |
1113 |
|
}else V168=V168->c.c_cdr; |
1114 |
goto T543;} |
goto T543;} |
1115 |
goto T567; |
goto T568; |
1116 |
T567:; |
T568:; |
1117 |
if((V158)==Cnil){ |
if((V158)==Cnil){ |
1118 |
goto T568;} |
goto T569;} |
1119 |
base[2]= VV[27]; |
base[2]= VV[27]; |
1120 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1121 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
1122 |
vs_top=sup; |
vs_top=sup; |
1123 |
goto T568; |
goto T569; |
1124 |
T568:; |
T569:; |
1125 |
V160= make_cons(Ct,(V160)); |
V160= make_cons(Ct,(V160)); |
1126 |
goto T543; |
goto T543; |
1127 |
T543:; |
T543:; |
1128 |
V167= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163)))); |
{object V170; |
1129 |
V160= make_cons(/* INLINE-ARGS */V167,(V160)); |
V170= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163)))); |
1130 |
|
V160= make_cons((V170),(V160));} |
1131 |
V162= cdr((V162)); |
V162= cdr((V162)); |
1132 |
V163= car((V162)); |
V163= car((V162)); |
1133 |
goto T538;} |
goto T538;} |
1134 |
goto T534; |
goto T534; |
1135 |
T534:; |
T534:; |
1136 |
if(((V158))==Cnil){ |
if(((V158))==Cnil){ |
1137 |
goto T578;} |
goto T580;} |
1138 |
V160= make_cons(Ct,(V160)); |
V160= make_cons(Ct,(V160)); |
1139 |
{register object V168; |
{register object V172; |
1140 |
object V169; |
object V173; |
1141 |
V168= cdr((V157)); |
V172= cdr((V157)); |
1142 |
V169= car((V168)); |
V173= car((V172)); |
1143 |
goto T587; |
goto T589; |
1144 |
T587:; |
T589:; |
1145 |
if(!(endp_prop((V168)))){ |
if(!(endp_prop((V172)))){ |
1146 |
goto T588;} |
goto T590;} |
1147 |
goto T583; |
goto T585; |
1148 |
goto T588; |
goto T590; |
1149 |
T588:; |
T590:; |
1150 |
if(!(type_of(car((V169)))!=t_cons)){ |
if(!(type_of(car((V173)))!=t_cons)){ |
1151 |
|
goto T596;} |
1152 |
|
{object V174; |
1153 |
|
V174= car((V173)); |
1154 |
|
V161= make_cons((V174),(V161)); |
1155 |
goto T594;} |
goto T594;} |
1156 |
V161= make_cons(car((V169)),(V161)); |
goto T596; |
1157 |
goto T592; |
T596:; |
1158 |
|
V161= append(car((V173)),(V161)); |
1159 |
goto T594; |
goto T594; |
1160 |
T594:; |
T594:; |
1161 |
V161= append(car((V169)),(V161)); |
V172= cdr((V172)); |
1162 |
goto T592; |
V173= car((V172)); |
1163 |
T592:; |
goto T589;} |
1164 |
V168= cdr((V168)); |
goto T585; |
1165 |
V169= car((V168)); |
T585:; |
1166 |
goto T587;} |
{object V175; |
1167 |
goto T583; |
V176= car((V157)); |
1168 |
T583:; |
V175= list(4,VV[30],VV[31],/* INLINE-ARGS */V176,list(2,VV[32],(V161))); |
1169 |
V170= car((V157)); |
V160= make_cons((V175),(V160));} |
1170 |
V171= list(4,VV[30],VV[31],/* INLINE-ARGS */V170,list(2,VV[32],(V161))); |
goto T580; |
1171 |
V160= make_cons(/* INLINE-ARGS */V171,(V160)); |
T580:; |
1172 |
goto T578; |
V177= car((V157)); |
1173 |
T578:; |
{object V178 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V177,nreverse((V160)))); |
1174 |
V172= car((V157)); |
VMR14(V178)}} |
|
{object V173 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V172,nreverse((V160)))); |
|
|
VMR14(V173)}} |
|
1175 |
base[0]=base[0]; |
base[0]=base[0]; |
1176 |
return Cnil; |
return Cnil; |
1177 |
} |
} |
1178 |
/* local entry for function C1CASE */ |
/* local entry for function C1CASE */ |
1179 |
|
|
1180 |
static object LI15(V174,va_alist) |
static object LI15(V179,va_alist) |
1181 |
object V174; |
object V179; |
1182 |
va_dcl |
va_dcl |
1183 |
{ |
{ |
1184 |
va_list ap; |
va_list ap; |
1185 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
1186 |
{object V175; |
{object V180; |
1187 |
register object V176; |
register object V181; |
1188 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1189 |
va_start(ap); |
va_start(ap); |
1190 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1191 |
V175= V174; |
V180= V179; |
1192 |
narg = narg - 1; |
narg = narg - 1; |
1193 |
if (narg <= 0) goto T604; |
if (narg <= 0) goto T608; |
1194 |
else { |
else { |
1195 |
V176= va_arg(ap,object);} |
V181= va_arg(ap,object);} |
1196 |
--narg; goto T605; |
--narg; goto T609; |
1197 |
goto T604; |
goto T608; |
1198 |
T604:; |
T608:; |
1199 |
V176= Cnil; |
V181= Cnil; |
1200 |
goto T605; |
goto T609; |
1201 |
T605:; |
T609:; |
1202 |
if(!(endp_prop((V175)))){ |
if(!(endp_prop((V180)))){ |
1203 |
goto T607;} |
goto T611;} |
1204 |
(void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0))); |
1205 |
goto T607; |
goto T611; |
1206 |
T607:; |
T611:; |
1207 |
{register object V177; |
{register object V182; |
1208 |
object V178; |
object V183; |
1209 |
object V179; |
object V184; |
1210 |
V177= (VFUN_NARGS=0,(*(LnkLI48))()); |
V182= (VFUN_NARGS=0,(*(LnkLI48))()); |
1211 |
V178= (*(LnkLI50))(car((V175)),(V177)); |
V183= (*(LnkLI50))(car((V180)),(V182)); |
1212 |
V179= Cnil; |
V184= Cnil; |
1213 |
base[2]= structure_ref(cadr((V178)),VV[36],2); |
base[2]= structure_ref(cadr((V183)),VV[36],2); |
1214 |
base[3]= VV[37]; |
base[3]= VV[37]; |
1215 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1216 |
(void) (*Lnk67)(); |
(void) (*Lnk67)(); |
1217 |
vs_top=sup; |
vs_top=sup; |
1218 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1219 |
goto T613;} |
goto T617;} |
1220 |
V180= (*(LnkLI68))((V175),(V176)); |
V185= (*(LnkLI68))((V180),(V181)); |
1221 |
{object V181 = (*(LnkLI46))(/* INLINE-ARGS */V180); |
{object V186 = (*(LnkLI46))(/* INLINE-ARGS */V185); |
1222 |
VMR15(V181)} |
VMR15(V186)} |
1223 |
goto T613; |
goto T617; |
1224 |
T613:; |
T617:; |
1225 |
{register object V182; |
{register object V187; |
1226 |
register object V183; |
register object V188; |
1227 |
V182= cdr((V175)); |
V187= cdr((V180)); |
1228 |
V183= car((V182)); |
V188= car((V187)); |
1229 |
goto T622; |
goto T626; |
1230 |
T622:; |
T626:; |
1231 |
if(!(endp_prop((V182)))){ |
if(!(endp_prop((V187)))){ |
|
goto T623;} |
|
|
goto T618; |
|
|
goto T623; |
|
|
T623:; |
|
|
if(!(endp_prop((V183)))){ |
|
1232 |
goto T627;} |
goto T627;} |
1233 |
(void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V183)))); |
goto T622; |
1234 |
goto T627; |
goto T627; |
1235 |
T627:; |
T627:; |
1236 |
{object V184= car((V183)); |
if(!(endp_prop((V188)))){ |
1237 |
if((V184!= Cnil))goto T631; |
goto T631;} |
1238 |
goto T630; |
(void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V188)))); |
1239 |
goto T631; |
goto T631; |
1240 |
T631:; |
T631:; |
1241 |
if((V184!= Ct) |
{object V189= car((V188)); |
1242 |
&& (V184!= VV[70]))goto T632; |
if((V189!= Cnil))goto T635; |
1243 |
if(((V176))==Cnil){ |
goto T634; |
1244 |
goto T633;} |
goto T635; |
1245 |
if(!(((V176))==(Ct))){ |
T635:; |
1246 |
goto T638;} |
if((V189!= Ct) |
1247 |
V185= VV[39]; |
&& (V189!= VV[70]))goto T636; |
1248 |
goto T636; |
if(((V181))==Cnil){ |
1249 |
goto T638; |
goto T637;} |
1250 |
T638:; |
if(!(((V181))==(Ct))){ |
1251 |
V185= VV[40]; |
goto T642;} |
1252 |
|
V190= VV[39]; |
1253 |
|
goto T640; |
1254 |
|
goto T642; |
1255 |
|
T642:; |
1256 |
|
V190= VV[40]; |
1257 |
|
goto T640; |
1258 |
|
T640:; |
1259 |
|
(void)((VFUN_NARGS=1,(*(LnkLI69))(V190))); |
1260 |
|
goto T637; |
1261 |
|
T637:; |
1262 |
|
V181= (*(LnkLI71))(cdr((V188))); |
1263 |
|
(void)((*(LnkLI72))((V182),cadr((V181)))); |
1264 |
|
goto T634; |
1265 |
goto T636; |
goto T636; |
1266 |
T636:; |
T636:; |
1267 |
(void)((VFUN_NARGS=1,(*(LnkLI69))(V185))); |
{object V191; |
1268 |
goto T633; |
register object V192; |
1269 |
T633:; |
if(!(type_of(car((V188)))==t_cons)){ |
1270 |
V176= (*(LnkLI71))(cdr((V183))); |
goto T648;} |
1271 |
(void)((*(LnkLI72))((V177),cadr((V176)))); |
{object V193; |
1272 |
goto T630; |
object V194= car((V188)); |
1273 |
goto T632; |
if(endp(V194)){ |
1274 |
T632:; |
V191= Cnil; |
1275 |
{object V186; |
goto T646;} |
1276 |
register object V187; |
base[6]=V193=MMcons(Cnil,Cnil); |
1277 |
if(!(type_of(car((V183)))==t_cons)){ |
goto T650; |
1278 |
goto T644;} |
T650:; |
1279 |
{object V188; |
{register object V195; |
1280 |
object V189= car((V183)); |
V195= (V194->c.c_car); |
1281 |
if(endp(V189)){ |
if(!(type_of((V195))==t_symbol)){ |
1282 |
V186= Cnil; |
goto T653;} |
1283 |
goto T642;} |
(V193->c.c_car)= (V195); |
1284 |
base[6]=V188=MMcons(Cnil,Cnil); |
goto T651; |
1285 |
|
goto T653; |
1286 |
|
T653:; |
1287 |
|
(V193->c.c_car)= (*(LnkLI73))((V195));} |
1288 |
|
goto T651; |
1289 |
|
T651:; |
1290 |
|
V194=MMcdr(V194); |
1291 |
|
if(endp(V194)){ |
1292 |
|
V191= base[6]; |
1293 |
|
goto T646;} |
1294 |
|
V193=MMcdr(V193)=MMcons(Cnil,Cnil); |
1295 |
|
goto T650;} |
1296 |
|
goto T648; |
1297 |
|
T648:; |
1298 |
|
if(!(type_of(car((V188)))==t_symbol)){ |
1299 |
|
goto T656;} |
1300 |
|
V191= make_cons(car((V188)),Cnil); |
1301 |
|
goto T646; |
1302 |
|
goto T656; |
1303 |
|
T656:; |
1304 |
|
V196= (*(LnkLI73))(car((V188))); |
1305 |
|
V191= make_cons(/* INLINE-ARGS */V196,Cnil); |
1306 |
goto T646; |
goto T646; |
1307 |
T646:; |
T646:; |
1308 |
{register object V190; |
V192= (*(LnkLI71))(cdr((V188))); |
1309 |
V190= (V189->c.c_car); |
(void)((*(LnkLI72))((V182),cadr((V192)))); |
1310 |
if(!(type_of((V190))==t_symbol)){ |
{object V197; |
1311 |
goto T649;} |
V197= make_cons((V191),(V192)); |
1312 |
(V188->c.c_car)= (V190); |
V184= make_cons((V197),(V184));}}} |
1313 |
goto T647; |
goto T634; |
1314 |
goto T649; |
T634:; |
1315 |
T649:; |
V187= cdr((V187)); |
1316 |
(V188->c.c_car)= (*(LnkLI73))((V190));} |
V188= car((V187)); |
1317 |
goto T647; |
goto T626;} |
1318 |
T647:; |
goto T622; |
1319 |
V189=MMcdr(V189); |
T622:; |
1320 |
if(endp(V189)){ |
V198= reverse((V184)); |
1321 |
V186= base[6]; |
if((V181)!=Cnil){ |
1322 |
goto T642;} |
V199= (V181); |
1323 |
V188=MMcdr(V188)=MMcons(Cnil,Cnil); |
goto T667;} |
1324 |
goto T646;} |
V199= (*(LnkLI47))(); |
1325 |
goto T644; |
goto T667; |
1326 |
T644:; |
T667:; |
1327 |
if(!(type_of(car((V183)))==t_symbol)){ |
{object V200 = list(5,VV[35],(V182),(V183),/* INLINE-ARGS */V198,V199); |
1328 |
goto T652;} |
VMR15(V200)}} |
|
V186= make_cons(car((V183)),Cnil); |
|
|
goto T642; |
|
|
goto T652; |
|
|
T652:; |
|
|
V191= (*(LnkLI73))(car((V183))); |
|
|
V186= make_cons(/* INLINE-ARGS */V191,Cnil); |
|
|
goto T642; |
|
|
T642:; |
|
|
V187= (*(LnkLI71))(cdr((V183))); |
|
|
(void)((*(LnkLI72))((V177),cadr((V187)))); |
|
|
V192= make_cons((V186),(V187)); |
|
|
V179= make_cons(/* INLINE-ARGS */V192,(V179));}} |
|
|
goto T630; |
|
|
T630:; |
|
|
V182= cdr((V182)); |
|
|
V183= car((V182)); |
|
|
goto T622;} |
|
|
goto T618; |
|
|
T618:; |
|
|
V193= reverse((V179)); |
|
|
if((V176)!=Cnil){ |
|
|
V194= (V176); |
|
|
goto T662;} |
|
|
V194= (*(LnkLI47))(); |
|
|
goto T662; |
|
|
T662:; |
|
|
{object V195 = list(5,VV[35],(V177),(V178),/* INLINE-ARGS */V193,V194); |
|
|
VMR15(V195)}} |
|
1329 |
va_end(ap); |
va_end(ap); |
1330 |
base[0]=base[0]; |
base[0]=base[0]; |
1331 |
return Cnil;} |
return Cnil;} |
1332 |
} |
} |
1333 |
/* local entry for function C2CASE */ |
/* local entry for function C2CASE */ |
1334 |
|
|
1335 |
static object LI16(V199,V200,V201) |
static object LI16(V204,V205,V206) |
1336 |
|
|
1337 |
object V199;object V200;object V201; |
object V204;object V205;object V206; |
1338 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1339 |
bds_check; |
bds_check; |
1340 |
goto TTL; |
goto TTL; |
1341 |
TTL:; |
TTL:; |
1342 |
{register object V202; |
{register object V207; |
1343 |
setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1))); |
setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1))); |
1344 |
V202= symbol_value(VV[41]); |
V207= symbol_value(VV[41]); |
1345 |
bds_bind(VV[21],symbol_value(VV[21])); |
bds_bind(VV[21],symbol_value(VV[21])); |
1346 |
bds_bind(VV[24],small_fixnum(0)); |
bds_bind(VV[24],small_fixnum(0)); |
1347 |
V203= make_cons((V199),Cnil); |
V208= make_cons((V204),Cnil); |
1348 |
V204= (VFUN_NARGS=2,(*(LnkLI74))(/* INLINE-ARGS */V203,VV[42])); |
V209= (VFUN_NARGS=2,(*(LnkLI74))(/* INLINE-ARGS */V208,VV[42])); |
1349 |
V199= car(/* INLINE-ARGS */V204); |
V204= car(/* INLINE-ARGS */V209); |
1350 |
princ_str("\n {object V",VV[16]); |
princ_str("\n {object V",VV[16]); |
1351 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V207))); |
1352 |
princ_str("= ",VV[16]); |
princ_str("= ",VV[16]); |
1353 |
(void)((*(LnkLI54))((V199))); |
(void)((*(LnkLI54))((V204))); |
1354 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1355 |
{object V205; |
{object V210; |
1356 |
object V206; |
object V211; |
1357 |
V205= (V200); |
V210= (V205); |
1358 |
V206= car((V205)); |
V211= car((V210)); |
1359 |
goto T677; |
goto T682; |
1360 |
T677:; |
T682:; |
1361 |
if(!(endp_prop((V205)))){ |
if(!(endp_prop((V210)))){ |
1362 |
goto T678;} |
goto T683;} |
1363 |
goto T673; |
goto T678; |
1364 |
goto T678; |
goto T683; |
1365 |
T678:; |
T683:; |
1366 |
{object V207; |
{object V212; |
1367 |
register object V208; |
register object V213; |
1368 |
register object V209; |
register object V214; |
|
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
|
|
V207= make_cons(symbol_value(VV[9]),Cnil); |
|
|
V208= car((V206)); |
|
|
V209= Cnil; |
|
|
goto T689; |
|
|
T689:; |
|
|
if(!(((long)length((V208)))<=(5))){ |
|
|
goto T690;} |
|
|
goto T687; |
|
|
goto T690; |
|
|
T690:; |
|
|
if(((V209))!=Cnil){ |
|
|
goto T694;} |
|
1369 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
1370 |
V209= make_cons(symbol_value(VV[9]),Cnil); |
V212= make_cons(symbol_value(VV[9]),Cnil); |
1371 |
|
V213= car((V211)); |
1372 |
|
V214= Cnil; |
1373 |
goto T694; |
goto T694; |
1374 |
T694:; |
T694:; |
1375 |
|
if(!(((long)length((V213)))<=(5))){ |
1376 |
|
goto T695;} |
1377 |
|
goto T692; |
1378 |
|
goto T695; |
1379 |
|
T695:; |
1380 |
|
if(((V214))!=Cnil){ |
1381 |
|
goto T699;} |
1382 |
|
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
1383 |
|
V214= make_cons(symbol_value(VV[9]),Cnil); |
1384 |
|
goto T699; |
1385 |
|
T699:; |
1386 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
1387 |
{register object V211; |
{register object V216; |
1388 |
V211= small_fixnum(0); |
V216= small_fixnum(0); |
1389 |
goto T704; |
goto T709; |
1390 |
T704:; |
T709:; |
1391 |
if(!(number_compare((V211),small_fixnum(5))>=0)){ |
if(!(number_compare((V216),small_fixnum(5))>=0)){ |
1392 |
goto T705;} |
goto T710;} |
1393 |
goto T701; |
goto T706; |
1394 |
goto T705; |
goto T710; |
1395 |
T705:; |
T710:; |
1396 |
if(!(type_of(car((V208)))==t_symbol)){ |
if(!(type_of(car((V213)))==t_symbol)){ |
1397 |
goto T711;} |
goto T716;} |
1398 |
princ_str("(V",VV[16]); |
princ_str("(V",VV[16]); |
1399 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V207))); |
1400 |
princ_str("== ",VV[16]); |
princ_str("== ",VV[16]); |
1401 |
{object V212= car((V208)); |
{object V217= car((V213)); |
1402 |
if((V212!= Ct))goto T718; |
if((V217!= Ct))goto T723; |
1403 |
princ_str("Ct",VV[16]); |
princ_str("Ct",VV[16]); |
1404 |
goto T717; |
goto T722; |
1405 |
goto T718; |
goto T723; |
1406 |
T718:; |
T723:; |
1407 |
if((V212!= Cnil))goto T720; |
if((V217!= Cnil))goto T725; |
1408 |
princ_str("Cnil",VV[16]); |
princ_str("Cnil",VV[16]); |
1409 |
goto T717; |
goto T722; |
1410 |
goto T720; |
goto T725; |
1411 |
T720:; |
T725:; |
1412 |
princ_str("VV[",VV[16]); |
princ_str("VV[",VV[16]); |
1413 |
V213= (*(LnkLI75))(car((V208))); |
V218= (*(LnkLI75))(car((V213))); |
1414 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V213)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V218)); |
1415 |
princ_char(93,VV[16]);} |
princ_char(93,VV[16]);} |
1416 |
goto T717; |
goto T722; |
1417 |
T717:; |
T722:; |
1418 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1419 |
goto T709; |
goto T714; |
1420 |
goto T711; |
goto T716; |
1421 |
T711:; |
T716:; |
1422 |
princ_str("eql(V",VV[16]); |
princ_str("eql(V",VV[16]); |
1423 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V207))); |
1424 |
princ_str(",VV[",VV[16]); |
princ_str(",VV[",VV[16]); |
1425 |
(void)((*(LnkLI54))(car((V208)))); |
(void)((*(LnkLI54))(car((V213)))); |
1426 |
princ_str("])",VV[16]); |
princ_str("])",VV[16]); |
1427 |
goto T709; |
goto T714; |
1428 |
T709:; |
T714:; |
1429 |
if(!(number_compare((V211),small_fixnum(4))<0)){ |
if(!(number_compare((V216),small_fixnum(4))<0)){ |
1430 |
goto T731;} |
goto T736;} |
1431 |
princ_str("\n || ",VV[16]); |
princ_str("\n || ",VV[16]); |
1432 |
goto T731; |
goto T736; |
1433 |
T731:; |
T736:; |
1434 |
{object V214; |
{object V219; |
1435 |
V214= car((V208)); |
V219= car((V213)); |
1436 |
V208= cdr((V208));} |
V213= cdr((V213));} |
1437 |
V211= one_plus((V211)); |
V216= one_plus((V216)); |
1438 |
goto T704;} |
goto T709;} |
1439 |
goto T701; |
goto T706; |
1440 |
T701:; |
T706:; |
1441 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1442 |
if(type_of((V209))!=t_cons)FEwrong_type_argument(Scons,(V209)); |
if(type_of((V214))!=t_cons)FEwrong_type_argument(Scons,(V214)); |
1443 |
((V209))->c.c_cdr = Ct; |
((V214))->c.c_cdr = Ct; |
1444 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
1445 |
(void)((*(LnkLI54))(car((V209)))); |
(void)((*(LnkLI54))(car((V214)))); |
1446 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1447 |
goto T689; |
goto T694; |
1448 |
goto T687; |
goto T692; |
1449 |
T687:; |
T692:; |
1450 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
1451 |
goto T755; |
goto T760; |
1452 |
T755:; |
T760:; |
1453 |
if(!(endp_prop((V208)))){ |
if(!(endp_prop((V213)))){ |
1454 |
goto T756;} |
goto T761;} |
1455 |
goto T753; |
goto T758; |
1456 |
goto T756; |
goto T761; |
1457 |
T756:; |
T761:; |
1458 |
if(!(type_of(car((V208)))==t_symbol)){ |
if(!(type_of(car((V213)))==t_symbol)){ |
1459 |
goto T762;} |
goto T767;} |
1460 |
princ_str("(V",VV[16]); |
princ_str("(V",VV[16]); |
1461 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V207))); |
1462 |
princ_str("!= ",VV[16]); |
princ_str("!= ",VV[16]); |
1463 |
{object V215= car((V208)); |
{object V220= car((V213)); |
1464 |
if((V215!= Ct))goto T769; |
if((V220!= Ct))goto T774; |
1465 |
princ_str("Ct",VV[16]); |
princ_str("Ct",VV[16]); |
1466 |
goto T768; |
goto T773; |
1467 |
goto T769; |
goto T774; |
1468 |
T769:; |
T774:; |
1469 |
if((V215!= Cnil))goto T771; |
if((V220!= Cnil))goto T776; |
1470 |
princ_str("Cnil",VV[16]); |
princ_str("Cnil",VV[16]); |
1471 |
goto T768; |
goto T773; |
1472 |
goto T771; |
goto T776; |
1473 |
T771:; |
T776:; |
1474 |
princ_str("VV[",VV[16]); |
princ_str("VV[",VV[16]); |
1475 |
V216= (*(LnkLI75))(car((V208))); |
V221= (*(LnkLI75))(car((V213))); |
1476 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V216)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V221)); |
1477 |
princ_char(93,VV[16]);} |
princ_char(93,VV[16]);} |
1478 |
goto T768; |
goto T773; |
1479 |
T768:; |
T773:; |
1480 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1481 |
goto T760; |
goto T765; |
1482 |
goto T762; |
goto T767; |
1483 |
T762:; |
T767:; |
1484 |
princ_str("!eql(V",VV[16]); |
princ_str("!eql(V",VV[16]); |
1485 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V207))); |
1486 |
princ_str(",VV[",VV[16]); |
princ_str(",VV[",VV[16]); |
1487 |
(void)((*(LnkLI54))(car((V208)))); |
(void)((*(LnkLI54))(car((V213)))); |
1488 |
princ_str("])",VV[16]); |
princ_str("])",VV[16]); |
1489 |
goto T760; |
goto T765; |
1490 |
T760:; |
T765:; |
1491 |
if(endp_prop(cdr((V208)))){ |
if(endp_prop(cdr((V213)))){ |
1492 |
goto T782;} |
goto T787;} |
1493 |
princ_str("\n && ",VV[16]); |
princ_str("\n && ",VV[16]); |
1494 |
goto T782; |
goto T787; |
1495 |
T782:; |
T787:; |
1496 |
{object V217; |
{object V222; |
1497 |
V217= car((V208)); |
V222= car((V213)); |
1498 |
V208= cdr((V208));} |
V213= cdr((V213));} |
1499 |
goto T755; |
goto T760; |
1500 |
goto T753; |
goto T758; |
1501 |
T753:; |
T758:; |
1502 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1503 |
if(type_of((V207))!=t_cons)FEwrong_type_argument(Scons,(V207)); |
if(type_of((V212))!=t_cons)FEwrong_type_argument(Scons,(V212)); |
1504 |
((V207))->c.c_cdr = Ct; |
((V212))->c.c_cdr = Ct; |
1505 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
1506 |
(void)((*(LnkLI54))(car((V207)))); |
(void)((*(LnkLI54))(car((V212)))); |
1507 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1508 |
if(((V209))==Cnil){ |
if(((V214))==Cnil){ |
1509 |
goto T799;} |
goto T804;} |
1510 |
if((cdr((V209)))==Cnil){ |
if((cdr((V214)))==Cnil){ |
1511 |
goto T799;} |
goto T804;} |
1512 |
princ_str("\ngoto T",VV[16]); |
princ_str("\ngoto T",VV[16]); |
1513 |
(void)((*(LnkLI54))(car((V209)))); |
(void)((*(LnkLI54))(car((V214)))); |
1514 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1515 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
1516 |
(void)((*(LnkLI54))(car((V209)))); |
(void)((*(LnkLI54))(car((V214)))); |
1517 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
1518 |
goto T799; |
goto T804; |
1519 |
T799:; |
T804:; |
1520 |
base[6]= make_cons(VV[17],symbol_value(VV[15])); |
base[6]= make_cons(VV[17],symbol_value(VV[15])); |
1521 |
bds_bind(VV[15],base[6]); |
bds_bind(VV[15],base[6]); |
1522 |
base[7]= cdr((V206)); |
base[7]= cdr((V211)); |
1523 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1524 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
1525 |
vs_top=sup; |
vs_top=sup; |
1526 |
bds_unwind1; |
bds_unwind1; |
1527 |
if((cdr((V207)))==Cnil){ |
if((cdr((V212)))==Cnil){ |
1528 |
goto T682;} |
goto T687;} |
1529 |
princ_str("\ngoto T",VV[16]); |
princ_str("\ngoto T",VV[16]); |
1530 |
(void)((*(LnkLI54))(car((V207)))); |
(void)((*(LnkLI54))(car((V212)))); |
1531 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1532 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
1533 |
(void)((*(LnkLI54))(car((V207)))); |
(void)((*(LnkLI54))(car((V212)))); |
1534 |
princ_str(":;",VV[16]);} |
princ_str(":;",VV[16]);} |
1535 |
goto T682; |
goto T687; |
1536 |
T682:; |
T687:; |
1537 |
V205= cdr((V205)); |
V210= cdr((V210)); |
1538 |
V206= car((V205)); |
V211= car((V210)); |
1539 |
goto T677;} |
goto T682;} |
1540 |
goto T673; |
goto T678; |
1541 |
T673:; |
T678:; |
1542 |
if(!(((V201))==(Ct))){ |
if(!(((V206))==(Ct))){ |
1543 |
goto T830;} |
goto T835;} |
1544 |
princ_str("\n FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]); |
princ_str("\n FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]); |
1545 |
(void)((*(LnkLI54))((V202))); |
(void)((*(LnkLI54))((V207))); |
1546 |
princ_str(");",VV[16]); |
princ_str(");",VV[16]); |
1547 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
1548 |
goto T828; |
goto T833; |
1549 |
goto T830; |
goto T835; |
1550 |
T830:; |
T835:; |
1551 |
base[3]= (V201); |
base[3]= (V206); |
1552 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1553 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
1554 |
vs_top=sup; |
vs_top=sup; |
1555 |
goto T828; |
goto T833; |
1556 |
T828:; |
T833:; |
1557 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
1558 |
{object V218 = (*(LnkLI63))(); |
{object V223 = (*(LnkLI63))(); |
1559 |
bds_unwind1; |
bds_unwind1; |
1560 |
bds_unwind1; |
bds_unwind1; |
1561 |
VMR16(V218)}} |
VMR16(V223)}} |
1562 |
base[0]=base[0]; |
base[0]=base[0]; |
1563 |
return Cnil; |
return Cnil; |
1564 |
} |
} |