/[gcl]/gcl/pcl/pcl_fast_init.c
ViewVC logotype

Diff of /gcl/pcl/pcl_fast_init.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Fri Oct 3 16:03:17 2003 UTC revision 1.5 by camm, Tue Oct 7 21:07:36 2003 UTC
# Line 1253  T316:; Line 1253  T316:;
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);
# Line 1269  T329:; Line 1274  T329:;
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)));}
# Line 1390  T376:; Line 1395  T376:;
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  }  }
# Line 2140  static void L38() Line 2153  static void L38()
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  }  }
# Line 2166  static void L39() Line 2179  static void L39()
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;
# Line 2183  static void L40() Line 2196  static void L40()
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  }  }
# Line 2204  static void L41() Line 2217  static void L41()
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  }  }
# Line 2220  static void L42() Line 2233  static void L42()
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);}
# Line 2255  T674:; Line 2268  T674:;
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;
# Line 2480  T751:; Line 2493  T751:;
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  }  }
# Line 2520  static void L46() Line 2533  static void L46()
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          }          }
# Line 2573  static void L47() Line 2586  static void L47()
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  }  }
# Line 2738  static void L49() Line 2751  static void L49()
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          }          }
# Line 2907  static void L50() Line 2920  static void L50()
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  }  }
# Line 3345  static void L52() Line 3358  static void L52()
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  }  }
# Line 3563  static void L54() Line 3576  static void L54()
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  }  }
# Line 3643  static void L55() Line 3656  static void L55()
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;
# Line 3673  T1220:; Line 3686  T1220:;
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  }  }
# Line 4176  static void L62() Line 4193  static void L62()
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  }  }
# Line 4189  static void L63() Line 4206  static void L63()
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();
# Line 4214  TTL:; Line 4231  TTL:;
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    */
# Line 4271  register object *base0; Line 4288  register object *base0;
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          }          }
# Line 4318  register object *base0; Line 4335  register object *base0;
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          }          }
# Line 4486  register object *base0; Line 4503  register object *base0;
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;
# Line 4602  register object *base0; Line 4619  register object *base0;
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          }          }
# Line 4643  register object *base0; Line 4660  register object *base0;
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          }          }
# Line 4927  register object *base0; Line 4944  register object *base0;
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          }          }
# Line 5222  register object *base0; Line 5239  register object *base0;
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          }          }
# Line 5270  register object *base0; Line 5287  register object *base0;
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  }  }
# Line 5300  register object *base0; Line 5317  register object *base0;
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  */
# Line 5376  register object *base0; Line 5393  register object *base0;
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 */

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26