1221 |
vs_top=sup; |
vs_top=sup; |
1222 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1223 |
goto T342;} |
goto T342;} |
1224 |
base[0]= (V191); |
{object V204; |
1225 |
vs_top=(vs_base=base+0)+1; |
base[1]= (V191); |
1226 |
|
vs_top=(vs_base=base+1)+1; |
1227 |
Lfill_pointer(); |
Lfill_pointer(); |
1228 |
vs_top=sup; |
vs_top=sup; |
1229 |
V204= vs_base[0]; |
V204= vs_base[0]; |
1230 |
V193= ON_STACK_CONS(V204,(V193)); |
V193= ON_STACK_CONS((V204),(V193));} |
1231 |
V193= ON_STACK_CONS(VV[11],(V193)); |
V193= ON_STACK_CONS(VV[11],(V193)); |
1232 |
goto T342; |
goto T342; |
1233 |
T342:; |
T342:; |
1238 |
V194= vs_base[0]; |
V194= vs_base[0]; |
1239 |
if(((V194))==(Ct)){ |
if(((V194))==(Ct)){ |
1240 |
goto T362;} |
goto T362;} |
1241 |
V193= ON_STACK_CONS((V194),(V193)); |
V193= ON_STACK_CONS(V194,(V193)); |
1242 |
V193= ON_STACK_CONS(VV[8],(V193)); |
V193= ON_STACK_CONS(VV[8],(V193)); |
1243 |
goto T362; |
goto T362; |
1244 |
T362:; |
T362:; |
1245 |
{register object x= VV[14],V205= (V193); |
{register object x= VV[14],V208= (V193); |
1246 |
while(!endp(V205)) |
while(!endp(V208)) |
1247 |
if(eql(x,V205->c.c_car)){ |
if(eql(x,V208->c.c_car)){ |
1248 |
goto T368; |
goto T368; |
1249 |
}else V205=V205->c.c_cdr;} |
}else V208=V208->c.c_cdr;} |
1250 |
base[0]= (V191); |
{object V209; |
1251 |
vs_top=(vs_base=base+0)+1; |
base[1]= (V191); |
1252 |
|
vs_top=(vs_base=base+1)+1; |
1253 |
(void) (*Lnk31)(); |
(void) (*Lnk31)(); |
1254 |
vs_top=sup; |
vs_top=sup; |
1255 |
V206= vs_base[0]; |
V209= vs_base[0]; |
1256 |
V193= ON_STACK_CONS(V206,(V193)); |
V193= ON_STACK_CONS((V209),(V193));} |
1257 |
V193= ON_STACK_CONS(VV[14],(V193)); |
V193= ON_STACK_CONS(VV[14],(V193)); |
1258 |
goto T368; |
goto T368; |
1259 |
T368:; |
T368:; |
1260 |
{register object V207; |
{register object V211; |
1261 |
base[0]= (V192); |
base[0]= (V192); |
1262 |
base[1]= VV[15]; |
base[1]= VV[15]; |
1263 |
base[2]= Ct; |
base[2]= Ct; |
1264 |
{object V208; |
{object V212; |
1265 |
V208= (V193); |
V212= (V193); |
1266 |
vs_top=base+3; |
vs_top=base+3; |
1267 |
while(!endp(V208)) |
while(!endp(V212)) |
1268 |
{vs_push(car(V208));V208=cdr(V208);} |
{vs_push(car(V212));V212=cdr(V212);} |
1269 |
vs_base=base+0;} |
vs_base=base+0;} |
1270 |
(void) (*Lnk28)(); |
(void) (*Lnk28)(); |
1271 |
vs_top=sup; |
vs_top=sup; |
1272 |
V207= vs_base[0]; |
V211= vs_base[0]; |
1273 |
if((cdr((V192)))==Cnil){ |
if((cdr((V192)))==Cnil){ |
1274 |
goto T382;} |
goto T382;} |
1275 |
V209= cdr((V192)); |
V213= cdr((V192)); |
1276 |
V210= (*(LnkLI32))((V191)); |
V214= (*(LnkLI32))((V191)); |
1277 |
if(!(equal(/* INLINE-ARGS */V209,cdr(/* INLINE-ARGS */V210)))){ |
if(!(equal(/* INLINE-ARGS */V213,cdr(/* INLINE-ARGS */V214)))){ |
1278 |
goto T383;} |
goto T383;} |
1279 |
if(!(((V194))==(VV[16]))){ |
if(!(((V194))==(VV[16]))){ |
1280 |
goto T382;} |
goto T382;} |
1282 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1283 |
Llast(); |
Llast(); |
1284 |
vs_top=sup; |
vs_top=sup; |
1285 |
V211= vs_base[0]; |
V215= vs_base[0]; |
1286 |
{int V212= fix(car(V211)); |
{int V216= fix(car(V215)); |
1287 |
if(!((0)==((long)(V212>=0&&(8)>0?(V212)%(8):imod(V212,8))))){ |
if(!((0)==((long)(V216>=0&&(8)>0?(V216)%(8):imod(V216,8))))){ |
1288 |
goto T383;}} |
goto T383;}} |
1289 |
goto T382; |
goto T382; |
1290 |
T382:; |
T382:; |
1291 |
base[0]= (V191); |
base[0]= (V191); |
1292 |
base[1]= (V207); |
base[1]= (V211); |
1293 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
1294 |
base[3]= small_fixnum(0); |
base[3]= small_fixnum(0); |
1295 |
base[5]= (V207); |
base[5]= (V211); |
1296 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1297 |
(void) (*Lnk33)(); |
(void) (*Lnk33)(); |
1298 |
vs_top=sup; |
vs_top=sup; |
1299 |
V213= vs_base[0]; |
V217= vs_base[0]; |
1300 |
base[5]= (V191); |
base[5]= (V191); |
1301 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1302 |
(void) (*Lnk33)(); |
(void) (*Lnk33)(); |
1303 |
vs_top=sup; |
vs_top=sup; |
1304 |
V214= vs_base[0]; |
V218= vs_base[0]; |
1305 |
base[4]= (number_compare(V213,V214)<=0?(V213):V214); |
base[4]= (number_compare(V217,V218)<=0?(V217):V218); |
1306 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
1307 |
(void) (*Lnk34)(); |
(void) (*Lnk34)(); |
1308 |
vs_top=sup; |
vs_top=sup; |
1309 |
goto T381; |
goto T381; |
1310 |
goto T383; |
goto T383; |
1311 |
T383:; |
T383:; |
1312 |
{register object V215; |
{register object V219; |
1313 |
base[0]= make_fixnum((long)length((V192))); |
base[0]= make_fixnum((long)length((V192))); |
1314 |
base[1]= VV[7]; |
base[1]= VV[7]; |
1315 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
1316 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1317 |
Lmake_list(); |
Lmake_list(); |
1318 |
vs_top=sup; |
vs_top=sup; |
1319 |
V215= vs_base[0]; |
V219= vs_base[0]; |
1320 |
goto T407; |
goto T407; |
1321 |
T407:; |
T407:; |
1322 |
base[0]= (V191); |
base[0]= (V191); |
1323 |
{object V216; |
{object V220; |
1324 |
V216= (V215); |
V220= (V219); |
1325 |
vs_top=base+1; |
vs_top=base+1; |
1326 |
while(!endp(V216)) |
while(!endp(V220)) |
1327 |
{vs_push(car(V216));V216=cdr(V216);} |
{vs_push(car(V220));V220=cdr(V220);} |
1328 |
vs_base=base+0;} |
vs_base=base+0;} |
1329 |
(void) (*Lnk35)(); |
(void) (*Lnk35)(); |
1330 |
vs_top=sup; |
vs_top=sup; |
1331 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1332 |
goto T410;} |
goto T410;} |
1333 |
base[0]= (V207); |
base[0]= (V211); |
1334 |
base[2]= (V191); |
base[2]= (V191); |
1335 |
{object V217; |
{object V221; |
1336 |
V217= (V215); |
V221= (V219); |
1337 |
vs_top=base+3; |
vs_top=base+3; |
1338 |
while(!endp(V217)) |
while(!endp(V221)) |
1339 |
{vs_push(car(V217));V217=cdr(V217);} |
{vs_push(car(V221));V221=cdr(V221);} |
1340 |
vs_base=base+2;} |
vs_base=base+2;} |
1341 |
Laref(); |
Laref(); |
1342 |
vs_top=sup; |
vs_top=sup; |
1343 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
1344 |
base[2]= (V215); |
base[2]= (V219); |
1345 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1346 |
(void) (*Lnk26)(); |
(void) (*Lnk26)(); |
1347 |
vs_top=sup; |
vs_top=sup; |
1348 |
goto T410; |
goto T410; |
1349 |
T410:; |
T410:; |
1350 |
if(((*(LnkLI27))((V215),(V192)))==Cnil){ |
if(((*(LnkLI27))((V219),(V192)))==Cnil){ |
1351 |
goto T420;} |
goto T420;} |
1352 |
goto T381; |
goto T381; |
1353 |
goto T420; |
goto T420; |
1356 |
goto T381; |
goto T381; |
1357 |
T381:; |
T381:; |
1358 |
base[0]= (V191); |
base[0]= (V191); |
1359 |
base[1]= (V207); |
base[1]= (V211); |
1360 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1361 |
siLreplace_array(); |
siLreplace_array(); |
1362 |
vs_top=sup; |
vs_top=sup; |
1394 |
vs_top=sup; |
vs_top=sup; |
1395 |
goto T430; |
goto T430; |
1396 |
T430:; |
T430:; |
1397 |
{object V218 = (V191); |
{object V222 = (V191); |
1398 |
VMR25(V218)}}} |
VMR25(V222)}}} |
1399 |
va_end(ap); |
va_end(ap); |
1400 |
base[0]=base[0]; |
base[0]=base[0]; |
1401 |
return Cnil;} |
return Cnil;} |