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; |
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; |
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; |
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:; |
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; |
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); |
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:; |
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); |
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); |
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:; |
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); |
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); |
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; |
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:; |
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; |
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); |
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); |
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; |
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:; |
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; |
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); |
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); |
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); |
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 |
} |
} |
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); |
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 |
} |
} |
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); |
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 |
} |
} |
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); |
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 |
} |
} |
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); |
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 |
} |
} |
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); |
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 |
} |
} |
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); |
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 |
} |
} |
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); |
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 |
} |
} |