/[gcl]/gcl/cmpnew/gcl_collectfn.c
ViewVC logotype

Diff of /gcl/cmpnew/gcl_collectfn.c

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

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

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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