1253 |
goto T321; |
goto T321; |
1254 |
goto T322; |
goto T322; |
1255 |
T322:;} |
T322:;} |
1256 |
base[0]= make_cons(Cnil,Cnil); |
{object V243; |
1257 |
base[1]= V234; |
V243= make_cons(Cnil,Cnil); |
1258 |
vs_top=(vs_base=base+0)+2; |
V244= ({object _tmp=get(VV[245],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[245])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[245])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
1259 |
(void) (*Lnk247)(Lclptr247); |
V245 = (V243); |
1260 |
vs_top=sup; |
V246 = V234; |
1261 |
V240= vs_base[0]; |
V240= ( |
1262 |
|
V247 = V244, |
1263 |
|
(type_of(V247) == t_sfun ?(*((V247)->sfn.sfn_self)): |
1264 |
|
(fcall.argd=2,type_of(V247)==t_vfun) ? |
1265 |
|
(*((V247)->sfn.sfn_self)): |
1266 |
|
(fcall.fun=(V247),fcalln))(V245,V246));} |
1267 |
goto T321; |
goto T321; |
1268 |
T321:; |
T321:; |
1269 |
V239= (V235); |
V239= (V235); |
1274 |
goto T327; |
goto T327; |
1275 |
goto T331; |
goto T331; |
1276 |
T331:; |
T331:; |
1277 |
{register object V243; |
{register object V248; |
1278 |
register object V244; |
register object V249; |
1279 |
{object V245; |
{object V250; |
1280 |
V245= CMPcar((V239)); |
V250= CMPcar((V239)); |
1281 |
V239= CMPcdr((V239)); |
V239= CMPcdr((V239)); |
1282 |
V243= (V245);} |
V248= (V250);} |
1283 |
V244= (V240); |
V249= (V240); |
1284 |
if(((V236))==Cnil){ |
if(((V236))==Cnil){ |
1285 |
goto T338;} |
goto T338;} |
1286 |
if(!(((V243))==(VV[2]))){ |
if(!(((V248))==(VV[2]))){ |
1287 |
goto T342;} |
goto T342;} |
1288 |
{object V246; |
{object V251; |
1289 |
V246= CMPcar((V239)); |
V251= CMPcar((V239)); |
1290 |
V239= CMPcdr((V239)); |
V239= CMPcdr((V239)); |
1291 |
V237= (V246);} |
V237= (V251);} |
1292 |
goto T338; |
goto T338; |
1293 |
goto T342; |
goto T342; |
1294 |
T342:; |
T342:; |
1295 |
{object V247; |
{object V252; |
1296 |
V247= CMPcar((V239)); |
V252= CMPcar((V239)); |
1297 |
V239= CMPcdr((V239));} |
V239= CMPcdr((V239));} |
1298 |
goto T338; |
goto T338; |
1299 |
T338:; |
T338:; |
1300 |
goto T352; |
goto T352; |
1301 |
T352:; |
T352:; |
1302 |
{register object V248; |
{register object V253; |
1303 |
V248= CMPcdr((V244)); |
V253= CMPcdr((V249)); |
1304 |
if(((V248))!=Cnil){ |
if(((V253))!=Cnil){ |
1305 |
goto T355;} |
goto T355;} |
1306 |
V240= make_cons(Cnil,Cnil); |
V240= make_cons(Cnil,Cnil); |
1307 |
{object V250; |
{object V255; |
1308 |
V251= make_cons((V243),(V240)); |
V256= make_cons((V248),(V240)); |
1309 |
V250= make_cons(/* INLINE-ARGS */V251,Cnil); |
V255= make_cons(/* INLINE-ARGS */V256,Cnil); |
1310 |
(V244)->c.c_cdr = (V250);} |
(V249)->c.c_cdr = (V255);} |
1311 |
goto T330; |
goto T330; |
1312 |
goto T355; |
goto T355; |
1313 |
T355:; |
T355:; |
1314 |
if(!(eql((V243),CMPcaar((V248))))){ |
if(!(eql((V248),CMPcaar((V253))))){ |
1315 |
goto T363;} |
goto T363;} |
1316 |
V240= CMPcdar((V248)); |
V240= CMPcdar((V253)); |
1317 |
goto T330; |
goto T330; |
1318 |
goto T363; |
goto T363; |
1319 |
T363:; |
T363:; |
1320 |
V244= (V248);} |
V249= (V253);} |
1321 |
goto T352;} |
goto T352;} |
1322 |
goto T330; |
goto T330; |
1323 |
T330:; |
T330:; |
1324 |
goto T329; |
goto T329; |
1325 |
goto T327; |
goto T327; |
1326 |
T327:;{object V252; |
T327:;{object V257; |
1327 |
V252= CMPcar((V240)); |
V257= CMPcar((V240)); |
1328 |
if(V252==Cnil)goto T372; |
if(V257==Cnil)goto T372; |
1329 |
V238= V252; |
V238= V257; |
1330 |
goto T371; |
goto T371; |
1331 |
goto T372; |
goto T372; |
1332 |
T372:;} |
T372:;} |
1333 |
{object V254; |
{object V259; |
1334 |
V254= (VFUN_NARGS=0,(*(LnkLI248))()); |
V259= (VFUN_NARGS=0,(*(LnkLI247))()); |
1335 |
(V240)->c.c_car = (V254); |
(V240)->c.c_car = (V259); |
1336 |
V238= (V254);} |
V238= (V259);} |
1337 |
goto T371; |
goto T371; |
1338 |
T371:;} |
T371:;} |
1339 |
goto T314; |
goto T314; |
1340 |
T314:; |
T314:; |
1341 |
{object V255; |
{object V260; |
1342 |
V255= STREF(object,(V238),4); |
V260= STREF(object,(V238),4); |
1343 |
V256 = (V255); |
V261 = (V260); |
1344 |
base[0]= (V234); |
base[0]= (V234); |
1345 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1346 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk243)(Lclptr243); |
1347 |
vs_top=sup; |
vs_top=sup; |
1348 |
V257= vs_base[0]; |
V262= vs_base[0]; |
1349 |
if((V256)==(V257)){ |
if((V261)==(V262)){ |
1350 |
goto T376;} |
goto T376;} |
1351 |
if(((V255))!=Cnil){ |
if(((V260))!=Cnil){ |
1352 |
goto T382;} |
goto T382;} |
1353 |
{register object V258; |
{register object V263; |
1354 |
object V259; |
object V264; |
1355 |
object V260; |
object V265; |
1356 |
V258= (V235); |
V263= (V235); |
1357 |
V259= make_cons(Cnil,Cnil); |
V264= make_cons(Cnil,Cnil); |
1358 |
V260= (V259); |
V265= (V264); |
1359 |
goto T390; |
goto T390; |
1360 |
T390:; |
T390:; |
1361 |
if(((V258))!=Cnil){ |
if(((V263))!=Cnil){ |
1362 |
goto T392;} |
goto T392;} |
1363 |
goto T388; |
goto T388; |
1364 |
goto T392; |
goto T392; |
1365 |
T392:; |
T392:; |
1366 |
{object V261; |
{object V266; |
1367 |
{object V262; |
{object V267; |
1368 |
V262= CMPcar((V258)); |
V267= CMPcar((V263)); |
1369 |
V258= CMPcdr((V258)); |
V263= CMPcdr((V263)); |
1370 |
V261= (V262);} |
V266= (V267);} |
1371 |
{object V264; |
{object V269; |
1372 |
V264= make_cons((V261),Cnil); |
V269= make_cons((V266),Cnil); |
1373 |
(V260)->c.c_cdr = (V264);}} |
(V265)->c.c_cdr = (V269);}} |
1374 |
V260= CMPcdr((V260)); |
V265= CMPcdr((V265)); |
1375 |
if(((V236))==Cnil){ |
if(((V236))==Cnil){ |
1376 |
goto T391;} |
goto T391;} |
1377 |
{object V265; |
{object V270; |
1378 |
V265= CMPcar((V258)); |
V270= CMPcar((V263)); |
1379 |
V258= CMPcdr((V258));} |
V263= CMPcdr((V263));} |
1380 |
goto T391; |
goto T391; |
1381 |
T391:; |
T391:; |
1382 |
goto T390; |
goto T390; |
1383 |
goto T388; |
goto T388; |
1384 |
T388:; |
T388:; |
1385 |
V266 = (V238); |
V271 = (V238); |
1386 |
V267= list(3,(V234),CMPcdr((V259)),(V237)); |
V272= list(3,(V234),CMPcdr((V264)),(V237)); |
1387 |
V268= Ct; |
V273= Ct; |
1388 |
STSET(object,V266,0, /* INLINE-ARGS */V267); |
STSET(object,V271,0, /* INLINE-ARGS */V272); |
1389 |
(void)(/* INLINE-ARGS */V267);} |
(void)(/* INLINE-ARGS */V272);} |
1390 |
goto T382; |
goto T382; |
1391 |
T382:; |
T382:; |
1392 |
(void)((*(LnkLI246))((V238)));} |
(void)((*(LnkLI246))((V238)));} |
1395 |
(VV[93]->s.s_dbind)= (V234); |
(VV[93]->s.s_dbind)= (V234); |
1396 |
(VV[94]->s.s_dbind)= (V235); |
(VV[94]->s.s_dbind)= (V235); |
1397 |
(VV[95]->s.s_dbind)= (V238); |
(VV[95]->s.s_dbind)= (V238); |
1398 |
{object V269 = (V238); |
{object V274 = (V238); |
1399 |
VMR30(V269)}} |
VMR30(V274)}} |
1400 |
va_end(ap); |
va_end(ap); |
1401 |
base[0]=base[0]; |
base[0]=base[0]; |
1402 |
return Cnil;} |
return Cnil;} |
1403 |
} |
} |
1404 |
/* local entry for function UPDATE-INITIALIZE-INFO-INTERNAL */ |
/* local entry for function UPDATE-INITIALIZE-INFO-INTERNAL */ |
1405 |
|
|
1406 |
static object LI31(V272,V273) |
static object LI31(V277,V278) |
1407 |
|
|
1408 |
register object V272;object V273; |
register object V277;object V278; |
1409 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1410 |
goto TTL; |
goto TTL; |
1411 |
TTL:; |
TTL:; |
1412 |
{register object V274; |
{register object V279; |
1413 |
V274= STREF(object,(V272),0); |
V279= STREF(object,(V277),0); |
1414 |
base[1]= CMPcar((V274)); |
base[1]= CMPcar((V279)); |
1415 |
base[2]= CMPcadr((V274)); |
base[2]= CMPcadr((V279)); |
1416 |
base[3]= CMPcaddr((V274)); |
base[3]= CMPcaddr((V279)); |
1417 |
{object V275= (V273); |
{object V280= (V278); |
1418 |
if((V275!= VV[67]) |
if((V280!= VV[67]) |
1419 |
&& (V275!= VV[69]))goto T421; |
&& (V280!= VV[69]))goto T421; |
1420 |
{object V276; |
{object V281; |
1421 |
object V277; |
object V282; |
1422 |
base[4]= base[1]; |
base[4]= base[1]; |
1423 |
base[5]= base[2]; |
base[5]= base[2]; |
1424 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1425 |
(void) (*Lnk249)(); |
(void) (*Lnk248)(); |
1426 |
if(vs_base>=vs_top){vs_top=sup;goto T425;} |
if(vs_base>=vs_top){vs_top=sup;goto T425;} |
1427 |
V276= vs_base[0]; |
V281= vs_base[0]; |
1428 |
vs_base++; |
vs_base++; |
1429 |
if(vs_base>=vs_top){vs_top=sup;goto T426;} |
if(vs_base>=vs_top){vs_top=sup;goto T426;} |
1430 |
V277= vs_base[0]; |
V282= vs_base[0]; |
1431 |
vs_top=sup; |
vs_top=sup; |
1432 |
goto T427; |
goto T427; |
1433 |
goto T425; |
goto T425; |
1434 |
T425:; |
T425:; |
1435 |
V276= Cnil; |
V281= Cnil; |
1436 |
goto T426; |
goto T426; |
1437 |
T426:; |
T426:; |
1438 |
V277= Cnil; |
V282= Cnil; |
1439 |
goto T427; |
goto T427; |
1440 |
T427:; |
T427:; |
1441 |
V278 = (V272); |
V283 = (V277); |
1442 |
V279 = (V276); |
V284 = (V281); |
1443 |
V280= Ct; |
V285= Ct; |
1444 |
STSET(object,V278,16, V279); |
STSET(object,V283,16, V284); |
1445 |
(void)(V279); |
(void)(V284); |
1446 |
V281 = (V272); |
V286 = (V277); |
1447 |
V282 = (V277); |
V287 = (V282); |
1448 |
V283= Ct; |
V288= Ct; |
1449 |
STSET(object,V281,24, V282); |
STSET(object,V286,24, V287); |
1450 |
(void)(V282); |
(void)(V287); |
1451 |
goto T416;} |
goto T416;} |
1452 |
goto T421; |
goto T421; |
1453 |
T421:; |
T421:; |
1454 |
if((V275!= VV[68]))goto T429; |
if((V280!= VV[68]))goto T429; |
1455 |
{object V284; |
{object V289; |
1456 |
object V285; |
object V290; |
1457 |
base[4]= base[1]; |
base[4]= base[1]; |
1458 |
base[5]= base[2]; |
base[5]= base[2]; |
1459 |
base[6]= Cnil; |
base[6]= Cnil; |
1460 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1461 |
(void) (*Lnk249)(); |
(void) (*Lnk248)(); |
1462 |
if(vs_base>=vs_top){vs_top=sup;goto T434;} |
if(vs_base>=vs_top){vs_top=sup;goto T434;} |
1463 |
V284= vs_base[0]; |
V289= vs_base[0]; |
1464 |
vs_base++; |
vs_base++; |
1465 |
if(vs_base>=vs_top){vs_top=sup;goto T435;} |
if(vs_base>=vs_top){vs_top=sup;goto T435;} |
1466 |
V285= vs_base[0]; |
V290= vs_base[0]; |
1467 |
vs_top=sup; |
vs_top=sup; |
1468 |
goto T436; |
goto T436; |
1469 |
goto T434; |
goto T434; |
1470 |
T434:; |
T434:; |
1471 |
V284= Cnil; |
V289= Cnil; |
1472 |
goto T435; |
goto T435; |
1473 |
T435:; |
T435:; |
1474 |
V285= Cnil; |
V290= Cnil; |
1475 |
goto T436; |
goto T436; |
1476 |
T436:; |
T436:; |
1477 |
V286 = (V272); |
V291 = (V277); |
1478 |
V287 = (V284); |
V292 = (V289); |
1479 |
V288= Ct; |
V293= Ct; |
1480 |
STSET(object,V286,20, V287); |
STSET(object,V291,20, V292); |
1481 |
(void)(V287); |
(void)(V292); |
1482 |
V289 = (V272); |
V294 = (V277); |
1483 |
V290 = (V285); |
V295 = (V290); |
1484 |
V291= Ct; |
V296= Ct; |
1485 |
STSET(object,V289,24, V290); |
STSET(object,V294,24, V295); |
1486 |
(void)(V290); |
(void)(V295); |
1487 |
goto T416;} |
goto T416;} |
1488 |
goto T429; |
goto T429; |
1489 |
T429:; |
T429:; |
1490 |
if((V275!= VV[70]))goto T438; |
if((V280!= VV[70]))goto T438; |
1491 |
{object V292; |
{object V297; |
1492 |
{object V293; |
{object V298; |
1493 |
V293= STREF(object,(V272),16); |
V298= STREF(object,(V277),16); |
1494 |
if(!(((V293))==(VV[43]))){ |
if(!(((V298))==(VV[43]))){ |
1495 |
goto T442;} |
goto T442;} |
1496 |
(void)((*(LnkLI61))((V272),VV[67])); |
(void)((*(LnkLI61))((V277),VV[67])); |
1497 |
V292= STREF(object,(V272),16); |
V297= STREF(object,(V277),16); |
1498 |
goto T439; |
goto T439; |
1499 |
goto T442; |
goto T442; |
1500 |
T442:; |
T442:; |
1501 |
V292= (V293);} |
V297= (V298);} |
1502 |
goto T439; |
goto T439; |
1503 |
T439:; |
T439:; |
1504 |
V294 = (V272); |
V299 = (V277); |
1505 |
base[4]= VV[70]; |
base[4]= VV[70]; |
1506 |
base[5]= (V272); |
base[5]= (V277); |
1507 |
base[6]= base[1]; |
base[6]= base[1]; |
1508 |
base[7]= (V292); |
base[7]= (V297); |
1509 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1510 |
(void) (*Lnk250)(); |
(void) (*Lnk249)(); |
1511 |
vs_top=sup; |
vs_top=sup; |
1512 |
V295= vs_base[0]; |
V300= vs_base[0]; |
1513 |
V296= Ct; |
V301= Ct; |
1514 |
STSET(object,V294,28, V295); |
STSET(object,V299,28, V300); |
1515 |
(void)(V295); |
(void)(V300); |
1516 |
goto T416;} |
goto T416;} |
1517 |
goto T438; |
goto T438; |
1518 |
T438:; |
T438:; |
1519 |
if((V275!= VV[65]) |
if((V280!= VV[65]) |
1520 |
&& (V275!= VV[66]))goto T450; |
&& (V280!= VV[66]))goto T450; |
1521 |
{object V297; |
{object V302; |
1522 |
base[4]= base[1]; |
base[4]= base[1]; |
1523 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1524 |
(void) (*Lnk251)(Lclptr251); |
(void) (*Lnk250)(Lclptr250); |
1525 |
vs_top=sup; |
vs_top=sup; |
1526 |
V297= vs_base[0]; |
V302= vs_base[0]; |
1527 |
V298 = (V272); |
V303 = (V277); |
1528 |
V300= listA(3,VV[96],base[1],Cnil); |
V305= listA(3,VV[96],base[1],Cnil); |
1529 |
V301= listA(3,VV[97],(V297),Cnil); |
V306= listA(3,VV[97],(V302),Cnil); |
1530 |
base[4]= list(3,/* INLINE-ARGS */V300,/* INLINE-ARGS */V301,listA(4,VV[98],(V297),Ct,Cnil)); |
base[4]= list(3,/* INLINE-ARGS */V305,/* INLINE-ARGS */V306,listA(4,VV[98],(V302),Ct,Cnil)); |
1531 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1532 |
L32(base); |
L32(base); |
1533 |
vs_top=sup; |
vs_top=sup; |
1534 |
V299= vs_base[0]; |
V304= vs_base[0]; |
1535 |
V302= Ct; |
V307= Ct; |
1536 |
STSET(object,V298,8, V299); |
STSET(object,V303,8, V304); |
1537 |
(void)(V299); |
(void)(V304); |
1538 |
V303 = (V272); |
V308 = (V277); |
1539 |
V305= listA(3,VV[99],(V297),Cnil); |
V310= listA(3,VV[99],(V302),Cnil); |
1540 |
base[4]= list(2,/* INLINE-ARGS */V305,listA(4,VV[98],(V297),Cnil,Cnil)); |
base[4]= list(2,/* INLINE-ARGS */V310,listA(4,VV[98],(V302),Cnil,Cnil)); |
1541 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1542 |
L32(base); |
L32(base); |
1543 |
vs_top=sup; |
vs_top=sup; |
1544 |
V304= vs_base[0]; |
V309= vs_base[0]; |
1545 |
V306= Ct; |
V311= Ct; |
1546 |
STSET(object,V303,12, V304); |
STSET(object,V308,12, V309); |
1547 |
(void)(V304); |
(void)(V309); |
1548 |
goto T416;} |
goto T416;} |
1549 |
goto T450; |
goto T450; |
1550 |
T450:; |
T450:; |
1551 |
if((V275!= VV[71]))goto T458; |
if((V280!= VV[71]))goto T458; |
1552 |
{object V307; |
{object V312; |
1553 |
object V308; |
object V313; |
1554 |
base[4]= base[1]; |
base[4]= base[1]; |
1555 |
base[5]= base[2]; |
base[5]= base[2]; |
1556 |
base[6]= Ct; |
base[6]= Ct; |
1557 |
base[7]= Cnil; |
base[7]= Cnil; |
1558 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1559 |
(void) (*Lnk252)(); |
(void) (*Lnk251)(); |
1560 |
if(vs_base>=vs_top){vs_top=sup;goto T464;} |
if(vs_base>=vs_top){vs_top=sup;goto T464;} |
1561 |
V307= vs_base[0]; |
V312= vs_base[0]; |
1562 |
vs_base++; |
vs_base++; |
1563 |
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
1564 |
V308= vs_base[0]; |
V313= vs_base[0]; |
1565 |
vs_top=sup; |
vs_top=sup; |
1566 |
goto T466; |
goto T466; |
1567 |
goto T464; |
goto T464; |
1568 |
T464:; |
T464:; |
1569 |
V307= Cnil; |
V312= Cnil; |
1570 |
goto T465; |
goto T465; |
1571 |
T465:; |
T465:; |
1572 |
V308= Cnil; |
V313= Cnil; |
1573 |
goto T466; |
goto T466; |
1574 |
T466:; |
T466:; |
1575 |
V309 = (V272); |
V314 = (V277); |
1576 |
base[4]= VV[71]; |
base[4]= VV[71]; |
1577 |
base[5]= (V272); |
base[5]= (V277); |
1578 |
base[6]= base[1]; |
base[6]= base[1]; |
1579 |
base[7]= (V307); |
base[7]= (V312); |
1580 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1581 |
(void) (*Lnk250)(); |
(void) (*Lnk249)(); |
1582 |
vs_top=sup; |
vs_top=sup; |
1583 |
V310= vs_base[0]; |
V315= vs_base[0]; |
1584 |
V311= Ct; |
V316= Ct; |
1585 |
STSET(object,V309,32, V310); |
STSET(object,V314,32, V315); |
1586 |
(void)(V310); |
(void)(V315); |
1587 |
goto T416;} |
goto T416;} |
1588 |
goto T458; |
goto T458; |
1589 |
T458:; |
T458:; |
1590 |
if((V275!= VV[72]))goto T472; |
if((V280!= VV[72]))goto T472; |
1591 |
{object V312; |
{object V317; |
1592 |
object V313; |
object V318; |
1593 |
base[4]= base[1]; |
base[4]= base[1]; |
1594 |
base[5]= base[2]; |
base[5]= base[2]; |
1595 |
base[6]= Cnil; |
base[6]= Cnil; |
1596 |
base[7]= Cnil; |
base[7]= Cnil; |
1597 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1598 |
(void) (*Lnk252)(); |
(void) (*Lnk251)(); |
1599 |
if(vs_base>=vs_top){vs_top=sup;goto T478;} |
if(vs_base>=vs_top){vs_top=sup;goto T478;} |
1600 |
V312= vs_base[0]; |
V317= vs_base[0]; |
1601 |
vs_base++; |
vs_base++; |
1602 |
if(vs_base>=vs_top){vs_top=sup;goto T479;} |
if(vs_base>=vs_top){vs_top=sup;goto T479;} |
1603 |
V313= vs_base[0]; |
V318= vs_base[0]; |
1604 |
vs_top=sup; |
vs_top=sup; |
1605 |
goto T480; |
goto T480; |
1606 |
goto T478; |
goto T478; |
1607 |
T478:; |
T478:; |
1608 |
V312= Cnil; |
V317= Cnil; |
1609 |
goto T479; |
goto T479; |
1610 |
T479:; |
T479:; |
1611 |
V313= Cnil; |
V318= Cnil; |
1612 |
goto T480; |
goto T480; |
1613 |
T480:; |
T480:; |
1614 |
V314 = (V272); |
V319 = (V277); |
1615 |
base[4]= VV[72]; |
base[4]= VV[72]; |
1616 |
base[5]= (V272); |
base[5]= (V277); |
1617 |
base[6]= base[1]; |
base[6]= base[1]; |
1618 |
base[7]= (V312); |
base[7]= (V317); |
1619 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1620 |
(void) (*Lnk250)(); |
(void) (*Lnk249)(); |
1621 |
vs_top=sup; |
vs_top=sup; |
1622 |
V315= vs_base[0]; |
V320= vs_base[0]; |
1623 |
V316= Ct; |
V321= Ct; |
1624 |
STSET(object,V314,36, V315); |
STSET(object,V319,36, V320); |
1625 |
(void)(V315); |
(void)(V320); |
1626 |
goto T416;} |
goto T416;} |
1627 |
goto T472; |
goto T472; |
1628 |
T472:; |
T472:; |
1629 |
if((V275!= VV[73]) |
if((V280!= VV[73]) |
1630 |
&& (V275!= VV[74]))goto T486; |
&& (V280!= VV[74]))goto T486; |
1631 |
{object V317; |
{object V322; |
1632 |
object V318; |
object V323; |
1633 |
{object V319; |
{object V324; |
1634 |
V319= STREF(object,(V272),20); |
V324= STREF(object,(V277),20); |
1635 |
if(!(((V319))==(VV[43]))){ |
if(!(((V324))==(VV[43]))){ |
1636 |
goto T490;} |
goto T490;} |
1637 |
(void)((*(LnkLI61))((V272),VV[68])); |
(void)((*(LnkLI61))((V277),VV[68])); |
1638 |
V317= STREF(object,(V272),20); |
V322= STREF(object,(V277),20); |
1639 |
goto T487; |
goto T487; |
1640 |
goto T490; |
goto T490; |
1641 |
T490:; |
T490:; |
1642 |
V317= (V319);} |
V322= (V324);} |
1643 |
goto T487; |
goto T487; |
1644 |
T487:; |
T487:; |
1645 |
{object V320; |
{object V325; |
1646 |
V320= STREF(object,(V272),24); |
V325= STREF(object,(V277),24); |
1647 |
if(!(((V320))==(VV[43]))){ |
if(!(((V325))==(VV[43]))){ |
1648 |
goto T496;} |
goto T496;} |
1649 |
(void)((*(LnkLI61))((V272),VV[69])); |
(void)((*(LnkLI61))((V277),VV[69])); |
1650 |
V318= STREF(object,(V272),24); |
V323= STREF(object,(V277),24); |
1651 |
goto T493; |
goto T493; |
1652 |
goto T496; |
goto T496; |
1653 |
T496:; |
T496:; |
1654 |
V318= (V320);} |
V323= (V325);} |
1655 |
goto T493; |
goto T493; |
1656 |
T493:; |
T493:; |
1657 |
{object V321; |
{object V326; |
1658 |
object V322; |
object V327; |
1659 |
base[4]= base[1]; |
base[4]= base[1]; |
1660 |
base[5]= (V318); |
base[5]= (V323); |
1661 |
base[6]= Ct; |
base[6]= Ct; |
1662 |
base[7]= Ct; |
base[7]= Ct; |
1663 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1664 |
(void) (*Lnk252)(); |
(void) (*Lnk251)(); |
1665 |
if(vs_base>=vs_top){vs_top=sup;goto T504;} |
if(vs_base>=vs_top){vs_top=sup;goto T504;} |
1666 |
V321= vs_base[0]; |
V326= vs_base[0]; |
1667 |
vs_base++; |
vs_base++; |
1668 |
if(vs_base>=vs_top){vs_top=sup;goto T505;} |
if(vs_base>=vs_top){vs_top=sup;goto T505;} |
1669 |
V322= vs_base[0]; |
V327= vs_base[0]; |
1670 |
vs_top=sup; |
vs_top=sup; |
1671 |
goto T506; |
goto T506; |
1672 |
goto T504; |
goto T504; |
1673 |
T504:; |
T504:; |
1674 |
V321= Cnil; |
V326= Cnil; |
1675 |
goto T505; |
goto T505; |
1676 |
T505:; |
T505:; |
1677 |
V322= Cnil; |
V327= Cnil; |
1678 |
goto T506; |
goto T506; |
1679 |
T506:; |
T506:; |
1680 |
V323 = (V272); |
V328 = (V277); |
1681 |
V324 = (V322); |
V329 = (V327); |
1682 |
V325= Ct; |
V330= Ct; |
1683 |
STSET(object,V323,40, V324); |
STSET(object,V328,40, V329); |
1684 |
(void)(V324); |
(void)(V329); |
1685 |
V326 = (V272); |
V331 = (V277); |
1686 |
base[4]= VV[74]; |
base[4]= VV[74]; |
1687 |
base[5]= (V272); |
base[5]= (V277); |
1688 |
base[6]= base[1]; |
base[6]= base[1]; |
1689 |
base[7]= append((V317),(V321)); |
base[7]= append((V322),(V326)); |
1690 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1691 |
(void) (*Lnk250)(); |
(void) (*Lnk249)(); |
1692 |
vs_top=sup; |
vs_top=sup; |
1693 |
V327= vs_base[0]; |
V332= vs_base[0]; |
1694 |
V328= Ct; |
V333= Ct; |
1695 |
STSET(object,V326,44, V327); |
STSET(object,V331,44, V332); |
1696 |
(void)(V327); |
(void)(V332); |
1697 |
goto T416;}} |
goto T416;}} |
1698 |
goto T486; |
goto T486; |
1699 |
T486:; |
T486:; |
1700 |
if((V275!= VV[75]))goto T513; |
if((V280!= VV[75]))goto T513; |
1701 |
V329 = (V272); |
V334 = (V277); |
1702 |
V330= (*(LnkLI75))((V274)); |
V335= (*(LnkLI75))((V279)); |
1703 |
V331= Ct; |
V336= Ct; |
1704 |
STSET(object,V329,52, /* INLINE-ARGS */V330); |
STSET(object,V334,52, /* INLINE-ARGS */V335); |
1705 |
(void)(/* INLINE-ARGS */V330); |
(void)(/* INLINE-ARGS */V335); |
1706 |
goto T416; |
goto T416; |
1707 |
goto T513; |
goto T513; |
1708 |
T513:; |
T513:; |
1709 |
if((V275!= VV[13]))goto T514; |
if((V280!= VV[13]))goto T514; |
1710 |
{object V332; |
{object V337; |
1711 |
object V333; |
object V338; |
1712 |
V332= (*(LnkLI253))((V274)); |
V337= (*(LnkLI252))((V279)); |
1713 |
{object V334; |
{object V339; |
1714 |
V334= STREF(object,(V272),52); |
V339= STREF(object,(V277),52); |
1715 |
if(!(((V334))==(VV[43]))){ |
if(!(((V339))==(VV[43]))){ |
1716 |
goto T519;} |
goto T519;} |
1717 |
(void)((*(LnkLI61))((V272),VV[75])); |
(void)((*(LnkLI61))((V277),VV[75])); |
1718 |
V333= STREF(object,(V272),52); |
V338= STREF(object,(V277),52); |
1719 |
goto T516; |
goto T516; |
1720 |
goto T519; |
goto T519; |
1721 |
T519:; |
T519:; |
1722 |
V333= (V334);} |
V338= (V339);} |
1723 |
goto T516; |
goto T516; |
1724 |
T516:; |
T516:; |
1725 |
V335 = (V272); |
V340 = (V277); |
1726 |
V336 = (V332); |
V341 = (V337); |
1727 |
V337= Ct; |
V342= Ct; |
1728 |
STSET(object,V335,48, V336); |
STSET(object,V340,48, V341); |
1729 |
(void)(V336); |
(void)(V341); |
1730 |
if(((V333))==Cnil){ |
if(((V338))==Cnil){ |
1731 |
goto T416;} |
goto T416;} |
1732 |
if((V332)!=Cnil){ |
{object V344; |
1733 |
V339= (V332); |
if((V337)!=Cnil){ |
1734 |
|
V344= (V337); |
1735 |
goto T525;} |
goto T525;} |
1736 |
V339= (VV[255]->s.s_gfdef); |
V344= (VV[253]->s.s_gfdef); |
1737 |
goto T525; |
goto T525; |
1738 |
T525:; |
T525:; |
1739 |
V340 = V333; |
V345= ({object _tmp=get(VV[254],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[254])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[254])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
1740 |
(void)((*(LnkLI254))(V339,V340)); |
V346 = (V344); |
1741 |
goto T416;} |
V347 = V338; |
1742 |
|
(void)(( |
1743 |
|
V348 = V345, |
1744 |
|
(type_of(V348) == t_sfun ?(*((V348)->sfn.sfn_self)): |
1745 |
|
(fcall.argd=2,type_of(V348)==t_vfun) ? |
1746 |
|
(*((V348)->sfn.sfn_self)): |
1747 |
|
(fcall.fun=(V348),fcalln))(V346,V347))); |
1748 |
|
goto T416;}} |
1749 |
goto T514; |
goto T514; |
1750 |
T514:; |
T514:; |
1751 |
FEerror("The ECASE key value ~s is illegal.",1,V275); |
FEerror("The ECASE key value ~s is illegal.",1,V280); |
1752 |
goto T416;}} |
goto T416;}} |
1753 |
goto T416; |
goto T416; |
1754 |
T416:; |
T416:; |
1755 |
{object V341 = (V272); |
{object V349 = (V277); |
1756 |
VMR31(V341)} |
VMR31(V349)} |
1757 |
base[0]=base[0]; |
base[0]=base[0]; |
1758 |
return Cnil; |
return Cnil; |
1759 |
} |
} |
1760 |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION */ |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION */ |
1761 |
|
|
1762 |
static object LI33(V343) |
static object LI33(V351) |
1763 |
|
|
1764 |
object V343; |
object V351; |
1765 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1766 |
goto TTL; |
goto TTL; |
1767 |
TTL:; |
TTL:; |
1768 |
{register object V344; |
{register object V352; |
1769 |
object V345; |
object V353; |
1770 |
V344= CMPcar((V343)); |
V352= CMPcar((V351)); |
1771 |
V345= CMPcadr((V343)); |
V353= CMPcadr((V351)); |
1772 |
if(((VV[101]->s.s_dbind))==(VV[102])){ |
if(((VV[101]->s.s_dbind))==(VV[102])){ |
1773 |
goto T528;} |
goto T529;} |
1774 |
{object V346 = Cnil; |
{object V354 = Cnil; |
1775 |
VMR32(V346)} |
VMR32(V354)} |
1776 |
goto T528; |
goto T529; |
1777 |
T528:; |
T529:; |
1778 |
if(!(type_of((V344))==t_symbol)){ |
if(!(type_of((V352))==t_symbol)){ |
1779 |
goto T531;} |
goto T532;} |
1780 |
V344= (VFUN_NARGS=1,(*(LnkLI217))((V344))); |
V352= (VFUN_NARGS=1,(*(LnkLI217))((V352))); |
1781 |
goto T531; |
goto T532; |
1782 |
T531:; |
T532:; |
1783 |
base[2]= (V344); |
base[2]= (V352); |
1784 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1785 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
1786 |
vs_top=sup; |
vs_top=sup; |
1787 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1788 |
goto T535;} |
goto T536;} |
1789 |
base[2]= (V344); |
base[2]= (V352); |
1790 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1791 |
(void) (*Lnk256)(Lclptr256); |
(void) (*Lnk255)(Lclptr255); |
1792 |
vs_top=sup; |
vs_top=sup; |
1793 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1794 |
goto T535;} |
goto T536;} |
1795 |
base[2]= (V344); |
base[2]= (V352); |
1796 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1797 |
(void) (*Lnk257)(Lclptr257); |
(void) (*Lnk256)(Lclptr256); |
1798 |
vs_top=sup; |
vs_top=sup; |
1799 |
goto T535; |
goto T536; |
1800 |
T535:; |
T536:; |
1801 |
{register object V347; |
{register object V355; |
|
object V348; |
|
|
register object V349; |
|
|
object V350; |
|
|
object V351; |
|
|
object V352; |
|
|
object V353; |
|
|
register object V354; |
|
|
object V355; |
|
1802 |
object V356; |
object V356; |
1803 |
{object V357; |
register object V357; |
1804 |
object V358= (V345); |
object V358; |
1805 |
if(V358==Cnil){ |
object V359; |
1806 |
V347= Cnil; |
object V360; |
1807 |
goto T543;} |
object V361; |
1808 |
base[13]=V357=MMcons(Cnil,Cnil); |
register object V362; |
1809 |
goto T544; |
object V363; |
1810 |
T544:; |
object V364; |
1811 |
(V357->c.c_cdr)= list(2,(V358->c.c_car),Cnil); |
{object V365; |
1812 |
while(MMcdr(V357)!=Cnil)V357=MMcdr(V357); |
object V366= (V353); |
1813 |
if((V358=MMcdr(V358))==Cnil){ |
if(V366==Cnil){ |
1814 |
|
V355= Cnil; |
1815 |
|
goto T544;} |
1816 |
|
base[13]=V365=MMcons(Cnil,Cnil); |
1817 |
|
goto T545; |
1818 |
|
T545:; |
1819 |
|
(V365->c.c_cdr)= list(2,(V366->c.c_car),Cnil); |
1820 |
|
while(MMcdr(V365)!=Cnil)V365=MMcdr(V365); |
1821 |
|
if((V366=MMcdr(V366))==Cnil){ |
1822 |
base[13]=base[13]->c.c_cdr; |
base[13]=base[13]->c.c_cdr; |
1823 |
V347= base[13]; |
V355= base[13]; |
|
goto T543;} |
|
1824 |
goto T544;} |
goto T544;} |
1825 |
goto T543; |
goto T545;} |
1826 |
T543:; |
goto T544; |
1827 |
V348= make_cons((V344),(V347)); |
T544:; |
1828 |
base[4]= (*(LnkLI258))(VV[9]); |
V356= make_cons((V352),(V355)); |
1829 |
|
base[4]= (*(LnkLI254))(VV[9]); |
1830 |
base[4]=MMcons(base[4],Cnil); |
base[4]=MMcons(base[4],Cnil); |
1831 |
base[13]= (base[4]->c.c_car); |
base[13]= (base[4]->c.c_car); |
1832 |
base[14]= (V348); |
base[14]= (V356); |
1833 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1834 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk257)(Lclptr257); |
1835 |
vs_top=sup; |
vs_top=sup; |
1836 |
V349= vs_base[0]; |
V357= vs_base[0]; |
1837 |
V350= (*(LnkLI260))((V349),VV[103]); |
V358= (*(LnkLI258))((V357),VV[103]); |
1838 |
V351= list(2,(V344),(V347)); |
V359= list(2,(V352),(V355)); |
1839 |
V352= (*(LnkLI258))(VV[104]); |
V360= (*(LnkLI254))(VV[104]); |
1840 |
base[13]= (V352); |
base[13]= (V360); |
1841 |
base[14]= (V351); |
base[14]= (V359); |
1842 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1843 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk257)(Lclptr257); |
1844 |
vs_top=sup; |
vs_top=sup; |
1845 |
V353= vs_base[0]; |
V361= vs_base[0]; |
1846 |
base[13]= (V344); |
base[13]= (V352); |
1847 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1848 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
1849 |
vs_top=sup; |
vs_top=sup; |
1850 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1851 |
goto T558;} |
goto T559;} |
1852 |
V354= Cnil; |
V362= Cnil; |
|
goto T557; |
|
1853 |
goto T558; |
goto T558; |
1854 |
T558:; |
goto T559; |
1855 |
base[13]= (V344); |
T559:; |
1856 |
|
base[13]= (V352); |
1857 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1858 |
(void) (*Lnk251)(Lclptr251); |
(void) (*Lnk250)(Lclptr250); |
1859 |
vs_top=sup; |
vs_top=sup; |
1860 |
V354= vs_base[0]; |
V362= vs_base[0]; |
1861 |
goto T557; |
goto T558; |
1862 |
T557:; |
T558:; |
1863 |
if(((V354))==Cnil){ |
if(((V362))==Cnil){ |
1864 |
goto T564;} |
goto T565;} |
1865 |
base[13]= (*(LnkLI258))(VV[97]); |
base[13]= (*(LnkLI254))(VV[97]); |
1866 |
base[14]= make_cons((V354),(V347)); |
base[14]= make_cons((V362),(V355)); |
1867 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1868 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk257)(Lclptr257); |
1869 |
vs_top=sup; |
vs_top=sup; |
1870 |
V355= vs_base[0]; |
V363= vs_base[0]; |
1871 |
goto T562; |
goto T563; |
1872 |
goto T564; |
goto T565; |
1873 |
T564:; |
T565:; |
1874 |
V355= Cnil; |
V363= Cnil; |
1875 |
goto T562; |
goto T563; |
1876 |
T562:; |
T563:; |
1877 |
if(((V354))==Cnil){ |
if(((V362))==Cnil){ |
1878 |
goto T570;} |
goto T571;} |
1879 |
base[13]= (*(LnkLI258))(VV[98]); |
base[13]= (*(LnkLI254))(VV[98]); |
1880 |
base[14]= listA(3,(V354),Ct,(V347)); |
base[14]= listA(3,(V362),Ct,(V355)); |
1881 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1882 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk257)(Lclptr257); |
1883 |
vs_top=sup; |
vs_top=sup; |
1884 |
V356= vs_base[0]; |
V364= vs_base[0]; |
1885 |
goto T568; |
goto T569; |
1886 |
goto T570; |
goto T571; |
1887 |
T570:; |
T571:; |
1888 |
V356= Cnil; |
V364= Cnil; |
1889 |
goto T568; |
goto T569; |
1890 |
T568:; |
T569:; |
1891 |
if(((V349))!=Cnil){ |
if(((V357))!=Cnil){ |
1892 |
goto T574;} |
goto T575;} |
1893 |
{object V360 = |
{object V368 = |
1894 |
make_cclosure_new(LC66,Cnil,base[4],Cdata); |
make_cclosure_new(LC66,Cnil,base[4],Cdata); |
1895 |
VMR32(V360)} |
VMR32(V368)} |
1896 |
goto T574; |
goto T575; |
1897 |
T574:; |
T575:; |
1898 |
if((CMPcdr((V349)))!=Cnil){ |
if((CMPcdr((V357)))!=Cnil){ |
1899 |
goto T578;} |
goto T579;} |
1900 |
if(!((CMPcar((V349)))==((V350)))){ |
if(!((CMPcar((V357)))==((V358)))){ |
1901 |
goto T578;} |
goto T579;} |
1902 |
if((CMPcdr((V353)))!=Cnil){ |
if((CMPcdr((V361)))!=Cnil){ |
1903 |
goto T578;} |
goto T579;} |
1904 |
base[13]= CMPcar((V353)); |
base[13]= CMPcar((V361)); |
1905 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1906 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk259)(Lclptr259); |
1907 |
vs_top=sup; |
vs_top=sup; |
1908 |
V361= vs_base[0]; |
V369= vs_base[0]; |
1909 |
if(!((CMPcar(V361))==((VV[105]->s.s_dbind)))){ |
if(!((CMPcar(V369))==((VV[105]->s.s_dbind)))){ |
1910 |
goto T578;} |
goto T579;} |
1911 |
base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata); |
base[13]=make_cclosure_new(LC34,Cnil,base[4],Cdata); |
1912 |
base[13]=MMcons(base[13],base[4]); |
base[13]=MMcons(base[13],base[4]); |
1913 |
base[14]= (base[13]->c.c_car); |
base[14]= (base[13]->c.c_car); |
1914 |
base[15]= (V355); |
base[15]= (V363); |
1915 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1916 |
(void) (*Lnk262)(); |
(void) (*Lnk260)(); |
1917 |
vs_top=sup; |
vs_top=sup; |
1918 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1919 |
goto T590;} |
goto T591;} |
|
goto T589; |
|
1920 |
goto T590; |
goto T590; |
1921 |
T590:; |
goto T591; |
1922 |
|
T591:; |
1923 |
base[14]= (base[13]->c.c_car); |
base[14]= (base[13]->c.c_car); |
1924 |
base[15]= (V356); |
base[15]= (V364); |
1925 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1926 |
(void) (*Lnk262)(); |
(void) (*Lnk260)(); |
1927 |
vs_top=sup; |
vs_top=sup; |
1928 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1929 |
goto T577;} |
goto T578;} |
1930 |
goto T589; |
goto T590; |
1931 |
T589:; |
T590:; |
1932 |
|
goto T579; |
1933 |
|
T579:; |
1934 |
|
{object V370 = Cnil; |
1935 |
|
VMR32(V370)} |
1936 |
goto T578; |
goto T578; |
1937 |
T578:; |
T578:; |
1938 |
{object V362 = Cnil; |
V371 = (V352); |
1939 |
VMR32(V362)} |
V372 = (V351); |
1940 |
goto T577; |
base[13]= (V352); |
1941 |
T577:; |
base[14]= (V355); |
|
V363 = (V344); |
|
|
V364 = (V343); |
|
|
base[13]= (V344); |
|
|
base[14]= (V347); |
|
1942 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1943 |
(void) (*Lnk104)(Lclptr104); |
(void) (*Lnk104)(Lclptr104); |
1944 |
vs_top=sup; |
vs_top=sup; |
1945 |
V365= vs_base[0]; |
V373= vs_base[0]; |
1946 |
V366 = (V355); |
V374 = (V363); |
1947 |
V367 = (V356); |
V375 = (V364); |
1948 |
{object V368 = (*(LnkLI263))(V363,V364,V365,V366,V367); |
{object V376 = (*(LnkLI261))(V371,V372,V373,V374,V375); |
1949 |
VMR32(V368)}}} |
VMR32(V376)}}} |
1950 |
base[0]=base[0]; |
base[0]=base[0]; |
1951 |
return Cnil; |
return Cnil; |
1952 |
} |
} |
1953 |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL */ |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-INTERNAL */ |
1954 |
|
|
1955 |
static object LI35(V374,V375,V376,V377,V378) |
static object LI35(V382,V383,V384,V385,V386) |
1956 |
|
|
1957 |
register object V374;register object V375;object V376;register object V377;register object V378; |
register object V382;register object V383;object V384;register object V385;register object V386; |
1958 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1959 |
goto TTL; |
goto TTL; |
1960 |
TTL:; |
TTL:; |
1961 |
{object V379; |
{object V387; |
1962 |
object V380; |
object V388; |
1963 |
object V381; |
object V389; |
1964 |
V379= CMPcadr((V375)); |
V387= CMPcadr((V383)); |
1965 |
V380= CMPcaddr((V375)); |
V388= CMPcaddr((V383)); |
1966 |
base[3]= (*(LnkLI258))(VV[96]); |
base[3]= (*(LnkLI254))(VV[96]); |
1967 |
base[4]= make_cons((V374),(V376)); |
base[4]= make_cons((V382),(V384)); |
1968 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1969 |
(void) (*Lnk259)(Lclptr259); |
(void) (*Lnk257)(Lclptr257); |
1970 |
vs_top=sup; |
vs_top=sup; |
1971 |
V381= vs_base[0]; |
V389= vs_base[0]; |
1972 |
if(((V380))!=Cnil){ |
if(((V388))!=Cnil){ |
1973 |
goto T604;} |
goto T605;} |
1974 |
V382 = (V374); |
V390 = (V382); |
1975 |
V383 = (V376); |
V391 = (V384); |
1976 |
base[3]= (V381); |
base[3]= (V389); |
1977 |
base[4]= (V377); |
base[4]= (V385); |
1978 |
base[5]= (V378); |
base[5]= (V386); |
1979 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1980 |
Lappend(); |
Lappend(); |
1981 |
vs_top=sup; |
vs_top=sup; |
1982 |
V384= vs_base[0]; |
V392= vs_base[0]; |
1983 |
if(((VFUN_NARGS=5,(*(LnkLI264))(V382,V383,V384,Ct,Cnil)))!=Cnil){ |
if(((VFUN_NARGS=5,(*(LnkLI262))(V390,V391,V392,Ct,Cnil)))!=Cnil){ |
1984 |
goto T604;} |
goto T605;} |
1985 |
{object V385 = Cnil; |
{object V393 = Cnil; |
1986 |
VMR33(V385)} |
VMR33(V393)} |
1987 |
goto T604; |
goto T605; |
1988 |
T604:; |
T605:; |
1989 |
if((CMPcdr((V381)))!=Cnil){ |
if((CMPcdr((V389)))!=Cnil){ |
1990 |
goto T613;} |
goto T614;} |
1991 |
base[3]= (VV[265]->s.s_gfdef); |
base[3]= (VV[263]->s.s_gfdef); |
1992 |
base[4]= (V377); |
base[4]= (V385); |
1993 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1994 |
(void) (*Lnk266)(); |
(void) (*Lnk264)(); |
1995 |
vs_top=sup; |
vs_top=sup; |
1996 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1997 |
goto T613;} |
goto T614;} |
1998 |
base[3]= (VV[265]->s.s_gfdef); |
base[3]= (VV[263]->s.s_gfdef); |
1999 |
base[4]= (V378); |
base[4]= (V386); |
2000 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2001 |
(void) (*Lnk266)(); |
(void) (*Lnk264)(); |
2002 |
vs_top=sup; |
vs_top=sup; |
2003 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2004 |
goto T614;} |
goto T615;} |
|
goto T613; |
|
|
T613:; |
|
|
{object V386 = (*(LnkLI267))((V375),(V374),(V379),(V377),(V378)); |
|
|
VMR33(V386)} |
|
2005 |
goto T614; |
goto T614; |
2006 |
T614:; |
T614:; |
2007 |
{object V387 = (*(LnkLI268))((V375),(V374),(V379),(V377),(V378)); |
{object V394 = (*(LnkLI265))((V383),(V382),(V387),(V385),(V386)); |
2008 |
VMR33(V387)}} |
VMR33(V394)} |
2009 |
|
goto T615; |
2010 |
|
T615:; |
2011 |
|
{object V395 = (*(LnkLI266))((V383),(V382),(V387),(V385),(V386)); |
2012 |
|
VMR33(V395)}} |
2013 |
base[0]=base[0]; |
base[0]=base[0]; |
2014 |
return Cnil; |
return Cnil; |
2015 |
} |
} |
2016 |
/* local entry for function COMPLICATED-INSTANCE-CREATION-METHOD */ |
/* local entry for function COMPLICATED-INSTANCE-CREATION-METHOD */ |
2017 |
|
|
2018 |
static object LI36(V389) |
static object LI36(V397) |
2019 |
|
|
2020 |
object V389; |
object V397; |
2021 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
2022 |
goto TTL; |
goto TTL; |
2023 |
TTL:; |
TTL:; |
2024 |
{object V390; |
{object V398; |
2025 |
base[0]= (V389); |
base[0]= (V397); |
2026 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2027 |
(void) (*Lnk269)(Lclptr269); |
(void) (*Lnk267)(Lclptr267); |
2028 |
vs_top=sup; |
vs_top=sup; |
2029 |
V390= vs_base[0]; |
V398= vs_base[0]; |
2030 |
if(((V390))==Cnil){ |
if(((V398))==Cnil){ |
2031 |
goto T627;} |
goto T628;} |
2032 |
if((CMPcdr((V390)))==Cnil){ |
if((CMPcdr((V398)))==Cnil){ |
2033 |
goto T630;} |
goto T631;} |
2034 |
V391= Cnil; |
V399= Cnil; |
2035 |
goto T629; |
goto T630; |
2036 |
|
goto T631; |
2037 |
|
T631:; |
2038 |
|
V399= ((CMPcar((V398)))==(VV[107])?Ct:Cnil); |
2039 |
goto T630; |
goto T630; |
2040 |
T630:; |
T630:; |
2041 |
V391= ((CMPcar((V390)))==(VV[107])?Ct:Cnil); |
{object V400 = ((V399)==Cnil?Ct:Cnil); |
2042 |
goto T629; |
VMR34(V400)} |
2043 |
T629:; |
goto T628; |
2044 |
{object V392 = ((V391)==Cnil?Ct:Cnil); |
T628:; |
2045 |
VMR34(V392)} |
{object V401; |
2046 |
goto T627; |
base[0]= (V397); |
|
T627:; |
|
|
{object V393; |
|
|
base[0]= (V389); |
|
2047 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2048 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk259)(Lclptr259); |
2049 |
vs_top=sup; |
vs_top=sup; |
2050 |
V394= vs_base[0]; |
V402= vs_base[0]; |
2051 |
V393= CMPcar(V394); |
V401= CMPcar(V402); |
2052 |
base[0]= (V393); |
base[0]= (V401); |
2053 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2054 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
2055 |
vs_top=sup; |
vs_top=sup; |
2056 |
V395= vs_base[0]; |
V403= vs_base[0]; |
2057 |
if(!((V395)==Cnil)){ |
if(!((V403)==Cnil)){ |
2058 |
goto T635;} |
goto T636;} |
2059 |
{object V396 = Ct; |
{object V404 = Ct; |
2060 |
VMR34(V396)} |
VMR34(V404)} |
2061 |
goto T635; |
goto T636; |
2062 |
T635:; |
T636:; |
2063 |
base[0]= (V393); |
base[0]= (V401); |
2064 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2065 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
2066 |
vs_top=sup; |
vs_top=sup; |
2067 |
V397= vs_base[0]; |
V405= vs_base[0]; |
2068 |
{object V398 = ((((VV[108])==(V397)?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V406 = ((((VV[108])==(V405)?Ct:Cnil))==Cnil?Ct:Cnil); |
2069 |
VMR34(V398)}}} |
VMR34(V406)}}} |
2070 |
base[0]=base[0]; |
base[0]=base[0]; |
2071 |
return Cnil; |
return Cnil; |
2072 |
} |
} |
2073 |
/* local entry for function FIND-STANDARD-II-METHOD */ |
/* local entry for function FIND-STANDARD-II-METHOD */ |
2074 |
|
|
2075 |
static object LI37(V401,V402) |
static object LI37(V409,V410) |
2076 |
|
|
2077 |
object V401;register object V402; |
object V409;register object V410; |
2078 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
2079 |
goto TTL; |
goto TTL; |
2080 |
TTL:; |
TTL:; |
2081 |
{register object V403; |
{register object V411; |
2082 |
register object V404; |
register object V412; |
2083 |
V403= (V401); |
V411= (V409); |
2084 |
V404= CMPcar((V403)); |
V412= CMPcar((V411)); |
|
goto T644; |
|
|
T644:; |
|
|
if(!(((V403))==Cnil)){ |
|
|
goto T645;} |
|
|
{object V405 = Cnil; |
|
|
VMR35(V405)} |
|
2085 |
goto T645; |
goto T645; |
2086 |
T645:; |
T645:; |
2087 |
base[1]= (V404); |
if(!(((V411))==Cnil)){ |
2088 |
|
goto T646;} |
2089 |
|
{object V413 = Cnil; |
2090 |
|
VMR35(V413)} |
2091 |
|
goto T646; |
2092 |
|
T646:; |
2093 |
|
base[1]= (V412); |
2094 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2095 |
(void) (*Lnk269)(Lclptr269); |
(void) (*Lnk267)(Lclptr267); |
2096 |
vs_top=sup; |
vs_top=sup; |
2097 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2098 |
goto T649;} |
goto T650;} |
2099 |
{register object V406; |
{register object V414; |
2100 |
base[1]= (V404); |
base[1]= (V412); |
2101 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2102 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk259)(Lclptr259); |
2103 |
vs_top=sup; |
vs_top=sup; |
2104 |
V407= vs_base[0]; |
V415= vs_base[0]; |
2105 |
V406= CMPcar(V407); |
V414= CMPcar(V415); |
2106 |
base[1]= (V406); |
base[1]= (V414); |
2107 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2108 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
2109 |
vs_top=sup; |
vs_top=sup; |
2110 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2111 |
goto T649;} |
goto T650;} |
2112 |
if(!(type_of((V402))==t_cons||((V402))==Cnil)){ |
if(!(type_of((V410))==t_cons||((V410))==Cnil)){ |
2113 |
goto T662;} |
goto T663;} |
2114 |
base[1]= (V406); |
base[1]= (V414); |
2115 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2116 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
2117 |
vs_top=sup; |
vs_top=sup; |
2118 |
V409= vs_base[0]; |
V417= vs_base[0]; |
2119 |
V410 = (V402); |
V418 = (V410); |
2120 |
{register object x= V409,V408= V410; |
{register object x= V417,V416= V418; |
2121 |
while(V408!=Cnil) |
while(V416!=Cnil) |
2122 |
if(eql(x,V408->c.c_car)){ |
if(eql(x,V416->c.c_car)){ |
2123 |
goto T660; |
goto T661; |
2124 |
}else V408=V408->c.c_cdr; |
}else V416=V416->c.c_cdr; |
2125 |
goto T649;} |
goto T650;} |
2126 |
goto T662; |
goto T663; |
2127 |
T662:; |
T663:; |
2128 |
base[1]= (V406); |
base[1]= (V414); |
2129 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2130 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
2131 |
vs_top=sup; |
vs_top=sup; |
2132 |
V411= vs_base[0]; |
V419= vs_base[0]; |
2133 |
V412 = (V402); |
V420 = (V410); |
2134 |
if(!((V411)==(V412))){ |
if(!((V419)==(V420))){ |
2135 |
goto T649;} |
goto T650;} |
2136 |
goto T660; |
goto T661; |
2137 |
T660:; |
T661:; |
2138 |
{object V413 = (V404); |
{object V421 = (V412); |
2139 |
VMR35(V413)}} |
VMR35(V421)}} |
2140 |
goto T649; |
goto T650; |
2141 |
T649:; |
T650:; |
2142 |
V403= CMPcdr((V403)); |
V411= CMPcdr((V411)); |
2143 |
V404= CMPcar((V403)); |
V412= CMPcar((V411)); |
2144 |
goto T644;} |
goto T645;} |
2145 |
base[0]=base[0]; |
base[0]=base[0]; |
2146 |
return Cnil; |
return Cnil; |
2147 |
} |
} |
2153 |
vs_check; |
vs_check; |
2154 |
check_arg(2); |
check_arg(2); |
2155 |
vs_top=sup; |
vs_top=sup; |
2156 |
{object V414=base[0]->c.c_cdr; |
{object V422=base[0]->c.c_cdr; |
2157 |
if(endp(V414))invalid_macro_call(); |
if(endp(V422))invalid_macro_call(); |
2158 |
base[2]= (V414->c.c_car); |
base[2]= (V422->c.c_car); |
2159 |
V414=V414->c.c_cdr; |
V422=V422->c.c_cdr; |
2160 |
if(endp(V414))invalid_macro_call(); |
if(endp(V422))invalid_macro_call(); |
2161 |
base[3]= (V414->c.c_car); |
base[3]= (V422->c.c_car); |
2162 |
V414=V414->c.c_cdr; |
V422=V422->c.c_cdr; |
2163 |
if(endp(V414))invalid_macro_call(); |
if(endp(V422))invalid_macro_call(); |
2164 |
base[4]= (V414->c.c_car); |
base[4]= (V422->c.c_car); |
2165 |
V414=V414->c.c_cdr; |
V422=V422->c.c_cdr; |
2166 |
if(!endp(V414))invalid_macro_call();} |
if(!endp(V422))invalid_macro_call();} |
2167 |
V415= list(2,VV[109],base[2]); |
V423= list(2,VV[109],base[2]); |
2168 |
V416= make_cons(/* INLINE-ARGS */V415,Cnil); |
V424= make_cons(/* INLINE-ARGS */V423,Cnil); |
2169 |
V417= list(5,VV[111],VV[112],VV[113],base[3],base[4]); |
V425= list(5,VV[111],VV[112],VV[113],base[3],base[4]); |
2170 |
base[5]= list(3,VV[52],/* INLINE-ARGS */V416,list(4,VV[78],VV[110],/* INLINE-ARGS */V417,list(4,VV[114],VV[115],base[3],base[4]))); |
base[5]= list(3,VV[52],/* INLINE-ARGS */V424,list(4,VV[78],VV[110],/* INLINE-ARGS */V425,list(4,VV[114],VV[115],base[3],base[4]))); |
2171 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2172 |
return; |
return; |
2173 |
} |
} |
2179 |
vs_check; |
vs_check; |
2180 |
check_arg(2); |
check_arg(2); |
2181 |
vs_top=sup; |
vs_top=sup; |
2182 |
{object V418=base[0]->c.c_cdr; |
{object V426=base[0]->c.c_cdr; |
2183 |
if(endp(V418))invalid_macro_call(); |
if(endp(V426))invalid_macro_call(); |
2184 |
base[2]= (V418->c.c_car); |
base[2]= (V426->c.c_car); |
2185 |
V418=V418->c.c_cdr; |
V426=V426->c.c_cdr; |
2186 |
if(!endp(V418))invalid_macro_call();} |
if(!endp(V426))invalid_macro_call();} |
2187 |
base[3]= list(2,VV[116],base[2]); |
base[3]= list(2,VV[116],base[2]); |
2188 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2189 |
return; |
return; |
2196 |
vs_check; |
vs_check; |
2197 |
check_arg(2); |
check_arg(2); |
2198 |
vs_top=sup; |
vs_top=sup; |
2199 |
{object V419=base[0]->c.c_cdr; |
{object V427=base[0]->c.c_cdr; |
2200 |
if(endp(V419))invalid_macro_call(); |
if(endp(V427))invalid_macro_call(); |
2201 |
base[2]= (V419->c.c_car); |
base[2]= (V427->c.c_car); |
2202 |
V419=V419->c.c_cdr; |
V427=V427->c.c_cdr; |
2203 |
if(endp(V419))invalid_macro_call(); |
if(endp(V427))invalid_macro_call(); |
2204 |
base[3]= (V419->c.c_car); |
base[3]= (V427->c.c_car); |
2205 |
V419=V419->c.c_cdr; |
V427=V427->c.c_cdr; |
2206 |
if(!endp(V419))invalid_macro_call();} |
if(!endp(V427))invalid_macro_call();} |
2207 |
V420= list(3,VV[62],VV[118],base[2]); |
V428= list(3,VV[62],VV[118],base[2]); |
2208 |
base[4]= list(5,VV[52],VV[117],/* INLINE-ARGS */V420,list(3,VV[62],VV[119],list(2,VV[120],base[3])),VV[121]); |
base[4]= list(5,VV[52],VV[117],/* INLINE-ARGS */V428,list(3,VV[62],VV[119],list(2,VV[120],base[3])),VV[121]); |
2209 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2210 |
return; |
return; |
2211 |
} |
} |
2217 |
vs_check; |
vs_check; |
2218 |
check_arg(2); |
check_arg(2); |
2219 |
vs_top=sup; |
vs_top=sup; |
2220 |
{object V421=base[0]->c.c_cdr; |
{object V429=base[0]->c.c_cdr; |
2221 |
if(endp(V421))invalid_macro_call(); |
if(endp(V429))invalid_macro_call(); |
2222 |
base[2]= (V421->c.c_car); |
base[2]= (V429->c.c_car); |
2223 |
V421=V421->c.c_cdr; |
V429=V429->c.c_cdr; |
2224 |
base[3]= V421;} |
base[3]= V429;} |
2225 |
V422= list(3,VV[124],VV[125],base[2]); |
V430= list(3,VV[124],VV[125],base[2]); |
2226 |
base[4]= list(3,VV[52],VV[122],list(4,VV[78],VV[123],/* INLINE-ARGS */V422,make_cons(VV[6],base[3]))); |
base[4]= list(3,VV[52],VV[122],list(4,VV[78],VV[123],/* INLINE-ARGS */V430,make_cons(VV[6],base[3]))); |
2227 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2228 |
return; |
return; |
2229 |
} |
} |
2233 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2234 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
2235 |
vs_check; |
vs_check; |
2236 |
{object V423; |
{object V431; |
2237 |
object V424; |
object V432; |
2238 |
check_arg(2); |
check_arg(2); |
2239 |
V423=(base[0]); |
V431=(base[0]); |
2240 |
V424=(base[1]); |
V432=(base[1]); |
2241 |
vs_top=sup; |
vs_top=sup; |
2242 |
goto TTL; |
goto TTL; |
2243 |
TTL:; |
TTL:; |
2244 |
{object V425; |
{object V433; |
2245 |
object V426; |
object V434; |
2246 |
V425= (VFUN_NARGS=2,(*(LnkLI39))((V423),(V424))); |
V433= (VFUN_NARGS=2,(*(LnkLI39))((V431),(V432))); |
2247 |
{object V427; |
{object V435; |
2248 |
V427= STREF(object,(V425),48); |
V435= STREF(object,(V433),48); |
2249 |
if(!(((V427))==(VV[43]))){ |
if(!(((V435))==(VV[43]))){ |
2250 |
goto T677;} |
goto T678;} |
2251 |
(void)((*(LnkLI61))((V425),VV[13])); |
(void)((*(LnkLI61))((V433),VV[13])); |
2252 |
V426= STREF(object,(V425),48); |
V434= STREF(object,(V433),48); |
2253 |
goto T674; |
goto T675; |
2254 |
goto T677; |
goto T678; |
2255 |
T677:; |
T678:; |
2256 |
V426= (V427);} |
V434= (V435);} |
2257 |
goto T674; |
goto T675; |
2258 |
T674:; |
T675:; |
2259 |
base[4]= (V423); |
base[4]= (V431); |
2260 |
base[5]= (V424); |
base[5]= (V432); |
2261 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2262 |
{object _funobj = (V426);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V434);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2263 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2264 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2265 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2268 |
} |
} |
2269 |
/* local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE */ |
/* local entry for function MAKE-INSTANCE-FUNCTION-SIMPLE */ |
2270 |
|
|
2271 |
static object LI43(V433,V434,V435,V436,V437) |
static object LI43(V441,V442,V443,V444,V445) |
2272 |
|
|
2273 |
object V433;object V434;object V435;object V436;object V437; |
object V441;object V442;object V443;object V444;object V445; |
2274 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
2275 |
goto TTL; |
goto TTL; |
2276 |
TTL:; |
TTL:; |
2277 |
{object V438; |
{object V446; |
2278 |
object V439; |
object V447; |
2279 |
object V440; |
object V448; |
2280 |
object V441; |
object V449; |
2281 |
base[0]= CMPcar((V433)); |
base[0]= CMPcar((V441)); |
2282 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
2283 |
if(!(type_of((base[0]->c.c_car))==t_symbol)){ |
if(!(type_of((base[0]->c.c_car))==t_symbol)){ |
2284 |
goto T685;} |
goto T686;} |
2285 |
base[1]= (VFUN_NARGS=2,(*(LnkLI224))((base[0]->c.c_car),Cnil)); |
base[1]= (VFUN_NARGS=2,(*(LnkLI224))((base[0]->c.c_car),Cnil)); |
2286 |
goto T683; |
goto T684; |
2287 |
goto T685; |
goto T686; |
2288 |
T685:; |
T686:; |
2289 |
base[1]= Cnil; |
base[1]= Cnil; |
2290 |
goto T683; |
goto T684; |
2291 |
T683:; |
T684:; |
2292 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
2293 |
base[10]= (V434); |
base[10]= (V442); |
2294 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2295 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk243)(Lclptr243); |
2296 |
vs_top=sup; |
vs_top=sup; |
2297 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
2298 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
2299 |
V438= make_cons((base[2]->c.c_car),Cnil); |
V446= make_cons((base[2]->c.c_car),Cnil); |
2300 |
base[10]= (V434); |
base[10]= (V442); |
2301 |
|
vs_top=(vs_base=base+10)+1; |
2302 |
|
(void) (*Lnk268)(Lclptr268); |
2303 |
|
vs_top=sup; |
2304 |
|
if((vs_base[0])==Cnil){ |
2305 |
|
goto T693;} |
2306 |
|
base[4]= (VV[269]->s.s_gfdef); |
2307 |
|
goto T691; |
2308 |
|
goto T693; |
2309 |
|
T693:; |
2310 |
|
base[10]= (V442); |
2311 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2312 |
(void) (*Lnk270)(Lclptr270); |
(void) (*Lnk270)(Lclptr270); |
2313 |
vs_top=sup; |
vs_top=sup; |
2314 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2315 |
goto T692;} |
goto T697;} |
2316 |
base[4]= (VV[271]->s.s_gfdef); |
base[4]= (VV[271]->s.s_gfdef); |
2317 |
goto T690; |
goto T691; |
2318 |
goto T692; |
goto T697; |
2319 |
T692:; |
T697:; |
2320 |
base[10]= (V434); |
base[10]= (V442); |
2321 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2322 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk272)(Lclptr272); |
2323 |
vs_top=sup; |
vs_top=sup; |
2324 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2325 |
goto T696;} |
goto T701;} |
2326 |
base[4]= (VV[273]->s.s_gfdef); |
base[4]= (VV[273]->s.s_gfdef); |
2327 |
goto T690; |
goto T691; |
2328 |
goto T696; |
goto T701; |
2329 |
T696:; |
T701:; |
|
base[10]= (V434); |
|
|
vs_top=(vs_base=base+10)+1; |
|
|
(void) (*Lnk274)(Lclptr274); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T700;} |
|
|
base[4]= (VV[275]->s.s_gfdef); |
|
|
goto T690; |
|
|
goto T700; |
|
|
T700:; |
|
2330 |
base[10]= VV[126]; |
base[10]= VV[126]; |
2331 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2332 |
Lerror(); |
Lerror(); |
2333 |
vs_top=sup; |
vs_top=sup; |
2334 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2335 |
goto T690; |
goto T691; |
2336 |
T690:; |
T691:; |
2337 |
base[4]=MMcons(base[4],base[2]); |
base[4]=MMcons(base[4],base[2]); |
2338 |
base[10]= (V434); |
base[10]= (V442); |
2339 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2340 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk270)(Lclptr270); |
2341 |
vs_top=sup; |
vs_top=sup; |
2342 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2343 |
goto T706;} |
goto T707;} |
2344 |
V439= VV[127]; |
V447= VV[127]; |
2345 |
goto T704; |
goto T705; |
2346 |
goto T706; |
goto T707; |
2347 |
T706:; |
T707:; |
2348 |
V439= Cnil; |
V447= Cnil; |
2349 |
goto T704; |
goto T705; |
2350 |
T704:; |
T705:; |
2351 |
V440= (*(LnkLI260))((V437),VV[108]); |
V448= (*(LnkLI258))((V445),VV[108]); |
2352 |
base[11]= (V440); |
base[11]= (V448); |
2353 |
base[12]= (V437); |
base[12]= (V445); |
2354 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
2355 |
(void) (*Lnk276)(); |
(void) (*Lnk274)(); |
2356 |
vs_top=sup; |
vs_top=sup; |
2357 |
V445= vs_base[0]; |
V453= vs_base[0]; |
2358 |
{object V443; |
{object V451; |
2359 |
object V444= V445; |
object V452= V453; |
2360 |
if(V444==Cnil){ |
if(V452==Cnil){ |
2361 |
V442= Cnil; |
V450= Cnil; |
2362 |
goto T711;} |
goto T712;} |
2363 |
base[10]=V443=MMcons(Cnil,Cnil); |
base[10]=V451=MMcons(Cnil,Cnil); |
2364 |
goto T712; |
goto T713; |
2365 |
T712:; |
T713:; |
2366 |
base[11]= (VV[98]->s.s_gfdef); |
base[11]= (VV[98]->s.s_gfdef); |
2367 |
base[12]= list(3,VV[128],(V444->c.c_car),Cnil); |
base[12]= list(3,VV[128],(V452->c.c_car),Cnil); |
2368 |
base[13]= Cnil; |
base[13]= Cnil; |
2369 |
base[14]= (V438); |
base[14]= (V446); |
2370 |
vs_top=(vs_base=base+11)+4; |
vs_top=(vs_base=base+11)+4; |
2371 |
(void) (*Lnk277)(); |
(void) (*Lnk275)(); |
2372 |
vs_top=sup; |
vs_top=sup; |
2373 |
(V443->c.c_car)= vs_base[0]; |
(V451->c.c_car)= vs_base[0]; |
2374 |
if((V444=MMcdr(V444))==Cnil){ |
if((V452=MMcdr(V452))==Cnil){ |
2375 |
V442= base[10]; |
V450= base[10]; |
|
goto T711;} |
|
|
V443=MMcdr(V443)=MMcons(Cnil,Cnil); |
|
2376 |
goto T712;} |
goto T712;} |
2377 |
goto T711; |
V451=MMcdr(V451)=MMcons(Cnil,Cnil); |
2378 |
T711:; |
goto T713;} |
2379 |
base[7]= nreverse(V442); |
goto T712; |
2380 |
|
T712:; |
2381 |
|
base[7]= nreverse(V450); |
2382 |
base[7]=MMcons(base[7],base[4]); |
base[7]=MMcons(base[7],base[4]); |
2383 |
V441= (*(LnkLI260))((V436),VV[108]); |
V449= (*(LnkLI258))((V444),VV[108]); |
2384 |
base[11]= (V441); |
base[11]= (V449); |
2385 |
base[12]= (V436); |
base[12]= (V444); |
2386 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
2387 |
(void) (*Lnk276)(); |
(void) (*Lnk274)(); |
2388 |
vs_top=sup; |
vs_top=sup; |
2389 |
V450= vs_base[0]; |
V458= vs_base[0]; |
2390 |
{object V448; |
{object V456; |
2391 |
object V449= V450; |
object V457= V458; |
2392 |
if(V449==Cnil){ |
if(V457==Cnil){ |
2393 |
V447= Cnil; |
V455= Cnil; |
2394 |
goto T723;} |
goto T724;} |
2395 |
base[10]=V448=MMcons(Cnil,Cnil); |
base[10]=V456=MMcons(Cnil,Cnil); |
2396 |
goto T724; |
goto T725; |
2397 |
T724:; |
T725:; |
2398 |
base[11]= (VV[97]->s.s_gfdef); |
base[11]= (VV[97]->s.s_gfdef); |
2399 |
base[12]= list(3,VV[128],(V449->c.c_car),Cnil); |
base[12]= list(3,VV[128],(V457->c.c_car),Cnil); |
2400 |
base[13]= Cnil; |
base[13]= Cnil; |
2401 |
base[14]= (V438); |
base[14]= (V446); |
2402 |
vs_top=(vs_base=base+11)+4; |
vs_top=(vs_base=base+11)+4; |
2403 |
(void) (*Lnk277)(); |
(void) (*Lnk275)(); |
2404 |
vs_top=sup; |
vs_top=sup; |
2405 |
(V448->c.c_car)= vs_base[0]; |
(V456->c.c_car)= vs_base[0]; |
2406 |
if((V449=MMcdr(V449))==Cnil){ |
if((V457=MMcdr(V457))==Cnil){ |
2407 |
V447= base[10]; |
V455= base[10]; |
|
goto T723;} |
|
|
V448=MMcdr(V448)=MMcons(Cnil,Cnil); |
|
2408 |
goto T724;} |
goto T724;} |
2409 |
goto T723; |
V456=MMcdr(V456)=MMcons(Cnil,Cnil); |
2410 |
T723:; |
goto T725;} |
2411 |
base[9]= nreverse(V447); |
goto T724; |
2412 |
|
T724:; |
2413 |
|
base[9]= nreverse(V455); |
2414 |
base[9]=MMcons(base[9],base[7]); |
base[9]=MMcons(base[9],base[7]); |
2415 |
base[12]= (V434); |
base[12]= (V442); |
2416 |
base[13]= (V435); |
base[13]= (V443); |
2417 |
base[14]= CMPcaddr((V433)); |
base[14]= CMPcaddr((V441)); |
2418 |
vs_top=(vs_base=base+12)+3; |
vs_top=(vs_base=base+12)+3; |
2419 |
(void) (*Lnk278)(); |
(void) (*Lnk276)(); |
2420 |
if(vs_base>=vs_top){vs_top=sup;goto T737;} |
if(vs_base>=vs_top){vs_top=sup;goto T738;} |
2421 |
base[10]=MMcons(vs_base[0],base[9]); |
base[10]=MMcons(vs_base[0],base[9]); |
2422 |
vs_base++; |
vs_base++; |
2423 |
if(vs_base>=vs_top){vs_top=sup;goto T738;} |
if(vs_base>=vs_top){vs_top=sup;goto T739;} |
2424 |
base[11]=MMcons(vs_base[0],base[10]); |
base[11]=MMcons(vs_base[0],base[10]); |
2425 |
vs_top=sup; |
vs_top=sup; |
2426 |
goto T739; |
goto T740; |
|
goto T737; |
|
|
T737:; |
|
|
base[10]=MMcons(Cnil,base[9]); |
|
2427 |
goto T738; |
goto T738; |
2428 |
T738:; |
T738:; |
2429 |
base[11]=MMcons(Cnil,base[10]); |
base[10]=MMcons(Cnil,base[9]); |
2430 |
goto T739; |
goto T739; |
2431 |
T739:; |
T739:; |
2432 |
if(!(((V439))==(VV[127]))){ |
base[11]=MMcons(Cnil,base[10]); |
2433 |
goto T741;} |
goto T740; |
2434 |
{object V452 = |
T740:; |
2435 |
|
if(!(((V447))==(VV[127]))){ |
2436 |
|
goto T742;} |
2437 |
|
{object V460 = |
2438 |
make_cclosure_new(LC67,Cnil,base[11],Cdata); |
make_cclosure_new(LC67,Cnil,base[11],Cdata); |
2439 |
VMR41(V452)} |
VMR41(V460)} |
2440 |
goto T741; |
goto T742; |
2441 |
T741:; |
T742:; |
2442 |
{object V453 = |
{object V461 = |
2443 |
make_cclosure_new(LC68,Cnil,base[11],Cdata); |
make_cclosure_new(LC68,Cnil,base[11],Cdata); |
2444 |
VMR41(V453)}} |
VMR41(V461)}} |
2445 |
base[0]=base[0]; |
base[0]=base[0]; |
2446 |
return Cnil; |
return Cnil; |
2447 |
} |
} |
2448 |
/* local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */ |
/* local entry for function MAKE-INSTANCE-FUNCTION-COMPLEX */ |
2449 |
|
|
2450 |
static object LI45(V459,V460,V461,V462,V463) |
static object LI45(V467,V468,V469,V470,V471) |
2451 |
|
|
2452 |
object V459;object V460;object V461;object V462;object V463; |
object V467;object V468;object V469;object V470;object V471; |
2453 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
2454 |
goto TTL; |
goto TTL; |
2455 |
TTL:; |
TTL:; |
2456 |
base[0]=MMcons((V460),Cnil); |
base[0]=MMcons((V468),Cnil); |
2457 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
2458 |
base[4]= (V461); |
base[4]= (V469); |
2459 |
base[5]= CMPcaddr((V459)); |
base[5]= CMPcaddr((V467)); |
2460 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2461 |
(void) (*Lnk279)(); |
(void) (*Lnk277)(); |
2462 |
if(vs_base>=vs_top){vs_top=sup;goto T747;} |
if(vs_base>=vs_top){vs_top=sup;goto T748;} |
2463 |
base[1]=MMcons(vs_base[0],base[0]); |
base[1]=MMcons(vs_base[0],base[0]); |
2464 |
vs_base++; |
vs_base++; |
2465 |
if(vs_base>=vs_top){vs_top=sup;goto T748;} |
if(vs_base>=vs_top){vs_top=sup;goto T749;} |
2466 |
base[2]=MMcons(vs_base[0],base[1]); |
base[2]=MMcons(vs_base[0],base[1]); |
2467 |
vs_top=sup; |
vs_top=sup; |
2468 |
goto T749; |
goto T750; |
|
goto T747; |
|
|
T747:; |
|
|
base[1]=MMcons(Cnil,base[0]); |
|
2469 |
goto T748; |
goto T748; |
2470 |
T748:; |
T748:; |
2471 |
base[2]=MMcons(Cnil,base[1]); |
base[1]=MMcons(Cnil,base[0]); |
2472 |
goto T749; |
goto T749; |
2473 |
T749:; |
T749:; |
2474 |
base[3]= CMPcar((V459)); |
base[2]=MMcons(Cnil,base[1]); |
2475 |
|
goto T750; |
2476 |
|
T750:; |
2477 |
|
base[3]= CMPcar((V467)); |
2478 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
2479 |
if(!(type_of((base[3]->c.c_car))==t_symbol)){ |
if(!(type_of((base[3]->c.c_car))==t_symbol)){ |
2480 |
goto T753;} |
goto T754;} |
2481 |
base[4]= (VFUN_NARGS=2,(*(LnkLI224))((base[3]->c.c_car),Cnil)); |
base[4]= (VFUN_NARGS=2,(*(LnkLI224))((base[3]->c.c_car),Cnil)); |
2482 |
goto T751; |
goto T752; |
2483 |
goto T753; |
goto T754; |
2484 |
T753:; |
T754:; |
2485 |
base[4]= Cnil; |
base[4]= Cnil; |
2486 |
goto T751; |
goto T752; |
2487 |
T751:; |
T752:; |
2488 |
base[4]=MMcons(base[4],base[3]); |
base[4]=MMcons(base[4],base[3]); |
2489 |
base[8]= (base[0]->c.c_car); |
base[8]= (base[0]->c.c_car); |
2490 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2493 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
2494 |
base[5]=MMcons(base[5],base[4]); |
base[5]=MMcons(base[5],base[4]); |
2495 |
base[8]= (VV[98]->s.s_gfdef); |
base[8]= (VV[98]->s.s_gfdef); |
2496 |
base[9]= (V463); |
base[9]= (V471); |
2497 |
V464= list(2,VV[138],(base[0]->c.c_car)); |
V472= list(2,VV[138],(base[0]->c.c_car)); |
2498 |
base[10]= make_cons(/* INLINE-ARGS */V464,VV[139]); |
base[10]= make_cons(/* INLINE-ARGS */V472,VV[139]); |
2499 |
V465= (*(LnkLI260))((V463),VV[108]); |
V473= (*(LnkLI258))((V471),VV[108]); |
2500 |
V466= |
V474= |
2501 |
make_cclosure_new(LC69,Cnil,base[5],Cdata); |
make_cclosure_new(LC69,Cnil,base[5],Cdata); |
2502 |
V467= list(2,/* INLINE-ARGS */V465,V466); |
V475= list(2,/* INLINE-ARGS */V473,V474); |
2503 |
base[11]= make_cons(/* INLINE-ARGS */V467,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V475,Cnil); |
2504 |
base[12]= list(3,(base[5]->c.c_car),(VV[140]->s.s_dbind),(VV[140]->s.s_dbind)); |
base[12]= list(3,(base[5]->c.c_car),(VV[140]->s.s_dbind),(VV[140]->s.s_dbind)); |
2505 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
2506 |
(void) (*Lnk280)(); |
(void) (*Lnk278)(); |
2507 |
vs_top=sup; |
vs_top=sup; |
2508 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2509 |
base[6]=MMcons(base[6],base[5]); |
base[6]=MMcons(base[6],base[5]); |
2510 |
base[8]= (VV[97]->s.s_gfdef); |
base[8]= (VV[97]->s.s_gfdef); |
2511 |
base[9]= (V462); |
base[9]= (V470); |
2512 |
base[10]= list(2,list(2,VV[138],(base[0]->c.c_car)),Ct); |
base[10]= list(2,list(2,VV[138],(base[0]->c.c_car)),Ct); |
2513 |
V468= (*(LnkLI260))((V462),VV[108]); |
V476= (*(LnkLI258))((V470),VV[108]); |
2514 |
V469= |
V477= |
2515 |
make_cclosure_new(LC70,Cnil,base[6],Cdata); |
make_cclosure_new(LC70,Cnil,base[6],Cdata); |
2516 |
V470= list(2,/* INLINE-ARGS */V468,V469); |
V478= list(2,/* INLINE-ARGS */V476,V477); |
2517 |
base[11]= make_cons(/* INLINE-ARGS */V470,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V478,Cnil); |
2518 |
base[12]= list(2,(base[5]->c.c_car),(VV[140]->s.s_dbind)); |
base[12]= list(2,(base[5]->c.c_car),(VV[140]->s.s_dbind)); |
2519 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
2520 |
(void) (*Lnk280)(); |
(void) (*Lnk278)(); |
2521 |
vs_top=sup; |
vs_top=sup; |
2522 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
2523 |
base[7]=MMcons(base[7],base[6]); |
base[7]=MMcons(base[7],base[6]); |
2524 |
{object V471 = |
{object V479 = |
2525 |
make_cclosure_new(LC71,Cnil,base[7],Cdata); |
make_cclosure_new(LC71,Cnil,base[7],Cdata); |
2526 |
VMR42(V471)} |
VMR42(V479)} |
2527 |
base[0]=base[0]; |
base[0]=base[0]; |
2528 |
return Cnil; |
return Cnil; |
2529 |
} |
} |
2533 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2534 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM43; VC43 |
2535 |
vs_check; |
vs_check; |
2536 |
{object V472; |
{object V480; |
2537 |
object V473; |
object V481; |
2538 |
object V474; |
object V482; |
2539 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
2540 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
2541 |
V472=(base[0]); |
V480=(base[0]); |
2542 |
V473=(base[1]); |
V481=(base[1]); |
2543 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
2544 |
if(vs_base>=vs_top){vs_top=sup;goto T771;} |
if(vs_base>=vs_top){vs_top=sup;goto T772;} |
2545 |
V474=(base[2]); |
V482=(base[2]); |
2546 |
vs_top=sup; |
vs_top=sup; |
2547 |
goto T772; |
goto T773; |
|
goto T771; |
|
|
T771:; |
|
|
V474= Cnil; |
|
2548 |
goto T772; |
goto T772; |
2549 |
T772:; |
T772:; |
2550 |
{register object V475; |
V482= Cnil; |
2551 |
V475= (VFUN_NARGS=4,(*(LnkLI39))((V472),(V473),Cnil,(V474))); |
goto T773; |
2552 |
{object V476; |
T773:; |
2553 |
V476= STREF(object,(V475),44); |
{register object V483; |
2554 |
if(!(((V476))==(VV[43]))){ |
V483= (VFUN_NARGS=4,(*(LnkLI39))((V480),(V481),Cnil,(V482))); |
2555 |
goto T778;} |
{object V484; |
2556 |
(void)((*(LnkLI61))((V475),VV[74])); |
V484= STREF(object,(V483),44); |
2557 |
base[3]= STREF(object,(V475),44); |
if(!(((V484))==(VV[43]))){ |
2558 |
goto T775; |
goto T779;} |
2559 |
goto T778; |
(void)((*(LnkLI61))((V483),VV[74])); |
2560 |
T778:; |
base[3]= STREF(object,(V483),44); |
2561 |
base[3]= (V476);} |
goto T776; |
2562 |
goto T775; |
goto T779; |
2563 |
T775:; |
T779:; |
2564 |
{object V477; |
base[3]= (V484);} |
2565 |
V477= STREF(object,(V475),40); |
goto T776; |
2566 |
if(!(((V477))==(VV[43]))){ |
T776:; |
2567 |
goto T784;} |
{object V485; |
2568 |
(void)((*(LnkLI61))((V475),VV[73])); |
V485= STREF(object,(V483),40); |
2569 |
base[4]= STREF(object,(V475),40); |
if(!(((V485))==(VV[43]))){ |
2570 |
goto T781; |
goto T785;} |
2571 |
goto T784; |
(void)((*(LnkLI61))((V483),VV[73])); |
2572 |
T784:; |
base[4]= STREF(object,(V483),40); |
2573 |
base[4]= (V477);} |
goto T782; |
2574 |
goto T781; |
goto T785; |
2575 |
T781:; |
T785:; |
2576 |
|
base[4]= (V485);} |
2577 |
|
goto T782; |
2578 |
|
T782:; |
2579 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2580 |
return;} |
return;} |
2581 |
} |
} |
2586 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2587 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM44; VC44 |
2588 |
vs_check; |
vs_check; |
2589 |
{register object V478; |
{register object V486; |
2590 |
object V479; |
object V487; |
2591 |
register object V480; |
register object V488; |
2592 |
object V481; |
object V489; |
2593 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
2594 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
2595 |
V478=(base[0]); |
V486=(base[0]); |
2596 |
V479=(base[1]); |
V487=(base[1]); |
2597 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
|
if(vs_base>=vs_top){vs_top=sup;goto T787;} |
|
|
V480=(base[2]); |
|
|
vs_base++; |
|
2598 |
if(vs_base>=vs_top){vs_top=sup;goto T788;} |
if(vs_base>=vs_top){vs_top=sup;goto T788;} |
2599 |
V481=(base[3]); |
V488=(base[2]); |
2600 |
|
vs_base++; |
2601 |
|
if(vs_base>=vs_top){vs_top=sup;goto T789;} |
2602 |
|
V489=(base[3]); |
2603 |
vs_top=sup; |
vs_top=sup; |
2604 |
goto T789; |
goto T790; |
|
goto T787; |
|
|
T787:; |
|
|
V480= Cnil; |
|
2605 |
goto T788; |
goto T788; |
2606 |
T788:; |
T788:; |
2607 |
V481= Cnil; |
V488= Cnil; |
2608 |
goto T789; |
goto T789; |
2609 |
T789:; |
T789:; |
2610 |
{register object V482; |
V489= Cnil; |
2611 |
object V483; |
goto T790; |
2612 |
V482= (VFUN_NARGS=4,(*(LnkLI39))((V478),(V479),Cnil,(V480))); |
T790:; |
2613 |
{object V484; |
{register object V490; |
2614 |
V484= STREF(object,(V482),28); |
object V491; |
2615 |
if(!(((V484))==(VV[43]))){ |
V490= (VFUN_NARGS=4,(*(LnkLI39))((V486),(V487),Cnil,(V488))); |
2616 |
goto T796;} |
{object V492; |
2617 |
(void)((*(LnkLI61))((V482),VV[70])); |
V492= STREF(object,(V490),28); |
2618 |
V483= STREF(object,(V482),28); |
if(!(((V492))==(VV[43]))){ |
2619 |
goto T793; |
goto T797;} |
2620 |
goto T796; |
(void)((*(LnkLI61))((V490),VV[70])); |
2621 |
T796:; |
V491= STREF(object,(V490),28); |
2622 |
V483= (V484);} |
goto T794; |
2623 |
goto T793; |
goto T797; |
2624 |
T793:; |
T797:; |
2625 |
if(((V481))==Cnil){ |
V491= (V492);} |
2626 |
goto T800;} |
goto T794; |
2627 |
base[6]= (V483); |
T794:; |
2628 |
{object V485; |
if(((V489))==Cnil){ |
2629 |
V485= STREF(object,(V482),32); |
goto T801;} |
2630 |
if(!(((V485))==(VV[43]))){ |
base[6]= (V491); |
2631 |
goto T806;} |
{object V493; |
2632 |
(void)((*(LnkLI61))((V482),VV[71])); |
V493= STREF(object,(V490),32); |
2633 |
base[7]= STREF(object,(V482),32); |
if(!(((V493))==(VV[43]))){ |
2634 |
goto T803; |
goto T807;} |
2635 |
goto T806; |
(void)((*(LnkLI61))((V490),VV[71])); |
2636 |
T806:; |
base[7]= STREF(object,(V490),32); |
2637 |
base[7]= (V485);} |
goto T804; |
2638 |
goto T803; |
goto T807; |
2639 |
T803:; |
T807:; |
2640 |
|
base[7]= (V493);} |
2641 |
|
goto T804; |
2642 |
|
T804:; |
2643 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2644 |
return; |
return; |
2645 |
goto T800; |
goto T801; |
2646 |
T800:; |
T801:; |
2647 |
base[6]= (V483); |
base[6]= (V491); |
|
{object V486; |
|
|
V487 = (V478); |
|
|
{object V489; |
|
|
V489= STREF(object,(V482),24); |
|
|
if(!(((V489))==(VV[43]))){ |
|
|
goto T815;} |
|
|
(void)((*(LnkLI61))((V482),VV[69])); |
|
|
V488= STREF(object,(V482),24); |
|
|
goto T812; |
|
|
goto T815; |
|
|
T815:; |
|
|
V488= (V489);} |
|
|
goto T812; |
|
|
T812:; |
|
|
V490 = (V480); |
|
|
V491= (VFUN_NARGS=4,(*(LnkLI39))(V487,V488,Cnil,V490)); |
|
|
V486= STREF(object,/* INLINE-ARGS */V491,32); |
|
|
if(!(((V486))==(VV[43]))){ |
|
|
goto T819;} |
|
|
V492 = (V478); |
|
2648 |
{object V494; |
{object V494; |
2649 |
V494= STREF(object,(V482),24); |
V495 = (V486); |
2650 |
|
{object V497; |
2651 |
|
V497= STREF(object,(V490),24); |
2652 |
|
if(!(((V497))==(VV[43]))){ |
2653 |
|
goto T816;} |
2654 |
|
(void)((*(LnkLI61))((V490),VV[69])); |
2655 |
|
V496= STREF(object,(V490),24); |
2656 |
|
goto T813; |
2657 |
|
goto T816; |
2658 |
|
T816:; |
2659 |
|
V496= (V497);} |
2660 |
|
goto T813; |
2661 |
|
T813:; |
2662 |
|
V498 = (V488); |
2663 |
|
V499= (VFUN_NARGS=4,(*(LnkLI39))(V495,V496,Cnil,V498)); |
2664 |
|
V494= STREF(object,/* INLINE-ARGS */V499,32); |
2665 |
if(!(((V494))==(VV[43]))){ |
if(!(((V494))==(VV[43]))){ |
2666 |
goto T825;} |
goto T820;} |
2667 |
(void)((*(LnkLI61))((V482),VV[69])); |
V500 = (V486); |
2668 |
V493= STREF(object,(V482),24); |
{object V502; |
2669 |
goto T822; |
V502= STREF(object,(V490),24); |
2670 |
goto T825; |
if(!(((V502))==(VV[43]))){ |
2671 |
T825:; |
goto T826;} |
2672 |
V493= (V494);} |
(void)((*(LnkLI61))((V490),VV[69])); |
2673 |
goto T822; |
V501= STREF(object,(V490),24); |
2674 |
T822:; |
goto T823; |
2675 |
V495 = (V480); |
goto T826; |
2676 |
V496= (VFUN_NARGS=4,(*(LnkLI39))(V492,V493,Cnil,V495)); |
T826:; |
2677 |
(void)((*(LnkLI61))(/* INLINE-ARGS */V496,VV[71])); |
V501= (V502);} |
2678 |
V497 = (V478); |
goto T823; |
2679 |
{object V499; |
T823:; |
2680 |
V499= STREF(object,(V482),24); |
V503 = (V488); |
2681 |
if(!(((V499))==(VV[43]))){ |
V504= (VFUN_NARGS=4,(*(LnkLI39))(V500,V501,Cnil,V503)); |
2682 |
goto T831;} |
(void)((*(LnkLI61))(/* INLINE-ARGS */V504,VV[71])); |
2683 |
(void)((*(LnkLI61))((V482),VV[69])); |
V505 = (V486); |
2684 |
V498= STREF(object,(V482),24); |
{object V507; |
2685 |
goto T828; |
V507= STREF(object,(V490),24); |
2686 |
goto T831; |
if(!(((V507))==(VV[43]))){ |
2687 |
T831:; |
goto T832;} |
2688 |
V498= (V499);} |
(void)((*(LnkLI61))((V490),VV[69])); |
2689 |
goto T828; |
V506= STREF(object,(V490),24); |
2690 |
T828:; |
goto T829; |
2691 |
V500 = (V480); |
goto T832; |
2692 |
V501= (VFUN_NARGS=4,(*(LnkLI39))(V497,V498,Cnil,V500)); |
T832:; |
2693 |
base[7]= STREF(object,/* INLINE-ARGS */V501,32); |
V506= (V507);} |
2694 |
goto T810; |
goto T829; |
2695 |
goto T819; |
T829:; |
2696 |
T819:; |
V508 = (V488); |
2697 |
base[7]= (V486);} |
V509= (VFUN_NARGS=4,(*(LnkLI39))(V505,V506,Cnil,V508)); |
2698 |
goto T810; |
base[7]= STREF(object,/* INLINE-ARGS */V509,32); |
2699 |
T810:; |
goto T811; |
2700 |
|
goto T820; |
2701 |
|
T820:; |
2702 |
|
base[7]= (V494);} |
2703 |
|
goto T811; |
2704 |
|
T811:; |
2705 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2706 |
return;} |
return;} |
2707 |
} |
} |
2708 |
} |
} |
2709 |
/* local entry for function ADD-FORMS */ |
/* local entry for function ADD-FORMS */ |
2710 |
|
|
2711 |
static object LI48(V504,V505) |
static object LI48(V512,V513) |
2712 |
|
|
2713 |
register object V504;register object V505; |
register object V512;register object V513; |
2714 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
2715 |
goto TTL; |
goto TTL; |
2716 |
TTL:; |
TTL:; |
2717 |
if(((V504))==Cnil){ |
if(((V512))==Cnil){ |
2718 |
goto T834;} |
goto T835;} |
2719 |
base[0]= (V504); |
base[0]= (V512); |
2720 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2721 |
Lcopy_list(); |
Lcopy_list(); |
2722 |
vs_top=sup; |
vs_top=sup; |
2723 |
V504= vs_base[0]; |
V512= vs_base[0]; |
2724 |
if((CMPcar((V505)))!=Cnil){ |
if((CMPcar((V513)))!=Cnil){ |
2725 |
goto T842;} |
goto T843;} |
2726 |
(V505)->c.c_car = V504; |
(V513)->c.c_car = V512; |
2727 |
goto T840; |
goto T841; |
2728 |
goto T842; |
goto T843; |
2729 |
T842:; |
T843:; |
2730 |
(CMPcdr(V505))->c.c_cdr = V504; |
(CMPcdr(V513))->c.c_cdr = V512; |
2731 |
(void)(CMPcdr(V505)); |
(void)(CMPcdr(V513)); |
2732 |
goto T840; |
goto T841; |
2733 |
T840:; |
T841:; |
2734 |
{object V511; |
{object V519; |
2735 |
base[1]= (V504); |
base[1]= (V512); |
2736 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2737 |
Llast(); |
Llast(); |
2738 |
vs_top=sup; |
vs_top=sup; |
2739 |
V511= vs_base[0]; |
V519= vs_base[0]; |
2740 |
(V505)->c.c_cdr = (V511);} |
(V513)->c.c_cdr = (V519);} |
2741 |
goto T834; |
goto T835; |
2742 |
T834:; |
T835:; |
2743 |
{object V512 = CMPcar((V505)); |
{object V520 = CMPcar((V513)); |
2744 |
VMR45(V512)} |
VMR45(V520)} |
2745 |
base[0]=base[0]; |
base[0]=base[0]; |
2746 |
return Cnil; |
return Cnil; |
2747 |
} |
} |
2751 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2752 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
2753 |
vs_check; |
vs_check; |
2754 |
{object V513; |
{object V521; |
2755 |
object V514; |
object V522; |
2756 |
object V515; |
object V523; |
2757 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
2758 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
2759 |
V513=(base[0]); |
V521=(base[0]); |
2760 |
V514=(base[1]); |
V522=(base[1]); |
2761 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
2762 |
if(vs_base>=vs_top){vs_top=sup;goto T849;} |
if(vs_base>=vs_top){vs_top=sup;goto T850;} |
2763 |
V515=(base[2]); |
V523=(base[2]); |
2764 |
vs_top=sup; |
vs_top=sup; |
2765 |
goto T850; |
goto T851; |
|
goto T849; |
|
|
T849:; |
|
|
V515= Ct; |
|
2766 |
goto T850; |
goto T850; |
2767 |
T850:; |
T850:; |
2768 |
{object V516; |
V523= Ct; |
2769 |
object V517; |
goto T851; |
2770 |
object V518; |
T851:; |
2771 |
object V519; |
{object V524; |
2772 |
register object V520; |
object V525; |
2773 |
V516= make_cons(Cnil,Cnil); |
object V526; |
2774 |
base[3]= (V513); |
object V527; |
2775 |
|
register object V528; |
2776 |
|
V524= make_cons(Cnil,Cnil); |
2777 |
|
base[3]= (V521); |
2778 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2779 |
(void) (*Lnk281)(Lclptr281); |
(void) (*Lnk279)(Lclptr279); |
2780 |
vs_top=sup; |
vs_top=sup; |
2781 |
V517= vs_base[0]; |
V525= vs_base[0]; |
2782 |
base[4]= (V513); |
base[4]= (V521); |
2783 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2784 |
(void) (*Lnk282)(Lclptr282); |
(void) (*Lnk280)(Lclptr280); |
2785 |
vs_top=sup; |
vs_top=sup; |
2786 |
V523= vs_base[0]; |
V531= vs_base[0]; |
2787 |
{object V521; |
{object V529; |
2788 |
object V522= V523; |
object V530= V531; |
2789 |
if(V522==Cnil){ |
if(V530==Cnil){ |
2790 |
V519= Cnil; |
V527= Cnil; |
2791 |
goto T855;} |
goto T856;} |
2792 |
base[3]=V521=MMcons(Cnil,Cnil); |
base[3]=V529=MMcons(Cnil,Cnil); |
2793 |
goto T856; |
goto T857; |
2794 |
T856:; |
T857:; |
2795 |
base[5]= (V522->c.c_car); |
base[5]= (V530->c.c_car); |
2796 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2797 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk281)(Lclptr281); |
2798 |
vs_top=sup; |
vs_top=sup; |
2799 |
V527= vs_base[0]; |
V535= vs_base[0]; |
2800 |
{object V525; |
{object V533; |
2801 |
object V526= V527; |
object V534= V535; |
2802 |
if(V526==Cnil){ |
if(V534==Cnil){ |
2803 |
(V521->c.c_cdr)= Cnil; |
(V529->c.c_cdr)= Cnil; |
2804 |
goto T859;} |
goto T860;} |
2805 |
base[4]=V525=MMcons(Cnil,Cnil); |
base[4]=V533=MMcons(Cnil,Cnil); |
2806 |
|
goto T861; |
2807 |
|
T861:; |
2808 |
|
(V533->c.c_car)= make_cons((V534->c.c_car),(V530->c.c_car)); |
2809 |
|
if((V534=MMcdr(V534))==Cnil){ |
2810 |
|
(V529->c.c_cdr)= base[4]; |
2811 |
|
goto T860;} |
2812 |
|
V533=MMcdr(V533)=MMcons(Cnil,Cnil); |
2813 |
|
goto T861;} |
2814 |
goto T860; |
goto T860; |
2815 |
T860:; |
T860:; |
2816 |
(V525->c.c_car)= make_cons((V526->c.c_car),(V522->c.c_car)); |
while(MMcdr(V529)!=Cnil)V529=MMcdr(V529); |
2817 |
if((V526=MMcdr(V526))==Cnil){ |
if((V530=MMcdr(V530))==Cnil){ |
|
(V521->c.c_cdr)= base[4]; |
|
|
goto T859;} |
|
|
V525=MMcdr(V525)=MMcons(Cnil,Cnil); |
|
|
goto T860;} |
|
|
goto T859; |
|
|
T859:; |
|
|
while(MMcdr(V521)!=Cnil)V521=MMcdr(V521); |
|
|
if((V522=MMcdr(V522))==Cnil){ |
|
2818 |
base[3]=base[3]->c.c_cdr; |
base[3]=base[3]->c.c_cdr; |
2819 |
V519= base[3]; |
V527= base[3]; |
|
goto T855;} |
|
2820 |
goto T856;} |
goto T856;} |
2821 |
goto T855; |
goto T857;} |
2822 |
T855:; |
goto T856; |
2823 |
V518= (V514); |
T856:; |
2824 |
V520= Cnil; |
V526= (V522); |
2825 |
{register object V529; |
V528= Cnil; |
2826 |
object V530; |
{register object V537; |
2827 |
V529= (V518); |
object V538; |
2828 |
V530= CMPcar((V529)); |
V537= (V526); |
2829 |
goto T868; |
V538= CMPcar((V537)); |
|
T868:; |
|
|
if(!(((V529))==Cnil)){ |
|
|
goto T869;} |
|
|
goto T864; |
|
2830 |
goto T869; |
goto T869; |
2831 |
T869:; |
T869:; |
2832 |
{object V531; |
if(!(((V537))==Cnil)){ |
2833 |
{register object x= (V530),V533= (V519); |
goto T870;} |
2834 |
while(V533!=Cnil) |
goto T865; |
2835 |
if(eql(x,V533->c.c_car->c.c_car) &&V533->c.c_car != Cnil){ |
goto T870; |
2836 |
V532= (V533->c.c_car); |
T870:; |
2837 |
goto T875; |
{object V539; |
2838 |
}else V533=V533->c.c_cdr; |
{register object x= (V538),V541= (V527); |
2839 |
V532= Cnil;} |
while(V541!=Cnil) |
2840 |
goto T875; |
if(eql(x,V541->c.c_car->c.c_car) &&V541->c.c_car != Cnil){ |
2841 |
T875:; |
V540= (V541->c.c_car); |
2842 |
V531= CMPcdr(V532); |
goto T876; |
2843 |
base[5]= (V531); |
}else V541=V541->c.c_cdr; |
2844 |
base[6]= (V520); |
V540= Cnil;} |
2845 |
|
goto T876; |
2846 |
|
T876:; |
2847 |
|
V539= CMPcdr(V540); |
2848 |
|
base[5]= (V539); |
2849 |
|
base[6]= (V528); |
2850 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2851 |
Ladjoin(); |
Ladjoin(); |
2852 |
vs_top=sup; |
vs_top=sup; |
2853 |
V520= vs_base[0];} |
V528= vs_base[0];} |
2854 |
V529= CMPcdr((V529)); |
V537= CMPcdr((V537)); |
2855 |
V530= CMPcar((V529)); |
V538= CMPcar((V537)); |
2856 |
goto T868;} |
goto T869;} |
2857 |
goto T864; |
goto T865; |
2858 |
T864:; |
T865:; |
2859 |
{register object V534; |
{register object V542; |
2860 |
register object V535; |
register object V543; |
2861 |
V534= (V517); |
V542= (V525); |
2862 |
V535= CMPcar((V534)); |
V543= CMPcar((V542)); |
|
goto T888; |
|
|
T888:; |
|
|
if(!(((V534))==Cnil)){ |
|
|
goto T889;} |
|
|
goto T884; |
|
2863 |
goto T889; |
goto T889; |
2864 |
T889:; |
T889:; |
2865 |
{register object V536; |
if(!(((V542))==Cnil)){ |
2866 |
register object V537; |
goto T890;} |
2867 |
object V538; |
goto T885; |
2868 |
V536= CMPcar((V535)); |
goto T890; |
2869 |
{register object x= (V536),V540= (V519); |
T890:; |
2870 |
while(V540!=Cnil) |
{register object V544; |
2871 |
if(eql(x,V540->c.c_car->c.c_car) &&V540->c.c_car != Cnil){ |
register object V545; |
2872 |
V539= (V540->c.c_car); |
object V546; |
2873 |
goto T896; |
V544= CMPcar((V543)); |
2874 |
}else V540=V540->c.c_cdr; |
{register object x= (V544),V548= (V527); |
2875 |
V539= Cnil;} |
while(V548!=Cnil) |
2876 |
goto T896; |
if(eql(x,V548->c.c_car->c.c_car) &&V548->c.c_car != Cnil){ |
2877 |
T896:; |
V547= (V548->c.c_car); |
2878 |
V537= CMPcdr(V539); |
goto T897; |
2879 |
V538= CMPcadr((V535)); |
}else V548=V548->c.c_cdr; |
2880 |
{register object x= (V537),V541= (V520); |
V547= Cnil;} |
2881 |
while(V541!=Cnil) |
goto T897; |
2882 |
if(eql(x,V541->c.c_car)){ |
T897:; |
2883 |
goto T893; |
V545= CMPcdr(V547); |
2884 |
}else V541=V541->c.c_cdr;} |
V546= CMPcadr((V543)); |
2885 |
V542= list(2,VV[114],(V538)); |
{register object x= (V545),V549= (V528); |
2886 |
V543= list(2,/* INLINE-ARGS */V542,list(2,VV[145],(V536))); |
while(V549!=Cnil) |
2887 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V543,(V516))); |
if(eql(x,V549->c.c_car)){ |
2888 |
V518= make_cons(V536,(V518)); |
goto T894; |
2889 |
V520= make_cons(V537,(V520));} |
}else V549=V549->c.c_cdr;} |
2890 |
goto T893; |
V550= list(2,VV[114],(V546)); |
2891 |
T893:; |
V551= list(2,/* INLINE-ARGS */V550,list(2,VV[145],(V544))); |
2892 |
V534= CMPcdr((V534)); |
(void)((*(LnkLI282))(/* INLINE-ARGS */V551,(V524))); |
2893 |
V535= CMPcar((V534)); |
V526= make_cons(V544,(V526)); |
2894 |
goto T888;} |
V528= make_cons(V545,(V528));} |
2895 |
goto T884; |
goto T894; |
2896 |
T884:; |
T894:; |
2897 |
if(((V515))==Cnil){ |
V542= CMPcdr((V542)); |
2898 |
goto T909;} |
V543= CMPcar((V542)); |
2899 |
V546 = (V513); |
goto T889;} |
2900 |
V547= list(3,VV[146],V546,(VFUN_NARGS=3,(*(LnkLI39))((V513),(V518),Cnil))); |
goto T885; |
2901 |
V548= make_cons(/* INLINE-ARGS */V547,Cnil); |
T885:; |
2902 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V548,(V516))); |
if(((V523))==Cnil){ |
2903 |
goto T909; |
goto T910;} |
2904 |
T909:; |
V554 = (V521); |
2905 |
(void)((*(LnkLI284))(VV[147],(V516))); |
V555= list(3,VV[146],V554,(VFUN_NARGS=3,(*(LnkLI39))((V521),(V526),Cnil))); |
2906 |
base[3]= CMPcar((V516)); |
V556= make_cons(/* INLINE-ARGS */V555,Cnil); |
2907 |
base[4]= (V518); |
(void)((*(LnkLI282))(/* INLINE-ARGS */V556,(V524))); |
2908 |
|
goto T910; |
2909 |
|
T910:; |
2910 |
|
(void)((*(LnkLI282))(VV[147],(V524))); |
2911 |
|
base[3]= CMPcar((V524)); |
2912 |
|
base[4]= (V526); |
2913 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2914 |
return;} |
return;} |
2915 |
} |
} |
2920 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2921 |
register object *sup=base+VM47; VC47 |
register object *sup=base+VM47; VC47 |
2922 |
vs_check; |
vs_check; |
2923 |
{object V549; |
{object V557; |
2924 |
object V550; |
object V558; |
2925 |
object V551; |
object V559; |
2926 |
object V552; |
object V560; |
2927 |
check_arg(4); |
check_arg(4); |
2928 |
V549=(base[0]); |
V557=(base[0]); |
2929 |
V550=(base[1]); |
V558=(base[1]); |
2930 |
V551=(base[2]); |
V559=(base[2]); |
2931 |
V552=(base[3]); |
V560=(base[3]); |
2932 |
vs_top=sup; |
vs_top=sup; |
2933 |
goto TTL; |
goto TTL; |
2934 |
TTL:; |
TTL:; |
2935 |
{object V553; |
{object V561; |
2936 |
object V554; |
object V562; |
2937 |
object V555; |
object V563; |
2938 |
object V556; |
object V564; |
2939 |
object V557; |
object V565; |
2940 |
object V558; |
object V566; |
2941 |
object V559; |
object V567; |
2942 |
object V560; |
object V568; |
2943 |
V553= make_cons(Cnil,Cnil); |
V561= make_cons(Cnil,Cnil); |
2944 |
base[12]= (V549); |
base[12]= (V557); |
2945 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2946 |
(void) (*Lnk270)(Lclptr270); |
(void) (*Lnk268)(Lclptr268); |
2947 |
vs_top=sup; |
vs_top=sup; |
2948 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2949 |
goto T918;} |
goto T919;} |
2950 |
V554= VV[148]; |
V562= VV[148]; |
2951 |
goto T916; |
goto T917; |
2952 |
goto T918; |
goto T919; |
2953 |
T918:; |
T919:; |
2954 |
base[12]= (V549); |
base[12]= (V557); |
2955 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2956 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk270)(Lclptr270); |
2957 |
vs_top=sup; |
vs_top=sup; |
2958 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2959 |
goto T922;} |
goto T923;} |
2960 |
V554= VV[149]; |
V562= VV[149]; |
2961 |
goto T916; |
goto T917; |
2962 |
goto T922; |
goto T923; |
2963 |
T922:; |
T923:; |
2964 |
base[12]= (V549); |
base[12]= (V557); |
2965 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2966 |
(void) (*Lnk274)(Lclptr274); |
(void) (*Lnk272)(Lclptr272); |
2967 |
vs_top=sup; |
vs_top=sup; |
2968 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2969 |
goto T926;} |
goto T927;} |
2970 |
V554= VV[150]; |
V562= VV[150]; |
2971 |
goto T916; |
goto T917; |
2972 |
goto T926; |
goto T927; |
2973 |
T926:; |
T927:; |
2974 |
base[12]= VV[151]; |
base[12]= VV[151]; |
2975 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2976 |
Lerror(); |
Lerror(); |
2977 |
vs_top=sup; |
vs_top=sup; |
2978 |
V554= vs_base[0]; |
V562= vs_base[0]; |
2979 |
goto T916; |
goto T917; |
2980 |
T916:; |
T917:; |
2981 |
base[12]= (V549); |
base[12]= (V557); |
2982 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2983 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk243)(Lclptr243); |
2984 |
vs_top=sup; |
vs_top=sup; |
2985 |
V555= vs_base[0]; |
V563= vs_base[0]; |
2986 |
if(((V552))==Cnil){ |
if(((V560))==Cnil){ |
2987 |
goto T934;} |
goto T935;} |
2988 |
base[12]= ((V555))->v.v_self[12]; |
base[12]= ((V563))->v.v_self[12]; |
2989 |
base[13]= VV[152]; |
base[13]= VV[152]; |
2990 |
base[14]= (VV[153]->s.s_dbind); |
base[14]= (VV[153]->s.s_dbind); |
2991 |
vs_top=(vs_base=base+12)+3; |
vs_top=(vs_base=base+12)+3; |
2992 |
(void) (*Lnk285)(); |
(void) (*Lnk283)(); |
2993 |
vs_top=sup; |
vs_top=sup; |
2994 |
V556= vs_base[0]; |
V564= vs_base[0]; |
2995 |
goto T932; |
goto T933; |
2996 |
goto T934; |
goto T935; |
2997 |
T934:; |
T935:; |
2998 |
V556= Cnil; |
V564= Cnil; |
2999 |
goto T932; |
goto T933; |
3000 |
T932:; |
T933:; |
3001 |
base[12]= (V549); |
base[12]= (V557); |
3002 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
3003 |
(void) (*Lnk282)(Lclptr282); |
(void) (*Lnk280)(Lclptr280); |
3004 |
vs_top=sup; |
vs_top=sup; |
3005 |
V557= vs_base[0]; |
V565= vs_base[0]; |
3006 |
base[13]=VV[286]->s.s_gfdef; |
base[13]=VV[284]->s.s_gfdef; |
3007 |
{object V561; |
{object V569; |
3008 |
object V562= (V557); |
object V570= (V565); |
3009 |
if(V562==Cnil){ |
if(V570==Cnil){ |
3010 |
V558= Cnil; |
V566= Cnil; |
3011 |
goto T941;} |
goto T942;} |
3012 |
base[12]=V561=MMcons(Cnil,Cnil); |
base[12]=V569=MMcons(Cnil,Cnil); |
3013 |
goto T942; |
goto T943; |
3014 |
T942:; |
T943:; |
3015 |
base[14]= (V562->c.c_car); |
base[14]= (V570->c.c_car); |
3016 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
3017 |
(void) (*Lnk286)(Lclptr286); |
(void) (*Lnk284)(Lclptr284); |
3018 |
vs_top=sup; |
vs_top=sup; |
3019 |
(V561->c.c_car)= vs_base[0]; |
(V569->c.c_car)= vs_base[0]; |
3020 |
if((V562=MMcdr(V562))==Cnil){ |
if((V570=MMcdr(V570))==Cnil){ |
3021 |
V558= base[12]; |
V566= base[12]; |
|
goto T941;} |
|
|
V561=MMcdr(V561)=MMcons(Cnil,Cnil); |
|
3022 |
goto T942;} |
goto T942;} |
3023 |
goto T941; |
V569=MMcdr(V569)=MMcons(Cnil,Cnil); |
3024 |
T941:; |
goto T943;} |
3025 |
{object V563; |
goto T942; |
3026 |
object V564= (V557); |
T942:; |
3027 |
if(V564==Cnil){ |
{object V571; |
3028 |
V559= Cnil; |
object V572= (V565); |
3029 |
goto T945;} |
if(V572==Cnil){ |
3030 |
base[12]=V563=MMcons(Cnil,Cnil); |
V567= Cnil; |
3031 |
goto T946; |
goto T946;} |
3032 |
T946:; |
base[12]=V571=MMcons(Cnil,Cnil); |
3033 |
{object V566; |
goto T947; |
3034 |
V566= VV[154]; |
T947:; |
3035 |
{register object V567; |
{object V574; |
3036 |
object V568; |
V574= VV[154]; |
3037 |
base[15]= (V564->c.c_car); |
{register object V575; |
3038 |
|
object V576; |
3039 |
|
base[15]= (V572->c.c_car); |
3040 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
3041 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk281)(Lclptr281); |
3042 |
vs_top=sup; |
vs_top=sup; |
3043 |
V567= vs_base[0]; |
V575= vs_base[0]; |
3044 |
V568= CMPcar((V567)); |
V576= CMPcar((V575)); |
|
goto T953; |
|
|
T953:; |
|
|
if(!(((V567))==Cnil)){ |
|
|
goto T954;} |
|
|
goto T948; |
|
3045 |
goto T954; |
goto T954; |
3046 |
T954:; |
T954:; |
3047 |
{object V569; |
if(!(((V575))==Cnil)){ |
3048 |
base[15]= (V568); |
goto T955;} |
3049 |
base[16]= (V550); |
goto T949; |
3050 |
|
goto T955; |
3051 |
|
T955:; |
3052 |
|
{object V577; |
3053 |
|
base[15]= (V576); |
3054 |
|
base[16]= (V558); |
3055 |
vs_top=(vs_base=base+15)+2; |
vs_top=(vs_base=base+15)+2; |
3056 |
(void) (*Lnk287)(); |
(void) (*Lnk285)(); |
3057 |
vs_top=sup; |
vs_top=sup; |
3058 |
V569= vs_base[0]; |
V577= vs_base[0]; |
3059 |
if(((V569))==Cnil){ |
if(((V577))==Cnil){ |
3060 |
goto T958;} |
goto T959;} |
3061 |
V566= (number_compare((V566),(V569))<=0?((V566)):(V569));} |
V574= (number_compare((V574),(V577))<=0?((V574)):(V577));} |
3062 |
goto T958; |
goto T959; |
3063 |
T958:; |
T959:; |
3064 |
V567= CMPcdr((V567)); |
V575= CMPcdr((V575)); |
3065 |
V568= CMPcar((V567)); |
V576= CMPcar((V575)); |
3066 |
goto T953;} |
goto T954;} |
3067 |
goto T948; |
goto T949; |
3068 |
T948:; |
T949:; |
3069 |
(V563->c.c_car)= make_cons((V564->c.c_car),(V566));} |
(V571->c.c_car)= make_cons((V572->c.c_car),(V574));} |
3070 |
if((V564=MMcdr(V564))==Cnil){ |
if((V572=MMcdr(V572))==Cnil){ |
3071 |
V559= base[12]; |
V567= base[12]; |
|
goto T945;} |
|
|
V563=MMcdr(V563)=MMcons(Cnil,Cnil); |
|
3072 |
goto T946;} |
goto T946;} |
3073 |
goto T945; |
V571=MMcdr(V571)=MMcons(Cnil,Cnil); |
3074 |
T945:; |
goto T947;} |
3075 |
base[12]= (V559); |
goto T946; |
3076 |
base[13]= (VV[288]->s.s_gfdef); |
T946:; |
3077 |
|
base[12]= (V567); |
3078 |
|
base[13]= (VV[286]->s.s_gfdef); |
3079 |
base[14]= VV[155]; |
base[14]= VV[155]; |
3080 |
base[15]= (VV[189]->s.s_gfdef); |
base[15]= (VV[189]->s.s_gfdef); |
3081 |
vs_top=(vs_base=base+12)+4; |
vs_top=(vs_base=base+12)+4; |
3082 |
(void) (*Lnk289)(); |
(void) (*Lnk287)(); |
3083 |
vs_top=sup; |
vs_top=sup; |
3084 |
V560= vs_base[0]; |
V568= vs_base[0]; |
3085 |
{long V570; |
{long V578; |
3086 |
V570= 0; |
V578= 0; |
3087 |
{register object V571; |
{register object V579; |
3088 |
register object V572; |
register object V580; |
3089 |
V571= (V560); |
V579= (V568); |
3090 |
V572= CMPcar((V571)); |
V580= CMPcar((V579)); |
|
goto T980; |
|
|
T980:; |
|
|
if(!(((V571))==Cnil)){ |
|
|
goto T981;} |
|
|
goto T975; |
|
3091 |
goto T981; |
goto T981; |
3092 |
T981:; |
T981:; |
3093 |
{object V573; |
if(!(((V579))==Cnil)){ |
3094 |
object V574; |
goto T982;} |
3095 |
register long V575; |
goto T976; |
3096 |
V573= CMPcar((V572)); |
goto T982; |
3097 |
base[15]= (V573); |
T982:; |
3098 |
|
{object V581; |
3099 |
|
object V582; |
3100 |
|
register long V583; |
3101 |
|
V581= CMPcar((V580)); |
3102 |
|
base[15]= (V581); |
3103 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
3104 |
(void) (*Lnk286)(Lclptr286); |
(void) (*Lnk284)(Lclptr284); |
3105 |
vs_top=sup; |
vs_top=sup; |
3106 |
V574= vs_base[0]; |
V582= vs_base[0]; |
3107 |
V576= CMPcdr((V572)); |
V584= CMPcdr((V580)); |
3108 |
V577 = CMPmake_fixnum(V570); |
V585 = CMPmake_fixnum(V578); |
3109 |
V578= number_minus(/* INLINE-ARGS */V576,V577); |
V586= number_minus(/* INLINE-ARGS */V584,V585); |
3110 |
V575= fix(one_plus(/* INLINE-ARGS */V578)); |
V583= fix(one_plus(/* INLINE-ARGS */V586)); |
3111 |
if(eql(CMPcdr((V572)),VV[154])){ |
if(eql(CMPcdr((V580)),VV[154])){ |
3112 |
goto T985;} |
goto T986;} |
3113 |
{object V579; |
{object V587; |
3114 |
base[16]= (V574); |
base[16]= (V582); |
3115 |
base[17]= (V558); |
base[17]= (V566); |
3116 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
3117 |
(void) (*Lnk287)(); |
(void) (*Lnk285)(); |
3118 |
vs_top=sup; |
vs_top=sup; |
3119 |
V580= vs_base[0]; |
V588= vs_base[0]; |
3120 |
V579= one_plus(V580); |
V587= one_plus(V588); |
3121 |
if(!((V575)>0)){ |
if(!((V583)>0)){ |
3122 |
goto T999;} |
goto T1000;} |
3123 |
V582 = CMPmake_fixnum((long)(2)*(V575)); |
V590 = CMPmake_fixnum((long)(2)*(V583)); |
3124 |
V583= list(2,VV[156],V582); |
V591= list(2,VV[156],V590); |
3125 |
V581= make_cons(/* INLINE-ARGS */V583,Cnil); |
V589= make_cons(/* INLINE-ARGS */V591,Cnil); |
3126 |
goto T997; |
goto T998; |
3127 |
goto T999; |
goto T1000; |
3128 |
T999:; |
T1000:; |
3129 |
V581= Cnil; |
V589= Cnil; |
3130 |
goto T997; |
goto T998; |
3131 |
T997:; |
T998:; |
3132 |
V584= list(3,VV[157],(V579),(V573)); |
V592= list(3,VV[157],(V587),(V581)); |
3133 |
V585= make_cons(/* INLINE-ARGS */V584,Cnil); |
V593= make_cons(/* INLINE-ARGS */V592,Cnil); |
3134 |
V586= append(V581,/* INLINE-ARGS */V585); |
V594= append(V589,/* INLINE-ARGS */V593); |
3135 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V586,(V553)));} |
(void)((*(LnkLI282))(/* INLINE-ARGS */V594,(V561)));} |
3136 |
V570= (long)(V570)+(V575);} |
V578= (long)(V578)+(V583);} |
3137 |
goto T985; |
goto T986; |
3138 |
T985:; |
T986:; |
3139 |
V571= CMPcdr((V571)); |
V579= CMPcdr((V579)); |
3140 |
V572= CMPcar((V571)); |
V580= CMPcar((V579)); |
3141 |
goto T980;}} |
goto T981;}} |
3142 |
goto T975; |
goto T976; |
3143 |
T975:; |
T976:; |
3144 |
{register object V587; |
{register object V595; |
3145 |
object V588; |
object V596; |
3146 |
V587= (V560); |
V595= (V568); |
3147 |
V588= CMPcar((V587)); |
V596= CMPcar((V595)); |
|
goto T1011; |
|
|
T1011:; |
|
|
if(!(((V587))==Cnil)){ |
|
|
goto T1012;} |
|
|
goto T1007; |
|
3148 |
goto T1012; |
goto T1012; |
3149 |
T1012:; |
T1012:; |
3150 |
{register object V589; |
if(!(((V595))==Cnil)){ |
3151 |
object V590; |
goto T1013;} |
3152 |
V589= CMPcar((V588)); |
goto T1008; |
3153 |
base[15]= (V589); |
goto T1013; |
3154 |
|
T1013:; |
3155 |
|
{register object V597; |
3156 |
|
object V598; |
3157 |
|
V597= CMPcar((V596)); |
3158 |
|
base[15]= (V597); |
3159 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
3160 |
(void) (*Lnk286)(Lclptr286); |
(void) (*Lnk284)(Lclptr284); |
3161 |
vs_top=sup; |
vs_top=sup; |
3162 |
V590= vs_base[0]; |
V598= vs_base[0]; |
3163 |
if(!(eql(CMPcdr((V588)),VV[154]))){ |
if(!(eql(CMPcdr((V596)),VV[154]))){ |
3164 |
goto T1016;} |
goto T1017;} |
3165 |
if(((V551))==(Ct)){ |
if(((V559))==(Ct)){ |
3166 |
goto T1020;} |
goto T1021;} |
3167 |
{register object x= (V590),V591= (V551); |
{register object x= (V598),V599= (V559); |
3168 |
while(V591!=Cnil) |
while(V599!=Cnil) |
3169 |
if(eql(x,V591->c.c_car)){ |
if(eql(x,V599->c.c_car)){ |
3170 |
goto T1025; |
goto T1026; |
3171 |
}else V591=V591->c.c_cdr; |
}else V599=V599->c.c_cdr; |
3172 |
goto T1016;} |
goto T1017;} |
3173 |
goto T1025; |
goto T1026; |
3174 |
T1025:; |
T1026:; |
3175 |
goto T1020; |
goto T1021; |
3176 |
T1020:; |
T1021:; |
3177 |
{object V592; |
{object V600; |
3178 |
object V593; |
object V601; |
3179 |
object V594; |
object V602; |
3180 |
register object V595; |
register object V603; |
3181 |
register object V596; |
register object V604; |
3182 |
base[20]= (V589); |
base[20]= (V597); |
3183 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3184 |
(void) (*Lnk290)(Lclptr290); |
(void) (*Lnk288)(Lclptr288); |
3185 |
vs_top=sup; |
vs_top=sup; |
3186 |
V592= vs_base[0]; |
V600= vs_base[0]; |
3187 |
base[20]= (V589); |
base[20]= (V597); |
3188 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3189 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk289)(Lclptr289); |
3190 |
vs_top=sup; |
vs_top=sup; |
3191 |
V593= vs_base[0]; |
V601= vs_base[0]; |
3192 |
if(((V554))==(VV[148])){ |
if(((V562))==(VV[148])){ |
3193 |
goto T1032;} |
goto T1033;} |
3194 |
base[20]= (V589); |
base[20]= (V597); |
3195 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3196 |
(void) (*Lnk292)(Lclptr292); |
(void) (*Lnk290)(Lclptr290); |
3197 |
vs_top=sup; |
vs_top=sup; |
3198 |
V594= vs_base[0]; |
V602= vs_base[0]; |
3199 |
goto T1030; |
goto T1031; |
3200 |
goto T1032; |
goto T1033; |
3201 |
T1032:; |
T1033:; |
3202 |
V594= Cnil; |
V602= Cnil; |
3203 |
goto T1030; |
goto T1031; |
3204 |
T1030:; |
T1031:; |
3205 |
base[20]= (V590); |
base[20]= (V598); |
3206 |
base[21]= (V558); |
base[21]= (V566); |
3207 |
vs_top=(vs_base=base+20)+2; |
vs_top=(vs_base=base+20)+2; |
3208 |
(void) (*Lnk287)(); |
(void) (*Lnk285)(); |
3209 |
vs_top=sup; |
vs_top=sup; |
3210 |
V597= vs_base[0]; |
V605= vs_base[0]; |
3211 |
V595= one_plus(V597); |
V603= one_plus(V605); |
3212 |
if(((V593))!=Cnil){ |
if(((V601))!=Cnil){ |
3213 |
goto T1041;} |
goto T1042;} |
3214 |
V596= Cnil; |
V604= Cnil; |
3215 |
goto T1039; |
goto T1040; |
3216 |
goto T1041; |
goto T1042; |
3217 |
T1041:; |
T1042:; |
3218 |
base[20]= (V592); |
base[20]= (V600); |
3219 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3220 |
Lconstantp(); |
Lconstantp(); |
3221 |
vs_top=sup; |
vs_top=sup; |
3222 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3223 |
goto T1044;} |
goto T1045;} |
3224 |
{object V598; |
{object V606; |
3225 |
V598= ( |
V606= ( |
3226 |
(type_of((V593)) == t_sfun ?(*(((V593))->sfn.sfn_self)): |
(type_of((V601)) == t_sfun ?(*(((V601))->sfn.sfn_self)): |
3227 |
(fcall.argd=0,type_of((V593))==t_vfun) ? |
(fcall.argd=0,type_of((V601))==t_vfun) ? |
3228 |
(*(((V593))->sfn.sfn_self)): |
(*(((V601))->sfn.sfn_self)): |
3229 |
(fcall.fun=((V593)),fcalln))()); |
(fcall.fun=((V601)),fcalln))()); |
3230 |
if(((V552))==Cnil){ |
if(((V560))==Cnil){ |
3231 |
goto T1049;} |
goto T1050;} |
3232 |
if(!(type_of((V594))==t_fixnum||type_of((V594))==t_bignum)){ |
if(!(type_of((V602))==t_fixnum||type_of((V602))==t_bignum)){ |
3233 |
goto T1049;} |
goto T1050;} |
3234 |
(void)((((V556))->v.v_self[fix((V594))]=((V598)))); |
(void)((((V564))->v.v_self[fix((V602))]=((V606)))); |
3235 |
V596= Cnil; |
V604= Cnil; |
3236 |
goto T1039; |
goto T1040; |
3237 |
goto T1049; |
goto T1050; |
3238 |
T1049:; |
T1050:; |
3239 |
V599= list(2,VV[158],(V598)); |
V607= list(2,VV[158],(V606)); |
3240 |
V596= list(2,/* INLINE-ARGS */V599,list(3,VV[157],(V595),(V589))); |
V604= list(2,/* INLINE-ARGS */V607,list(3,VV[157],(V603),(V597))); |
3241 |
goto T1039;} |
goto T1040;} |
3242 |
goto T1044; |
goto T1045; |
3243 |
T1044:; |
T1045:; |
3244 |
base[20]= (V589); |
base[20]= (V597); |
3245 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
3246 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk289)(Lclptr289); |
3247 |
vs_top=sup; |
vs_top=sup; |
3248 |
V600= vs_base[0]; |
V608= vs_base[0]; |
3249 |
V601= list(2,VV[114],V600); |
V609= list(2,VV[114],V608); |
3250 |
V596= list(2,/* INLINE-ARGS */V601,list(3,VV[157],(V595),(V589))); |
V604= list(2,/* INLINE-ARGS */V609,list(3,VV[157],(V603),(V597))); |
3251 |
goto T1039; |
goto T1040; |
3252 |
T1039:; |
T1040:; |
3253 |
if(((V552))!=Cnil){ |
if(((V560))!=Cnil){ |
3254 |
goto T1058;} |
goto T1059;} |
3255 |
if(((V596))==Cnil){ |
if(((V604))==Cnil){ |
3256 |
goto T1058;} |
goto T1059;} |
3257 |
V603 = CMPmake_fixnum((long)length((V596))); |
V611 = CMPmake_fixnum((long)length((V604))); |
3258 |
V604= list(4,VV[159],(V595),(V589),V603); |
V612= list(4,VV[159],(V603),(V597),V611); |
3259 |
V602= make_cons(/* INLINE-ARGS */V604,Cnil); |
V610= make_cons(/* INLINE-ARGS */V612,Cnil); |
3260 |
goto T1056; |
goto T1057; |
3261 |
goto T1058; |
goto T1059; |
3262 |
T1058:; |
T1059:; |
3263 |
V602= Cnil; |
V610= Cnil; |
3264 |
goto T1056; |
goto T1057; |
3265 |
T1056:; |
T1057:; |
3266 |
V605 = (V596); |
V613 = (V604); |
3267 |
V606= append(V602,V605); |
V614= append(V610,V613); |
3268 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V606,(V553)));}} |
(void)((*(LnkLI282))(/* INLINE-ARGS */V614,(V561)));}} |
3269 |
goto T1016; |
goto T1017; |
3270 |
T1016:; |
T1017:; |
3271 |
V587= CMPcdr((V587)); |
V595= CMPcdr((V595)); |
3272 |
V588= CMPcar((V587)); |
V596= CMPcar((V595)); |
3273 |
goto T1011;} |
goto T1012;} |
3274 |
goto T1007; |
goto T1008; |
3275 |
T1007:; |
T1008:; |
3276 |
base[12]= CMPcar((V553)); |
base[12]= CMPcar((V561)); |
3277 |
base[13]= (V556); |
base[13]= (V564); |
3278 |
vs_top=(vs_base=base+12)+2; |
vs_top=(vs_base=base+12)+2; |
3279 |
return;} |
return;} |
3280 |
} |
} |
3281 |
} |
} |
3282 |
/* local entry for function GET-PV-CELL-FOR-CLASS */ |
/* local entry for function GET-PV-CELL-FOR-CLASS */ |
3283 |
|
|
3284 |
static object LI51(V608) |
static object LI51(V616) |
3285 |
|
|
3286 |
register object V608; |
register object V616; |
3287 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
3288 |
goto TTL; |
goto TTL; |
3289 |
TTL:; |
TTL:; |
3290 |
{object V609; |
{object V617; |
3291 |
object V610; |
object V618; |
3292 |
register object V611; |
register object V619; |
3293 |
base[4]=VV[286]->s.s_gfdef; |
base[4]=VV[284]->s.s_gfdef; |
3294 |
base[5]= (V608); |
base[5]= (V616); |
3295 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3296 |
(void) (*Lnk282)(Lclptr282); |
(void) (*Lnk280)(Lclptr280); |
3297 |
vs_top=sup; |
vs_top=sup; |
3298 |
V614= vs_base[0]; |
V622= vs_base[0]; |
3299 |
{object V612; |
{object V620; |
3300 |
object V613= V614; |
object V621= V622; |
3301 |
if(V613==Cnil){ |
if(V621==Cnil){ |
3302 |
V609= Cnil; |
V617= Cnil; |
3303 |
goto T1069;} |
goto T1070;} |
3304 |
base[3]=V612=MMcons(Cnil,Cnil); |
base[3]=V620=MMcons(Cnil,Cnil); |
3305 |
goto T1070; |
goto T1071; |
3306 |
T1070:; |
T1071:; |
3307 |
base[5]= (V613->c.c_car); |
base[5]= (V621->c.c_car); |
3308 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3309 |
(void) (*Lnk286)(Lclptr286); |
(void) (*Lnk284)(Lclptr284); |
3310 |
vs_top=sup; |
vs_top=sup; |
3311 |
(V612->c.c_car)= vs_base[0]; |
(V620->c.c_car)= vs_base[0]; |
3312 |
if((V613=MMcdr(V613))==Cnil){ |
if((V621=MMcdr(V621))==Cnil){ |
3313 |
V609= base[3]; |
V617= base[3]; |
|
goto T1069;} |
|
|
V612=MMcdr(V612)=MMcons(Cnil,Cnil); |
|
3314 |
goto T1070;} |
goto T1070;} |
3315 |
goto T1069; |
V620=MMcdr(V620)=MMcons(Cnil,Cnil); |
3316 |
T1069:; |
goto T1071;} |
3317 |
V615= make_cons(Cnil,(V609)); |
goto T1070; |
3318 |
V610= make_cons(/* INLINE-ARGS */V615,Cnil); |
T1070:; |
3319 |
base[3]= (V608); |
V623= make_cons(Cnil,(V617)); |
3320 |
|
V618= make_cons(/* INLINE-ARGS */V623,Cnil); |
3321 |
|
base[3]= (V616); |
3322 |
base[4]= (VV[160]->s.s_dbind); |
base[4]= (VV[160]->s.s_dbind); |
3323 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3324 |
Lgethash(); |
Lgethash(); |
3325 |
vs_top=sup; |
vs_top=sup; |
3326 |
V611= vs_base[0]; |
V619= vs_base[0]; |
3327 |
if(((V611))==Cnil){ |
if(((V619))==Cnil){ |
3328 |
|
goto T1081;} |
3329 |
|
if(equal((V618),STREF(object,(V619),8))){ |
3330 |
goto T1080;} |
goto T1080;} |
3331 |
if(equal((V610),STREF(object,(V611),8))){ |
goto T1081; |
3332 |
goto T1079;} |
T1081:; |
3333 |
goto T1080; |
V619= (VFUN_NARGS=2,(*(LnkLI291))(VV[162],(V618))); |
3334 |
T1080:; |
{object V625; |
3335 |
V611= (VFUN_NARGS=2,(*(LnkLI293))(VV[162],(V610))); |
V625= (VV[160]->s.s_dbind); |
3336 |
{object V617; |
base[3]= V616; |
3337 |
V617= (VV[160]->s.s_dbind); |
base[4]= (V625); |
3338 |
base[3]= V608; |
base[5]= V619; |
|
base[4]= (V617); |
|
|
base[5]= V611; |
|
3339 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3340 |
siLhash_set(); |
siLhash_set(); |
3341 |
vs_top=sup;} |
vs_top=sup;} |
3342 |
goto T1079; |
goto T1080; |
3343 |
T1079:; |
T1080:; |
3344 |
V619 = (V611); |
V627 = (V619); |
3345 |
base[3]= (V608); |
base[3]= (V616); |
3346 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3347 |
(void) (*Lnk243)(Lclptr243); |
(void) (*Lnk243)(Lclptr243); |
3348 |
vs_top=sup; |
vs_top=sup; |
3349 |
V620= vs_base[0]; |
V628= vs_base[0]; |
3350 |
{object V621 = (*(LnkLI294))(V619,V620); |
{object V629 = (*(LnkLI292))(V627,V628); |
3351 |
VMR48(V621)}} |
VMR48(V629)}} |
3352 |
base[0]=base[0]; |
base[0]=base[0]; |
3353 |
return Cnil; |
return Cnil; |
3354 |
} |
} |
3358 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3359 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM49; VC49 |
3360 |
vs_check; |
vs_check; |
3361 |
{object V622; |
{object V630; |
3362 |
object V623; |
object V631; |
3363 |
object V624; |
object V632; |
3364 |
object V625; |
object V633; |
3365 |
check_arg(4); |
check_arg(4); |
3366 |
V622=(base[0]); |
V630=(base[0]); |
3367 |
V623=(base[1]); |
V631=(base[1]); |
3368 |
V624=(base[2]); |
V632=(base[2]); |
3369 |
V625=(base[3]); |
V633=(base[3]); |
3370 |
vs_top=sup; |
vs_top=sup; |
3371 |
goto TTL; |
goto TTL; |
3372 |
TTL:; |
TTL:; |
3373 |
{object V626; |
{object V634; |
3374 |
object V627; |
object V635; |
3375 |
register object V628; |
register object V636; |
3376 |
V626= (*(LnkLI295))((V624)); |
V634= (*(LnkLI293))((V632)); |
3377 |
V627= STREF(object,(V623),0); |
V635= STREF(object,(V631),0); |
3378 |
V629 = (V622); |
V637 = (V630); |
3379 |
base[7]= CMPcar((V627)); |
base[7]= CMPcar((V635)); |
3380 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3381 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
3382 |
vs_top=sup; |
vs_top=sup; |
3383 |
V630= vs_base[0]; |
V638= vs_base[0]; |
3384 |
V628= listA(3,V629,V630,CMPcdr((V627))); |
V636= listA(3,V637,V638,CMPcdr((V635))); |
3385 |
if(((VV[163]->s.s_dbind))!=Cnil){ |
if(((VV[163]->s.s_dbind))!=Cnil){ |
3386 |
goto T1097;} |
goto T1098;} |
3387 |
base[7]= (V628); |
base[7]= (V636); |
3388 |
base[8]= (VV[164]->s.s_dbind); |
base[8]= (VV[164]->s.s_dbind); |
3389 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
3390 |
Lgethash(); |
Lgethash(); |
3391 |
vs_top=sup; |
vs_top=sup; |
3392 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3393 |
goto T1098;} |
goto T1099;} |
3394 |
goto T1097; |
goto T1098; |
3395 |
T1097:; |
T1098:; |
3396 |
{object V631; |
{object V639; |
3397 |
object V632; |
object V640; |
3398 |
base[7]= (V626); |
base[7]= (V634); |
3399 |
base[8]= (V625); |
base[8]= (V633); |
3400 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
3401 |
(void) (*Lnk296)(); |
(void) (*Lnk294)(); |
|
if(vs_base>=vs_top){vs_top=sup;goto T1107;} |
|
|
V631= vs_base[0]; |
|
|
vs_base++; |
|
3402 |
if(vs_base>=vs_top){vs_top=sup;goto T1108;} |
if(vs_base>=vs_top){vs_top=sup;goto T1108;} |
3403 |
V632= vs_base[0]; |
V639= vs_base[0]; |
3404 |
|
vs_base++; |
3405 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1109;} |
3406 |
|
V640= vs_base[0]; |
3407 |
vs_top=sup; |
vs_top=sup; |
3408 |
goto T1109; |
goto T1110; |
|
goto T1107; |
|
|
T1107:; |
|
|
V631= Cnil; |
|
3409 |
goto T1108; |
goto T1108; |
3410 |
T1108:; |
T1108:; |
3411 |
V632= Cnil; |
V639= Cnil; |
3412 |
goto T1109; |
goto T1109; |
3413 |
T1109:; |
T1109:; |
3414 |
{register object V633; |
V640= Cnil; |
|
{register object x= (V631),V634= (VV[165]->s.s_dbind); |
|
|
while(V634!=Cnil) |
|
|
if(equal(x,V634->c.c_car->c.c_car) &&V634->c.c_car != Cnil){ |
|
|
V633= (V634->c.c_car); |
|
|
goto T1110; |
|
|
}else V634=V634->c.c_cdr; |
|
|
V633= Cnil;} |
|
3415 |
goto T1110; |
goto T1110; |
3416 |
T1110:; |
T1110:; |
3417 |
{object V636; |
{register object V641; |
3418 |
V636= (VV[164]->s.s_dbind); |
{register object x= (V639),V642= (VV[165]->s.s_dbind); |
3419 |
base[7]= V628; |
while(V642!=Cnil) |
3420 |
base[8]= (V636); |
if(equal(x,V642->c.c_car->c.c_car) &&V642->c.c_car != Cnil){ |
3421 |
|
V641= (V642->c.c_car); |
3422 |
|
goto T1111; |
3423 |
|
}else V642=V642->c.c_cdr; |
3424 |
|
V641= Cnil;} |
3425 |
|
goto T1111; |
3426 |
|
T1111:; |
3427 |
|
{object V644; |
3428 |
|
V644= (VV[164]->s.s_dbind); |
3429 |
|
base[7]= V636; |
3430 |
|
base[8]= (V644); |
3431 |
base[9]= Ct; |
base[9]= Ct; |
3432 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
3433 |
siLhash_set(); |
siLhash_set(); |
3434 |
vs_top=sup;} |
vs_top=sup;} |
3435 |
if(((V633))==Cnil){ |
if(((V641))==Cnil){ |
3436 |
goto T1118;} |
goto T1119;} |
3437 |
{object V639; |
{object V647; |
3438 |
base[8]= make_cons((V628),Cnil); |
base[8]= make_cons((V636),Cnil); |
3439 |
base[9]= CMPcdddr((V633)); |
base[9]= CMPcdddr((V641)); |
3440 |
base[10]= VV[12]; |
base[10]= VV[12]; |
3441 |
base[11]= (VV[225]->s.s_gfdef); |
base[11]= (VV[225]->s.s_gfdef); |
3442 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
3443 |
(void) (*Lnk297)(); |
(void) (*Lnk295)(); |
3444 |
vs_top=sup; |
vs_top=sup; |
3445 |
V639= vs_base[0]; |
V647= vs_base[0]; |
3446 |
(CMPcddr(V633))->c.c_cdr = (V639); |
(CMPcddr(V641))->c.c_cdr = (V647); |
3447 |
(void)(CMPcddr(V633)); |
(void)(CMPcddr(V641)); |
3448 |
goto T1116;} |
goto T1117;} |
3449 |
goto T1118; |
goto T1119; |
3450 |
T1118:; |
T1119:; |
3451 |
V633= listA(4,(V631),Cnil,Cnil,make_cons((V628),Cnil));{object V640; |
V641= listA(4,(V639),Cnil,Cnil,make_cons((V636),Cnil));{object V648; |
3452 |
V640= (VV[165]->s.s_dbind); |
V648= (VV[165]->s.s_dbind); |
3453 |
V641= make_cons((V633),Cnil); |
V649= make_cons((V641),Cnil); |
3454 |
(VV[165]->s.s_dbind)= nconc(V640,/* INLINE-ARGS */V641);} |
(VV[165]->s.s_dbind)= nconc(V648,/* INLINE-ARGS */V649);} |
3455 |
goto T1116; |
goto T1117; |
3456 |
T1116:; |
T1117:; |
3457 |
if(((VV[166]->s.s_dbind))!=Cnil){ |
if(((VV[166]->s.s_dbind))!=Cnil){ |
3458 |
goto T1129;} |
goto T1130;} |
3459 |
if((CMPcadr((V633)))!=Cnil){ |
if((CMPcadr((V641)))!=Cnil){ |
3460 |
goto T1129;} |
goto T1130;} |
3461 |
{object V643; |
{object V651; |
3462 |
base[8]= CMPcar((V633)); |
base[8]= CMPcar((V641)); |
3463 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
3464 |
(void) (*Lnk298)(); |
(void) (*Lnk296)(); |
3465 |
vs_top=sup; |
vs_top=sup; |
3466 |
V643= vs_base[0]; |
V651= vs_base[0]; |
3467 |
(CMPcdr(V633))->c.c_car = (V643); |
(CMPcdr(V641))->c.c_car = (V651); |
3468 |
(void)(CMPcdr(V633));} |
(void)(CMPcdr(V641));} |
3469 |
goto T1129; |
goto T1130; |
3470 |
T1129:; |
T1130:; |
3471 |
if((CMPcadr((V633)))==Cnil){ |
if((CMPcadr((V641)))==Cnil){ |
3472 |
goto T1138;} |
goto T1139;} |
3473 |
base[7]= CMPcadr((V633)); |
base[7]= CMPcadr((V641)); |
3474 |
{object V644; |
{object V652; |
3475 |
V644= (V632); |
V652= (V640); |
3476 |
vs_top=base+8; |
vs_top=base+8; |
3477 |
while(V644!=Cnil) |
while(V652!=Cnil) |
3478 |
{vs_push((V644)->c.c_car);V644=(V644)->c.c_cdr;} |
{vs_push((V652)->c.c_car);V652=(V652)->c.c_cdr;} |
3479 |
vs_base=base+8;} |
vs_base=base+8;} |
3480 |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3481 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3482 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3483 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3484 |
return; |
return; |
3485 |
goto T1138; |
goto T1139; |
3486 |
T1138:; |
T1139:; |
3487 |
base[7]= list(3,VV[130],(V626),(V625)); |
base[7]= list(3,VV[130],(V634),(V633)); |
3488 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3489 |
return;}} |
return;}} |
3490 |
goto T1098; |
goto T1099; |
3491 |
T1098:; |
T1099:; |
3492 |
base[7]= list(3,VV[130],(V626),(V625)); |
base[7]= list(3,VV[130],(V634),(V633)); |
3493 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3494 |
return;} |
return;} |
3495 |
} |
} |
3496 |
} |
} |
3497 |
/* local entry for function LOAD-PRECOMPILED-IIS-ENTRY */ |
/* local entry for function LOAD-PRECOMPILED-IIS-ENTRY */ |
3498 |
|
|
3499 |
static object LI53(V649,V650,V651,V652) |
static object LI53(V657,V658,V659,V660) |
3500 |
|
|
3501 |
object V649;object V650;object V651;object V652; |
object V657;object V658;object V659;object V660; |
3502 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
3503 |
goto TTL; |
goto TTL; |
3504 |
TTL:; |
TTL:; |
3505 |
{object V653; |
{object V661; |
3506 |
{register object x= (V649),V654= (VV[165]->s.s_dbind); |
{register object x= (V657),V662= (VV[165]->s.s_dbind); |
3507 |
while(V654!=Cnil) |
while(V662!=Cnil) |
3508 |
if(equal(x,V654->c.c_car->c.c_car) &&V654->c.c_car != Cnil){ |
if(equal(x,V662->c.c_car->c.c_car) &&V662->c.c_car != Cnil){ |
3509 |
V653= (V654->c.c_car); |
V661= (V662->c.c_car); |
3510 |
goto T1142; |
goto T1143; |
3511 |
}else V654=V654->c.c_cdr; |
}else V662=V662->c.c_cdr; |
3512 |
V653= Cnil;} |
V661= Cnil;} |
|
goto T1142; |
|
|
T1142:; |
|
|
if(((V653))!=Cnil){ |
|
|
goto T1143;} |
|
|
V653= listA(4,(V649),Cnil,Cnil,Cnil);{object V655; |
|
|
V655= (VV[165]->s.s_dbind); |
|
|
V656= make_cons((V653),Cnil); |
|
|
(VV[165]->s.s_dbind)= nconc(V655,/* INLINE-ARGS */V656);} |
|
3513 |
goto T1143; |
goto T1143; |
3514 |
T1143:; |
T1143:; |
3515 |
(CMPcdr(V653))->c.c_car = V650; |
if(((V661))!=Cnil){ |
3516 |
(void)(CMPcdr(V653)); |
goto T1144;} |
3517 |
(CMPcddr(V653))->c.c_car = V651; |
V661= listA(4,(V657),Cnil,Cnil,Cnil);{object V663; |
3518 |
(void)(CMPcddr(V653)); |
V663= (VV[165]->s.s_dbind); |
3519 |
{register object V661; |
V664= make_cons((V661),Cnil); |
3520 |
register object V662; |
(VV[165]->s.s_dbind)= nconc(V663,/* INLINE-ARGS */V664);} |
3521 |
V661= (V652); |
goto T1144; |
3522 |
V662= CMPcar((V661)); |
T1144:; |
3523 |
goto T1157; |
(CMPcdr(V661))->c.c_car = V658; |
3524 |
T1157:; |
(void)(CMPcdr(V661)); |
3525 |
if(!(((V661))==Cnil)){ |
(CMPcddr(V661))->c.c_car = V659; |
3526 |
goto T1158;} |
(void)(CMPcddr(V661)); |
3527 |
goto T1153; |
{register object V669; |
3528 |
|
register object V670; |
3529 |
|
V669= (V660); |
3530 |
|
V670= CMPcar((V669)); |
3531 |
goto T1158; |
goto T1158; |
3532 |
T1158:; |
T1158:; |
3533 |
{register object V663; |
if(!(((V669))==Cnil)){ |
3534 |
register object V664; |
goto T1159;} |
3535 |
register object V665; |
goto T1154; |
3536 |
V663= (V662); |
goto T1159; |
3537 |
V664= (VV[164]->s.s_dbind); |
T1159:; |
3538 |
V665= Ct; |
{register object V671; |
3539 |
base[1]= (V663); |
register object V672; |
3540 |
base[2]= (V664); |
register object V673; |
3541 |
base[3]= (V665); |
V671= (V670); |
3542 |
|
V672= (VV[164]->s.s_dbind); |
3543 |
|
V673= Ct; |
3544 |
|
base[1]= (V671); |
3545 |
|
base[2]= (V672); |
3546 |
|
base[3]= (V673); |
3547 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3548 |
siLhash_set(); |
siLhash_set(); |
3549 |
vs_top=sup;} |
vs_top=sup;} |
3550 |
V661= CMPcdr((V661)); |
V669= CMPcdr((V669)); |
3551 |
V662= CMPcar((V661)); |
V670= CMPcar((V669)); |
3552 |
goto T1157;} |
goto T1158;} |
3553 |
goto T1153; |
goto T1154; |
3554 |
T1153:; |
T1154:; |
3555 |
{object V667; |
{object V675; |
3556 |
base[1]= (V652); |
base[1]= (V660); |
3557 |
base[2]= CMPcdddr((V653)); |
base[2]= CMPcdddr((V661)); |
3558 |
base[3]= VV[12]; |
base[3]= VV[12]; |
3559 |
base[4]= (VV[225]->s.s_gfdef); |
base[4]= (VV[225]->s.s_gfdef); |
3560 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3561 |
(void) (*Lnk297)(); |
(void) (*Lnk295)(); |
3562 |
vs_top=sup; |
vs_top=sup; |
3563 |
V667= vs_base[0]; |
V675= vs_base[0]; |
3564 |
(CMPcddr(V653))->c.c_cdr = (V667); |
(CMPcddr(V661))->c.c_cdr = (V675); |
3565 |
(void)(CMPcddr(V653)); |
(void)(CMPcddr(V661)); |
3566 |
{object V668 = (V667); |
{object V676 = (V675); |
3567 |
VMR50(V668)}}} |
VMR50(V676)}}} |
3568 |
base[0]=base[0]; |
base[0]=base[0]; |
3569 |
return Cnil; |
return Cnil; |
3570 |
} |
} |
3576 |
vs_check; |
vs_check; |
3577 |
check_arg(2); |
check_arg(2); |
3578 |
vs_top=sup; |
vs_top=sup; |
3579 |
{object V669=base[0]->c.c_cdr; |
{object V677=base[0]->c.c_cdr; |
3580 |
if(endp(V669)){ |
if(endp(V677)){ |
3581 |
base[2]= Cnil; |
base[2]= Cnil; |
3582 |
} else { |
} else { |
3583 |
base[2]= (V669->c.c_car); |
base[2]= (V677->c.c_car); |
3584 |
V669=V669->c.c_cdr;} |
V677=V677->c.c_cdr;} |
3585 |
if(!endp(V669))invalid_macro_call();} |
if(!endp(V677))invalid_macro_call();} |
3586 |
{register object V670; |
{register object V678; |
3587 |
V670= small_fixnum(-1); |
V678= small_fixnum(-1); |
3588 |
{register object V672; |
{register object V680; |
3589 |
register object V673; |
register object V681; |
3590 |
V672= Cnil; |
V680= Cnil; |
3591 |
V673= Cnil; |
V681= Cnil; |
3592 |
{register object V674; |
{register object V682; |
3593 |
register object V675; |
register object V683; |
3594 |
V674= (VV[165]->s.s_dbind); |
V682= (VV[165]->s.s_dbind); |
3595 |
V675= CMPcar((V674)); |
V683= CMPcar((V682)); |
|
goto T1188; |
|
|
T1188:; |
|
|
if(!(((V674))==Cnil)){ |
|
|
goto T1189;} |
|
|
goto T1184; |
|
3596 |
goto T1189; |
goto T1189; |
3597 |
T1189:; |
T1189:; |
3598 |
if((CMPcaddr((V675)))==Cnil){ |
if(!(((V682))==Cnil)){ |
3599 |
|
goto T1190;} |
3600 |
|
goto T1185; |
3601 |
|
goto T1190; |
3602 |
|
T1190:; |
3603 |
|
if((CMPcaddr((V683)))==Cnil){ |
3604 |
|
goto T1195;} |
3605 |
|
if(!((CMPcaddr((V683)))==(base[2]))){ |
3606 |
goto T1194;} |
goto T1194;} |
3607 |
if(!((CMPcaddr((V675)))==(base[2]))){ |
goto T1195; |
3608 |
goto T1193;} |
T1195:; |
3609 |
|
if((base[2])==Cnil){ |
3610 |
|
goto T1199;} |
3611 |
|
{register object V684; |
3612 |
|
register object V685; |
3613 |
|
V684= (V683); |
3614 |
|
V685= base[2]; |
3615 |
|
(CMPcddr((V684)))->c.c_car = (V685); |
3616 |
|
(void)(CMPcddr((V684)));} |
3617 |
|
goto T1199; |
3618 |
|
T1199:; |
3619 |
|
{register object V686; |
3620 |
|
V687 = base[2]; |
3621 |
|
V678= number_plus((V678),small_fixnum(1)); |
3622 |
|
V688 = (V678); |
3623 |
|
V689= list(3,VV[167],V687,V688); |
3624 |
|
V690= list(2,VV[4],CMPcar((V683))); |
3625 |
|
V691= list(2,VV[170],CMPcar((V683))); |
3626 |
|
V692= list(2,VV[4],base[2]); |
3627 |
|
V693= list(5,VV[169],/* INLINE-ARGS */V690,/* INLINE-ARGS */V691,/* INLINE-ARGS */V692,list(2,VV[4],CMPcdddr((V683)))); |
3628 |
|
V686= (*(LnkLI297))(/* INLINE-ARGS */V689,VV[168],/* INLINE-ARGS */V693); |
3629 |
|
if(((V680))!=Cnil){ |
3630 |
|
goto T1208;} |
3631 |
|
V681= make_cons((V686),Cnil); |
3632 |
|
V680= (V681); |
3633 |
|
goto T1194; |
3634 |
|
goto T1208; |
3635 |
|
T1208:; |
3636 |
|
V695= make_cons((V686),Cnil); |
3637 |
|
((V681))->c.c_cdr = /* INLINE-ARGS */V695; |
3638 |
|
V694= (V681); |
3639 |
|
V681= CMPcdr(V694);} |
3640 |
goto T1194; |
goto T1194; |
3641 |
T1194:; |
T1194:; |
3642 |
if((base[2])==Cnil){ |
V682= CMPcdr((V682)); |
3643 |
goto T1198;} |
V683= CMPcar((V682)); |
3644 |
{register object V676; |
goto T1189;} |
3645 |
register object V677; |
goto T1185; |
3646 |
V676= (V675); |
T1185:; |
3647 |
V677= base[2]; |
V679= (V680);} |
3648 |
(CMPcddr((V676)))->c.c_car = (V677); |
base[3]= make_cons(VV[6],V679); |
|
(void)(CMPcddr((V676)));} |
|
|
goto T1198; |
|
|
T1198:; |
|
|
{register object V678; |
|
|
V679 = base[2]; |
|
|
V670= number_plus((V670),small_fixnum(1)); |
|
|
V680 = (V670); |
|
|
V681= list(3,VV[167],V679,V680); |
|
|
V682= list(2,VV[4],CMPcar((V675))); |
|
|
V683= list(2,VV[170],CMPcar((V675))); |
|
|
V684= list(2,VV[4],base[2]); |
|
|
V685= list(5,VV[169],/* INLINE-ARGS */V682,/* INLINE-ARGS */V683,/* INLINE-ARGS */V684,list(2,VV[4],CMPcdddr((V675)))); |
|
|
V678= (*(LnkLI299))(/* INLINE-ARGS */V681,VV[168],/* INLINE-ARGS */V685); |
|
|
if(((V672))!=Cnil){ |
|
|
goto T1207;} |
|
|
V673= make_cons((V678),Cnil); |
|
|
V672= (V673); |
|
|
goto T1193; |
|
|
goto T1207; |
|
|
T1207:; |
|
|
V687= make_cons((V678),Cnil); |
|
|
((V673))->c.c_cdr = /* INLINE-ARGS */V687; |
|
|
V686= (V673); |
|
|
V673= CMPcdr(V686);} |
|
|
goto T1193; |
|
|
T1193:; |
|
|
V674= CMPcdr((V674)); |
|
|
V675= CMPcar((V674)); |
|
|
goto T1188;} |
|
|
goto T1184; |
|
|
T1184:; |
|
|
V671= (V672);} |
|
|
base[3]= make_cons(VV[6],V671); |
|
3649 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3650 |
return;} |
return;} |
3651 |
} |
} |
3656 |
register object *sup=base+VM52; VC52 |
register object *sup=base+VM52; VC52 |
3657 |
vs_check; |
vs_check; |
3658 |
bds_check; |
bds_check; |
3659 |
{object V688; |
{object V696; |
3660 |
check_arg(1); |
check_arg(1); |
3661 |
V688=(base[0]); |
V696=(base[0]); |
3662 |
vs_top=sup; |
vs_top=sup; |
3663 |
goto TTL; |
goto TTL; |
3664 |
TTL:; |
TTL:; |
3665 |
base[3]= (((V688))==Cnil?Ct:Cnil); |
base[3]= (((V696))==Cnil?Ct:Cnil); |
3666 |
bds_bind(VV[163],Ct); |
bds_bind(VV[163],Ct); |
3667 |
bds_bind(VV[91],Ct); |
bds_bind(VV[91],Ct); |
3668 |
bds_bind(VV[166],base[3]); |
bds_bind(VV[166],base[3]); |
3669 |
if(!(((VV[101]->s.s_dbind))==(VV[102]))){ |
if(!(((VV[101]->s.s_dbind))==(VV[102]))){ |
3670 |
goto T1220;} |
goto T1221;} |
3671 |
vs_base=vs_top; |
vs_base=vs_top; |
3672 |
(void) (*Lnk300)(); |
(void) (*Lnk298)(); |
3673 |
bds_unwind1; |
bds_unwind1; |
3674 |
bds_unwind1; |
bds_unwind1; |
3675 |
bds_unwind1; |
bds_unwind1; |
3676 |
return; |
return; |
3677 |
goto T1220; |
goto T1221; |
3678 |
T1220:; |
T1221:; |
3679 |
base[4]= Cnil; |
base[4]= Cnil; |
3680 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3681 |
bds_unwind1; |
bds_unwind1; |
3686 |
} |
} |
3687 |
/* local entry for function INITIALIZE-INSTANCE-SIMPLE */ |
/* local entry for function INITIALIZE-INSTANCE-SIMPLE */ |
3688 |
|
|
3689 |
static object LI56(V693,V694,V695,V696) |
static object LI56(V701,V702,V703,V704) |
3690 |
|
|
3691 |
object V693;register object V694;object V695;register object V696; |
object V701;register object V702;object V703;register object V704; |
3692 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
3693 |
goto TTL; |
goto TTL; |
3694 |
TTL:; |
TTL:; |
3695 |
{object V697; |
{object V705; |
3696 |
register object V698; |
register object V706; |
3697 |
object V699; |
object V707; |
3698 |
object V700; |
object V708; |
3699 |
register object V701; |
register object V709; |
3700 |
V697= CMPcar((V693)); |
V705= CMPcar((V701)); |
3701 |
if(type_of(V695)==t_structure){ |
if(type_of(V703)==t_structure){ |
3702 |
goto T1227;} |
goto T1228;} |
3703 |
goto T1225; |
goto T1226; |
3704 |
goto T1227; |
goto T1228; |
3705 |
T1227:; |
T1228:; |
3706 |
if(!(((V695)->str.str_def)==(VV[171]))){ |
if(!(((V703)->str.str_def)==(VV[171]))){ |
3707 |
goto T1225;} |
goto T1226;} |
3708 |
V699= STREF(object,(V695),4); |
V707= STREF(object,(V703),4); |
3709 |
goto T1223; |
goto T1224; |
3710 |
goto T1225; |
goto T1226; |
3711 |
T1225:;{object V703; |
T1226:;{object V711; |
3712 |
V703= (VV[172]->s.s_dbind); |
V711= (VV[172]->s.s_dbind); |
3713 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3714 |
base[1]= (V695); |
base[1]= (V703); |
3715 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3716 |
(void) (*Lnk301)(); |
(void) (*Lnk299)(); |
3717 |
vs_top=sup; |
vs_top=sup; |
3718 |
V704= vs_base[0]; |
V712= vs_base[0]; |
3719 |
if(!((V703)==(CMPcar(V704)))){ |
if(!((V711)==(CMPcar(V712)))){ |
3720 |
goto T1230;}} |
goto T1231;}} |
3721 |
V699= CMPcar(((V695))->cc.cc_turbo[12]); |
V707= CMPcar(((V703))->cc.cc_turbo[12]); |
3722 |
goto T1223; |
goto T1224; |
3723 |
goto T1230; |
goto T1231; |
3724 |
T1230:; |
T1231:; |
3725 |
V699= Cnil; |
V707= Cnil; |
3726 |
goto T1223; |
goto T1224; |
3727 |
T1223:; |
T1224:; |
3728 |
V700= (*(LnkLI303))((V695)); |
V708= (*(LnkLI301))((V703)); |
3729 |
V698= (V696); |
V706= (V704); |
3730 |
V701= Cnil; |
V709= Cnil; |
3731 |
goto T1238; |
goto T1239; |
3732 |
T1238:; |
T1239:; |
3733 |
if(((V694))!=Cnil){ |
if(((V702))!=Cnil){ |
3734 |
|
goto T1241;} |
3735 |
|
goto T1237; |
3736 |
|
goto T1241; |
3737 |
|
T1241:; |
3738 |
|
{register object V713; |
3739 |
|
{object V714; |
3740 |
|
V714= CMPcar((V702)); |
3741 |
|
V702= CMPcdr((V702)); |
3742 |
|
V713= (V714);} |
3743 |
|
{object V715= CMPcar((V713)); |
3744 |
|
if((V715!= VV[145]))goto T1248; |
3745 |
|
V704= make_cons(V709,(V704)); |
3746 |
|
{object V717; |
3747 |
|
V717= CMPcadr((V713)); |
3748 |
|
V704= make_cons((V717),(V704)); |
3749 |
goto T1240;} |
goto T1240;} |
3750 |
goto T1236; |
goto T1248; |
3751 |
|
T1248:; |
3752 |
|
if((V715!= VV[158]))goto T1253; |
3753 |
|
V709= CMPcadr((V713)); |
3754 |
goto T1240; |
goto T1240; |
3755 |
T1240:; |
goto T1253; |
3756 |
{register object V705; |
T1253:; |
3757 |
{object V706; |
if((V715!= VV[114]))goto T1255; |
3758 |
V706= CMPcar((V694)); |
V709= ( |
3759 |
V694= CMPcdr((V694)); |
V718 = CMPcadr((V713)), |
3760 |
V705= (V706);} |
(type_of(V718) == t_sfun ?(*((V718)->sfn.sfn_self)): |
3761 |
{object V707= CMPcar((V705)); |
(fcall.argd=0,type_of(V718)==t_vfun) ? |
3762 |
if((V707!= VV[145]))goto T1247; |
(*((V718)->sfn.sfn_self)): |
3763 |
V696= make_cons(V701,(V696)); |
(fcall.fun=(V718),fcalln))()); |
3764 |
{object V709; |
goto T1240; |
3765 |
V709= CMPcadr((V705)); |
goto T1255; |
3766 |
V696= make_cons((V709),(V696)); |
T1255:; |
3767 |
goto T1239;} |
if((V715!= VV[156]))goto T1257; |
3768 |
goto T1247; |
V719= one_minus(CMPcadr((V713))); |
3769 |
T1247:; |
V706= nthcdr(fix(/* INLINE-ARGS */V719),(V706)); |
|
if((V707!= VV[158]))goto T1252; |
|
|
V701= CMPcadr((V705)); |
|
|
goto T1239; |
|
|
goto T1252; |
|
|
T1252:; |
|
|
if((V707!= VV[114]))goto T1254; |
|
|
V701= ( |
|
|
V710 = CMPcadr((V705)), |
|
|
(type_of(V710) == t_sfun ?(*((V710)->sfn.sfn_self)): |
|
|
(fcall.argd=0,type_of(V710)==t_vfun) ? |
|
|
(*((V710)->sfn.sfn_self)): |
|
|
(fcall.fun=(V710),fcalln))()); |
|
|
goto T1239; |
|
|
goto T1254; |
|
|
T1254:; |
|
|
if((V707!= VV[156]))goto T1256; |
|
|
V711= one_minus(CMPcadr((V705))); |
|
|
V698= nthcdr(fix(/* INLINE-ARGS */V711),(V698)); |
|
|
{object V712; |
|
|
V712= CMPcar((V698)); |
|
|
V698= CMPcdr((V698)); |
|
|
V701= (V712);} |
|
|
goto T1239; |
|
|
goto T1256; |
|
|
T1256:; |
|
|
if((V707!= VV[157]))goto T1263; |
|
|
{object V713; |
|
|
V713= ((V697))->v.v_self[fix(CMPcadr((V705)))]; |
|
|
if(!(type_of(V713)==t_fixnum)){ |
|
|
goto T1266;} |
|
|
(void)(((V699))->v.v_self[fix((V713))]= ((V701))); |
|
|
goto T1239; |
|
|
goto T1266; |
|
|
T1266:; |
|
|
if(!(type_of(V713)==t_cons)){ |
|
|
goto T1269;} |
|
|
(V713)->c.c_cdr = V701; |
|
|
goto T1239; |
|
|
goto T1269; |
|
|
T1269:; |
|
|
{object V719; |
|
|
V719= CMPcaddr((V705)); |
|
|
base[0]= (V701); |
|
|
base[1]= V700; |
|
|
base[2]= V695; |
|
|
base[3]= (V719); |
|
|
vs_top=(vs_base=base+0)+4; |
|
|
(void) (*Lnk304)(Lclptr304); |
|
|
vs_top=sup; |
|
|
goto T1239;}} |
|
|
goto T1263; |
|
|
T1263:; |
|
|
if((V707!= VV[159]))goto T1277; |
|
3770 |
{object V720; |
{object V720; |
3771 |
V720= ((V697))->v.v_self[fix(CMPcadr((V705)))]; |
V720= CMPcar((V706)); |
3772 |
if(!(type_of(V720)==t_fixnum)){ |
V706= CMPcdr((V706)); |
3773 |
goto T1282;} |
V709= (V720);} |
3774 |
if(!((((((V699))->v.v_self[fix((V720))])==(VV[173])?Ct:Cnil))==Cnil)){ |
goto T1240; |
3775 |
goto T1239;} |
goto T1257; |
3776 |
goto T1279; |
T1257:; |
3777 |
goto T1282; |
if((V715!= VV[157]))goto T1264; |
3778 |
T1282:; |
{object V721; |
3779 |
if(!(type_of(V720)==t_cons)){ |
V721= ((V705))->v.v_self[fix(CMPcadr((V713)))]; |
3780 |
goto T1285;} |
if(!(type_of(V721)==t_fixnum)){ |
3781 |
if(!((((CMPcdr((V720)))==(VV[173])?Ct:Cnil))==Cnil)){ |
goto T1267;} |
3782 |
goto T1239;} |
(void)(((V707))->v.v_self[fix((V721))]= ((V709))); |
3783 |
goto T1279; |
goto T1240; |
3784 |
goto T1285; |
goto T1267; |
3785 |
T1285:; |
T1267:; |
3786 |
base[0]= (V700); |
if(!(type_of(V721)==t_cons)){ |
3787 |
base[1]= (V695); |
goto T1270;} |
3788 |
base[2]= CMPcaddr((V705)); |
(V721)->c.c_cdr = V709; |
3789 |
|
goto T1240; |
3790 |
|
goto T1270; |
3791 |
|
T1270:; |
3792 |
|
{object V727; |
3793 |
|
V727= CMPcaddr((V713)); |
3794 |
|
V729= ({object _tmp=get(VV[186],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[186])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[186])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
3795 |
|
V730 = V709; |
3796 |
|
V731 = V708; |
3797 |
|
V732 = V703; |
3798 |
|
V733 = (V727); |
3799 |
|
(void)(( |
3800 |
|
V734 = V729, |
3801 |
|
(type_of(V734) == t_sfun ?(*((V734)->sfn.sfn_self)): |
3802 |
|
(fcall.argd=4,type_of(V734)==t_vfun) ? |
3803 |
|
(*((V734)->sfn.sfn_self)): |
3804 |
|
(fcall.fun=(V734),fcalln))(V730,V731,V732,V733))); |
3805 |
|
goto T1240;}} |
3806 |
|
goto T1264; |
3807 |
|
T1264:; |
3808 |
|
if((V715!= VV[159]))goto T1275; |
3809 |
|
{object V735; |
3810 |
|
V735= ((V705))->v.v_self[fix(CMPcadr((V713)))]; |
3811 |
|
if(!(type_of(V735)==t_fixnum)){ |
3812 |
|
goto T1280;} |
3813 |
|
if(!((((((V707))->v.v_self[fix((V735))])==(VV[173])?Ct:Cnil))==Cnil)){ |
3814 |
|
goto T1240;} |
3815 |
|
goto T1277; |
3816 |
|
goto T1280; |
3817 |
|
T1280:; |
3818 |
|
if(!(type_of(V735)==t_cons)){ |
3819 |
|
goto T1283;} |
3820 |
|
if(!((((CMPcdr((V735)))==(VV[173])?Ct:Cnil))==Cnil)){ |
3821 |
|
goto T1240;} |
3822 |
|
goto T1277; |
3823 |
|
goto T1283; |
3824 |
|
T1283:; |
3825 |
|
base[0]= (V708); |
3826 |
|
base[1]= (V703); |
3827 |
|
base[2]= CMPcaddr((V713)); |
3828 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3829 |
(void) (*Lnk195)(Lclptr195); |
(void) (*Lnk195)(Lclptr195); |
3830 |
vs_top=sup; |
vs_top=sup; |
3831 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3832 |
goto T1239;}} |
goto T1240;}} |
|
goto T1279; |
|
|
T1279:; |
|
|
{long V722; |
|
|
register long V723; |
|
|
V722= fix(CMPcadddr((V705))); |
|
|
V723= 0; |
|
|
goto T1293; |
|
|
T1293:; |
|
|
if(!((V723)>=(V722))){ |
|
|
goto T1294;} |
|
|
goto T1239; |
|
|
goto T1294; |
|
|
T1294:; |
|
|
{object V724; |
|
|
V724= CMPcar((V694)); |
|
|
V694= CMPcdr((V694));} |
|
|
V723= (long)(V723)+1; |
|
|
goto T1293;} |
|
3833 |
goto T1277; |
goto T1277; |
3834 |
T1277:; |
T1277:; |
3835 |
if((V707!= VV[146]))goto T1304; |
{long V737; |
3836 |
if(!(type_of((V696))==t_cons)){ |
register long V738; |
3837 |
goto T1305;} |
V737= fix(CMPcadddr((V713))); |
3838 |
V696= make_cons(CMPcar((V696)),CMPcdr((V696))); |
V738= 0; |
3839 |
goto T1305; |
goto T1291; |
3840 |
T1305:; |
T1291:; |
3841 |
(VV[93]->s.s_dbind)= CMPcadr((V705)); |
if(!((V738)>=(V737))){ |
3842 |
(VV[94]->s.s_dbind)= (V696); |
goto T1292;} |
3843 |
(VV[95]->s.s_dbind)= CMPcaddr((V705)); |
goto T1240; |
3844 |
goto T1239; |
goto T1292; |
3845 |
goto T1304; |
T1292:; |
3846 |
T1304:; |
{object V739; |
3847 |
if((V707!= VV[305]))goto T1314; |
V739= CMPcar((V702)); |
3848 |
V698= (V696); |
V702= CMPcdr((V702));} |
3849 |
goto T1239; |
V738= (long)(V738)+1; |
3850 |
goto T1314; |
goto T1291;} |
3851 |
T1314:; |
goto T1275; |
3852 |
FEerror("The ECASE key value ~s is illegal.",1,V707); |
T1275:; |
3853 |
goto T1239;}} |
if((V715!= VV[146]))goto T1302; |
3854 |
|
if(!(type_of((V704))==t_cons)){ |
3855 |
|
goto T1303;} |
3856 |
|
V704= make_cons(CMPcar((V704)),CMPcdr((V704))); |
3857 |
|
goto T1303; |
3858 |
|
T1303:; |
3859 |
|
(VV[93]->s.s_dbind)= CMPcadr((V713)); |
3860 |
|
(VV[94]->s.s_dbind)= (V704); |
3861 |
|
(VV[95]->s.s_dbind)= CMPcaddr((V713)); |
3862 |
|
goto T1240; |
3863 |
|
goto T1302; |
3864 |
|
T1302:; |
3865 |
|
if((V715!= VV[302]))goto T1312; |
3866 |
|
V706= (V704); |
3867 |
|
goto T1240; |
3868 |
|
goto T1312; |
3869 |
|
T1312:; |
3870 |
|
FEerror("The ECASE key value ~s is illegal.",1,V715); |
3871 |
|
goto T1240;}} |
3872 |
|
goto T1240; |
3873 |
|
T1240:; |
3874 |
goto T1239; |
goto T1239; |
3875 |
T1239:; |
goto T1237; |
3876 |
goto T1238; |
T1237:; |
3877 |
goto T1236; |
{object V740 = (V704); |
3878 |
T1236:; |
VMR53(V740)}} |
|
{object V725 = (V696); |
|
|
VMR53(V725)}} |
|
3879 |
base[0]=base[0]; |
base[0]=base[0]; |
3880 |
return Cnil; |
return Cnil; |
3881 |
} |
} |
3882 |
/* local entry for function ADD-TO-CVECTOR */ |
/* local entry for function ADD-TO-CVECTOR */ |
3883 |
|
|
3884 |
static object LI57(V728,V729) |
static object LI57(V743,V744) |
3885 |
|
|
3886 |
register object V728;object V729; |
register object V743;object V744; |
3887 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
3888 |
goto TTL; |
goto TTL; |
3889 |
TTL:;{object V730; |
TTL:;{object V745; |
3890 |
base[0]= (V729); |
base[0]= (V744); |
3891 |
base[1]= (V728); |
base[1]= (V743); |
3892 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3893 |
(void) (*Lnk287)(); |
(void) (*Lnk285)(); |
3894 |
vs_top=sup; |
vs_top=sup; |
3895 |
V730= vs_base[0]; |
V745= vs_base[0]; |
3896 |
if(V730==Cnil)goto T1317; |
if(V745==Cnil)goto T1315; |
3897 |
{object V731 = V730; |
{object V746 = V745; |
3898 |
VMR54(V731)} |
VMR54(V746)} |
3899 |
goto T1317; |
goto T1315; |
3900 |
T1317:;} |
T1315:;} |
3901 |
{object V732; |
{object V747; |
3902 |
V732= CMPmake_fixnum((long)(((V728))->st.st_fillp)); |
V747= CMPmake_fixnum((long)(((V743))->st.st_fillp)); |
3903 |
{register object V734; |
{register object V749; |
3904 |
register long V735; |
register long V750; |
3905 |
long V736; |
long V751; |
3906 |
V734= (V728); |
V749= (V743); |
3907 |
V735= (long)(((V734))->st.st_fillp); |
V750= (long)(((V749))->st.st_fillp); |
3908 |
V736= (long)(((V734))->st.st_dim); |
V751= (long)(((V749))->st.st_dim); |
3909 |
if(!((V735)<(V736))){ |
if(!((V750)<(V751))){ |
3910 |
goto T1327;} |
goto T1325;} |
3911 |
(void)((((V734))->st.st_fillp)=((long)(1)+(V735))); |
(void)((((V749))->st.st_fillp)=((long)(1)+(V750))); |
3912 |
V737 = CMPmake_fixnum(V735); |
V752 = CMPmake_fixnum(V750); |
3913 |
(void)(aset1((V734),fix(V737),V729)); |
(void)(aset1((V749),fix(V752),V744)); |
3914 |
goto T1322; |
goto T1320; |
3915 |
goto T1327; |
goto T1325; |
3916 |
T1327:; |
T1325:; |
3917 |
base[0]= V729; |
base[0]= V744; |
3918 |
base[1]= (V734); |
base[1]= (V749); |
3919 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3920 |
(void) (*Lnk306)(); |
(void) (*Lnk303)(); |
3921 |
vs_top=sup;} |
vs_top=sup;} |
3922 |
goto T1322; |
goto T1320; |
3923 |
T1322:; |
T1320:; |
3924 |
{object V738 = (V732); |
{object V753 = (V747); |
3925 |
VMR54(V738)}} |
VMR54(V753)}} |
3926 |
base[0]=base[0]; |
base[0]=base[0]; |
3927 |
return Cnil; |
return Cnil; |
3928 |
} |
} |
3929 |
/* local entry for function FIRST-FORM-TO-LISP */ |
/* local entry for function FIRST-FORM-TO-LISP */ |
3930 |
|
|
3931 |
static object LI60(V742,V743,V744) |
static object LI60(V757,V758,V759) |
3932 |
|
|
3933 |
register object V742;object V743;register object V744; |
register object V757;object V758;register object V759; |
3934 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
3935 |
goto TTL; |
goto TTL; |
3936 |
TTL:; |
TTL:; |
3937 |
base[0]= (V743); |
base[0]= (V758); |
3938 |
{object V745; |
{object V760; |
3939 |
{object V747; |
{object V762; |
3940 |
V747= CMPcdr(CMPcar(V742)); |
V762= CMPcdr(CMPcar(V757)); |
3941 |
{object V748; |
{object V763; |
3942 |
V748= CMPcar(CMPcar(V742)); |
V763= CMPcar(CMPcar(V757)); |
3943 |
(V742)->c.c_car = (V747); |
(V757)->c.c_car = (V762); |
3944 |
V745= (V748);}} |
V760= (V763);}} |
3945 |
{object V749= CMPcar((V745)); |
{object V764= CMPcar((V760)); |
3946 |
if((V749!= VV[145]))goto T1338; |
if((V764!= VV[145]))goto T1336; |
3947 |
base[1]= CMPcadr((V745)); |
base[1]= CMPcadr((V760)); |
3948 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3949 |
L61(base); |
L61(base); |
3950 |
vs_top=sup; |
vs_top=sup; |
3951 |
V750= vs_base[0]; |
V765= vs_base[0]; |
3952 |
{object V751 = list(2,VV[174],list(3,VV[57],V750,VV[175])); |
{object V766 = list(2,VV[174],list(3,VV[57],V765,VV[175])); |
3953 |
VMR55(V751)} |
VMR55(V766)} |
3954 |
goto T1338; |
goto T1336; |
3955 |
T1338:; |
T1336:; |
3956 |
if((V749!= VV[158]))goto T1341; |
if((V764!= VV[158]))goto T1339; |
3957 |
base[1]= CMPcadr((V745)); |
base[1]= CMPcadr((V760)); |
3958 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3959 |
L61(base); |
L61(base); |
3960 |
vs_top=sup; |
vs_top=sup; |
3961 |
V752= vs_base[0]; |
V767= vs_base[0]; |
3962 |
V753= list(3,VV[176],VV[76],V752); |
V768= list(3,VV[176],VV[76],V767); |
3963 |
{object V754 = make_cons(/* INLINE-ARGS */V753,Cnil); |
{object V769 = make_cons(/* INLINE-ARGS */V768,Cnil); |
3964 |
VMR55(V754)} |
VMR55(V769)} |
3965 |
goto T1341; |
goto T1339; |
3966 |
T1341:; |
T1339:; |
3967 |
if((V749!= VV[114]))goto T1344; |
if((V764!= VV[114]))goto T1342; |
3968 |
base[1]= CMPcadr((V745)); |
base[1]= CMPcadr((V760)); |
3969 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3970 |
L61(base); |
L61(base); |
3971 |
vs_top=sup; |
vs_top=sup; |
3972 |
V755= vs_base[0]; |
V770= vs_base[0]; |
3973 |
V756= list(3,VV[176],VV[76],list(2,VV[114],list(3,VV[177],VV[170],V755))); |
V771= list(3,VV[176],VV[76],list(2,VV[114],list(3,VV[177],VV[170],V770))); |
3974 |
{object V757 = make_cons(/* INLINE-ARGS */V756,Cnil); |
{object V772 = make_cons(/* INLINE-ARGS */V771,Cnil); |
3975 |
VMR55(V757)} |
VMR55(V772)} |
3976 |
goto T1344; |
goto T1342; |
3977 |
T1344:; |
T1342:; |
3978 |
if((V749!= VV[156]))goto T1347; |
if((V764!= VV[156]))goto T1345; |
3979 |
{object V759; |
{object V774; |
3980 |
V759= one_minus(CMPcadr((V745))); |
V774= one_minus(CMPcadr((V760))); |
3981 |
{object V760= (V759); |
{object V775= (V774); |
3982 |
if(!eql(V760,VV[179]))goto T1350; |
if(!eql(V775,VV[179]))goto T1348; |
3983 |
V758= VV[180]; |
V773= VV[180]; |
3984 |
goto T1348; |
goto T1346; |
|
goto T1350; |
|
|
T1350:; |
|
|
if(!eql(V760,VV[181]))goto T1351; |
|
|
V758= VV[182]; |
|
|
goto T1348; |
|
|
goto T1351; |
|
|
T1351:; |
|
|
V758= list(2,VV[183],(V759));}} |
|
3985 |
goto T1348; |
goto T1348; |
3986 |
T1348:; |
T1348:; |
3987 |
{object V761 = list(2,list(3,VV[176],VV[178],append(V758,VV[184])),VV[185]); |
if(!eql(V775,VV[181]))goto T1349; |
3988 |
VMR55(V761)} |
V773= VV[182]; |
3989 |
goto T1347; |
goto T1346; |
3990 |
T1347:; |
goto T1349; |
3991 |
if((V749!= VV[157]))goto T1352; |
T1349:; |
3992 |
{object V762; |
V773= list(2,VV[183],(V774));}} |
3993 |
object V763; |
goto T1346; |
3994 |
object V764; |
T1346:; |
3995 |
V762= CMPcadr((V745)); |
{object V776 = list(2,list(3,VV[176],VV[178],append(V773,VV[184])),VV[185]); |
3996 |
V763= ((V744))->v.v_self[fix((V762))]; |
VMR55(V776)} |
3997 |
base[4]= CMPcaddr((V745)); |
goto T1345; |
3998 |
|
T1345:; |
3999 |
|
if((V764!= VV[157]))goto T1350; |
4000 |
|
{object V777; |
4001 |
|
object V778; |
4002 |
|
object V779; |
4003 |
|
V777= CMPcadr((V760)); |
4004 |
|
V778= ((V759))->v.v_self[fix((V777))]; |
4005 |
|
base[4]= CMPcaddr((V760)); |
4006 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4007 |
L61(base); |
L61(base); |
4008 |
vs_top=sup; |
vs_top=sup; |
4009 |
V765= vs_base[0]; |
V780= vs_base[0]; |
4010 |
V764= list(3,VV[62],list(4,VV[186],VV[103],VV[121],V765),VV[76]); |
V779= list(3,VV[62],list(4,VV[186],VV[103],VV[121],V780),VV[76]); |
4011 |
if(((VV[187]->s.s_dbind))==Cnil){ |
if(((VV[187]->s.s_dbind))==Cnil){ |
4012 |
goto T1359;} |
goto T1357;} |
4013 |
if(!(type_of(V763)==t_fixnum)){ |
if(!(type_of(V778)==t_fixnum)){ |
4014 |
goto T1362;} |
goto T1360;} |
4015 |
base[4]= (V763); |
base[4]= (V778); |
4016 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4017 |
L61(base); |
L61(base); |
4018 |
vs_top=sup; |
vs_top=sup; |
4019 |
V767= vs_base[0]; |
V782= vs_base[0]; |
4020 |
V768= list(3,VV[62],list(3,VV[188],VV[58],V767),VV[76]); |
V783= list(3,VV[62],list(3,VV[188],VV[58],V782),VV[76]); |
4021 |
{object V769 = make_cons(/* INLINE-ARGS */V768,Cnil); |
{object V784 = make_cons(/* INLINE-ARGS */V783,Cnil); |
4022 |
VMR55(V769)} |
VMR55(V784)} |
4023 |
goto T1362; |
goto T1360; |
4024 |
T1362:; |
T1360:; |
4025 |
if(!(type_of(V763)==t_cons)){ |
if(!(type_of(V778)==t_cons)){ |
4026 |
goto T1367;} |
goto T1365;} |
4027 |
base[4]= (V763); |
base[4]= (V778); |
4028 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4029 |
L61(base); |
L61(base); |
4030 |
vs_top=sup; |
vs_top=sup; |
4031 |
V770= vs_base[0]; |
V785= vs_base[0]; |
4032 |
V771= list(3,VV[62],list(2,VV[189],V770),VV[76]); |
V786= list(3,VV[62],list(2,VV[189],V785),VV[76]); |
4033 |
{object V772 = make_cons(/* INLINE-ARGS */V771,Cnil); |
{object V787 = make_cons(/* INLINE-ARGS */V786,Cnil); |
4034 |
VMR55(V772)} |
VMR55(V787)} |
4035 |
goto T1367; |
goto T1365; |
4036 |
T1367:; |
T1365:; |
4037 |
{object V773 = make_cons((V764),Cnil); |
{object V788 = make_cons((V779),Cnil); |
4038 |
VMR55(V773)} |
VMR55(V788)} |
4039 |
goto T1359; |
goto T1357; |
4040 |
T1359:; |
T1357:; |
4041 |
base[4]= (V762); |
base[4]= (V777); |
4042 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4043 |
L61(base); |
L61(base); |
4044 |
vs_top=sup; |
vs_top=sup; |
4045 |
V774= vs_base[0]; |
V789= vs_base[0]; |
4046 |
V775 = (V764); |
V790 = (V779); |
4047 |
if(!(type_of(V763)==t_fixnum)){ |
if(!(type_of(V778)==t_fixnum)){ |
4048 |
goto T1375;} |
goto T1373;} |
4049 |
V776= VV[192]; |
V791= VV[192]; |
4050 |
goto T1373; |
goto T1371; |
|
goto T1375; |
|
|
T1375:; |
|
|
if(!(type_of(V763)==t_cons)){ |
|
|
goto T1378;} |
|
|
V776= VV[193]; |
|
|
goto T1373; |
|
|
goto T1378; |
|
|
T1378:; |
|
|
V776= VV[194]; |
|
4051 |
goto T1373; |
goto T1373; |
4052 |
T1373:; |
T1373:; |
4053 |
V778= list(7,VV[190],VV[191],VV[58],V774,VV[76],V775,V776); |
if(!(type_of(V778)==t_cons)){ |
4054 |
{object V779 = make_cons(/* INLINE-ARGS */V778,Cnil); |
goto T1376;} |
4055 |
VMR55(V779)}} |
V791= VV[193]; |
4056 |
goto T1352; |
goto T1371; |
4057 |
T1352:; |
goto T1376; |
4058 |
if((V749!= VV[159]))goto T1380; |
T1376:; |
4059 |
{object V780; |
V791= VV[194]; |
4060 |
object V781; |
goto T1371; |
4061 |
object V782; |
T1371:; |
4062 |
V780= CMPcadr((V745)); |
V793= list(7,VV[190],VV[191],VV[58],V789,VV[76],V790,V791); |
4063 |
V781= ((V744))->v.v_self[fix((V780))]; |
{object V794 = make_cons(/* INLINE-ARGS */V793,Cnil); |
4064 |
base[4]= CMPcaddr((V745)); |
VMR55(V794)}} |
4065 |
|
goto T1350; |
4066 |
|
T1350:; |
4067 |
|
if((V764!= VV[159]))goto T1378; |
4068 |
|
{object V795; |
4069 |
|
object V796; |
4070 |
|
object V797; |
4071 |
|
V795= CMPcadr((V760)); |
4072 |
|
V796= ((V759))->v.v_self[fix((V795))]; |
4073 |
|
base[4]= CMPcaddr((V760)); |
4074 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4075 |
L61(base); |
L61(base); |
4076 |
vs_top=sup; |
vs_top=sup; |
4077 |
V783= vs_base[0]; |
V798= vs_base[0]; |
4078 |
V782= list(4,VV[195],VV[103],VV[121],V783); |
V797= list(4,VV[195],VV[103],VV[121],V798); |
4079 |
if(((VV[187]->s.s_dbind))==Cnil){ |
if(((VV[187]->s.s_dbind))==Cnil){ |
4080 |
goto T1388;} |
goto T1386;} |
4081 |
if(!(type_of(V781)==t_fixnum)){ |
if(!(type_of(V796)==t_fixnum)){ |
4082 |
goto T1391;} |
goto T1389;} |
4083 |
base[4]= (V781); |
base[4]= (V796); |
4084 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4085 |
L61(base); |
L61(base); |
4086 |
vs_top=sup; |
vs_top=sup; |
4087 |
V786= vs_base[0]; |
V801= vs_base[0]; |
4088 |
V787= list(3,VV[188],VV[58],V786); |
V802= list(3,VV[188],VV[58],V801); |
4089 |
V784= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V787,list(2,VV[4],(VV[153]->s.s_dbind)))); |
V799= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V802,list(2,VV[4],(VV[153]->s.s_dbind)))); |
4090 |
goto T1386; |
goto T1384; |
4091 |
goto T1391; |
goto T1389; |
4092 |
T1391:; |
T1389:; |
4093 |
if(!(type_of(V781)==t_cons)){ |
if(!(type_of(V796)==t_cons)){ |
4094 |
goto T1396;} |
goto T1394;} |
4095 |
base[4]= (V781); |
base[4]= (V796); |
4096 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4097 |
L61(base); |
L61(base); |
4098 |
vs_top=sup; |
vs_top=sup; |
4099 |
V788= vs_base[0]; |
V803= vs_base[0]; |
4100 |
V789= list(2,VV[189],V788); |
V804= list(2,VV[189],V803); |
4101 |
V784= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V789,list(2,VV[4],(VV[153]->s.s_dbind)))); |
V799= list(2,VV[196],list(3,VV[55],/* INLINE-ARGS */V804,list(2,VV[4],(VV[153]->s.s_dbind)))); |
4102 |
goto T1386; |
goto T1384; |
4103 |
goto T1396; |
goto T1394; |
4104 |
T1396:; |
T1394:; |
4105 |
V784= (V782); |
V799= (V797); |
4106 |
|
goto T1384; |
4107 |
goto T1386; |
goto T1386; |
4108 |
goto T1388; |
T1386:; |
4109 |
T1388:; |
base[4]= (V795); |
|
base[4]= (V780); |
|
4110 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4111 |
L61(base); |
L61(base); |
4112 |
vs_top=sup; |
vs_top=sup; |
4113 |
V790= vs_base[0]; |
V805= vs_base[0]; |
4114 |
V791 = (V782); |
V806 = (V797); |
4115 |
{object V793; |
{object V808; |
4116 |
V793= ((V744))->v.v_self[fix((V780))]; |
V808= ((V759))->v.v_self[fix((V795))]; |
4117 |
if(!(type_of((V793))==t_fixnum)){ |
if(!(type_of((V808))==t_fixnum)){ |
4118 |
goto T1405;} |
goto T1403;} |
4119 |
V792= VV[192]; |
V807= VV[192]; |
4120 |
goto T1402; |
goto T1400; |
4121 |
goto T1405; |
goto T1403; |
4122 |
T1405:; |
T1403:; |
4123 |
if(!(type_of((V793))==t_cons)){ |
if(!(type_of((V808))==t_cons)){ |
4124 |
goto T1408;} |
goto T1406;} |
4125 |
V792= VV[193]; |
V807= VV[193]; |
4126 |
goto T1402; |
goto T1400; |
4127 |
|
goto T1406; |
4128 |
|
T1406:; |
4129 |
|
V807= VV[194];} |
4130 |
|
goto T1400; |
4131 |
|
T1400:; |
4132 |
|
V799= list(6,VV[197],VV[191],VV[58],V805,V806,V807); |
4133 |
|
goto T1384; |
4134 |
|
T1384:; |
4135 |
|
{register object V810; |
4136 |
|
V810= make_cons(Cnil,Cnil); |
4137 |
|
{register long V811; |
4138 |
|
register long V812; |
4139 |
|
V811= fix(CMPcadddr((V760))); |
4140 |
|
V812= 0; |
4141 |
|
goto T1413; |
4142 |
|
T1413:; |
4143 |
|
if(!((V812)>=(V811))){ |
4144 |
|
goto T1414;} |
4145 |
|
V809= CMPcar((V810)); |
4146 |
|
goto T1408; |
4147 |
|
goto T1414; |
4148 |
|
T1414:; |
4149 |
|
V813= (*(LnkLI304))((V757),base[0],(V759)); |
4150 |
|
V814 = (V810); |
4151 |
|
(void)((*(LnkLI282))(/* INLINE-ARGS */V813,V814)); |
4152 |
|
V812= (long)(V812)+1; |
4153 |
|
goto T1413;}} |
4154 |
goto T1408; |
goto T1408; |
4155 |
T1408:; |
T1408:; |
4156 |
V792= VV[194];} |
V815= listA(3,VV[54],V799,V809); |
4157 |
goto T1402; |
{object V816 = make_cons(/* INLINE-ARGS */V815,Cnil); |
4158 |
T1402:; |
VMR55(V816)}} |
4159 |
V784= list(6,VV[197],VV[191],VV[58],V790,V791,V792); |
goto T1378; |
4160 |
goto T1386; |
T1378:; |
4161 |
T1386:; |
if((V764!= VV[146]))goto T1421; |
4162 |
{register object V795; |
base[1]= CMPcadr((V760)); |
|
V795= make_cons(Cnil,Cnil); |
|
|
{register long V796; |
|
|
register long V797; |
|
|
V796= fix(CMPcadddr((V745))); |
|
|
V797= 0; |
|
|
goto T1415; |
|
|
T1415:; |
|
|
if(!((V797)>=(V796))){ |
|
|
goto T1416;} |
|
|
V794= CMPcar((V795)); |
|
|
goto T1410; |
|
|
goto T1416; |
|
|
T1416:; |
|
|
V798= (*(LnkLI307))((V742),base[0],(V744)); |
|
|
V799 = (V795); |
|
|
(void)((*(LnkLI284))(/* INLINE-ARGS */V798,V799)); |
|
|
V797= (long)(V797)+1; |
|
|
goto T1415;}} |
|
|
goto T1410; |
|
|
T1410:; |
|
|
V800= listA(3,VV[54],V784,V794); |
|
|
{object V801 = make_cons(/* INLINE-ARGS */V800,Cnil); |
|
|
VMR55(V801)}} |
|
|
goto T1380; |
|
|
T1380:; |
|
|
if((V749!= VV[146]))goto T1423; |
|
|
base[1]= CMPcadr((V745)); |
|
4163 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4164 |
L61(base); |
L61(base); |
4165 |
vs_top=sup; |
vs_top=sup; |
4166 |
V802= vs_base[0]; |
V817= vs_base[0]; |
4167 |
V803= list(3,VV[176],VV[93],V802); |
V818= list(3,VV[176],VV[93],V817); |
4168 |
base[1]= CMPcaddr((V745)); |
base[1]= CMPcaddr((V760)); |
4169 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4170 |
L61(base); |
L61(base); |
4171 |
vs_top=sup; |
vs_top=sup; |
4172 |
V804= vs_base[0]; |
V819= vs_base[0]; |
4173 |
{object V805 = list(4,VV[198],/* INLINE-ARGS */V803,VV[199],list(3,VV[176],VV[95],V804)); |
{object V820 = list(4,VV[198],/* INLINE-ARGS */V818,VV[199],list(3,VV[176],VV[95],V819)); |
4174 |
VMR55(V805)} |
VMR55(V820)} |
4175 |
goto T1423; |
goto T1421; |
4176 |
T1423:; |
T1421:; |
4177 |
if((V749!= VV[305]))goto T1428; |
if((V764!= VV[302]))goto T1426; |
4178 |
{object V806 = VV[200]; |
{object V821 = VV[200]; |
4179 |
VMR55(V806)} |
VMR55(V821)} |
4180 |
goto T1428; |
goto T1426; |
4181 |
T1428:; |
T1426:; |
4182 |
FEerror("The ECASE key value ~s is illegal.",1,V749); |
FEerror("The ECASE key value ~s is illegal.",1,V764); |
4183 |
{object V807 = Cnil; |
{object V822 = Cnil; |
4184 |
VMR55(V807)}}} |
VMR55(V822)}}} |
4185 |
base[0]=base[0]; |
base[0]=base[0]; |
4186 |
return Cnil; |
return Cnil; |
4187 |
} |
} |
4193 |
vs_check; |
vs_check; |
4194 |
check_arg(2); |
check_arg(2); |
4195 |
vs_top=sup; |
vs_top=sup; |
4196 |
{object V808=base[0]->c.c_cdr; |
{object V823=base[0]->c.c_cdr; |
4197 |
base[2]= V808;} |
base[2]= V823;} |
4198 |
V810= listA(3,VV[205],VV[206],base[2]); |
V825= listA(3,VV[205],VV[206],base[2]); |
4199 |
base[3]= listA(3,VV[52],VV[204],append(VV[203],/* INLINE-ARGS */V810)); |
base[3]= listA(3,VV[52],VV[204],append(VV[203],/* INLINE-ARGS */V825)); |
4200 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4201 |
return; |
return; |
4202 |
} |
} |
4206 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4207 |
register object *sup=base+VM57; VC57 |
register object *sup=base+VM57; VC57 |
4208 |
vs_check; |
vs_check; |
4209 |
{object V811; |
{object V826; |
4210 |
object V812; |
object V827; |
4211 |
check_arg(2); |
check_arg(2); |
4212 |
V811=(base[0]); |
V826=(base[0]); |
4213 |
V812=(base[1]); |
V827=(base[1]); |
4214 |
vs_top=sup; |
vs_top=sup; |
4215 |
goto TTL; |
goto TTL; |
4216 |
TTL:; |
TTL:; |
4217 |
{register object V813; |
{register object V828; |
4218 |
register object V814; |
register object V829; |
4219 |
register object V815; |
register object V830; |
4220 |
object V816; |
object V831; |
4221 |
object V817; |
object V832; |
4222 |
V813= make_cons((V812),Cnil); |
V828= make_cons((V827),Cnil); |
4223 |
base[8]= CMPmake_fixnum((long)length((V812))); |
base[8]= CMPmake_fixnum((long)length((V827))); |
4224 |
base[9]= small_fixnum(2); |
base[9]= small_fixnum(2); |
4225 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
4226 |
Lfloor(); |
Lfloor(); |
4231 |
base[10]= VV[208]; |
base[10]= VV[208]; |
4232 |
base[11]= Ct; |
base[11]= Ct; |
4233 |
vs_top=(vs_base=base+7)+5; |
vs_top=(vs_base=base+7)+5; |
4234 |
(void) (*Lnk285)(); |
(void) (*Lnk283)(); |
4235 |
vs_top=sup; |
vs_top=sup; |
4236 |
V814= vs_base[0]; |
V829= vs_base[0]; |
4237 |
V815= CMPcar((V811)); |
V830= CMPcar((V826)); |
4238 |
{register object V818; |
{register object V833; |
4239 |
V818= make_cons(Cnil,Cnil); |
V833= make_cons(Cnil,Cnil); |
4240 |
|
goto T1440; |
4241 |
|
T1440:; |
4242 |
|
if((CMPcar((V828)))!=Cnil){ |
4243 |
|
goto T1442;} |
4244 |
|
V831= CMPcar((V833)); |
4245 |
|
goto T1437; |
4246 |
goto T1442; |
goto T1442; |
4247 |
T1442:; |
T1442:; |
4248 |
if((CMPcar((V813)))!=Cnil){ |
V834= (*(LnkLI304))((V828),(V829),(V830)); |
4249 |
goto T1444;} |
V835 = (V833); |
4250 |
V816= CMPcar((V818)); |
(void)((*(LnkLI282))(/* INLINE-ARGS */V834,V835)); |
4251 |
goto T1439; |
goto T1440;} |
4252 |
goto T1444; |
goto T1437; |
4253 |
T1444:; |
T1437:; |
4254 |
V819= (*(LnkLI307))((V813),(V814),(V815)); |
V836 = CMPmake_fixnum((long)length((V829))); |
4255 |
V820 = (V818); |
V832= list(2,VV[209],V836); |
4256 |
(void)((*(LnkLI284))(/* INLINE-ARGS */V819,V820)); |
V837= list(2,VV[212],list(3,VV[213],(V832),VV[202])); |
4257 |
goto T1442;} |
base[7]= list(4,VV[210],VV[211],/* INLINE-ARGS */V837,list(2,VV[170],list(5,VV[210],VV[214],VV[215],make_cons(VV[216],(V831)),VV[175]))); |
4258 |
goto T1439; |
V838 = (V826); |
4259 |
T1439:; |
base[9]= (V829); |
4260 |
V821 = CMPmake_fixnum((long)length((V814))); |
base[10]= (V832); |
|
V817= list(2,VV[209],V821); |
|
|
V822= list(2,VV[212],list(3,VV[213],(V817),VV[202])); |
|
|
base[7]= list(4,VV[210],VV[211],/* INLINE-ARGS */V822,list(2,VV[170],list(5,VV[210],VV[214],VV[215],make_cons(VV[216],(V816)),VV[175]))); |
|
|
V823 = (V811); |
|
|
base[9]= (V814); |
|
|
base[10]= (V817); |
|
4261 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
4262 |
(void) (*Lnk308)(); |
(void) (*Lnk305)(); |
4263 |
vs_top=sup; |
vs_top=sup; |
4264 |
V824= vs_base[0]; |
V839= vs_base[0]; |
4265 |
base[8]= list(2,V823,V824); |
base[8]= list(2,V838,V839); |
4266 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
4267 |
return;} |
return;} |
4268 |
} |
} |
4269 |
} |
} |
4270 |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL */ |
/* local entry for function GET-MAKE-INSTANCE-FUNCTION-SYMBOL */ |
4271 |
|
|
4272 |
static object LI64(V826) |
static object LI64(V841) |
4273 |
|
|
4274 |
object V826; |
object V841; |
4275 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
4276 |
goto TTL; |
goto TTL; |
4277 |
TTL:; |
TTL:; |
4278 |
V827= make_cons((V826),Cnil); |
V842= make_cons((V841),Cnil); |
4279 |
(void)((*(LnkLI7))(/* INLINE-ARGS */V827)); |
(void)((*(LnkLI7))(/* INLINE-ARGS */V842)); |
4280 |
{object V828 = (*(LnkLI75))((V826)); |
{object V843 = (*(LnkLI75))((V841)); |
4281 |
VMR58(V828)} |
VMR58(V843)} |
4282 |
return Cnil; |
return Cnil; |
4283 |
} |
} |
4284 |
/* local function CONST */ |
/* local function CONST */ |
4288 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4289 |
register object *sup=base+VM59; VC59 |
register object *sup=base+VM59; VC59 |
4290 |
vs_check; |
vs_check; |
4291 |
{object V829; |
{object V844; |
4292 |
check_arg(1); |
check_arg(1); |
4293 |
V829=(base[0]); |
V844=(base[0]); |
4294 |
vs_top=sup; |
vs_top=sup; |
4295 |
goto TTL; |
goto TTL; |
4296 |
TTL:; |
TTL:; |
4297 |
if(type_of((V829))==t_fixnum|| |
if(type_of((V844))==t_fixnum|| |
4298 |
type_of((V829))==t_bignum|| |
type_of((V844))==t_bignum|| |
4299 |
type_of((V829))==t_ratio|| |
type_of((V844))==t_ratio|| |
4300 |
type_of((V829))==t_shortfloat|| |
type_of((V844))==t_shortfloat|| |
4301 |
type_of((V829))==t_longfloat|| |
type_of((V844))==t_longfloat|| |
4302 |
type_of((V829))==t_complex){ |
type_of((V844))==t_complex){ |
4303 |
goto T1455;} |
goto T1453;} |
4304 |
if(!(type_of((V829))==t_character)){ |
if(!(type_of((V844))==t_character)){ |
4305 |
goto T1456;} |
goto T1454;} |
4306 |
goto T1455; |
goto T1453; |
4307 |
T1455:; |
T1453:; |
4308 |
base[1]= (V829); |
base[1]= (V844); |
4309 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4310 |
return; |
return; |
4311 |
goto T1456; |
goto T1454; |
4312 |
T1456:; |
T1454:; |
4313 |
if(!(type_of((V829))==t_symbol)){ |
if(!(type_of((V844))==t_symbol)){ |
4314 |
goto T1461;} |
goto T1459;} |
4315 |
base[1]= (V829); |
base[1]= (V844); |
4316 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4317 |
Lsymbol_package(); |
Lsymbol_package(); |
4318 |
vs_top=sup; |
vs_top=sup; |
4319 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4320 |
goto T1461;} |
goto T1459;} |
4321 |
base[1]= list(2,VV[4],(V829)); |
base[1]= list(2,VV[4],(V844)); |
4322 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4323 |
return; |
return; |
4324 |
goto T1461; |
goto T1459; |
4325 |
T1461:; |
T1459:; |
4326 |
base[1]= list(3,VV[201],VV[202],(*(LnkLI309))(base0[0],(V829))); |
base[1]= list(3,VV[201],VV[202],(*(LnkLI306))(base0[0],(V844))); |
4327 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4328 |
return; |
return; |
4329 |
} |
} |
4335 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4336 |
register object *sup=base+VM60; VC60 |
register object *sup=base+VM60; VC60 |
4337 |
vs_check; |
vs_check; |
4338 |
{object V830; |
{object V845; |
4339 |
object V831; |
object V846; |
4340 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4341 |
V830=(base[0]); |
V845=(base[0]); |
4342 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4343 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4344 |
{object *p=vs_top; |
{object *p=vs_top; |
4345 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4346 |
V831=(base[1]); |
V846=(base[1]); |
4347 |
vs_top=sup; |
vs_top=sup; |
4348 |
{object V832; |
{object V847; |
4349 |
if(((base0[3]->c.c_car))==Cnil){ |
if(((base0[3]->c.c_car))==Cnil){ |
4350 |
goto T1468;} |
goto T1466;} |
4351 |
V832= (VFUN_NARGS=2,(*(LnkLI310))((base0[4]->c.c_car),(base0[3]->c.c_car))); |
V847= (VFUN_NARGS=2,(*(LnkLI307))((base0[4]->c.c_car),(base0[3]->c.c_car))); |
4352 |
goto T1466; |
goto T1464; |
|
goto T1468; |
|
|
T1468:; |
|
|
V832= (V830); |
|
4353 |
goto T1466; |
goto T1466; |
4354 |
T1466:; |
T1466:; |
4355 |
if(!(((V832))==((V830)))){ |
V847= (V845); |
4356 |
goto T1470;} |
goto T1464; |
4357 |
|
T1464:; |
4358 |
|
if(!(((V847))==((V845)))){ |
4359 |
|
goto T1468;} |
4360 |
if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((base0[2]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4361 |
goto T1471;} |
goto T1469;} |
4362 |
goto T1470; |
goto T1468; |
4363 |
T1470:; |
T1468:; |
4364 |
base[2]= (V832); |
base[2]= (V847); |
4365 |
base[3]= (V831); |
base[3]= (V846); |
4366 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4367 |
(void) (*Lnk124)(); |
(void) (*Lnk124)(); |
4368 |
return; |
return; |
4369 |
goto T1471; |
goto T1469; |
4370 |
T1471:; |
T1469:; |
4371 |
{register object V833; |
{register object V848; |
4372 |
register object V834; |
register object V849; |
4373 |
{register object V835; |
{register object V850; |
4374 |
V835= (base0[6]->c.c_car); |
V850= (base0[6]->c.c_car); |
4375 |
if(!(type_of((V835))==t_cons)){ |
if(!(type_of((V850))==t_cons)){ |
4376 |
goto T1479;} |
goto T1477;} |
4377 |
if(!((CMPcar((V835)))==(VV[130]))){ |
if(!((CMPcar((V850)))==(VV[130]))){ |
4378 |
goto T1479;} |
goto T1477;} |
4379 |
V833= (*(LnkLI111))(CMPcadr((V835)),CMPcaddr((V835)),Cnil,(V831)); |
V848= (*(LnkLI111))(CMPcadr((V850)),CMPcaddr((V850)),Cnil,(V846)); |
4380 |
goto T1477; |
goto T1475; |
|
goto T1479; |
|
|
T1479:; |
|
|
V833= ( |
|
|
(type_of((V835)) == t_sfun ?(*(((V835))->sfn.sfn_self)): |
|
|
(fcall.argd=2,type_of((V835))==t_vfun) ? |
|
|
(*(((V835))->sfn.sfn_self)): |
|
|
(fcall.fun=((V835)),fcalln))(Cnil,(V831)));} |
|
4381 |
goto T1477; |
goto T1477; |
4382 |
T1477:; |
T1477:; |
4383 |
|
V848= ( |
4384 |
|
(type_of((V850)) == t_sfun ?(*(((V850))->sfn.sfn_self)): |
4385 |
|
(fcall.argd=2,type_of((V850))==t_vfun) ? |
4386 |
|
(*(((V850))->sfn.sfn_self)): |
4387 |
|
(fcall.fun=((V850)),fcalln))(Cnil,(V846)));} |
4388 |
|
goto T1475; |
4389 |
|
T1475:; |
4390 |
base[4]=VV[96]->s.s_gfdef; |
base[4]=VV[96]->s.s_gfdef; |
4391 |
base[5]= (base0[7]->c.c_car); |
base[5]= (base0[7]->c.c_car); |
4392 |
{object V836; |
{object V851; |
4393 |
V836= (V833); |
V851= (V848); |
4394 |
vs_top=base+6; |
vs_top=base+6; |
4395 |
while(V836!=Cnil) |
while(V851!=Cnil) |
4396 |
{vs_push((V836)->c.c_car);V836=(V836)->c.c_cdr;} |
{vs_push((V851)->c.c_car);V851=(V851)->c.c_cdr;} |
4397 |
vs_base=base+5;} |
vs_base=base+5;} |
4398 |
(void) (*Lnk96)(Lclptr96); |
(void) (*Lnk96)(Lclptr96); |
4399 |
vs_top=sup; |
vs_top=sup; |
4400 |
V834= vs_base[0]; |
V849= vs_base[0]; |
4401 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
4402 |
base[5]= VV[131]; |
base[5]= VV[131]; |
4403 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4404 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
4405 |
vs_top=sup; |
vs_top=sup; |
4406 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4407 |
goto T1489;} |
goto T1487;} |
4408 |
(void)(( |
(void)(( |
4409 |
V837 = STREF(object,(base0[0]->c.c_car),0), |
V852 = STREF(object,(base0[0]->c.c_car),0), |
4410 |
(type_of(V837) == t_sfun ?(*((V837)->sfn.sfn_self)): |
(type_of(V852) == t_sfun ?(*((V852)->sfn.sfn_self)): |
4411 |
(fcall.argd=4,type_of(V837)==t_vfun) ? |
(fcall.argd=4,type_of(V852)==t_vfun) ? |
4412 |
(*((V837)->sfn.sfn_self)): |
(*((V852)->sfn.sfn_self)): |
4413 |
(fcall.fun=(V837),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V834),(V833)))); |
(fcall.fun=(V852),fcalln))(STREF(object,(base0[0]->c.c_car),4),STREF(object,(base0[0]->c.c_car),8),(V849),(V848)))); |
4414 |
goto T1486; |
goto T1484; |
4415 |
goto T1489; |
goto T1487; |
4416 |
T1489:; |
T1487:; |
4417 |
{register object V838; |
{register object V853; |
4418 |
V838= (base0[0]->c.c_car); |
V853= (base0[0]->c.c_car); |
4419 |
base[4]= (V838); |
base[4]= (V853); |
4420 |
base[5]= VV[132]; |
base[5]= VV[132]; |
4421 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4422 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
4423 |
vs_top=sup; |
vs_top=sup; |
4424 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4425 |
goto T1494;} |
goto T1492;} |
4426 |
{object V839; |
{object V854; |
4427 |
object V840; |
object V855; |
4428 |
register object V841; |
register object V856; |
4429 |
V839= STREF(object,(base0[0]->c.c_car),0); |
V854= STREF(object,(base0[0]->c.c_car),0); |
4430 |
V840= make_cons((V834),(V833)); |
V855= make_cons((V849),(V848)); |
4431 |
V841= STREF(object,(base0[0]->c.c_car),4); |
V856= STREF(object,(base0[0]->c.c_car),4); |
4432 |
if(((V841))==Cnil){ |
if(((V856))==Cnil){ |
4433 |
goto T1502;} |
goto T1500;} |
4434 |
if((CMPcdr((V841)))!=Cnil){ |
if((CMPcdr((V856)))!=Cnil){ |
4435 |
goto T1502;} |
goto T1500;} |
4436 |
(void)(( |
(void)(( |
4437 |
(type_of((V839)) == t_sfun ?(*(((V839))->sfn.sfn_self)): |
(type_of((V854)) == t_sfun ?(*(((V854))->sfn.sfn_self)): |
4438 |
(fcall.argd=2,type_of((V839))==t_vfun) ? |
(fcall.argd=2,type_of((V854))==t_vfun) ? |
4439 |
(*(((V839))->sfn.sfn_self)): |
(*(((V854))->sfn.sfn_self)): |
4440 |
(fcall.fun=((V839)),fcalln))((V840),CMPcar((V841))))); |
(fcall.fun=((V854)),fcalln))((V855),CMPcar((V856))))); |
4441 |
goto T1486; |
goto T1484; |
4442 |
goto T1502; |
goto T1500; |
4443 |
T1502:; |
T1500:; |
4444 |
base[4]= (V839); |
base[4]= (V854); |
4445 |
base[5]= (V840); |
base[5]= (V855); |
4446 |
{object V842; |
{object V857; |
4447 |
V842= (V841); |
V857= (V856); |
4448 |
vs_top=base+6; |
vs_top=base+6; |
4449 |
while(V842!=Cnil) |
while(V857!=Cnil) |
4450 |
{vs_push((V842)->c.c_car);V842=(V842)->c.c_cdr;} |
{vs_push((V857)->c.c_car);V857=(V857)->c.c_cdr;} |
4451 |
vs_base=base+5;} |
vs_base=base+5;} |
4452 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4453 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4454 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4455 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4456 |
vs_top=sup; |
vs_top=sup; |
4457 |
goto T1486;} |
goto T1484;} |
4458 |
goto T1494; |
goto T1492; |
4459 |
T1494:; |
T1492:; |
4460 |
base[4]= (V838); |
base[4]= (V853); |
4461 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4462 |
Lfunctionp(); |
Lfunctionp(); |
4463 |
vs_top=sup; |
vs_top=sup; |
4464 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4465 |
goto T1510;} |
goto T1508;} |
4466 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
4467 |
base[5]= (V834); |
base[5]= (V849); |
4468 |
{object V843; |
{object V858; |
4469 |
V843= (V833); |
V858= (V848); |
4470 |
vs_top=base+6; |
vs_top=base+6; |
4471 |
while(V843!=Cnil) |
while(V858!=Cnil) |
4472 |
{vs_push((V843)->c.c_car);V843=(V843)->c.c_cdr;} |
{vs_push((V858)->c.c_car);V858=(V858)->c.c_cdr;} |
4473 |
vs_base=base+5;} |
vs_base=base+5;} |
4474 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4475 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4476 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4477 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4478 |
vs_top=sup; |
vs_top=sup; |
4479 |
goto T1486; |
goto T1484; |
4480 |
goto T1510; |
goto T1508; |
4481 |
T1510:; |
T1508:; |
4482 |
base[5]= VV[97]; |
base[5]= VV[97]; |
4483 |
base[6]= (V838); |
base[6]= (V853); |
4484 |
base[7]= VV[144]; |
base[7]= VV[144]; |
4485 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
4486 |
(void) (*Lnk312)(); |
(void) (*Lnk309)(); |
4487 |
vs_top=sup; |
vs_top=sup; |
4488 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
4489 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4490 |
Lerror(); |
Lerror(); |
4491 |
vs_top=sup;} |
vs_top=sup;} |
4492 |
goto T1486; |
goto T1484; |
4493 |
T1486:; |
T1484:; |
4494 |
base[4]= (V834); |
base[4]= (V849); |
4495 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4496 |
return;}} |
return;}} |
4497 |
} |
} |
4503 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4504 |
register object *sup=base+VM61; VC61 |
register object *sup=base+VM61; VC61 |
4505 |
vs_check; |
vs_check; |
4506 |
{object V844; |
{object V859; |
4507 |
object V845; |
object V860; |
4508 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4509 |
V844=(base[0]); |
V859=(base[0]); |
4510 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4511 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4512 |
{object *p=vs_top; |
{object *p=vs_top; |
4513 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4514 |
V845=(base[1]); |
V860=(base[1]); |
4515 |
vs_top=sup; |
vs_top=sup; |
4516 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
4517 |
base[3]= VV[131]; |
base[3]= VV[131]; |
4518 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4519 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
4520 |
vs_top=sup; |
vs_top=sup; |
4521 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4522 |
goto T1522;} |
goto T1520;} |
4523 |
base[2]= STREF(object,(base0[0]->c.c_car),0); |
base[2]= STREF(object,(base0[0]->c.c_car),0); |
4524 |
base[3]= STREF(object,(base0[0]->c.c_car),4); |
base[3]= STREF(object,(base0[0]->c.c_car),4); |
4525 |
base[4]= STREF(object,(base0[0]->c.c_car),8); |
base[4]= STREF(object,(base0[0]->c.c_car),8); |
4526 |
base[5]= (V844); |
base[5]= (V859); |
4527 |
base[6]= Ct; |
base[6]= Ct; |
4528 |
base[7]= (V845); |
base[7]= (V860); |
4529 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
4530 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4531 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4532 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4533 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4534 |
return; |
return; |
4535 |
goto T1522; |
goto T1520; |
4536 |
T1522:; |
T1520:; |
4537 |
{register object V846; |
{register object V861; |
4538 |
V846= (base0[0]->c.c_car); |
V861= (base0[0]->c.c_car); |
4539 |
base[2]= (V846); |
base[2]= (V861); |
4540 |
base[3]= VV[132]; |
base[3]= VV[132]; |
4541 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4542 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
4543 |
vs_top=sup; |
vs_top=sup; |
4544 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4545 |
goto T1533;} |
goto T1531;} |
4546 |
{object V847; |
{object V862; |
4547 |
object V848; |
object V863; |
4548 |
register object V849; |
register object V864; |
4549 |
V847= STREF(object,(base0[0]->c.c_car),0); |
V862= STREF(object,(base0[0]->c.c_car),0); |
4550 |
V848= listA(3,(V844),Ct,(V845)); |
V863= listA(3,(V859),Ct,(V860)); |
4551 |
V849= STREF(object,(base0[0]->c.c_car),4); |
V864= STREF(object,(base0[0]->c.c_car),4); |
4552 |
if(((V849))==Cnil){ |
if(((V864))==Cnil){ |
4553 |
goto T1541;} |
goto T1539;} |
4554 |
if((CMPcdr((V849)))!=Cnil){ |
if((CMPcdr((V864)))!=Cnil){ |
4555 |
goto T1541;} |
goto T1539;} |
4556 |
base[2]= (V848); |
base[2]= (V863); |
4557 |
base[3]= CMPcar((V849)); |
base[3]= CMPcar((V864)); |
4558 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4559 |
{object _funobj = (V847);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V862);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4560 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4561 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4562 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4563 |
return; |
return; |
4564 |
goto T1541; |
goto T1539; |
4565 |
T1541:; |
T1539:; |
4566 |
base[2]= (V847); |
base[2]= (V862); |
4567 |
base[3]= (V848); |
base[3]= (V863); |
4568 |
{object V850; |
{object V865; |
4569 |
V850= (V849); |
V865= (V864); |
4570 |
vs_top=base+4; |
vs_top=base+4; |
4571 |
while(V850!=Cnil) |
while(V865!=Cnil) |
4572 |
{vs_push((V850)->c.c_car);V850=(V850)->c.c_cdr;} |
{vs_push((V865)->c.c_car);V865=(V865)->c.c_cdr;} |
4573 |
vs_base=base+3;} |
vs_base=base+3;} |
4574 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4575 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4576 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4577 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4578 |
return;} |
return;} |
4579 |
goto T1533; |
goto T1531; |
4580 |
T1533:; |
T1531:; |
4581 |
base[2]= (V846); |
base[2]= (V861); |
4582 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4583 |
Lfunctionp(); |
Lfunctionp(); |
4584 |
vs_top=sup; |
vs_top=sup; |
4585 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4586 |
goto T1551;} |
goto T1549;} |
4587 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
4588 |
base[3]= (V844); |
base[3]= (V859); |
4589 |
base[4]= Ct; |
base[4]= Ct; |
4590 |
{object V851; |
{object V866; |
4591 |
V851= (V845); |
V866= (V860); |
4592 |
vs_top=base+5; |
vs_top=base+5; |
4593 |
while(V851!=Cnil) |
while(V866!=Cnil) |
4594 |
{vs_push((V851)->c.c_car);V851=(V851)->c.c_cdr;} |
{vs_push((V866)->c.c_car);V866=(V866)->c.c_cdr;} |
4595 |
vs_base=base+3;} |
vs_base=base+3;} |
4596 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4597 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4598 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4599 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4600 |
return; |
return; |
4601 |
goto T1551; |
goto T1549; |
4602 |
T1551:; |
T1549:; |
4603 |
base[3]= VV[98]; |
base[3]= VV[98]; |
4604 |
base[4]= (V846); |
base[4]= (V861); |
4605 |
base[5]= VV[143]; |
base[5]= VV[143]; |
4606 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4607 |
(void) (*Lnk312)(); |
(void) (*Lnk309)(); |
4608 |
vs_top=sup; |
vs_top=sup; |
4609 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
4610 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4619 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4620 |
register object *sup=base+VM62; VC62 |
register object *sup=base+VM62; VC62 |
4621 |
vs_check; |
vs_check; |
4622 |
{object V852; |
{object V867; |
4623 |
object V853; |
object V868; |
4624 |
object V854; |
object V869; |
4625 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
4626 |
V852=(base[0]); |
V867=(base[0]); |
4627 |
V853=(base[1]); |
V868=(base[1]); |
4628 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
4629 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4630 |
{object *p=vs_top; |
{object *p=vs_top; |
4631 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4632 |
V854=(base[2]); |
V869=(base[2]); |
4633 |
vs_top=sup; |
vs_top=sup; |
4634 |
{register object V855; |
{register object V870; |
4635 |
V855= (base0[3]->c.c_car); |
V870= (base0[3]->c.c_car); |
4636 |
if(!(type_of((V855))==t_cons)){ |
if(!(type_of((V870))==t_cons)){ |
4637 |
goto T1564;} |
goto T1562;} |
4638 |
if(!((CMPcar((V855)))==(VV[130]))){ |
if(!((CMPcar((V870)))==(VV[130]))){ |
4639 |
goto T1564;} |
goto T1562;} |
4640 |
(void)((*(LnkLI111))(CMPcadr((V855)),CMPcaddr((V855)),(V852),(V854))); |
(void)((*(LnkLI111))(CMPcadr((V870)),CMPcaddr((V870)),(V867),(V869))); |
4641 |
goto T1562; |
goto T1560; |
|
goto T1564; |
|
|
T1564:; |
|
|
(void)(( |
|
|
(type_of((V855)) == t_sfun ?(*(((V855))->sfn.sfn_self)): |
|
|
(fcall.argd=2,type_of((V855))==t_vfun) ? |
|
|
(*(((V855))->sfn.sfn_self)): |
|
|
(fcall.fun=((V855)),fcalln))((V852),(V854))));} |
|
4642 |
goto T1562; |
goto T1562; |
4643 |
T1562:; |
T1562:; |
4644 |
base[3]= (V852); |
(void)(( |
4645 |
|
(type_of((V870)) == t_sfun ?(*(((V870))->sfn.sfn_self)): |
4646 |
|
(fcall.argd=2,type_of((V870))==t_vfun) ? |
4647 |
|
(*(((V870))->sfn.sfn_self)): |
4648 |
|
(fcall.fun=((V870)),fcalln))((V867),(V869))));} |
4649 |
|
goto T1560; |
4650 |
|
T1560:; |
4651 |
|
base[3]= (V867); |
4652 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4653 |
return; |
return; |
4654 |
} |
} |
4660 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4661 |
register object *sup=base+VM63; VC63 |
register object *sup=base+VM63; VC63 |
4662 |
vs_check; |
vs_check; |
4663 |
{object V856; |
{object V871; |
4664 |
object V857; |
object V872; |
4665 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4666 |
V856=(base[0]); |
V871=(base[0]); |
4667 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4668 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4669 |
{object *p=vs_top; |
{object *p=vs_top; |
4670 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4671 |
V857=(base[1]); |
V872=(base[1]); |
4672 |
vs_top=sup; |
vs_top=sup; |
4673 |
{object V858; |
{object V873; |
4674 |
if(((base0[6]->c.c_car))==Cnil){ |
if(((base0[6]->c.c_car))==Cnil){ |
4675 |
goto T1570;} |
goto T1568;} |
4676 |
V858= (VFUN_NARGS=2,(*(LnkLI310))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
V873= (VFUN_NARGS=2,(*(LnkLI307))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
4677 |
goto T1568; |
goto T1566; |
|
goto T1570; |
|
|
T1570:; |
|
|
V858= (V856); |
|
4678 |
goto T1568; |
goto T1568; |
4679 |
T1568:; |
T1568:; |
4680 |
if(!(((V858))==((V856)))){ |
V873= (V871); |
4681 |
goto T1572;} |
goto T1566; |
4682 |
|
T1566:; |
4683 |
|
if(!(((V873))==((V871)))){ |
4684 |
|
goto T1570;} |
4685 |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4686 |
goto T1573;} |
goto T1571;} |
4687 |
goto T1572; |
goto T1570; |
4688 |
T1572:; |
T1570:; |
4689 |
base[2]= (V858); |
base[2]= (V873); |
4690 |
base[3]= (V857); |
base[3]= (V872); |
4691 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4692 |
(void) (*Lnk124)(); |
(void) (*Lnk124)(); |
4693 |
return; |
return; |
4694 |
goto T1573; |
goto T1571; |
4695 |
T1573:; |
T1571:; |
4696 |
{register object V859; |
{register object V874; |
4697 |
object V860; |
object V875; |
4698 |
V859= ( |
V874= ( |
4699 |
(type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
(type_of((base0[4]->c.c_car)) == t_sfun ?(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
4700 |
(fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ? |
(fcall.argd=2,type_of((base0[4]->c.c_car))==t_vfun) ? |
4701 |
(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
(*(((base0[4]->c.c_car))->sfn.sfn_self)): |
4702 |
(fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car))); |
(fcall.fun=((base0[4]->c.c_car)),fcalln))((base0[5]->c.c_car),(base0[0]->c.c_car))); |
4703 |
{object V861; |
{object V876; |
4704 |
V861= (base0[1]->c.c_car); |
V876= (base0[1]->c.c_car); |
4705 |
if(!(type_of((V861))==t_cons)){ |
if(!(type_of((V876))==t_cons)){ |
4706 |
goto T1582;} |
goto T1580;} |
4707 |
if(!((CMPcar((V861)))==(VV[130]))){ |
if(!((CMPcar((V876)))==(VV[130]))){ |
4708 |
goto T1582;} |
goto T1580;} |
4709 |
V860= (*(LnkLI111))(CMPcadr((V861)),CMPcaddr((V861)),(V859),(V857)); |
V875= (*(LnkLI111))(CMPcadr((V876)),CMPcaddr((V876)),(V874),(V872)); |
4710 |
goto T1580; |
goto T1578; |
|
goto T1582; |
|
|
T1582:; |
|
|
V860= ( |
|
|
(type_of((V861)) == t_sfun ?(*(((V861))->sfn.sfn_self)): |
|
|
(fcall.argd=2,type_of((V861))==t_vfun) ? |
|
|
(*(((V861))->sfn.sfn_self)): |
|
|
(fcall.fun=((V861)),fcalln))((V859),(V857)));} |
|
4711 |
goto T1580; |
goto T1580; |
4712 |
T1580:; |
T1580:; |
4713 |
{object V862; |
V875= ( |
4714 |
register object V863; |
(type_of((V876)) == t_sfun ?(*(((V876))->sfn.sfn_self)): |
4715 |
V862= (base0[3]->c.c_car); |
(fcall.argd=2,type_of((V876))==t_vfun) ? |
4716 |
V863= CMPcar((V862)); |
(*(((V876))->sfn.sfn_self)): |
4717 |
goto T1590; |
(fcall.fun=((V876)),fcalln))((V874),(V872)));} |
4718 |
T1590:; |
goto T1578; |
4719 |
if(!(((V862))==Cnil)){ |
T1578:; |
4720 |
goto T1591;} |
{object V877; |
4721 |
goto T1586; |
register object V878; |
4722 |
goto T1591; |
V877= (base0[3]->c.c_car); |
4723 |
T1591:; |
V878= CMPcar((V877)); |
4724 |
base[5]= (V863); |
goto T1588; |
4725 |
|
T1588:; |
4726 |
|
if(!(((V877))==Cnil)){ |
4727 |
|
goto T1589;} |
4728 |
|
goto T1584; |
4729 |
|
goto T1589; |
4730 |
|
T1589:; |
4731 |
|
base[5]= (V878); |
4732 |
base[6]= VV[131]; |
base[6]= VV[131]; |
4733 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4734 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
4735 |
vs_top=sup; |
vs_top=sup; |
4736 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4737 |
goto T1598;} |
goto T1596;} |
4738 |
(void)(( |
(void)(( |
4739 |
V864 = STREF(object,(V863),0), |
V879 = STREF(object,(V878),0), |
4740 |
(type_of(V864) == t_sfun ?(*((V864)->sfn.sfn_self)): |
(type_of(V879) == t_sfun ?(*((V879)->sfn.sfn_self)): |
4741 |
(fcall.argd=5,type_of(V864)==t_vfun) ? |
(fcall.argd=5,type_of(V879)==t_vfun) ? |
4742 |
(*((V864)->sfn.sfn_self)): |
(*((V879)->sfn.sfn_self)): |
4743 |
(fcall.fun=(V864),fcalln))(STREF(object,(V863),4),STREF(object,(V863),8),(V859),Ct,(V860)))); |
(fcall.fun=(V879),fcalln))(STREF(object,(V878),4),STREF(object,(V878),8),(V874),Ct,(V875)))); |
4744 |
goto T1595; |
goto T1593; |
4745 |
goto T1598; |
goto T1596; |
4746 |
T1598:; |
T1596:; |
4747 |
base[5]= V863; |
base[5]= V878; |
4748 |
base[6]= VV[132]; |
base[6]= VV[132]; |
4749 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4750 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
4751 |
vs_top=sup; |
vs_top=sup; |
4752 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4753 |
goto T1603;} |
goto T1601;} |
4754 |
{object V866; |
{object V881; |
4755 |
object V867; |
object V882; |
4756 |
object V868; |
object V883; |
4757 |
V866= STREF(object,(V863),0); |
V881= STREF(object,(V878),0); |
4758 |
V867= listA(3,(V859),Ct,(V860)); |
V882= listA(3,(V874),Ct,(V875)); |
4759 |
V868= STREF(object,(V863),4); |
V883= STREF(object,(V878),4); |
4760 |
if(((V868))==Cnil){ |
if(((V883))==Cnil){ |
4761 |
goto T1611;} |
goto T1609;} |
4762 |
if((CMPcdr((V868)))!=Cnil){ |
if((CMPcdr((V883)))!=Cnil){ |
4763 |
goto T1611;} |
goto T1609;} |
4764 |
(void)(( |
(void)(( |
4765 |
(type_of((V866)) == t_sfun ?(*(((V866))->sfn.sfn_self)): |
(type_of((V881)) == t_sfun ?(*(((V881))->sfn.sfn_self)): |
4766 |
(fcall.argd=2,type_of((V866))==t_vfun) ? |
(fcall.argd=2,type_of((V881))==t_vfun) ? |
4767 |
(*(((V866))->sfn.sfn_self)): |
(*(((V881))->sfn.sfn_self)): |
4768 |
(fcall.fun=((V866)),fcalln))((V867),CMPcar((V868))))); |
(fcall.fun=((V881)),fcalln))((V882),CMPcar((V883))))); |
4769 |
goto T1595; |
goto T1593; |
4770 |
goto T1611; |
goto T1609; |
4771 |
T1611:; |
T1609:; |
4772 |
base[5]= (V866); |
base[5]= (V881); |
4773 |
base[6]= (V867); |
base[6]= (V882); |
4774 |
{object V869; |
{object V884; |
4775 |
V869= (V868); |
V884= (V883); |
4776 |
vs_top=base+7; |
vs_top=base+7; |
4777 |
while(V869!=Cnil) |
while(V884!=Cnil) |
4778 |
{vs_push((V869)->c.c_car);V869=(V869)->c.c_cdr;} |
{vs_push((V884)->c.c_car);V884=(V884)->c.c_cdr;} |
4779 |
vs_base=base+6;} |
vs_base=base+6;} |
4780 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4781 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4782 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4783 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4784 |
vs_top=sup; |
vs_top=sup; |
4785 |
goto T1595;} |
goto T1593;} |
4786 |
goto T1603; |
goto T1601; |
4787 |
T1603:; |
T1601:; |
4788 |
base[5]= V863; |
base[5]= V878; |
4789 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4790 |
Lfunctionp(); |
Lfunctionp(); |
4791 |
vs_top=sup; |
vs_top=sup; |
4792 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4793 |
goto T1619;} |
goto T1617;} |
4794 |
base[5]= (V863); |
base[5]= (V878); |
4795 |
base[6]= (V859); |
base[6]= (V874); |
4796 |
base[7]= Ct; |
base[7]= Ct; |
4797 |
{object V870; |
{object V885; |
4798 |
V870= (V860); |
V885= (V875); |
4799 |
vs_top=base+8; |
vs_top=base+8; |
4800 |
while(V870!=Cnil) |
while(V885!=Cnil) |
4801 |
{vs_push((V870)->c.c_car);V870=(V870)->c.c_cdr;} |
{vs_push((V885)->c.c_car);V885=(V885)->c.c_cdr;} |
4802 |
vs_base=base+6;} |
vs_base=base+6;} |
4803 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4804 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4805 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4806 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4807 |
vs_top=sup; |
vs_top=sup; |
4808 |
goto T1595; |
goto T1593; |
4809 |
goto T1619; |
goto T1617; |
4810 |
T1619:; |
T1617:; |
4811 |
base[6]= VV[133]; |
base[6]= VV[133]; |
4812 |
base[7]= V863; |
base[7]= V878; |
4813 |
base[8]= VV[136]; |
base[8]= VV[136]; |
4814 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
4815 |
(void) (*Lnk312)(); |
(void) (*Lnk309)(); |
4816 |
vs_top=sup; |
vs_top=sup; |
4817 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
4818 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4819 |
Lerror(); |
Lerror(); |
4820 |
vs_top=sup; |
vs_top=sup; |
4821 |
goto T1595; |
goto T1593; |
4822 |
T1595:; |
T1593:; |
4823 |
V862= CMPcdr((V862)); |
V877= CMPcdr((V877)); |
4824 |
V863= CMPcar((V862)); |
V878= CMPcar((V877)); |
4825 |
goto T1590;} |
goto T1588;} |
4826 |
goto T1586; |
goto T1584; |
4827 |
T1586:; |
T1584:; |
4828 |
{object V871; |
{object V886; |
4829 |
register object V872; |
register object V887; |
4830 |
V871= (base0[2]->c.c_car); |
V886= (base0[2]->c.c_car); |
4831 |
V872= CMPcar((V871)); |
V887= CMPcar((V886)); |
4832 |
goto T1639; |
goto T1637; |
4833 |
T1639:; |
T1637:; |
4834 |
if(!(((V871))==Cnil)){ |
if(!(((V886))==Cnil)){ |
4835 |
goto T1640;} |
goto T1638;} |
4836 |
goto T1635; |
goto T1633; |
4837 |
goto T1640; |
goto T1638; |
4838 |
T1640:; |
T1638:; |
4839 |
base[5]= (V872); |
base[5]= (V887); |
4840 |
base[6]= VV[131]; |
base[6]= VV[131]; |
4841 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4842 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
4843 |
vs_top=sup; |
vs_top=sup; |
4844 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4845 |
goto T1647;} |
goto T1645;} |
4846 |
(void)(( |
(void)(( |
4847 |
V873 = STREF(object,(V872),0), |
V888 = STREF(object,(V887),0), |
4848 |
(type_of(V873) == t_sfun ?(*((V873)->sfn.sfn_self)): |
(type_of(V888) == t_sfun ?(*((V888)->sfn.sfn_self)): |
4849 |
(fcall.argd=4,type_of(V873)==t_vfun) ? |
(fcall.argd=4,type_of(V888)==t_vfun) ? |
4850 |
(*((V873)->sfn.sfn_self)): |
(*((V888)->sfn.sfn_self)): |
4851 |
(fcall.fun=(V873),fcalln))(STREF(object,(V872),4),STREF(object,(V872),8),(V859),(V860)))); |
(fcall.fun=(V888),fcalln))(STREF(object,(V887),4),STREF(object,(V887),8),(V874),(V875)))); |
4852 |
goto T1644; |
goto T1642; |
4853 |
goto T1647; |
goto T1645; |
4854 |
T1647:; |
T1645:; |
4855 |
base[5]= V872; |
base[5]= V887; |
4856 |
base[6]= VV[132]; |
base[6]= VV[132]; |
4857 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4858 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
4859 |
vs_top=sup; |
vs_top=sup; |
4860 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4861 |
goto T1652;} |
goto T1650;} |
4862 |
{object V875; |
{object V890; |
4863 |
object V876; |
object V891; |
4864 |
object V877; |
object V892; |
4865 |
V875= STREF(object,(V872),0); |
V890= STREF(object,(V887),0); |
4866 |
V876= make_cons((V859),(V860)); |
V891= make_cons((V874),(V875)); |
4867 |
V877= STREF(object,(V872),4); |
V892= STREF(object,(V887),4); |
4868 |
if(((V877))==Cnil){ |
if(((V892))==Cnil){ |
4869 |
goto T1660;} |
goto T1658;} |
4870 |
if((CMPcdr((V877)))!=Cnil){ |
if((CMPcdr((V892)))!=Cnil){ |
4871 |
goto T1660;} |
goto T1658;} |
4872 |
(void)(( |
(void)(( |
4873 |
(type_of((V875)) == t_sfun ?(*(((V875))->sfn.sfn_self)): |
(type_of((V890)) == t_sfun ?(*(((V890))->sfn.sfn_self)): |
4874 |
(fcall.argd=2,type_of((V875))==t_vfun) ? |
(fcall.argd=2,type_of((V890))==t_vfun) ? |
4875 |
(*(((V875))->sfn.sfn_self)): |
(*(((V890))->sfn.sfn_self)): |
4876 |
(fcall.fun=((V875)),fcalln))((V876),CMPcar((V877))))); |
(fcall.fun=((V890)),fcalln))((V891),CMPcar((V892))))); |
4877 |
goto T1644; |
goto T1642; |
4878 |
goto T1660; |
goto T1658; |
4879 |
T1660:; |
T1658:; |
4880 |
base[5]= (V875); |
base[5]= (V890); |
4881 |
base[6]= (V876); |
base[6]= (V891); |
4882 |
{object V878; |
{object V893; |
4883 |
V878= (V877); |
V893= (V892); |
4884 |
vs_top=base+7; |
vs_top=base+7; |
4885 |
while(V878!=Cnil) |
while(V893!=Cnil) |
4886 |
{vs_push((V878)->c.c_car);V878=(V878)->c.c_cdr;} |
{vs_push((V893)->c.c_car);V893=(V893)->c.c_cdr;} |
4887 |
vs_base=base+6;} |
vs_base=base+6;} |
4888 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4889 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4890 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4891 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4892 |
vs_top=sup; |
vs_top=sup; |
4893 |
goto T1644;} |
goto T1642;} |
4894 |
goto T1652; |
goto T1650; |
4895 |
T1652:; |
T1650:; |
4896 |
base[5]= V872; |
base[5]= V887; |
4897 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4898 |
Lfunctionp(); |
Lfunctionp(); |
4899 |
vs_top=sup; |
vs_top=sup; |
4900 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4901 |
goto T1668;} |
goto T1666;} |
4902 |
base[5]= (V872); |
base[5]= (V887); |
4903 |
base[6]= (V859); |
base[6]= (V874); |
4904 |
{object V879; |
{object V894; |
4905 |
V879= (V860); |
V894= (V875); |
4906 |
vs_top=base+7; |
vs_top=base+7; |
4907 |
while(V879!=Cnil) |
while(V894!=Cnil) |
4908 |
{vs_push((V879)->c.c_car);V879=(V879)->c.c_cdr;} |
{vs_push((V894)->c.c_car);V894=(V894)->c.c_cdr;} |
4909 |
vs_base=base+6;} |
vs_base=base+6;} |
4910 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4911 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4912 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4913 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4914 |
vs_top=sup; |
vs_top=sup; |
4915 |
goto T1644; |
goto T1642; |
4916 |
goto T1668; |
goto T1666; |
4917 |
T1668:; |
T1666:; |
4918 |
base[6]= VV[133]; |
base[6]= VV[133]; |
4919 |
base[7]= V872; |
base[7]= V887; |
4920 |
base[8]= VV[137]; |
base[8]= VV[137]; |
4921 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
4922 |
(void) (*Lnk312)(); |
(void) (*Lnk309)(); |
4923 |
vs_top=sup; |
vs_top=sup; |
4924 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
4925 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4926 |
Lerror(); |
Lerror(); |
4927 |
vs_top=sup; |
vs_top=sup; |
4928 |
goto T1644; |
goto T1642; |
4929 |
T1644:; |
T1642:; |
4930 |
V871= CMPcdr((V871)); |
V886= CMPcdr((V886)); |
4931 |
V872= CMPcar((V871)); |
V887= CMPcar((V886)); |
4932 |
goto T1639;} |
goto T1637;} |
4933 |
goto T1635; |
goto T1633; |
4934 |
T1635:; |
T1633:; |
4935 |
base[4]= (V859); |
base[4]= (V874); |
4936 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4937 |
return;}} |
return;}} |
4938 |
} |
} |
4944 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
4945 |
register object *sup=base+VM64; VC64 |
register object *sup=base+VM64; VC64 |
4946 |
vs_check; |
vs_check; |
4947 |
{object V880; |
{object V895; |
4948 |
register object V881; |
register object V896; |
4949 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4950 |
V880=(base[0]); |
V895=(base[0]); |
4951 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
4952 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
4953 |
{object *p=vs_top; |
{object *p=vs_top; |
4954 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
4955 |
V881=(base[1]); |
V896=(base[1]); |
4956 |
vs_top=sup; |
vs_top=sup; |
4957 |
{object V882; |
{object V897; |
4958 |
if(((base0[6]->c.c_car))==Cnil){ |
if(((base0[6]->c.c_car))==Cnil){ |
4959 |
goto T1685;} |
goto T1683;} |
4960 |
V882= (VFUN_NARGS=2,(*(LnkLI310))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
V897= (VFUN_NARGS=2,(*(LnkLI307))((base0[7]->c.c_car),(base0[6]->c.c_car))); |
4961 |
goto T1683; |
goto T1681; |
|
goto T1685; |
|
|
T1685:; |
|
|
V882= (V880); |
|
4962 |
goto T1683; |
goto T1683; |
4963 |
T1683:; |
T1683:; |
4964 |
if(!(((V882))==((V880)))){ |
V897= (V895); |
4965 |
goto T1687;} |
goto T1681; |
4966 |
|
T1681:; |
4967 |
|
if(!(((V897))==((V895)))){ |
4968 |
|
goto T1685;} |
4969 |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((base0[5]->c.c_car))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4970 |
goto T1688;} |
goto T1686;} |
4971 |
goto T1687; |
goto T1685; |
4972 |
T1687:; |
T1685:; |
4973 |
base[2]= (V882); |
base[2]= (V897); |
4974 |
base[3]= (V881); |
base[3]= (V896); |
4975 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4976 |
(void) (*Lnk124)(); |
(void) (*Lnk124)(); |
4977 |
return; |
return; |
4978 |
goto T1688; |
goto T1686; |
4979 |
T1688:; |
T1686:; |
4980 |
{register object V883; |
{register object V898; |
4981 |
{object V884; |
{object V899; |
4982 |
V884= (*(LnkLI313))(); |
V899= (*(LnkLI310))(); |
4983 |
V885 = (V884); |
V900 = (V899); |
4984 |
V886 = (base0[5]->c.c_car); |
V901 = (base0[5]->c.c_car); |
4985 |
V887= Ct; |
V902= Ct; |
4986 |
STSET(object,V885,0, V886); |
STSET(object,V900,0, V901); |
4987 |
(void)(V886); |
(void)(V901); |
4988 |
V888 = (V884); |
V903 = (V899); |
4989 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
4990 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4991 |
Lcopy_seq(); |
Lcopy_seq(); |
4992 |
vs_top=sup; |
vs_top=sup; |
4993 |
V889= vs_base[0]; |
V904= vs_base[0]; |
4994 |
V890= Ct; |
V905= Ct; |
4995 |
STSET(object,V888,4, V889); |
STSET(object,V903,4, V904); |
4996 |
(void)(V889); |
(void)(V904); |
4997 |
V883= (V884);} |
V898= (V899);} |
4998 |
{object V891; |
{object V906; |
4999 |
V891= (base0[1]->c.c_car); |
V906= (base0[1]->c.c_car); |
5000 |
if(!(type_of((V891))==t_cons)){ |
if(!(type_of((V906))==t_cons)){ |
5001 |
goto T1702;} |
goto T1700;} |
5002 |
if(!((CMPcar((V891)))==(VV[130]))){ |
if(!((CMPcar((V906)))==(VV[130]))){ |
5003 |
goto T1702;} |
goto T1700;} |
5004 |
(void)((*(LnkLI111))(CMPcadr((V891)),CMPcaddr((V891)),(V883),(V881))); |
(void)((*(LnkLI111))(CMPcadr((V906)),CMPcaddr((V906)),(V898),(V896))); |
5005 |
goto T1700; |
goto T1698; |
|
goto T1702; |
|
|
T1702:; |
|
|
(void)(( |
|
|
(type_of((V891)) == t_sfun ?(*(((V891))->sfn.sfn_self)): |
|
|
(fcall.argd=2,type_of((V891))==t_vfun) ? |
|
|
(*(((V891))->sfn.sfn_self)): |
|
|
(fcall.fun=((V891)),fcalln))((V883),(V881))));} |
|
5006 |
goto T1700; |
goto T1700; |
5007 |
T1700:; |
T1700:; |
5008 |
{object V892; |
(void)(( |
5009 |
register object V893; |
(type_of((V906)) == t_sfun ?(*(((V906))->sfn.sfn_self)): |
5010 |
V892= (base0[3]->c.c_car); |
(fcall.argd=2,type_of((V906))==t_vfun) ? |
5011 |
V893= CMPcar((V892)); |
(*(((V906))->sfn.sfn_self)): |
5012 |
goto T1710; |
(fcall.fun=((V906)),fcalln))((V898),(V896))));} |
5013 |
T1710:; |
goto T1698; |
5014 |
if(!(((V892))==Cnil)){ |
T1698:; |
5015 |
goto T1711;} |
{object V907; |
5016 |
goto T1706; |
register object V908; |
5017 |
goto T1711; |
V907= (base0[3]->c.c_car); |
5018 |
T1711:; |
V908= CMPcar((V907)); |
5019 |
base[3]= (V893); |
goto T1708; |
5020 |
|
T1708:; |
5021 |
|
if(!(((V907))==Cnil)){ |
5022 |
|
goto T1709;} |
5023 |
|
goto T1704; |
5024 |
|
goto T1709; |
5025 |
|
T1709:; |
5026 |
|
base[3]= (V908); |
5027 |
base[4]= VV[131]; |
base[4]= VV[131]; |
5028 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5029 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
5030 |
vs_top=sup; |
vs_top=sup; |
5031 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5032 |
goto T1718;} |
goto T1716;} |
5033 |
(void)(( |
(void)(( |
5034 |
V894 = STREF(object,(V893),0), |
V909 = STREF(object,(V908),0), |
5035 |
(type_of(V894) == t_sfun ?(*((V894)->sfn.sfn_self)): |
(type_of(V909) == t_sfun ?(*((V909)->sfn.sfn_self)): |
5036 |
(fcall.argd=5,type_of(V894)==t_vfun) ? |
(fcall.argd=5,type_of(V909)==t_vfun) ? |
5037 |
(*((V894)->sfn.sfn_self)): |
(*((V909)->sfn.sfn_self)): |
5038 |
(fcall.fun=(V894),fcalln))(STREF(object,(V893),4),STREF(object,(V893),8),(V883),Ct,(V881)))); |
(fcall.fun=(V909),fcalln))(STREF(object,(V908),4),STREF(object,(V908),8),(V898),Ct,(V896)))); |
5039 |
goto T1715; |
goto T1713; |
5040 |
goto T1718; |
goto T1716; |
5041 |
T1718:; |
T1716:; |
5042 |
base[3]= V893; |
base[3]= V908; |
5043 |
base[4]= VV[132]; |
base[4]= VV[132]; |
5044 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5045 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
5046 |
vs_top=sup; |
vs_top=sup; |
5047 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5048 |
goto T1723;} |
goto T1721;} |
5049 |
{object V896; |
{object V911; |
5050 |
object V897; |
object V912; |
5051 |
object V898; |
object V913; |
5052 |
V896= STREF(object,(V893),0); |
V911= STREF(object,(V908),0); |
5053 |
V897= listA(3,(V883),Ct,(V881)); |
V912= listA(3,(V898),Ct,(V896)); |
5054 |
V898= STREF(object,(V893),4); |
V913= STREF(object,(V908),4); |
5055 |
if(((V898))==Cnil){ |
if(((V913))==Cnil){ |
5056 |
goto T1731;} |
goto T1729;} |
5057 |
if((CMPcdr((V898)))!=Cnil){ |
if((CMPcdr((V913)))!=Cnil){ |
5058 |
goto T1731;} |
goto T1729;} |
5059 |
(void)(( |
(void)(( |
5060 |
(type_of((V896)) == t_sfun ?(*(((V896))->sfn.sfn_self)): |
(type_of((V911)) == t_sfun ?(*(((V911))->sfn.sfn_self)): |
5061 |
(fcall.argd=2,type_of((V896))==t_vfun) ? |
(fcall.argd=2,type_of((V911))==t_vfun) ? |
5062 |
(*(((V896))->sfn.sfn_self)): |
(*(((V911))->sfn.sfn_self)): |
5063 |
(fcall.fun=((V896)),fcalln))((V897),CMPcar((V898))))); |
(fcall.fun=((V911)),fcalln))((V912),CMPcar((V913))))); |
5064 |
goto T1715; |
goto T1713; |
5065 |
goto T1731; |
goto T1729; |
5066 |
T1731:; |
T1729:; |
5067 |
base[3]= (V896); |
base[3]= (V911); |
5068 |
base[4]= (V897); |
base[4]= (V912); |
5069 |
{object V899; |
{object V914; |
5070 |
V899= (V898); |
V914= (V913); |
5071 |
vs_top=base+5; |
vs_top=base+5; |
5072 |
while(V899!=Cnil) |
while(V914!=Cnil) |
5073 |
{vs_push((V899)->c.c_car);V899=(V899)->c.c_cdr;} |
{vs_push((V914)->c.c_car);V914=(V914)->c.c_cdr;} |
5074 |
vs_base=base+4;} |
vs_base=base+4;} |
5075 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5076 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5077 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5078 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5079 |
vs_top=sup; |
vs_top=sup; |
5080 |
goto T1715;} |
goto T1713;} |
5081 |
goto T1723; |
goto T1721; |
5082 |
T1723:; |
T1721:; |
5083 |
base[3]= V893; |
base[3]= V908; |
5084 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5085 |
Lfunctionp(); |
Lfunctionp(); |
5086 |
vs_top=sup; |
vs_top=sup; |
5087 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5088 |
goto T1739;} |
goto T1737;} |
5089 |
base[3]= (V893); |
base[3]= (V908); |
5090 |
base[4]= (V883); |
base[4]= (V898); |
5091 |
base[5]= Ct; |
base[5]= Ct; |
5092 |
{object V900; |
{object V915; |
5093 |
V900= (V881); |
V915= (V896); |
5094 |
vs_top=base+6; |
vs_top=base+6; |
5095 |
while(V900!=Cnil) |
while(V915!=Cnil) |
5096 |
{vs_push((V900)->c.c_car);V900=(V900)->c.c_cdr;} |
{vs_push((V915)->c.c_car);V915=(V915)->c.c_cdr;} |
5097 |
vs_base=base+4;} |
vs_base=base+4;} |
5098 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5099 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5100 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5101 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5102 |
vs_top=sup; |
vs_top=sup; |
5103 |
goto T1715; |
goto T1713; |
5104 |
goto T1739; |
goto T1737; |
5105 |
T1739:; |
T1737:; |
5106 |
base[4]= VV[133]; |
base[4]= VV[133]; |
5107 |
base[5]= V893; |
base[5]= V908; |
5108 |
base[6]= VV[134]; |
base[6]= VV[134]; |
5109 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
5110 |
(void) (*Lnk312)(); |
(void) (*Lnk309)(); |
5111 |
vs_top=sup; |
vs_top=sup; |
5112 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
5113 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5114 |
Lerror(); |
Lerror(); |
5115 |
vs_top=sup; |
vs_top=sup; |
5116 |
goto T1715; |
goto T1713; |
5117 |
T1715:; |
T1713:; |
5118 |
V892= CMPcdr((V892)); |
V907= CMPcdr((V907)); |
5119 |
V893= CMPcar((V892)); |
V908= CMPcar((V907)); |
5120 |
goto T1710;} |
goto T1708;} |
5121 |
goto T1706; |
goto T1704; |
5122 |
T1706:; |
T1704:; |
5123 |
{object V901; |
{object V916; |
5124 |
register object V902; |
register object V917; |
5125 |
V901= (base0[2]->c.c_car); |
V916= (base0[2]->c.c_car); |
5126 |
V902= CMPcar((V901)); |
V917= CMPcar((V916)); |
5127 |
goto T1759; |
goto T1757; |
5128 |
T1759:; |
T1757:; |
5129 |
if(!(((V901))==Cnil)){ |
if(!(((V916))==Cnil)){ |
5130 |
goto T1760;} |
goto T1758;} |
5131 |
goto T1755; |
goto T1753; |
5132 |
goto T1760; |
goto T1758; |
5133 |
T1760:; |
T1758:; |
5134 |
base[3]= (V902); |
base[3]= (V917); |
5135 |
base[4]= VV[131]; |
base[4]= VV[131]; |
5136 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5137 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
5138 |
vs_top=sup; |
vs_top=sup; |
5139 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5140 |
goto T1767;} |
goto T1765;} |
5141 |
(void)(( |
(void)(( |
5142 |
V903 = STREF(object,(V902),0), |
V918 = STREF(object,(V917),0), |
5143 |
(type_of(V903) == t_sfun ?(*((V903)->sfn.sfn_self)): |
(type_of(V918) == t_sfun ?(*((V918)->sfn.sfn_self)): |
5144 |
(fcall.argd=4,type_of(V903)==t_vfun) ? |
(fcall.argd=4,type_of(V918)==t_vfun) ? |
5145 |
(*((V903)->sfn.sfn_self)): |
(*((V918)->sfn.sfn_self)): |
5146 |
(fcall.fun=(V903),fcalln))(STREF(object,(V902),4),STREF(object,(V902),8),(V883),(V881)))); |
(fcall.fun=(V918),fcalln))(STREF(object,(V917),4),STREF(object,(V917),8),(V898),(V896)))); |
5147 |
goto T1764; |
goto T1762; |
5148 |
goto T1767; |
goto T1765; |
5149 |
T1767:; |
T1765:; |
5150 |
base[3]= V902; |
base[3]= V917; |
5151 |
base[4]= VV[132]; |
base[4]= VV[132]; |
5152 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5153 |
(void) (*Lnk311)(); |
(void) (*Lnk308)(); |
5154 |
vs_top=sup; |
vs_top=sup; |
5155 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5156 |
goto T1772;} |
goto T1770;} |
5157 |
{object V905; |
{object V920; |
5158 |
object V906; |
object V921; |
5159 |
object V907; |
object V922; |
5160 |
V905= STREF(object,(V902),0); |
V920= STREF(object,(V917),0); |
5161 |
V906= make_cons((V883),(V881)); |
V921= make_cons((V898),(V896)); |
5162 |
V907= STREF(object,(V902),4); |
V922= STREF(object,(V917),4); |
5163 |
if(((V907))==Cnil){ |
if(((V922))==Cnil){ |
5164 |
goto T1780;} |
goto T1778;} |
5165 |
if((CMPcdr((V907)))!=Cnil){ |
if((CMPcdr((V922)))!=Cnil){ |
5166 |
goto T1780;} |
goto T1778;} |
5167 |
(void)(( |
(void)(( |
5168 |
(type_of((V905)) == t_sfun ?(*(((V905))->sfn.sfn_self)): |
(type_of((V920)) == t_sfun ?(*(((V920))->sfn.sfn_self)): |
5169 |
(fcall.argd=2,type_of((V905))==t_vfun) ? |
(fcall.argd=2,type_of((V920))==t_vfun) ? |
5170 |
(*(((V905))->sfn.sfn_self)): |
(*(((V920))->sfn.sfn_self)): |
5171 |
(fcall.fun=((V905)),fcalln))((V906),CMPcar((V907))))); |
(fcall.fun=((V920)),fcalln))((V921),CMPcar((V922))))); |
5172 |
goto T1764; |
goto T1762; |
5173 |
goto T1780; |
goto T1778; |
5174 |
T1780:; |
T1778:; |
5175 |
base[3]= (V905); |
base[3]= (V920); |
5176 |
base[4]= (V906); |
base[4]= (V921); |
5177 |
{object V908; |
{object V923; |
5178 |
V908= (V907); |
V923= (V922); |
5179 |
vs_top=base+5; |
vs_top=base+5; |
5180 |
while(V908!=Cnil) |
while(V923!=Cnil) |
5181 |
{vs_push((V908)->c.c_car);V908=(V908)->c.c_cdr;} |
{vs_push((V923)->c.c_car);V923=(V923)->c.c_cdr;} |
5182 |
vs_base=base+4;} |
vs_base=base+4;} |
5183 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5184 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5185 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5186 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5187 |
vs_top=sup; |
vs_top=sup; |
5188 |
goto T1764;} |
goto T1762;} |
5189 |
goto T1772; |
goto T1770; |
5190 |
T1772:; |
T1770:; |
5191 |
base[3]= V902; |
base[3]= V917; |
5192 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5193 |
Lfunctionp(); |
Lfunctionp(); |
5194 |
vs_top=sup; |
vs_top=sup; |
5195 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5196 |
goto T1788;} |
goto T1786;} |
5197 |
base[3]= (V902); |
base[3]= (V917); |
5198 |
base[4]= (V883); |
base[4]= (V898); |
5199 |
{object V909; |
{object V924; |
5200 |
V909= (V881); |
V924= (V896); |
5201 |
vs_top=base+5; |
vs_top=base+5; |
5202 |
while(V909!=Cnil) |
while(V924!=Cnil) |
5203 |
{vs_push((V909)->c.c_car);V909=(V909)->c.c_cdr;} |
{vs_push((V924)->c.c_car);V924=(V924)->c.c_cdr;} |
5204 |
vs_base=base+4;} |
vs_base=base+4;} |
5205 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5206 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5207 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5208 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5209 |
vs_top=sup; |
vs_top=sup; |
5210 |
goto T1764; |
goto T1762; |
5211 |
goto T1788; |
goto T1786; |
5212 |
T1788:; |
T1786:; |
5213 |
base[4]= VV[133]; |
base[4]= VV[133]; |
5214 |
base[5]= V902; |
base[5]= V917; |
5215 |
base[6]= VV[135]; |
base[6]= VV[135]; |
5216 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
5217 |
(void) (*Lnk312)(); |
(void) (*Lnk309)(); |
5218 |
vs_top=sup; |
vs_top=sup; |
5219 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
5220 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5221 |
Lerror(); |
Lerror(); |
5222 |
vs_top=sup; |
vs_top=sup; |
5223 |
goto T1764; |
goto T1762; |
5224 |
T1764:; |
T1762:; |
5225 |
V901= CMPcdr((V901)); |
V916= CMPcdr((V916)); |
5226 |
V902= CMPcar((V901)); |
V917= CMPcar((V916)); |
5227 |
goto T1759;} |
goto T1757;} |
5228 |
goto T1755; |
goto T1753; |
5229 |
T1755:; |
T1753:; |
5230 |
base[2]= (V883); |
base[2]= (V898); |
5231 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5232 |
return;}} |
return;}} |
5233 |
} |
} |
5239 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5240 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM65; VC65 |
5241 |
vs_check; |
vs_check; |
5242 |
{object V910; |
{object V925; |
5243 |
check_arg(1); |
check_arg(1); |
5244 |
V910=(base[0]); |
V925=(base[0]); |
5245 |
vs_top=sup; |
vs_top=sup; |
5246 |
{register object V911; |
{register object V926; |
5247 |
base[1]= (V910); |
base[1]= (V925); |
5248 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5249 |
(void) (*Lnk269)(Lclptr269); |
(void) (*Lnk267)(Lclptr267); |
5250 |
vs_top=sup; |
vs_top=sup; |
5251 |
V911= vs_base[0]; |
V926= vs_base[0]; |
5252 |
if(((V911))!=Cnil){ |
if(((V926))!=Cnil){ |
5253 |
goto T1806;} |
goto T1804;} |
5254 |
base[1]= (V910); |
base[1]= (V925); |
5255 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5256 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk259)(Lclptr259); |
5257 |
vs_top=sup; |
vs_top=sup; |
5258 |
V912= vs_base[0]; |
V927= vs_base[0]; |
5259 |
base[1]= ((CMPcar(V912))==((VV[1]->s.s_dbind))?Ct:Cnil); |
base[1]= ((CMPcar(V927))==((VV[1]->s.s_dbind))?Ct:Cnil); |
5260 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5261 |
return; |
return; |
5262 |
goto T1806; |
goto T1804; |
5263 |
T1806:; |
T1804:; |
5264 |
if((CMPcdr((V911)))==Cnil){ |
if((CMPcdr((V926)))==Cnil){ |
5265 |
goto T1810;} |
goto T1808;} |
5266 |
base[1]= Cnil; |
base[1]= Cnil; |
5267 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5268 |
return; |
return; |
5269 |
goto T1810; |
goto T1808; |
5270 |
T1810:; |
T1808:; |
5271 |
if(!((CMPcar((V911)))==(VV[106]))){ |
if(!((CMPcar((V926)))==(VV[106]))){ |
5272 |
goto T1812;} |
goto T1810;} |
5273 |
base[1]= Ct; |
base[1]= Ct; |
5274 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5275 |
return; |
return; |
5276 |
goto T1812; |
goto T1810; |
5277 |
T1812:; |
T1810:; |
5278 |
base[1]= ((CMPcar((V911)))==(VV[107])?Ct:Cnil); |
base[1]= ((CMPcar((V926)))==(VV[107])?Ct:Cnil); |
5279 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5280 |
return;} |
return;} |
5281 |
} |
} |
5287 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5288 |
register object *sup=base+VM66; VC66 |
register object *sup=base+VM66; VC66 |
5289 |
vs_check; |
vs_check; |
5290 |
{object V913; |
{object V928; |
5291 |
object V914; |
object V929; |
5292 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
5293 |
V913=(base[0]); |
V928=(base[0]); |
5294 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
5295 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
5296 |
{object *p=vs_top; |
{object *p=vs_top; |
5297 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
5298 |
V914=(base[1]); |
V929=(base[1]); |
5299 |
vs_top=sup; |
vs_top=sup; |
5300 |
base[2]=VV[314]->s.s_gfdef; |
base[2]=VV[311]->s.s_gfdef; |
5301 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
5302 |
base[4]= (V913); |
base[4]= (V928); |
5303 |
{object V915; |
{object V930; |
5304 |
V915= (V914); |
V930= (V929); |
5305 |
vs_top=base+5; |
vs_top=base+5; |
5306 |
while(V915!=Cnil) |
while(V930!=Cnil) |
5307 |
{vs_push((V915)->c.c_car);V915=(V915)->c.c_cdr;} |
{vs_push((V930)->c.c_car);V930=(V930)->c.c_cdr;} |
5308 |
vs_base=base+3;} |
vs_base=base+3;} |
5309 |
(void) (*Lnk314)(Lclptr314); |
(void) (*Lnk311)(Lclptr311); |
5310 |
return; |
return; |
5311 |
} |
} |
5312 |
} |
} |
5317 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5318 |
register object *sup=base+VM67; VC67 |
register object *sup=base+VM67; VC67 |
5319 |
vs_check; |
vs_check; |
5320 |
{object V916; |
{object V931; |
5321 |
check_arg(1); |
check_arg(1); |
5322 |
V916=(base[0]); |
V931=(base[0]); |
5323 |
vs_top=sup; |
vs_top=sup; |
5324 |
goto TTL; |
goto TTL; |
5325 |
TTL:; |
TTL:; |
5326 |
if(!((((base0[3])==Cnil?Ct:Cnil))==Cnil)){ |
if(!((((base0[3])==Cnil?Ct:Cnil))==Cnil)){ |
5327 |
goto T1817;} |
goto T1815;} |
5328 |
base[1]= Ct; |
base[1]= Ct; |
5329 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5330 |
return; |
return; |
5331 |
goto T1817; |
goto T1815; |
5332 |
T1817:; |
T1815:; |
5333 |
{register object V917; |
{register object V932; |
5334 |
object V918; |
object V933; |
5335 |
base[1]= base0[1]; |
base[1]= base0[1]; |
5336 |
base[2]= (V916); |
base[2]= (V931); |
5337 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5338 |
(void) (*Lnk315)(); |
(void) (*Lnk312)(); |
5339 |
if(vs_base>=vs_top){vs_top=sup;goto T1822;} |
if(vs_base>=vs_top){vs_top=sup;goto T1820;} |
5340 |
V917= vs_base[0]; |
V932= vs_base[0]; |
5341 |
vs_base++; |
vs_base++; |
5342 |
if(vs_base>=vs_top){vs_top=sup;goto T1823;} |
if(vs_base>=vs_top){vs_top=sup;goto T1821;} |
5343 |
V918= vs_base[0]; |
V933= vs_base[0]; |
5344 |
vs_top=sup; |
vs_top=sup; |
5345 |
goto T1824; |
goto T1822; |
5346 |
|
goto T1820; |
5347 |
|
T1820:; |
5348 |
|
V932= Cnil; |
5349 |
|
goto T1821; |
5350 |
|
T1821:; |
5351 |
|
V933= Cnil; |
5352 |
goto T1822; |
goto T1822; |
5353 |
T1822:; |
T1822:; |
5354 |
V917= Cnil; |
if(!(((((V933))==Cnil?Ct:Cnil))==Cnil)){ |
5355 |
goto T1823; |
goto T1823;} |
|
T1823:; |
|
|
V918= Cnil; |
|
|
goto T1824; |
|
|
T1824:; |
|
|
if(!(((((V918))==Cnil?Ct:Cnil))==Cnil)){ |
|
|
goto T1825;} |
|
5356 |
base[1]= Ct; |
base[1]= Ct; |
5357 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5358 |
return; |
return; |
5359 |
goto T1825; |
goto T1823; |
5360 |
T1825:; |
T1823:; |
5361 |
{register object V919; |
{register object V934; |
5362 |
register object V920; |
register object V935; |
5363 |
V919= base0[2]; |
V934= base0[2]; |
5364 |
V920= CMPcar((V919)); |
V935= CMPcar((V934)); |
5365 |
goto T1830; |
goto T1828; |
5366 |
T1830:; |
T1828:; |
5367 |
if(!(((V919))==Cnil)){ |
if(!(((V934))==Cnil)){ |
5368 |
goto T1831;} |
goto T1829;} |
5369 |
base[2]= Ct; |
base[2]= Ct; |
5370 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5371 |
return; |
return; |
5372 |
goto T1831; |
goto T1829; |
5373 |
T1831:; |
T1829:; |
5374 |
{register object x= (V920),V921= (V917); |
{register object x= (V935),V936= (V932); |
5375 |
while(V921!=Cnil) |
while(V936!=Cnil) |
5376 |
if(eql(x,V921->c.c_car)){ |
if(eql(x,V936->c.c_car)){ |
5377 |
goto T1835; |
goto T1833; |
5378 |
}else V921=V921->c.c_cdr;} |
}else V936=V936->c.c_cdr;} |
5379 |
base[2]= make_cons(VV[100],(V920)); |
base[2]= make_cons(VV[100],(V935)); |
5380 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5381 |
return; |
return; |
5382 |
goto T1835; |
goto T1833; |
5383 |
T1835:; |
T1833:; |
5384 |
V919= CMPcdr((V919)); |
V934= CMPcdr((V934)); |
5385 |
V920= CMPcar((V919)); |
V935= CMPcar((V934)); |
5386 |
goto T1830;}} |
goto T1828;}} |
5387 |
} |
} |
5388 |
} |
} |
5389 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
5393 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5394 |
register object *sup=base+VM68; VC68 |
register object *sup=base+VM68; VC68 |
5395 |
vs_check; |
vs_check; |
5396 |
{register object V922; |
{register object V937; |
5397 |
object V923; |
object V938; |
5398 |
object V924; |
object V939; |
5399 |
check_arg(3); |
check_arg(3); |
5400 |
V922=(base[0]); |
V937=(base[0]); |
5401 |
V923=(base[1]); |
V938=(base[1]); |
5402 |
V924=(base[2]); |
V939=(base[2]); |
5403 |
vs_top=sup;{object V925; |
vs_top=sup;{object V940; |
5404 |
if(((V923))==(VV[8])){ |
if(((V938))==(VV[8])){ |
5405 |
|
goto T1843;} |
5406 |
|
V940= Cnil; |
5407 |
|
goto T1842; |
5408 |
|
goto T1843; |
5409 |
|
T1843:; |
5410 |
|
if(type_of((V937))==t_cons){ |
5411 |
goto T1845;} |
goto T1845;} |
5412 |
V925= Cnil; |
V940= Cnil; |
5413 |
goto T1844; |
goto T1842; |
5414 |
goto T1845; |
goto T1845; |
5415 |
T1845:; |
T1845:; |
5416 |
if(type_of((V922))==t_cons){ |
if((CMPcar((V937)))==(VV[9])){ |
5417 |
goto T1847;} |
goto T1847;} |
5418 |
V925= Cnil; |
V940= Cnil; |
5419 |
goto T1844; |
goto T1842; |
5420 |
goto T1847; |
goto T1847; |
5421 |
T1847:; |
T1847:; |
5422 |
if((CMPcar((V922)))==(VV[9])){ |
V940= (*(LnkLI313))((V937)); |
5423 |
goto T1849;} |
goto T1842; |
5424 |
V925= Cnil; |
T1842:; |
5425 |
goto T1844; |
if(V940==Cnil)goto T1841; |
5426 |
goto T1849; |
base[3]= V940; |
|
T1849:; |
|
|
V925= (*(LnkLI316))((V922)); |
|
|
goto T1844; |
|
|
T1844:; |
|
|
if(V925==Cnil)goto T1843; |
|
|
base[3]= V925; |
|
5427 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5428 |
return; |
return; |
5429 |
goto T1843; |
goto T1841; |
5430 |
T1843:;} |
T1841:;} |
5431 |
base[3]= (V922); |
base[3]= (V937); |
5432 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5433 |
return; |
return; |
5434 |
} |
} |
5435 |
} |
} |
5436 |
static object LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)(void *)&LnkLI316,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */ |
static object LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)(void *)&LnkLI313,1,first,ap);va_end(ap);return V1;} /* EXPAND-MAKE-INSTANCE-FORM */ |
5437 |
static void LnkT315(){ call_or_link(VV[315],(void **)(void *)&Lnk315);} /* CHECK-INITARGS-VALUES */ |
static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* CHECK-INITARGS-VALUES */ |
5438 |
static void LnkT314(ptr) object *ptr;{ call_or_link_closure(VV[314],(void **)(void *)&Lnk314,(void **)(void *)&Lclptr314);} /* NO-APPLICABLE-METHOD */ |
static void LnkT311(ptr) object *ptr;{ call_or_link_closure(VV[311],(void **)(void *)&Lnk311,(void **)(void *)&Lclptr311);} /* NO-APPLICABLE-METHOD */ |
5439 |
static object LnkTLI313(){return call_proc0(VV[313],(void **)(void *)&LnkLI313);} /* %%ALLOCATE-INSTANCE--CLASS */ |
static object LnkTLI310(){return call_proc0(VV[310],(void **)(void *)&LnkLI310);} /* %%ALLOCATE-INSTANCE--CLASS */ |
5440 |
static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* TYPECASE-ERROR-STRING */ |
static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* TYPECASE-ERROR-STRING */ |
5441 |
static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* STRUCTURE-SUBTYPE-P */ |
5442 |
static void LnkT96(ptr) object *ptr;{ call_or_link_closure(VV[96],(void **)(void *)&Lnk96,(void **)(void *)&Lclptr96);} /* ALLOCATE-INSTANCE */ |
static void LnkT96(ptr) object *ptr;{ call_or_link_closure(VV[96],(void **)(void *)&Lnk96,(void **)(void *)&Lclptr96);} /* ALLOCATE-INSTANCE */ |
5443 |
static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */ |
static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */ |
5444 |
static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* MAKE-INSTANCE-FUNCTION-TRAP */ |
static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* MAKE-INSTANCE-FUNCTION-TRAP */ |
5445 |
static object LnkTLI310(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[310],(void **)(void *)&LnkLI310,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[307],(void **)(void *)&LnkLI307,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ |
5446 |
static object LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,2,first,ap);va_end(ap);return V1;} /* ADD-TO-CVECTOR */ |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,2,first,ap);va_end(ap);return V1;} /* ADD-TO-CVECTOR */ |
5447 |
static object LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[7],(void **)(void *)&LnkLI7,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTIONS */ |
static object LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[7],(void **)(void *)&LnkLI7,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTIONS */ |
5448 |
static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* COERCE */ |
static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* COERCE */ |
5449 |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,3,first,ap);va_end(ap);return V1;} /* FIRST-FORM-TO-LISP */ |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,3,first,ap);va_end(ap);return V1;} /* FIRST-FORM-TO-LISP */ |
5450 |
static void LnkT306(){ call_or_link(VV[306],(void **)(void *)&Lnk306);} /* VECTOR-PUSH-EXTEND */ |
static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* VECTOR-PUSH-EXTEND */ |
5451 |
static void LnkT195(ptr) object *ptr;{ call_or_link_closure(VV[195],(void **)(void *)&Lnk195,(void **)(void *)&Lclptr195);} /* SLOT-BOUNDP-USING-CLASS */ |
static void LnkT195(ptr) object *ptr;{ call_or_link_closure(VV[195],(void **)(void *)&Lnk195,(void **)(void *)&Lclptr195);} /* SLOT-BOUNDP-USING-CLASS */ |
5452 |
static void LnkT304(ptr) object *ptr;{ call_or_link_closure(VV[304],(void **)(void *)&Lnk304,(void **)(void *)&Lclptr304);} /* SETF PCL SLOT-VALUE-USING-CLASS */ |
static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
5453 |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)(void *)&LnkLI303,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
static object LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[300],(void **)(void *)&LnkLI300,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
5454 |
static object LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)(void *)&LnkLI302,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* CCLOSURE-ENV-NTHCDR */ |
5455 |
static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */ |
5456 |
static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */ |
static object LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)(void *)&LnkLI297,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
5457 |
static object LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[299],(void **)(void *)&LnkLI299,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* COMPILE-LAMBDA */ |
5458 |
static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* COMPILE-LAMBDA */ |
static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* UNION */ |
5459 |
static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* UNION */ |
static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* FORM-LIST-TO-LISP */ |
5460 |
static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* FORM-LIST-TO-LISP */ |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,1,first,ap);va_end(ap);return V1;} /* GET-PV-CELL-FOR-CLASS */ |
5461 |
static object LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[295],(void **)(void *)&LnkLI295,1,first,ap);va_end(ap);return V1;} /* GET-PV-CELL-FOR-CLASS */ |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */ |
5462 |
static object LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)(void *)&LnkLI294,2,first,ap);va_end(ap);return V1;} /* PV-TABLE-LOOKUP */ |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[291],(void **)(void *)&LnkLI291,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */ |
5463 |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[293],(void **)(void *)&LnkLI293,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */ |
static void LnkT290(ptr) object *ptr;{ call_or_link_closure(VV[290],(void **)(void *)&Lnk290,(void **)(void *)&Lclptr290);} /* SLOT-DEFINITION-LOCATION */ |
5464 |
static void LnkT292(ptr) object *ptr;{ call_or_link_closure(VV[292],(void **)(void *)&Lnk292,(void **)(void *)&Lclptr292);} /* SLOT-DEFINITION-LOCATION */ |
static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)(void *)&Lnk289,(void **)(void *)&Lclptr289);} /* SLOT-DEFINITION-INITFUNCTION */ |
5465 |
static void LnkT291(ptr) object *ptr;{ call_or_link_closure(VV[291],(void **)(void *)&Lnk291,(void **)(void *)&Lclptr291);} /* SLOT-DEFINITION-INITFUNCTION */ |
static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* SLOT-DEFINITION-INITFORM */ |
5466 |
static void LnkT290(ptr) object *ptr;{ call_or_link_closure(VV[290],(void **)(void *)&Lnk290,(void **)(void *)&Lclptr290);} /* SLOT-DEFINITION-INITFORM */ |
static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* STABLE-SORT */ |
5467 |
static void LnkT289(){ call_or_link(VV[289],(void **)(void *)&Lnk289);} /* STABLE-SORT */ |
static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* POSITION */ |
5468 |
static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* POSITION */ |
static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* SLOT-DEFINITION-NAME */ |
5469 |
static void LnkT286(ptr) object *ptr;{ call_or_link_closure(VV[286],(void **)(void *)&Lnk286,(void **)(void *)&Lclptr286);} /* SLOT-DEFINITION-NAME */ |
static void LnkT283(){ call_or_link(VV[283],(void **)(void *)&Lnk283);} /* MAKE-ARRAY */ |
5470 |
static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* MAKE-ARRAY */ |
static object LnkTLI282(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[282],(void **)(void *)&LnkLI282,2,first,ap);va_end(ap);return V1;} /* ADD-FORMS */ |
5471 |
static object LnkTLI284(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[284],(void **)(void *)&LnkLI284,2,first,ap);va_end(ap);return V1;} /* ADD-FORMS */ |
static void LnkT281(ptr) object *ptr;{ call_or_link_closure(VV[281],(void **)(void *)&Lnk281,(void **)(void *)&Lclptr281);} /* SLOT-DEFINITION-INITARGS */ |
5472 |
static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* SLOT-DEFINITION-INITARGS */ |
static void LnkT280(ptr) object *ptr;{ call_or_link_closure(VV[280],(void **)(void *)&Lnk280,(void **)(void *)&Lclptr280);} /* CLASS-SLOTS */ |
5473 |
static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* CLASS-SLOTS */ |
static void LnkT279(ptr) object *ptr;{ call_or_link_closure(VV[279],(void **)(void *)&Lnk279,(void **)(void *)&Lclptr279);} /* CLASS-DEFAULT-INITARGS */ |
5474 |
static void LnkT281(ptr) object *ptr;{ call_or_link_closure(VV[281],(void **)(void *)&Lnk281,(void **)(void *)&Lclptr281);} /* CLASS-DEFAULT-INITARGS */ |
static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* GET-SECONDARY-DISPATCH-FUNCTION */ |
5475 |
static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* GET-SECONDARY-DISPATCH-FUNCTION */ |
static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* GET-COMPLEX-INITIALIZATION-FUNCTIONS */ |
5476 |
static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* GET-COMPLEX-INITIALIZATION-FUNCTIONS */ |
static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* GET-SIMPLE-INITIALIZATION-FUNCTION */ |
5477 |
static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* GET-SIMPLE-INITIALIZATION-FUNCTION */ |
static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* MAKE-EFFECTIVE-METHOD-FUNCTION */ |
5478 |
static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* MAKE-EFFECTIVE-METHOD-FUNCTION */ |
static void LnkT274(){ call_or_link(VV[274],(void **)(void *)&Lnk274);} /* REMOVE */ |
5479 |
static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* REMOVE */ |
static void LnkT272(ptr) object *ptr;{ call_or_link_closure(VV[272],(void **)(void *)&Lnk272,(void **)(void *)&Lclptr272);} /* FUNCALLABLE-STANDARD-CLASS-P */ |
5480 |
static void LnkT274(ptr) object *ptr;{ call_or_link_closure(VV[274],(void **)(void *)&Lnk274,(void **)(void *)&Lclptr274);} /* FUNCALLABLE-STANDARD-CLASS-P */ |
static void LnkT270(ptr) object *ptr;{ call_or_link_closure(VV[270],(void **)(void *)&Lnk270,(void **)(void *)&Lclptr270);} /* STANDARD-CLASS-P */ |
5481 |
static void LnkT272(ptr) object *ptr;{ call_or_link_closure(VV[272],(void **)(void *)&Lnk272,(void **)(void *)&Lclptr272);} /* STANDARD-CLASS-P */ |
static void LnkT268(ptr) object *ptr;{ call_or_link_closure(VV[268],(void **)(void *)&Lnk268,(void **)(void *)&Lclptr268);} /* STRUCTURE-CLASS-P */ |
5482 |
static void LnkT270(ptr) object *ptr;{ call_or_link_closure(VV[270],(void **)(void *)&Lnk270,(void **)(void *)&Lclptr270);} /* STRUCTURE-CLASS-P */ |
static void LnkT267(ptr) object *ptr;{ call_or_link_closure(VV[267],(void **)(void *)&Lnk267,(void **)(void *)&Lclptr267);} /* METHOD-QUALIFIERS */ |
5483 |
static void LnkT269(ptr) object *ptr;{ call_or_link_closure(VV[269],(void **)(void *)&Lnk269,(void **)(void *)&Lclptr269);} /* METHOD-QUALIFIERS */ |
static object LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[266],(void **)(void *)&LnkLI266,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SIMPLE */ |
5484 |
static object LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)(void *)&LnkLI268,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-SIMPLE */ |
static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[265],(void **)(void *)&LnkLI265,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-COMPLEX */ |
5485 |
static object LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)(void *)&LnkLI267,5,first,ap);va_end(ap);return V1;} /* MAKE-INSTANCE-FUNCTION-COMPLEX */ |
static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* SOME */ |
5486 |
static void LnkT266(){ call_or_link(VV[266],(void **)(void *)&Lnk266);} /* SOME */ |
static object LnkTLI262(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[262],(void **)(void *)&LnkLI262,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */ |
|
static object LnkTLI264(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[264],(void **)(void *)&LnkLI264,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */ |
|
5487 |
static void LnkT104(ptr) object *ptr;{ call_or_link_closure(VV[104],(void **)(void *)&Lnk104,(void **)(void *)&Lclptr104);} /* DEFAULT-INITARGS */ |
static void LnkT104(ptr) object *ptr;{ call_or_link_closure(VV[104],(void **)(void *)&Lnk104,(void **)(void *)&Lclptr104);} /* DEFAULT-INITARGS */ |
5488 |
static object LnkTLI263(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[263],(void **)(void *)&LnkLI263,5,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION-INTERNAL */ |
static object LnkTLI261(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[261],(void **)(void *)&LnkLI261,5,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION-INTERNAL */ |
5489 |
static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* EVERY */ |
static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* EVERY */ |
5490 |
static void LnkT261(ptr) object *ptr;{ call_or_link_closure(VV[261],(void **)(void *)&Lnk261,(void **)(void *)&Lclptr261);} /* METHOD-SPECIALIZERS */ |
static void LnkT259(ptr) object *ptr;{ call_or_link_closure(VV[259],(void **)(void *)&Lnk259,(void **)(void *)&Lclptr259);} /* METHOD-SPECIALIZERS */ |
5491 |
static object LnkTLI260(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[260],(void **)(void *)&LnkLI260,2,first,ap);va_end(ap);return V1;} /* FIND-STANDARD-II-METHOD */ |
static object LnkTLI258(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[258],(void **)(void *)&LnkLI258,2,first,ap);va_end(ap);return V1;} /* FIND-STANDARD-II-METHOD */ |
5492 |
static void LnkT259(ptr) object *ptr;{ call_or_link_closure(VV[259],(void **)(void *)&Lnk259,(void **)(void *)&Lclptr259);} /* COMPUTE-APPLICABLE-METHODS */ |
static void LnkT257(ptr) object *ptr;{ call_or_link_closure(VV[257],(void **)(void *)&Lnk257,(void **)(void *)&Lclptr257);} /* COMPUTE-APPLICABLE-METHODS */ |
5493 |
static object LnkTLI258(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[258],(void **)(void *)&LnkLI258,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
static object LnkTLI254(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[254],(void **)(void *)&LnkLI254,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
5494 |
static void LnkT257(ptr) object *ptr;{ call_or_link_closure(VV[257],(void **)(void *)&Lnk257,(void **)(void *)&Lclptr257);} /* FINALIZE-INHERITANCE */ |
static void LnkT256(ptr) object *ptr;{ call_or_link_closure(VV[256],(void **)(void *)&Lnk256,(void **)(void *)&Lclptr256);} /* FINALIZE-INHERITANCE */ |
5495 |
static void LnkT256(ptr) object *ptr;{ call_or_link_closure(VV[256],(void **)(void *)&Lnk256,(void **)(void *)&Lclptr256);} /* CLASS-FINALIZED-P */ |
static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* CLASS-FINALIZED-P */ |
5496 |
static object LnkTLI254(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[254],(void **)(void *)&LnkLI254,2,first,ap);va_end(ap);return V1;} /* SETF PCL GDEFINITION */ |
static object LnkTLI252(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[252],(void **)(void *)&LnkLI252,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION */ |
5497 |
static object LnkTLI253(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[253],(void **)(void *)&LnkLI253,1,first,ap);va_end(ap);return V1;} /* GET-MAKE-INSTANCE-FUNCTION */ |
static void LnkT251(){ call_or_link(VV[251],(void **)(void *)&Lnk251);} /* MAKE-SHARED-INITIALIZE-FORM-LIST */ |
5498 |
static void LnkT252(){ call_or_link(VV[252],(void **)(void *)&Lnk252);} /* MAKE-SHARED-INITIALIZE-FORM-LIST */ |
static void LnkT250(ptr) object *ptr;{ call_or_link_closure(VV[250],(void **)(void *)&Lnk250,(void **)(void *)&Lclptr250);} /* CLASS-PROTOTYPE */ |
5499 |
static void LnkT251(ptr) object *ptr;{ call_or_link_closure(VV[251],(void **)(void *)&Lnk251,(void **)(void *)&Lclptr251);} /* CLASS-PROTOTYPE */ |
static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* INITIALIZE-INSTANCE-SIMPLE-FUNCTION */ |
5500 |
static void LnkT250(){ call_or_link(VV[250],(void **)(void *)&Lnk250);} /* INITIALIZE-INSTANCE-SIMPLE-FUNCTION */ |
static void LnkT248(){ call_or_link(VV[248],(void **)(void *)&Lnk248);} /* MAKE-DEFAULT-INITARGS-FORM-LIST */ |
5501 |
static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* MAKE-DEFAULT-INITARGS-FORM-LIST */ |
static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[247],(void **)(void *)&LnkLI247,first,ap);va_end(ap);return V1;} /* MAKE-INITIALIZE-INFO */ |
|
static object LnkTLI248(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[248],(void **)(void *)&LnkLI248,first,ap);va_end(ap);return V1;} /* MAKE-INITIALIZE-INFO */ |
|
|
static void LnkT247(ptr) object *ptr;{ call_or_link_closure(VV[247],(void **)(void *)&Lnk247,(void **)(void *)&Lclptr247);} /* SETF PCL CLASS-INITIALIZE-INFO */ |
|
5502 |
static object LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,1,first,ap);va_end(ap);return V1;} /* RESET-INITIALIZE-INFO */ |
static object LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,1,first,ap);va_end(ap);return V1;} /* RESET-INITIALIZE-INFO */ |
5503 |
static void LnkT245(ptr) object *ptr;{ call_or_link_closure(VV[245],(void **)(void *)&Lnk245,(void **)(void *)&Lclptr245);} /* CLASS-INITIALIZE-INFO */ |
static void LnkT245(ptr) object *ptr;{ call_or_link_closure(VV[245],(void **)(void *)&Lnk245,(void **)(void *)&Lclptr245);} /* CLASS-INITIALIZE-INFO */ |
5504 |
static object LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* RESET-CLASS-INITIALIZE-INFO-1 */ |
static object LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* RESET-CLASS-INITIALIZE-INFO-1 */ |