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

Diff of /gcl/pcl/pcl_dlisp2.c

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

revision 1.2 by camm, Tue Jul 15 18:03:38 2003 UTC revision 1.3 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 1088  T380:; Line 1088  T380:;
1088          goto T379;          goto T379;
1089          goto T377;          goto T377;
1090  T377:;  T377:;
1091          {object V134;          V133 = V127;
1092          V134= ((V118))->v.v_self[0];          {object V135;
1093          if(type_of((V134))==t_fixnum){          V135= ((V118))->v.v_self[0];
1094            if(type_of((V135))==t_fixnum){
1095          goto T418;}          goto T418;}
1096          base[2]= VV[15];          base[2]= VV[15];
1097          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1098  T377:; Line 1099  T377:;
1099          vs_top=sup;          vs_top=sup;
1100          goto T418;          goto T418;
1101  T418:;  T418:;
1102          V133= fix((V134));}          V134= fix((V135));}
1103          if((V127)==(V133)){          if((V133)==(V134)){
1104          goto T364;}          goto T364;}
1105          goto T342;}}          goto T342;}}
1106          goto T364;          goto T364;
# Line 1145  register object *base0; Line 1146  register object *base0;
1146  {       register object *base=vs_base;  {       register object *base=vs_base;
1147          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1148          vs_check;          vs_check;
1149          {object V135;          {object V136;
1150          object V136;          object V137;
1151          check_arg(2);          check_arg(2);
1152          V135=(base[0]);          V136=(base[0]);
1153          V136=(base[1]);          V137=(base[1]);
1154          vs_top=sup;          vs_top=sup;
1155          {object V137;          {object V138;
1156          V137= Cnil;          V138= Cnil;
1157          {long V138;          {long V139;
1158          object V139;          object V140;
         long V140;  
1159          long V141;          long V141;
1160          object V142;          long V142;
1161          object V143;          object V143;
1162          V138= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          object V144;
1163          V139= STREF(object,(base0[1]->c.c_car),40);          V139= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
1164          V140= (long)STREF(fixnum,(base0[1]->c.c_car),24);          V140= STREF(object,(base0[1]->c.c_car),40);
1165          V141= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V141= (long)STREF(fixnum,(base0[1]->c.c_car),24);
1166          V142= STREF(object,(base0[1]->c.c_car),44);          V142= (long)STREF(fixnum,(base0[1]->c.c_car),28);
1167          if(type_of(V136)==t_structure){          V143= STREF(object,(base0[1]->c.c_car),44);
1168            if(type_of(V137)==t_structure){
1169          goto T436;}          goto T436;}
1170          goto T434;          goto T434;
1171          goto T436;          goto T436;
1172  T436:;  T436:;
1173          if(!(((V136)->str.str_def)==(VV[19]))){          if(!(((V137)->str.str_def)==(VV[19]))){
1174          goto T434;}          goto T434;}
1175          V143= STREF(object,(V136),0);          V144= STREF(object,(V137),0);
1176          goto T432;          goto T432;
1177          goto T434;          goto T434;
1178  T434:;{object V145;  T434:;{object V146;
1179          V145= (VV[3]->s.s_dbind);          V146= (VV[3]->s.s_dbind);
1180          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
1181          base[3]= (V136);          base[3]= (V137);
1182          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1183          (void) (*Lnk55)();          (void) (*Lnk55)();
1184          vs_top=sup;          vs_top=sup;
1185          V146= vs_base[0];          V147= vs_base[0];
1186          if(!((V145)==(CMPcar(V146)))){          if(!((V146)==(CMPcar(V147)))){
1187          goto T439;}}          goto T439;}}
1188          V143= CMPcar(((V136))->cc.cc_turbo[13]);          V144= CMPcar(((V137))->cc.cc_turbo[13]);
1189          goto T432;          goto T432;
1190          goto T439;          goto T439;
1191  T439:;  T439:;
1192          goto T426;          goto T426;
1193          goto T432;          goto T432;
1194  T432:;  T432:;
1195          {long V147;          {long V148;
1196          long V148;          long V149;
1197          {long V149;          {long V150;
1198          V149= fix(((V143))->v.v_self[V138]);          V150= fix(((V144))->v.v_self[V139]);
1199          if(!((V149)==0)){          if(!((V150)==0)){
1200          goto T447;}          goto T447;}
1201          goto T426;          goto T426;
1202          goto T447;          goto T447;
1203  T447:;  T447:;
1204          V147= (long)((V140) & (V149));}          V148= (long)((V141) & (V150));}
1205          {object V150;          {object V151;
1206          V150= ((V139))->v.v_self[0];          V151= ((V140))->v.v_self[0];
1207          if(type_of((V150))==t_fixnum){          if(type_of((V151))==t_fixnum){
1208          goto T452;}          goto T452;}
1209          base[2]= VV[15];          base[2]= VV[15];
1210          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1211  T447:; Line 1212  T447:;
1212          vs_top=sup;          vs_top=sup;
1213          goto T452;          goto T452;
1214  T452:;  T452:;
1215          V148= fix((V150));}          V149= fix((V151));}
1216          {long V151;          {long V152;
1217          V151= V147;          V152= V148;
1218          goto T459;          goto T459;
1219  T459:;  T459:;
1220          if(!(((V143))==(((V139))->v.v_self[V151]))){          if(!(((V144))==(((V140))->v.v_self[V152]))){
1221          goto T461;}          goto T461;}
1222          V137= ((V139))->v.v_self[(long)(V151)+1];          V138= ((V140))->v.v_self[(long)(V152)+1];
1223          goto T457;          goto T457;
1224          goto T461;          goto T461;
1225  T461:;  T461:;
1226          V151= (long)(V151)+(2);          V152= (long)(V152)+(2);
1227          if(!((V151)==(V141))){          if(!((V152)==(V142))){
1228          goto T468;}          goto T468;}
1229          V151= 0;          V152= 0;
1230          goto T468;          goto T468;
1231  T468:;  T468:;
1232          if(!((V151)==(V147))){          if(!((V152)==(V148))){
1233          goto T460;}          goto T460;}
1234          {register object V152;          {register object V153;
1235          object V153;          object V154;
1236          V152= (V142);          V153= (V143);
1237          V153= CMPcar((V152));          V154= CMPcar((V153));
1238          goto T478;          goto T478;
1239  T478:;  T478:;
1240          if(!(((V152))==Cnil)){          if(!(((V153))==Cnil)){
1241          goto T479;}          goto T479;}
1242          goto T474;          goto T474;
1243          goto T479;          goto T479;
1244  T479:;  T479:;
1245          if(!((CMPcar((V153)))==((V143)))){          if(!((CMPcar((V154)))==((V144)))){
1246          goto T483;}          goto T483;}
1247          V137= CMPcdr((V153));          V138= CMPcdr((V154));
1248          goto T457;          goto T457;
1249          goto T483;          goto T483;
1250  T483:;  T483:;
1251          V152= CMPcdr((V152));          V153= CMPcdr((V153));
1252          V153= CMPcar((V152));          V154= CMPcar((V153));
1253          goto T478;}          goto T478;}
1254          goto T474;          goto T474;
1255  T474:;  T474:;
# Line 1258  T460:; Line 1259  T460:;
1259          goto T459;          goto T459;
1260          goto T457;          goto T457;
1261  T457:;  T457:;
1262          {object V155;          V155 = V149;
1263          V155= ((V139))->v.v_self[0];          {object V157;
1264          if(type_of((V155))==t_fixnum){          V157= ((V140))->v.v_self[0];
1265            if(type_of((V157))==t_fixnum){
1266          goto T498;}          goto T498;}
1267          base[2]= VV[15];          base[2]= VV[15];
1268          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1268  T457:; Line 1270  T457:;
1270          vs_top=sup;          vs_top=sup;
1271          goto T498;          goto T498;
1272  T498:;  T498:;
1273          V154= fix((V155));}          V156= fix((V157));}
1274          if((V148)==(V154)){          if((V155)==(V156)){
1275          goto T444;}          goto T444;}
1276          goto T426;}}          goto T426;}}
1277          goto T444;          goto T444;
1278  T444:;  T444:;
1279          (V137)->c.c_cdr = V135;          (V138)->c.c_cdr = V136;
1280          base[2]= V135;          base[2]= V136;
1281          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1282          return;}          return;}
1283          goto T426;          goto T426;
1284  T426:;  T426:;
1285          base[2]= (V135);          base[2]= (V136);
1286          base[3]= (V136);          base[3]= (V137);
1287          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1288          {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))
1289                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1317  register object *base0; Line 1319  register object *base0;
1319  {       register object *base=vs_base;  {       register object *base=vs_base;
1320          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1321          vs_check;          vs_check;
1322          {object V158;          {object V160;
1323          check_arg(1);          check_arg(1);
1324          V158=(base[0]);          V160=(base[0]);
1325          vs_top=sup;          vs_top=sup;
1326          {object V159;          {object V161;
1327          V159= Cnil;          V161= Cnil;
1328          {long V160;          {long V162;
1329          object V161;          object V163;
1330          long V162;          long V164;
1331          long V163;          long V165;
1332          object V164;          object V166;
1333          object V165;          object V167;
1334          V160= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          V162= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
1335          V161= STREF(object,(base0[2]->c.c_car),40);          V163= STREF(object,(base0[2]->c.c_car),40);
1336          V162= (long)STREF(fixnum,(base0[2]->c.c_car),24);          V164= (long)STREF(fixnum,(base0[2]->c.c_car),24);
1337          V163= (long)STREF(fixnum,(base0[2]->c.c_car),28);          V165= (long)STREF(fixnum,(base0[2]->c.c_car),28);
1338          V164= STREF(object,(base0[2]->c.c_car),44);          V166= STREF(object,(base0[2]->c.c_car),44);
1339          if(type_of(V158)==t_structure){          if(type_of(V160)==t_structure){
1340          goto T517;}          goto T517;}
1341          goto T515;          goto T515;
1342          goto T517;          goto T517;
1343  T517:;  T517:;
1344          if(!(((V158)->str.str_def)==(VV[18]))){          if(!(((V160)->str.str_def)==(VV[18]))){
1345          goto T515;}          goto T515;}
1346          V159= STREF(object,(V158),4);          V161= STREF(object,(V160),4);
1347          V165= STREF(object,(V158),0);          V167= STREF(object,(V160),0);
1348          goto T513;          goto T513;
1349          goto T515;          goto T515;
1350  T515:;{object V167;  T515:;{object V169;
1351          V167= (VV[3]->s.s_dbind);          V169= (VV[3]->s.s_dbind);
1352          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
1353          base[2]= (V158);          base[2]= (V160);
1354          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1355          (void) (*Lnk55)();          (void) (*Lnk55)();
1356          vs_top=sup;          vs_top=sup;
1357          V168= vs_base[0];          V170= vs_base[0];
1358          if(!((V167)==(CMPcar(V168)))){          if(!((V169)==(CMPcar(V170)))){
1359          goto T522;}}          goto T522;}}
1360          V159= CMPcar(((V158))->cc.cc_turbo[12]);          V161= CMPcar(((V160))->cc.cc_turbo[12]);
1361          V165= CMPcar(((V158))->cc.cc_turbo[13]);          V167= CMPcar(((V160))->cc.cc_turbo[13]);
1362          goto T513;          goto T513;
1363          goto T522;          goto T522;
1364  T522:;  T522:;
1365          goto T507;          goto T507;
1366          goto T513;          goto T513;
1367  T513:;  T513:;
         {long V169;  
         long V170;  
1368          {long V171;          {long V171;
1369          V171= fix(((V165))->v.v_self[V160]);          long V172;
1370          if(!((V171)==0)){          {long V173;
1371            V173= fix(((V167))->v.v_self[V162]);
1372            if(!((V173)==0)){
1373          goto T532;}          goto T532;}
1374          goto T507;          goto T507;
1375          goto T532;          goto T532;
1376  T532:;  T532:;
1377          V169= (long)((V162) & (V171));}          V171= (long)((V164) & (V173));}
1378          V170= V169;          V172= V171;
1379          goto T537;          goto T537;
1380  T537:;  T537:;
1381          if(!(((V165))==(((V161))->v.v_self[V170]))){          if(!(((V167))==(((V163))->v.v_self[V172]))){
1382          goto T539;}          goto T539;}
1383          goto T529;          goto T529;
1384          goto T539;          goto T539;
1385  T539:;  T539:;
1386          V170= (long)(V170)+(1);          V172= (long)(V172)+(1);
1387          if(!((V170)==(V163))){          if(!((V172)==(V165))){
1388          goto T544;}          goto T544;}
1389          V170= 0;          V172= 0;
1390          goto T544;          goto T544;
1391  T544:;  T544:;
1392          if(!((V170)==(V169))){          if(!((V172)==(V171))){
1393          goto T538;}          goto T538;}
1394          {register object V172;          {register object V174;
1395          object V173;          object V175;
1396          V172= (V164);          V174= (V166);
1397          V173= CMPcar((V172));          V175= CMPcar((V174));
1398          goto T554;          goto T554;
1399  T554:;  T554:;
1400          if(!(((V172))==Cnil)){          if(!(((V174))==Cnil)){
1401          goto T555;}          goto T555;}
1402          goto T550;          goto T550;
1403          goto T555;          goto T555;
1404  T555:;  T555:;
1405          if(!((CMPcar((V173)))==((V165)))){          if(!((CMPcar((V175)))==((V167)))){
1406          goto T559;}          goto T559;}
1407          goto T529;          goto T529;
1408          goto T559;          goto T559;
1409  T559:;  T559:;
1410          V172= CMPcdr((V172));          V174= CMPcdr((V174));
1411          V173= CMPcar((V172));          V175= CMPcar((V174));
1412          goto T554;}          goto T554;}
1413          goto T550;          goto T550;
1414  T550:;  T550:;
# Line 1416  T538:; Line 1418  T538:;
1418          goto T537;}          goto T537;}
1419          goto T529;          goto T529;
1420  T529:;  T529:;
1421          {object V174;          {object V176;
1422          V174= ((V159))->v.v_self[fix((base0[1]->c.c_car))];          V176= ((V161))->v.v_self[fix((base0[1]->c.c_car))];
1423          if(!(((V174))==((VV[4]->s.s_dbind)))){          if(!(((V176))==((VV[4]->s.s_dbind)))){
1424          goto T570;}          goto T570;}
1425          base[1]= (V158);          base[1]= (V160);
1426          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1427          {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))
1428                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1429  T529:; Line 1431  T529:;
1431          return;          return;
1432          goto T570;          goto T570;
1433  T570:;  T570:;
1434          base[1]= (V174);          base[1]= (V176);
1435          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1436          return;}}          return;}}
1437          goto T507;          goto T507;
1438  T507:;  T507:;
1439          base[1]= (V158);          base[1]= (V160);
1440          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1441          {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))
1442                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1470  register object *base0; Line 1472  register object *base0;
1472  {       register object *base=vs_base;  {       register object *base=vs_base;
1473          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
1474          vs_check;          vs_check;
1475          {object V175;          {object V177;
1476          check_arg(1);          check_arg(1);
1477          V175=(base[0]);          V177=(base[0]);
1478          vs_top=sup;          vs_top=sup;
1479          {long V176;          {long V178;
1480          object V177;          object V179;
1481          long V178;          long V180;
1482          long V179;          long V181;
1483          object V180;          object V182;
1484          object V181;          object V183;
1485          V176= (long)STREF(unsigned char,(base0[2]->c.c_car),16);          V178= (long)STREF(unsigned char,(base0[2]->c.c_car),16);
1486          V177= STREF(object,(base0[2]->c.c_car),40);          V179= STREF(object,(base0[2]->c.c_car),40);
1487          V178= (long)STREF(fixnum,(base0[2]->c.c_car),24);          V180= (long)STREF(fixnum,(base0[2]->c.c_car),24);
1488          V179= (long)STREF(fixnum,(base0[2]->c.c_car),28);          V181= (long)STREF(fixnum,(base0[2]->c.c_car),28);
1489          V180= STREF(object,(base0[2]->c.c_car),44);          V182= STREF(object,(base0[2]->c.c_car),44);
1490          if(type_of(V175)==t_structure){          if(type_of(V177)==t_structure){
1491          goto T586;}          goto T586;}
1492          goto T584;          goto T584;
1493          goto T586;          goto T586;
1494  T586:;  T586:;
1495          if(!(((V175)->str.str_def)==(VV[17]))){          if(!(((V177)->str.str_def)==(VV[17]))){
1496          goto T584;}          goto T584;}
1497          V181= STREF(object,(V175),0);          V183= STREF(object,(V177),0);
1498          goto T582;          goto T582;
1499          goto T584;          goto T584;
1500  T584:;{object V183;  T584:;{object V185;
1501          V183= (VV[3]->s.s_dbind);          V185= (VV[3]->s.s_dbind);
1502          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
1503          base[2]= (V175);          base[2]= (V177);
1504          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1505          (void) (*Lnk55)();          (void) (*Lnk55)();
1506          vs_top=sup;          vs_top=sup;
1507          V184= vs_base[0];          V186= vs_base[0];
1508          if(!((V183)==(CMPcar(V184)))){          if(!((V185)==(CMPcar(V186)))){
1509          goto T589;}}          goto T589;}}
1510          V181= CMPcar(((V175))->cc.cc_turbo[13]);          V183= CMPcar(((V177))->cc.cc_turbo[13]);
1511          goto T582;          goto T582;
1512          goto T589;          goto T589;
1513  T589:;  T589:;
1514          goto T576;          goto T576;
1515          goto T582;          goto T582;
1516  T582:;  T582:;
         {long V185;  
         long V186;  
1517          {long V187;          {long V187;
1518          V187= fix(((V181))->v.v_self[V176]);          long V188;
1519          if(!((V187)==0)){          {long V189;
1520            V189= fix(((V183))->v.v_self[V178]);
1521            if(!((V189)==0)){
1522          goto T597;}          goto T597;}
1523          goto T576;          goto T576;
1524          goto T597;          goto T597;
1525  T597:;  T597:;
1526          V185= (long)((V178) & (V187));}          V187= (long)((V180) & (V189));}
1527          V186= V185;          V188= V187;
1528          goto T602;          goto T602;
1529  T602:;  T602:;
1530          if(!(((V181))==(((V177))->v.v_self[V186]))){          if(!(((V183))==(((V179))->v.v_self[V188]))){
1531          goto T604;}          goto T604;}
1532          goto T594;          goto T594;
1533          goto T604;          goto T604;
1534  T604:;  T604:;
1535          V186= (long)(V186)+(1);          V188= (long)(V188)+(1);
1536          if(!((V186)==(V179))){          if(!((V188)==(V181))){
1537          goto T609;}          goto T609;}
1538          V186= 0;          V188= 0;
1539          goto T609;          goto T609;
1540  T609:;  T609:;
1541          if(!((V186)==(V185))){          if(!((V188)==(V187))){
1542          goto T603;}          goto T603;}
1543          {register object V188;          {register object V190;
1544          object V189;          object V191;
1545          V188= (V180);          V190= (V182);
1546          V189= CMPcar((V188));          V191= CMPcar((V190));
1547          goto T619;          goto T619;
1548  T619:;  T619:;
1549          if(!(((V188))==Cnil)){          if(!(((V190))==Cnil)){
1550          goto T620;}          goto T620;}
1551          goto T615;          goto T615;
1552          goto T620;          goto T620;
1553  T620:;  T620:;
1554          if(!((CMPcar((V189)))==((V181)))){          if(!((CMPcar((V191)))==((V183)))){
1555          goto T624;}          goto T624;}
1556          goto T594;          goto T594;
1557          goto T624;          goto T624;
1558  T624:;  T624:;
1559          V188= CMPcdr((V188));          V190= CMPcdr((V190));
1560          V189= CMPcar((V188));          V191= CMPcar((V190));
1561          goto T619;}          goto T619;}
1562          goto T615;          goto T615;
1563  T615:;  T615:;
# Line 1565  T603:; Line 1567  T603:;
1567          goto T602;}          goto T602;}
1568          goto T594;          goto T594;
1569  T594:;  T594:;
1570          {object V190;          {object V192;
1571          V190= CMPcdr((base0[1]->c.c_car));          V192= CMPcdr((base0[1]->c.c_car));
1572          if(!(((V190))==((VV[4]->s.s_dbind)))){          if(!(((V192))==((VV[4]->s.s_dbind)))){
1573          goto T635;}          goto T635;}
1574          base[1]= (V175);          base[1]= (V177);
1575          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1576          {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))
1577                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1578  T594:; Line 1580  T594:;
1580          return;          return;
1581          goto T635;          goto T635;
1582  T635:;  T635:;
1583          base[1]= (V190);          base[1]= (V192);
1584          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1585          return;}}          return;}}
1586          goto T576;          goto T576;
1587  T576:;  T576:;
1588          base[1]= (V175);          base[1]= (V177);
1589          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1590          {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))
1591                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1618  register object *base0; Line 1620  register object *base0;
1620  {       register object *base=vs_base;  {       register object *base=vs_base;
1621          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
1622          vs_check;          vs_check;
1623          {object V191;          {object V193;
1624          check_arg(1);          check_arg(1);
1625          V191=(base[0]);          V193=(base[0]);
1626          vs_top=sup;          vs_top=sup;
1627          {object V192;          {object V194;
         object V193;  
         V192= Cnil;  
         V193= Cnil;  
         {long V194;  
1628          object V195;          object V195;
1629          long V196;          V194= Cnil;
1630          long V197;          V195= Cnil;
1631          object V198;          {long V196;
1632          object V199;          object V197;
1633          V194= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          long V198;
1634          V195= STREF(object,(base0[1]->c.c_car),40);          long V199;
1635          V196= (long)STREF(fixnum,(base0[1]->c.c_car),24);          object V200;
1636          V197= (long)STREF(fixnum,(base0[1]->c.c_car),28);          object V201;
1637          V198= STREF(object,(base0[1]->c.c_car),44);          V196= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
1638          if(type_of(V191)==t_structure){          V197= STREF(object,(base0[1]->c.c_car),40);
1639            V198= (long)STREF(fixnum,(base0[1]->c.c_car),24);
1640            V199= (long)STREF(fixnum,(base0[1]->c.c_car),28);
1641            V200= STREF(object,(base0[1]->c.c_car),44);
1642            if(type_of(V193)==t_structure){
1643          goto T651;}          goto T651;}
1644          goto T649;          goto T649;
1645          goto T651;          goto T651;
1646  T651:;  T651:;
1647          if(!(((V191)->str.str_def)==(VV[16]))){          if(!(((V193)->str.str_def)==(VV[16]))){
1648          goto T649;}          goto T649;}
1649          V192= STREF(object,(V191),4);          V194= STREF(object,(V193),4);
1650          V199= STREF(object,(V191),0);          V201= STREF(object,(V193),0);
1651          goto T647;          goto T647;
1652          goto T649;          goto T649;
1653  T649:;{object V201;  T649:;{object V203;
1654          V201= (VV[3]->s.s_dbind);          V203= (VV[3]->s.s_dbind);
1655          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
1656          base[2]= (V191);          base[2]= (V193);
1657          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1658          (void) (*Lnk55)();          (void) (*Lnk55)();
1659          vs_top=sup;          vs_top=sup;
1660          V202= vs_base[0];          V204= vs_base[0];
1661          if(!((V201)==(CMPcar(V202)))){          if(!((V203)==(CMPcar(V204)))){
1662          goto T656;}}          goto T656;}}
1663          V192= CMPcar(((V191))->cc.cc_turbo[12]);          V194= CMPcar(((V193))->cc.cc_turbo[12]);
1664          V199= CMPcar(((V191))->cc.cc_turbo[13]);          V201= CMPcar(((V193))->cc.cc_turbo[13]);
1665          goto T647;          goto T647;
1666          goto T656;          goto T656;
1667  T656:;  T656:;
1668          goto T641;          goto T641;
1669          goto T647;          goto T647;
1670  T647:;  T647:;
         {long V203;  
         long V204;  
1671          {long V205;          {long V205;
1672          V205= fix(((V199))->v.v_self[V194]);          long V206;
1673          if(!((V205)==0)){          {long V207;
1674            V207= fix(((V201))->v.v_self[V196]);
1675            if(!((V207)==0)){
1676          goto T666;}          goto T666;}
1677          goto T641;          goto T641;
1678          goto T666;          goto T666;
1679  T666:;  T666:;
1680          V203= (long)((V196) & (V205));}          V205= (long)((V198) & (V207));}
1681          {object V206;          {object V208;
1682          V206= ((V195))->v.v_self[0];          V208= ((V197))->v.v_self[0];
1683          if(type_of((V206))==t_fixnum){          if(type_of((V208))==t_fixnum){
1684          goto T671;}          goto T671;}
1685          base[1]= VV[15];          base[1]= VV[15];
1686          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1686  T666:; Line 1688  T666:;
1688          vs_top=sup;          vs_top=sup;
1689          goto T671;          goto T671;
1690  T671:;  T671:;
1691          V204= fix((V206));}          V206= fix((V208));}
1692          {long V207;          {long V209;
1693          V207= V203;          V209= V205;
1694          goto T678;          goto T678;
1695  T678:;  T678:;
1696          if(!(((V199))==(((V195))->v.v_self[V207]))){          if(!(((V201))==(((V197))->v.v_self[V209]))){
1697          goto T680;}          goto T680;}
1698          V193= ((V195))->v.v_self[(long)(V207)+1];          V195= ((V197))->v.v_self[(long)(V209)+1];
1699          goto T676;          goto T676;
1700          goto T680;          goto T680;
1701  T680:;  T680:;
1702          V207= (long)(V207)+(2);          V209= (long)(V209)+(2);
1703          if(!((V207)==(V197))){          if(!((V209)==(V199))){
1704          goto T687;}          goto T687;}
1705          V207= 0;          V209= 0;
1706          goto T687;          goto T687;
1707  T687:;  T687:;
1708          if(!((V207)==(V203))){          if(!((V209)==(V205))){
1709          goto T679;}          goto T679;}
1710          {register object V208;          {register object V210;
1711          object V209;          object V211;
1712          V208= (V198);          V210= (V200);
1713          V209= CMPcar((V208));          V211= CMPcar((V210));
1714          goto T697;          goto T697;
1715  T697:;  T697:;
1716          if(!(((V208))==Cnil)){          if(!(((V210))==Cnil)){
1717          goto T698;}          goto T698;}
1718          goto T693;          goto T693;
1719          goto T698;          goto T698;
1720  T698:;  T698:;
1721          if(!((CMPcar((V209)))==((V199)))){          if(!((CMPcar((V211)))==((V201)))){
1722          goto T702;}          goto T702;}
1723          V193= CMPcdr((V209));          V195= CMPcdr((V211));
1724          goto T676;          goto T676;
1725          goto T702;          goto T702;
1726  T702:;  T702:;
1727          V208= CMPcdr((V208));          V210= CMPcdr((V210));
1728          V209= CMPcar((V208));          V211= CMPcar((V210));
1729          goto T697;}          goto T697;}
1730          goto T693;          goto T693;
1731  T693:;  T693:;
# Line 1733  T679:; Line 1735  T679:;
1735          goto T678;          goto T678;
1736          goto T676;          goto T676;
1737  T676:;  T676:;
1738          {object V211;          V212 = V206;
1739          V211= ((V195))->v.v_self[0];          {object V214;
1740          if(type_of((V211))==t_fixnum){          V214= ((V197))->v.v_self[0];
1741            if(type_of((V214))==t_fixnum){
1742          goto T717;}          goto T717;}
1743          base[1]= VV[15];          base[1]= VV[15];
1744          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1743  T676:; Line 1746  T676:;
1746          vs_top=sup;          vs_top=sup;
1747          goto T717;          goto T717;
1748  T717:;  T717:;
1749          V210= fix((V211));}          V213= fix((V214));}
1750          if((V204)==(V210)){          if((V212)==(V213)){
1751          goto T663;}          goto T663;}
1752          goto T641;}}          goto T641;}}
1753          goto T663;          goto T663;
1754  T663:;  T663:;
1755          {object V212;          {object V215;
1756          V212= ((V192))->v.v_self[fix((V193))];          V215= ((V194))->v.v_self[fix((V195))];
1757          if(!(((V212))==((VV[4]->s.s_dbind)))){          if(!(((V215))==((VV[4]->s.s_dbind)))){
1758          goto T723;}          goto T723;}
1759          base[1]= (V191);          base[1]= (V193);
1760          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1761          {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))
1762                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1762  T663:; Line 1765  T663:;
1765          return;          return;
1766          goto T723;          goto T723;
1767  T723:;  T723:;
1768          base[1]= (V212);          base[1]= (V215);
1769          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1770          return;}}          return;}}
1771          goto T641;          goto T641;
1772  T641:;  T641:;
1773          base[1]= (V191);          base[1]= (V193);
1774          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1775          {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))
1776                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1802  register object *base0; Line 1805  register object *base0;
1805  {       register object *base=vs_base;  {       register object *base=vs_base;
1806          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
1807          vs_check;          vs_check;
1808          {object V213;          {object V216;
1809          check_arg(1);          check_arg(1);
1810          V213=(base[0]);          V216=(base[0]);
1811          vs_top=sup;          vs_top=sup;
1812          {object V214;          {object V217;
1813          V214= Cnil;          V217= Cnil;
1814          {long V215;          {long V218;
         object V216;  
         long V217;  
         long V218;  
1815          object V219;          object V219;
1816          object V220;          long V220;
1817          V215= (long)STREF(unsigned char,(base0[1]->c.c_car),16);          long V221;
1818          V216= STREF(object,(base0[1]->c.c_car),40);          object V222;
1819          V217= (long)STREF(fixnum,(base0[1]->c.c_car),24);          object V223;
1820          V218= (long)STREF(fixnum,(base0[1]->c.c_car),28);          V218= (long)STREF(unsigned char,(base0[1]->c.c_car),16);
1821          V219= STREF(object,(base0[1]->c.c_car),44);          V219= STREF(object,(base0[1]->c.c_car),40);
1822          if(type_of(V213)==t_structure){          V220= (long)STREF(fixnum,(base0[1]->c.c_car),24);
1823            V221= (long)STREF(fixnum,(base0[1]->c.c_car),28);
1824            V222= STREF(object,(base0[1]->c.c_car),44);
1825            if(type_of(V216)==t_structure){
1826          goto T739;}          goto T739;}
1827          goto T737;          goto T737;
1828          goto T739;          goto T739;
1829  T739:;  T739:;
1830          if(!(((V213)->str.str_def)==(VV[14]))){          if(!(((V216)->str.str_def)==(VV[14]))){
1831          goto T737;}          goto T737;}
1832          V220= STREF(object,(V213),0);          V223= STREF(object,(V216),0);
1833          goto T735;          goto T735;
1834          goto T737;          goto T737;
1835  T737:;{object V222;  T737:;{object V225;
1836          V222= (VV[3]->s.s_dbind);          V225= (VV[3]->s.s_dbind);
1837          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
1838          base[2]= (V213);          base[2]= (V216);
1839          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1840          (void) (*Lnk55)();          (void) (*Lnk55)();
1841          vs_top=sup;          vs_top=sup;
1842          V223= vs_base[0];          V226= vs_base[0];
1843          if(!((V222)==(CMPcar(V223)))){          if(!((V225)==(CMPcar(V226)))){
1844          goto T742;}}          goto T742;}}
1845          V220= CMPcar(((V213))->cc.cc_turbo[13]);          V223= CMPcar(((V216))->cc.cc_turbo[13]);
1846          goto T735;          goto T735;
1847          goto T742;          goto T742;
1848  T742:;  T742:;
1849          goto T729;          goto T729;
1850          goto T735;          goto T735;
1851  T735:;  T735:;
1852          {long V224;          {long V227;
1853          long V225;          long V228;
1854          {long V226;          {long V229;
1855          V226= fix(((V220))->v.v_self[V215]);          V229= fix(((V223))->v.v_self[V218]);
1856          if(!((V226)==0)){          if(!((V229)==0)){
1857          goto T750;}          goto T750;}
1858          goto T729;          goto T729;
1859          goto T750;          goto T750;
1860  T750:;  T750:;
1861          V224= (long)((V217) & (V226));}          V227= (long)((V220) & (V229));}
1862          {object V227;          {object V230;
1863          V227= ((V216))->v.v_self[0];          V230= ((V219))->v.v_self[0];
1864          if(type_of((V227))==t_fixnum){          if(type_of((V230))==t_fixnum){
1865          goto T755;}          goto T755;}
1866          base[1]= VV[15];          base[1]= VV[15];
1867          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1866  T750:; Line 1869  T750:;
1869          vs_top=sup;          vs_top=sup;
1870          goto T755;          goto T755;
1871  T755:;  T755:;
1872          V225= fix((V227));}          V228= fix((V230));}
1873          {long V228;          {long V231;
1874          V228= V224;          V231= V227;
1875          goto T762;          goto T762;
1876  T762:;  T762:;
1877          if(!(((V220))==(((V216))->v.v_self[V228]))){          if(!(((V223))==(((V219))->v.v_self[V231]))){
1878          goto T764;}          goto T764;}
1879          V214= ((V216))->v.v_self[(long)(V228)+1];          V217= ((V219))->v.v_self[(long)(V231)+1];
1880          goto T760;          goto T760;
1881          goto T764;          goto T764;
1882  T764:;  T764:;
1883          V228= (long)(V228)+(2);          V231= (long)(V231)+(2);
1884          if(!((V228)==(V218))){          if(!((V231)==(V221))){
1885          goto T771;}          goto T771;}
1886          V228= 0;          V231= 0;
1887          goto T771;          goto T771;
1888  T771:;  T771:;
1889          if(!((V228)==(V224))){          if(!((V231)==(V227))){
1890          goto T763;}          goto T763;}
1891          {register object V229;          {register object V232;
1892          object V230;          object V233;
1893          V229= (V219);          V232= (V222);
1894          V230= CMPcar((V229));          V233= CMPcar((V232));
1895          goto T781;          goto T781;
1896  T781:;  T781:;
1897          if(!(((V229))==Cnil)){          if(!(((V232))==Cnil)){
1898          goto T782;}          goto T782;}
1899          goto T777;          goto T777;
1900          goto T782;          goto T782;
1901  T782:;  T782:;
1902          if(!((CMPcar((V230)))==((V220)))){          if(!((CMPcar((V233)))==((V223)))){
1903          goto T786;}          goto T786;}
1904          V214= CMPcdr((V230));          V217= CMPcdr((V233));
1905          goto T760;          goto T760;
1906          goto T786;          goto T786;
1907  T786:;  T786:;
1908          V229= CMPcdr((V229));          V232= CMPcdr((V232));
1909          V230= CMPcar((V229));          V233= CMPcar((V232));
1910          goto T781;}          goto T781;}
1911          goto T777;          goto T777;
1912  T777:;  T777:;
# Line 1913  T763:; Line 1916  T763:;
1916          goto T762;          goto T762;
1917          goto T760;          goto T760;
1918  T760:;  T760:;
1919          {object V232;          V234 = V228;
1920          V232= ((V216))->v.v_self[0];          {object V236;
1921          if(type_of((V232))==t_fixnum){          V236= ((V219))->v.v_self[0];
1922            if(type_of((V236))==t_fixnum){
1923          goto T801;}          goto T801;}
1924          base[1]= VV[15];          base[1]= VV[15];
1925          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1923  T760:; Line 1927  T760:;
1927          vs_top=sup;          vs_top=sup;
1928          goto T801;          goto T801;
1929  T801:;  T801:;
1930          V231= fix((V232));}          V235= fix((V236));}
1931          if((V225)==(V231)){          if((V234)==(V235)){
1932          goto T747;}          goto T747;}
1933          goto T729;}}          goto T729;}}
1934          goto T747;          goto T747;
1935  T747:;  T747:;
1936          {object V233;          {object V237;
1937          V233= CMPcdr((V214));          V237= CMPcdr((V217));
1938          if(!(((V233))==((VV[4]->s.s_dbind)))){          if(!(((V237))==((VV[4]->s.s_dbind)))){
1939          goto T807;}          goto T807;}
1940          base[1]= (V213);          base[1]= (V216);
1941          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1942          {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))
1943                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1942  T747:; Line 1946  T747:;
1946          return;          return;
1947          goto T807;          goto T807;
1948  T807:;  T807:;
1949          base[1]= (V233);          base[1]= (V237);
1950          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1951          return;}}          return;}}
1952          goto T729;          goto T729;
1953  T729:;  T729:;
1954          base[1]= (V213);          base[1]= (V216);
1955          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1956          {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))
1957                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1984  register object *base0; Line 1988  register object *base0;
1988  {       register object *base=vs_base;  {       register object *base=vs_base;
1989          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
1990          vs_check;          vs_check;
1991          {object V234;          {object V238;
1992          register object V235;          register object V239;
1993          check_arg(2);          check_arg(2);
1994          V234=(base[0]);          V238=(base[0]);
1995          V235=(base[1]);          V239=(base[1]);
1996          vs_top=sup;          vs_top=sup;
1997          {object V236;          {object V240;
1998          object V237;          object V241;
1999          V236= Cnil;          V240= Cnil;
2000          if(type_of(V235)==t_structure){          if(type_of(V239)==t_structure){
2001          goto T817;}          goto T817;}
2002          goto T815;          goto T815;
2003          goto T817;          goto T817;
2004  T817:;  T817:;
2005          if(!(((V235)->str.str_def)==(VV[12]))){          if(!(((V239)->str.str_def)==(VV[12]))){
2006          goto T815;}          goto T815;}
2007          V236= STREF(object,(V235),4);          V240= STREF(object,(V239),4);
2008          V237= STREF(object,(V235),0);          V241= STREF(object,(V239),0);
2009          goto T813;          goto T813;
2010          goto T815;          goto T815;
2011  T815:;{object V239;  T815:;{object V243;
2012          V239= (VV[3]->s.s_dbind);          V243= (VV[3]->s.s_dbind);
2013          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2014          base[4]= (V235);          base[4]= (V239);
2015          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2016          (void) (*Lnk55)();          (void) (*Lnk55)();
2017          vs_top=sup;          vs_top=sup;
2018          V240= vs_base[0];          V244= vs_base[0];
2019          if(!((V239)==(CMPcar(V240)))){          if(!((V243)==(CMPcar(V244)))){
2020          goto T822;}}          goto T822;}}
2021          V236= CMPcar(((V235))->cc.cc_turbo[12]);          V240= CMPcar(((V239))->cc.cc_turbo[12]);
2022          V237= CMPcar(((V235))->cc.cc_turbo[13]);          V241= CMPcar(((V239))->cc.cc_turbo[13]);
2023          goto T813;          goto T813;
2024          goto T822;          goto T822;
2025  T822:;  T822:;
2026          V237= Cnil;          V241= Cnil;
2027          goto T813;          goto T813;
2028  T813:;  T813:;
2029          if(((V237))==Cnil){          if(((V241))==Cnil){
2030          goto T829;}          goto T829;}
2031          if((fix(((V237))->v.v_self[0]))==0){          if((fix(((V241))->v.v_self[0]))==0){
2032          goto T829;}          goto T829;}
2033          if(((V237))==((base0[3]->c.c_car))){          if(((V241))==((base0[3]->c.c_car))){
2034          goto T830;}          goto T830;}
2035          if(((V237))==((base0[2]->c.c_car))){          if(((V241))==((base0[2]->c.c_car))){
2036          goto T830;}          goto T830;}
2037          goto T829;          goto T829;
2038  T829:;  T829:;
2039          base[3]= (V234);          base[3]= (V238);
2040          base[4]= (V235);          base[4]= (V239);
2041          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2042          {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))
2043                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2042  T829:; Line 2046  T829:;
2046          return;          return;
2047          goto T830;          goto T830;
2048  T830:;  T830:;
2049          base[3]= ((V236))->v.v_self[fix((base0[1]->c.c_car))]= ((V234));          base[3]= ((V240))->v.v_self[fix((base0[1]->c.c_car))]= ((V238));
2050          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2051          return;}          return;}
2052          }          }
# Line 2072  register object *base0; Line 2076  register object *base0;
2076  {       register object *base=vs_base;  {       register object *base=vs_base;
2077          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
2078          vs_check;          vs_check;
2079          {object V241;          {object V245;
2080          register object V242;          register object V246;
2081          check_arg(2);          check_arg(2);
2082          V241=(base[0]);          V245=(base[0]);
2083          V242=(base[1]);          V246=(base[1]);
2084          vs_top=sup;          vs_top=sup;
2085          {object V243;          {object V247;
2086          if(type_of(V242)==t_structure){          if(type_of(V246)==t_structure){
2087          goto T844;}          goto T844;}
2088          goto T842;          goto T842;
2089          goto T844;          goto T844;
2090  T844:;  T844:;
2091          if(!(((V242)->str.str_def)==(VV[11]))){          if(!(((V246)->str.str_def)==(VV[11]))){
2092          goto T842;}          goto T842;}
2093          V243= STREF(object,(V242),0);          V247= STREF(object,(V246),0);
2094          goto T840;          goto T840;
2095          goto T842;          goto T842;
2096  T842:;{object V245;  T842:;{object V249;
2097          V245= (VV[3]->s.s_dbind);          V249= (VV[3]->s.s_dbind);
2098          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2099          base[4]= (V242);          base[4]= (V246);
2100          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2101          (void) (*Lnk55)();          (void) (*Lnk55)();
2102          vs_top=sup;          vs_top=sup;
2103          V246= vs_base[0];          V250= vs_base[0];
2104          if(!((V245)==(CMPcar(V246)))){          if(!((V249)==(CMPcar(V250)))){
2105          goto T847;}}          goto T847;}}
2106          V243= CMPcar(((V242))->cc.cc_turbo[13]);          V247= CMPcar(((V246))->cc.cc_turbo[13]);
2107          goto T840;          goto T840;
2108          goto T847;          goto T847;
2109  T847:;  T847:;
2110          V243= Cnil;          V247= Cnil;
2111          goto T840;          goto T840;
2112  T840:;  T840:;
2113          if(((V243))==Cnil){          if(((V247))==Cnil){
2114          goto T852;}          goto T852;}
2115          if((fix(((V243))->v.v_self[0]))==0){          if((fix(((V247))->v.v_self[0]))==0){
2116          goto T852;}          goto T852;}
2117          if(((V243))==((base0[3]->c.c_car))){          if(((V247))==((base0[3]->c.c_car))){
2118          goto T853;}          goto T853;}
2119          if(((V243))==((base0[2]->c.c_car))){          if(((V247))==((base0[2]->c.c_car))){
2120          goto T853;}          goto T853;}
2121          goto T852;          goto T852;
2122  T852:;  T852:;
2123          base[3]= (V241);          base[3]= (V245);
2124          base[4]= (V242);          base[4]= (V246);
2125          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2126          {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))
2127                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2126  T852:; Line 2130  T852:;
2130          return;          return;
2131          goto T853;          goto T853;
2132  T853:;  T853:;
2133          {object V247;          {object V251;
2134          V247= (base0[1]->c.c_car);          V251= (base0[1]->c.c_car);
2135          ((V247))->c.c_cdr = V241;          ((V251))->c.c_cdr = V245;
2136          base[3]= V241;          base[3]= V245;
2137          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2138          return;}}          return;}}
2139          }          }
# Line 2158  register object *base0; Line 2162  register object *base0;
2162  {       register object *base=vs_base;  {       register object *base=vs_base;
2163          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2164          vs_check;          vs_check;
2165          {object V249;          {object V253;
2166          register object V250;          register object V254;
2167          check_arg(2);          check_arg(2);
2168          V249=(base[0]);          V253=(base[0]);
2169          V250=(base[1]);          V254=(base[1]);
2170          vs_top=sup;          vs_top=sup;
2171          {object V251;          {object V255;
2172          object V252;          object V256;
2173          V251= Cnil;          V255= Cnil;
2174          if(type_of(V250)==t_structure){          if(type_of(V254)==t_structure){
2175          goto T870;}          goto T870;}
2176          goto T868;          goto T868;
2177          goto T870;          goto T870;
2178  T870:;  T870:;
2179          if(!(((V250)->str.str_def)==(VV[10]))){          if(!(((V254)->str.str_def)==(VV[10]))){
2180          goto T868;}          goto T868;}
2181          V251= STREF(object,(V250),4);          V255= STREF(object,(V254),4);
2182          V252= STREF(object,(V250),0);          V256= STREF(object,(V254),0);
2183          goto T866;          goto T866;
2184          goto T868;          goto T868;
2185  T868:;{object V254;  T868:;{object V258;
2186          V254= (VV[3]->s.s_dbind);          V258= (VV[3]->s.s_dbind);
2187          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2188          base[4]= (V250);          base[4]= (V254);
2189          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2190          (void) (*Lnk55)();          (void) (*Lnk55)();
2191          vs_top=sup;          vs_top=sup;
2192          V255= vs_base[0];          V259= vs_base[0];
2193          if(!((V254)==(CMPcar(V255)))){          if(!((V258)==(CMPcar(V259)))){
2194          goto T875;}}          goto T875;}}
2195          V251= CMPcar(((V250))->cc.cc_turbo[12]);          V255= CMPcar(((V254))->cc.cc_turbo[12]);
2196          V252= CMPcar(((V250))->cc.cc_turbo[13]);          V256= CMPcar(((V254))->cc.cc_turbo[13]);
2197          goto T866;          goto T866;
2198          goto T875;          goto T875;
2199  T875:;  T875:;
2200          V252= Cnil;          V256= Cnil;
2201          goto T866;          goto T866;
2202  T866:;  T866:;
2203          if(((V252))==Cnil){          if(((V256))==Cnil){
2204          goto T882;}          goto T882;}
2205          if((fix(((V252))->v.v_self[0]))==0){          if((fix(((V256))->v.v_self[0]))==0){
2206          goto T882;}          goto T882;}
2207          if(((V252))==((base0[2]->c.c_car))){          if(((V256))==((base0[2]->c.c_car))){
2208          goto T883;}          goto T883;}
2209          goto T882;          goto T882;
2210  T882:;  T882:;
2211          base[3]= (V249);          base[3]= (V253);
2212          base[4]= (V250);          base[4]= (V254);
2213          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2214          {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))
2215                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2214  T882:; Line 2218  T882:;
2218          return;          return;
2219          goto T883;          goto T883;
2220  T883:;  T883:;
2221          base[3]= ((V251))->v.v_self[fix((base0[1]->c.c_car))]= ((V249));          base[3]= ((V255))->v.v_self[fix((base0[1]->c.c_car))]= ((V253));
2222          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2223          return;}          return;}
2224          }          }
# Line 2243  register object *base0; Line 2247  register object *base0;
2247  {       register object *base=vs_base;  {       register object *base=vs_base;
2248          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
2249          vs_check;          vs_check;
2250          {object V256;          {object V260;
2251          register object V257;          register object V261;
2252          check_arg(2);          check_arg(2);
2253          V256=(base[0]);          V260=(base[0]);
2254          V257=(base[1]);          V261=(base[1]);
2255          vs_top=sup;          vs_top=sup;
2256          {object V258;          {object V262;
2257          if(type_of(V257)==t_structure){          if(type_of(V261)==t_structure){
2258          goto T895;}          goto T895;}
2259          goto T893;          goto T893;
2260          goto T895;          goto T895;
2261  T895:;  T895:;
2262          if(!(((V257)->str.str_def)==(VV[9]))){          if(!(((V261)->str.str_def)==(VV[9]))){
2263          goto T893;}          goto T893;}
2264          V258= STREF(object,(V257),0);          V262= STREF(object,(V261),0);
2265          goto T891;          goto T891;
2266          goto T893;          goto T893;
2267  T893:;{object V260;  T893:;{object V264;
2268          V260= (VV[3]->s.s_dbind);          V264= (VV[3]->s.s_dbind);
2269          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
2270          base[4]= (V257);          base[4]= (V261);
2271          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2272          (void) (*Lnk55)();          (void) (*Lnk55)();
2273          vs_top=sup;          vs_top=sup;
2274          V261= vs_base[0];          V265= vs_base[0];
2275          if(!((V260)==(CMPcar(V261)))){          if(!((V264)==(CMPcar(V265)))){
2276          goto T898;}}          goto T898;}}
2277          V258= CMPcar(((V257))->cc.cc_turbo[13]);          V262= CMPcar(((V261))->cc.cc_turbo[13]);
2278          goto T891;          goto T891;
2279          goto T898;          goto T898;
2280  T898:;  T898:;
2281          V258= Cnil;          V262= Cnil;
2282          goto T891;          goto T891;
2283  T891:;  T891:;
2284          if(((V258))==Cnil){          if(((V262))==Cnil){
2285          goto T903;}          goto T903;}
2286          if((fix(((V258))->v.v_self[0]))==0){          if((fix(((V262))->v.v_self[0]))==0){
2287          goto T903;}          goto T903;}
2288          if(((V258))==((base0[2]->c.c_car))){          if(((V262))==((base0[2]->c.c_car))){
2289          goto T904;}          goto T904;}
2290          goto T903;          goto T903;
2291  T903:;  T903:;
2292          base[3]= (V256);          base[3]= (V260);
2293          base[4]= (V257);          base[4]= (V261);
2294          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2295          {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))
2296                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2295  T903:; Line 2299  T903:;
2299          return;          return;
2300          goto T904;          goto T904;
2301  T904:;  T904:;
2302          {object V262;          {object V266;
2303          V262= (base0[1]->c.c_car);          V266= (base0[1]->c.c_car);
2304          ((V262))->c.c_cdr = V256;          ((V266))->c.c_cdr = V260;
2305          base[3]= V256;          base[3]= V260;
2306          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2307          return;}}          return;}}
2308          }          }
# Line 2328  register object *base0; Line 2332  register object *base0;
2332  {       register object *base=vs_base;  {       register object *base=vs_base;
2333          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
2334          vs_check;          vs_check;
2335          {register object V264;          {register object V268;
2336          check_arg(1);          check_arg(1);
2337          V264=(base[0]);          V268=(base[0]);
2338          vs_top=sup;          vs_top=sup;
2339          {object V265;          {object V269;
2340          object V266;          object V270;
2341          object V267;          object V271;
2342          V265= Cnil;          V269= Cnil;
2343          if(type_of(V264)==t_structure){          if(type_of(V268)==t_structure){
2344          goto T919;}          goto T919;}
2345          goto T917;          goto T917;
2346          goto T919;          goto T919;
2347  T919:;  T919:;
2348          if(!(((V264)->str.str_def)==(VV[8]))){          if(!(((V268)->str.str_def)==(VV[8]))){
2349          goto T917;}          goto T917;}
2350          V265= STREF(object,(V264),4);          V269= STREF(object,(V268),4);
2351          V266= STREF(object,(V264),0);          V270= STREF(object,(V268),0);
2352          goto T915;          goto T915;
2353          goto T917;          goto T917;
2354  T917:;{object V269;  T917:;{object V273;
2355          V269= (VV[3]->s.s_dbind);          V273= (VV[3]->s.s_dbind);
2356          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2357          base[3]= (V264);          base[3]= (V268);
2358          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2359          (void) (*Lnk55)();          (void) (*Lnk55)();
2360          vs_top=sup;          vs_top=sup;
2361          V270= vs_base[0];          V274= vs_base[0];
2362          if(!((V269)==(CMPcar(V270)))){          if(!((V273)==(CMPcar(V274)))){
2363          goto T924;}}          goto T924;}}
2364          V265= CMPcar(((V264))->cc.cc_turbo[12]);          V269= CMPcar(((V268))->cc.cc_turbo[12]);
2365          V266= CMPcar(((V264))->cc.cc_turbo[13]);          V270= CMPcar(((V268))->cc.cc_turbo[13]);
2366          goto T915;          goto T915;
2367          goto T924;          goto T924;
2368  T924:;  T924:;
2369          V266= Cnil;          V270= Cnil;
2370          goto T915;          goto T915;
2371  T915:;  T915:;
2372          V267= Cnil;          V271= Cnil;
2373          if(((V266))==Cnil){          if(((V270))==Cnil){
2374          goto T932;}          goto T932;}
2375          if((fix(((V266))->v.v_self[0]))==0){          if((fix(((V270))->v.v_self[0]))==0){
2376          goto T932;}          goto T932;}
2377          if(((V266))==((base0[3]->c.c_car))){          if(((V270))==((base0[3]->c.c_car))){
2378          goto T938;}          goto T938;}
2379          if(!(((V266))==((base0[2]->c.c_car)))){          if(!(((V270))==((base0[2]->c.c_car)))){
2380          goto T932;}          goto T932;}
2381          goto T938;          goto T938;
2382  T938:;{object V271;  T938:;{object V275;
2383          V271= (VV[4]->s.s_dbind);          V275= (VV[4]->s.s_dbind);
2384          V267= ((V265))->v.v_self[fix((base0[1]->c.c_car))];          V271= ((V269))->v.v_self[fix((base0[1]->c.c_car))];
2385          if(!((V271)==((V267)))){          V276 = (V271);
2386            if(!((V275)==(V276))){
2387          goto T933;}}          goto T933;}}
2388          goto T932;          goto T932;
2389  T932:;  T932:;
2390          base[2]= (V264);          base[2]= (V268);
2391          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2392          {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))
2393                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2391  T932:; Line 2396  T932:;
2396          return;          return;
2397          goto T933;          goto T933;
2398  T933:;  T933:;
2399          base[2]= (V267);          base[2]= (V271);
2400          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2401          return;}          return;}
2402          }          }
# Line 2421  register object *base0; Line 2426  register object *base0;
2426  {       register object *base=vs_base;  {       register object *base=vs_base;
2427          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
2428          vs_check;          vs_check;
2429          {register object V272;          {register object V277;
2430          check_arg(1);          check_arg(1);
2431          V272=(base[0]);          V277=(base[0]);
2432          vs_top=sup;          vs_top=sup;
2433          {object V273;          {object V278;
2434          object V274;          object V279;
2435          if(type_of(V272)==t_structure){          if(type_of(V277)==t_structure){
2436          goto T949;}          goto T949;}
2437          goto T947;          goto T947;
2438          goto T949;          goto T949;
2439  T949:;  T949:;
2440          if(!(((V272)->str.str_def)==(VV[7]))){          if(!(((V277)->str.str_def)==(VV[7]))){
2441          goto T947;}          goto T947;}
2442          V273= STREF(object,(V272),0);          V278= STREF(object,(V277),0);
2443          goto T945;          goto T945;
2444          goto T947;          goto T947;
2445  T947:;{object V276;  T947:;{object V281;
2446          V276= (VV[3]->s.s_dbind);          V281= (VV[3]->s.s_dbind);
2447          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2448          base[3]= (V272);          base[3]= (V277);
2449          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2450          (void) (*Lnk55)();          (void) (*Lnk55)();
2451          vs_top=sup;          vs_top=sup;
2452          V277= vs_base[0];          V282= vs_base[0];
2453          if(!((V276)==(CMPcar(V277)))){          if(!((V281)==(CMPcar(V282)))){
2454          goto T952;}}          goto T952;}}
2455          V273= CMPcar(((V272))->cc.cc_turbo[13]);          V278= CMPcar(((V277))->cc.cc_turbo[13]);
2456          goto T945;          goto T945;
2457          goto T952;          goto T952;
2458  T952:;  T952:;
2459          V273= Cnil;          V278= Cnil;
2460          goto T945;          goto T945;
2461  T945:;  T945:;
2462          V274= Cnil;          V279= Cnil;
2463          if(((V273))==Cnil){          if(((V278))==Cnil){
2464          goto T958;}          goto T958;}
2465          if((fix(((V273))->v.v_self[0]))==0){          if((fix(((V278))->v.v_self[0]))==0){
2466          goto T958;}          goto T958;}
2467          if(((V273))==((base0[3]->c.c_car))){          if(((V278))==((base0[3]->c.c_car))){
2468          goto T964;}          goto T964;}
2469          if(!(((V273))==((base0[2]->c.c_car)))){          if(!(((V278))==((base0[2]->c.c_car)))){
2470          goto T958;}          goto T958;}
2471          goto T964;          goto T964;
2472  T964:;{object V278;  T964:;{object V283;
2473          V278= (VV[4]->s.s_dbind);          V283= (VV[4]->s.s_dbind);
2474          V274= CMPcdr((base0[1]->c.c_car));          V279= CMPcdr((base0[1]->c.c_car));
2475          if(!((V278)==((V274)))){          V284 = (V279);
2476            if(!((V283)==(V284))){
2477          goto T959;}}          goto T959;}}
2478          goto T958;          goto T958;
2479  T958:;  T958:;
2480          base[2]= (V272);          base[2]= (V277);
2481          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2482          {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))
2483                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2480  T958:; Line 2486  T958:;
2486          return;          return;
2487          goto T959;          goto T959;
2488  T959:;  T959:;
2489          base[2]= (V274);          base[2]= (V279);
2490          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2491          return;}          return;}
2492          }          }
# Line 2509  register object *base0; Line 2515  register object *base0;
2515  {       register object *base=vs_base;  {       register object *base=vs_base;
2516          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
2517          vs_check;          vs_check;
2518          {register object V279;          {register object V285;
2519          check_arg(1);          check_arg(1);
2520          V279=(base[0]);          V285=(base[0]);
2521          vs_top=sup;          vs_top=sup;
2522          {object V280;          {object V286;
2523          object V281;          object V287;
2524          object V282;          object V288;
2525          V280= Cnil;          V286= Cnil;
2526          if(type_of(V279)==t_structure){          if(type_of(V285)==t_structure){
2527          goto T976;}          goto T976;}
2528          goto T974;          goto T974;
2529          goto T976;          goto T976;
2530  T976:;  T976:;
2531          if(!(((V279)->str.str_def)==(VV[5]))){          if(!(((V285)->str.str_def)==(VV[5]))){
2532          goto T974;}          goto T974;}
2533          V280= STREF(object,(V279),4);          V286= STREF(object,(V285),4);
2534          V281= STREF(object,(V279),0);          V287= STREF(object,(V285),0);
2535          goto T972;          goto T972;
2536          goto T974;          goto T974;
2537  T974:;{object V284;  T974:;{object V290;
2538          V284= (VV[3]->s.s_dbind);          V290= (VV[3]->s.s_dbind);
2539          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2540          base[3]= (V279);          base[3]= (V285);
2541          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2542          (void) (*Lnk55)();          (void) (*Lnk55)();
2543          vs_top=sup;          vs_top=sup;
2544          V285= vs_base[0];          V291= vs_base[0];
2545          if(!((V284)==(CMPcar(V285)))){          if(!((V290)==(CMPcar(V291)))){
2546          goto T981;}}          goto T981;}}
2547          V280= CMPcar(((V279))->cc.cc_turbo[12]);          V286= CMPcar(((V285))->cc.cc_turbo[12]);
2548          V281= CMPcar(((V279))->cc.cc_turbo[13]);          V287= CMPcar(((V285))->cc.cc_turbo[13]);
2549          goto T972;          goto T972;
2550          goto T981;          goto T981;
2551  T981:;  T981:;
2552          V281= Cnil;          V287= Cnil;
2553          goto T972;          goto T972;
2554  T972:;  T972:;
2555          V282= Cnil;          V288= Cnil;
2556          if(((V281))==Cnil){          if(((V287))==Cnil){
2557          goto T989;}          goto T989;}
2558          if((fix(((V281))->v.v_self[0]))==0){          if((fix(((V287))->v.v_self[0]))==0){
2559          goto T989;}          goto T989;}
2560          if(!(((V281))==((base0[2]->c.c_car)))){          if(!(((V287))==((base0[2]->c.c_car)))){
2561          goto T989;}{object V286;          goto T989;}{object V292;
2562          V286= (VV[4]->s.s_dbind);          V292= (VV[4]->s.s_dbind);
2563          V282= ((V280))->v.v_self[fix((base0[1]->c.c_car))];          V288= ((V286))->v.v_self[fix((base0[1]->c.c_car))];
2564          if(!((V286)==((V282)))){          V293 = (V288);
2565            if(!((V292)==(V293))){
2566          goto T990;}}          goto T990;}}
2567          goto T989;          goto T989;
2568  T989:;  T989:;
2569          base[2]= (V279);          base[2]= (V285);
2570          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+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);
# Line 2568  T989:; Line 2575  T989:;
2575          return;          return;
2576          goto T990;          goto T990;
2577  T990:;  T990:;
2578          base[2]= (V282);          base[2]= (V288);
2579          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2580          return;}          return;}
2581          }          }
# Line 2597  register object *base0; Line 2604  register object *base0;
2604  {       register object *base=vs_base;  {       register object *base=vs_base;
2605          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
2606          vs_check;          vs_check;
2607          {register object V287;          {register object V294;
2608          check_arg(1);          check_arg(1);
2609          V287=(base[0]);          V294=(base[0]);
2610          vs_top=sup;          vs_top=sup;
2611          {object V288;          {object V295;
2612          object V289;          object V296;
2613          if(type_of(V287)==t_structure){          if(type_of(V294)==t_structure){
2614          goto T1004;}          goto T1004;}
2615          goto T1002;          goto T1002;
2616          goto T1004;          goto T1004;
2617  T1004:;  T1004:;
2618          if(!(((V287)->str.str_def)==(VV[1]))){          if(!(((V294)->str.str_def)==(VV[1]))){
2619          goto T1002;}          goto T1002;}
2620          V288= STREF(object,(V287),0);          V295= STREF(object,(V294),0);
2621          goto T1000;          goto T1000;
2622          goto T1002;          goto T1002;
2623  T1002:;{object V291;  T1002:;{object V298;
2624          V291= (VV[3]->s.s_dbind);          V298= (VV[3]->s.s_dbind);
2625          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2626          base[3]= (V287);          base[3]= (V294);
2627          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2628          (void) (*Lnk55)();          (void) (*Lnk55)();
2629          vs_top=sup;          vs_top=sup;
2630          V292= vs_base[0];          V299= vs_base[0];
2631          if(!((V291)==(CMPcar(V292)))){          if(!((V298)==(CMPcar(V299)))){
2632          goto T1007;}}          goto T1007;}}
2633          V288= CMPcar(((V287))->cc.cc_turbo[13]);          V295= CMPcar(((V294))->cc.cc_turbo[13]);
2634          goto T1000;          goto T1000;
2635          goto T1007;          goto T1007;
2636  T1007:;  T1007:;
2637          V288= Cnil;          V295= Cnil;
2638          goto T1000;          goto T1000;
2639  T1000:;  T1000:;
2640          V289= Cnil;          V296= Cnil;
2641          if(((V288))==Cnil){          if(((V295))==Cnil){
2642          goto T1013;}          goto T1013;}
2643          if((fix(((V288))->v.v_self[0]))==0){          if((fix(((V295))->v.v_self[0]))==0){
2644          goto T1013;}          goto T1013;}
2645          if(!(((V288))==((base0[2]->c.c_car)))){          if(!(((V295))==((base0[2]->c.c_car)))){
2646          goto T1013;}{object V293;          goto T1013;}{object V300;
2647          V293= (VV[4]->s.s_dbind);          V300= (VV[4]->s.s_dbind);
2648          V289= CMPcdr((base0[1]->c.c_car));          V296= CMPcdr((base0[1]->c.c_car));
2649          if(!((V293)==((V289)))){          V301 = (V296);
2650            if(!((V300)==(V301))){
2651          goto T1014;}}          goto T1014;}}
2652          goto T1013;          goto T1013;
2653  T1013:;  T1013:;
2654          base[2]= (V287);          base[2]= (V294);
2655          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2656          {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))
2657                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2652  T1013:; Line 2660  T1013:;
2660          return;          return;
2661          goto T1014;          goto T1014;
2662  T1014:;  T1014:;
2663          base[2]= (V289);          base[2]= (V296);
2664          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2665          return;}          return;}
2666          }          }

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

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