1056 |
return; |
return; |
1057 |
goto T324; |
goto T324; |
1058 |
T324:;}{object V101; |
T324:;}{object V101; |
1059 |
base[1]= VV[41]; |
base[0]= (VFUN_NARGS=3,(*(LnkLI99))(VV[41],(VV[42]->s.s_dbind),VV[43])); |
|
base[2]= (VV[42]->s.s_dbind); |
|
|
base[3]= VV[43]; |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
(void) (*Lnk99)(); |
|
|
vs_top=sup; |
|
|
base[0]= vs_base[0]; |
|
1060 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1061 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
1062 |
vs_top=sup; |
vs_top=sup; |
1090 |
register object V104; |
register object V104; |
1091 |
V103= (V102); |
V103= (V102); |
1092 |
V104= CMPcar((V103)); |
V104= CMPcar((V103)); |
1093 |
goto T337; |
goto T334; |
1094 |
T337:; |
T334:; |
1095 |
if(!(((V103))==Cnil)){ |
if(!(((V103))==Cnil)){ |
1096 |
goto T338;} |
goto T335;} |
1097 |
goto T333; |
goto T330; |
1098 |
goto T338; |
goto T335; |
1099 |
T338:; |
T335:; |
1100 |
base[3]=VV[100]->s.s_gfdef; |
base[3]=VV[100]->s.s_gfdef; |
1101 |
base[4]= (V104); |
base[4]= (V104); |
1102 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1106 |
{object V105; |
{object V105; |
1107 |
object V106= V107; |
object V106= V107; |
1108 |
if(V106==Cnil){ |
if(V106==Cnil){ |
1109 |
goto T342;} |
goto T339;} |
1110 |
base[2]=V105=MMcons(Cnil,Cnil); |
base[2]=V105=MMcons(Cnil,Cnil); |
1111 |
goto T343; |
goto T340; |
1112 |
T343:; |
T340:; |
1113 |
base[4]= (V106->c.c_car); |
base[4]= (V106->c.c_car); |
1114 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1115 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
1116 |
vs_top=sup; |
vs_top=sup; |
1117 |
(V105->c.c_car)= vs_base[0]; |
(V105->c.c_car)= vs_base[0]; |
1118 |
if((V106=MMcdr(V106))==Cnil){ |
if((V106=MMcdr(V106))==Cnil){ |
1119 |
goto T342;} |
goto T339;} |
1120 |
V105=MMcdr(V105)=MMcons(Cnil,Cnil); |
V105=MMcdr(V105)=MMcons(Cnil,Cnil); |
1121 |
goto T343;} |
goto T340;} |
1122 |
goto T342; |
goto T339; |
1123 |
T342:; |
T339:; |
1124 |
V103= CMPcdr((V103)); |
V103= CMPcdr((V103)); |
1125 |
V104= CMPcar((V103)); |
V104= CMPcar((V103)); |
1126 |
goto T337;} |
goto T334;} |
1127 |
goto T333; |
goto T330; |
1128 |
T333:; |
T330:; |
1129 |
vs_base=vs_top; |
vs_base=vs_top; |
1130 |
(void) (*Lnk103)(); |
(void) (*Lnk103)(); |
1131 |
return; |
return; |
1161 |
vs_top=sup; |
vs_top=sup; |
1162 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
1163 |
if((base[0])==Cnil){ |
if((base[0])==Cnil){ |
1164 |
goto T359;} |
goto T356;} |
1165 |
base[2]= base[0]; |
base[2]= base[0]; |
1166 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1167 |
Lclose(); |
Lclose(); |
1168 |
vs_top=sup; |
vs_top=sup; |
1169 |
goto T359; |
goto T356; |
1170 |
T359:; |
T356:; |
1171 |
vs_base=vs_top=base+2; |
vs_base=vs_top=base+2; |
1172 |
for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
1173 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1195 |
vs_top=sup; |
vs_top=sup; |
1196 |
V110= vs_base[0]; |
V110= vs_base[0]; |
1197 |
if(((V110))!=Cnil){ |
if(((V110))!=Cnil){ |
1198 |
goto T366;} |
goto T363;} |
1199 |
V111= Cnil; |
V111= Cnil; |
1200 |
goto T365; |
goto T362; |
1201 |
goto T366; |
goto T363; |
1202 |
T366:; |
T363:; |
1203 |
base[1]= (V110); |
base[1]= (V110); |
1204 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1205 |
Ltruename(); |
Ltruename(); |
1206 |
vs_top=sup; |
vs_top=sup; |
1207 |
V111= vs_base[0]; |
V111= vs_base[0]; |
1208 |
goto T365; |
goto T362; |
1209 |
T365:; |
T362:; |
1210 |
{register object V112; |
{register object V112; |
1211 |
register object V113; |
register object V113; |
1212 |
V112= (V108); |
V112= (V108); |
1213 |
V113= CMPcar((V112)); |
V113= CMPcar((V112)); |
1214 |
goto T374; |
goto T371; |
1215 |
T374:; |
T371:; |
1216 |
if(!(((V112))==Cnil)){ |
if(!(((V112))==Cnil)){ |
1217 |
goto T375;} |
goto T372;} |
1218 |
base[2]= Cnil; |
base[2]= Cnil; |
1219 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1220 |
return; |
return; |
1221 |
goto T375; |
goto T372; |
1222 |
T375:; |
T372:; |
1223 |
if(!(eql(STREF(object,(V113),0),VV[8]))){ |
if(!(eql(STREF(object,(V113),0),VV[8]))){ |
1224 |
goto T379;} |
goto T376;} |
1225 |
base[3]= VV[41]; |
base[3]= (V111); |
1226 |
base[4]= VV[48]; |
vs_top=(vs_base=base+3)+1; |
|
base[6]= (V111); |
|
|
vs_top=(vs_base=base+6)+1; |
|
1227 |
Lnamestring(); |
Lnamestring(); |
1228 |
vs_top=sup; |
vs_top=sup; |
1229 |
base[5]= vs_base[0]; |
V115= vs_base[0]; |
1230 |
vs_top=(vs_base=base+3)+3; |
base[2]= (VFUN_NARGS=3,(*(LnkLI99))(VV[41],VV[48],V115)); |
|
(void) (*Lnk99)(); |
|
|
vs_top=sup; |
|
|
base[2]= vs_base[0]; |
|
1231 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1232 |
Lintern(); |
Lintern(); |
1233 |
vs_top=sup; |
vs_top=sup; |
1234 |
V114= vs_base[0]; |
V114= vs_base[0]; |
1235 |
V115= Ct; |
V116= Ct; |
1236 |
STSET(object,(V113),0, V114); |
STSET(object,(V113),0, V114); |
1237 |
(void)(V114); |
(void)(V114); |
1238 |
(void)(sputprop(STREF(object,(V113),0),VV[8],Ct)); |
(void)(sputprop(STREF(object,(V113),0),VV[8],Ct)); |
1239 |
goto T379; |
goto T376; |
1240 |
T379:; |
T376:; |
1241 |
{register object V116; |
{register object V117; |
|
register object V117; |
|
1242 |
register object V118; |
register object V118; |
1243 |
V116= STREF(object,(V113),0); |
register object V119; |
1244 |
V117= (VV[9]->s.s_dbind); |
V117= STREF(object,(V113),0); |
1245 |
V118= (V113); |
V118= (VV[9]->s.s_dbind); |
1246 |
base[3]= (V116); |
V119= (V113); |
1247 |
base[4]= (V117); |
base[3]= (V117); |
1248 |
base[5]= (V118); |
base[4]= (V118); |
1249 |
|
base[5]= (V119); |
1250 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1251 |
siLhash_set(); |
siLhash_set(); |
1252 |
vs_top=sup;} |
vs_top=sup;} |
1257 |
vs_top=sup; |
vs_top=sup; |
1258 |
V109= vs_base[0]; |
V109= vs_base[0]; |
1259 |
if(((V109))==Cnil){ |
if(((V109))==Cnil){ |
1260 |
goto T396;} |
goto T391;} |
1261 |
if(!(equal((V109),(V111)))){ |
if(!(equal((V109),(V111)))){ |
1262 |
goto T402;} |
goto T397;} |
1263 |
goto T396; |
goto T391; |
1264 |
goto T402; |
goto T397; |
1265 |
T402:; |
T397:; |
1266 |
base[2]= Ct; |
base[2]= Ct; |
1267 |
base[3]= VV[50]; |
base[3]= VV[50]; |
1268 |
base[4]= STREF(object,(V113),0); |
base[4]= STREF(object,(V113),0); |
1271 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1272 |
Lformat(); |
Lformat(); |
1273 |
vs_top=sup; |
vs_top=sup; |
1274 |
goto T396; |
goto T391; |
1275 |
T396:; |
T391:; |
1276 |
{register object V119; |
{register object V120; |
|
register object V120; |
|
1277 |
register object V121; |
register object V121; |
1278 |
V119= STREF(object,(V113),0); |
register object V122; |
1279 |
V120= (VV[49]->s.s_dbind); |
V120= STREF(object,(V113),0); |
1280 |
V121= (V111); |
V121= (VV[49]->s.s_dbind); |
1281 |
base[3]= (V119); |
V122= (V111); |
1282 |
base[4]= (V120); |
base[3]= (V120); |
1283 |
base[5]= (V121); |
base[4]= (V121); |
1284 |
|
base[5]= (V122); |
1285 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1286 |
siLhash_set(); |
siLhash_set(); |
1287 |
vs_top=sup;} |
vs_top=sup;} |
1288 |
V112= CMPcdr((V112)); |
V112= CMPcdr((V112)); |
1289 |
V113= CMPcar((V112)); |
V113= CMPcar((V112)); |
1290 |
goto T374;}}} |
goto T371;}}} |
1291 |
} |
} |
1292 |
} |
} |
1293 |
/* function definition for DUMP-FN-DATA */ |
/* function definition for DUMP-FN-DATA */ |
1297 |
register object *VOL sup=base+VM22; VC22 |
register object *VOL sup=base+VM22; VC22 |
1298 |
vs_check; |
vs_check; |
1299 |
bds_check; |
bds_check; |
1300 |
{VOL object V122; |
{VOL object V123; |
1301 |
if(vs_base>=vs_top){vs_top=sup;goto T421;} |
if(vs_base>=vs_top){vs_top=sup;goto T416;} |
1302 |
V122=(base[0]); |
V123=(base[0]); |
1303 |
vs_top=sup; |
vs_top=sup; |
1304 |
goto T422; |
goto T417; |
1305 |
goto T421; |
goto T416; |
1306 |
T421:; |
T416:; |
1307 |
V122= VV[51]; |
V123= VV[51]; |
1308 |
goto T422; |
goto T417; |
1309 |
T422:; |
T417:; |
1310 |
base[4]= VV[52]; |
base[4]= VV[52]; |
1311 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1312 |
Lfind_package(); |
Lfind_package(); |
1314 |
bds_bind(VV[33],vs_base[0]); |
bds_bind(VV[33],vs_base[0]); |
1315 |
bds_bind(VV[30],Cnil); |
bds_bind(VV[30],Cnil); |
1316 |
bds_bind(VV[31],Cnil); |
bds_bind(VV[31],Cnil); |
1317 |
base[5]= (V122); |
base[5]= (V123); |
1318 |
base[6]= VV[45]; |
base[6]= VV[45]; |
1319 |
base[7]= VV[46]; |
base[7]= VV[46]; |
1320 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1338 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1339 |
Lmaphash(); |
Lmaphash(); |
1340 |
vs_top=sup; |
vs_top=sup; |
1341 |
goto T435; |
goto T430; |
1342 |
goto T435; |
goto T430; |
1343 |
T435:; |
T430:; |
1344 |
(void)(princ(VV[55],(base[4]->c.c_car))); |
(void)(princ(VV[55],(base[4]->c.c_car))); |
1345 |
base[6]= (base[4]->c.c_car); |
base[6]= (base[4]->c.c_car); |
1346 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1352 |
vs_top=sup; |
vs_top=sup; |
1353 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
1354 |
if(((base[4]->c.c_car))==Cnil){ |
if(((base[4]->c.c_car))==Cnil){ |
1355 |
goto T442;} |
goto T437;} |
1356 |
base[6]= (base[4]->c.c_car); |
base[6]= (base[4]->c.c_car); |
1357 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1358 |
Lclose(); |
Lclose(); |
1359 |
vs_top=sup; |
vs_top=sup; |
1360 |
goto T442; |
goto T437; |
1361 |
T442:; |
T437:; |
1362 |
vs_base=vs_top=base+6; |
vs_base=vs_top=base+6; |
1363 |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
1364 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1374 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1375 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
1376 |
vs_check; |
vs_check; |
1377 |
{object V123; |
{object V124; |
1378 |
register object V124; |
register object V125; |
1379 |
V123=(base[0]); |
V124=(base[0]); |
1380 |
V124=(base[1]); |
V125=(base[1]); |
1381 |
vs_top=sup; |
vs_top=sup; |
1382 |
goto TTL; |
goto TTL; |
1383 |
TTL:; |
TTL:; |
1384 |
if(((V124))==Cnil){ |
if(((V125))==Cnil){ |
1385 |
goto T446;} |
goto T441;} |
1386 |
if(!(type_of((V124))==t_symbol)){ |
if(!(type_of((V125))==t_symbol)){ |
1387 |
goto T446;} |
goto T441;} |
1388 |
base[2]= (V124); |
base[2]= (V125); |
1389 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1390 |
(void) (*Lnk107)(); |
(void) (*Lnk107)(); |
1391 |
vs_top=sup; |
vs_top=sup; |
1392 |
goto T446; |
goto T441; |
1393 |
T446:; |
T441:; |
1394 |
if(!(((V123))==(VV[56]))){ |
if(!(((V124))==(VV[56]))){ |
1395 |
goto T452;} |
goto T447;} |
1396 |
base[2]= Cnil; |
base[2]= Cnil; |
1397 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1398 |
return; |
return; |
1399 |
goto T452; |
goto T447; |
1400 |
T452:; |
T447:; |
1401 |
{object V125= (VV[57]->s.s_dbind); |
{object V126= (VV[57]->s.s_dbind); |
1402 |
if((V125!= VV[108]))goto T455; |
if((V126!= VV[108]))goto T450; |
1403 |
if(!(((V123))==(VV[58]))){ |
if(!(((V124))==(VV[58]))){ |
1404 |
goto T457;} |
goto T452;} |
1405 |
base[2]= Cnil; |
base[2]= Cnil; |
1406 |
if((V124)!=Cnil){ |
if((V125)!=Cnil){ |
1407 |
base[3]= (V124); |
base[3]= (V125); |
1408 |
goto T460;} |
goto T455;} |
1409 |
base[3]= VV[59]; |
base[3]= VV[59]; |
1410 |
goto T460; |
goto T455; |
1411 |
T460:; |
T455:; |
1412 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1413 |
(void) (*Lnk109)(); |
(void) (*Lnk109)(); |
1414 |
return; |
return; |
1415 |
goto T457; |
goto T452; |
1416 |
T457:; |
T452:; |
1417 |
base[3]= (V123); |
base[3]= (V124); |
1418 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1419 |
(void) (*Lnk110)(); |
(void) (*Lnk110)(); |
1420 |
vs_top=sup; |
vs_top=sup; |
1423 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1424 |
(void) (*Lnk109)(); |
(void) (*Lnk109)(); |
1425 |
return; |
return; |
1426 |
goto T455; |
goto T450; |
1427 |
T455:; |
T450:; |
1428 |
if((V125!= VV[111]))goto T464; |
if((V126!= VV[111]))goto T459; |
1429 |
base[2]= VV[12]; |
base[2]= VV[12]; |
1430 |
base[3]= Cnil; |
base[3]= Cnil; |
1431 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1432 |
(void) (*Lnk109)(); |
(void) (*Lnk109)(); |
1433 |
return; |
return; |
1434 |
goto T464; |
goto T459; |
1435 |
T464:; |
T459:; |
1436 |
if((V125!= VV[112]))goto T467; |
if((V126!= VV[112]))goto T462; |
1437 |
base[2]= Ct; |
base[2]= Ct; |
1438 |
base[3]= Cnil; |
base[3]= Cnil; |
1439 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1440 |
(void) (*Lnk109)(); |
(void) (*Lnk109)(); |
1441 |
return; |
return; |
1442 |
goto T467; |
goto T462; |
1443 |
T467:; |
T462:; |
1444 |
if((V125!= VV[113]))goto T470; |
if((V126!= VV[113]))goto T465; |
1445 |
(VV[60]->s.s_dbind)= make_cons((V124),Cnil); |
(VV[60]->s.s_dbind)= make_cons((V125),Cnil); |
1446 |
base[2]= (VV[60]->s.s_dbind); |
base[2]= (VV[60]->s.s_dbind); |
1447 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1448 |
return; |
return; |
1449 |
goto T470; |
goto T465; |
1450 |
T470:; |
T465:; |
1451 |
base[2]= Cnil; |
base[2]= Cnil; |
1452 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1453 |
return;} |
return;} |
1469 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1470 |
Lmaphash(); |
Lmaphash(); |
1471 |
vs_top=sup; |
vs_top=sup; |
1472 |
goto T472; |
goto T467; |
1473 |
goto T472; |
goto T467; |
1474 |
T472:; |
T467:; |
1475 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
1476 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1477 |
return; |
return; |
1498 |
vs_top=sup; |
vs_top=sup; |
1499 |
goto TTL; |
goto TTL; |
1500 |
TTL:; |
TTL:; |
1501 |
{object V126; |
{object V127; |
1502 |
base[2]=MMcons(small_fixnum(0),Cnil); |
base[2]=MMcons(small_fixnum(0),Cnil); |
1503 |
base[3]= |
base[3]= |
1504 |
make_cclosure_new(LC36,Cnil,base[2],Cdata); |
make_cclosure_new(LC36,Cnil,base[2],Cdata); |
1506 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1507 |
Lmaphash(); |
Lmaphash(); |
1508 |
vs_top=sup; |
vs_top=sup; |
1509 |
V126= (base[2]->c.c_car); |
V127= (base[2]->c.c_car); |
1510 |
goto T477; |
goto T472; |
1511 |
V126= Cnil; |
V127= Cnil; |
1512 |
goto T477; |
goto T472; |
1513 |
V126= Cnil; |
V127= Cnil; |
1514 |
goto T477; |
goto T472; |
1515 |
T477:; |
T472:; |
1516 |
base[2]= VV[17]; |
base[2]= VV[17]; |
1517 |
base[3]= VV[63]; |
base[3]= VV[63]; |
1518 |
base[4]= VV[64]; |
base[4]= VV[64]; |
1519 |
base[5]= number_plus(small_fixnum(3),(V126)); |
base[5]= number_plus(small_fixnum(3),(V127)); |
1520 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1521 |
Lmake_hash_table(); |
Lmake_hash_table(); |
1522 |
vs_top=sup; |
vs_top=sup; |
1528 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1529 |
Lmaphash(); |
Lmaphash(); |
1530 |
vs_top=sup; |
vs_top=sup; |
1531 |
goto T488; |
goto T483; |
1532 |
goto T488; |
goto T483; |
1533 |
T488:; |
T483:; |
1534 |
base[2]=MMcons(Cnil,base[1]); |
base[2]=MMcons(Cnil,base[1]); |
1535 |
base[3]=MMcons(Cnil,base[2]); |
base[3]=MMcons(Cnil,base[2]); |
1536 |
base[4]= |
base[4]= |
1555 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1556 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
1557 |
vs_check; |
vs_check; |
1558 |
{object V127; |
{object V128; |
|
object V128; |
|
1559 |
object V129; |
object V129; |
1560 |
object V130; |
object V130; |
1561 |
V127=(base[0]); |
object V131; |
1562 |
V128=(base[1]); |
V128=(base[0]); |
1563 |
V129=(base[2]); |
V129=(base[1]); |
1564 |
V130=(base[3]); |
V130=(base[2]); |
1565 |
|
V131=(base[3]); |
1566 |
vs_top=sup; |
vs_top=sup; |
1567 |
goto TTL; |
goto TTL; |
1568 |
TTL:; |
TTL:; |
1569 |
if(((V130))!=Cnil){ |
if(((V131))!=Cnil){ |
1570 |
goto T498;} |
goto T493;} |
1571 |
V130= Ct; |
V131= Ct; |
1572 |
goto T498; |
goto T493; |
1573 |
T498:; |
T493:; |
1574 |
if((VV[10]->s.s_dbind)==Cnil){ |
if((VV[10]->s.s_dbind)==Cnil){ |
1575 |
base[4]= Cnil; |
base[4]= Cnil; |
1576 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1579 |
base[4]= Cnil; |
base[4]= Cnil; |
1580 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1581 |
return;} |
return;} |
1582 |
{object V131; |
{object V132; |
1583 |
base[4]= VV[7]; |
base[4]= VV[7]; |
1584 |
base[5]= (V127); |
base[5]= (V128); |
1585 |
base[6]= VV[15]; |
base[6]= VV[15]; |
1586 |
base[7]= (V128); |
base[7]= (V129); |
1587 |
base[8]= VV[67]; |
base[8]= VV[67]; |
1588 |
base[9]= (V130); |
base[9]= (V131); |
1589 |
base[10]= VV[68]; |
base[10]= VV[68]; |
1590 |
base[11]= (V129); |
base[11]= (V130); |
1591 |
vs_top=(vs_base=base+4)+8; |
vs_top=(vs_base=base+4)+8; |
1592 |
(void) (*Lnk90)(); |
(void) (*Lnk90)(); |
1593 |
vs_top=sup; |
vs_top=sup; |
1594 |
V131= vs_base[0]; |
V132= vs_base[0]; |
1595 |
(VV[5]->s.s_dbind)= make_cons(V131,(VV[5]->s.s_dbind)); |
(VV[5]->s.s_dbind)= make_cons(V132,(VV[5]->s.s_dbind)); |
1596 |
{object V134; |
{object V135; |
1597 |
V134= (VV[9]->s.s_dbind); |
V135= (VV[9]->s.s_dbind); |
1598 |
base[4]= V127; |
base[4]= V128; |
1599 |
base[5]= (V134); |
base[5]= (V135); |
1600 |
base[6]= V131; |
base[6]= V132; |
1601 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1602 |
siLhash_set(); |
siLhash_set(); |
1603 |
return;}} |
return;}} |
1610 |
register object *VOL sup=base+VM28; VC28 |
register object *VOL sup=base+VM28; VC28 |
1611 |
vs_check; |
vs_check; |
1612 |
bds_check; |
bds_check; |
1613 |
{VOL object V136; |
{VOL object V137; |
1614 |
if(vs_base>=vs_top){vs_top=sup;goto T517;} |
if(vs_base>=vs_top){vs_top=sup;goto T512;} |
1615 |
vs_base++; |
vs_base++; |
1616 |
if(vs_base>=vs_top){vs_top=sup;goto T518;} |
if(vs_base>=vs_top){vs_top=sup;goto T513;} |
1617 |
V136=(base[1]); |
V137=(base[1]); |
1618 |
vs_top=sup; |
vs_top=sup; |
1619 |
goto T519; |
goto T514; |
1620 |
goto T517; |
goto T512; |
1621 |
T517:; |
T512:; |
1622 |
base[0]= VV[69]; |
base[0]= VV[69]; |
1623 |
goto T518; |
goto T513; |
1624 |
T518:; |
T513:; |
1625 |
V136= Cnil; |
V137= Cnil; |
1626 |
goto T519; |
goto T514; |
1627 |
T519:; |
T514:; |
1628 |
bds_bind(VV[70],Ct); |
bds_bind(VV[70],Ct); |
1629 |
base[3]=alloc_frame_id(); |
base[3]=alloc_frame_id(); |
1630 |
frs_push(FRS_CATCH,base[3]); |
frs_push(FRS_CATCH,base[3]); |
1633 |
bds_unwind1; |
bds_unwind1; |
1634 |
return;} |
return;} |
1635 |
else{ |
else{ |
1636 |
if(((V136))!=Cnil){ |
if(((V137))!=Cnil){ |
1637 |
goto T522;} |
goto T517;} |
1638 |
base[5]= base[0]; |
base[5]= base[0]; |
1639 |
base[6]= VV[45]; |
base[6]= VV[45]; |
1640 |
base[7]= VV[46]; |
base[7]= VV[46]; |
1676 |
vs_top=sup; |
vs_top=sup; |
1677 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
1678 |
if((base[4])==Cnil){ |
if((base[4])==Cnil){ |
1679 |
goto T543;} |
goto T538;} |
1680 |
base[6]= base[4]; |
base[6]= base[4]; |
1681 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1682 |
Lclose(); |
Lclose(); |
1683 |
vs_top=sup; |
vs_top=sup; |
1684 |
goto T543; |
goto T538; |
1685 |
T543:; |
T538:; |
1686 |
vs_base=vs_top=base+6; |
vs_base=vs_top=base+6; |
1687 |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
1688 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1689 |
vs_top=sup;}} |
vs_top=sup;}} |
1690 |
goto T522; |
goto T517; |
1691 |
T522:; |
T517:; |
1692 |
{object V137; |
{object V138; |
1693 |
register object V138; |
register object V139; |
1694 |
vs_base=vs_top; |
vs_base=vs_top; |
1695 |
Llist_all_packages(); |
Llist_all_packages(); |
1696 |
vs_top=sup; |
vs_top=sup; |
1697 |
V137= vs_base[0]; |
V138= vs_base[0]; |
1698 |
V138= CMPcar((V137)); |
V139= CMPcar((V138)); |
1699 |
goto T550; |
goto T545; |
1700 |
T550:; |
T545:; |
1701 |
if(!(((V137))==Cnil)){ |
if(!(((V138))==Cnil)){ |
1702 |
goto T551;} |
goto T546;} |
1703 |
frs_pop(); |
frs_pop(); |
1704 |
base[6]= Cnil; |
base[6]= Cnil; |
1705 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1706 |
bds_unwind1; |
bds_unwind1; |
1707 |
return; |
return; |
1708 |
goto T551; |
goto T546; |
1709 |
T551:; |
T546:; |
1710 |
base[6]= (V138); |
base[6]= (V139); |
1711 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1712 |
Lpackage_name(); |
Lpackage_name(); |
1713 |
vs_top=sup; |
vs_top=sup; |
1714 |
V140= vs_base[0]; |
V141= vs_base[0]; |
1715 |
{register object x= V140,V139= VV[75]; |
{register object x= V141,V140= VV[75]; |
1716 |
while(V139!=Cnil) |
while(V140!=Cnil) |
1717 |
if(equal(x,V139->c.c_car)){ |
if(equal(x,V140->c.c_car)){ |
1718 |
goto T555; |
goto T550; |
1719 |
}else V139=V139->c.c_cdr;} |
}else V140=V140->c.c_cdr;} |
1720 |
base[6]= base[0]; |
base[6]= base[0]; |
1721 |
base[7]= VV[76]; |
base[7]= VV[76]; |
1722 |
base[9]= (V138); |
base[9]= (V139); |
1723 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1724 |
Lpackage_name(); |
Lpackage_name(); |
1725 |
vs_top=sup; |
vs_top=sup; |
1726 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
1727 |
base[9]= (V136); |
base[9]= (V137); |
1728 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
1729 |
Lformat(); |
Lformat(); |
1730 |
vs_top=sup; |
vs_top=sup; |
1731 |
{object V141= (V136); |
{object V142= (V137); |
1732 |
if((V141!= VV[71]))goto T566; |
if((V142!= VV[71]))goto T561; |
1733 |
bds_bind(VV[70],Ct); |
bds_bind(VV[70],Ct); |
1734 |
base[8]= (V138); |
base[8]= (V139); |
1735 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1736 |
Lpackage_name(); |
Lpackage_name(); |
1737 |
vs_top=sup; |
vs_top=sup; |
1738 |
V142= vs_base[0]; |
V143= vs_base[0]; |
1739 |
base[8]= (V138); |
base[8]= (V139); |
1740 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1741 |
Lpackage_nicknames(); |
Lpackage_nicknames(); |
1742 |
vs_top=sup; |
vs_top=sup; |
1743 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1744 |
goto T572;} |
goto T567;} |
1745 |
base[8]= (V138); |
base[8]= (V139); |
1746 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1747 |
Lpackage_nicknames(); |
Lpackage_nicknames(); |
1748 |
vs_top=sup; |
vs_top=sup; |
1749 |
V144= vs_base[0]; |
V145= vs_base[0]; |
1750 |
V143= list(2,VV[78],list(2,VV[36],V144)); |
V144= list(2,VV[78],list(2,VV[36],V145)); |
1751 |
goto T570; |
goto T565; |
1752 |
goto T572; |
goto T567; |
1753 |
T572:; |
T567:; |
1754 |
V143= Cnil; |
V144= Cnil; |
1755 |
goto T570; |
goto T565; |
1756 |
T570:; |
T565:; |
1757 |
base[7]= listA(5,VV[32],V142,VV[77],Cnil,V143); |
base[7]= listA(5,VV[32],V143,VV[77],Cnil,V144); |
1758 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1759 |
L29(base); |
L29(base); |
1760 |
vs_top=sup; |
vs_top=sup; |
1761 |
bds_unwind1; |
bds_unwind1; |
1762 |
goto T555; |
goto T550; |
1763 |
goto T566; |
goto T561; |
1764 |
T566:; |
T561:; |
1765 |
if((V141!= VV[72]))goto T577; |
if((V142!= VV[72]))goto T572; |
1766 |
bds_bind(VV[70],Ct); |
bds_bind(VV[70],Ct); |
1767 |
base[8]= (V138); |
base[8]= (V139); |
1768 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1769 |
Lpackage_name(); |
Lpackage_name(); |
1770 |
vs_top=sup; |
vs_top=sup; |
1771 |
V145= vs_base[0]; |
V146= vs_base[0]; |
1772 |
base[9]= (V138); |
base[9]= (V139); |
1773 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1774 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1775 |
vs_top=sup; |
vs_top=sup; |
1776 |
V149= vs_base[0]; |
V150= vs_base[0]; |
1777 |
{object V147; |
{object V148; |
1778 |
object V148= V149; |
object V149= V150; |
1779 |
if(V148==Cnil){ |
if(V149==Cnil){ |
1780 |
V146= Cnil; |
V147= Cnil; |
1781 |
goto T582;} |
goto T577;} |
1782 |
base[8]=V147=MMcons(Cnil,Cnil); |
base[8]=V148=MMcons(Cnil,Cnil); |
1783 |
goto T583; |
goto T578; |
1784 |
T583:; |
T578:; |
1785 |
base[9]= (V148->c.c_car); |
base[9]= (V149->c.c_car); |
1786 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1787 |
Lpackage_name(); |
Lpackage_name(); |
1788 |
vs_top=sup; |
vs_top=sup; |
1789 |
(V147->c.c_car)= vs_base[0]; |
(V148->c.c_car)= vs_base[0]; |
1790 |
if((V148=MMcdr(V148))==Cnil){ |
if((V149=MMcdr(V149))==Cnil){ |
1791 |
V146= base[8]; |
V147= base[8]; |
1792 |
goto T582;} |
goto T577;} |
1793 |
V147=MMcdr(V147)=MMcons(Cnil,Cnil); |
V148=MMcdr(V148)=MMcons(Cnil,Cnil); |
1794 |
goto T583;} |
goto T578;} |
1795 |
goto T582; |
goto T577; |
1796 |
T582:; |
T577:; |
1797 |
V150= list(2,VV[36],V146); |
V151= list(2,VV[36],V147); |
1798 |
base[8]= (V138); |
base[8]= (V139); |
1799 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1800 |
Lpackage_nicknames(); |
Lpackage_nicknames(); |
1801 |
vs_top=sup; |
vs_top=sup; |
1802 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1803 |
goto T590;} |
goto T585;} |
1804 |
base[8]= (V138); |
base[8]= (V139); |
1805 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1806 |
Lpackage_nicknames(); |
Lpackage_nicknames(); |
1807 |
vs_top=sup; |
vs_top=sup; |
1808 |
V152= vs_base[0]; |
V153= vs_base[0]; |
1809 |
V151= list(2,VV[78],list(2,VV[36],V152)); |
V152= list(2,VV[78],list(2,VV[36],V153)); |
1810 |
goto T588; |
goto T583; |
1811 |
goto T590; |
goto T585; |
1812 |
T590:; |
T585:; |
1813 |
V151= Cnil; |
V152= Cnil; |
1814 |
goto T588; |
goto T583; |
1815 |
T588:; |
T583:; |
1816 |
base[7]= listA(5,VV[32],V145,VV[77],/* INLINE-ARGS */V150,V151); |
base[7]= listA(5,VV[32],V146,VV[77],/* INLINE-ARGS */V151,V152); |
1817 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1818 |
L29(base); |
L29(base); |
1819 |
vs_top=sup; |
vs_top=sup; |
1820 |
bds_unwind1; |
bds_unwind1; |
1821 |
{object V153; |
{object V154; |
1822 |
object V154; |
object V155; |
|
V153= Cnil; |
|
|
bds_bind(VV[33],(V138)); |
|
1823 |
V154= Cnil; |
V154= Cnil; |
1824 |
{object V155; |
bds_bind(VV[33],(V139)); |
1825 |
register object V156; |
V155= Cnil; |
1826 |
|
{object V156; |
1827 |
register object V157; |
register object V157; |
1828 |
base[7]= V138; |
register object V158; |
1829 |
|
base[7]= V139; |
1830 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1831 |
Lpackagep(); |
Lpackagep(); |
1832 |
vs_top=sup; |
vs_top=sup; |
1833 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1834 |
goto T598;} |
goto T593;} |
1835 |
V155= V138; |
V156= V139; |
1836 |
goto T596; |
goto T591; |
1837 |
goto T598; |
goto T593; |
1838 |
T598:; |
T593:; |
1839 |
base[7]= coerce_to_string(V138); |
base[7]= coerce_to_string(V139); |
1840 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1841 |
Lfind_package(); |
Lfind_package(); |
1842 |
vs_top=sup; |
vs_top=sup; |
1843 |
V155= vs_base[0]; |
V156= vs_base[0]; |
1844 |
goto T596; |
goto T591; |
1845 |
T596:; |
T591:; |
|
V156= Cnil; |
|
1846 |
V157= Cnil; |
V157= Cnil; |
1847 |
{object V159; |
V158= Cnil; |
1848 |
object V160; |
{object V160; |
1849 |
base[8]= (V155); |
object V161; |
1850 |
|
base[8]= (V156); |
1851 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1852 |
(void) (*Lnk115)(); |
(void) (*Lnk115)(); |
1853 |
vs_top=sup; |
vs_top=sup; |
1854 |
V159= vs_base[0]; |
V160= vs_base[0]; |
1855 |
V160= small_fixnum(0); |
V161= small_fixnum(0); |
1856 |
goto T606; |
goto T601; |
1857 |
T606:; |
T601:; |
1858 |
if(!(number_compare((V160),(V159))>=0)){ |
if(!(number_compare((V161),(V160))>=0)){ |
1859 |
goto T607;} |
goto T602;} |
1860 |
V156= Cnil; |
V157= Cnil; |
1861 |
goto T595; |
goto T590; |
1862 |
goto T607; |
goto T602; |
1863 |
T607:; |
T602:; |
1864 |
base[8]= (V155); |
base[8]= (V156); |
1865 |
base[9]= (V160); |
base[9]= (V161); |
1866 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
1867 |
siLpackage_external(); |
siLpackage_external(); |
1868 |
vs_top=sup; |
vs_top=sup; |
1869 |
V157= vs_base[0]; |
V158= vs_base[0]; |
1870 |
|
goto T609; |
1871 |
|
T609:; |
1872 |
|
if(((V158))!=Cnil){ |
1873 |
|
goto T614;} |
1874 |
|
goto T610; |
1875 |
goto T614; |
goto T614; |
1876 |
T614:; |
T614:; |
1877 |
if(((V157))!=Cnil){ |
V157= CMPcar((V158)); |
1878 |
goto T619;} |
V154= make_cons(V157,(V154)); |
1879 |
goto T615; |
base[8]= (V157); |
|
goto T619; |
|
|
T619:; |
|
|
V156= CMPcar((V157)); |
|
|
V153= make_cons(V156,(V153)); |
|
|
base[8]= (V156); |
|
1880 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1881 |
Lsymbol_package(); |
Lsymbol_package(); |
1882 |
vs_top=sup; |
vs_top=sup; |
1883 |
V162= vs_base[0]; |
V163= vs_base[0]; |
1884 |
if(!((V162)==((V138)))){ |
if(!((V163)==((V139)))){ |
1885 |
goto T627;} |
goto T622;} |
1886 |
goto T626; |
goto T621; |
1887 |
goto T627; |
goto T622; |
1888 |
T627:; |
T622:; |
1889 |
V154= make_cons(V156,(V154)); |
V155= make_cons(V157,(V155)); |
1890 |
goto T626; |
goto T621; |
1891 |
T626:; |
T621:; |
1892 |
V157= CMPcdr((V157)); |
V158= CMPcdr((V158)); |
1893 |
goto T614; |
goto T609; |
1894 |
goto T615; |
goto T610; |
1895 |
T615:; |
T610:; |
1896 |
goto T612; |
goto T607; |
1897 |
goto T612; |
goto T607; |
1898 |
T612:; |
T607:; |
1899 |
V160= one_plus((V160)); |
V161= one_plus((V161)); |
1900 |
goto T606;}} |
goto T601;}} |
1901 |
goto T595; |
goto T590; |
1902 |
T595:; |
T590:; |
1903 |
base[7]= list(2,VV[79],list(2,VV[36],(V154))); |
base[7]= list(2,VV[79],list(2,VV[36],(V155))); |
1904 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1905 |
L29(base); |
L29(base); |
1906 |
vs_top=sup; |
vs_top=sup; |
1907 |
base[7]= list(2,VV[72],list(2,VV[36],(V153))); |
base[7]= list(2,VV[72],list(2,VV[36],(V154))); |
1908 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1909 |
L29(base); |
L29(base); |
1910 |
vs_top=sup; |
vs_top=sup; |
1911 |
bds_unwind1; |
bds_unwind1; |
1912 |
goto T555;} |
goto T550;} |
1913 |
goto T577; |
goto T572; |
1914 |
T577:; |
T572:; |
1915 |
if((V141!= VV[73]))goto T640; |
if((V142!= VV[73]))goto T635; |
1916 |
bds_bind(VV[70],Ct); |
bds_bind(VV[70],Ct); |
1917 |
base[8]= (V138); |
base[8]= (V139); |
1918 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1919 |
Lpackage_name(); |
Lpackage_name(); |
1920 |
vs_top=sup; |
vs_top=sup; |
1921 |
V164= vs_base[0]; |
V165= vs_base[0]; |
1922 |
base[7]= list(2,VV[32],V164); |
base[7]= list(2,VV[32],V165); |
1923 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1924 |
L29(base); |
L29(base); |
1925 |
vs_top=sup; |
vs_top=sup; |
1926 |
bds_unwind1; |
bds_unwind1; |
1927 |
{object V165; |
{object V166; |
1928 |
object V166; |
object V167; |
1929 |
base[7]= VV[80]; |
base[7]= VV[80]; |
1930 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1931 |
Lfind_package(); |
Lfind_package(); |
1932 |
vs_top=sup; |
vs_top=sup; |
1933 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
|
V165= Cnil; |
|
1934 |
V166= Cnil; |
V166= Cnil; |
1935 |
|
V167= Cnil; |
1936 |
bds_bind(VV[33],base[6]); |
bds_bind(VV[33],base[6]); |
1937 |
{object V167; |
{object V168; |
1938 |
object V168; |
object V169; |
1939 |
base[9]= (V138); |
base[9]= (V139); |
1940 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1941 |
(void) (*Lnk116)(); |
(void) (*Lnk116)(); |
1942 |
vs_top=sup; |
vs_top=sup; |
1943 |
V167= vs_base[0]; |
V168= vs_base[0]; |
1944 |
V168= CMPcar((V167)); |
V169= CMPcar((V168)); |
|
goto T652; |
|
|
T652:; |
|
|
if(!(((V167))==Cnil)){ |
|
|
goto T653;} |
|
1945 |
goto T647; |
goto T647; |
1946 |
goto T653; |
T647:; |
1947 |
T653:; |
if(!(((V168))==Cnil)){ |
1948 |
base[9]= (V168); |
goto T648;} |
1949 |
|
goto T642; |
1950 |
|
goto T648; |
1951 |
|
T648:; |
1952 |
|
base[9]= (V169); |
1953 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1954 |
Lsymbol_package(); |
Lsymbol_package(); |
1955 |
vs_top=sup; |
vs_top=sup; |
1956 |
V169= vs_base[0]; |
V170= vs_base[0]; |
1957 |
if(!((V169)==((V138)))){ |
if(!((V170)==((V139)))){ |
1958 |
goto T659;} |
goto T654;} |
1959 |
V165= make_cons(V168,(V165)); |
V166= make_cons(V169,(V166)); |
1960 |
goto T657; |
goto T652; |
1961 |
goto T659; |
goto T654; |
1962 |
T659:; |
T654:; |
1963 |
V166= make_cons(V168,(V166)); |
V167= make_cons(V169,(V167)); |
1964 |
goto T657; |
goto T652; |
1965 |
T657:; |
T652:; |
1966 |
V167= CMPcdr((V167)); |
V168= CMPcdr((V168)); |
1967 |
V168= CMPcar((V167)); |
V169= CMPcar((V168)); |
1968 |
goto T652;} |
goto T647;} |
1969 |
goto T647; |
goto T642; |
1970 |
T647:; |
T642:; |
1971 |
base[7]= list(2,VV[73],list(2,VV[36],(V165))); |
base[7]= list(2,VV[73],list(2,VV[36],(V166))); |
1972 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1973 |
L29(base); |
L29(base); |
1974 |
vs_top=sup; |
vs_top=sup; |
1975 |
base[7]= list(2,VV[81],list(2,VV[36],(V166))); |
base[7]= list(2,VV[81],list(2,VV[36],(V167))); |
1976 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1977 |
L29(base); |
L29(base); |
1978 |
vs_top=sup; |
vs_top=sup; |
|
{object V172; |
|
|
V172= Cnil; |
|
1979 |
{object V173; |
{object V173; |
1980 |
register object V174; |
V173= Cnil; |
1981 |
|
{object V174; |
1982 |
register object V175; |
register object V175; |
1983 |
base[7]= V138; |
register object V176; |
1984 |
|
base[7]= V139; |
1985 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1986 |
Lpackagep(); |
Lpackagep(); |
1987 |
vs_top=sup; |
vs_top=sup; |
1988 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1989 |
goto T677;} |
goto T672;} |
1990 |
V173= V138; |
V174= V139; |
1991 |
goto T675; |
goto T670; |
1992 |
goto T677; |
goto T672; |
1993 |
T677:; |
T672:; |
1994 |
base[7]= coerce_to_string(V138); |
base[7]= coerce_to_string(V139); |
1995 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1996 |
Lfind_package(); |
Lfind_package(); |
1997 |
vs_top=sup; |
vs_top=sup; |
1998 |
V173= vs_base[0]; |
V174= vs_base[0]; |
1999 |
goto T675; |
goto T670; |
2000 |
T675:; |
T670:; |
|
V174= Cnil; |
|
2001 |
V175= Cnil; |
V175= Cnil; |
2002 |
{object V177; |
V176= Cnil; |
2003 |
register object V178; |
{object V178; |
2004 |
base[9]= (V173); |
register object V179; |
2005 |
|
base[9]= (V174); |
2006 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2007 |
Lpackage_use_list(); |
Lpackage_use_list(); |
2008 |
vs_top=sup; |
vs_top=sup; |
2009 |
V179= vs_base[0]; |
V180= vs_base[0]; |
2010 |
V177= make_cons((V173),V179); |
V178= make_cons((V174),V180); |
2011 |
V178= CMPcar((V177)); |
V179= CMPcar((V178)); |
2012 |
goto T686; |
goto T681; |
2013 |
T686:; |
T681:; |
2014 |
if(!(((V177))==Cnil)){ |
if(!(((V178))==Cnil)){ |
2015 |
goto T687;} |
goto T682;} |
2016 |
V174= Cnil; |
V175= Cnil; |
2017 |
goto T674; |
goto T669; |
2018 |
goto T687; |
goto T682; |
2019 |
T687:; |
T682:; |
2020 |
{long V180; |
{long V181; |
2021 |
long V181; |
long V182; |
2022 |
base[9]= (V178); |
base[9]= (V179); |
2023 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2024 |
(void) (*Lnk115)(); |
(void) (*Lnk115)(); |
2025 |
if(vs_base>=vs_top){vs_top=sup;goto T696;} |
if(vs_base>=vs_top){vs_top=sup;goto T691;} |
|
V180= fix(vs_base[0]); |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T697;} |
|
2026 |
V181= fix(vs_base[0]); |
V181= fix(vs_base[0]); |
2027 |
|
vs_base++; |
2028 |
|
if(vs_base>=vs_top){vs_top=sup;goto T692;} |
2029 |
|
V182= fix(vs_base[0]); |
2030 |
vs_top=sup; |
vs_top=sup; |
2031 |
goto T698; |
goto T693; |
2032 |
goto T696; |
goto T691; |
2033 |
T696:; |
T691:; |
|
V180= fix(Cnil); |
|
|
goto T697; |
|
|
T697:; |
|
2034 |
V181= fix(Cnil); |
V181= fix(Cnil); |
2035 |
goto T698; |
goto T692; |
2036 |
T698:; |
T692:; |
2037 |
if(((V173))==((V178))){ |
V182= fix(Cnil); |
|
goto T699;} |
|
|
V181= 0; |
|
|
goto T699; |
|
|
T699:; |
|
|
{object V182; |
|
|
register object V183; |
|
|
V184 = CMPmake_fixnum(V181); |
|
|
V185 = CMPmake_fixnum(V180); |
|
|
V182= number_plus(V184,V185); |
|
|
V183= small_fixnum(0); |
|
|
goto T706; |
|
|
T706:; |
|
|
if(!(number_compare((V183),(V182))>=0)){ |
|
|
goto T707;} |
|
2038 |
goto T693; |
goto T693; |
2039 |
goto T707; |
T693:; |
2040 |
T707:; |
if(((V174))==((V179))){ |
2041 |
|
goto T694;} |
2042 |
|
V182= 0; |
2043 |
|
goto T694; |
2044 |
|
T694:; |
2045 |
|
{object V183; |
2046 |
|
register object V184; |
2047 |
|
V185 = CMPmake_fixnum(V182); |
2048 |
V186 = CMPmake_fixnum(V181); |
V186 = CMPmake_fixnum(V181); |
2049 |
if(!(number_compare((V183),V186)<0)){ |
V183= number_plus(V185,V186); |
2050 |
goto T716;} |
V184= small_fixnum(0); |
2051 |
base[10]= (V178); |
goto T701; |
2052 |
base[11]= (V183); |
T701:; |
2053 |
|
if(!(number_compare((V184),(V183))>=0)){ |
2054 |
|
goto T702;} |
2055 |
|
goto T688; |
2056 |
|
goto T702; |
2057 |
|
T702:; |
2058 |
|
V187 = CMPmake_fixnum(V182); |
2059 |
|
if(!(number_compare((V184),V187)<0)){ |
2060 |
|
goto T711;} |
2061 |
|
base[10]= (V179); |
2062 |
|
base[11]= (V184); |
2063 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
2064 |
siLpackage_internal(); |
siLpackage_internal(); |
2065 |
vs_top=sup; |
vs_top=sup; |
2066 |
V175= vs_base[0]; |
V176= vs_base[0]; |
2067 |
goto T714; |
goto T709; |
2068 |
goto T716; |
goto T711; |
2069 |
T716:; |
T711:; |
2070 |
base[10]= (V178); |
base[10]= (V179); |
2071 |
V187 = CMPmake_fixnum(V181); |
V188 = CMPmake_fixnum(V182); |
2072 |
base[11]= number_minus((V183),V187); |
base[11]= number_minus((V184),V188); |
2073 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
2074 |
siLpackage_external(); |
siLpackage_external(); |
2075 |
vs_top=sup; |
vs_top=sup; |
2076 |
V175= vs_base[0]; |
V176= vs_base[0]; |
2077 |
goto T714; |
goto T709; |
2078 |
T714:; |
T709:; |
2079 |
goto T712; |
goto T707; |
2080 |
T712:; |
T707:; |
2081 |
if(((V175))!=Cnil){ |
if(((V176))!=Cnil){ |
2082 |
goto T722;} |
goto T717;} |
2083 |
goto T713; |
goto T708; |
2084 |
goto T722; |
goto T717; |
2085 |
T722:; |
T717:; |
2086 |
V174= CMPcar((V175)); |
V175= CMPcar((V176)); |
2087 |
if(((V178))==((V173))){ |
if(((V179))==((V174))){ |
2088 |
goto T728;} |
goto T723;} |
2089 |
base[11]= symbol_name((V174)); |
base[11]= symbol_name((V175)); |
2090 |
base[12]= (V173); |
base[12]= (V174); |
2091 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
2092 |
Lfind_symbol(); |
Lfind_symbol(); |
2093 |
Llist(); |
Llist(); |
2096 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2097 |
Llast(); |
Llast(); |
2098 |
vs_top=sup; |
vs_top=sup; |
2099 |
V188= vs_base[0]; |
V189= vs_base[0]; |
2100 |
if(!((VV[82])==(CMPcar(V188)))){ |
if(!((VV[82])==(CMPcar(V189)))){ |
2101 |
goto T727;} |
goto T722;} |
2102 |
goto T728; |
goto T723; |
2103 |
T728:; |
T723:; |
2104 |
base[10]= (V174); |
base[10]= (V175); |
2105 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2106 |
Lsymbol_package(); |
Lsymbol_package(); |
2107 |
vs_top=sup; |
vs_top=sup; |
2108 |
V189= vs_base[0]; |
V190= vs_base[0]; |
2109 |
if((V189)==((V138))){ |
if((V190)==((V139))){ |
2110 |
goto T737;} |
goto T732;} |
2111 |
V172= make_cons(V174,(V172)); |
V173= make_cons(V175,(V173)); |
2112 |
goto T737; |
goto T732; |
2113 |
T737:; |
T732:; |
2114 |
goto T727; |
goto T722; |
2115 |
T727:; |
T722:; |
2116 |
V175= CMPcdr((V175)); |
V176= CMPcdr((V176)); |
2117 |
goto T712; |
goto T707; |
2118 |
goto T713; |
goto T708; |
2119 |
T713:; |
T708:; |
2120 |
goto T710; |
goto T705; |
2121 |
goto T710; |
goto T705; |
2122 |
T710:; |
T705:; |
2123 |
V183= one_plus((V183)); |
V184= one_plus((V184)); |
2124 |
goto T706;}} |
goto T701;}} |
2125 |
goto T693; |
goto T688; |
2126 |
T693:; |
T688:; |
2127 |
V177= CMPcdr((V177)); |
V178= CMPcdr((V178)); |
2128 |
V178= CMPcar((V177)); |
V179= CMPcar((V178)); |
2129 |
goto T686;}} |
goto T681;}} |
2130 |
goto T674; |
goto T669; |
2131 |
T674:; |
T669:; |
2132 |
base[7]= list(2,VV[79],list(2,VV[36],(V172))); |
base[7]= list(2,VV[79],list(2,VV[36],(V173))); |
2133 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2134 |
L29(base); |
L29(base); |
2135 |
vs_top=sup; |
vs_top=sup; |
2136 |
bds_unwind1; |
bds_unwind1; |
2137 |
goto T555;}} |
goto T550;}} |
2138 |
goto T640; |
goto T635; |
2139 |
T640:; |
T635:; |
2140 |
FEerror("The ECASE key value ~s is illegal.",1,V141); |
FEerror("The ECASE key value ~s is illegal.",1,V142); |
|
goto T555;} |
|
|
goto T555; |
|
|
T555:; |
|
|
V137= CMPcdr((V137)); |
|
|
V138= CMPcar((V137)); |
|
2141 |
goto T550;} |
goto T550;} |
2142 |
|
goto T550; |
2143 |
|
T550:; |
2144 |
|
V138= CMPcdr((V138)); |
2145 |
|
V139= CMPcar((V138)); |
2146 |
|
goto T545;} |
2147 |
} |
} |
2148 |
} |
} |
2149 |
} |
} |
2154 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2155 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM29; VC29 |
2156 |
vs_check; |
vs_check; |
2157 |
{object V191; |
{object V192; |
2158 |
V191=(base[0]); |
V192=(base[0]); |
2159 |
vs_top=sup; |
vs_top=sup; |
2160 |
goto TTL; |
goto TTL; |
2161 |
TTL:; |
TTL:; |
2162 |
base[1]= base0[0]; |
base[1]= base0[0]; |
2163 |
base[2]= VV[83]; |
base[2]= VV[83]; |
2164 |
base[3]= (V191); |
base[3]= (V192); |
2165 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2166 |
Lformat(); |
Lformat(); |
2167 |
return; |
return; |
2174 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2175 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
2176 |
vs_check; |
vs_check; |
2177 |
{object V192; |
{object V193; |
2178 |
object V193; |
object V194; |
2179 |
V192=(base[0]); |
V193=(base[0]); |
2180 |
V193=(base[1]); |
V194=(base[1]); |
2181 |
vs_top=sup; |
vs_top=sup; |
2182 |
base[2]= (V192); |
base[2]= (V193); |
2183 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
2184 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2185 |
Lgethash(); |
Lgethash(); |
2186 |
vs_top=sup; |
vs_top=sup; |
2187 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2188 |
goto T764;} |
goto T759;} |
2189 |
{register object x= STREF(object,(V193),4),V194= VV[65]; |
{register object x= STREF(object,(V194),4),V195= VV[65]; |
2190 |
while(V194!=Cnil) |
while(V195!=Cnil) |
2191 |
if(x==(V194->c.c_car)){ |
if(x==(V195->c.c_car)){ |
2192 |
goto T769; |
goto T764; |
2193 |
}else V194=V194->c.c_cdr; |
}else V195=V195->c.c_cdr; |
2194 |
goto T764;} |
goto T759;} |
2195 |
goto T769; |
goto T764; |
2196 |
T769:; |
T764:; |
2197 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
2198 |
goto T771;} |
goto T766;} |
2199 |
{object V195; |
{object V196; |
2200 |
object V196; |
object V197; |
|
V195= (base0[0]->c.c_car); |
|
|
(base0[0]->c.c_car)= make_cons((V192),Cnil); |
|
2201 |
V196= (base0[0]->c.c_car); |
V196= (base0[0]->c.c_car); |
2202 |
((V195))->c.c_cdr = (V196); |
(base0[0]->c.c_car)= make_cons((V193),Cnil); |
2203 |
base[3]= (V196); |
V197= (base0[0]->c.c_car); |
2204 |
|
((V196))->c.c_cdr = (V197); |
2205 |
|
base[3]= (V197); |
2206 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2207 |
return;} |
return;} |
2208 |
goto T771; |
goto T766; |
2209 |
T771:; |
T766:; |
2210 |
(base0[0]->c.c_car)= make_cons((V192),Cnil); |
(base0[0]->c.c_car)= make_cons((V193),Cnil); |
2211 |
(base0[1]->c.c_car)= (base0[0]->c.c_car); |
(base0[1]->c.c_car)= (base0[0]->c.c_car); |
2212 |
base[2]= (base0[1]->c.c_car); |
base[2]= (base0[1]->c.c_car); |
2213 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2214 |
return; |
return; |
2215 |
goto T764; |
goto T759; |
2216 |
T764:; |
T759:; |
2217 |
base[2]= Cnil; |
base[2]= Cnil; |
2218 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2219 |
return; |
return; |
2226 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2227 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
2228 |
vs_check; |
vs_check; |
2229 |
{object V197; |
{object V198; |
2230 |
object V198; |
object V199; |
2231 |
V197=(base[0]); |
V198=(base[0]); |
2232 |
V198=(base[1]); |
V199=(base[1]); |
2233 |
vs_top=sup; |
vs_top=sup; |
2234 |
{register object V199; |
{register object V200; |
2235 |
register object V200; |
register object V201; |
2236 |
V200= STREF(object,(V198),16); |
V201= STREF(object,(V199),16); |
2237 |
V199= Cnil; |
V200= Cnil; |
2238 |
goto T782; |
goto T777; |
2239 |
T782:; |
T777:; |
2240 |
if(((V200))==Cnil){ |
if(((V201))==Cnil){ |
2241 |
goto T785;} |
goto T780;} |
2242 |
goto T784; |
goto T779; |
2243 |
goto T785; |
goto T780; |
2244 |
T785:; |
T780:; |
2245 |
goto T783; |
goto T778; |
2246 |
goto T784; |
goto T779; |
2247 |
T784:; |
T779:; |
|
{register object V201; |
|
|
V201= CMPcar((V200)); |
|
|
V199= (V201);} |
|
2248 |
{register object V202; |
{register object V202; |
2249 |
register object V203; |
V202= CMPcar((V201)); |
2250 |
|
V200= (V202);} |
2251 |
|
{register object V203; |
2252 |
register object V204; |
register object V204; |
2253 |
V202= (V199); |
register object V205; |
2254 |
V203= (base0[0]->c.c_car); |
V203= (V200); |
2255 |
V204= Ct; |
V204= (base0[0]->c.c_car); |
2256 |
base[2]= (V202); |
V205= Ct; |
2257 |
base[3]= (V203); |
base[2]= (V203); |
2258 |
base[4]= (V204); |
base[3]= (V204); |
2259 |
|
base[4]= (V205); |
2260 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2261 |
siLhash_set(); |
siLhash_set(); |
2262 |
vs_top=sup;} |
vs_top=sup;} |
2263 |
V200= CMPcdr((V200)); |
V201= CMPcdr((V201)); |
2264 |
goto T782; |
goto T777; |
2265 |
goto T783; |
goto T778; |
2266 |
T783:; |
T778:; |
2267 |
goto T779; |
goto T774; |
2268 |
goto T779;} |
goto T774;} |
2269 |
goto T779; |
goto T774; |
2270 |
T779:; |
T774:; |
2271 |
{register object V205; |
{register object V206; |
2272 |
register object V206; |
register object V207; |
2273 |
V206= STREF(object,(V198),32); |
V207= STREF(object,(V199),32); |
2274 |
V205= Cnil; |
V206= Cnil; |
2275 |
goto T802; |
goto T797; |
2276 |
T802:; |
T797:; |
2277 |
if(((V206))==Cnil){ |
if(((V207))==Cnil){ |
2278 |
goto T805;} |
goto T800;} |
2279 |
goto T804; |
goto T799; |
2280 |
goto T805; |
goto T800; |
2281 |
T805:; |
T800:; |
2282 |
goto T803; |
goto T798; |
2283 |
goto T804; |
goto T799; |
2284 |
T804:; |
T799:; |
|
{register object V207; |
|
|
V207= CMPcar((V206)); |
|
|
V205= (V207);} |
|
2285 |
{register object V208; |
{register object V208; |
2286 |
register object V209; |
V208= CMPcar((V207)); |
2287 |
|
V206= (V208);} |
2288 |
|
{register object V209; |
2289 |
register object V210; |
register object V210; |
2290 |
V208= (V205); |
register object V211; |
2291 |
V209= (base0[0]->c.c_car); |
V209= (V206); |
2292 |
V210= Ct; |
V210= (base0[0]->c.c_car); |
2293 |
base[2]= (V208); |
V211= Ct; |
2294 |
base[3]= (V209); |
base[2]= (V209); |
2295 |
base[4]= (V210); |
base[3]= (V210); |
2296 |
|
base[4]= (V211); |
2297 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2298 |
siLhash_set(); |
siLhash_set(); |
2299 |
vs_top=sup;} |
vs_top=sup;} |
2300 |
V206= CMPcdr((V206)); |
V207= CMPcdr((V207)); |
2301 |
goto T802; |
goto T797; |
2302 |
goto T803; |
goto T798; |
2303 |
T803:; |
T798:; |
2304 |
base[2]= Cnil; |
base[2]= Cnil; |
2305 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2306 |
return; |
return; |
2316 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2317 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
2318 |
vs_check; |
vs_check; |
2319 |
{object V211; |
{object V212; |
2320 |
object V212; |
object V213; |
2321 |
V211=(base[0]); |
V212=(base[0]); |
2322 |
V212=(base[1]); |
V213=(base[1]); |
2323 |
vs_top=sup; |
vs_top=sup; |
2324 |
(base0[0]->c.c_car)= one_plus((base0[0]->c.c_car)); |
(base0[0]->c.c_car)= one_plus((base0[0]->c.c_car)); |
2325 |
base[2]= Cnil; |
base[2]= Cnil; |
2334 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2335 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM33; VC33 |
2336 |
vs_check; |
vs_check; |
2337 |
{object V213; |
{object V214; |
2338 |
object V214; |
object V215; |
2339 |
V213=(base[0]); |
V214=(base[0]); |
2340 |
V214=(base[1]); |
V215=(base[1]); |
2341 |
vs_top=sup; |
vs_top=sup; |
2342 |
{register object V215; |
{register object V216; |
2343 |
register object V216; |
register object V217; |
2344 |
V216= STREF(object,(V214),16); |
V217= STREF(object,(V215),16); |
2345 |
V215= Cnil; |
V216= Cnil; |
2346 |
goto T827; |
goto T822; |
2347 |
T827:; |
T822:; |
2348 |
if(((V216))==Cnil){ |
if(((V217))==Cnil){ |
2349 |
goto T830;} |
goto T825;} |
2350 |
goto T829; |
goto T824; |
2351 |
goto T830; |
goto T825; |
2352 |
T830:; |
T825:; |
2353 |
goto T828; |
goto T823; |
2354 |
goto T829; |
goto T824; |
2355 |
T829:; |
T824:; |
2356 |
{register object V217; |
{register object V218; |
2357 |
V217= CMPcar((V216)); |
V218= CMPcar((V217)); |
2358 |
V215= (V217);} |
V216= (V218);} |
2359 |
base[2]= (V215); |
base[2]= (V216); |
2360 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2361 |
Lfboundp(); |
Lfboundp(); |
2362 |
vs_top=sup; |
vs_top=sup; |
2363 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2364 |
goto T835;} |
goto T830;} |
2365 |
base[2]= (V215); |
base[2]= (V216); |
2366 |
base[3]= (VV[9]->s.s_dbind); |
base[3]= (VV[9]->s.s_dbind); |
2367 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2368 |
Lgethash(); |
Lgethash(); |
2369 |
vs_top=sup; |
vs_top=sup; |
2370 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2371 |
goto T835;} |
goto T830;} |
2372 |
{object V218 =((V215))->s.s_plist; |
{object V219 =((V216))->s.s_plist; |
2373 |
object ind= VV[61]; |
object ind= VV[61]; |
|
while(V218!=Cnil){ |
|
|
if(V218->c.c_car==ind){ |
|
|
if(((V218->c.c_cdr->c.c_car))!=Cnil){ |
|
|
goto T835;} |
|
|
goto T845; |
|
|
}else V218=V218->c.c_cdr->c.c_cdr;}} |
|
|
goto T845; |
|
|
T845:; |
|
|
{object V219 =((V215))->s.s_plist; |
|
|
object ind= VV[62]; |
|
2374 |
while(V219!=Cnil){ |
while(V219!=Cnil){ |
2375 |
if(V219->c.c_car==ind){ |
if(V219->c.c_car==ind){ |
2376 |
if(((V219->c.c_cdr->c.c_car))!=Cnil){ |
if(((V219->c.c_cdr->c.c_car))!=Cnil){ |
2377 |
goto T835;} |
goto T830;} |
2378 |
goto T847; |
goto T840; |
2379 |
}else V219=V219->c.c_cdr->c.c_cdr;}} |
}else V219=V219->c.c_cdr->c.c_cdr;}} |
2380 |
goto T847; |
goto T840; |
2381 |
T847:; |
T840:; |
2382 |
{object V220 =((V215))->s.s_plist; |
{object V220 =((V216))->s.s_plist; |
2383 |
object ind= VV[8]; |
object ind= VV[62]; |
2384 |
while(V220!=Cnil){ |
while(V220!=Cnil){ |
2385 |
if(V220->c.c_car==ind){ |
if(V220->c.c_car==ind){ |
2386 |
if(((V220->c.c_cdr->c.c_car))!=Cnil){ |
if(((V220->c.c_cdr->c.c_car))!=Cnil){ |
2387 |
goto T835;} |
goto T830;} |
2388 |
goto T848; |
goto T842; |
2389 |
}else V220=V220->c.c_cdr->c.c_cdr;}} |
}else V220=V220->c.c_cdr->c.c_cdr;}} |
2390 |
goto T848; |
goto T842; |
2391 |
T848:; |
T842:; |
2392 |
{register object V221; |
{object V221 =((V216))->s.s_plist; |
2393 |
V221= (V215); |
object ind= VV[8]; |
2394 |
base[2]= (V221); |
while(V221!=Cnil){ |
2395 |
|
if(V221->c.c_car==ind){ |
2396 |
|
if(((V221->c.c_cdr->c.c_car))!=Cnil){ |
2397 |
|
goto T830;} |
2398 |
|
goto T843; |
2399 |
|
}else V221=V221->c.c_cdr->c.c_cdr;}} |
2400 |
|
goto T843; |
2401 |
|
T843:; |
2402 |
|
{register object V222; |
2403 |
|
V222= (V216); |
2404 |
|
base[2]= (V222); |
2405 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
2406 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2407 |
Ladjoin(); |
Ladjoin(); |
2408 |
vs_top=sup; |
vs_top=sup; |
2409 |
(base0[0]->c.c_car)= vs_base[0];} |
(base0[0]->c.c_car)= vs_base[0];} |
2410 |
goto T835; |
goto T830; |
2411 |
T835:; |
T830:; |
2412 |
V216= CMPcdr((V216)); |
V217= CMPcdr((V217)); |
2413 |
goto T827; |
goto T822; |
2414 |
goto T828; |
goto T823; |
2415 |
T828:; |
T823:; |
2416 |
base[2]= Cnil; |
base[2]= Cnil; |
2417 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2418 |
return; |
return; |
2428 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2429 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
2430 |
vs_check; |
vs_check; |
2431 |
{object V222; |
{object V223; |
2432 |
object V223; |
object V224; |
2433 |
V222=(base[0]); |
V223=(base[0]); |
2434 |
V223=(base[1]); |
V224=(base[1]); |
2435 |
vs_top=sup; |
vs_top=sup; |
2436 |
base[2]= print((V223),(base0[0]->c.c_car)); |
base[2]= print((V224),(base0[0]->c.c_car)); |
2437 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2438 |
return; |
return; |
2439 |
} |
} |
2445 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2446 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
2447 |
vs_check; |
vs_check; |
2448 |
{object V224; |
{object V225; |
2449 |
object V225; |
object V226; |
2450 |
V224=(base[0]); |
V225=(base[0]); |
2451 |
V225=(base[1]); |
V226=(base[1]); |
2452 |
vs_top=sup; |
vs_top=sup; |
2453 |
V226= list(2,VV[35],list(2,VV[36],listA(3,VV[37],make_cons(VV[38],(V224)),(V225)))); |
V227= list(2,VV[35],list(2,VV[36],listA(3,VV[37],make_cons(VV[38],(V225)),(V226)))); |
2454 |
base[2]= print(/* INLINE-ARGS */V226,(base0[1]->c.c_car)); |
base[2]= print(/* INLINE-ARGS */V227,(base0[1]->c.c_car)); |
2455 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2456 |
return; |
return; |
2457 |
} |
} |
2463 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2464 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
2465 |
vs_check; |
vs_check; |
2466 |
{object V227; |
{object V228; |
2467 |
object V228; |
object V229; |
2468 |
V227=(base[0]); |
V228=(base[0]); |
2469 |
V228=(base[1]); |
V229=(base[1]); |
2470 |
vs_top=sup; |
vs_top=sup; |
2471 |
{object V229; |
{object V230; |
2472 |
if(!(eql(small_fixnum(1),STREF(object,(V228),28)))){ |
if(!(eql(small_fixnum(1),STREF(object,(V229),28)))){ |
2473 |
goto T861;} |
goto T856;} |
2474 |
V229= Ct; |
V230= Ct; |
2475 |
goto T860; |
goto T855; |
2476 |
goto T861; |
goto T856; |
2477 |
T861:; |
T856:; |
2478 |
V229= ((((STREF(object,(V228),4))==(VV[34])?Ct:Cnil))==Cnil?Ct:Cnil); |
V230= ((((STREF(object,(V229),4))==(VV[34])?Ct:Cnil))==Cnil?Ct:Cnil); |
2479 |
goto T860; |
goto T855; |
2480 |
T860:; |
T855:; |
2481 |
if(((V229))==Cnil){ |
if(((V230))==Cnil){ |
2482 |
goto T864;} |
goto T859;} |
2483 |
base[2]= (V229); |
base[2]= (V230); |
2484 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2485 |
return; |
return; |
2486 |
goto T864; |
goto T859; |
2487 |
T864:; |
T859:; |
2488 |
base[2]= (V227); |
base[2]= (V228); |
2489 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2490 |
(void) (*Lnk97)(); |
(void) (*Lnk97)(); |
2491 |
vs_top=sup; |
vs_top=sup; |
2492 |
(base0[1]->c.c_car)= vs_base[0]; |
(base0[1]->c.c_car)= vs_base[0]; |
2493 |
(base0[0]->c.c_car)= STREF(object,(V228),24); |
(base0[0]->c.c_car)= STREF(object,(V229),24); |
2494 |
{object V231; |
{object V232; |
|
object V232; |
|
2495 |
object V233; |
object V233; |
2496 |
V231= list(2,(base0[0]->c.c_car),(base0[1]->c.c_car)); |
object V234; |
2497 |
V232= (base0[2]->c.c_car); |
V232= list(2,(base0[0]->c.c_car),(base0[1]->c.c_car)); |
2498 |
base[4]= (V231); |
V233= (base0[2]->c.c_car); |
2499 |
base[5]= (V232); |
base[4]= (V232); |
2500 |
|
base[5]= (V233); |
2501 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2502 |
Lgethash(); |
Lgethash(); |
2503 |
vs_top=sup; |
vs_top=sup; |
2504 |
V234= vs_base[0]; |
V235= vs_base[0]; |
2505 |
V233= make_cons(V227,V234); |
V234= make_cons(V228,V235); |
2506 |
base[4]= (V231); |
base[4]= (V232); |
2507 |
base[5]= (V232); |
base[5]= (V233); |
2508 |
base[6]= (V233); |
base[6]= (V234); |
2509 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2510 |
siLhash_set(); |
siLhash_set(); |
2511 |
return;}} |
return;}} |
2518 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2519 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
2520 |
vs_check; |
vs_check; |
2521 |
{object V235; |
{object V236; |
2522 |
object V236; |
object V237; |
2523 |
V235=(base[0]); |
V236=(base[0]); |
2524 |
V236=(base[1]); |
V237=(base[1]); |
2525 |
vs_top=sup; |
vs_top=sup; |
2526 |
V237= Ct; |
V238= Ct; |
2527 |
STSET(object,(V236),28, small_fixnum(1)); |
STSET(object,(V237),28, small_fixnum(1)); |
2528 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
2529 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2530 |
return; |
return; |
2537 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2538 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
2539 |
vs_check; |
vs_check; |
2540 |
{object V238; |
{object V239; |
2541 |
object V239; |
object V240; |
2542 |
V238=(base[0]); |
V239=(base[0]); |
2543 |
V239=(base[1]); |
V240=(base[1]); |
2544 |
vs_top=sup; |
vs_top=sup; |
2545 |
{register object x= (base0[2]->c.c_car),V240= STREF(object,(V239),16); |
{register object x= (base0[2]->c.c_car),V241= STREF(object,(V240),16); |
|
while(V240!=Cnil) |
|
|
if(eql(x,V240->c.c_car)){ |
|
|
goto T883; |
|
|
}else V240=V240->c.c_cdr;} |
|
|
{register object x= (base0[2]->c.c_car),V241= STREF(object,(V239),32); |
|
2546 |
while(V241!=Cnil) |
while(V241!=Cnil) |
2547 |
if(eql(x,V241->c.c_car)){ |
if(eql(x,V241->c.c_car)){ |
2548 |
goto T887; |
goto T878; |
2549 |
}else V241=V241->c.c_cdr; |
}else V241=V241->c.c_cdr;} |
2550 |
goto T884;} |
{register object x= (base0[2]->c.c_car),V242= STREF(object,(V240),32); |
2551 |
goto T887; |
while(V242!=Cnil) |
2552 |
T887:; |
if(eql(x,V242->c.c_car)){ |
2553 |
goto T883; |
goto T882; |
2554 |
T883:; |
}else V242=V242->c.c_cdr; |
2555 |
|
goto T879;} |
2556 |
|
goto T882; |
2557 |
|
T882:; |
2558 |
|
goto T878; |
2559 |
|
T878:; |
2560 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
2561 |
goto T889;} |
goto T884;} |
2562 |
{object V242; |
{object V243; |
2563 |
object V243; |
object V244; |
|
V242= (base0[0]->c.c_car); |
|
|
(base0[0]->c.c_car)= make_cons((V238),Cnil); |
|
2564 |
V243= (base0[0]->c.c_car); |
V243= (base0[0]->c.c_car); |
2565 |
((V242))->c.c_cdr = (V243); |
(base0[0]->c.c_car)= make_cons((V239),Cnil); |
2566 |
base[3]= (V243); |
V244= (base0[0]->c.c_car); |
2567 |
|
((V243))->c.c_cdr = (V244); |
2568 |
|
base[3]= (V244); |
2569 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2570 |
return;} |
return;} |
2571 |
goto T889; |
goto T884; |
2572 |
T889:; |
T884:; |
2573 |
(base0[0]->c.c_car)= make_cons((V238),Cnil); |
(base0[0]->c.c_car)= make_cons((V239),Cnil); |
2574 |
(base0[1]->c.c_car)= (base0[0]->c.c_car); |
(base0[1]->c.c_car)= (base0[0]->c.c_car); |
2575 |
base[2]= (base0[1]->c.c_car); |
base[2]= (base0[1]->c.c_car); |
2576 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2577 |
return; |
return; |
2578 |
goto T884; |
goto T879; |
2579 |
T884:; |
T879:; |
2580 |
base[2]= Cnil; |
base[2]= Cnil; |
2581 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2582 |
return; |
return; |
2595 |
static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* SETUP-SYS-PROCLAIMS */ |
static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* SETUP-SYS-PROCLAIMS */ |
2596 |
static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* NO-MAKE-PROCLAIMS-HACK */ |
static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* NO-MAKE-PROCLAIMS-HACK */ |
2597 |
static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* LOAD */ |
static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* LOAD */ |
2598 |
static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* CONCATENATE */ |
static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[99],(void **)(void *)&LnkLI99,first,ap);va_end(ap);return V1;} /* CONCATENATE */ |
2599 |
static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* GET-VALUE-TYPE */ |
static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* GET-VALUE-TYPE */ |
2600 |
static void LnkT96(){ call_or_link(VV[96],(void **)(void *)&Lnk96);} /* GET-VALUE-TYPE1 */ |
static void LnkT96(){ call_or_link(VV[96],(void **)(void *)&Lnk96);} /* GET-VALUE-TYPE1 */ |
2601 |
static void LnkT95(){ call_or_link(VV[95],(void **)(void *)&Lnk95);} /* GET-VAR-TYPES */ |
static void LnkT95(){ call_or_link(VV[95],(void **)(void *)&Lnk95);} /* GET-VAR-TYPES */ |