3366 |
(VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind)); |
(VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind)); |
3367 |
goto T1320; |
goto T1320; |
3368 |
T1320:; |
T1320:; |
3369 |
|
if((VV[142])->s.s_dbind!=OBJNULL){ |
3370 |
|
goto T1334;} |
3371 |
base[2]= VV[143]; |
base[2]= VV[143]; |
3372 |
base[3]= Cnil; |
base[3]= Cnil; |
3373 |
base[4]= VV[144]; |
base[4]= VV[144]; |
3390 |
Lnamestring(); |
Lnamestring(); |
3391 |
vs_top=sup; |
vs_top=sup; |
3392 |
(VV[142]->s.s_dbind)= vs_base[0]; |
(VV[142]->s.s_dbind)= vs_base[0]; |
3393 |
|
goto T1334; |
3394 |
|
T1334:; |
3395 |
base[0]= VV[142]; |
base[0]= VV[142]; |
3396 |
base[1]= VV[146]; |
base[1]= VV[146]; |
3397 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3411 |
V272= Cnil;} |
V272= Cnil;} |
3412 |
vs_top=sup; |
vs_top=sup; |
3413 |
if(((V272))==Cnil){ |
if(((V272))==Cnil){ |
3414 |
goto T1349;} |
goto T1351;} |
3415 |
bds_bind(VV[15],Cnil); |
bds_bind(VV[15],Cnil); |
3416 |
base[1]= (VV[16]->s.s_dbind); |
base[1]= (VV[16]->s.s_dbind); |
3417 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3423 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
3424 |
bds_unwind1; |
bds_unwind1; |
3425 |
return; |
return; |
3426 |
goto T1349; |
goto T1351; |
3427 |
T1349:; |
T1351:; |
3428 |
base[0]= Cnil; |
base[0]= Cnil; |
3429 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3430 |
return;}} |
return;}} |
3448 |
if(nlj_active) |
if(nlj_active) |
3449 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
3450 |
vs_top=sup; |
vs_top=sup; |
3451 |
goto T1358;} |
goto T1360;} |
3452 |
else{ |
else{ |
3453 |
base[5]= (V278); |
base[5]= (V278); |
3454 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3463 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3464 |
Lread_line(); |
Lread_line(); |
3465 |
vs_top=sup; |
vs_top=sup; |
3466 |
goto T1367; |
goto T1369; |
3467 |
T1367:; |
T1369:; |
3468 |
base[6]= base[4]; |
base[6]= base[4]; |
3469 |
base[7]= Cnil; |
base[7]= Cnil; |
3470 |
base[8]= base[1]; |
base[8]= base[1]; |
3473 |
vs_top=sup; |
vs_top=sup; |
3474 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3475 |
if(!((base[1])==(base[2]))){ |
if(!((base[1])==(base[2]))){ |
3476 |
goto T1374;} |
goto T1376;} |
3477 |
base[6]= Cnil; |
base[6]= Cnil; |
3478 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3479 |
goto T1363; |
goto T1365; |
3480 |
goto T1374; |
goto T1376; |
3481 |
T1374:; |
T1376:; |
3482 |
base[6]= base[2]; |
base[6]= base[2]; |
3483 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3484 |
Leval(); |
Leval(); |
3485 |
vs_top=sup; |
vs_top=sup; |
3486 |
goto T1367; |
goto T1369; |
3487 |
goto T1363; |
goto T1365; |
3488 |
T1363:; |
T1365:; |
3489 |
active=FALSE;} |
active=FALSE;} |
3490 |
base[5]=Cnil; |
base[5]=Cnil; |
3491 |
while(vs_base<vs_top) |
while(vs_base<vs_top) |
3493 |
vs_top=sup; |
vs_top=sup; |
3494 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
3495 |
if((base[4])==Cnil){ |
if((base[4])==Cnil){ |
3496 |
goto T1379;} |
goto T1381;} |
3497 |
base[6]= base[4]; |
base[6]= base[4]; |
3498 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3499 |
Lclose(); |
Lclose(); |
3500 |
vs_top=sup; |
vs_top=sup; |
3501 |
goto T1379; |
goto T1381; |
3502 |
T1379:; |
T1381:; |
3503 |
vs_base=vs_top=base+6; |
vs_base=vs_top=base+6; |
3504 |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
3505 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
3508 |
Lby(); |
Lby(); |
3509 |
vs_top=sup; |
vs_top=sup; |
3510 |
frs_pop();} |
frs_pop();} |
3511 |
goto T1358; |
goto T1360; |
3512 |
T1358:; |
T1360:; |
3513 |
base[4]= small_fixnum(1); |
base[4]= small_fixnum(1); |
3514 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3515 |
Lby(); |
Lby(); |