3474 |
base[0]=base[0]; |
base[0]=base[0]; |
3475 |
return Cnil;} |
return Cnil;} |
3476 |
}} |
}} |
3477 |
/* function definition for MAP-INTO */ |
/* local entry for function MAP-INTO */ |
3478 |
|
|
3479 |
static void L45() |
static object LI45(object V725,object V724,object first,...) |
3480 |
{register object *base=vs_base; |
{ |
3481 |
register object *sup=base+VM44; VC44 |
va_list ap; |
3482 |
vs_reserve(VM44); |
int narg = VFUN_NARGS; VMB44 VMS44 VMV44 |
3483 |
{register object V724; |
{register object V726; |
3484 |
register object V725; |
register object V727; |
3485 |
register object V726; |
register object V728; |
3486 |
if(vs_top-vs_base<2) too_few_arguments(); |
va_start(ap,first); |
3487 |
V724=(base[0]); |
if(narg <2) too_few_arguments(); |
3488 |
V725=(base[1]); |
V726= V725; |
3489 |
vs_base=vs_base+2; |
V727= V724; |
3490 |
vs_top[0]=Cnil; |
narg= narg - 2; |
3491 |
{object *p=vs_top; |
V729 = list_vector_new(narg,first,ap); |
3492 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
V728= V729; |
3493 |
V726=(base[2]); |
{object V730; |
3494 |
vs_top=sup; |
base[2]= (V726); |
3495 |
{object V727; |
vs_top=(vs_base=base+2)+1; |
|
base[5]= (V724); |
|
|
vs_top=(vs_base=base+5)+1; |
|
3496 |
Ltype_of(); |
Ltype_of(); |
3497 |
vs_top=sup; |
vs_top=sup; |
3498 |
base[4]= vs_base[0]; |
base[1]= vs_base[0]; |
3499 |
base[5]= VV[18]; |
base[2]= VV[18]; |
3500 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+1)+2; |
3501 |
(void) (*Lnk61)(); |
(void) (*Lnk61)(); |
3502 |
vs_top=sup; |
vs_top=sup; |
3503 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3504 |
goto T1317;} |
goto T1317;} |
3505 |
base[4]= (V724); |
base[1]= (V726); |
3506 |
base[5]= small_fixnum(0); |
base[2]= small_fixnum(0); |
3507 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+1)+2; |
3508 |
Larray_dimension(); |
Larray_dimension(); |
3509 |
vs_top=sup; |
vs_top=sup; |
3510 |
base[3]= vs_base[0]; |
base[0]= vs_base[0]; |
3511 |
goto T1315; |
goto T1315; |
3512 |
goto T1317; |
goto T1317; |
3513 |
T1317:; |
T1317:; |
3514 |
base[3]= make_fixnum((long)length((V724))); |
base[0]= make_fixnum((long)length((V726))); |
3515 |
goto T1315; |
goto T1315; |
3516 |
T1315:; |
T1315:; |
3517 |
{object V728; |
{object V731; |
3518 |
{object V729; |
{object V732; |
3519 |
object V730= (V726); |
object V733= (V728); |
3520 |
if(endp(V730)){ |
if(endp(V733)){ |
3521 |
V728= Cnil; |
V731= Cnil; |
3522 |
goto T1324;} |
goto T1324;} |
3523 |
base[4]=V729=MMcons(Cnil,Cnil); |
base[1]=V732=MMcons(Cnil,Cnil); |
3524 |
goto T1325; |
goto T1325; |
3525 |
T1325:; |
T1325:; |
3526 |
base[5]= (V730->c.c_car); |
base[2]= (V733->c.c_car); |
3527 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+2)+1; |
3528 |
Llength(); |
Llength(); |
3529 |
vs_top=sup; |
vs_top=sup; |
3530 |
(V729->c.c_car)= vs_base[0]; |
(V732->c.c_car)= vs_base[0]; |
3531 |
V730=MMcdr(V730); |
V733=MMcdr(V733); |
3532 |
if(endp(V730)){ |
if(endp(V733)){ |
3533 |
V728= base[4]; |
V731= base[1]; |
3534 |
goto T1324;} |
goto T1324;} |
3535 |
V729=MMcdr(V729)=MMcons(Cnil,Cnil); |
V732=MMcdr(V732)=MMcons(Cnil,Cnil); |
3536 |
goto T1325;} |
goto T1325;} |
3537 |
goto T1324; |
goto T1324; |
3538 |
T1324:; |
T1324:; |
3539 |
vs_top=base+4; |
vs_top=base+1; |
3540 |
while(!endp(V728)) |
while(!endp(V731)) |
3541 |
{vs_push(car(V728));V728=cdr(V728);} |
{vs_push(car(V731));V731=cdr(V731);} |
3542 |
vs_base=base+3;} |
vs_base=base+0;} |
3543 |
Lmin(); |
Lmin(); |
3544 |
vs_top=sup; |
vs_top=sup; |
3545 |
V727= vs_base[0]; |
V730= vs_base[0]; |
3546 |
base[4]= (V724); |
base[1]= (V726); |
3547 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+1)+1; |
3548 |
Ltype_of(); |
Ltype_of(); |
3549 |
vs_top=sup; |
vs_top=sup; |
3550 |
base[3]= vs_base[0]; |
base[0]= vs_base[0]; |
3551 |
base[4]= VV[18]; |
base[1]= VV[18]; |
3552 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+0)+2; |
3553 |
(void) (*Lnk61)(); |
(void) (*Lnk61)(); |
3554 |
vs_top=sup; |
vs_top=sup; |
3555 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3556 |
goto T1328;} |
goto T1328;} |
3557 |
base[3]= (V724); |
base[0]= (V726); |
3558 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+0)+1; |
3559 |
(void) (*Lnk62)(); |
(void) (*Lnk62)(); |
3560 |
vs_top=sup; |
vs_top=sup; |
3561 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3562 |
goto T1328;} |
goto T1328;} |
3563 |
base[3]= (V724); |
base[0]= (V726); |
3564 |
base[4]= (V727); |
base[1]= (V730); |
3565 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+0)+2; |
3566 |
siLfill_pointer_set(); |
siLfill_pointer_set(); |
3567 |
vs_top=sup; |
vs_top=sup; |
3568 |
goto T1328; |
goto T1328; |
3569 |
T1328:; |
T1328:; |
3570 |
{register object V731; |
{register object V734; |
3571 |
register object V732; |
register object V735; |
3572 |
V731= (V727); |
V734= (V730); |
3573 |
V732= small_fixnum(0); |
V735= small_fixnum(0); |
3574 |
goto T1342; |
goto T1342; |
3575 |
T1342:; |
T1342:; |
3576 |
if(!(number_compare((V732),(V731))>=0)){ |
if(!(number_compare((V735),(V734))>=0)){ |
3577 |
goto T1343;} |
goto T1343;} |
3578 |
base[3]= (V724); |
{object V736 = (V726); |
3579 |
vs_top=(vs_base=base+3)+1; |
VMR44(V736)} |
|
return; |
|
3580 |
goto T1343; |
goto T1343; |
3581 |
T1343:; |
T1343:; |
3582 |
base[3]= (V725); |
base[0]= (V727); |
3583 |
{object V734; |
{object V738; |
3584 |
{object V735; |
{object V739; |
3585 |
object V736= (V726); |
object V740= (V728); |
3586 |
if(endp(V736)){ |
if(endp(V740)){ |
3587 |
V734= Cnil; |
V738= Cnil; |
3588 |
goto T1350;} |
goto T1350;} |
3589 |
base[4]=V735=MMcons(Cnil,Cnil); |
base[1]=V739=MMcons(Cnil,Cnil); |
3590 |
goto T1351; |
goto T1351; |
3591 |
T1351:; |
T1351:; |
3592 |
{register object V737; |
{register object V741; |
3593 |
V737= (V736->c.c_car); |
V741= (V740->c.c_car); |
3594 |
(V735->c.c_car)= elt((V737),fixint((V732)));} |
(V739->c.c_car)= elt((V741),fixint((V735)));} |
3595 |
V736=MMcdr(V736); |
V740=MMcdr(V740); |
3596 |
if(endp(V736)){ |
if(endp(V740)){ |
3597 |
V734= base[4]; |
V738= base[1]; |
3598 |
goto T1350;} |
goto T1350;} |
3599 |
V735=MMcdr(V735)=MMcons(Cnil,Cnil); |
V739=MMcdr(V739)=MMcons(Cnil,Cnil); |
3600 |
goto T1351;} |
goto T1351;} |
3601 |
goto T1350; |
goto T1350; |
3602 |
T1350:; |
T1350:; |
3603 |
vs_top=base+4; |
vs_top=base+1; |
3604 |
while(!endp(V734)) |
while(!endp(V738)) |
3605 |
{vs_push(car(V734));V734=cdr(V734);} |
{vs_push(car(V738));V738=cdr(V738);} |
3606 |
vs_base=base+4;} |
vs_base=base+1;} |
3607 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[0]); |
3608 |
vs_top=sup; |
vs_top=sup; |
3609 |
V733= vs_base[0]; |
V737= vs_base[0]; |
3610 |
(void)(elt_set((V724),fixint((V732)),V733)); |
(void)(elt_set((V726),fixint((V735)),V737)); |
3611 |
V732= one_plus((V732)); |
V735= one_plus((V735)); |
3612 |
goto T1342;}} |
goto T1342;}} |
3613 |
|
va_end(ap); |
3614 |
|
base[0]=base[0]; |
3615 |
|
return Cnil;} |
3616 |
} |
} |
|
} |
|
3617 |
/* macro definition for WITH-HASH-TABLE-ITERATOR */ |
/* macro definition for WITH-HASH-TABLE-ITERATOR */ |
3618 |
|
|
3619 |
static void L46() |
static void L46() |
3622 |
vs_reserve(VM45); |
vs_reserve(VM45); |
3623 |
check_arg(2); |
check_arg(2); |
3624 |
vs_top=sup; |
vs_top=sup; |
3625 |
{object V738=base[0]->c.c_cdr; |
{object V742=base[0]->c.c_cdr; |
3626 |
if(endp(V738))invalid_macro_call(); |
if(endp(V742))invalid_macro_call(); |
3627 |
{object V739= (V738->c.c_car); |
{object V743= (V742->c.c_car); |
3628 |
if(endp(V739))invalid_macro_call(); |
if(endp(V743))invalid_macro_call(); |
3629 |
base[2]= (V739->c.c_car); |
base[2]= (V743->c.c_car); |
3630 |
V739=V739->c.c_cdr; |
V743=V743->c.c_cdr; |
3631 |
if(endp(V739))invalid_macro_call(); |
if(endp(V743))invalid_macro_call(); |
3632 |
base[3]= (V739->c.c_car); |
base[3]= (V743->c.c_car); |
3633 |
V739=V739->c.c_cdr; |
V743=V743->c.c_cdr; |
3634 |
if(!endp(V739))invalid_macro_call();} |
if(!endp(V743))invalid_macro_call();} |
3635 |
V738=V738->c.c_cdr; |
V742=V742->c.c_cdr; |
3636 |
base[4]= V738;} |
base[4]= V742;} |
3637 |
{object V740; |
{object V744; |
3638 |
object V741; |
object V745; |
3639 |
vs_base=vs_top; |
vs_base=vs_top; |
3640 |
Lgensym(); |
Lgensym(); |
3641 |
vs_top=sup; |
vs_top=sup; |
3642 |
V740= vs_base[0]; |
V744= vs_base[0]; |
3643 |
base[5]= VV[19]; |
base[5]= VV[19]; |
3644 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3645 |
Lgensym(); |
Lgensym(); |
3646 |
vs_top=sup; |
vs_top=sup; |
3647 |
V741= vs_base[0]; |
V745= vs_base[0]; |
3648 |
V742= list(2,(V740),base[3]); |
V746= list(2,(V744),base[3]); |
3649 |
V743= list(2,/* INLINE-ARGS */V742,list(2,(V741),small_fixnum(0))); |
V747= list(2,/* INLINE-ARGS */V746,list(2,(V745),small_fixnum(0))); |
3650 |
V744= list(2,VV[25],(V740)); |
V748= list(2,VV[25],(V744)); |
3651 |
V745= list(4,VV[0],VV[24],/* INLINE-ARGS */V744,list(2,VV[25],(V741))); |
V749= list(4,VV[0],VV[24],/* INLINE-ARGS */V748,list(2,VV[25],(V745))); |
3652 |
V746= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V745,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V741)),VV[29]),VV[30]),VV[31]))); |
V750= list(3,base[2],Cnil,list(5,VV[0],VV[22],VV[23],/* INLINE-ARGS */V749,list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(4,VV[0],VV[28],list(2,VV[25],(V745)),VV[29]),VV[30]),VV[31]))); |
3653 |
base[5]= list(3,VV[20],/* INLINE-ARGS */V743,listA(3,VV[21],make_cons(/* INLINE-ARGS */V746,Cnil),base[4])); |
base[5]= list(3,VV[20],/* INLINE-ARGS */V747,listA(3,VV[21],make_cons(/* INLINE-ARGS */V750,Cnil),base[4])); |
3654 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3655 |
return;} |
return;} |
3656 |
} |
} |
3661 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3662 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
3663 |
vs_reserve(VM46); |
vs_reserve(VM46); |
3664 |
{object V747; |
{object V751; |
3665 |
check_arg(1); |
check_arg(1); |
3666 |
V747=(base[0]); |
V751=(base[0]); |
3667 |
vs_top=sup; |
vs_top=sup; |
3668 |
goto TTL; |
goto TTL; |
3669 |
TTL:; |
TTL:; |
3670 |
{long V748; |
{long V752; |
|
register object V749; |
|
|
register object V750; |
|
|
object V751; |
|
|
register object V752; |
|
3671 |
register object V753; |
register object V753; |
3672 |
register object V754; |
register object V754; |
3673 |
V748= 0; |
object V755; |
3674 |
V749= Cnil; |
register object V756; |
3675 |
V750= Cnil; |
register object V757; |
3676 |
V751= Cnil; |
register object V758; |
3677 |
V752= Cnil; |
V752= 0; |
3678 |
V753= Cnil; |
V753= Cnil; |
3679 |
V754= Cnil; |
V754= Cnil; |
3680 |
V748= (long)length((V747)); |
V755= Cnil; |
3681 |
if(!((V748)<(2))){ |
V756= Cnil; |
3682 |
|
V757= Cnil; |
3683 |
|
V758= Cnil; |
3684 |
|
V752= (long)length((V751)); |
3685 |
|
if(!((V752)<(2))){ |
3686 |
goto T1368;} |
goto T1368;} |
3687 |
base[1]= (V747); |
base[1]= (V751); |
3688 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3689 |
return; |
return; |
3690 |
goto T1368; |
goto T1368; |
3691 |
T1368:; |
T1368:; |
3692 |
if(!((V748)==(2))){ |
if(!((V752)==(2))){ |
3693 |
goto T1366;} |
goto T1366;} |
3694 |
V753= ( |
V757= ( |
3695 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3696 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V747)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V751)))); |
3697 |
V754= ( |
V758= ( |
3698 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3699 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V747)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V751)))); |
3700 |
base[1]= (V753); |
base[1]= (V757); |
3701 |
base[2]= (V754); |
base[2]= (V758); |
3702 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3703 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3704 |
vs_top=sup; |
vs_top=sup; |
3705 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3706 |
goto T1377;} |
goto T1377;} |
3707 |
base[1]= (V747); |
base[1]= (V751); |
3708 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3709 |
return; |
return; |
3710 |
goto T1377; |
goto T1377; |
3711 |
T1377:; |
T1377:; |
3712 |
base[1]= (V754); |
base[1]= (V758); |
3713 |
base[2]= (V753); |
base[2]= (V757); |
3714 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3715 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3716 |
vs_top=sup; |
vs_top=sup; |
3717 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3718 |
goto T1382;} |
goto T1382;} |
3719 |
base[1]= nreverse((V747)); |
base[1]= nreverse((V751)); |
3720 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3721 |
return; |
return; |
3722 |
goto T1382; |
goto T1382; |
3723 |
T1382:; |
T1382:; |
3724 |
base[1]= (V747); |
base[1]= (V751); |
3725 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3726 |
return; |
return; |
3727 |
goto T1366; |
goto T1366; |
3728 |
T1366:; |
T1366:; |
3729 |
V748= (long)(V748>=0&&(2)>0?(V748)/(2):ifloor(V748,2)); |
V752= (long)(V752>=0&&(2)>0?(V752)/(2):ifloor(V752,2)); |
3730 |
{long V755; |
{long V759; |
3731 |
register object V756; |
register object V760; |
3732 |
V755= 1; |
V759= 1; |
3733 |
V756= (V747); |
V760= (V751); |
3734 |
goto T1391; |
goto T1391; |
3735 |
T1391:; |
T1391:; |
3736 |
if(!((V755)>=(V748))){ |
if(!((V759)>=(V752))){ |
3737 |
goto T1392;} |
goto T1392;} |
3738 |
V749= (V747); |
V753= (V751); |
3739 |
V750= cdr((V756)); |
V754= cdr((V760)); |
3740 |
if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756)); |
if(type_of((V760))!=t_cons)FEwrong_type_argument(Scons,(V760)); |
3741 |
((V756))->c.c_cdr = Cnil; |
((V760))->c.c_cdr = Cnil; |
3742 |
goto T1388; |
goto T1388; |
3743 |
goto T1392; |
goto T1392; |
3744 |
T1392:; |
T1392:; |
3745 |
V755= (long)(1)+(V755); |
V759= (long)(1)+(V759); |
3746 |
V756= cdr((V756)); |
V760= cdr((V760)); |
3747 |
goto T1391;} |
goto T1391;} |
3748 |
goto T1388; |
goto T1388; |
3749 |
T1388:; |
T1388:; |
3750 |
base[1]= (V749); |
base[1]= (V753); |
3751 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3752 |
L41(base0); |
L41(base0); |
3753 |
vs_top=sup; |
vs_top=sup; |
3754 |
V749= vs_base[0]; |
V753= vs_base[0]; |
3755 |
base[1]= (V750); |
base[1]= (V754); |
3756 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3757 |
L41(base0); |
L41(base0); |
3758 |
vs_top=sup; |
vs_top=sup; |
3759 |
V750= vs_base[0]; |
V754= vs_base[0]; |
3760 |
if(!(endp_prop((V749)))){ |
if(!(endp_prop((V753)))){ |
3761 |
goto T1412;} |
goto T1412;} |
3762 |
base[1]= (V750); |
base[1]= (V754); |
3763 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3764 |
return; |
return; |
3765 |
goto T1412; |
goto T1412; |
3766 |
T1412:; |
T1412:; |
3767 |
if(!(endp_prop((V750)))){ |
if(!(endp_prop((V754)))){ |
3768 |
goto T1410;} |
goto T1410;} |
3769 |
base[1]= (V749); |
base[1]= (V753); |
3770 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3771 |
return; |
return; |
3772 |
goto T1410; |
goto T1410; |
3773 |
T1410:; |
T1410:; |
3774 |
V751= make_cons(Cnil,Cnil); |
V755= make_cons(Cnil,Cnil); |
3775 |
V752= (V751); |
V756= (V755); |
3776 |
V753= ( |
V757= ( |
3777 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3778 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V749)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V753)))); |
3779 |
V754= ( |
V758= ( |
3780 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3781 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V750)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V754)))); |
3782 |
goto T1361; |
goto T1361; |
3783 |
T1361:; |
T1361:; |
3784 |
base[1]= (V753); |
base[1]= (V757); |
3785 |
base[2]= (V754); |
base[2]= (V758); |
3786 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3787 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3788 |
vs_top=sup; |
vs_top=sup; |
3791 |
goto T1362; |
goto T1362; |
3792 |
goto T1424; |
goto T1424; |
3793 |
T1424:; |
T1424:; |
3794 |
base[1]= (V754); |
base[1]= (V758); |
3795 |
base[2]= (V753); |
base[2]= (V757); |
3796 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3797 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3798 |
vs_top=sup; |
vs_top=sup; |
3804 |
goto T1362; |
goto T1362; |
3805 |
goto T1362; |
goto T1362; |
3806 |
T1362:; |
T1362:; |
3807 |
if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752)); |
if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756)); |
3808 |
((V752))->c.c_cdr = (V749); |
((V756))->c.c_cdr = (V753); |
3809 |
V752= cdr((V752)); |
V756= cdr((V756)); |
3810 |
V749= cdr((V749)); |
V753= cdr((V753)); |
3811 |
if(!(endp_prop((V749)))){ |
if(!(endp_prop((V753)))){ |
3812 |
goto T1438;} |
goto T1438;} |
3813 |
if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752)); |
if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756)); |
3814 |
((V752))->c.c_cdr = (V750); |
((V756))->c.c_cdr = (V754); |
3815 |
base[1]= cdr((V751)); |
base[1]= cdr((V755)); |
3816 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3817 |
return; |
return; |
3818 |
goto T1438; |
goto T1438; |
3819 |
T1438:; |
T1438:; |
3820 |
V753= ( |
V757= ( |
3821 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3822 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V749)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V753)))); |
3823 |
goto T1361; |
goto T1361; |
3824 |
goto T1363; |
goto T1363; |
3825 |
T1363:; |
T1363:; |
3826 |
if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752)); |
if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756)); |
3827 |
((V752))->c.c_cdr = (V750); |
((V756))->c.c_cdr = (V754); |
3828 |
V752= cdr((V752)); |
V756= cdr((V756)); |
3829 |
V750= cdr((V750)); |
V754= cdr((V754)); |
3830 |
if(!(endp_prop((V750)))){ |
if(!(endp_prop((V754)))){ |
3831 |
goto T1449;} |
goto T1449;} |
3832 |
if(type_of((V752))!=t_cons)FEwrong_type_argument(Scons,(V752)); |
if(type_of((V756))!=t_cons)FEwrong_type_argument(Scons,(V756)); |
3833 |
((V752))->c.c_cdr = (V749); |
((V756))->c.c_cdr = (V753); |
3834 |
base[1]= cdr((V751)); |
base[1]= cdr((V755)); |
3835 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3836 |
return; |
return; |
3837 |
goto T1449; |
goto T1449; |
3838 |
T1449:; |
T1449:; |
3839 |
V754= ( |
V758= ( |
3840 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3841 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V750)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V754)))); |
3842 |
goto T1361;} |
goto T1361;} |
3843 |
} |
} |
3844 |
} |
} |