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

Diff of /gcl/pcl/pcl_slots_boot.c

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

revision 1.3 by camm, Tue Sep 2 20:32:44 2003 UTC revision 1.4 by camm, Fri Oct 3 16:03:18 2003 UTC
# Line 1166  T275:; Line 1166  T275:;
1166          base[4]= Cnil;}          base[4]= Cnil;}
1167          goto T272;          goto T272;
1168  T272:;  T272:;
1169            V134 = (V132);
1170          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
1171          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1172          (void) (*Lnk115)(Lclptr115);          (void) (*Lnk115)(Lclptr115);
1173          vs_top=sup;          vs_top=sup;
1174          V134= vs_base[0];          V135= vs_base[0];
1175          base[6]= (base[1]->c.c_car);          base[6]= (base[1]->c.c_car);
1176          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1177          (void) (*Lnk102)(Lclptr102);          (void) (*Lnk102)(Lclptr102);
1178          vs_top=sup;          vs_top=sup;
1179          V135= vs_base[0];          V136= vs_base[0];
1180          base[5]= list(3,(V132),V134,V135);          base[5]= list(3,V134,V135,V136);
1181          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1182          (void) (*Lnk108)();          (void) (*Lnk108)();
1183          return;          return;
# Line 1184  T272:; Line 1185  T272:;
1185  }  }
1186  /*      local entry for function MAKE-INTERNAL-READER-METHOD-FUNCTION   */  /*      local entry for function MAKE-INTERNAL-READER-METHOD-FUNCTION   */
1187    
1188  static object LI31(V138,V139)  static object LI31(V139,V140)
1189    
1190  object V138;object V139;  object V139;object V140;
1191  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1192          goto TTL;          goto TTL;
1193  TTL:;  TTL:;
1194          base[0]=MMcons((V139),Cnil);          base[0]=MMcons((V140),Cnil);
1195          V140= list(3,VV[62],(V138),(base[0]->c.c_car));          V141= list(3,VV[62],(V139),(base[0]->c.c_car));
1196          V141=          V142=
1197          make_cclosure_new(LC65,Cnil,base[0],Cdata);          make_cclosure_new(LC65,Cnil,base[0],Cdata);
1198          {object V142 = listA(3,VV[61],/* INLINE-ARGS */V140,listA(3,VV[63],V141,VV[71]));          {object V143 = listA(3,VV[61],/* INLINE-ARGS */V141,listA(3,VV[63],V142,VV[71]));
1199          VMR24(V142)}          VMR24(V143)}
1200          base[0]=base[0];          base[0]=base[0];
1201          return Cnil;          return Cnil;
1202  }  }
1203  /*      local entry for function MAKE-STD-READER-METHOD-FUNCTION        */  /*      local entry for function MAKE-STD-READER-METHOD-FUNCTION        */
1204    
1205  static object LI33(V145,V146)  static object LI33(V146,V147)
1206    
1207  object V145;object V146;  object V146;object V147;
1208  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1209          goto TTL;          goto TTL;
1210  TTL:;  TTL:;
1211          base[0]=MMcons((V146),Cnil);          base[0]=MMcons((V147),Cnil);
1212          {object V147;          {object V148;
1213          register object V148;          register object V149;
1214          vs_base=vs_top;          vs_base=vs_top;
1215          Lgensym();          Lgensym();
1216          vs_top=sup;          vs_top=sup;
1217          V147= vs_base[0];          V148= vs_base[0];
1218          V149=          V150=
1219          make_cclosure_new(LC66,Cnil,base[0],Cdata);          make_cclosure_new(LC66,Cnil,base[0],Cdata);
1220          base[3]= listA(3,VV[63],V149,VV[80]);          base[3]= listA(3,VV[63],V150,VV[80]);
1221          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1222          Lcopy_tree();          Lcopy_tree();
1223          vs_top=sup;          vs_top=sup;
1224          V148= vs_base[0];          V149= vs_base[0];
1225          {object V152;          {object V153;
1226          V153= list(2,Cnil,(base[0]->c.c_car));          V154= list(2,Cnil,(base[0]->c.c_car));
1227          V152= make_cons(/* INLINE-ARGS */V153,Cnil);          V153= make_cons(/* INLINE-ARGS */V154,Cnil);
1228          {object V154;          {object V155;
1229          base[5]= (V148);          base[5]= (V149);
1230          base[6]= VV[75];          base[6]= VV[75];
1231          base[7]= Cnil;          base[7]= Cnil;
1232          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1233          Lgetf();          Lgetf();
1234          vs_top=sup;          vs_top=sup;
1235          base[4]= vs_base[0];          base[4]= vs_base[0];
1236          base[5]= (V152);          base[5]= (V153);
1237          base[6]= VV[76];          base[6]= VV[76];
1238          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1239          siLput_f();          siLput_f();
1240          vs_top=sup;          vs_top=sup;
1241          V154= vs_base[0];          V155= vs_base[0];
1242          {object V155;          {object V156;
1243          base[4]= (V148);          base[4]= (V149);
1244          base[5]= (V154);          base[5]= (V155);
1245          base[6]= VV[75];          base[6]= VV[75];
1246          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1247          siLput_f();          siLput_f();
1248          vs_top=sup;          vs_top=sup;
1249          V155= vs_base[0];          V156= vs_base[0];
1250          V148= (V155);}}}          V149= (V156);}}}
1251          {object V159;          {object V160;
1252          base[4]= (V148);          base[4]= (V149);
1253          base[5]= VV[75];          base[5]= VV[75];
1254          base[6]= Cnil;          base[6]= Cnil;
1255          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1256          Lgetf();          Lgetf();
1257          vs_top=sup;          vs_top=sup;
1258          base[3]= vs_base[0];          base[3]= vs_base[0];
1259          base[4]= V147;          base[4]= V148;
1260          base[5]= VV[77];          base[5]= VV[77];
1261          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1262          siLput_f();          siLput_f();
1263          vs_top=sup;          vs_top=sup;
1264          V159= vs_base[0];          V160= vs_base[0];
1265          {object V160;          {object V161;
1266          base[3]= (V148);          base[3]= (V149);
1267          base[4]= (V159);          base[4]= (V160);
1268          base[5]= VV[75];          base[5]= VV[75];
1269          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1270          siLput_f();          siLput_f();
1271          vs_top=sup;          vs_top=sup;
1272          V160= vs_base[0];          V161= vs_base[0];
1273          V148= (V160);}}          V149= (V161);}}
1274          {object V161 = listA(3,VV[61],list(3,VV[78],(V145),(base[0]->c.c_car)),(V148));          {object V162 = listA(3,VV[61],list(3,VV[78],(V146),(base[0]->c.c_car)),(V149));
1275          VMR25(V161)}}          VMR25(V162)}}
1276          base[0]=base[0];          base[0]=base[0];
1277          return Cnil;          return Cnil;
1278  }  }
1279  /*      local entry for function MAKE-STD-WRITER-METHOD-FUNCTION        */  /*      local entry for function MAKE-STD-WRITER-METHOD-FUNCTION        */
1280    
1281  static object LI35(V164,V165)  static object LI35(V165,V166)
1282    
1283  object V164;object V165;  object V165;object V166;
1284  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1285          goto TTL;          goto TTL;
1286  TTL:;  TTL:;
1287          base[0]=MMcons((V165),Cnil);          base[0]=MMcons((V166),Cnil);
1288          {object V166;          {object V167;
1289          register object V167;          register object V168;
1290          vs_base=vs_top;          vs_base=vs_top;
1291          Lgensym();          Lgensym();
1292          vs_top=sup;          vs_top=sup;
1293          V166= vs_base[0];          V167= vs_base[0];
1294          V168=          V169=
1295          make_cclosure_new(LC67,Cnil,base[0],Cdata);          make_cclosure_new(LC67,Cnil,base[0],Cdata);
1296          base[3]= listA(3,VV[63],V168,VV[85]);          base[3]= listA(3,VV[63],V169,VV[85]);
1297          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1298          Lcopy_tree();          Lcopy_tree();
1299          vs_top=sup;          vs_top=sup;
1300          V167= vs_base[0];          V168= vs_base[0];
         {object V171;  
         V171= list(2,Cnil,list(2,Cnil,(base[0]->c.c_car)));  
1301          {object V172;          {object V172;
1302          base[5]= (V167);          V172= list(2,Cnil,list(2,Cnil,(base[0]->c.c_car)));
1303            {object V173;
1304            base[5]= (V168);
1305          base[6]= VV[75];          base[6]= VV[75];
1306          base[7]= Cnil;          base[7]= Cnil;
1307          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1308          Lgetf();          Lgetf();
1309          vs_top=sup;          vs_top=sup;
1310          base[4]= vs_base[0];          base[4]= vs_base[0];
1311          base[5]= (V171);          base[5]= (V172);
1312          base[6]= VV[76];          base[6]= VV[76];
1313          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1314          siLput_f();          siLput_f();
1315          vs_top=sup;          vs_top=sup;
1316          V172= vs_base[0];          V173= vs_base[0];
1317          {object V173;          {object V174;
1318          base[4]= (V167);          base[4]= (V168);
1319          base[5]= (V172);          base[5]= (V173);
1320          base[6]= VV[75];          base[6]= VV[75];
1321          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1322          siLput_f();          siLput_f();
1323          vs_top=sup;          vs_top=sup;
1324          V173= vs_base[0];          V174= vs_base[0];
1325          V167= (V173);}}}          V168= (V174);}}}
1326          {object V177;          {object V178;
1327          base[4]= (V167);          base[4]= (V168);
1328          base[5]= VV[75];          base[5]= VV[75];
1329          base[6]= Cnil;          base[6]= Cnil;
1330          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1331          Lgetf();          Lgetf();
1332          vs_top=sup;          vs_top=sup;
1333          base[3]= vs_base[0];          base[3]= vs_base[0];
1334          base[4]= V166;          base[4]= V167;
1335          base[5]= VV[77];          base[5]= VV[77];
1336          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1337          siLput_f();          siLput_f();
1338          vs_top=sup;          vs_top=sup;
1339          V177= vs_base[0];          V178= vs_base[0];
1340          {object V178;          {object V179;
1341          base[3]= (V167);          base[3]= (V168);
1342          base[4]= (V177);          base[4]= (V178);
1343          base[5]= VV[75];          base[5]= VV[75];
1344          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1345          siLput_f();          siLput_f();
1346          vs_top=sup;          vs_top=sup;
1347          V178= vs_base[0];          V179= vs_base[0];
1348          V167= (V178);}}          V168= (V179);}}
1349          {object V179 = listA(3,VV[61],list(3,VV[83],(V164),(base[0]->c.c_car)),(V167));          {object V180 = listA(3,VV[61],list(3,VV[83],(V165),(base[0]->c.c_car)),(V168));
1350          VMR26(V179)}}          VMR26(V180)}}
1351          base[0]=base[0];          base[0]=base[0];
1352          return Cnil;          return Cnil;
1353  }  }
1354  /*      local entry for function MAKE-STD-BOUNDP-METHOD-FUNCTION        */  /*      local entry for function MAKE-STD-BOUNDP-METHOD-FUNCTION        */
1355    
1356  static object LI37(V182,V183)  static object LI37(V183,V184)
1357    
1358  object V182;object V183;  object V183;object V184;
1359  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1360          goto TTL;          goto TTL;
1361  TTL:;  TTL:;
1362          base[0]=MMcons((V183),Cnil);          base[0]=MMcons((V184),Cnil);
1363          {object V184;          {object V185;
1364          register object V185;          register object V186;
1365          vs_base=vs_top;          vs_base=vs_top;
1366          Lgensym();          Lgensym();
1367          vs_top=sup;          vs_top=sup;
1368          V184= vs_base[0];          V185= vs_base[0];
1369          V186=          V187=
1370          make_cclosure_new(LC68,Cnil,base[0],Cdata);          make_cclosure_new(LC68,Cnil,base[0],Cdata);
1371          base[3]= listA(3,VV[63],V186,VV[90]);          base[3]= listA(3,VV[63],V187,VV[90]);
1372          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1373          Lcopy_tree();          Lcopy_tree();
1374          vs_top=sup;          vs_top=sup;
1375          V185= vs_base[0];          V186= vs_base[0];
1376          {object V189;          {object V190;
1377          V190= list(2,Cnil,(base[0]->c.c_car));          V191= list(2,Cnil,(base[0]->c.c_car));
1378          V189= make_cons(/* INLINE-ARGS */V190,Cnil);          V190= make_cons(/* INLINE-ARGS */V191,Cnil);
1379          {object V191;          {object V192;
1380          base[5]= (V185);          base[5]= (V186);
1381          base[6]= VV[75];          base[6]= VV[75];
1382          base[7]= Cnil;          base[7]= Cnil;
1383          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1384          Lgetf();          Lgetf();
1385          vs_top=sup;          vs_top=sup;
1386          base[4]= vs_base[0];          base[4]= vs_base[0];
1387          base[5]= (V189);          base[5]= (V190);
1388          base[6]= VV[76];          base[6]= VV[76];
1389          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1390          siLput_f();          siLput_f();
1391          vs_top=sup;          vs_top=sup;
1392          V191= vs_base[0];          V192= vs_base[0];
1393          {object V192;          {object V193;
1394          base[4]= (V185);          base[4]= (V186);
1395          base[5]= (V191);          base[5]= (V192);
1396          base[6]= VV[75];          base[6]= VV[75];
1397          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1398          siLput_f();          siLput_f();
1399          vs_top=sup;          vs_top=sup;
1400          V192= vs_base[0];          V193= vs_base[0];
1401          V185= (V192);}}}          V186= (V193);}}}
1402          {object V196;          {object V197;
1403          base[4]= (V185);          base[4]= (V186);
1404          base[5]= VV[75];          base[5]= VV[75];
1405          base[6]= Cnil;          base[6]= Cnil;
1406          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1407          Lgetf();          Lgetf();
1408          vs_top=sup;          vs_top=sup;
1409          base[3]= vs_base[0];          base[3]= vs_base[0];
1410          base[4]= V184;          base[4]= V185;
1411          base[5]= VV[77];          base[5]= VV[77];
1412          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1413          siLput_f();          siLput_f();
1414          vs_top=sup;          vs_top=sup;
1415          V196= vs_base[0];          V197= vs_base[0];
1416          {object V197;          {object V198;
1417          base[3]= (V185);          base[3]= (V186);
1418          base[4]= (V196);          base[4]= (V197);
1419          base[5]= VV[75];          base[5]= VV[75];
1420          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1421          siLput_f();          siLput_f();
1422          vs_top=sup;          vs_top=sup;
1423          V197= vs_base[0];          V198= vs_base[0];
1424          V185= (V197);}}          V186= (V198);}}
1425          {object V198 = listA(3,VV[61],list(3,VV[88],(V182),(base[0]->c.c_car)),(V185));          {object V199 = listA(3,VV[61],list(3,VV[88],(V183),(base[0]->c.c_car)),(V186));
1426          VMR27(V198)}}          VMR27(V199)}}
1427          base[0]=base[0];          base[0]=base[0];
1428          return Cnil;          return Cnil;
1429  }  }
1430  /*      local entry for function INITIALIZE-INTERNAL-SLOT-GFS   */  /*      local entry for function INITIALIZE-INTERNAL-SLOT-GFS   */
1431    
1432  static object LI38(object V199,object first,...)  static object LI38(object V200,object first,...)
1433  {        {      
1434          va_list ap;          va_list ap;
1435          int narg = VFUN_NARGS; VMB28 VMS28 VMV28          int narg = VFUN_NARGS; VMB28 VMS28 VMV28
1436          {register object V200;          {register object V201;
1437          register object V201;          register object V202;
1438          va_start(ap,first);          va_start(ap,first);
1439          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1440          V200= V199;          V201= V200;
1441          narg = narg - 1;          narg = narg - 1;
1442          if (narg <= 0) goto T387;          if (narg <= 0) goto T387;
1443          else {          else {
1444          V201= first;}          V202= first;}
1445          --narg; goto T388;          --narg; goto T388;
1446          goto T387;          goto T387;
1447  T387:;  T387:;
1448          V201= Cnil;          V202= Cnil;
1449          goto T388;          goto T388;
1450  T388:;  T388:;
1451          if(((V201))==Cnil){          if(((V202))==Cnil){
1452          goto T391;}          goto T391;}
1453          if(!(((V201))==(VV[27]))){          if(!(((V202))==(VV[27]))){
1454          goto T390;}          goto T390;}
1455          goto T391;          goto T391;
1456  T391:;  T391:;
1457          {object V202;          {object V203;
1458          object V203;          object V204;
1459          V202= (*(LnkLI92))((V200));          V203= (*(LnkLI92))((V201));
1460          base[2]= (V202);          base[2]= (V203);
1461          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1462          (void) (*Lnk116)();          (void) (*Lnk116)();
1463          vs_top=sup;          vs_top=sup;
1464          V203= vs_base[0];          V204= vs_base[0];
1465          base[2]= (V203);          base[2]= (V204);
1466          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1467          (void) (*Lnk117)(Lclptr117);          (void) (*Lnk117)(Lclptr117);
1468          vs_top=sup;          vs_top=sup;
1469          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1470          goto T390;}          goto T390;}
1471          base[2]= (VV[91]->s.s_dbind);          base[2]= (VV[91]->s.s_dbind);
1472          base[3]= (V203);          base[3]= (V204);
1473          base[4]= (V200);          base[4]= (V201);
1474          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1475          (void) (*Lnk118)(Lclptr118);          (void) (*Lnk118)(Lclptr118);
1476          vs_top=sup;}          vs_top=sup;}
1477          goto T390;          goto T390;
1478  T390:;  T390:;
1479          if(((V201))==Cnil){          if(((V202))==Cnil){
1480          goto T405;}          goto T405;}
1481          if(!(((V201))==(VV[30]))){          if(!(((V202))==(VV[30]))){
1482          goto T404;}          goto T404;}
1483          goto T405;          goto T405;
1484  T405:;  T405:;
1485          {object V204;          {object V205;
1486          object V205;          object V206;
1487          V204= (*(LnkLI93))((V200));          V205= (*(LnkLI93))((V201));
1488          base[2]= (V204);          base[2]= (V205);
1489          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1490          (void) (*Lnk116)();          (void) (*Lnk116)();
1491          vs_top=sup;          vs_top=sup;
1492          V205= vs_base[0];          V206= vs_base[0];
1493          base[2]= (V205);          base[2]= (V206);
1494          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1495          (void) (*Lnk117)(Lclptr117);          (void) (*Lnk117)(Lclptr117);
1496          vs_top=sup;          vs_top=sup;
1497          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1498          goto T404;}          goto T404;}
1499          base[2]= (VV[91]->s.s_dbind);          base[2]= (VV[91]->s.s_dbind);
1500          base[3]= (V205);          base[3]= (V206);
1501          base[4]= (V200);          base[4]= (V201);
1502          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1503          (void) (*Lnk119)(Lclptr119);          (void) (*Lnk119)(Lclptr119);
1504          vs_top=sup;}          vs_top=sup;}
1505          goto T404;          goto T404;
1506  T404:;  T404:;
1507          {object V206 = Cnil;          {object V207 = Cnil;
1508          VMR28(V206)}          VMR28(V207)}
1509          va_end(ap);          va_end(ap);
1510          base[0]=base[0];          base[0]=base[0];
1511          return Cnil;}          return Cnil;}
1512          }          }
1513  /*      local entry for function INITIALIZE-INTERNAL-SLOT-GFS*  */  /*      local entry for function INITIALIZE-INTERNAL-SLOT-GFS*  */
1514    
1515  static object LI39(V210,V211,V212)  static object LI39(V211,V212,V213)
1516    
1517  object V210;object V211;object V212;  object V211;object V212;object V213;
1518  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1519          goto TTL;          goto TTL;
1520  TTL:;  TTL:;
1521          {register object V213;          {register object V214;
1522          register object V214;          register object V215;
1523          V213= (V210);          V214= (V211);
1524          V214= CMPcar((V213));          V215= CMPcar((V214));
1525          goto T423;          goto T423;
1526  T423:;  T423:;
1527          if(!(((V213))==Cnil)){          if(!(((V214))==Cnil)){
1528          goto T424;}          goto T424;}
1529          goto T419;          goto T419;
1530          goto T424;          goto T424;
1531  T424:;  T424:;
1532          (void)((VFUN_NARGS=2,(*(LnkLI120))((V214),VV[27])));          (void)((VFUN_NARGS=2,(*(LnkLI120))((V215),VV[27])));
1533          V213= CMPcdr((V213));          V214= CMPcdr((V214));
1534          V214= CMPcar((V213));          V215= CMPcar((V214));
1535          goto T423;}          goto T423;}
1536          goto T419;          goto T419;
1537  T419:;  T419:;
1538          {register object V215;          {register object V216;
1539          register object V216;          register object V217;
1540          V215= (V211);          V216= (V212);
1541          V216= CMPcar((V215));          V217= CMPcar((V216));
1542          goto T438;          goto T438;
1543  T438:;  T438:;
1544          if(!(((V215))==Cnil)){          if(!(((V216))==Cnil)){
1545          goto T439;}          goto T439;}
1546          goto T434;          goto T434;
1547          goto T439;          goto T439;
1548  T439:;  T439:;
1549          (void)((VFUN_NARGS=2,(*(LnkLI120))((V216),VV[30])));          (void)((VFUN_NARGS=2,(*(LnkLI120))((V217),VV[30])));
1550          V215= CMPcdr((V215));          V216= CMPcdr((V216));
1551          V216= CMPcar((V215));          V217= CMPcar((V216));
1552          goto T438;}          goto T438;}
1553          goto T434;          goto T434;
1554  T434:;  T434:;
1555          {register object V217;          {register object V218;
1556          register object V218;          register object V219;
1557          V217= (V212);          V218= (V213);
1558          V218= CMPcar((V217));          V219= CMPcar((V218));
1559          goto T452;          goto T452;
1560  T452:;  T452:;
1561          if(!(((V217))==Cnil)){          if(!(((V218))==Cnil)){
1562          goto T453;}          goto T453;}
1563          {object V219 = Cnil;          {object V220 = Cnil;
1564          VMR29(V219)}          VMR29(V220)}
1565          goto T453;          goto T453;
1566  T453:;  T453:;
1567          (void)((VFUN_NARGS=2,(*(LnkLI120))((V218),VV[42])));          (void)((VFUN_NARGS=2,(*(LnkLI120))((V219),VV[42])));
1568          V217= CMPcdr((V217));          V218= CMPcdr((V218));
1569          V218= CMPcar((V217));          V219= CMPcar((V218));
1570          goto T452;}          goto T452;}
1571          base[0]=base[0];          base[0]=base[0];
1572          return Cnil;          return Cnil;
# Line 1577  register object *base0; Line 1578  register object *base0;
1578  {       register object *base=vs_base;  {       register object *base=vs_base;
1579          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
1580          vs_check;          vs_check;
1581          {object V220;          {object V221;
1582          object V221;          object V222;
1583          register object V222;          register object V223;
1584          check_arg(3);          check_arg(3);
1585          V220=(base[0]);          V221=(base[0]);
1586          V221=(base[1]);          V222=(base[1]);
1587          V222=(base[2]);          V223=(base[2]);
1588          vs_top=sup;          vs_top=sup;
1589          {object V224;          {object V225;
1590          object V225;          object V226;
1591          V224= CMPcar((V220));          V225= CMPcar((V221));
1592          V225= CMPcdr((V220));          V226= CMPcdr((V221));
1593          {object V226;          {object V227;
1594          if(type_of(V222)==t_structure){          if(type_of(V223)==t_structure){
1595          goto T474;}          goto T474;}
1596          goto T472;          goto T472;
1597          goto T474;          goto T474;
1598  T474:;  T474:;
1599          if(!(((V222)->str.str_def)==(VV[89]))){          if(!(((V223)->str.str_def)==(VV[89]))){
1600          goto T472;}          goto T472;}
1601          V226= STREF(object,(V222),4);          V227= STREF(object,(V223),4);
1602          goto T470;          goto T470;
1603          goto T472;          goto T472;
1604  T472:;{object V228;  T472:;{object V229;
1605          V228= (VV[44]->s.s_dbind);          V229= (VV[44]->s.s_dbind);
1606          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1607          base[4]= (V222);          base[4]= (V223);
1608          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1609          (void) (*Lnk121)();          (void) (*Lnk121)();
1610          vs_top=sup;          vs_top=sup;
1611          V229= vs_base[0];          V230= vs_base[0];
1612          if(!((V228)==(CMPcar(V229)))){          if(!((V229)==(CMPcar(V230)))){
1613          goto T477;}}          goto T477;}}
1614          V226= CMPcar(((V222))->cc.cc_turbo[12]);          V227= CMPcar(((V223))->cc.cc_turbo[12]);
1615          goto T470;          goto T470;
1616          goto T477;          goto T477;
1617  T477:;  T477:;
1618          V226= Cnil;          V227= Cnil;
1619          goto T470;          goto T470;
1620  T470:;  T470:;
1621          {object V230;          {object V231;
1622          V230= ((V224))->v.v_self[1];          V231= ((V225))->v.v_self[1];
1623          {register object V231;          {register object V232;
1624          V231= (V230);          V232= (V231);
1625          if(!(type_of((V231))==t_fixnum)){          if(!(type_of((V232))==t_fixnum)){
1626          goto T484;}          goto T484;}
1627          base[3]= ((((((V226))->v.v_self[fix((V230))])==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil);          base[3]= ((((((V227))->v.v_self[fix((V231))])==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil);
1628          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1629          return;          return;
1630          goto T484;          goto T484;
1631  T484:;  T484:;
1632          if(!(type_of((V231))==t_cons)){          if(!(type_of((V232))==t_cons)){
1633          goto T487;}          goto T487;}
1634          base[3]= ((((CMPcdr((V230)))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil);          base[3]= ((((CMPcdr((V231)))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil);
1635          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1636          return;          return;
1637          goto T487;          goto T487;
1638  T487:;  T487:;
1639          base[3]= (V222);          base[3]= (V223);
1640          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
1641          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1642          (void) (*Lnk123)();          (void) (*Lnk123)();
# Line 1649  register object *base0; Line 1650  register object *base0;
1650  {       register object *base=vs_base;  {       register object *base=vs_base;
1651          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
1652          vs_check;          vs_check;
1653          {object V232;          {object V233;
         object V233;  
1654          object V234;          object V234;
1655          register object V235;          object V235;
1656            register object V236;
1657          check_arg(4);          check_arg(4);
1658          V232=(base[0]);          V233=(base[0]);
1659          V233=(base[1]);          V234=(base[1]);
1660          V234=(base[2]);          V235=(base[2]);
1661          V235=(base[3]);          V236=(base[3]);
1662          vs_top=sup;          vs_top=sup;
1663          {object V237;          {object V238;
1664          object V238;          object V239;
1665          V237= CMPcar((V232));          V238= CMPcar((V233));
1666          V238= CMPcdr((V232));          V239= CMPcdr((V233));
1667          {object V239;          {object V240;
1668          if(type_of(V235)==t_structure){          if(type_of(V236)==t_structure){
1669          goto T502;}          goto T502;}
1670          goto T500;          goto T500;
1671          goto T502;          goto T502;
1672  T502:;  T502:;
1673          if(!(((V235)->str.str_def)==(VV[84]))){          if(!(((V236)->str.str_def)==(VV[84]))){
1674          goto T500;}          goto T500;}
1675          V239= STREF(object,(V235),4);          V240= STREF(object,(V236),4);
1676          goto T498;          goto T498;
1677          goto T500;          goto T500;
1678  T500:;{object V241;  T500:;{object V242;
1679          V241= (VV[44]->s.s_dbind);          V242= (VV[44]->s.s_dbind);
1680          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
1681          base[5]= (V235);          base[5]= (V236);
1682          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1683          (void) (*Lnk121)();          (void) (*Lnk121)();
1684          vs_top=sup;          vs_top=sup;
1685          V242= vs_base[0];          V243= vs_base[0];
1686          if(!((V241)==(CMPcar(V242)))){          if(!((V242)==(CMPcar(V243)))){
1687          goto T505;}}          goto T505;}}
1688          V239= CMPcar(((V235))->cc.cc_turbo[12]);          V240= CMPcar(((V236))->cc.cc_turbo[12]);
1689          goto T498;          goto T498;
1690          goto T505;          goto T505;
1691  T505:;  T505:;
1692          V239= Cnil;          V240= Cnil;
1693          goto T498;          goto T498;
1694  T498:;  T498:;
1695          {object V243;          {object V244;
1696          V243= ((V237))->v.v_self[1];          V244= ((V238))->v.v_self[1];
1697          {register object V244;          {register object V245;
1698          V244= (V243);          V245= (V244);
1699          if(!(type_of((V244))==t_fixnum)){          if(!(type_of((V245))==t_fixnum)){
1700          goto T512;}          goto T512;}
1701          base[4]= ((V239))->v.v_self[fix((V243))]= ((V234));          base[4]= ((V240))->v.v_self[fix((V244))]= ((V235));
1702          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1703          return;          return;
1704          goto T512;          goto T512;
1705  T512:;  T512:;
1706          if(!(type_of((V244))==t_cons)){          if(!(type_of((V245))==t_cons)){
1707          goto T515;}          goto T515;}
1708          (V243)->c.c_cdr = V234;          (V244)->c.c_cdr = V235;
1709          base[4]= V234;          base[4]= V235;
1710          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1711          return;          return;
1712          goto T515;          goto T515;
1713  T515:;  T515:;
1714          base[4]= (V235);          base[4]= (V236);
1715          base[5]= (base0[0]->c.c_car);          base[5]= (base0[0]->c.c_car);
1716          base[6]= (V234);          base[6]= (V235);
1717          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1718          (void) (*Lnk124)();          (void) (*Lnk124)();
1719          return;}}}}          return;}}}}
# Line 1725  register object *base0; Line 1726  register object *base0;
1726  {       register object *base=vs_base;  {       register object *base=vs_base;
1727          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
1728          vs_check;          vs_check;
1729          {object V247;          {object V248;
1730          object V248;          object V249;
1731          register object V249;          register object V250;
1732          check_arg(3);          check_arg(3);
1733          V247=(base[0]);          V248=(base[0]);
1734          V248=(base[1]);          V249=(base[1]);
1735          V249=(base[2]);          V250=(base[2]);
1736          vs_top=sup;          vs_top=sup;
1737          {object V251;          {object V252;
1738          object V252;          object V253;
1739          V251= CMPcar((V247));          V252= CMPcar((V248));
1740          V252= CMPcdr((V247));          V253= CMPcdr((V248));
1741          {object V253;          {object V254;
1742          if(type_of(V249)==t_structure){          if(type_of(V250)==t_structure){
1743          goto T532;}          goto T532;}
1744          goto T530;          goto T530;
1745          goto T532;          goto T532;
1746  T532:;  T532:;
1747          if(!(((V249)->str.str_def)==(VV[79]))){          if(!(((V250)->str.str_def)==(VV[79]))){
1748          goto T530;}          goto T530;}
1749          V253= STREF(object,(V249),4);          V254= STREF(object,(V250),4);
1750          goto T528;          goto T528;
1751          goto T530;          goto T530;
1752  T530:;{object V255;  T530:;{object V256;
1753          V255= (VV[44]->s.s_dbind);          V256= (VV[44]->s.s_dbind);
1754          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1755          base[4]= (V249);          base[4]= (V250);
1756          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1757          (void) (*Lnk121)();          (void) (*Lnk121)();
1758          vs_top=sup;          vs_top=sup;
1759          V256= vs_base[0];          V257= vs_base[0];
1760          if(!((V255)==(CMPcar(V256)))){          if(!((V256)==(CMPcar(V257)))){
1761          goto T535;}}          goto T535;}}
1762          V253= CMPcar(((V249))->cc.cc_turbo[12]);          V254= CMPcar(((V250))->cc.cc_turbo[12]);
1763          goto T528;          goto T528;
1764          goto T535;          goto T535;
1765  T535:;  T535:;
1766          V253= Cnil;          V254= Cnil;
1767          goto T528;          goto T528;
1768  T528:;  T528:;
         {register object V257;  
         V257= ((V251))->v.v_self[1];  
1769          {register object V258;          {register object V258;
1770          V258= (V257);          V258= ((V252))->v.v_self[1];
1771          if(!(type_of((V258))==t_fixnum)){          {register object V259;
1772            V259= (V258);
1773            if(!(type_of((V259))==t_fixnum)){
1774          goto T544;}          goto T544;}
1775          V257= ((V253))->v.v_self[fix((V257))];          V258= ((V254))->v.v_self[fix((V258))];
1776          goto T542;          goto T542;
1777          goto T544;          goto T544;
1778  T544:;  T544:;
1779          if(!(type_of((V258))==t_cons)){          if(!(type_of((V259))==t_cons)){
1780          goto T547;}          goto T547;}
1781          V257= CMPcdr((V257));          V258= CMPcdr((V258));
1782          goto T542;          goto T542;
1783          goto T547;          goto T547;
1784  T547:;  T547:;
1785          V257= VV[73];}          V258= VV[73];}
1786          goto T542;          goto T542;
1787  T542:;  T542:;
1788          if(!(((V257))==(VV[73]))){          if(!(((V258))==(VV[73]))){
1789          goto T550;}          goto T550;}
1790          base[3]= (V249);          base[3]= (V250);
1791          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
1792          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1793          (void) (*Lnk125)();          (void) (*Lnk125)();
1794          return;          return;
1795          goto T550;          goto T550;
1796  T550:;  T550:;
1797          base[3]= (V257);          base[3]= (V258);
1798          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1799          return;}}}          return;}}}
1800          }          }
# Line 1805  register object *base0; Line 1806  register object *base0;
1806  {       register object *base=vs_base;  {       register object *base=vs_base;
1807          register object *sup=base+VM33; VC33          register object *sup=base+VM33; VC33
1808          vs_check;          vs_check;
1809          {object V259;          {object V260;
1810          object V260;          object V261;
1811          register object V261;          register object V262;
1812          check_arg(3);          check_arg(3);
1813          V259=(base[0]);          V260=(base[0]);
1814          V260=(base[1]);          V261=(base[1]);
1815          V261=(base[2]);          V262=(base[2]);
1816          vs_top=sup;          vs_top=sup;
1817          {register object V263;          {register object V264;
1818          if(type_of(V261)==t_structure){          if(type_of(V262)==t_structure){
1819          goto T561;}          goto T561;}
1820          goto T559;          goto T559;
1821          goto T561;          goto T561;
1822  T561:;  T561:;
1823          if(!(((V261)->str.str_def)==(VV[69]))){          if(!(((V262)->str.str_def)==(VV[69]))){
1824          goto T559;}          goto T559;}
1825          V263= STREF(object,(V261),0);          V264= STREF(object,(V262),0);
1826          goto T557;          goto T557;
1827          goto T559;          goto T559;
1828  T559:;{object V265;  T559:;{object V266;
1829          V265= (VV[44]->s.s_dbind);          V266= (VV[44]->s.s_dbind);
1830          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
1831          base[4]= (V261);          base[4]= (V262);
1832          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1833          (void) (*Lnk121)();          (void) (*Lnk121)();
1834          vs_top=sup;          vs_top=sup;
1835          V266= vs_base[0];          V267= vs_base[0];
1836          if(!((V265)==(CMPcar(V266)))){          if(!((V266)==(CMPcar(V267)))){
1837          goto T564;}}          goto T564;}}
1838          V263= CMPcar(((V261))->cc.cc_turbo[13]);          V264= CMPcar(((V262))->cc.cc_turbo[13]);
1839          goto T557;          goto T557;
1840          goto T564;          goto T564;
1841  T564:;  T564:;
1842          V263= Cnil;          V264= Cnil;
1843          goto T557;          goto T557;
1844  T557:;  T557:;
1845          if(((V263))==Cnil){          if(((V264))==Cnil){
1846          goto T570;}          goto T570;}
1847          {object V267;          {object V268;
1848          object V268;          object V269;
1849          V267= ((V263))->v.v_self[11];{object V269;          V268= ((V264))->v.v_self[11];{object V270;
1850          {register long V270;          {register long V271;
1851          V270= 0;          V271= 0;
1852          {register object V271;          {register object V272;
1853          register object V272;          register object V273;
1854          V271= ((V263))->v.v_self[9];          V272= ((V264))->v.v_self[9];
1855          V272= CMPcar((V271));          V273= CMPcar((V272));
1856          goto T580;          goto T580;
1857  T580:;  T580:;
1858          if(!(((V271))==Cnil)){          if(!(((V272))==Cnil)){
1859          goto T581;}          goto T581;}
1860          V269= Cnil;          V270= Cnil;
1861          goto T575;          goto T575;
1862          goto T581;          goto T581;
1863  T581:;  T581:;
1864          if(!(((base0[0]->c.c_car))==((V272)))){          if(!(((base0[0]->c.c_car))==((V273)))){
1865          goto T585;}          goto T585;}
1866          V269= CMPmake_fixnum(V270);          V270= CMPmake_fixnum(V271);
1867          goto T575;          goto T575;
1868          goto T585;          goto T585;
1869  T585:;  T585:;
1870          V270= (long)(V270)+(1);          V271= (long)(V271)+(1);
1871          V271= CMPcdr((V271));          V272= CMPcdr((V272));
1872          V272= CMPcar((V271));          V273= CMPcar((V272));
1873          goto T580;}}          goto T580;}}
1874          goto T575;          goto T575;
1875  T575:;  T575:;
1876          if(V269==Cnil)goto T574;          if(V270==Cnil)goto T574;
1877          V268= V269;          V269= V270;
1878          goto T573;          goto T573;
1879          goto T574;          goto T574;
1880  T574:;}  T574:;}
1881          {register object x= (base0[0]->c.c_car),V273= ((V263))->v.v_self[10];          {register object x= (base0[0]->c.c_car),V274= ((V264))->v.v_self[10];
1882          while(V273!=Cnil)          while(V274!=Cnil)
1883          if(EQ(x,V273->c.c_car->c.c_car) &&V273->c.c_car != Cnil){          if(EQ(x,V274->c.c_car->c.c_car) &&V274->c.c_car != Cnil){
1884          V268= (V273->c.c_car);          V269= (V274->c.c_car);
1885          goto T573;          goto T573;
1886          }else V273=V273->c.c_cdr;          }else V274=V274->c.c_cdr;
1887          V268= Cnil;}          V269= Cnil;}
1888          goto T573;          goto T573;
1889  T573:;  T573:;
1890          {register object V274;          {register object V275;
1891          V274= (V268);          V275= (V269);
1892          if(!(type_of((V274))==t_fixnum)){          if(!(type_of((V275))==t_fixnum)){
1893          goto T596;}          goto T596;}
1894          {object V275;          {object V276;
1895          if(type_of(V261)==t_structure){          if(type_of(V262)==t_structure){
1896          goto T603;}          goto T603;}
1897          goto T601;          goto T601;
1898          goto T603;          goto T603;
1899  T603:;  T603:;
1900          if(!(((V261)->str.str_def)==(VV[70]))){          if(!(((V262)->str.str_def)==(VV[70]))){
1901          goto T601;}          goto T601;}
1902          V276= STREF(object,(V261),4);          V277= STREF(object,(V262),4);
1903          goto T599;          goto T599;
1904          goto T601;          goto T601;
1905  T601:;{object V278;  T601:;{object V279;
1906          V278= (VV[44]->s.s_dbind);          V279= (VV[44]->s.s_dbind);
1907          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
1908          base[6]= (V261);          base[6]= (V262);
1909          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1910          (void) (*Lnk121)();          (void) (*Lnk121)();
1911          vs_top=sup;          vs_top=sup;
1912          V279= vs_base[0];          V280= vs_base[0];
1913          if(!((V278)==(CMPcar(V279)))){          if(!((V279)==(CMPcar(V280)))){
1914          goto T606;}}          goto T606;}}
1915          V276= CMPcar(((V261))->cc.cc_turbo[12]);          V277= CMPcar(((V262))->cc.cc_turbo[12]);
1916          goto T599;          goto T599;
1917          goto T606;          goto T606;
1918  T606:;  T606:;
# Line 1919  T606:; Line 1920  T606:;
1920          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1921          Lerror();          Lerror();
1922          vs_top=sup;          vs_top=sup;
1923          V276= vs_base[0];          V277= vs_base[0];
1924          goto T599;          goto T599;
1925  T599:;  T599:;
1926          V275= (V276)->v.v_self[fix((V268))];          V281 = fix((V269));
1927          if(!(((V275))==((VV[35]->s.s_dbind)))){          V276= (V277)->v.v_self[V281];
1928            if(!(((V276))==((VV[35]->s.s_dbind)))){
1929          goto T613;}          goto T613;}
1930          base[5]= (*(LnkLI126))((V261));          base[5]= (*(LnkLI126))((V262));
1931          base[6]= (V261);          base[6]= (V262);
1932          base[7]= (base0[0]->c.c_car);          base[7]= (base0[0]->c.c_car);
1933          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1934          (void) (*Lnk127)(Lclptr127);          (void) (*Lnk127)(Lclptr127);
1935          return;          return;
1936          goto T613;          goto T613;
1937  T613:;  T613:;
1938          base[5]= (V275);          base[5]= (V276);
1939          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1940          return;}          return;}
1941          goto T596;          goto T596;
1942  T596:;  T596:;
1943          if(!(type_of((V274))==t_cons)){          if(!(type_of((V275))==t_cons)){
1944          goto T619;}          goto T619;}
1945          {object V280;          {object V282;
1946          V280= CMPcdr((V268));          V282= CMPcdr((V269));
1947          if(!(((V280))==((VV[35]->s.s_dbind)))){          if(!(((V282))==((VV[35]->s.s_dbind)))){
1948          goto T623;}          goto T623;}
1949          base[5]= (*(LnkLI126))((V261));          base[5]= (*(LnkLI126))((V262));
1950          base[6]= (V261);          base[6]= (V262);
1951          base[7]= (base0[0]->c.c_car);          base[7]= (base0[0]->c.c_car);
1952          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1953          (void) (*Lnk127)(Lclptr127);          (void) (*Lnk127)(Lclptr127);
1954          return;          return;
1955          goto T623;          goto T623;
1956  T623:;  T623:;
1957          base[5]= (V280);          base[5]= (V282);
1958          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1959          return;}          return;}
1960          goto T619;          goto T619;
1961  T619:;  T619:;
1962          base[5]= VV[67];          base[5]= VV[67];
1963          base[6]= (V267);          base[6]= (V268);
1964          base[7]= (base0[0]->c.c_car);          base[7]= (base0[0]->c.c_car);
1965          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1966          Lerror();          Lerror();
1967          return;}}          return;}}
1968          goto T570;          goto T570;
1969  T570:;  T570:;
1970          base[3]= (V261);          base[3]= (V262);
1971          base[4]= (base0[0]->c.c_car);          base[4]= (base0[0]->c.c_car);
1972          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1973          (void) (*Lnk125)();          (void) (*Lnk125)();
# Line 1979  register object *base0; Line 1981  register object *base0;
1981  {       register object *base=vs_base;  {       register object *base=vs_base;
1982          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
1983          vs_check;          vs_check;
1984          {object V281;          {object V283;
1985          check_arg(1);          check_arg(1);
1986          V281=(base[0]);          V283=(base[0]);
1987          vs_top=sup;          vs_top=sup;
1988          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
1989          base[2]= VV[55];          base[2]= VV[55];
# Line 1994  register object *base0; Line 1996  register object *base0;
1996          base[2]= STREF(object,(base0[0]->c.c_car),4);          base[2]= STREF(object,(base0[0]->c.c_car),4);
1997          base[3]= STREF(object,(base0[0]->c.c_car),8);          base[3]= STREF(object,(base0[0]->c.c_car),8);
1998          base[4]= (base0[2]->c.c_car);          base[4]= (base0[2]->c.c_car);
1999          base[5]= (V281);          base[5]= (V283);
2000          base[6]= (base0[1]->c.c_car);          base[6]= (base0[1]->c.c_car);
2001          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
2002          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
# Line 2004  register object *base0; Line 2006  register object *base0;
2006          return;          return;
2007          goto T635;          goto T635;
2008  T635:;  T635:;
2009          {register object V282;          {register object V284;
2010          V282= (base0[0]->c.c_car);          V284= (base0[0]->c.c_car);
2011          base[1]= (V282);          base[1]= (V284);
2012          base[2]= VV[56];          base[2]= VV[56];
2013          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2014          (void) (*Lnk128)();          (void) (*Lnk128)();
2015          vs_top=sup;          vs_top=sup;
2016          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2017          goto T646;}          goto T646;}
2018          {object V283;          {object V285;
2019          object V284;          object V286;
2020          register object V285;          register object V287;
2021          V283= STREF(object,(base0[0]->c.c_car),0);          V285= STREF(object,(base0[0]->c.c_car),0);
2022          V284= list(3,(base0[2]->c.c_car),(V281),(base0[1]->c.c_car));          V286= list(3,(base0[2]->c.c_car),(V283),(base0[1]->c.c_car));
2023          V285= STREF(object,(base0[0]->c.c_car),4);          V287= STREF(object,(base0[0]->c.c_car),4);
2024          if(((V285))==Cnil){          if(((V287))==Cnil){
2025          goto T654;}          goto T654;}
2026          if((CMPcdr((V285)))!=Cnil){          if((CMPcdr((V287)))!=Cnil){
2027          goto T654;}          goto T654;}
2028          base[1]= (V284);          base[1]= (V286);
2029          base[2]= CMPcar((V285));          base[2]= CMPcar((V287));
2030          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2031          {object _funobj = (V283);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V285);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2032                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2033                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2034                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2035          return;          return;
2036          goto T654;          goto T654;
2037  T654:;  T654:;
2038          base[1]= (V283);          base[1]= (V285);
2039          base[2]= (V284);          base[2]= (V286);
2040          {object V286;          {object V288;
2041          V286= (V285);          V288= (V287);
2042           vs_top=base+3;           vs_top=base+3;
2043           while(V286!=Cnil)           while(V288!=Cnil)
2044           {vs_push((V286)->c.c_car);V286=(V286)->c.c_cdr;}           {vs_push((V288)->c.c_car);V288=(V288)->c.c_cdr;}
2045          vs_base=base+2;}          vs_base=base+2;}
2046          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2047                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2048  T654:; Line 2050  T654:;
2050          return;}          return;}
2051          goto T646;          goto T646;
2052  T646:;  T646:;
2053          base[1]= (V282);          base[1]= (V284);
2054          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2055          Lfunctionp();          Lfunctionp();
2056          vs_top=sup;          vs_top=sup;
2057          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2058          goto T664;}          goto T664;}
2059          base[1]= (base0[2]->c.c_car);          base[1]= (base0[2]->c.c_car);
2060          base[2]= (V281);          base[2]= (V283);
2061          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
2062          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2063          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
# Line 2066  T646:; Line 2068  T646:;
2068          goto T664;          goto T664;
2069  T664:;  T664:;
2070          base[2]= VV[57];          base[2]= VV[57];
2071          base[3]= (V282);          base[3]= (V284);
2072          base[4]= VV[60];          base[4]= VV[60];
2073          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2074          (void) (*Lnk107)();          (void) (*Lnk107)();
# Line 2084  register object *base0; Line 2086  register object *base0;
2086  {       register object *base=vs_base;  {       register object *base=vs_base;
2087          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
2088          vs_check;          vs_check;
2089          {object V287;          {object V289;
2090          object V288;          object V290;
2091          check_arg(2);          check_arg(2);
2092          V287=(base[0]);          V289=(base[0]);
2093          V288=(base[1]);          V290=(base[1]);
2094          vs_top=sup;          vs_top=sup;
2095          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
2096          base[3]= VV[55];          base[3]= VV[55];
# Line 2100  register object *base0; Line 2102  register object *base0;
2102          base[2]= STREF(object,(base0[0]->c.c_car),0);          base[2]= STREF(object,(base0[0]->c.c_car),0);
2103          base[3]= STREF(object,(base0[0]->c.c_car),4);          base[3]= STREF(object,(base0[0]->c.c_car),4);
2104          base[4]= STREF(object,(base0[0]->c.c_car),8);          base[4]= STREF(object,(base0[0]->c.c_car),8);
2105          base[5]= (V287);          base[5]= (V289);
2106          base[6]= (base0[2]->c.c_car);          base[6]= (base0[2]->c.c_car);
2107          base[7]= (V288);          base[7]= (V290);
2108          base[8]= (base0[1]->c.c_car);          base[8]= (base0[1]->c.c_car);
2109          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
2110          {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))
# Line 2112  register object *base0; Line 2114  register object *base0;
2114          return;          return;
2115          goto T676;          goto T676;
2116  T676:;  T676:;
2117          {register object V289;          {register object V291;
2118          V289= (base0[0]->c.c_car);          V291= (base0[0]->c.c_car);
2119          base[2]= (V289);          base[2]= (V291);
2120          base[3]= VV[56];          base[3]= VV[56];
2121          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2122          (void) (*Lnk128)();          (void) (*Lnk128)();
2123          vs_top=sup;          vs_top=sup;
2124          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2125          goto T688;}          goto T688;}
2126          {object V290;          {object V292;
2127          object V291;          object V293;
2128          register object V292;          register object V294;
2129          V290= STREF(object,(base0[0]->c.c_car),0);          V292= STREF(object,(base0[0]->c.c_car),0);
2130          V291= list(4,(V287),(base0[2]->c.c_car),(V288),(base0[1]->c.c_car));          V293= list(4,(V289),(base0[2]->c.c_car),(V290),(base0[1]->c.c_car));
2131          V292= STREF(object,(base0[0]->c.c_car),4);          V294= STREF(object,(base0[0]->c.c_car),4);
2132          if(((V292))==Cnil){          if(((V294))==Cnil){
2133          goto T696;}          goto T696;}
2134          if((CMPcdr((V292)))!=Cnil){          if((CMPcdr((V294)))!=Cnil){
2135          goto T696;}          goto T696;}
2136          base[2]= (V291);          base[2]= (V293);
2137          base[3]= CMPcar((V292));          base[3]= CMPcar((V294));
2138          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2139          {object _funobj = (V290);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V292);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2140                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2141                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2142                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2143          return;          return;
2144          goto T696;          goto T696;
2145  T696:;  T696:;
2146          base[2]= (V290);          base[2]= (V292);
2147          base[3]= (V291);          base[3]= (V293);
2148          {object V293;          {object V295;
2149          V293= (V292);          V295= (V294);
2150           vs_top=base+4;           vs_top=base+4;
2151           while(V293!=Cnil)           while(V295!=Cnil)
2152           {vs_push((V293)->c.c_car);V293=(V293)->c.c_cdr;}           {vs_push((V295)->c.c_car);V295=(V295)->c.c_cdr;}
2153          vs_base=base+3;}          vs_base=base+3;}
2154          {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))
2155                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2156  T696:; Line 2158  T696:;
2158          return;}          return;}
2159          goto T688;          goto T688;
2160  T688:;  T688:;
2161          base[2]= (V289);          base[2]= (V291);
2162          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2163          Lfunctionp();          Lfunctionp();
2164          vs_top=sup;          vs_top=sup;
2165          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2166          goto T706;}          goto T706;}
2167          base[2]= (V287);          base[2]= (V289);
2168          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
2169          base[4]= (V288);          base[4]= (V290);
2170          base[5]= (base0[1]->c.c_car);          base[5]= (base0[1]->c.c_car);
2171          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
2172          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
# Line 2175  T688:; Line 2177  T688:;
2177          goto T706;          goto T706;
2178  T706:;  T706:;
2179          base[3]= VV[57];          base[3]= VV[57];
2180          base[4]= (V289);          base[4]= (V291);
2181          base[5]= VV[59];          base[5]= VV[59];
2182          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2183          (void) (*Lnk107)();          (void) (*Lnk107)();
# Line 2193  register object *base0; Line 2195  register object *base0;
2195  {       register object *base=vs_base;  {       register object *base=vs_base;
2196          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2197          vs_check;          vs_check;
2198          {object V294;          {object V296;
2199          check_arg(1);          check_arg(1);
2200          V294=(base[0]);          V296=(base[0]);
2201          vs_top=sup;          vs_top=sup;
2202          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
2203          base[2]= VV[55];          base[2]= VV[55];
# Line 2208  register object *base0; Line 2210  register object *base0;
2210          base[2]= STREF(object,(base0[0]->c.c_car),4);          base[2]= STREF(object,(base0[0]->c.c_car),4);
2211          base[3]= STREF(object,(base0[0]->c.c_car),8);          base[3]= STREF(object,(base0[0]->c.c_car),8);
2212          base[4]= (base0[2]->c.c_car);          base[4]= (base0[2]->c.c_car);
2213          base[5]= (V294);          base[5]= (V296);
2214          base[6]= (base0[1]->c.c_car);          base[6]= (base0[1]->c.c_car);
2215          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
2216          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
# Line 2218  register object *base0; Line 2220  register object *base0;
2220          return;          return;
2221          goto T719;          goto T719;
2222  T719:;  T719:;
2223          {register object V295;          {register object V297;
2224          V295= (base0[0]->c.c_car);          V297= (base0[0]->c.c_car);
2225          base[1]= (V295);          base[1]= (V297);
2226          base[2]= VV[56];          base[2]= VV[56];
2227          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2228          (void) (*Lnk128)();          (void) (*Lnk128)();
2229          vs_top=sup;          vs_top=sup;
2230          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2231          goto T730;}          goto T730;}
2232          {object V296;          {object V298;
2233          object V297;          object V299;
2234          register object V298;          register object V300;
2235          V296= STREF(object,(base0[0]->c.c_car),0);          V298= STREF(object,(base0[0]->c.c_car),0);
2236          V297= list(3,(base0[2]->c.c_car),(V294),(base0[1]->c.c_car));          V299= list(3,(base0[2]->c.c_car),(V296),(base0[1]->c.c_car));
2237          V298= STREF(object,(base0[0]->c.c_car),4);          V300= STREF(object,(base0[0]->c.c_car),4);
2238          if(((V298))==Cnil){          if(((V300))==Cnil){
2239          goto T738;}          goto T738;}
2240          if((CMPcdr((V298)))!=Cnil){          if((CMPcdr((V300)))!=Cnil){
2241          goto T738;}          goto T738;}
2242          base[1]= (V297);          base[1]= (V299);
2243          base[2]= CMPcar((V298));          base[2]= CMPcar((V300));
2244          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2245          {object _funobj = (V296);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V298);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2246                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2247                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2248                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2249          return;          return;
2250          goto T738;          goto T738;
2251  T738:;  T738:;
2252          base[1]= (V296);          base[1]= (V298);
2253          base[2]= (V297);          base[2]= (V299);
2254          {object V299;          {object V301;
2255          V299= (V298);          V301= (V300);
2256           vs_top=base+3;           vs_top=base+3;
2257           while(V299!=Cnil)           while(V301!=Cnil)
2258           {vs_push((V299)->c.c_car);V299=(V299)->c.c_cdr;}           {vs_push((V301)->c.c_car);V301=(V301)->c.c_cdr;}
2259          vs_base=base+2;}          vs_base=base+2;}
2260          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2261                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2262  T738:; Line 2264  T738:;
2264          return;}          return;}
2265          goto T730;          goto T730;
2266  T730:;  T730:;
2267          base[1]= (V295);          base[1]= (V297);
2268          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2269          Lfunctionp();          Lfunctionp();
2270          vs_top=sup;          vs_top=sup;
2271          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2272          goto T748;}          goto T748;}
2273          base[1]= (base0[2]->c.c_car);          base[1]= (base0[2]->c.c_car);
2274          base[2]= (V294);          base[2]= (V296);
2275          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
2276          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2277          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
# Line 2280  T730:; Line 2282  T730:;
2282          goto T748;          goto T748;
2283  T748:;  T748:;
2284          base[2]= VV[57];          base[2]= VV[57];
2285          base[3]= (V295);          base[3]= (V297);
2286          base[4]= VV[58];          base[4]= VV[58];
2287          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2288          (void) (*Lnk107)();          (void) (*Lnk107)();
# Line 2298  register object *base0; Line 2300  register object *base0;
2300  {       register object *base=vs_base;  {       register object *base=vs_base;
2301          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
2302          vs_check;          vs_check;
2303          {object V300;          {object V302;
2304          object V301;          object V303;
2305          object V302;          object V304;
2306          check_arg(3);          check_arg(3);
2307          V300=(base[0]);          V302=(base[0]);
2308          V301=(base[1]);          V303=(base[1]);
2309          V302=(base[2]);          V304=(base[2]);
2310          vs_top=sup;{object V303;          vs_top=sup;{object V305;
2311          V303= (VV[35]->s.s_dbind);          V305= (VV[35]->s.s_dbind);
2312          base[3]= ((((V303)==(CMPcdr((base0[0]->c.c_car)))?Ct:Cnil))==Cnil?Ct:Cnil);          base[3]= ((((V305)==(CMPcdr((base0[0]->c.c_car)))?Ct:Cnil))==Cnil?Ct:Cnil);
2313          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2314          return;}          return;}
2315          }          }
# Line 2319  register object *base0; Line 2321  register object *base0;
2321  {       register object *base=vs_base;  {       register object *base=vs_base;
2322          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
2323          vs_check;          vs_check;
2324          {object V304;          {object V306;
2325          object V305;          object V307;
2326          object V306;          object V308;
2327          check_arg(3);          check_arg(3);
2328          V304=(base[0]);          V306=(base[0]);
2329          V305=(base[1]);          V307=(base[1]);
2330          V306=(base[2]);          V308=(base[2]);
2331          vs_top=sup;{object V307;          vs_top=sup;{object V309;
2332          V307= (VV[35]->s.s_dbind);          V309= (VV[35]->s.s_dbind);
2333          base[3]= ((((V307)==((STREF(object,(V305),4))->v.v_self[fix((base0[0]->c.c_car))])?Ct:Cnil))==Cnil?Ct:Cnil);          base[3]= ((((V309)==((STREF(object,(V307),4))->v.v_self[fix((base0[0]->c.c_car))])?Ct:Cnil))==Cnil?Ct:Cnil);
2334          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2335          return;}          return;}
2336          }          }
# Line 2340  register object *base0; Line 2342  register object *base0;
2342  {       register object *base=vs_base;  {       register object *base=vs_base;
2343          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
2344          vs_check;          vs_check;
2345          {object V308;          {object V310;
2346          object V309;          object V311;
2347          object V310;          object V312;
2348          check_arg(3);          check_arg(3);
2349          V308=(base[0]);          V310=(base[0]);
2350          V309=(base[1]);          V311=(base[1]);
2351          V310=(base[2]);          V312=(base[2]);
2352          vs_top=sup;{object V311;          vs_top=sup;{object V313;
2353          V311= (VV[35]->s.s_dbind);          V313= (VV[35]->s.s_dbind);
2354          base[3]= ((((V311)==((CMPcar(((V309))->cc.cc_turbo[12]))->v.v_self[fix((base0[0]->c.c_car))])?Ct:Cnil))==Cnil?Ct:Cnil);          base[3]= ((((V313)==((CMPcar(((V311))->cc.cc_turbo[12]))->v.v_self[fix((base0[0]->c.c_car))])?Ct:Cnil))==Cnil?Ct:Cnil);
2355          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2356          return;}          return;}
2357          }          }
# Line 2361  register object *base0; Line 2363  register object *base0;
2363  {       register object *base=vs_base;  {       register object *base=vs_base;
2364          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
2365          vs_check;          vs_check;
2366          {object V312;          {object V314;
         object V313;  
         object V314;  
2367          object V315;          object V315;
2368            object V316;
2369            object V317;
2370          check_arg(4);          check_arg(4);
2371          V312=(base[0]);          V314=(base[0]);
2372          V313=(base[1]);          V315=(base[1]);
2373          V314=(base[2]);          V316=(base[2]);
2374          V315=(base[3]);          V317=(base[3]);
2375          vs_top=sup;          vs_top=sup;
2376          {object V316;          {object V318;
2377          V316= (base0[0]->c.c_car);          V318= (base0[0]->c.c_car);
2378          ((V316))->c.c_cdr = V312;          ((V318))->c.c_cdr = V314;
2379          base[4]= V312;          base[4]= V314;
2380          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2381          return;}          return;}
2382          }          }
# Line 2386  register object *base0; Line 2388  register object *base0;
2388  {       register object *base=vs_base;  {       register object *base=vs_base;
2389          register object *sup=base+VM41; VC41          register object *sup=base+VM41; VC41
2390          vs_check;          vs_check;
2391          {object V318;          {object V320;
         object V319;  
         object V320;  
2392          object V321;          object V321;
2393            object V322;
2394            object V323;
2395          check_arg(4);          check_arg(4);
2396          V318=(base[0]);          V320=(base[0]);
2397          V319=(base[1]);          V321=(base[1]);
2398          V320=(base[2]);          V322=(base[2]);
2399          V321=(base[3]);          V323=(base[3]);
2400          vs_top=sup;          vs_top=sup;
2401          base[4]= (STREF(object,(V320),4))->v.v_self[fix((base0[0]->c.c_car))]= ((V318));          base[4]= (STREF(object,(V322),4))->v.v_self[fix((base0[0]->c.c_car))]= ((V320));
2402          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2403          return;          return;
2404          }          }
# Line 2408  register object *base0; Line 2410  register object *base0;
2410  {       register object *base=vs_base;  {       register object *base=vs_base;
2411          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
2412          vs_check;          vs_check;
2413          {object V322;          {object V324;
         object V323;  
         object V324;  
2414          object V325;          object V325;
2415            object V326;
2416            object V327;
2417          check_arg(4);          check_arg(4);
2418          V322=(base[0]);          V324=(base[0]);
2419          V323=(base[1]);          V325=(base[1]);
2420          V324=(base[2]);          V326=(base[2]);
2421          V325=(base[3]);          V327=(base[3]);
2422          vs_top=sup;          vs_top=sup;
2423          base[4]= (CMPcar(((V324))->cc.cc_turbo[12]))->v.v_self[fix((base0[0]->c.c_car))]= ((V322));          base[4]= (CMPcar(((V326))->cc.cc_turbo[12]))->v.v_self[fix((base0[0]->c.c_car))]= ((V324));
2424          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2425          return;          return;
2426          }          }
# Line 2430  register object *base0; Line 2432  register object *base0;
2432  {       register object *base=vs_base;  {       register object *base=vs_base;
2433          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
2434          vs_check;          vs_check;
2435          {object V326;          {object V328;
2436          object V327;          object V329;
2437          object V328;          object V330;
2438          check_arg(3);          check_arg(3);
2439          V326=(base[0]);          V328=(base[0]);
2440          V327=(base[1]);          V329=(base[1]);
2441          V328=(base[2]);          V330=(base[2]);
2442          vs_top=sup;          vs_top=sup;
2443          {object V329;          {object V331;
2444          V329= CMPcdr((base0[1]->c.c_car));          V331= CMPcdr((base0[1]->c.c_car));
2445          if(!(((V329))==((VV[35]->s.s_dbind)))){          if(!(((V331))==((VV[35]->s.s_dbind)))){
2446          goto T762;}          goto T762;}
2447          base[3]= (V326);          base[3]= (V328);
2448          base[4]= (V327);          base[4]= (V329);
2449          base[5]= (base0[0]->c.c_car);          base[5]= (base0[0]->c.c_car);
2450          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2451          (void) (*Lnk127)(Lclptr127);          (void) (*Lnk127)(Lclptr127);
2452          return;          return;
2453          goto T762;          goto T762;
2454  T762:;  T762:;
2455          base[3]= (V329);          base[3]= (V331);
2456          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2457          return;}          return;}
2458          }          }
# Line 2462  register object *base0; Line 2464  register object *base0;
2464  {       register object *base=vs_base;  {       register object *base=vs_base;
2465          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
2466          vs_check;          vs_check;
2467          {object V330;          {object V332;
2468          register object V331;          register object V333;
2469          object V332;          object V334;
2470          check_arg(3);          check_arg(3);
2471          V330=(base[0]);          V332=(base[0]);
2472          V331=(base[1]);          V333=(base[1]);
2473          V332=(base[2]);          V334=(base[2]);
2474          vs_top=sup;          vs_top=sup;
2475          if(type_of(V331)==t_structure){          if(type_of(V333)==t_structure){
2476          goto T770;}          goto T770;}
2477          goto T769;          goto T769;
2478          goto T770;          goto T770;
2479  T770:;  T770:;
2480          if(((V331)->str.str_def)==(VV[49])){          if(((V333)->str.str_def)==(VV[49])){
2481          goto T767;}          goto T767;}
2482          goto T769;          goto T769;
2483  T769:;  T769:;
# Line 2485  T769:; Line 2487  T769:;
2487          vs_top=sup;          vs_top=sup;
2488          goto T767;          goto T767;
2489  T767:;  T767:;
2490          {object V334;          {object V336;
2491          V334= (STREF(object,(V331),4))->v.v_self[fix((base0[1]->c.c_car))];          V336= (STREF(object,(V333),4))->v.v_self[fix((base0[1]->c.c_car))];
2492          if(!(((V334))==((VV[35]->s.s_dbind)))){          if(!(((V336))==((VV[35]->s.s_dbind)))){
2493          goto T775;}          goto T775;}
2494          base[3]= (V330);          base[3]= (V332);
2495          base[4]= (V331);          base[4]= (V333);
2496          base[5]= (base0[0]->c.c_car);          base[5]= (base0[0]->c.c_car);
2497          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2498          (void) (*Lnk127)(Lclptr127);          (void) (*Lnk127)(Lclptr127);
2499          return;          return;
2500          goto T775;          goto T775;
2501  T775:;  T775:;
2502          base[3]= (V334);          base[3]= (V336);
2503          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2504          return;}          return;}
2505          }          }
# Line 2509  register object *base0; Line 2511  register object *base0;
2511  {       register object *base=vs_base;  {       register object *base=vs_base;
2512          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
2513          vs_check;          vs_check;
2514          {object V335;          {object V337;
2515          object V336;          object V338;
2516          object V337;          object V339;
2517          check_arg(3);          check_arg(3);
2518          V335=(base[0]);          V337=(base[0]);
2519          V336=(base[1]);          V338=(base[1]);
2520          V337=(base[2]);          V339=(base[2]);
2521          vs_top=sup;{object V338;          vs_top=sup;{object V340;
2522          V338= (VV[44]->s.s_dbind);          V340= (VV[44]->s.s_dbind);
2523          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2524          base[4]= (V336);          base[4]= (V338);
2525          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2526          (void) (*Lnk121)();          (void) (*Lnk121)();
2527          vs_top=sup;          vs_top=sup;
2528          V339= vs_base[0];          V341= vs_base[0];
2529          if((V338)==(CMPcar(V339))){          if((V340)==(CMPcar(V341))){
2530          goto T780;}}          goto T780;}}
2531          base[3]= VV[45];          base[3]= VV[45];
2532          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2532  register object *base0; Line 2534  register object *base0;
2534          vs_top=sup;          vs_top=sup;
2535          goto T780;          goto T780;
2536  T780:;  T780:;
2537          {object V340;          {object V342;
2538          V340= (CMPcar(((V336))->cc.cc_turbo[12]))->v.v_self[fix((base0[1]->c.c_car))];          V342= (CMPcar(((V338))->cc.cc_turbo[12]))->v.v_self[fix((base0[1]->c.c_car))];
2539          if(!(((V340))==((VV[35]->s.s_dbind)))){          if(!(((V342))==((VV[35]->s.s_dbind)))){
2540          goto T789;}          goto T789;}
2541          base[3]= (V335);          base[3]= (V337);
2542          base[4]= (V336);          base[4]= (V338);
2543          base[5]= (base0[0]->c.c_car);          base[5]= (base0[0]->c.c_car);
2544          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2545          (void) (*Lnk127)(Lclptr127);          (void) (*Lnk127)(Lclptr127);
2546          return;          return;
2547          goto T789;          goto T789;
2548  T789:;  T789:;
2549          base[3]= (V340);          base[3]= (V342);
2550          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2551          return;}          return;}
2552          }          }
# Line 2556  register object *base0; Line 2558  register object *base0;
2558  {       register object *base=vs_base;  {       register object *base=vs_base;
2559          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
2560          vs_check;          vs_check;
2561          {object V341;          {object V343;
2562          object V342;          object V344;
2563          object V343;          object V345;
2564          check_arg(3);          check_arg(3);
2565          V341=(base[0]);          V343=(base[0]);
2566          V342=(base[1]);          V344=(base[1]);
2567          V343=(base[2]);          V345=(base[2]);
2568          vs_top=sup;          vs_top=sup;
2569          base[3]= (V342);          base[3]= (V344);
2570          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2571          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2572                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2573                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2574                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2575          vs_top=sup;          vs_top=sup;
2576          V344= vs_base[0];          V346= vs_base[0];
2577          base[3]= ((((V344)==((VV[35]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);          V347 = (VV[35]->s.s_dbind);
2578            base[3]= ((((V346)==(V347)?Ct:Cnil))==Cnil?Ct:Cnil);
2579          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2580          return;          return;
2581          }          }
# Line 2584  register object *base0; Line 2587  register object *base0;
2587  {       register object *base=vs_base;  {       register object *base=vs_base;
2588          register object *sup=base+VM47; VC47          register object *sup=base+VM47; VC47
2589          vs_check;          vs_check;
2590          {object V345;          {object V348;
2591          object V346;          object V349;
2592          object V347;          object V350;
2593          object V348;          object V351;
2594          check_arg(4);          check_arg(4);
2595          V345=(base[0]);          V348=(base[0]);
2596          V346=(base[1]);          V349=(base[1]);
2597          V347=(base[2]);          V350=(base[2]);
2598          V348=(base[3]);          V351=(base[3]);
2599          vs_top=sup;          vs_top=sup;
2600          base[4]= (V345);          base[4]= (V348);
2601          base[5]= (V347);          base[5]= (V350);
2602          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2603          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2604                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2611  register object *base0; Line 2614  register object *base0;
2614  {       register object *base=vs_base;  {       register object *base=vs_base;
2615          register object *sup=base+VM48; VC48          register object *sup=base+VM48; VC48
2616          vs_check;          vs_check;
2617          {object V349;          {object V352;
2618          object V350;          object V353;
2619          object V351;          object V354;
2620          check_arg(3);          check_arg(3);
2621          V349=(base[0]);          V352=(base[0]);
2622          V350=(base[1]);          V353=(base[1]);
2623          V351=(base[2]);          V354=(base[2]);
2624          vs_top=sup;          vs_top=sup;
2625          {object V352;          {object V355;
2626          V352= (          V355= (
2627          (type_of((base0[0]->c.c_car)) == t_sfun ?(*(((base0[0]->c.c_car))->sfn.sfn_self)):          (type_of((base0[0]->c.c_car)) == t_sfun ?(*(((base0[0]->c.c_car))->sfn.sfn_self)):
2628          (fcall.argd=1,type_of((base0[0]->c.c_car))==t_vfun) ?          (fcall.argd=1,type_of((base0[0]->c.c_car))==t_vfun) ?
2629          (*(((base0[0]->c.c_car))->sfn.sfn_self)):          (*(((base0[0]->c.c_car))->sfn.sfn_self)):
2630          (fcall.fun=((base0[0]->c.c_car)),fcalln))((V350)));          (fcall.fun=((base0[0]->c.c_car)),fcalln))((V353)));
2631          if(!(((V352))==((VV[35]->s.s_dbind)))){          if(!(((V355))==((VV[35]->s.s_dbind)))){
2632          goto T800;}          goto T800;}
2633          base[3]= (V349);          base[3]= (V352);
2634          base[4]= (V350);          base[4]= (V353);
2635          base[6]= (V351);          base[6]= (V354);
2636          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
2637          (void) (*Lnk102)(Lclptr102);          (void) (*Lnk102)(Lclptr102);
2638          vs_top=sup;          vs_top=sup;
# Line 2639  register object *base0; Line 2642  register object *base0;
2642          return;          return;
2643          goto T800;          goto T800;
2644  T800:;  T800:;
2645          base[3]= (V352);          base[3]= (V355);
2646          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2647          return;}          return;}
2648          }          }
# Line 2651  register object *base0; Line 2654  register object *base0;
2654  {       register object *base=vs_base;  {       register object *base=vs_base;
2655          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
2656          vs_check;          vs_check;
2657          {object V353;          {object V356;
2658          check_arg(1);          check_arg(1);
2659          V353=(base[0]);          V356=(base[0]);
2660          vs_top=sup;{object V354;          vs_top=sup;{object V357;
2661          V354= (VV[35]->s.s_dbind);          V357= (VV[35]->s.s_dbind);
2662          base[1]= ((((V354)==(CMPcdr((base0[0]->c.c_car)))?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= ((((V357)==(CMPcdr((base0[0]->c.c_car)))?Ct:Cnil))==Cnil?Ct:Cnil);
2663          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2664          return;}          return;}
2665          }          }
# Line 2668  register object *base0; Line 2671  register object *base0;
2671  {       register object *base=vs_base;  {       register object *base=vs_base;
2672          register object *sup=base+VM50; VC50          register object *sup=base+VM50; VC50
2673          vs_check;          vs_check;
2674          {object V355;          {object V358;
2675          check_arg(1);          check_arg(1);
2676          V355=(base[0]);          V358=(base[0]);
2677          vs_top=sup;{object V356;          vs_top=sup;{object V359;
2678          V356= (VV[35]->s.s_dbind);          V359= (VV[35]->s.s_dbind);
2679          base[1]= ((((V356)==((STREF(object,(V355),4))->v.v_self[fix((base0[0]->c.c_car))])?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= ((((V359)==((STREF(object,(V358),4))->v.v_self[fix((base0[0]->c.c_car))])?Ct:Cnil))==Cnil?Ct:Cnil);
2680          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2681          return;}          return;}
2682          }          }
# Line 2685  register object *base0; Line 2688  register object *base0;
2688  {       register object *base=vs_base;  {       register object *base=vs_base;
2689          register object *sup=base+VM51; VC51          register object *sup=base+VM51; VC51
2690          vs_check;          vs_check;
2691          {object V357;          {object V360;
2692          check_arg(1);          check_arg(1);
2693          V357=(base[0]);          V360=(base[0]);
2694          vs_top=sup;{object V358;          vs_top=sup;{object V361;
2695          V358= (VV[35]->s.s_dbind);          V361= (VV[35]->s.s_dbind);
2696          base[1]= ((((V358)==((CMPcar(((V357))->cc.cc_turbo[12]))->v.v_self[fix((base0[0]->c.c_car))])?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= ((((V361)==((CMPcar(((V360))->cc.cc_turbo[12]))->v.v_self[fix((base0[0]->c.c_car))])?Ct:Cnil))==Cnil?Ct:Cnil);
2697          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2698          return;}          return;}
2699          }          }
# Line 2702  register object *base0; Line 2705  register object *base0;
2705  {       register object *base=vs_base;  {       register object *base=vs_base;
2706          register object *sup=base+VM52; VC52          register object *sup=base+VM52; VC52
2707          vs_check;          vs_check;
2708          {object V359;          {object V362;
2709          object V360;          object V363;
2710          check_arg(2);          check_arg(2);
2711          V359=(base[0]);          V362=(base[0]);
2712          V360=(base[1]);          V363=(base[1]);
2713          vs_top=sup;          vs_top=sup;
2714          {object V361;          {object V364;
2715          V361= (base0[0]->c.c_car);          V364= (base0[0]->c.c_car);
2716          ((V361))->c.c_cdr = V359;          ((V364))->c.c_cdr = V362;
2717          base[2]= V359;          base[2]= V362;
2718          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2719          return;}          return;}
2720          }          }
# Line 2723  register object *base0; Line 2726  register object *base0;
2726  {       register object *base=vs_base;  {       register object *base=vs_base;
2727          register object *sup=base+VM53; VC53          register object *sup=base+VM53; VC53
2728          vs_check;          vs_check;
2729          {object V363;          {object V366;
2730          object V364;          object V367;
2731          check_arg(2);          check_arg(2);
2732          V363=(base[0]);          V366=(base[0]);
2733          V364=(base[1]);          V367=(base[1]);
2734          vs_top=sup;          vs_top=sup;
2735          base[2]= (STREF(object,(V364),4))->v.v_self[fix((base0[0]->c.c_car))]= ((V363));          base[2]= (STREF(object,(V367),4))->v.v_self[fix((base0[0]->c.c_car))]= ((V366));
2736          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2737          return;          return;
2738          }          }
# Line 2741  register object *base0; Line 2744  register object *base0;
2744  {       register object *base=vs_base;  {       register object *base=vs_base;
2745          register object *sup=base+VM54; VC54          register object *sup=base+VM54; VC54
2746          vs_check;          vs_check;
2747          {object V365;          {object V368;
2748          object V366;          object V369;
2749          check_arg(2);          check_arg(2);
2750          V365=(base[0]);          V368=(base[0]);
2751          V366=(base[1]);          V369=(base[1]);
2752          vs_top=sup;          vs_top=sup;
2753          base[2]= (CMPcar(((V366))->cc.cc_turbo[12]))->v.v_self[fix((base0[0]->c.c_car))]= ((V365));          base[2]= (CMPcar(((V369))->cc.cc_turbo[12]))->v.v_self[fix((base0[0]->c.c_car))]= ((V368));
2754          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2755          return;          return;
2756          }          }
# Line 2759  register object *base0; Line 2762  register object *base0;
2762  {       register object *base=vs_base;  {       register object *base=vs_base;
2763          register object *sup=base+VM55; VC55          register object *sup=base+VM55; VC55
2764          vs_check;          vs_check;
2765          {object V367;          {object V370;
2766          check_arg(1);          check_arg(1);
2767          V367=(base[0]);          V370=(base[0]);
2768          vs_top=sup;          vs_top=sup;
2769          {object V368;          {object V371;
2770          V368= CMPcdr((base0[0]->c.c_car));          V371= CMPcdr((base0[0]->c.c_car));
2771          if(!(((V368))==((VV[35]->s.s_dbind)))){          if(!(((V371))==((VV[35]->s.s_dbind)))){
2772          goto T810;}          goto T810;}
2773          base[1]= (*(LnkLI126))((V367));          base[1]= (*(LnkLI126))((V370));
2774          base[2]= (V367);          base[2]= (V370);
2775          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
2776          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2777          (void) (*Lnk127)(Lclptr127);          (void) (*Lnk127)(Lclptr127);
2778          return;          return;
2779          goto T810;          goto T810;
2780  T810:;  T810:;
2781          base[1]= (V368);          base[1]= (V371);
2782          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2783          return;}          return;}
2784          }          }
# Line 2787  register object *base0; Line 2790  register object *base0;
2790  {       register object *base=vs_base;  {       register object *base=vs_base;
2791          register object *sup=base+VM56; VC56          register object *sup=base+VM56; VC56
2792          vs_check;          vs_check;
2793          {object V369;          {object V372;
2794          check_arg(1);          check_arg(1);
2795          V369=(base[0]);          V372=(base[0]);
2796          vs_top=sup;          vs_top=sup;
2797          {object V370;          {object V373;
2798          V370= (STREF(object,(V369),4))->v.v_self[fix((base0[0]->c.c_car))];          V373= (STREF(object,(V372),4))->v.v_self[fix((base0[0]->c.c_car))];
2799          if(!(((V370))==((VV[35]->s.s_dbind)))){          if(!(((V373))==((VV[35]->s.s_dbind)))){
2800          goto T817;}          goto T817;}
2801          base[1]= (*(LnkLI126))((V369));          base[1]= (*(LnkLI126))((V372));
2802          base[2]= (V369);          base[2]= (V372);
2803          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
2804          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2805          (void) (*Lnk127)(Lclptr127);          (void) (*Lnk127)(Lclptr127);
2806          return;          return;
2807          goto T817;          goto T817;
2808  T817:;  T817:;
2809          base[1]= (V370);          base[1]= (V373);
2810          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2811          return;}          return;}
2812          }          }
# Line 2815  register object *base0; Line 2818  register object *base0;
2818  {       register object *base=vs_base;  {       register object *base=vs_base;
2819          register object *sup=base+VM57; VC57          register object *sup=base+VM57; VC57
2820          vs_check;          vs_check;
2821          {object V371;          {object V374;
2822          check_arg(1);          check_arg(1);
2823          V371=(base[0]);          V374=(base[0]);
2824          vs_top=sup;          vs_top=sup;
2825          {object V372;          {object V375;
2826          V372= (CMPcar(((V371))->cc.cc_turbo[12]))->v.v_self[fix((base0[0]->c.c_car))];          V375= (CMPcar(((V374))->cc.cc_turbo[12]))->v.v_self[fix((base0[0]->c.c_car))];
2827          if(!(((V372))==((VV[35]->s.s_dbind)))){          if(!(((V375))==((VV[35]->s.s_dbind)))){
2828          goto T824;}          goto T824;}
2829          base[1]= (*(LnkLI126))((V371));          base[1]= (*(LnkLI126))((V374));
2830          base[2]= (V371);          base[2]= (V374);
2831          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
2832          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2833          (void) (*Lnk127)(Lclptr127);          (void) (*Lnk127)(Lclptr127);
2834          return;          return;
2835          goto T824;          goto T824;
2836  T824:;  T824:;
2837          base[1]= (V372);          base[1]= (V375);
2838          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2839          return;}          return;}
2840          }          }
# Line 2843  register object *base0; Line 2846  register object *base0;
2846  {       register object *base=vs_base;  {       register object *base=vs_base;
2847          register object *sup=base+VM58; VC58          register object *sup=base+VM58; VC58
2848          vs_check;          vs_check;
2849          {object V373;          {object V376;
2850          check_arg(1);          check_arg(1);
2851          V373=(base[0]);          V376=(base[0]);
2852          vs_top=sup;          vs_top=sup;
2853          base[1]= (V373);          base[1]= (V376);
2854          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2855          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2856                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2857                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2858                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2859          vs_top=sup;          vs_top=sup;
2860          V374= vs_base[0];          V377= vs_base[0];
2861          base[1]= ((((V374)==((VV[35]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);          V378 = (VV[35]->s.s_dbind);
2862            base[1]= ((((V377)==(V378)?Ct:Cnil))==Cnil?Ct:Cnil);
2863          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2864          return;          return;
2865          }          }

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

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