666 |
goto T352; |
goto T352; |
667 |
goto T353; |
goto T353; |
668 |
T353:; |
T353:; |
669 |
if((V63!= VV[43]))goto T355; |
if((V63!= VV[285]))goto T355; |
670 |
V60= Ct; |
V59= Ct; |
671 |
goto T352; |
goto T352; |
672 |
goto T355; |
goto T355; |
673 |
T355:; |
T355:; |
674 |
if((V63!= VV[285]))goto T357; |
if((V63!= VV[43]))goto T357; |
675 |
|
V60= Ct; |
676 |
goto T352; |
goto T352; |
677 |
goto T357; |
goto T357; |
678 |
T357:; |
T357:; |
679 |
|
if((V63!= VV[286]))goto T359; |
680 |
|
V60= Ct; |
681 |
|
goto T352; |
682 |
|
goto T359; |
683 |
|
T359:; |
684 |
|
if((V63!= VV[287]))goto T361; |
685 |
|
goto T352; |
686 |
|
goto T361; |
687 |
|
T361:; |
688 |
|
if((V63!= VV[288]))goto T362; |
689 |
|
goto T352; |
690 |
|
goto T362; |
691 |
|
T362:; |
692 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V62))));} |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V62))));} |
693 |
goto T352; |
goto T352; |
694 |
T352:; |
T352:; |
700 |
base[1]= car((V58)); |
base[1]= car((V58)); |
701 |
bds_bind(VV[42],base[1]); |
bds_bind(VV[42],base[1]); |
702 |
if(((V59))==Cnil){ |
if(((V59))==Cnil){ |
703 |
goto T365;} |
goto T370;} |
704 |
base[2]= (*(LnkLI286))(cdr((V58))); |
base[2]= (*(LnkLI289))(cdr((V58))); |
705 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
706 |
bds_unwind1; |
bds_unwind1; |
707 |
return; |
return; |
708 |
goto T365; |
goto T370; |
709 |
T365:; |
T370:; |
710 |
if(((V60))==Cnil){ |
if(((V60))==Cnil){ |
711 |
goto T368;} |
goto T373;} |
712 |
base[2]= make_cons(VV[46],cdr((V58))); |
base[2]= make_cons(VV[46],cdr((V58))); |
713 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
714 |
(void) (*Lnk282)(); |
(void) (*Lnk282)(); |
715 |
bds_unwind1; |
bds_unwind1; |
716 |
return; |
return; |
717 |
goto T368; |
goto T373; |
718 |
T368:; |
T373:; |
719 |
base[2]= Cnil; |
base[2]= Cnil; |
720 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
721 |
bds_unwind1; |
bds_unwind1; |
732 |
goto TTL; |
goto TTL; |
733 |
TTL:; |
TTL:; |
734 |
if(!(equal(car((V65)),VV[47]))){ |
if(!(equal(car((V65)),VV[47]))){ |
735 |
goto T372;} |
goto T377;} |
736 |
bds_bind(VV[48],Ct); |
bds_bind(VV[48],Ct); |
737 |
{object V66 = (*(LnkLI286))(cdr((V65))); |
{object V66 = (*(LnkLI289))(cdr((V65))); |
738 |
bds_unwind1; |
bds_unwind1; |
739 |
VMR6(V66)} |
VMR6(V66)} |
740 |
goto T372; |
goto T377; |
741 |
T372:; |
T377:; |
742 |
{register object V67; |
{register object V67; |
743 |
register object V68; |
register object V68; |
744 |
V67= (V65); |
V67= (V65); |
745 |
V68= car((V67)); |
V68= car((V67)); |
746 |
goto T377; |
goto T382; |
747 |
T377:; |
T382:; |
748 |
if(!(endp_prop((V67)))){ |
if(!(endp_prop((V67)))){ |
749 |
goto T378;} |
goto T383;} |
750 |
{object V69 = Cnil; |
{object V69 = Cnil; |
751 |
VMR6(V69)} |
VMR6(V69)} |
752 |
goto T378; |
goto T383; |
753 |
T378:; |
T383:; |
754 |
base[1]= (V68); |
base[1]= (V68); |
755 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
756 |
(void) (*Lnk271)(); |
(void) (*Lnk271)(); |
757 |
vs_top=sup; |
vs_top=sup; |
758 |
V67= cdr((V67)); |
V67= cdr((V67)); |
759 |
V68= car((V67)); |
V68= car((V67)); |
760 |
goto T377;} |
goto T382;} |
761 |
base[0]=base[0]; |
base[0]=base[0]; |
762 |
return Cnil; |
return Cnil; |
763 |
} |
} |
781 |
register object V77; |
register object V77; |
782 |
V76= (V73); |
V76= (V73); |
783 |
V77= car((V76)); |
V77= car((V76)); |
784 |
goto T396; |
goto T401; |
785 |
T396:; |
T401:; |
786 |
if(!(endp_prop((V76)))){ |
if(!(endp_prop((V76)))){ |
787 |
goto T397;} |
goto T402;} |
|
goto T392; |
|
788 |
goto T397; |
goto T397; |
789 |
T397:; |
goto T402; |
790 |
|
T402:; |
791 |
{register object x= car((V77)),V78= (V75); |
{register object x= car((V77)),V78= (V75); |
792 |
while(!endp(V78)) |
while(!endp(V78)) |
793 |
if(eql(x,V78->c.c_car)){ |
if(eql(x,V78->c.c_car)){ |
794 |
V74= V78; |
V74= V78; |
795 |
goto T402; |
goto T407; |
796 |
}else V78=V78->c.c_cdr; |
}else V78=V78->c.c_cdr; |
797 |
V74= Cnil;} |
V74= Cnil;} |
798 |
goto T402; |
goto T407; |
799 |
T402:; |
T407:; |
800 |
if((V74)==Cnil){ |
if((V74)==Cnil){ |
801 |
goto T403;} |
goto T408;} |
802 |
{register object V79; |
{register object V79; |
803 |
register object V80; |
register object V80; |
804 |
V79= (V74); |
V79= (V74); |
805 |
V80= cadr((V77)); |
V80= cadr((V77)); |
806 |
if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79)); |
if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79)); |
807 |
((V79))->c.c_car = (V80);} |
((V79))->c.c_car = (V80);} |
808 |
goto T403; |
goto T408; |
809 |
T403:; |
T408:; |
810 |
V76= cdr((V76)); |
V76= cdr((V76)); |
811 |
V77= car((V76)); |
V77= car((V76)); |
812 |
goto T396;} |
goto T401;} |
813 |
goto T392; |
goto T397; |
814 |
T392:; |
T397:; |
815 |
{register object x= VV[49],V81= (V75); |
{register object x= VV[49],V81= (V75); |
816 |
while(!endp(V81)) |
while(!endp(V81)) |
817 |
if(eql(x,V81->c.c_car)){ |
if(eql(x,V81->c.c_car)){ |
818 |
V74= V81; |
V74= V81; |
819 |
goto T416; |
goto T421; |
820 |
}else V81=V81->c.c_cdr; |
}else V81=V81->c.c_cdr; |
821 |
V74= Cnil;} |
V74= Cnil;} |
822 |
goto T416; |
goto T421; |
823 |
T416:; |
T421:; |
824 |
if(((V74))==Cnil){ |
if(((V74))==Cnil){ |
825 |
goto T414;} |
goto T419;} |
826 |
{object V83; |
{object V83; |
827 |
V83= append((V73),cdr((V74))); |
V83= append((V73),cdr((V74))); |
828 |
if(type_of(V74)!=t_cons)FEwrong_type_argument(Scons,V74); |
if(type_of(V74)!=t_cons)FEwrong_type_argument(Scons,V74); |
829 |
(V74)->c.c_cdr = (V83); |
(V74)->c.c_cdr = (V83); |
830 |
goto T412;} |
goto T417;} |
831 |
goto T414; |
goto T419; |
832 |
T414:; |
T419:; |
833 |
V84= make_cons(VV[49],(V73)); |
V84= make_cons(VV[49],(V73)); |
834 |
V75= append((V75),/* INLINE-ARGS */V84); |
V75= append((V75),/* INLINE-ARGS */V84); |
835 |
goto T412; |
goto T417; |
836 |
T412:; |
T417:; |
837 |
{object V85 = listA(3,car((V72)),(V75),cddr((V72))); |
{object V85 = listA(3,car((V72)),(V75),cddr((V72))); |
838 |
VMR7(V85)}} |
VMR7(V85)}} |
839 |
base[0]=base[0]; |
base[0]=base[0]; |
852 |
V88= symbol_value(VV[50]); |
V88= symbol_value(VV[50]); |
853 |
bds_bind(VV[52],Cnil); |
bds_bind(VV[52],Cnil); |
854 |
if(endp_prop((V87))){ |
if(endp_prop((V87))){ |
855 |
goto T422;} |
goto T427;} |
856 |
if(!(endp_prop(cdr((V87))))){ |
if(!(endp_prop(cdr((V87))))){ |
857 |
goto T421;} |
goto T426;} |
858 |
goto T422; |
goto T427; |
859 |
T422:; |
T427:; |
860 |
V90 = make_fixnum((long)length((V87))); |
V90 = make_fixnum((long)length((V87))); |
861 |
(void)((*(LnkLI283))(VV[51],small_fixnum(2),V90)); |
(void)((*(LnkLI283))(VV[51],small_fixnum(2),V90)); |
|
goto T421; |
|
|
T421:; |
|
|
if(type_of(car((V87)))==t_symbol){ |
|
|
goto T426;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V87))))); |
|
862 |
goto T426; |
goto T426; |
863 |
T426:; |
T426:; |
864 |
V91= make_cons(VV[51],(V87)); |
if(type_of(car((V87)))==t_symbol){ |
865 |
(void)((*(LnkLI267))(Cnil,/* INLINE-ARGS */V91)); |
goto T431;} |
866 |
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V87))))); |
867 |
goto T431; |
goto T431; |
868 |
T431:; |
T431:; |
869 |
|
V91= make_cons(VV[51],(V87)); |
870 |
|
(void)((*(LnkLI267))(Cnil,/* INLINE-ARGS */V91)); |
871 |
|
goto T436; |
872 |
|
T436:; |
873 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
874 |
setq(VV[54],Cnil); |
setq(VV[54],Cnil); |
875 |
{register object V92; |
{register object V92; |
877 |
object V94; |
object V94; |
878 |
register object V95;{object V96; |
register object V95;{object V96; |
879 |
V96= get(car((V87)),VV[60],Cnil); |
V96= get(car((V87)),VV[60],Cnil); |
880 |
if(V96==Cnil)goto T438; |
if(V96==Cnil)goto T443; |
881 |
V93= V96; |
V93= V96; |
882 |
goto T437; |
goto T442; |
883 |
goto T438; |
goto T443; |
884 |
T438:;} |
T443:;} |
885 |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1))); |
886 |
V93= symbol_value(VV[61]); |
V93= symbol_value(VV[61]); |
887 |
goto T437; |
goto T442; |
888 |
T437:; |
T442:; |
889 |
V95= car((V87)); |
V95= car((V87)); |
890 |
bds_bind(VV[55],Cnil); |
bds_bind(VV[55],Cnil); |
891 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
894 |
V92= Cnil; |
V92= Cnil; |
895 |
bds_bind(VV[59],Cnil); |
bds_bind(VV[59],Cnil); |
896 |
V94= Cnil; |
V94= Cnil; |
897 |
V92= (VFUN_NARGS=2,(*(LnkLI287))(cdr((V87)),(V95))); |
V92= (VFUN_NARGS=2,(*(LnkLI290))(cdr((V87)),(V95))); |
898 |
if(!(eql((V88),symbol_value(VV[50])))){ |
if(!(eql((V88),symbol_value(VV[50])))){ |
899 |
goto T445;} |
goto T450;} |
900 |
goto T444; |
goto T449; |
901 |
goto T445; |
goto T450; |
902 |
T445:; |
T450:; |
903 |
(void)(structure_set(cadr((V92)),VV[62],4,Ct)); |
(void)(structure_set(cadr((V92)),VV[62],4,Ct)); |
904 |
goto T444; |
goto T449; |
905 |
T444:; |
T449:; |
906 |
V97= structure_ref(cadr((V92)),VV[62],1); |
V97= structure_ref(cadr((V92)),VV[62],1); |
907 |
(void)((*(LnkLI288))(/* INLINE-ARGS */V97)); |
(void)((*(LnkLI291))(/* INLINE-ARGS */V97)); |
908 |
if((get((V95),VV[63],Cnil))==Cnil){ |
if((get((V95),VV[63],Cnil))==Cnil){ |
909 |
goto T448;} |
goto T453;} |
910 |
{object V98; |
{object V98; |
911 |
V98= make_fixnum((long)length(car(caddr((V92))))); |
V98= make_fixnum((long)length(car(caddr((V92))))); |
912 |
(void)(sputprop((V95),VV[63],(V98))); |
(void)(sputprop((V95),VV[63],(V98))); |
918 |
vs_top=sup; |
vs_top=sup; |
919 |
V99= vs_base[0]; |
V99= vs_base[0]; |
920 |
V100= list(4,VV[64],(V95),V99,Ct); |
V100= list(4,VV[64],(V95),V99,Ct); |
921 |
(void)((*(LnkLI289))(/* INLINE-ARGS */V100));} |
(void)((*(LnkLI292))(/* INLINE-ARGS */V100));} |
922 |
goto T448; |
goto T453; |
923 |
T448:; |
T453:; |
924 |
if((get((V95),VV[66],Cnil))==Cnil){ |
if((get((V95),VV[66],Cnil))==Cnil){ |
925 |
goto T459;} |
goto T464;} |
926 |
{object V101; |
{object V101; |
927 |
register object V102; |
register object V102; |
928 |
V101= caddr((V92)); |
V101= caddr((V92)); |
929 |
V102= Cnil; |
V102= Cnil; |
930 |
if((cadr((V101)))==Cnil){ |
if((cadr((V101)))==Cnil){ |
931 |
goto T464;} |
goto T469;} |
|
goto T459; |
|
932 |
goto T464; |
goto T464; |
933 |
T464:; |
goto T469; |
934 |
|
T469:; |
935 |
if((caddr((V101)))==Cnil){ |
if((caddr((V101)))==Cnil){ |
936 |
goto T466;} |
goto T471;} |
937 |
goto T459; |
goto T464; |
938 |
goto T466; |
goto T471; |
939 |
T466:; |
T471:; |
940 |
if((cadddr((V101)))==Cnil){ |
if((cadddr((V101)))==Cnil){ |
941 |
goto T468;} |
goto T473;} |
942 |
goto T459; |
goto T464; |
943 |
goto T468; |
goto T473; |
944 |
T468:; |
T473:; |
945 |
if(((long)length(car((V101))))<(64)){ |
if(((long)length(car((V101))))<(64)){ |
946 |
goto T470;} |
goto T475;} |
947 |
goto T459; |
goto T464; |
948 |
goto T470; |
goto T475; |
949 |
T470:; |
T475:; |
950 |
{register object V103; |
{register object V103; |
951 |
register object V104; |
register object V104; |
952 |
object V105; |
object V105; |
953 |
V103= car((V101)); |
V103= car((V101)); |
954 |
V104= get((V95),VV[67],Cnil); |
V104= get((V95),VV[67],Cnil); |
955 |
V105= Cnil; |
V105= Cnil; |
956 |
goto T477; |
goto T482; |
957 |
T477:; |
T482:; |
958 |
if(!(endp_prop((V103)))){ |
if(!(endp_prop((V103)))){ |
959 |
goto T478;} |
goto T483;} |
960 |
if(endp_prop((V104))){ |
if(endp_prop((V104))){ |
961 |
goto T481;} |
goto T486;} |
962 |
goto T473; |
goto T478; |
963 |
goto T481; |
goto T486; |
964 |
T481:; |
T486:; |
965 |
if(((V102))==Cnil){ |
if(((V102))==Cnil){ |
966 |
goto T484;} |
goto T489;} |
967 |
V87= (*(LnkLI290))((V87),(V102)); |
V87= (*(LnkLI293))((V87),(V102)); |
968 |
bds_unwind1; |
bds_unwind1; |
969 |
bds_unwind1; |
bds_unwind1; |
970 |
bds_unwind1; |
bds_unwind1; |
971 |
bds_unwind1; |
bds_unwind1; |
972 |
bds_unwind1; |
bds_unwind1; |
973 |
goto T431; |
goto T436; |
974 |
goto T484; |
goto T489; |
975 |
T484:; |
T489:; |
976 |
if(((V105))==Cnil){ |
if(((V105))==Cnil){ |
977 |
goto T472;} |
goto T477;} |
|
goto T473; |
|
978 |
goto T478; |
goto T478; |
979 |
T478:; |
goto T483; |
980 |
|
T483:; |
981 |
{register object V106; |
{register object V106; |
982 |
V106= car((V103)); |
V106= car((V103)); |
983 |
if(!(equal(car((V104)),VV[68]))){ |
if(!(equal(car((V104)),VV[68]))){ |
984 |
goto T491;} |
goto T496;} |
985 |
goto T473; |
goto T478; |
986 |
goto T491; |
goto T496; |
987 |
T491:; |
T496:; |
988 |
V107= structure_ref((V106),VV[69],1); |
V107= structure_ref((V106),VV[69],1); |
989 |
if((/* INLINE-ARGS */V107)==(VV[70])){ |
if((/* INLINE-ARGS */V107)==(VV[70])){ |
990 |
goto T497;} |
goto T502;} |
991 |
V108= structure_ref((V106),VV[69],1); |
V108= structure_ref((V106),VV[69],1); |
992 |
if(!((/* INLINE-ARGS */V108)==(VV[71]))){ |
if(!((/* INLINE-ARGS */V108)==(VV[71]))){ |
993 |
goto T496;} |
goto T501;} |
994 |
if(!((car((V104)))==(Ct))){ |
if(!((car((V104)))==(Ct))){ |
995 |
goto T496;} |
goto T501;} |
996 |
goto T497; |
goto T502; |
997 |
T497:; |
T502:; |
998 |
if((structure_ref((V106),VV[69],3))!=Cnil){ |
if((structure_ref((V106),VV[69],3))!=Cnil){ |
999 |
goto T496;} |
goto T501;} |
1000 |
V109= structure_ref((V106),VV[69],4); |
V109= structure_ref((V106),VV[69],4); |
1001 |
if(!((/* INLINE-ARGS */V109)==(VV[72]))){ |
if(!((/* INLINE-ARGS */V109)==(VV[72]))){ |
1002 |
goto T495;} |
goto T500;} |
1003 |
goto T496; |
goto T501; |
1004 |
T496:; |
T501:; |
1005 |
{object V110; |
{object V110; |
1006 |
V111= structure_ref((V106),VV[69],0); |
V111= structure_ref((V106),VV[69],0); |
1007 |
vs_base=vs_top; |
vs_base=vs_top; |
1010 |
V112= vs_base[0]; |
V112= vs_base[0]; |
1011 |
V110= list(2,/* INLINE-ARGS */V111,V112); |
V110= list(2,/* INLINE-ARGS */V111,V112); |
1012 |
V102= make_cons((V110),(V102));} |
V102= make_cons((V110),(V102));} |
1013 |
goto T495; |
goto T500; |
1014 |
T495:; |
T500:; |
1015 |
V113= car((V104)); |
V113= car((V104)); |
1016 |
V114= structure_ref((V106),VV[69],5); |
V114= structure_ref((V106),VV[69],5); |
1017 |
if(((*(LnkLI291))(/* INLINE-ARGS */V113,/* INLINE-ARGS */V114))==Cnil){ |
if(((*(LnkLI294))(/* INLINE-ARGS */V113,/* INLINE-ARGS */V114))==Cnil){ |
1018 |
goto T494;} |
goto T499;} |
1019 |
{register object x= car((V104)),V115= VV[73]; |
{register object x= car((V104)),V115= VV[73]; |
1020 |
while(!endp(V115)) |
while(!endp(V115)) |
1021 |
if(eql(x,V115->c.c_car)){ |
if(eql(x,V115->c.c_car)){ |
1022 |
goto T489; |
goto T494; |
1023 |
}else V115=V115->c.c_cdr;} |
}else V115=V115->c.c_cdr;} |
1024 |
V116= structure_ref((V106),VV[69],4); |
V116= structure_ref((V106),VV[69],4); |
1025 |
if((/* INLINE-ARGS */V116)==(VV[74])){ |
if((/* INLINE-ARGS */V116)==(VV[74])){ |
1026 |
goto T489;} |
goto T494;} |
1027 |
if((symbol_value(VV[75]))!=Cnil){ |
if((symbol_value(VV[75]))!=Cnil){ |
1028 |
goto T489;} |
goto T494;} |
1029 |
V118= structure_ref(cadr((V92)),VV[62],0); |
V118= structure_ref(cadr((V92)),VV[62],0); |
1030 |
{register object x= (V106),V117= /* INLINE-ARGS */V118; |
{register object x= (V106),V117= /* INLINE-ARGS */V118; |
1031 |
while(!endp(V117)) |
while(!endp(V117)) |
1032 |
if(eql(x,V117->c.c_car)){ |
if(eql(x,V117->c.c_car)){ |
1033 |
goto T519; |
goto T524; |
1034 |
}else V117=V117->c.c_cdr; |
}else V117=V117->c.c_cdr; |
1035 |
goto T489;} |
goto T494;} |
1036 |
goto T519; |
goto T524; |
1037 |
T519:; |
T524:; |
1038 |
goto T494; |
goto T499; |
1039 |
T494:; |
T499:; |
1040 |
if(((V102))!=Cnil){ |
if(((V102))!=Cnil){ |
1041 |
goto T520;} |
goto T525;} |
1042 |
V119= structure_ref((V106),VV[69],0); |
V119= structure_ref((V106),VV[69],0); |
1043 |
(void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V95),/* INLINE-ARGS */V119))); |
(void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V95),/* INLINE-ARGS */V119))); |
1044 |
goto T520; |
goto T525; |
1045 |
T520:; |
T525:; |
1046 |
V105= Ct;} |
V105= Ct;} |
1047 |
goto T489; |
goto T494; |
1048 |
T489:; |
T494:; |
1049 |
V103= cdr((V103)); |
V103= cdr((V103)); |
1050 |
V104= cdr((V104)); |
V104= cdr((V104)); |
1051 |
goto T477;} |
goto T482;} |
1052 |
goto T473; |
goto T478; |
1053 |
T473:; |
T478:; |
1054 |
goto T459; |
goto T464; |
1055 |
goto T472; |
goto T477; |
1056 |
T472:; |
T477:; |
1057 |
if(!(type_of((V93))==t_fixnum|| |
if(!(type_of((V93))==t_fixnum|| |
1058 |
type_of((V93))==t_bignum|| |
type_of((V93))==t_bignum|| |
1059 |
type_of((V93))==t_ratio|| |
type_of((V93))==t_ratio|| |
1060 |
type_of((V93))==t_shortfloat|| |
type_of((V93))==t_shortfloat|| |
1061 |
type_of((V93))==t_longfloat|| |
type_of((V93))==t_longfloat|| |
1062 |
type_of((V93))==t_complex)){ |
type_of((V93))==t_complex)){ |
1063 |
goto T459;}} |
goto T464;}} |
1064 |
{object V120; |
{object V120; |
1065 |
V121= get((V95),VV[67],Cnil); |
V121= get((V95),VV[67],Cnil); |
1066 |
V122= get((V95),VV[77],Cnil); |
V122= get((V95),VV[77],Cnil); |
1067 |
V123= get((V95),VV[67],Cnil); |
V123= get((V95),VV[67],Cnil); |
1068 |
V120= list(5,(V95),V121,V122,small_fixnum(3),(*(LnkLI292))((V93),V123)); |
V120= list(5,(V95),V121,V122,small_fixnum(3),(*(LnkLI295))((V93),V123)); |
1069 |
setq(VV[78],make_cons((V120),symbol_value(VV[78]))); |
setq(VV[78],make_cons((V120),symbol_value(VV[78]))); |
1070 |
goto T457;} |
goto T462;} |
1071 |
goto T459; |
goto T464; |
1072 |
T459:; |
T464:; |
1073 |
{object V124; |
{object V124; |
1074 |
V125= get((V95),VV[77],Cnil); |
V125= get((V95),VV[77],Cnil); |
1075 |
V124= ((V125)==(Ct)?Ct:Cnil); |
V124= ((V125)==(Ct)?Ct:Cnil); |
1076 |
if(((V124))==Cnil){ |
if(((V124))==Cnil){ |
1077 |
goto T457;}} |
goto T462;}} |
1078 |
goto T457; |
goto T462; |
1079 |
T457:; |
T462:; |
1080 |
if((cadddr((V92)))==Cnil){ |
if((cadddr((V92)))==Cnil){ |
1081 |
goto T537;} |
goto T542;} |
1082 |
V94= cadddr((V92)); |
V94= cadddr((V92)); |
1083 |
goto T537; |
goto T542; |
1084 |
T537:; |
T542:; |
1085 |
(void)((*(LnkLI293))()); |
(void)((*(LnkLI296))()); |
1086 |
{object V126; |
{object V126; |
1087 |
V126= list(6,VV[51],(V95),(V93),(V92),(V94),(VV[59]->s.s_dbind)); |
V126= list(6,VV[51],(V95),(V93),(V92),(V94),(VV[59]->s.s_dbind)); |
1088 |
setq(VV[24],make_cons((V126),symbol_value(VV[24])));} |
setq(VV[24],make_cons((V126),symbol_value(VV[24])));} |
1110 |
goto TTL; |
goto TTL; |
1111 |
TTL:; |
TTL:; |
1112 |
if(((V133))!=Cnil){ |
if(((V133))!=Cnil){ |
1113 |
goto T548;} |
goto T553;} |
1114 |
base[0]= Cnil; |
base[0]= Cnil; |
1115 |
base[1]= VV[80]; |
base[1]= VV[80]; |
1116 |
base[2]= (V132); |
base[2]= (V132); |
1119 |
vs_top=sup; |
vs_top=sup; |
1120 |
{object V134 = vs_base[0]; |
{object V134 = vs_base[0]; |
1121 |
VMR9(V134)} |
VMR9(V134)} |
1122 |
goto T548; |
goto T553; |
1123 |
T548:; |
T553:; |
1124 |
{register object V135; |
{register object V135; |
1125 |
V135= (VFUN_NARGS=7,(*(LnkLI294))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct)); |
V135= (VFUN_NARGS=7,(*(LnkLI297))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct)); |
1126 |
base[0]= (V135); |
base[0]= (V135); |
1127 |
base[1]= VV[85]; |
base[1]= VV[85]; |
1128 |
base[2]= (V132); |
base[2]= (V132); |
1133 |
register long V137; |
register long V137; |
1134 |
V137= 0; |
V137= 0; |
1135 |
V136= (V133); |
V136= (V133); |
1136 |
goto T561; |
goto T566; |
1137 |
T561:; |
T566:; |
1138 |
if(!(endp_prop(cdr((V136))))){ |
if(!(endp_prop(cdr((V136))))){ |
1139 |
goto T562;} |
goto T567;} |
1140 |
base[0]= (V135); |
base[0]= (V135); |
1141 |
base[1]= VV[86]; |
base[1]= VV[86]; |
1142 |
base[2]= make_fixnum(V137); |
base[2]= make_fixnum(V137); |
1143 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1144 |
Lformat(); |
Lformat(); |
1145 |
vs_top=sup; |
vs_top=sup; |
1146 |
goto T558; |
goto T563; |
1147 |
goto T562; |
goto T567; |
1148 |
T562:; |
T567:; |
1149 |
base[0]= (V135); |
base[0]= (V135); |
1150 |
base[1]= VV[87]; |
base[1]= VV[87]; |
1151 |
base[2]= make_fixnum(V137); |
base[2]= make_fixnum(V137); |
1154 |
vs_top=sup; |
vs_top=sup; |
1155 |
V136= cdr((V136)); |
V136= cdr((V136)); |
1156 |
V137= (long)(V137)+1; |
V137= (long)(V137)+1; |
1157 |
goto T561;} |
goto T566;} |
1158 |
goto T558; |
goto T563; |
1159 |
T558:; |
T563:; |
1160 |
{object V138 = (V135); |
{object V138 = (V135); |
1161 |
VMR9(V138)}} |
VMR9(V138)}} |
1162 |
base[0]=base[0]; |
base[0]=base[0]; |
1172 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1173 |
va_start(ap,first); |
va_start(ap,first); |
1174 |
narg = narg - 0; |
narg = narg - 0; |
1175 |
if (narg <= 0) goto T577; |
if (narg <= 0) goto T582; |
1176 |
else { |
else { |
1177 |
V139= first;} |
V139= first;} |
1178 |
--narg; goto T578; |
--narg; goto T583; |
1179 |
goto T577; |
goto T582; |
1180 |
T577:; |
T582:; |
1181 |
V139= Cnil; |
V139= Cnil; |
1182 |
goto T578; |
goto T583; |
1183 |
T578:; |
T583:; |
1184 |
{object V140; |
{object V140; |
1185 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
1186 |
V140= symbol_value(VV[88]); |
V140= symbol_value(VV[88]); |
1187 |
{object V141; |
{object V141; |
1188 |
if(((V139))==Cnil){ |
if(((V139))==Cnil){ |
1189 |
goto T585;} |
goto T590;} |
1190 |
V141= make_cons((V139),(V140)); |
V141= make_cons((V139),(V140)); |
1191 |
goto T583; |
goto T588; |
1192 |
goto T585; |
goto T590; |
1193 |
T585:; |
T590:; |
1194 |
V141= (V140); |
V141= (V140); |
1195 |
goto T583; |
goto T588; |
1196 |
T583:; |
T588:; |
1197 |
setq(VV[18],make_cons((V141),symbol_value(VV[18])));} |
setq(VV[18],make_cons((V141),symbol_value(VV[18])));} |
1198 |
{object V142 = (V140); |
{object V142 = (V140); |
1199 |
VMR10(V142)}} |
VMR10(V142)}} |
1212 |
base[0]= (V144); |
base[0]= (V144); |
1213 |
base[1]= VV[69]; |
base[1]= VV[69]; |
1214 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1215 |
(void) (*Lnk295)(); |
(void) (*Lnk298)(); |
1216 |
vs_top=sup; |
vs_top=sup; |
1217 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1218 |
goto T588;} |
goto T593;} |
1219 |
V144= structure_ref((V144),VV[69],5); |
V144= structure_ref((V144),VV[69],5); |
1220 |
goto T588; |
goto T593; |
1221 |
T588:; |
T593:; |
1222 |
if(((V144))==Cnil){ |
if(((V144))==Cnil){ |
1223 |
goto T595;} |
goto T600;} |
1224 |
base[0]= (V144); |
base[0]= (V144); |
1225 |
base[1]= VV[89]; |
base[1]= VV[89]; |
1226 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1227 |
(void) (*Lnk296)(); |
(void) (*Lnk299)(); |
1228 |
vs_top=sup; |
vs_top=sup; |
1229 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1230 |
goto T595;} |
goto T600;} |
1231 |
{long V145 = 1; |
{long V145 = 1; |
1232 |
VMR11((object)V145)} |
VMR11((object)V145)} |
1233 |
goto T595; |
goto T600; |
1234 |
T595:; |
T600:; |
1235 |
{long V146 = 0; |
{long V146 = 0; |
1236 |
VMR11((object)V146)} |
VMR11((object)V146)} |
1237 |
base[0]=base[0]; |
base[0]=base[0]; |
1250 |
register object V154; |
register object V154; |
1251 |
V151= (long)length((V149)); |
V151= (long)length((V149)); |
1252 |
V152= 8; |
V152= 8; |
1253 |
V153= make_fixnum((long)(*(LnkLI297))((V150))); |
V153= make_fixnum((long)(*(LnkLI300))((V150))); |
1254 |
V154= Ct; |
V154= Ct; |
1255 |
goto T605; |
goto T610; |
1256 |
T605:; |
T610:; |
1257 |
if(eql(small_fixnum(0),(V153))){ |
if(eql(small_fixnum(0),(V153))){ |
1258 |
goto T607;} |
goto T612;} |
1259 |
V151= (long)(V151)+((long)((fix((V153))) << (V152))); |
V151= (long)(V151)+((long)((fix((V153))) << (V152))); |
1260 |
goto T607; |
goto T612; |
1261 |
T607:; |
T612:; |
1262 |
if(((V154))==Cnil){ |
if(((V154))==Cnil){ |
1263 |
goto T611;} |
goto T616;} |
1264 |
V152= 10; |
V152= 10; |
1265 |
V154= Cnil; |
V154= Cnil; |
1266 |
goto T611; |
goto T616; |
1267 |
T611:; |
T616:; |
1268 |
if(((V149))!=Cnil){ |
if(((V149))!=Cnil){ |
1269 |
goto T617;} |
goto T622;} |
1270 |
{long V155 = V151; |
{long V155 = V151; |
1271 |
VMR12((object)V155)} |
VMR12((object)V155)} |
1272 |
goto T617; |
goto T622; |
1273 |
T617:; |
T622:; |
1274 |
V152= (long)(V152)+(2); |
V152= (long)(V152)+(2); |
1275 |
{register object V157; |
{register object V157; |
1276 |
V157= car((V149)); |
V157= car((V149)); |
1277 |
V149= cdr((V149)); |
V149= cdr((V149)); |
1278 |
V156= (V157);} |
V156= (V157);} |
1279 |
V153= make_fixnum((long)(*(LnkLI297))(V156)); |
V153= make_fixnum((long)(*(LnkLI300))(V156)); |
1280 |
goto T605;} |
goto T610;} |
1281 |
} |
} |
1282 |
/* local entry for function WT-IF-PROCLAIMED */ |
/* local entry for function WT-IF-PROCLAIMED */ |
1283 |
|
|
1287 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1288 |
goto TTL; |
goto TTL; |
1289 |
TTL:; |
TTL:; |
1290 |
if(((VFUN_NARGS=1,(*(LnkLI299))((V161))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI302))((V161))))==Cnil){ |
1291 |
goto T629;} |
goto T634;} |
1292 |
{register object x= (V161),V164= symbol_value(VV[78]); |
{register object x= (V161),V164= symbol_value(VV[78]); |
1293 |
while(!endp(V164)) |
while(!endp(V164)) |
1294 |
if(type_of(V164->c.c_car)==t_cons &&eql(x,V164->c.c_car->c.c_car)){ |
if(type_of(V164->c.c_car)==t_cons &&eql(x,V164->c.c_car->c.c_car)){ |
1295 |
goto T633; |
goto T638; |
1296 |
}else V164=V164->c.c_cdr; |
}else V164=V164->c.c_cdr; |
1297 |
goto T632;} |
goto T637;} |
1298 |
goto T633; |
goto T638; |
1299 |
T633:; |
T638:; |
1300 |
V165= list(2,VV[91],(V161)); |
V165= list(2,VV[91],(V161)); |
1301 |
V166= (*(LnkLI301))(VV[92],(V162)); |
V166= (*(LnkLI304))(VV[92],(V162)); |
1302 |
V167= get((V161),VV[67],Cnil); |
V167= get((V161),VV[67],Cnil); |
1303 |
V168= get((V161),VV[77],Cnil); |
V168= get((V161),VV[77],Cnil); |
1304 |
V169 = make_fixnum((long)(*(LnkLI302))(V167,V168)); |
V169 = make_fixnum((long)(*(LnkLI305))(V167,V168)); |
1305 |
V170= list(4,VV[90],/* INLINE-ARGS */V165,/* INLINE-ARGS */V166,V169); |
V170= list(4,VV[90],/* INLINE-ARGS */V165,/* INLINE-ARGS */V166,V169); |
1306 |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V170))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V170))); |
1307 |
{object V171 = Ct; |
{object V171 = Ct; |
1308 |
VMR13(V171)} |
VMR13(V171)} |
1309 |
goto T632; |
goto T637; |
1310 |
T632:; |
T637:; |
1311 |
{register object V172; |
{register object V172; |
1312 |
register object V173; |
register object V173; |
1313 |
object V174; |
object V174; |
1319 |
while(!endp(V176)) |
while(!endp(V176)) |
1320 |
if(eql(x,V176->c.c_car)){ |
if(eql(x,V176->c.c_car)){ |
1321 |
V174= V176; |
V174= V176; |
1322 |
goto T641; |
goto T646; |
1323 |
}else V176=V176->c.c_cdr; |
}else V176=V176->c.c_cdr; |
1324 |
V174= Cnil;} |
V174= Cnil;} |
1325 |
goto T641; |
goto T646; |
1326 |
T641:; |
T646:; |
1327 |
if(((V174))==Cnil){ |
if(((V174))==Cnil){ |
1328 |
goto T644;} |
goto T649;} |
1329 |
base[0]= (V172); |
base[0]= (V172); |
1330 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1331 |
Lmonotonically_nonincreasing(); |
Lmonotonically_nonincreasing(); |
1332 |
vs_top=sup; |
vs_top=sup; |
1333 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1334 |
goto T646;} |
goto T651;} |
1335 |
goto T637; |
goto T642; |
1336 |
goto T646; |
goto T651; |
1337 |
T646:;{object V178; |
T651:;{object V178; |
1338 |
V179 = make_fixnum((long)length((V174))); |
V179 = make_fixnum((long)length((V174))); |
1339 |
V178= number_minus((V173),V179); |
V178= number_minus((V173),V179); |
1340 |
if(V178==Cnil)goto T649; |
if(V178==Cnil)goto T654; |
1341 |
goto T637; |
goto T642; |
1342 |
goto T649; |
goto T654; |
1343 |
T649:;} |
T654:;} |
1344 |
V180 = make_fixnum((long)length((V174))); |
V180 = make_fixnum((long)length((V174))); |
1345 |
V181= number_minus((V173),V180); |
V181= number_minus((V173),V180); |
1346 |
(void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V161),/* INLINE-ARGS */V181,(V172)))); |
(void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V161),/* INLINE-ARGS */V181,(V172)))); |
1347 |
goto T637; |
goto T642; |
1348 |
goto T644; |
goto T649; |
1349 |
T644:; |
T649:; |
1350 |
if(eql((V172),(V173))){ |
if(eql((V172),(V173))){ |
1351 |
goto T652;} |
goto T657;} |
1352 |
(void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V161),(V173),(V172)))); |
(void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V161),(V173),(V172)))); |
1353 |
goto T637; |
goto T642; |
1354 |
goto T652; |
goto T657; |
1355 |
T652:; |
T657:; |
1356 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V161))));} |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V161))));} |
1357 |
goto T637; |
goto T642; |
1358 |
T637:; |
T642:; |
1359 |
{object V182 = Cnil; |
{object V182 = Cnil; |
1360 |
VMR13(V182)} |
VMR13(V182)} |
1361 |
goto T629; |
goto T634; |
1362 |
T629:; |
T634:; |
1363 |
{object V183 = Cnil; |
{object V183 = Cnil; |
1364 |
VMR13(V183)} |
VMR13(V183)} |
1365 |
base[0]=base[0]; |
base[0]=base[0]; |
1374 |
goto TTL; |
goto TTL; |
1375 |
TTL:; |
TTL:; |
1376 |
if((structure_ref((V185),VV[62],4))==Cnil){ |
if((structure_ref((V185),VV[62],4))==Cnil){ |
1377 |
goto T655;} |
goto T660;} |
1378 |
{object V186 = VV[96]; |
{object V186 = VV[96]; |
1379 |
VMR14(V186)} |
VMR14(V186)} |
1380 |
goto T655; |
goto T660; |
1381 |
T655:; |
T660:; |
1382 |
{object V187 = VV[97]; |
{object V187 = VV[97]; |
1383 |
VMR14(V187)} |
VMR14(V187)} |
1384 |
return Cnil; |
return Cnil; |
1392 |
goto TTL; |
goto TTL; |
1393 |
TTL:; |
TTL:; |
1394 |
if(!(equal(symbol_value(VV[20]),VV[98]))){ |
if(!(equal(symbol_value(VV[20]),VV[98]))){ |
1395 |
goto T658;} |
goto T663;} |
1396 |
{long V190= fix(structure_ref((V189),VV[69],6)); |
{long V190= fix(structure_ref((V189),VV[69],6)); |
1397 |
if(!((/* INLINE-ARGS */V190)>=(fix(symbol_value(VV[99]))))){ |
if(!((/* INLINE-ARGS */V190)>=(fix(symbol_value(VV[99]))))){ |
1398 |
goto T658;}} |
goto T663;}} |
1399 |
{object V191 = VV[100]; |
{object V191 = VV[100]; |
1400 |
VMR15(V191)} |
VMR15(V191)} |
1401 |
goto T658; |
goto T663; |
1402 |
T658:; |
T663:; |
1403 |
{object V192 = VV[101]; |
{object V192 = VV[101]; |
1404 |
VMR15(V192)} |
VMR15(V192)} |
1405 |
return Cnil; |
return Cnil; |
1414 |
TTL:; |
TTL:; |
1415 |
V195= get((V194),VV[77],Cnil); |
V195= get((V194),VV[77],Cnil); |
1416 |
if(equal(V195,Ct)){ |
if(equal(V195,Ct)){ |
1417 |
goto T662;} |
goto T667;} |
1418 |
{object V196 = Cnil; |
{object V196 = Cnil; |
1419 |
VMR16(V196)} |
VMR16(V196)} |
|
goto T662; |
|
|
T662:; |
|
|
{register object V197; |
|
|
V197= get((V194),VV[67],Cnil); |
|
1420 |
goto T667; |
goto T667; |
1421 |
T667:; |
T667:; |
1422 |
|
{register object V197; |
1423 |
|
V197= get((V194),VV[67],Cnil); |
1424 |
|
goto T672; |
1425 |
|
T672:; |
1426 |
if(((V197))!=Cnil){ |
if(((V197))!=Cnil){ |
1427 |
goto T668;} |
goto T673;} |
1428 |
{object V198 = Ct; |
{object V198 = Ct; |
1429 |
VMR16(V198)} |
VMR16(V198)} |
|
goto T668; |
|
|
T668:; |
|
|
if(!(type_of((V197))==t_cons)){ |
|
|
goto T673;} |
|
|
goto T672; |
|
1430 |
goto T673; |
goto T673; |
1431 |
T673:; |
T673:; |
1432 |
|
if(!(type_of((V197))==t_cons)){ |
1433 |
|
goto T678;} |
1434 |
|
goto T677; |
1435 |
|
goto T678; |
1436 |
|
T678:; |
1437 |
{object V199 = Cnil; |
{object V199 = Cnil; |
1438 |
VMR16(V199)} |
VMR16(V199)} |
1439 |
goto T672; |
goto T677; |
1440 |
T672:; |
T677:; |
1441 |
if(!((car((V197)))==(Ct))){ |
if(!((car((V197)))==(Ct))){ |
1442 |
goto T676;} |
goto T681;} |
1443 |
goto T675; |
goto T680; |
1444 |
goto T676; |
goto T681; |
1445 |
T676:; |
T681:; |
1446 |
if(!((car((V197)))==(VV[68]))){ |
if(!((car((V197)))==(VV[68]))){ |
1447 |
goto T678;} |
goto T683;} |
1448 |
goto T675; |
goto T680; |
1449 |
goto T678; |
goto T683; |
1450 |
T678:; |
T683:; |
1451 |
{object V200 = Cnil; |
{object V200 = Cnil; |
1452 |
VMR16(V200)} |
VMR16(V200)} |
1453 |
goto T675; |
goto T680; |
1454 |
T675:; |
T680:; |
1455 |
V197= cdr((V197)); |
V197= cdr((V197)); |
1456 |
goto T667;} |
goto T672;} |
1457 |
return Cnil; |
return Cnil; |
1458 |
} |
} |
1459 |
/* local entry for function MAXARGS */ |
/* local entry for function MAXARGS */ |
1465 |
goto TTL; |
goto TTL; |
1466 |
TTL:; |
TTL:; |
1467 |
if((cadddr((V202)))!=Cnil){ |
if((cadddr((V202)))!=Cnil){ |
1468 |
goto T683;} |
goto T688;} |
1469 |
if((caddr((V202)))==Cnil){ |
if((caddr((V202)))==Cnil){ |
1470 |
goto T684;} |
goto T689;} |
1471 |
goto T683; |
goto T688; |
1472 |
T683:; |
T688:; |
1473 |
{object V203 = small_fixnum(64); |
{object V203 = small_fixnum(64); |
1474 |
VMR17(V203)} |
VMR17(V203)} |
1475 |
goto T684; |
goto T689; |
1476 |
T684:; |
T689:; |
1477 |
base[0]= make_fixnum((long)length(car((V202)))); |
base[0]= make_fixnum((long)length(car((V202)))); |
1478 |
base[1]= make_fixnum((long)length(cadr((V202)))); |
base[1]= make_fixnum((long)length(cadr((V202)))); |
1479 |
V204 = make_fixnum((long)length(car(cddddr((V202))))); |
V204 = make_fixnum((long)length(car(cddddr((V202))))); |
1514 |
goto TTL; |
goto TTL; |
1515 |
TTL:; |
TTL:; |
1516 |
if((get((V218),VV[102],Cnil))==Cnil){ |
if((get((V218),VV[102],Cnil))==Cnil){ |
1517 |
goto T696;} |
goto T701;} |
1518 |
{object V223 = Cnil; |
{object V223 = Cnil; |
1519 |
VMR19(V223)} |
VMR19(V223)} |
1520 |
goto T696; |
goto T701; |
1521 |
T696:; |
T701:; |
1522 |
if(((V221))==Cnil){ |
if(((V221))==Cnil){ |
1523 |
goto T699;} |
goto T704;} |
1524 |
V224= list(4,VV[103],list(2,VV[91],(V218)),(V221),VV[104]); |
V224= list(4,VV[103],list(2,VV[91],(V218)),(V221),VV[104]); |
1525 |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V224))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V224))); |
1526 |
goto T699; |
goto T704; |
1527 |
T699:; |
T704:; |
1528 |
{object V225; |
{object V225; |
1529 |
V225= (*(LnkLI303))((V218),(V219),(V220)); |
V225= (*(LnkLI306))((V218),(V219),(V220)); |
1530 |
if(((V225))==Cnil){ |
if(((V225))==Cnil){ |
1531 |
goto T705;} |
goto T710;} |
1532 |
goto T702; |
goto T707; |
1533 |
goto T705; |
goto T710; |
1534 |
T705:; |
T710:; |
1535 |
if(((*(LnkLI304))((V218)))==Cnil){ |
if(((*(LnkLI307))((V218)))==Cnil){ |
1536 |
goto T708;} |
goto T713;} |
1537 |
{object V226; |
{object V226; |
1538 |
V226= cadddr(caddr((V220))); |
V226= cadddr(caddr((V220))); |
1539 |
if(((V226))==Cnil){ |
if(((V226))==Cnil){ |
1540 |
goto T712;} |
goto T717;} |
1541 |
V227= list(2,VV[91],(V218)); |
V227= list(2,VV[91],(V218)); |
1542 |
V228= (*(LnkLI301))(VV[106],(V219)); |
V228= (*(LnkLI304))(VV[106],(V219)); |
1543 |
V229 = make_fixnum((long)length(car(caddr((V220))))); |
V229 = make_fixnum((long)length(car(caddr((V220))))); |
1544 |
V230= (*(LnkLI305))(caddr((V220))); |
V230= (*(LnkLI308))(caddr((V220))); |
1545 |
V231= (*(LnkLI298))(/* INLINE-ARGS */V230,small_fixnum(8)); |
V231= (*(LnkLI301))(/* INLINE-ARGS */V230,small_fixnum(8)); |
1546 |
V232= number_plus(V229,/* INLINE-ARGS */V231); |
V232= number_plus(V229,/* INLINE-ARGS */V231); |
1547 |
base[0]= Cnil; |
base[0]= Cnil; |
1548 |
base[1]= VV[107]; |
base[1]= VV[107]; |
1551 |
Lformat(); |
Lformat(); |
1552 |
vs_top=sup; |
vs_top=sup; |
1553 |
V233= vs_base[0]; |
V233= vs_base[0]; |
1554 |
V234= list(5,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,/* INLINE-ARGS */V232,(*(LnkLI301))(V233,VV[108])); |
V234= list(5,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,/* INLINE-ARGS */V232,(*(LnkLI304))(V233,VV[108])); |
1555 |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V234))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V234))); |
1556 |
goto T702; |
goto T707; |
1557 |
goto T712; |
goto T717; |
1558 |
T712:; |
T717:; |
1559 |
V235= list(2,VV[91],(V218)); |
V235= list(2,VV[91],(V218)); |
1560 |
V236= (*(LnkLI301))(VV[110],(V219)); |
V236= (*(LnkLI304))(VV[110],(V219)); |
1561 |
V237 = make_fixnum((long)length(car(caddr((V220))))); |
V237 = make_fixnum((long)length(car(caddr((V220))))); |
1562 |
V238= (*(LnkLI305))(caddr((V220))); |
V238= (*(LnkLI308))(caddr((V220))); |
1563 |
V239= (*(LnkLI298))(/* INLINE-ARGS */V238,small_fixnum(8)); |
V239= (*(LnkLI301))(/* INLINE-ARGS */V238,small_fixnum(8)); |
1564 |
V240= list(4,VV[109],/* INLINE-ARGS */V235,/* INLINE-ARGS */V236,number_plus(V237,/* INLINE-ARGS */V239)); |
V240= list(4,VV[109],/* INLINE-ARGS */V235,/* INLINE-ARGS */V236,number_plus(V237,/* INLINE-ARGS */V239)); |
1565 |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V240))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V240))); |
1566 |
goto T702;} |
goto T707;} |
1567 |
goto T708; |
goto T713; |
1568 |
T708:; |
T713:; |
1569 |
if(!(type_of((V219))==t_fixnum|| |
if(!(type_of((V219))==t_fixnum|| |
1570 |
type_of((V219))==t_bignum|| |
type_of((V219))==t_bignum|| |
1571 |
type_of((V219))==t_ratio|| |
type_of((V219))==t_ratio|| |
1572 |
type_of((V219))==t_shortfloat|| |
type_of((V219))==t_shortfloat|| |
1573 |
type_of((V219))==t_longfloat|| |
type_of((V219))==t_longfloat|| |
1574 |
type_of((V219))==t_complex)){ |
type_of((V219))==t_complex)){ |
1575 |
goto T719;} |
goto T724;} |
1576 |
princ_str("\nstatic void L",VV[31]); |
princ_str("\nstatic void L",VV[31]); |
1577 |
(void)((*(LnkLI277))((V219))); |
(void)((*(LnkLI277))((V219))); |
1578 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
1579 |
V241= list(2,VV[91],(V218)); |
V241= list(2,VV[91],(V218)); |
1580 |
V242= list(3,VV[111],/* INLINE-ARGS */V241,(*(LnkLI301))(VV[112],(V219))); |
V242= list(3,VV[111],/* INLINE-ARGS */V241,(*(LnkLI304))(VV[112],(V219))); |
1581 |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V242))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V242))); |
1582 |
goto T702; |
goto T707; |
1583 |
goto T719; |
goto T724; |
1584 |
T719:; |
T724:; |
1585 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
1586 |
(void)((*(LnkLI277))((V219))); |
(void)((*(LnkLI277))((V219))); |
1587 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
1588 |
V243= list(2,VV[91],(V218)); |
V243= list(2,VV[91],(V218)); |
1589 |
V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI301))(VV[113],(V219))); |
V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI304))(VV[113],(V219))); |
1590 |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V244)));} |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V244)));} |
1591 |
goto T702; |
goto T707; |
1592 |
T702:; |
T707:; |
1593 |
if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){ |
if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){ |
1594 |
goto T730;} |
goto T735;} |
1595 |
{object V245 = sputprop((V218),VV[115],Ct); |
{object V245 = sputprop((V218),VV[115],Ct); |
1596 |
VMR19(V245)} |
VMR19(V245)} |
1597 |
goto T730; |
goto T735; |
1598 |
T730:; |
T735:; |
1599 |
{object V246 = Cnil; |
{object V246 = Cnil; |
1600 |
VMR19(V246)} |
VMR19(V246)} |
1601 |
base[0]=base[0]; |
base[0]=base[0]; |
1625 |
{register object V262; |
{register object V262; |
1626 |
V262= Cnil; |
V262= Cnil; |
1627 |
bds_bind(VV[0],list(2,VV[51],(V257))); |
bds_bind(VV[0],list(2,VV[51],(V257))); |
1628 |
bds_bind(VV[20],(*(LnkLI306))(cadr((V259)))); |
bds_bind(VV[20],(*(LnkLI309))(cadr((V259)))); |
1629 |
bds_bind(VV[117],Cnil); |
bds_bind(VV[117],Cnil); |
1630 |
{register object V263; |
{register object V263; |
1631 |
register object V264; |
register object V264; |
1632 |
V263= symbol_value(VV[78]); |
V263= symbol_value(VV[78]); |
1633 |
V264= car((V263)); |
V264= car((V263)); |
1634 |
goto T742; |
goto T747; |
1635 |
T742:; |
T747:; |
1636 |
if(!(endp_prop((V263)))){ |
if(!(endp_prop((V263)))){ |
1637 |
goto T743;} |
goto T748;} |
1638 |
goto T737; |
goto T742; |
1639 |
goto T743; |
goto T748; |
1640 |
T743:;{object V265; |
T748:;{object V265; |
1641 |
base[4]= cadddr((V264)); |
base[4]= cadddr((V264)); |
1642 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1643 |
(void) (*Lnk307)(); |
(void) (*Lnk310)(); |
1644 |
vs_top=sup; |
vs_top=sup; |
1645 |
V265= vs_base[0]; |
V265= vs_base[0]; |
1646 |
if(V265==Cnil)goto T748; |
if(V265==Cnil)goto T753; |
1647 |
goto T747; |
goto T752; |
1648 |
goto T748; |
goto T753; |
1649 |
T748:;} |
T753:;} |
1650 |
base[4]= VV[118]; |
base[4]= VV[118]; |
1651 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1652 |
Lerror(); |
Lerror(); |
1653 |
vs_top=sup; |
vs_top=sup; |
|
goto T747; |
|
|
T747:; |
|
|
if((car((V264)))==((V257))){ |
|
|
goto T753;} |
|
1654 |
goto T752; |
goto T752; |
1655 |
goto T753; |
T752:; |
1656 |
T753:; |
if((car((V264)))==((V257))){ |
1657 |
|
goto T758;} |
1658 |
|
goto T757; |
1659 |
|
goto T758; |
1660 |
|
T758:; |
1661 |
if((cadr(cddddr((V264))))==Cnil){ |
if((cadr(cddddr((V264))))==Cnil){ |
1662 |
goto T755;} |
goto T760;} |
1663 |
goto T752; |
goto T757; |
1664 |
goto T755; |
goto T760; |
1665 |
T755:; |
T760:; |
1666 |
V262= (V264); |
V262= (V264); |
1667 |
if(((V262))==Cnil){ |
if(((V262))==Cnil){ |
1668 |
goto T737;} |
goto T742;} |
1669 |
goto T738; |
goto T743; |
1670 |
goto T752; |
goto T757; |
1671 |
T752:; |
T757:; |
1672 |
V263= cdr((V263)); |
V263= cdr((V263)); |
1673 |
V264= car((V263)); |
V264= car((V263)); |
1674 |
goto T742;} |
goto T747;} |
1675 |
goto T738; |
goto T743; |
1676 |
T738:; |
T743:; |
1677 |
if(((VFUN_NARGS=1,(*(LnkLI299))((V257))))!=Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI302))((V257))))!=Cnil){ |
1678 |
goto T763;} |
goto T768;} |
1679 |
{object V266; |
{object V266; |
1680 |
V266= list(4,(V257),(V258),cadr((V262)),caddr((V262))); |
V266= list(4,(V257),(V258),cadr((V262)),caddr((V262))); |
1681 |
setq(VV[29],make_cons((V266),symbol_value(VV[29])));} |
setq(VV[29],make_cons((V266),symbol_value(VV[29])));} |
1682 |
goto T763; |
goto T768; |
1683 |
T763:; |
T768:; |
1684 |
V267= structure_ref(cadr((V259)),VV[62],1); |
V267= structure_ref(cadr((V259)),VV[62],1); |
1685 |
(void)((*(LnkLI308))(/* INLINE-ARGS */V267,small_fixnum(0))); |
(void)((*(LnkLI311))(/* INLINE-ARGS */V267,small_fixnum(0))); |
1686 |
base[3]= VV[119]; |
base[3]= VV[119]; |
1687 |
{object V268= caddr((V262)); |
{object V268= caddr((V262)); |
1688 |
if((V268!= VV[89]))goto T771; |
if((V268!= VV[89]))goto T776; |
1689 |
base[4]= VV[120]; |
base[4]= VV[120]; |
1690 |
goto T770; |
goto T775; |
1691 |
goto T771; |
goto T776; |
1692 |
T771:; |
T776:; |
1693 |
if((V268!= VV[142]))goto T772; |
if((V268!= VV[142]))goto T777; |
1694 |
base[4]= VV[121]; |
base[4]= VV[121]; |
1695 |
goto T770; |
goto T775; |
1696 |
goto T772; |
goto T777; |
1697 |
T772:; |
T777:; |
1698 |
if((V268!= VV[143]))goto T773; |
if((V268!= VV[143]))goto T778; |
1699 |
base[4]= VV[122]; |
base[4]= VV[122]; |
1700 |
goto T770; |
goto T775; |
1701 |
goto T773; |
goto T778; |
1702 |
T773:; |
T778:; |
1703 |
if((V268!= VV[144]))goto T774; |
if((V268!= VV[144]))goto T779; |
1704 |
base[4]= VV[123]; |
base[4]= VV[123]; |
1705 |
goto T770; |
goto T775; |
1706 |
goto T774; |
goto T779; |
1707 |
T774:; |
T779:; |
1708 |
base[4]= VV[124];} |
base[4]= VV[124];} |
1709 |
goto T770; |
goto T775; |
1710 |
T770:; |
T775:; |
1711 |
base[5]= (V257); |
base[5]= (V257); |
1712 |
base[6]= (V258); |
base[6]= (V258); |
1713 |
base[7]= (V259); |
base[7]= (V259); |
1714 |
base[8]= (V261); |
base[8]= (V261); |
1715 |
base[9]= (V262); |
base[9]= (V262); |
1716 |
vs_top=(vs_base=base+3)+7; |
vs_top=(vs_base=base+3)+7; |
1717 |
(void) (*Lnk309)(); |
(void) (*Lnk312)(); |
1718 |
vs_top=sup; |
vs_top=sup; |
1719 |
goto T735; |
goto T740; |
1720 |
goto T737; |
goto T742; |
1721 |
T737:; |
T742:; |
1722 |
if(((*(LnkLI304))((V257)))==Cnil){ |
if(((*(LnkLI307))((V257)))==Cnil){ |
1723 |
goto T781;} |
goto T786;} |
1724 |
V269= structure_ref(cadr((V259)),VV[62],1); |
V269= structure_ref(cadr((V259)),VV[62],1); |
1725 |
(void)((*(LnkLI308))(/* INLINE-ARGS */V269,small_fixnum(0))); |
(void)((*(LnkLI311))(/* INLINE-ARGS */V269,small_fixnum(0))); |
1726 |
base[3]= VV[125]; |
base[3]= VV[125]; |
1727 |
base[4]= VV[124]; |
base[4]= VV[124]; |
1728 |
base[5]= (V257); |
base[5]= (V257); |
1730 |
base[7]= (V259); |
base[7]= (V259); |
1731 |
base[8]= (V261); |
base[8]= (V261); |
1732 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
1733 |
(void) (*Lnk309)(); |
(void) (*Lnk312)(); |
1734 |
vs_top=sup; |
vs_top=sup; |
1735 |
goto T735; |
goto T740; |
1736 |
goto T781; |
goto T786; |
1737 |
T781:; |
T786:; |
1738 |
V270= structure_ref(cadr((V259)),VV[62],1); |
V270= structure_ref(cadr((V259)),VV[62],1); |
1739 |
(void)((*(LnkLI308))(/* INLINE-ARGS */V270,small_fixnum(2))); |
(void)((*(LnkLI311))(/* INLINE-ARGS */V270,small_fixnum(2))); |
1740 |
base[3]= VV[126]; |
base[3]= VV[126]; |
1741 |
base[4]= VV[127]; |
base[4]= VV[127]; |
1742 |
base[5]= (V257); |
base[5]= (V257); |
1744 |
base[7]= (V259); |
base[7]= (V259); |
1745 |
base[8]= (V261); |
base[8]= (V261); |
1746 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
1747 |
(void) (*Lnk309)(); |
(void) (*Lnk312)(); |
1748 |
vs_top=sup; |
vs_top=sup; |
1749 |
goto T735; |
goto T740; |
1750 |
T735:; |
T740:; |
1751 |
(void)((*(LnkLI310))((V258))); |
(void)((*(LnkLI313))((V258))); |
1752 |
{object V271 = (*(LnkLI311))((V257),(V259)); |
{object V271 = (*(LnkLI314))((V257),(V259)); |
1753 |
bds_unwind1; |
bds_unwind1; |
1754 |
bds_unwind1; |
bds_unwind1; |
1755 |
bds_unwind1; |
bds_unwind1; |
1831 |
object V288; |
object V288; |
1832 |
V288= cadr((V284)); |
V288= cadr((V284)); |
1833 |
V287= (V286); |
V287= (V286); |
1834 |
goto T808; |
goto T813; |
1835 |
T808:; |
T813:; |
1836 |
if(!(endp_prop((V287)))){ |
if(!(endp_prop((V287)))){ |
1837 |
goto T809;} |
goto T814;} |
1838 |
goto T805; |
goto T810; |
1839 |
goto T809; |
goto T814; |
1840 |
T809:; |
T814:; |
1841 |
V289= structure_ref(car((V287)),VV[69],1); |
V289= structure_ref(car((V287)),VV[69],1); |
1842 |
if(!((/* INLINE-ARGS */V289)==(VV[71]))){ |
if(!((/* INLINE-ARGS */V289)==(VV[71]))){ |
1843 |
goto T815;} |
goto T820;} |
1844 |
{object V290; |
{object V290; |
1845 |
V291= car((V287)); |
V291= car((V287)); |
1846 |
V292= structure_ref(car((V287)),VV[69],4); |
V292= structure_ref(car((V287)),VV[69],4); |
1847 |
V290= make_cons(/* INLINE-ARGS */V291,/* INLINE-ARGS */V292); |
V290= make_cons(/* INLINE-ARGS */V291,/* INLINE-ARGS */V292); |
1848 |
V285= make_cons((V290),(V285)); |
V285= make_cons((V290),(V285)); |
1849 |
goto T813;} |
goto T818;} |
1850 |
goto T815; |
goto T820; |
1851 |
T815:; |
T820:; |
1852 |
V293= car((V287)); |
V293= car((V287)); |
1853 |
{object V295= car((V288)); |
{object V295= car((V288)); |
1854 |
if((V295!= VV[89]))goto T820; |
if((V295!= VV[89]))goto T825; |
1855 |
V294= VV[89]; |
V294= VV[89]; |
1856 |
goto T819; |
goto T824; |
1857 |
goto T820; |
goto T825; |
1858 |
T820:; |
T825:; |
1859 |
if((V295!= VV[142]))goto T821; |
if((V295!= VV[142]))goto T826; |
1860 |
V294= VV[142]; |
V294= VV[142]; |
1861 |
goto T819; |
goto T824; |
1862 |
goto T821; |
goto T826; |
1863 |
T821:; |
T826:; |
1864 |
if((V295!= VV[143]))goto T822; |
if((V295!= VV[143]))goto T827; |
1865 |
V294= VV[143]; |
V294= VV[143]; |
1866 |
goto T819; |
goto T824; |
1867 |
goto T822; |
goto T827; |
1868 |
T822:; |
T827:; |
1869 |
if((V295!= VV[144]))goto T823; |
if((V295!= VV[144]))goto T828; |
1870 |
V294= VV[144]; |
V294= VV[144]; |
1871 |
goto T819; |
goto T824; |
1872 |
goto T823; |
goto T828; |
1873 |
T823:; |
T828:; |
1874 |
V294= VV[74];} |
V294= VV[74];} |
1875 |
goto T819; |
goto T824; |
1876 |
T819:; |
T824:; |
1877 |
(void)(structure_set(/* INLINE-ARGS */V293,VV[69],1,V294)); |
(void)(structure_set(/* INLINE-ARGS */V293,VV[69],1,V294)); |
1878 |
goto T813; |
goto T818; |
1879 |
T813:; |
T818:; |
1880 |
V296= car((V287)); |
V296= car((V287)); |
1881 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
1882 |
(void)(structure_set(/* INLINE-ARGS */V296,VV[69],4,symbol_value(VV[88]))); |
(void)(structure_set(/* INLINE-ARGS */V296,VV[69],4,symbol_value(VV[88]))); |
1883 |
V287= cdr((V287)); |
V287= cdr((V287)); |
1884 |
V288= cdr((V288)); |
V288= cdr((V288)); |
1885 |
goto T808;} |
goto T813;} |
1886 |
goto T805; |
goto T810; |
1887 |
T805:; |
T810:; |
1888 |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[145],(V280)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[145],(V280)))); |
1889 |
princ_str("\nstatic ",VV[31]); |
princ_str("\nstatic ",VV[31]); |
1890 |
base[1]= (*(LnkLI280))(caddr((V284))); |
base[1]= (*(LnkLI280))(caddr((V284))); |
1891 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1906 |
princ_str("LI",VV[25]); |
princ_str("LI",VV[25]); |
1907 |
(void)((*(LnkLI274))((V281))); |
(void)((*(LnkLI274))((V281))); |
1908 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
1909 |
(void)((*(LnkLI313))((V286),cadr((V284)))); |
(void)((*(LnkLI316))((V286),cadr((V284)))); |
1910 |
{object V299; |
{object V299; |
1911 |
V299= symbol_value(VV[136]); |
V299= symbol_value(VV[136]); |
1912 |
if((symbol_value(VV[147]))==Cnil){ |
if((symbol_value(VV[147]))==Cnil){ |
1913 |
goto T851;} |
goto T856;} |
1914 |
base[1]= make_cons((V280),(V286)); |
base[1]= make_cons((V280),(V286)); |
1915 |
goto T849; |
goto T854; |
1916 |
goto T851; |
goto T856; |
1917 |
T851:; |
T856:; |
1918 |
base[1]= Cnil; |
base[1]= Cnil; |
1919 |
goto T849; |
goto T854; |
1920 |
T849:; |
T854:; |
1921 |
bds_bind(VV[146],base[1]); |
bds_bind(VV[146],base[1]); |
1922 |
bds_bind(VV[134],symbol_value(VV[134])); |
bds_bind(VV[134],symbol_value(VV[134])); |
1923 |
princ_str("\n{ ",VV[25]); |
princ_str("\n{ ",VV[25]); |
1924 |
V300= structure_ref(cadr((V282)),VV[62],1); |
V300= structure_ref(cadr((V282)),VV[62],1); |
1925 |
(void)((*(LnkLI314))(/* INLINE-ARGS */V300,(V281),VV[148])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V300,(V281),VV[148])); |
1926 |
princ_str(" VMB",VV[25]); |
princ_str(" VMB",VV[25]); |
1927 |
(void)((*(LnkLI274))((V299))); |
(void)((*(LnkLI274))((V299))); |
1928 |
princ_str(" VMS",VV[25]); |
princ_str(" VMS",VV[25]); |
1930 |
princ_str(" VMV",VV[25]); |
princ_str(" VMV",VV[25]); |
1931 |
(void)((*(LnkLI274))((V299))); |
(void)((*(LnkLI274))((V299))); |
1932 |
if(((V283))==Cnil){ |
if(((V283))==Cnil){ |
1933 |
goto T863;} |
goto T868;} |
1934 |
princ_str("\n bds_check;",VV[25]); |
princ_str("\n bds_check;",VV[25]); |
1935 |
goto T863; |
goto T868; |
1936 |
T863:; |
T868:; |
1937 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
1938 |
goto T867;} |
goto T872;} |
1939 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
1940 |
goto T867; |
goto T872; |
1941 |
T867:; |
T872:; |
1942 |
if(((VV[146]->s.s_dbind))==Cnil){ |
if(((VV[146]->s.s_dbind))==Cnil){ |
1943 |
goto T871;} |
goto T876;} |
1944 |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
1945 |
princ_str("\n goto TTL;",VV[25]); |
princ_str("\n goto TTL;",VV[25]); |
1946 |
princ_str("\nTTL:;",VV[25]); |
princ_str("\nTTL:;",VV[25]); |
1947 |
goto T871; |
goto T876; |
1948 |
T871:; |
T876:; |
1949 |
{register object V302; |
{register object V302; |
1950 |
register object V303; |
register object V303; |
1951 |
V302= (V285); |
V302= (V285); |
1952 |
V303= car((V302)); |
V303= car((V302)); |
1953 |
goto T883; |
goto T888; |
1954 |
T883:; |
T888:; |
1955 |
if(!(endp_prop((V302)))){ |
if(!(endp_prop((V302)))){ |
1956 |
goto T884;} |
goto T889;} |
|
goto T879; |
|
1957 |
goto T884; |
goto T884; |
1958 |
T884:; |
goto T889; |
1959 |
|
T889:; |
1960 |
princ_str("\n bds_bind(VV[",VV[25]); |
princ_str("\n bds_bind(VV[",VV[25]); |
1961 |
(void)((*(LnkLI274))(cdr((V303)))); |
(void)((*(LnkLI274))(cdr((V303)))); |
1962 |
princ_str("],V",VV[25]); |
princ_str("],V",VV[25]); |
1968 |
(void)(structure_set(car((V303)),VV[69],4,cdr((V303)))); |
(void)(structure_set(car((V303)),VV[69],4,cdr((V303)))); |
1969 |
V302= cdr((V302)); |
V302= cdr((V302)); |
1970 |
V303= car((V302)); |
V303= car((V302)); |
1971 |
goto T883;} |
goto T888;} |
1972 |
goto T879; |
goto T884; |
1973 |
T879:; |
T884:; |
1974 |
base[3]= caddr(cddr((V282))); |
base[3]= caddr(cddr((V282))); |
1975 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1976 |
(void) (*Lnk315)(); |
(void) (*Lnk318)(); |
1977 |
vs_top=sup; |
vs_top=sup; |
1978 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
1979 |
goto T907;} |
goto T912;} |
1980 |
if((symbol_value(VV[138]))!=Cnil){ |
if((symbol_value(VV[138]))!=Cnil){ |
1981 |
goto T907;} |
goto T912;} |
1982 |
if((symbol_value(VV[140]))!=Cnil){ |
if((symbol_value(VV[140]))!=Cnil){ |
1983 |
goto T907;} |
goto T912;} |
1984 |
goto T905; |
goto T910; |
1985 |
goto T907; |
goto T912; |
1986 |
T907:; |
T912:; |
1987 |
princ_str("\n base[0]=base[0];",VV[25]); |
princ_str("\n base[0]=base[0];",VV[25]); |
1988 |
goto T905; |
goto T910; |
1989 |
T905:; |
T910:; |
1990 |
V306= (*(LnkLI280))(caddr((V284))); |
V306= (*(LnkLI280))(caddr((V284))); |
1991 |
if(!(equal(VV[152],/* INLINE-ARGS */V306))){ |
if(!(equal(VV[152],/* INLINE-ARGS */V306))){ |
1992 |
goto T914;} |
goto T919;} |
1993 |
princ_str("\n return Cnil;",VV[25]); |
princ_str("\n return Cnil;",VV[25]); |
1994 |
goto T914; |
goto T919; |
1995 |
T914:; |
T919:; |
1996 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
1997 |
{object V307 = (*(LnkLI316))((V299),caddr((V284))); |
{object V307 = (*(LnkLI319))((V299),caddr((V284))); |
1998 |
bds_unwind1; |
bds_unwind1; |
1999 |
bds_unwind1; |
bds_unwind1; |
2000 |
VMR23(V307)}}} |
VMR23(V307)}}} |
2010 |
goto TTL; |
goto TTL; |
2011 |
TTL:; |
TTL:; |
2012 |
if((symbol_value(VV[153]))==Cnil){ |
if((symbol_value(VV[153]))==Cnil){ |
2013 |
goto T921;} |
goto T926;} |
2014 |
V310= (*(LnkLI317))(); |
V310= (*(LnkLI320))(); |
2015 |
{object V311 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V310); |
{object V311 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V310); |
2016 |
VMR24(V311)} |
VMR24(V311)} |
2017 |
goto T921; |
goto T926; |
2018 |
T921:; |
T926:; |
2019 |
V312= (*(LnkLI318))(); |
V312= (*(LnkLI321))(); |
2020 |
{object V313 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V312); |
{object V313 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V312); |
2021 |
VMR24(V313)} |
VMR24(V313)} |
2022 |
return Cnil; |
return Cnil; |
2049 |
V327= caddr((V320)); |
V327= caddr((V320)); |
2050 |
V328= Cnil;{object V330; |
V328= Cnil;{object V330; |
2051 |
V330= caddr((V327)); |
V330= caddr((V327)); |
2052 |
if(V330==Cnil)goto T931; |
if(V330==Cnil)goto T936; |
2053 |
V329= V330; |
V329= V330; |
2054 |
goto T930; |
goto T935; |
2055 |
goto T931; |
goto T936; |
2056 |
T931:;}{object V331; |
T936:;}{object V331; |
2057 |
V331= cadr((V327)); |
V331= cadr((V327)); |
2058 |
if(V331==Cnil)goto T933; |
if(V331==Cnil)goto T938; |
2059 |
V329= V331; |
V329= V331; |
2060 |
goto T930; |
goto T935; |
2061 |
goto T933; |
goto T938; |
2062 |
T933:;} |
T938:;} |
2063 |
V329= cadddr((V327)); |
V329= cadddr((V327)); |
2064 |
goto T930; |
goto T935; |
2065 |
T930:; |
T935:; |
2066 |
{object V332; |
{object V332; |
2067 |
register object V333; |
register object V333; |
2068 |
V332= car((V327)); |
V332= car((V327)); |
2069 |
V333= car((V332)); |
V333= car((V332)); |
2070 |
goto T939; |
goto T944; |
2071 |
T939:; |
T944:; |
2072 |
if(!(endp_prop((V332)))){ |
if(!(endp_prop((V332)))){ |
2073 |
goto T940;} |
goto T945;} |
|
goto T935; |
|
2074 |
goto T940; |
goto T940; |
2075 |
T940:; |
goto T945; |
2076 |
|
T945:; |
2077 |
{object V334; |
{object V334; |
2078 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
2079 |
V334= list(2,VV[155],symbol_value(VV[88])); |
V334= list(2,VV[155],symbol_value(VV[88])); |
2080 |
V322= make_cons((V334),(V322));} |
V322= make_cons((V334),(V322));} |
2081 |
V332= cdr((V332)); |
V332= cdr((V332)); |
2082 |
V333= car((V332)); |
V333= car((V332)); |
2083 |
goto T939;} |
goto T944;} |
2084 |
goto T935; |
goto T940; |
2085 |
T935:; |
T940:; |
2086 |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[156],(V318)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[156],(V318)))); |
2087 |
{object V335; |
{object V335; |
2088 |
V335= VV[157]; |
V335= VV[157]; |
2089 |
princ_str("\nstatic object LI",VV[25]); |
princ_str("\nstatic object LI",VV[25]); |
2090 |
(void)((*(LnkLI274))((V319))); |
(void)((*(LnkLI274))((V319))); |
2091 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
2092 |
if(((V322))==Cnil){ |
if(((V322))==Cnil){ |
2093 |
goto T959;} |
goto T964;} |
2094 |
{object V336; |
{object V336; |
2095 |
V336= (V322); |
V336= (V322); |
2096 |
goto T963; |
goto T968; |
2097 |
T963:; |
T968:; |
2098 |
if(((V336))!=Cnil){ |
if(((V336))!=Cnil){ |
2099 |
goto T964;} |
goto T969;} |
|
goto T959; |
|
2100 |
goto T964; |
goto T964; |
2101 |
T964:; |
goto T969; |
2102 |
|
T969:; |
2103 |
princ_str("object ",VV[25]); |
princ_str("object ",VV[25]); |
2104 |
(void)((*(LnkLI274))(car((V336)))); |
(void)((*(LnkLI274))(car((V336)))); |
2105 |
V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[159])); |
V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[159])); |
2106 |
if(!((cdr((V336)))==Cnil)){ |
if(!((cdr((V336)))==Cnil)){ |
2107 |
goto T974;} |
goto T979;} |
2108 |
goto T973; |
goto T978; |
2109 |
goto T974; |
goto T979; |
2110 |
T974:; |
T979:; |
2111 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2112 |
V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[160])); |
V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[160])); |
2113 |
goto T973; |
goto T978; |
2114 |
T973:; |
T978:; |
2115 |
V336= cdr((V336)); |
V336= cdr((V336)); |
2116 |
goto T963;} |
goto T968;} |
2117 |
goto T959; |
goto T964; |
2118 |
T959:; |
T964:; |
2119 |
if(((V329))==Cnil){ |
if(((V329))==Cnil){ |
2120 |
goto T982;} |
goto T987;} |
2121 |
if(((V322))==Cnil){ |
if(((V322))==Cnil){ |
2122 |
goto T985;} |
goto T990;} |
2123 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2124 |
V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[161])); |
V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[161])); |
2125 |
goto T985; |
goto T990; |
2126 |
T985:; |
T990:; |
2127 |
princ_str("object first,...",VV[25]); |
princ_str("object first,...",VV[25]); |
2128 |
V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[162])); |
V335= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V335),VV[162])); |
2129 |
goto T982; |
goto T987; |
2130 |
T982:; |
T987:; |
2131 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
2132 |
princ_str("\nstatic object LI",VV[31]); |
princ_str("\nstatic object LI",VV[31]); |
2133 |
(void)((*(LnkLI277))((V319))); |
(void)((*(LnkLI277))((V319))); |
2138 |
V337= symbol_value(VV[136]); |
V337= symbol_value(VV[136]); |
2139 |
if(symbol_value(VV[147])==Cnil){ |
if(symbol_value(VV[147])==Cnil){ |
2140 |
base[5]= Cnil; |
base[5]= Cnil; |
2141 |
goto T1002;} |
goto T1007;} |
2142 |
if((caddr((V327)))==Cnil){ |
if((caddr((V327)))==Cnil){ |
2143 |
goto T1003;} |
goto T1008;} |
2144 |
base[5]= Cnil; |
base[5]= Cnil; |
2145 |
goto T1002; |
goto T1007; |
2146 |
goto T1003; |
goto T1008; |
2147 |
T1003:; |
T1008:; |
2148 |
{object V338; |
{object V338; |
2149 |
object V339; |
object V339; |
2150 |
V338= car((V327)); |
V338= car((V327)); |
2151 |
V339= car((V338)); |
V339= car((V338)); |
|
goto T1010; |
|
|
T1010:; |
|
|
if(!(endp_prop((V338)))){ |
|
|
goto T1011;} |
|
|
goto T1005; |
|
|
goto T1011; |
|
|
T1011:; |
|
|
if((structure_ref((V339),VV[69],3))==Cnil){ |
|
|
goto T1015;} |
|
|
goto T1006; |
|
2152 |
goto T1015; |
goto T1015; |
2153 |
T1015:; |
T1015:; |
2154 |
|
if(!(endp_prop((V338)))){ |
2155 |
|
goto T1016;} |
2156 |
|
goto T1010; |
2157 |
|
goto T1016; |
2158 |
|
T1016:; |
2159 |
|
if((structure_ref((V339),VV[69],3))==Cnil){ |
2160 |
|
goto T1020;} |
2161 |
|
goto T1011; |
2162 |
|
goto T1020; |
2163 |
|
T1020:; |
2164 |
V338= cdr((V338)); |
V338= cdr((V338)); |
2165 |
V339= car((V338)); |
V339= car((V338)); |
2166 |
goto T1010;} |
goto T1015;} |
2167 |
goto T1006; |
goto T1011; |
2168 |
T1006:; |
T1011:; |
2169 |
base[5]= Cnil; |
base[5]= Cnil; |
2170 |
goto T1002; |
goto T1007; |
2171 |
goto T1005; |
goto T1010; |
2172 |
T1005:; |
T1010:; |
2173 |
if((cadr((V327)))==Cnil){ |
if((cadr((V327)))==Cnil){ |
2174 |
goto T1023;} |
goto T1028;} |
2175 |
base[5]= Cnil; |
base[5]= Cnil; |
2176 |
goto T1002; |
goto T1007; |
2177 |
goto T1023; |
goto T1028; |
2178 |
T1023:; |
T1028:; |
2179 |
if((car(cddddr((V327))))==Cnil){ |
if((car(cddddr((V327))))==Cnil){ |
2180 |
goto T1025;} |
goto T1030;} |
2181 |
base[5]= Cnil; |
base[5]= Cnil; |
2182 |
goto T1002; |
goto T1007; |
2183 |
goto T1025; |
goto T1030; |
2184 |
T1025:; |
T1030:; |
2185 |
base[5]= make_cons((V318),car((V327))); |
base[5]= make_cons((V318),car((V327))); |
2186 |
goto T1002; |
goto T1007; |
2187 |
T1002:; |
T1007:; |
2188 |
bds_bind(VV[146],base[5]); |
bds_bind(VV[146],base[5]); |
2189 |
bds_bind(VV[134],symbol_value(VV[134])); |
bds_bind(VV[134],symbol_value(VV[134])); |
2190 |
princ_str("\n{ ",VV[25]); |
princ_str("\n{ ",VV[25]); |
2191 |
if(((V329))==Cnil){ |
if(((V329))==Cnil){ |
2192 |
goto T1029;} |
goto T1034;} |
2193 |
princ_str("\n va_list ap;",VV[25]); |
princ_str("\n va_list ap;",VV[25]); |
2194 |
goto T1029; |
goto T1034; |
2195 |
T1029:; |
T1034:; |
2196 |
princ_str("\n int narg = VFUN_NARGS;",VV[25]); |
princ_str("\n int narg = VFUN_NARGS;",VV[25]); |
2197 |
V340= structure_ref(cadr((V320)),VV[62],1); |
V340= structure_ref(cadr((V320)),VV[62],1); |
2198 |
(void)((*(LnkLI314))(/* INLINE-ARGS */V340,(V319),VV[148])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V340,(V319),VV[148])); |
2199 |
princ_str(" VMB",VV[25]); |
princ_str(" VMB",VV[25]); |
2200 |
(void)((*(LnkLI274))((V337))); |
(void)((*(LnkLI274))((V337))); |
2201 |
princ_str(" VMS",VV[25]); |
princ_str(" VMS",VV[25]); |
2203 |
princ_str(" VMV",VV[25]); |
princ_str(" VMV",VV[25]); |
2204 |
(void)((*(LnkLI274))((V337))); |
(void)((*(LnkLI274))((V337))); |
2205 |
if(((V321))==Cnil){ |
if(((V321))==Cnil){ |
2206 |
goto T1043;} |
goto T1048;} |
2207 |
princ_str("\n bds_check;",VV[25]); |
princ_str("\n bds_check;",VV[25]); |
2208 |
goto T1043; |
goto T1048; |
2209 |
T1043:; |
T1048:; |
2210 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
2211 |
goto T1047;} |
goto T1052;} |
2212 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
2213 |
goto T1047; |
goto T1052; |
2214 |
T1047:; |
T1052:; |
2215 |
if((V329)!=Cnil){ |
if((V329)!=Cnil){ |
2216 |
goto T1051;} |
goto T1056;} |
2217 |
princ_str("\n if ( narg!= ",VV[25]); |
princ_str("\n if ( narg!= ",VV[25]); |
2218 |
V341 = make_fixnum((long)length((V322))); |
V341 = make_fixnum((long)length((V322))); |
2219 |
(void)((*(LnkLI274))(V341)); |
(void)((*(LnkLI274))(V341)); |
2221 |
V342 = make_fixnum((long)length((V322))); |
V342 = make_fixnum((long)length((V322))); |
2222 |
(void)((*(LnkLI274))(V342)); |
(void)((*(LnkLI274))(V342)); |
2223 |
princ_str("));",VV[25]); |
princ_str("));",VV[25]); |
2224 |
goto T1051; |
goto T1056; |
2225 |
T1051:; |
T1056:; |
2226 |
{object V343; |
{object V343; |
2227 |
object V344; |
object V344; |
2228 |
V343= car((V327)); |
V343= car((V327)); |
2229 |
V344= car((V343)); |
V344= car((V343)); |
2230 |
goto T1062; |
goto T1067; |
2231 |
T1062:; |
T1067:; |
2232 |
if(!(endp_prop((V343)))){ |
if(!(endp_prop((V343)))){ |
2233 |
goto T1063;} |
goto T1068;} |
|
goto T1058; |
|
2234 |
goto T1063; |
goto T1063; |
2235 |
T1063:; |
goto T1068; |
2236 |
|
T1068:; |
2237 |
base[9]= (V344); |
base[9]= (V344); |
2238 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2239 |
L26(base); |
L26(base); |
2240 |
vs_top=sup; |
vs_top=sup; |
2241 |
V343= cdr((V343)); |
V343= cdr((V343)); |
2242 |
V344= car((V343)); |
V344= car((V343)); |
2243 |
goto T1062;} |
goto T1067;} |
2244 |
goto T1058; |
goto T1063; |
2245 |
T1058:; |
T1063:; |
2246 |
{object V345; |
{object V345; |
2247 |
object V346; |
object V346; |
2248 |
V345= cadr((V327)); |
V345= cadr((V327)); |
2249 |
V346= car((V345)); |
V346= car((V345)); |
2250 |
goto T1078; |
goto T1083; |
2251 |
T1078:; |
T1083:; |
2252 |
if(!(endp_prop((V345)))){ |
if(!(endp_prop((V345)))){ |
2253 |
goto T1079;} |
goto T1084;} |
|
goto T1074; |
|
2254 |
goto T1079; |
goto T1079; |
2255 |
T1079:; |
goto T1084; |
2256 |
|
T1084:; |
2257 |
base[9]= car((V346)); |
base[9]= car((V346)); |
2258 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2259 |
L26(base); |
L26(base); |
2260 |
vs_top=sup; |
vs_top=sup; |
2261 |
if((caddr((V346)))==Cnil){ |
if((caddr((V346)))==Cnil){ |
2262 |
goto T1085;} |
goto T1090;} |
2263 |
base[9]= caddr((V346)); |
base[9]= caddr((V346)); |
2264 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2265 |
L26(base); |
L26(base); |
2266 |
vs_top=sup; |
vs_top=sup; |
2267 |
goto T1085; |
goto T1090; |
2268 |
T1085:; |
T1090:; |
2269 |
V345= cdr((V345)); |
V345= cdr((V345)); |
2270 |
V346= car((V345)); |
V346= car((V345)); |
2271 |
goto T1078;} |
goto T1083;} |
2272 |
goto T1074; |
goto T1079; |
2273 |
T1074:; |
T1079:; |
2274 |
if((caddr((V327)))==Cnil){ |
if((caddr((V327)))==Cnil){ |
2275 |
goto T1094;} |
goto T1099;} |
2276 |
base[7]= caddr((V327)); |
base[7]= caddr((V327)); |
2277 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2278 |
L26(base); |
L26(base); |
2279 |
vs_top=sup; |
vs_top=sup; |
2280 |
goto T1094; |
goto T1099; |
2281 |
T1094:; |
T1099:; |
2282 |
{object V347; |
{object V347; |
2283 |
object V348; |
object V348; |
2284 |
V347= car(cddddr((V327))); |
V347= car(cddddr((V327))); |
2285 |
V348= car((V347)); |
V348= car((V347)); |
2286 |
goto T1101; |
goto T1106; |
2287 |
T1101:; |
T1106:; |
2288 |
if(!(endp_prop((V347)))){ |
if(!(endp_prop((V347)))){ |
2289 |
goto T1102;} |
goto T1107;} |
2290 |
goto T1057; |
goto T1062; |
2291 |
goto T1102; |
goto T1107; |
2292 |
T1102:; |
T1107:; |
2293 |
base[9]= cadr((V348)); |
base[9]= cadr((V348)); |
2294 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2295 |
L26(base); |
L26(base); |
2296 |
vs_top=sup; |
vs_top=sup; |
2297 |
if((cadddr((V348)))==Cnil){ |
if((cadddr((V348)))==Cnil){ |
2298 |
goto T1108;} |
goto T1113;} |
2299 |
base[9]= cadddr((V348)); |
base[9]= cadddr((V348)); |
2300 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2301 |
L26(base); |
L26(base); |
2302 |
vs_top=sup; |
vs_top=sup; |
2303 |
goto T1108; |
goto T1113; |
2304 |
T1108:; |
T1113:; |
2305 |
V347= cdr((V347)); |
V347= cdr((V347)); |
2306 |
V348= car((V347)); |
V348= car((V347)); |
2307 |
goto T1101;} |
goto T1106;} |
2308 |
goto T1057; |
goto T1062; |
2309 |
T1057:; |
T1062:; |
2310 |
if(((VV[153]->s.s_dbind))==Cnil){ |
if(((VV[153]->s.s_dbind))==Cnil){ |
2311 |
goto T1119;} |
goto T1124;} |
2312 |
goto T1117; |
goto T1122; |
2313 |
goto T1119; |
goto T1124; |
2314 |
T1119:; |
T1124:; |
2315 |
princ_str("\n Vcs[0]=Vcs[0];",VV[25]); |
princ_str("\n Vcs[0]=Vcs[0];",VV[25]); |
2316 |
goto T1117; |
goto T1122; |
2317 |
T1117:; |
T1122:; |
2318 |
if((cadr((V327)))!=Cnil){ |
if((cadr((V327)))!=Cnil){ |
2319 |
goto T1123;} |
goto T1128;} |
2320 |
if((caddr((V327)))!=Cnil){ |
if((caddr((V327)))!=Cnil){ |
2321 |
goto T1123;} |
goto T1128;} |
2322 |
if((cadddr((V327)))==Cnil){ |
if((cadddr((V327)))==Cnil){ |
2323 |
goto T1122;} |
goto T1127;} |
2324 |
goto T1123; |
goto T1128; |
2325 |
T1123:; |
T1128:; |
2326 |
if(((V328))!=Cnil){ |
if(((V328))!=Cnil){ |
2327 |
goto T1122;} |
goto T1127;} |
2328 |
V328= Ct; |
V328= Ct; |
2329 |
princ_str("\n va_start(ap,first);",VV[25]); |
princ_str("\n va_start(ap,first);",VV[25]); |
2330 |
goto T1122; |
goto T1127; |
2331 |
T1122:; |
T1127:; |
2332 |
if((symbol_value(VV[163]))!=Cnil){ |
if((symbol_value(VV[163]))!=Cnil){ |
2333 |
goto T1136;} |
goto T1141;} |
2334 |
if((symbol_value(VV[164]))==Cnil){ |
if((symbol_value(VV[164]))==Cnil){ |
2335 |
goto T1134;} |
goto T1139;} |
2336 |
goto T1136; |
goto T1141; |
2337 |
T1136:; |
T1141:; |
2338 |
if((car((V327)))==Cnil){ |
if((car((V327)))==Cnil){ |
2339 |
goto T1134;} |
goto T1139;} |
2340 |
princ_str("\n if(narg <",VV[25]); |
princ_str("\n if(narg <",VV[25]); |
2341 |
V349 = make_fixnum((long)length(car((V327)))); |
V349 = make_fixnum((long)length(car((V327)))); |
2342 |
(void)((*(LnkLI274))(V349)); |
(void)((*(LnkLI274))(V349)); |
2343 |
princ_str(") too_few_arguments();",VV[25]); |
princ_str(") too_few_arguments();",VV[25]); |
2344 |
goto T1134; |
goto T1139; |
2345 |
T1134:; |
T1139:; |
2346 |
{object V350; |
{object V350; |
2347 |
object V351; |
object V351; |
2348 |
V350= car((V327)); |
V350= car((V327)); |
2349 |
V351= car((V350)); |
V351= car((V350)); |
2350 |
goto T1148; |
goto T1153; |
2351 |
T1148:; |
T1153:; |
2352 |
if(!(endp_prop((V350)))){ |
if(!(endp_prop((V350)))){ |
2353 |
goto T1149;} |
goto T1154;} |
|
goto T1144; |
|
2354 |
goto T1149; |
goto T1149; |
2355 |
T1149:; |
goto T1154; |
2356 |
(void)((*(LnkLI320))((V351))); |
T1154:; |
2357 |
|
(void)((*(LnkLI323))((V351))); |
2358 |
V350= cdr((V350)); |
V350= cdr((V350)); |
2359 |
V351= car((V350)); |
V351= car((V350)); |
2360 |
goto T1148;} |
goto T1153;} |
2361 |
goto T1144; |
goto T1149; |
2362 |
T1144:; |
T1149:; |
2363 |
{object V352; |
{object V352; |
2364 |
object V353; |
object V353; |
2365 |
V352= cadr((V327)); |
V352= cadr((V327)); |
2366 |
V353= car((V352)); |
V353= car((V352)); |
2367 |
goto T1163; |
goto T1168; |
2368 |
T1163:; |
T1168:; |
2369 |
if(!(endp_prop((V352)))){ |
if(!(endp_prop((V352)))){ |
2370 |
goto T1164;} |
goto T1169;} |
|
goto T1159; |
|
2371 |
goto T1164; |
goto T1164; |
2372 |
T1164:; |
goto T1169; |
2373 |
(void)((*(LnkLI320))(car((V353)))); |
T1169:; |
2374 |
|
(void)((*(LnkLI323))(car((V353)))); |
2375 |
V352= cdr((V352)); |
V352= cdr((V352)); |
2376 |
V353= car((V352)); |
V353= car((V352)); |
2377 |
goto T1163;} |
goto T1168;} |
2378 |
goto T1159; |
goto T1164; |
2379 |
T1159:; |
T1164:; |
2380 |
if((caddr((V327)))==Cnil){ |
if((caddr((V327)))==Cnil){ |
2381 |
goto T1174;} |
goto T1179;} |
2382 |
(void)((*(LnkLI320))(caddr((V327)))); |
(void)((*(LnkLI323))(caddr((V327)))); |
2383 |
goto T1174; |
goto T1179; |
2384 |
T1174:; |
T1179:; |
2385 |
if(((VV[153]->s.s_dbind))==Cnil){ |
if(((VV[153]->s.s_dbind))==Cnil){ |
2386 |
goto T1180;} |
goto T1185;} |
2387 |
V325= symbol_value(VV[129]); |
V325= symbol_value(VV[129]); |
2388 |
goto T1178; |
goto T1183; |
2389 |
goto T1180; |
goto T1185; |
2390 |
T1180:; |
T1185:; |
2391 |
V325= symbol_value(VV[141]); |
V325= symbol_value(VV[141]); |
2392 |
goto T1178; |
goto T1183; |
2393 |
T1178:; |
T1183:; |
2394 |
{object V354; |
{object V354; |
2395 |
object V355; |
object V355; |
2396 |
V354= car(cddddr((V327))); |
V354= car(cddddr((V327))); |
2397 |
V355= car((V354)); |
V355= car((V354)); |
2398 |
goto T1186; |
goto T1191; |
2399 |
T1186:; |
T1191:; |
2400 |
if(!(endp_prop((V354)))){ |
if(!(endp_prop((V354)))){ |
2401 |
goto T1187;} |
goto T1192;} |
|
goto T1182; |
|
2402 |
goto T1187; |
goto T1187; |
2403 |
T1187:; |
goto T1192; |
2404 |
(void)((*(LnkLI320))(cadr((V355)))); |
T1192:; |
2405 |
|
(void)((*(LnkLI323))(cadr((V355)))); |
2406 |
V354= cdr((V354)); |
V354= cdr((V354)); |
2407 |
V355= car((V354)); |
V355= car((V354)); |
2408 |
goto T1186;} |
goto T1191;} |
2409 |
goto T1182; |
goto T1187; |
2410 |
T1182:; |
T1187:; |
2411 |
{object V356; |
{object V356; |
2412 |
object V357; |
object V357; |
2413 |
V356= car(cddddr((V327))); |
V356= car(cddddr((V327))); |
2414 |
V357= car((V356)); |
V357= car((V356)); |
2415 |
goto T1201; |
goto T1206; |
2416 |
T1201:; |
T1206:; |
2417 |
if(!(endp_prop((V356)))){ |
if(!(endp_prop((V356)))){ |
2418 |
goto T1202;} |
goto T1207;} |
|
goto T1197; |
|
2419 |
goto T1202; |
goto T1202; |
2420 |
T1202:; |
goto T1207; |
2421 |
(void)((*(LnkLI320))(cadddr((V357)))); |
T1207:; |
2422 |
|
(void)((*(LnkLI323))(cadddr((V357)))); |
2423 |
V356= cdr((V356)); |
V356= cdr((V356)); |
2424 |
V357= car((V356)); |
V357= car((V356)); |
2425 |
goto T1201;} |
goto T1206;} |
2426 |
goto T1197; |
goto T1202; |
2427 |
T1197:; |
T1202:; |
2428 |
{object V358; |
{object V358; |
2429 |
object V359; |
object V359; |
2430 |
V359= car((V327)); |
V359= car((V327)); |
2431 |
V358= (V322); |
V358= (V322); |
2432 |
goto T1215; |
goto T1220; |
2433 |
T1215:; |
T1220:; |
2434 |
if(((V358))!=Cnil){ |
if(((V358))!=Cnil){ |
2435 |
goto T1216;} |
goto T1221;} |
2436 |
goto T1212; |
goto T1217; |
2437 |
goto T1216; |
goto T1221; |
2438 |
T1216:; |
T1221:; |
2439 |
(void)((*(LnkLI321))(car((V359)),car((V358)))); |
(void)((*(LnkLI324))(car((V359)),car((V358)))); |
2440 |
V358= cdr((V358)); |
V358= cdr((V358)); |
2441 |
V359= cdr((V359)); |
V359= cdr((V359)); |
2442 |
goto T1215;} |
goto T1220;} |
2443 |
goto T1212; |
goto T1217; |
2444 |
T1212:; |
T1217:; |
2445 |
if((cadr((V327)))==Cnil){ |
if((cadr((V327)))==Cnil){ |
2446 |
goto T1225;} |
goto T1230;} |
2447 |
bds_bind(VV[133],symbol_value(VV[133])); |
bds_bind(VV[133],symbol_value(VV[133])); |
2448 |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
2449 |
bds_bind(VV[132],symbol_value(VV[132])); |
bds_bind(VV[132],symbol_value(VV[132])); |
2457 |
object V363; |
object V363; |
2458 |
V362= cadr((V327)); |
V362= cadr((V327)); |
2459 |
V363= car((V362)); |
V363= car((V362)); |
2460 |
goto T1236; |
goto T1241; |
2461 |
T1236:; |
T1241:; |
2462 |
if(!(endp_prop((V362)))){ |
if(!(endp_prop((V362)))){ |
2463 |
goto T1237;} |
goto T1242;} |
2464 |
bds_unwind1; |
bds_unwind1; |
2465 |
bds_unwind1; |
bds_unwind1; |
2466 |
bds_unwind1; |
bds_unwind1; |
2467 |
goto T1228; |
goto T1233; |
2468 |
goto T1237; |
goto T1242; |
2469 |
T1237:; |
T1242:; |
2470 |
{object V364; |
{object V364; |
2471 |
setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1))); |
setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1))); |
2472 |
V364= make_cons(symbol_value(VV[165]),Cnil); |
V364= make_cons(symbol_value(VV[165]),Cnil); |
2473 |
V323= make_cons((V364),(V323));} |
V323= make_cons((V364),(V323));} |
2474 |
princ_str("\n if (",VV[25]); |
princ_str("\n if (",VV[25]); |
2475 |
if((cdr((V323)))==Cnil){ |
if((cdr((V323)))==Cnil){ |
2476 |
goto T1250;} |
goto T1255;} |
2477 |
V365= VV[166]; |
V365= VV[166]; |
2478 |
goto T1248; |
goto T1253; |
2479 |
goto T1250; |
goto T1255; |
2480 |
T1250:; |
T1255:; |
2481 |
V365= VV[167]; |
V365= VV[167]; |
2482 |
goto T1248; |
goto T1253; |
2483 |
T1248:; |
T1253:; |
2484 |
(void)((*(LnkLI274))(V365)); |
(void)((*(LnkLI274))(V365)); |
2485 |
princ_str("narg <= 0) ",VV[25]); |
princ_str("narg <= 0) ",VV[25]); |
2486 |
if(type_of(car((V323)))!=t_cons)FEwrong_type_argument(Scons,car((V323))); |
if(type_of(car((V323)))!=t_cons)FEwrong_type_argument(Scons,car((V323))); |
2491 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2492 |
princ_str("\n else {",VV[25]); |
princ_str("\n else {",VV[25]); |
2493 |
if(((V328))!=Cnil){ |
if(((V328))!=Cnil){ |
2494 |
goto T1260;} |
goto T1265;} |
2495 |
V328= Ct; |
V328= Ct; |
2496 |
princ_str("\n va_start(ap,first);",VV[25]); |
princ_str("\n va_start(ap,first);",VV[25]); |
2497 |
goto T1260; |
goto T1265; |
2498 |
T1260:; |
T1265:; |
2499 |
V366= car((V363)); |
V366= car((V363)); |
2500 |
if(((V361))==Cnil){ |
if(((V361))==Cnil){ |
2501 |
goto T1269;} |
goto T1274;} |
2502 |
V367= make_cons(VV[168],Cnil); |
V367= make_cons(VV[168],Cnil); |
2503 |
goto T1267; |
goto T1272; |
2504 |
goto T1269; |
goto T1274; |
2505 |
T1269:; |
T1274:; |
2506 |
V367= make_cons(VV[169],Cnil); |
V367= make_cons(VV[169],Cnil); |
2507 |
goto T1267; |
goto T1272; |
2508 |
T1267:; |
T1272:; |
2509 |
(void)((*(LnkLI321))(/* INLINE-ARGS */V366,V367)); |
(void)((*(LnkLI324))(/* INLINE-ARGS */V366,V367)); |
2510 |
V361= Cnil; |
V361= Cnil; |
2511 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
2512 |
if((caddr((V363)))==Cnil){ |
if((caddr((V363)))==Cnil){ |
2513 |
goto T1275;} |
goto T1280;} |
2514 |
(void)((*(LnkLI321))(caddr((V363)),Ct)); |
(void)((*(LnkLI324))(caddr((V363)),Ct)); |
2515 |
goto T1275; |
goto T1280; |
2516 |
T1275:; |
T1280:; |
2517 |
V362= cdr((V362)); |
V362= cdr((V362)); |
2518 |
V363= car((V362)); |
V363= car((V362)); |
2519 |
goto T1236;}} |
goto T1241;}} |
2520 |
goto T1228; |
goto T1233; |
2521 |
T1228:; |
T1233:; |
2522 |
V323= nreverse((V323)); |
V323= nreverse((V323)); |
2523 |
{object V368; |
{object V368; |
2524 |
setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1))); |
setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1))); |
2533 |
object V370; |
object V370; |
2534 |
V369= cadr((V327)); |
V369= cadr((V327)); |
2535 |
V370= car((V369)); |
V370= car((V369)); |
2536 |
goto T1298; |
goto T1303; |
2537 |
T1298:; |
T1303:; |
2538 |
if(!(endp_prop((V369)))){ |
if(!(endp_prop((V369)))){ |
2539 |
goto T1299;} |
goto T1304;} |
|
goto T1294; |
|
2540 |
goto T1299; |
goto T1299; |
2541 |
T1299:; |
goto T1304; |
2542 |
|
T1304:; |
2543 |
if((cdr(car((V323))))==Cnil){ |
if((cdr(car((V323))))==Cnil){ |
2544 |
goto T1303;} |
goto T1308;} |
2545 |
princ_str("\n goto T",VV[25]); |
princ_str("\n goto T",VV[25]); |
2546 |
(void)((*(LnkLI274))(car(car((V323))))); |
(void)((*(LnkLI274))(car(car((V323))))); |
2547 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2548 |
princ_str("\nT",VV[25]); |
princ_str("\nT",VV[25]); |
2549 |
(void)((*(LnkLI274))(car(car((V323))))); |
(void)((*(LnkLI274))(car(car((V323))))); |
2550 |
princ_str(":;",VV[25]); |
princ_str(":;",VV[25]); |
2551 |
goto T1303; |
goto T1308; |
2552 |
T1303:; |
T1308:; |
2553 |
{object V371; |
{object V371; |
2554 |
V371= car((V323)); |
V371= car((V323)); |
2555 |
V323= cdr((V323));} |
V323= cdr((V323));} |
2556 |
(void)((*(LnkLI322))(car((V370)),cadr((V370)))); |
(void)((*(LnkLI325))(car((V370)),cadr((V370)))); |
2557 |
if((caddr((V370)))==Cnil){ |
if((caddr((V370)))==Cnil){ |
2558 |
goto T1318;} |
goto T1323;} |
2559 |
(void)((*(LnkLI321))(caddr((V370)),Cnil)); |
(void)((*(LnkLI324))(caddr((V370)),Cnil)); |
2560 |
goto T1318; |
goto T1323; |
2561 |
T1318:; |
T1323:; |
2562 |
V369= cdr((V369)); |
V369= cdr((V369)); |
2563 |
V370= car((V369)); |
V370= car((V369)); |
2564 |
goto T1298;} |
goto T1303;} |
2565 |
goto T1294; |
goto T1299; |
2566 |
T1294:; |
T1299:; |
2567 |
if((cdr((V368)))==Cnil){ |
if((cdr((V368)))==Cnil){ |
2568 |
goto T1225;} |
goto T1230;} |
2569 |
princ_str("\n goto T",VV[25]); |
princ_str("\n goto T",VV[25]); |
2570 |
(void)((*(LnkLI274))(car((V368)))); |
(void)((*(LnkLI274))(car((V368)))); |
2571 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
2572 |
princ_str("\nT",VV[25]); |
princ_str("\nT",VV[25]); |
2573 |
(void)((*(LnkLI274))(car((V368)))); |
(void)((*(LnkLI274))(car((V368)))); |
2574 |
princ_str(":;",VV[25]);} |
princ_str(":;",VV[25]);} |
2575 |
goto T1225; |
goto T1230; |
2576 |
T1225:; |
T1230:; |
2577 |
if((caddr((V327)))==Cnil){ |
if((caddr((V327)))==Cnil){ |
2578 |
goto T1335;} |
goto T1340;} |
2579 |
V326= (VFUN_NARGS=0,(*(LnkLI323))()); |
V326= (VFUN_NARGS=0,(*(LnkLI326))()); |
2580 |
{object V372; |
{object V372; |
2581 |
V372= cadr((V327)); |
V372= cadr((V327)); |
2582 |
if(((V372))==Cnil){ |
if(((V372))==Cnil){ |
2583 |
goto T1343;} |
goto T1348;} |
2584 |
goto T1340; |
goto T1345; |
2585 |
goto T1343; |
goto T1348; |
2586 |
T1343:; |
T1348:; |
2587 |
princ_str("\n narg= narg - ",VV[25]); |
princ_str("\n narg= narg - ",VV[25]); |
2588 |
V373 = make_fixnum((long)length(car((V327)))); |
V373 = make_fixnum((long)length(car((V327)))); |
2589 |
(void)((*(LnkLI274))(V373)); |
(void)((*(LnkLI274))(V373)); |
2590 |
princ_char(59,VV[25]);} |
princ_char(59,VV[25]);} |
2591 |
goto T1340; |
goto T1345; |
2592 |
T1340:; |
T1345:; |
2593 |
if(((V328))!=Cnil){ |
if(((V328))!=Cnil){ |
2594 |
goto T1348;} |
goto T1353;} |
2595 |
V328= Ct; |
V328= Ct; |
2596 |
princ_str("\n va_start(ap,first);",VV[25]); |
princ_str("\n va_start(ap,first);",VV[25]); |
2597 |
goto T1348; |
goto T1353; |
2598 |
T1348:; |
T1353:; |
2599 |
princ_str("\n V",VV[25]); |
princ_str("\n V",VV[25]); |
2600 |
(void)((*(LnkLI274))((V326))); |
(void)((*(LnkLI274))((V326))); |
2601 |
princ_str(" = ",VV[25]); |
princ_str(" = ",VV[25]); |
2602 |
V374= structure_ref(caddr((V327)),VV[69],5); |
V374= structure_ref(caddr((V327)),VV[69],5); |
2603 |
if(!((/* INLINE-ARGS */V374)==(VV[171]))){ |
if(!((/* INLINE-ARGS */V374)==(VV[171]))){ |
2604 |
goto T1359;} |
goto T1364;} |
2605 |
base[7]= Ct; |
base[7]= Ct; |
2606 |
goto T1358; |
goto T1363; |
2607 |
goto T1359; |
goto T1364; |
2608 |
T1359:; |
T1364:; |
2609 |
base[7]= symbol_value(VV[170]); |
base[7]= symbol_value(VV[170]); |
2610 |
goto T1358; |
goto T1363; |
2611 |
T1358:; |
T1363:; |
2612 |
bds_bind(VV[170],base[7]); |
bds_bind(VV[170],base[7]); |
2613 |
if((cadddr((V327)))==Cnil){ |
if((cadddr((V327)))==Cnil){ |
2614 |
goto T1363;} |
goto T1368;} |
2615 |
if(((VV[170]->s.s_dbind))==Cnil){ |
if(((VV[170]->s.s_dbind))==Cnil){ |
2616 |
goto T1366;} |
goto T1371;} |
2617 |
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]); |
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]); |
|
goto T1361; |
|
2618 |
goto T1366; |
goto T1366; |
2619 |
T1366:; |
goto T1371; |
2620 |
|
T1371:; |
2621 |
princ_str("make_list(narg);",VV[25]); |
princ_str("make_list(narg);",VV[25]); |
2622 |
goto T1361; |
goto T1366; |
2623 |
goto T1363; |
goto T1368; |
2624 |
T1363:; |
T1368:; |
2625 |
if(((VV[170]->s.s_dbind))==Cnil){ |
if(((VV[170]->s.s_dbind))==Cnil){ |
2626 |
goto T1371;} |
goto T1376;} |
2627 |
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]); |
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]); |
2628 |
goto T1361; |
goto T1366; |
2629 |
goto T1371; |
goto T1376; |
2630 |
T1371:; |
T1376:; |
2631 |
princ_str("list_vector_new(narg,first,ap);",VV[25]); |
princ_str("list_vector_new(narg,first,ap);",VV[25]); |
2632 |
goto T1361; |
goto T1366; |
2633 |
T1361:; |
T1366:; |
2634 |
V375= caddr((V327)); |
V375= caddr((V327)); |
2635 |
V376= list(2,VV[155],(V326)); |
V376= list(2,VV[155],(V326)); |
2636 |
V377= (*(LnkLI321))(/* INLINE-ARGS */V375,/* INLINE-ARGS */V376); |
V377= (*(LnkLI324))(/* INLINE-ARGS */V375,/* INLINE-ARGS */V376); |
2637 |
bds_unwind1; |
bds_unwind1; |
2638 |
goto T1335; |
goto T1340; |
2639 |
T1335:; |
T1340:; |
2640 |
if((cadddr((V327)))==Cnil){ |
if((cadddr((V327)))==Cnil){ |
2641 |
goto T1375;} |
goto T1380;} |
2642 |
{object V378; |
{object V378; |
2643 |
V378= caddr((V327)); |
V378= caddr((V327)); |
2644 |
if(((V378))==Cnil){ |
if(((V378))==Cnil){ |
2645 |
goto T1381;} |
goto T1386;} |
2646 |
goto T1378; |
goto T1383; |
2647 |
goto T1381; |
goto T1386; |
2648 |
T1381:; |
T1386:; |
2649 |
{object V379; |
{object V379; |
2650 |
V379= cadr((V327)); |
V379= cadr((V327)); |
2651 |
if(((V379))==Cnil){ |
if(((V379))==Cnil){ |
2652 |
goto T1385;} |
goto T1390;} |
2653 |
goto T1378; |
goto T1383; |
2654 |
goto T1385; |
goto T1390; |
2655 |
T1385:; |
T1390:; |
2656 |
princ_str("\n narg= narg - ",VV[25]); |
princ_str("\n narg= narg - ",VV[25]); |
2657 |
V380 = make_fixnum((long)length(car((V327)))); |
V380 = make_fixnum((long)length(car((V327)))); |
2658 |
(void)((*(LnkLI274))(V380)); |
(void)((*(LnkLI274))(V380)); |
2659 |
princ_char(59,VV[25]);}} |
princ_char(59,VV[25]);}} |
2660 |
goto T1378; |
goto T1383; |
2661 |
T1378:; |
T1383:; |
2662 |
if(((V328))!=Cnil){ |
if(((V328))!=Cnil){ |
2663 |
goto T1390;} |
goto T1395;} |
2664 |
V328= Ct; |
V328= Ct; |
2665 |
princ_str("\n va_start(ap,first);",VV[25]); |
princ_str("\n va_start(ap,first);",VV[25]); |
2666 |
goto T1390; |
goto T1395; |
2667 |
T1390:; |
T1395:; |
2668 |
{object V381; |
{object V381; |
2669 |
object V382= car(cddddr((V327))); |
object V382= car(cddddr((V327))); |
2670 |
if(endp(V382)){ |
if(endp(V382)){ |
2671 |
V324= Cnil; |
V324= Cnil; |
2672 |
goto T1397;} |
goto T1402;} |
2673 |
base[7]=V381=MMcons(Cnil,Cnil); |
base[7]=V381=MMcons(Cnil,Cnil); |
2674 |
goto T1398; |
goto T1403; |
2675 |
T1398:; |
T1403:; |
2676 |
(V381->c.c_car)= caddr((V382->c.c_car)); |
(V381->c.c_car)= caddr((V382->c.c_car)); |
2677 |
V382=MMcdr(V382); |
V382=MMcdr(V382); |
2678 |
if(endp(V382)){ |
if(endp(V382)){ |
2679 |
V324= base[7]; |
V324= base[7]; |
2680 |
goto T1397;} |
goto T1402;} |
2681 |
V381=MMcdr(V381)=MMcons(Cnil,Cnil); |
V381=MMcdr(V381)=MMcons(Cnil,Cnil); |
2682 |
goto T1398;} |
goto T1403;} |
2683 |
goto T1397; |
goto T1402; |
2684 |
T1397:; |
T1402:; |
2685 |
{object V383; |
{object V383; |
2686 |
object V384; |
object V384; |
2687 |
V384= make_fixnum((long)length(car(cddddr((V327))))); |
V384= make_fixnum((long)length(car(cddddr((V327))))); |
2692 |
V385= (V324); |
V385= (V324); |
2693 |
V386= car(cddddr((V327))); |
V386= car(cddddr((V327))); |
2694 |
V387= car((V386)); |
V387= car((V386)); |
2695 |
goto T1406; |
goto T1411; |
2696 |
T1406:; |
T1411:; |
2697 |
if(((V385))!=Cnil){ |
if(((V385))!=Cnil){ |
|
goto T1407;} |
|
|
goto T1401; |
|
|
goto T1407; |
|
|
T1407:; |
|
|
if(!((caar((V385)))==(VV[172]))){ |
|
2698 |
goto T1412;} |
goto T1412;} |
2699 |
if((caddr(car((V385))))==(Cnil)){ |
goto T1406; |
|
goto T1411;} |
|
2700 |
goto T1412; |
goto T1412; |
2701 |
T1412:; |
T1412:; |
2702 |
|
if(!((caar((V385)))==(VV[172]))){ |
2703 |
|
goto T1417;} |
2704 |
|
if((caddr(car((V385))))==(Cnil)){ |
2705 |
|
goto T1416;} |
2706 |
|
goto T1417; |
2707 |
|
T1417:; |
2708 |
V383= Ct; |
V383= Ct; |
2709 |
goto T1411; |
goto T1416; |
2710 |
T1411:; |
T1416:; |
2711 |
if(!((caar((V385)))==(VV[172]))){ |
if(!((caar((V385)))==(VV[172]))){ |
2712 |
goto T1418;} |
goto T1423;} |
2713 |
{object V388; |
{object V388; |
2714 |
V388= caddr(car((V385))); |
V388= caddr(car((V385))); |
2715 |
if(!(((V388))==(Cnil))){ |
if(!(((V388))==(Cnil))){ |
2716 |
goto T1424;} |
goto T1429;} |
2717 |
goto T1422; |
goto T1427; |
2718 |
goto T1424; |
goto T1429; |
2719 |
T1424:; |
T1429:; |
2720 |
if(type_of((V388))==t_cons){ |
if(type_of((V388))==t_cons){ |
2721 |
goto T1426;} |
goto T1431;} |
2722 |
goto T1418; |
goto T1423; |
2723 |
goto T1426; |
goto T1431; |
2724 |
T1426:; |
T1431:; |
2725 |
{register object x= car((V388)),V389= VV[173]; |
{register object x= car((V388)),V389= VV[173]; |
2726 |
while(!endp(V389)) |
while(!endp(V389)) |
2727 |
if(eql(x,V389->c.c_car)){ |
if(eql(x,V389->c.c_car)){ |
2728 |
goto T1422; |
goto T1427; |
2729 |
}else V389=V389->c.c_cdr; |
}else V389=V389->c.c_cdr; |
2730 |
goto T1418;}} |
goto T1423;}} |
2731 |
goto T1422; |
goto T1427; |
2732 |
T1422:; |
T1427:; |
2733 |
V390= structure_ref(cadddr((V387)),VV[69],1); |
V390= structure_ref(cadddr((V387)),VV[69],1); |
2734 |
if((/* INLINE-ARGS */V390)==(VV[174])){ |
if((/* INLINE-ARGS */V390)==(VV[174])){ |
2735 |
goto T1417;} |
goto T1422;} |
2736 |
goto T1418; |
goto T1423; |
2737 |
T1418:; |
T1423:; |
2738 |
V383= Ct; |
V383= Ct; |
2739 |
if(type_of(V385)!=t_cons)FEwrong_type_argument(Scons,V385); |
if(type_of(V385)!=t_cons)FEwrong_type_argument(Scons,V385); |
2740 |
(V385)->c.c_car = small_fixnum(0); |
(V385)->c.c_car = small_fixnum(0); |
2741 |
goto T1417; |
goto T1422; |
2742 |
T1417:; |
T1422:; |
2743 |
V385= cdr((V385)); |
V385= cdr((V385)); |
2744 |
V386= cdr((V386)); |
V386= cdr((V386)); |
2745 |
V387= car((V386)); |
V387= car((V386)); |
2746 |
goto T1406;} |
goto T1411;} |
2747 |
goto T1401; |
goto T1406; |
2748 |
T1401:; |
T1406:; |
2749 |
if(!(((long)length((V324)))>(15))){ |
if(!(((long)length((V324)))>(15))){ |
2750 |
goto T1439;} |
goto T1444;} |
2751 |
V383= Ct; |
V383= Ct; |
2752 |
goto T1439; |
goto T1444; |
2753 |
T1439:; |
T1444:; |
2754 |
princ_str("\n {",VV[25]); |
princ_str("\n {",VV[25]); |
2755 |
vs_base=vs_top; |
vs_base=vs_top; |
2756 |
(void) (*Lnk324)(); |
(void) (*Lnk327)(); |
2757 |
vs_top=sup; |
vs_top=sup; |
2758 |
bds_bind(VV[25],symbol_value(VV[31])); |
bds_bind(VV[25],symbol_value(VV[31])); |
2759 |
if(((V383))==Cnil){ |
if(((V383))==Cnil){ |
2760 |
goto T1447;} |
goto T1452;} |
2761 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
2762 |
princ_str("static object VK",VV[25]); |
princ_str("static object VK",VV[25]); |
2763 |
(void)((*(LnkLI274))((V319))); |
(void)((*(LnkLI274))((V319))); |
2769 |
register object V395; |
register object V395; |
2770 |
V394= (V324); |
V394= (V324); |
2771 |
V395= Cnil; |
V395= Cnil; |
2772 |
goto T1459; |
goto T1464; |
2773 |
T1459:; |
T1464:; |
2774 |
if(((V394))!=Cnil){ |
if(((V394))!=Cnil){ |
2775 |
goto T1460;} |
goto T1465;} |
2776 |
goto T1457; |
goto T1462; |
2777 |
goto T1460; |
goto T1465; |
2778 |
T1460:; |
T1465:; |
2779 |
princ_str("(void *)",VV[25]); |
princ_str("(void *)",VV[25]); |
2780 |
if(!(eql(car((V394)),small_fixnum(0)))){ |
if(!(eql(car((V394)),small_fixnum(0)))){ |
2781 |
goto T1468;} |
goto T1473;} |
2782 |
princ_str("-1",VV[25]); |
princ_str("-1",VV[25]); |
2783 |
goto T1466; |
goto T1471; |
2784 |
goto T1468; |
goto T1473; |
2785 |
T1468:; |
T1473:; |
2786 |
V395= caddr(car((V394))); |
V395= caddr(car((V394))); |
2787 |
if(!(((V395))==(Cnil))){ |
if(!(((V395))==(Cnil))){ |
2788 |
goto T1472;} |
goto T1477;} |
2789 |
princ_str("-2",VV[25]); |
princ_str("-2",VV[25]); |
2790 |
goto T1466; |
goto T1471; |
2791 |
goto T1472; |
goto T1477; |
2792 |
T1472:; |
T1477:; |
2793 |
if(!(type_of((V395))==t_cons)){ |
if(!(type_of((V395))==t_cons)){ |
2794 |
goto T1477;} |
goto T1482;} |
2795 |
if(!((car((V395)))==(VV[175]))){ |
if(!((car((V395)))==(VV[175]))){ |
2796 |
goto T1477;} |
goto T1482;} |
2797 |
(void)((*(LnkLI274))(cadr((V395)))); |
(void)((*(LnkLI274))(cadr((V395)))); |
2798 |
goto T1466; |
goto T1471; |
2799 |
goto T1477; |
goto T1482; |
2800 |
T1477:; |
T1482:; |
2801 |
if(!(type_of((V395))==t_cons)){ |
if(!(type_of((V395))==t_cons)){ |
2802 |
goto T1483;} |
goto T1488;} |
2803 |
if(!((car((V395)))==(VV[176]))){ |
if(!((car((V395)))==(VV[176]))){ |
|
goto T1483;} |
|
|
V396= (*(LnkLI325))(caddr((V395))); |
|
|
(void)((*(LnkLI274))(/* INLINE-ARGS */V396)); |
|
|
goto T1466; |
|
|
goto T1483; |
|
|
T1483:; |
|
|
(void)((*(LnkLI326))()); |
|
|
goto T1466; |
|
|
T1466:; |
|
|
if((cdr((V394)))==Cnil){ |
|
2804 |
goto T1488;} |
goto T1488;} |
2805 |
princ_char(44,VV[25]); |
V396= (*(LnkLI328))(caddr((V395))); |
2806 |
|
(void)((*(LnkLI274))(/* INLINE-ARGS */V396)); |
2807 |
|
goto T1471; |
2808 |
goto T1488; |
goto T1488; |
2809 |
T1488:; |
T1488:; |
2810 |
|
(void)((*(LnkLI329))()); |
2811 |
|
goto T1471; |
2812 |
|
T1471:; |
2813 |
|
if((cdr((V394)))==Cnil){ |
2814 |
|
goto T1493;} |
2815 |
|
princ_char(44,VV[25]); |
2816 |
|
goto T1493; |
2817 |
|
T1493:; |
2818 |
V394= cdr((V394)); |
V394= cdr((V394)); |
2819 |
goto T1459;} |
goto T1464;} |
2820 |
goto T1457; |
goto T1462; |
2821 |
T1457:; |
T1462:; |
2822 |
princ_str("};",VV[25]); |
princ_str("};",VV[25]); |
2823 |
goto T1447; |
goto T1452; |
2824 |
T1447:; |
T1452:; |
2825 |
princ_char(10,VV[31]); |
princ_char(10,VV[31]); |
2826 |
princ_str("static struct { short n,allow_other_keys;",VV[25]); |
princ_str("static struct { short n,allow_other_keys;",VV[25]); |
2827 |
princ_str("object *defaults;",VV[25]); |
princ_str("object *defaults;",VV[25]); |
2836 |
(void)((*(LnkLI274))(V397)); |
(void)((*(LnkLI274))(V397)); |
2837 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2838 |
if((cadr(cddddr((V327))))==Cnil){ |
if((cadr(cddddr((V327))))==Cnil){ |
2839 |
goto T1515;} |
goto T1520;} |
2840 |
V398= small_fixnum(1); |
V398= small_fixnum(1); |
2841 |
goto T1513; |
goto T1518; |
2842 |
goto T1515; |
goto T1520; |
2843 |
T1515:; |
T1520:; |
2844 |
V398= small_fixnum(0); |
V398= small_fixnum(0); |
2845 |
goto T1513; |
goto T1518; |
2846 |
T1513:; |
T1518:; |
2847 |
(void)((*(LnkLI274))(V398)); |
(void)((*(LnkLI274))(V398)); |
2848 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2849 |
if(((V383))==Cnil){ |
if(((V383))==Cnil){ |
2850 |
goto T1520;} |
goto T1525;} |
2851 |
princ_str("VK",VV[25]); |
princ_str("VK",VV[25]); |
2852 |
(void)((*(LnkLI274))((V319))); |
(void)((*(LnkLI274))((V319))); |
2853 |
princ_str("defaults",VV[25]); |
princ_str("defaults",VV[25]); |
2854 |
goto T1518; |
goto T1523; |
2855 |
goto T1520; |
goto T1525; |
2856 |
T1520:; |
T1525:; |
2857 |
princ_str("Cstd_key_defaults",VV[25]); |
princ_str("Cstd_key_defaults",VV[25]); |
2858 |
goto T1518; |
goto T1523; |
2859 |
T1518:; |
T1523:; |
2860 |
if((car(cddddr((V327))))==Cnil){ |
if((car(cddddr((V327))))==Cnil){ |
2861 |
goto T1526;} |
goto T1531;} |
2862 |
princ_str(",{",VV[25]); |
princ_str(",{",VV[25]); |
2863 |
{object V399; |
{object V399; |
2864 |
V399= reverse(car(cddddr((V327)))); |
V399= reverse(car(cddddr((V327)))); |
2865 |
goto T1534; |
goto T1539; |
2866 |
T1534:; |
T1539:; |
2867 |
if(((V399))!=Cnil){ |
if(((V399))!=Cnil){ |
2868 |
goto T1535;} |
goto T1540;} |
2869 |
goto T1531; |
goto T1536; |
2870 |
goto T1535; |
goto T1540; |
2871 |
T1535:; |
T1540:; |
2872 |
princ_str("(void *)",VV[25]); |
princ_str("(void *)",VV[25]); |
2873 |
V400= (*(LnkLI327))(caar((V399))); |
V400= (*(LnkLI330))(caar((V399))); |
2874 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V400)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V400)); |
2875 |
if((cdr((V399)))==Cnil){ |
if((cdr((V399)))==Cnil){ |
2876 |
goto T1543;} |
goto T1548;} |
2877 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2878 |
goto T1543; |
goto T1548; |
2879 |
T1543:; |
T1548:; |
2880 |
V399= cdr((V399)); |
V399= cdr((V399)); |
2881 |
goto T1534;} |
goto T1539;} |
2882 |
|
goto T1536; |
2883 |
|
T1536:; |
2884 |
|
princ_char(125,VV[25]); |
2885 |
goto T1531; |
goto T1531; |
2886 |
T1531:; |
T1531:; |
|
princ_char(125,VV[25]); |
|
|
goto T1526; |
|
|
T1526:; |
|
2887 |
princ_str("};",VV[25]); |
princ_str("};",VV[25]); |
2888 |
bds_unwind1; |
bds_unwind1; |
2889 |
if((caddr((V327)))==Cnil){ |
if((caddr((V327)))==Cnil){ |
2890 |
goto T1554;} |
goto T1559;} |
2891 |
princ_str("\n parse_key_rest_new(",VV[25]); |
princ_str("\n parse_key_rest_new(",VV[25]); |
2892 |
V401= list(2,VV[155],(V326)); |
V401= list(2,VV[155],(V326)); |
2893 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V401)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V401)); |
2894 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
2895 |
goto T1552; |
goto T1557; |
2896 |
goto T1554; |
goto T1559; |
2897 |
T1554:; |
T1559:; |
2898 |
princ_str("\n parse_key_new_new(",VV[25]); |
princ_str("\n parse_key_new_new(",VV[25]); |
2899 |
goto T1552; |
goto T1557; |
2900 |
T1552:; |
T1557:; |
2901 |
if(!(eql(small_fixnum(0),symbol_value(VV[141])))){ |
if(!(eql(small_fixnum(0),symbol_value(VV[141])))){ |
2902 |
goto T1560;} |
goto T1565;} |
2903 |
setq(VV[141],small_fixnum(1)); |
setq(VV[141],small_fixnum(1)); |
2904 |
goto T1560; |
goto T1565; |
2905 |
T1560:; |
T1565:; |
2906 |
princ_str("narg,",VV[25]); |
princ_str("narg,",VV[25]); |
2907 |
if(((VV[153]->s.s_dbind))==Cnil){ |
if(((VV[153]->s.s_dbind))==Cnil){ |
2908 |
goto T1568;} |
goto T1573;} |
2909 |
V402= VV[177]; |
V402= VV[177]; |
2910 |
goto T1566; |
goto T1571; |
2911 |
goto T1568; |
goto T1573; |
2912 |
T1568:; |
T1573:; |
2913 |
V402= VV[178]; |
V402= VV[178]; |
2914 |
goto T1566; |
goto T1571; |
2915 |
T1566:; |
T1571:; |
2916 |
(void)((*(LnkLI274))(V402)); |
(void)((*(LnkLI274))(V402)); |
2917 |
princ_char(43,VV[25]); |
princ_char(43,VV[25]); |
2918 |
(void)((*(LnkLI274))((V325))); |
(void)((*(LnkLI274))((V325))); |
2919 |
princ_str(",(struct key *)&LI",VV[25]); |
princ_str(",(struct key *)&LI",VV[25]); |
2920 |
(void)((*(LnkLI274))((V319))); |
(void)((*(LnkLI274))((V319))); |
2921 |
princ_str("key,first,ap);",VV[25]);} |
princ_str("key,first,ap);",VV[25]);} |
2922 |
goto T1375; |
goto T1380; |
2923 |
T1375:; |
T1380:; |
2924 |
{object V403; |
{object V403; |
2925 |
register object V404; |
register object V404; |
2926 |
V403= car(cddddr((V327))); |
V403= car(cddddr((V327))); |
2927 |
V404= car((V403)); |
V404= car((V403)); |
2928 |
goto T1579; |
goto T1584; |
2929 |
T1579:; |
T1584:; |
2930 |
if(!(endp_prop((V403)))){ |
if(!(endp_prop((V403)))){ |
2931 |
goto T1580;} |
goto T1585;} |
|
goto T1575; |
|
2932 |
goto T1580; |
goto T1580; |
2933 |
T1580:; |
goto T1585; |
2934 |
|
T1585:; |
2935 |
{object V406; |
{object V406; |
2936 |
V406= car((V324)); |
V406= car((V324)); |
2937 |
V324= cdr((V324)); |
V324= cdr((V324)); |
2938 |
V405= (V406);} |
V405= (V406);} |
2939 |
if(eql(small_fixnum(0),V405)){ |
if(eql(small_fixnum(0),V405)){ |
2940 |
goto T1586;} |
goto T1591;} |
2941 |
(void)((*(LnkLI328))(cadr((V404)))); |
(void)((*(LnkLI331))(cadr((V404)))); |
2942 |
goto T1584; |
goto T1589; |
2943 |
goto T1586; |
goto T1591; |
2944 |
T1586:; |
T1591:; |
2945 |
princ_str("\n if(",VV[25]); |
princ_str("\n if(",VV[25]); |
2946 |
V407= structure_ref(cadr((V404)),VV[69],2); |
V407= structure_ref(cadr((V404)),VV[69],2); |
2947 |
(void)((*(LnkLI329))(/* INLINE-ARGS */V407)); |
(void)((*(LnkLI332))(/* INLINE-ARGS */V407)); |
2948 |
princ_str("==0){",VV[25]); |
princ_str("==0){",VV[25]); |
2949 |
bds_bind(VV[133],symbol_value(VV[133])); |
bds_bind(VV[133],symbol_value(VV[133])); |
2950 |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
2951 |
bds_bind(VV[132],symbol_value(VV[132])); |
bds_bind(VV[132],symbol_value(VV[132])); |
2952 |
V408= (*(LnkLI322))(cadr((V404)),caddr((V404))); |
V408= (*(LnkLI325))(cadr((V404)),caddr((V404))); |
2953 |
bds_unwind1; |
bds_unwind1; |
2954 |
bds_unwind1; |
bds_unwind1; |
2955 |
bds_unwind1; |
bds_unwind1; |
2956 |
V409= structure_ref(cadddr((V404)),VV[69],1); |
V409= structure_ref(cadddr((V404)),VV[69],1); |
2957 |
if((/* INLINE-ARGS */V409)==(VV[174])){ |
if((/* INLINE-ARGS */V409)==(VV[174])){ |
2958 |
goto T1598;} |
goto T1603;} |
2959 |
(void)((*(LnkLI321))(cadddr((V404)),Cnil)); |
(void)((*(LnkLI324))(cadddr((V404)),Cnil)); |
2960 |
goto T1598; |
goto T1603; |
2961 |
T1598:; |
T1603:; |
2962 |
princ_str("\n }else{",VV[25]); |
princ_str("\n }else{",VV[25]); |
2963 |
(void)((*(LnkLI328))(cadr((V404)))); |
(void)((*(LnkLI331))(cadr((V404)))); |
2964 |
V410= structure_ref(cadddr((V404)),VV[69],1); |
V410= structure_ref(cadddr((V404)),VV[69],1); |
2965 |
if((/* INLINE-ARGS */V410)==(VV[174])){ |
if((/* INLINE-ARGS */V410)==(VV[174])){ |
2966 |
goto T1604;} |
goto T1609;} |
2967 |
(void)((*(LnkLI321))(cadddr((V404)),Ct)); |
(void)((*(LnkLI324))(cadddr((V404)),Ct)); |
2968 |
goto T1604; |
goto T1609; |
2969 |
T1604:; |
T1609:; |
2970 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
2971 |
goto T1584; |
goto T1589; |
2972 |
T1584:; |
T1589:; |
2973 |
V403= cdr((V403)); |
V403= cdr((V403)); |
2974 |
V404= car((V403)); |
V404= car((V403)); |
2975 |
goto T1579;} |
goto T1584;} |
2976 |
goto T1575; |
goto T1580; |
2977 |
T1575:; |
T1580:; |
2978 |
if(((VV[146]->s.s_dbind))==Cnil){ |
if(((VV[146]->s.s_dbind))==Cnil){ |
2979 |
goto T1613;} |
goto T1618;} |
2980 |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
(VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind)); |
2981 |
princ_str("\n goto TTL;",VV[25]); |
princ_str("\n goto TTL;",VV[25]); |
2982 |
princ_str("\nTTL:;",VV[25]); |
princ_str("\nTTL:;",VV[25]); |
2983 |
goto T1613; |
goto T1618; |
2984 |
T1613:; |
T1618:; |
2985 |
base[7]= caddr(cddr((V320))); |
base[7]= caddr(cddr((V320))); |
2986 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2987 |
(void) (*Lnk315)(); |
(void) (*Lnk318)(); |
2988 |
vs_top=sup; |
vs_top=sup; |
2989 |
if(((V328))==Cnil){ |
if(((V328))==Cnil){ |
2990 |
goto T1623;} |
goto T1628;} |
2991 |
V328= Cnil; |
V328= Cnil; |
2992 |
princ_str("\n va_end(ap);",VV[25]); |
princ_str("\n va_end(ap);",VV[25]); |
2993 |
goto T1623; |
goto T1628; |
2994 |
T1623:; |
T1628:; |
2995 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
2996 |
goto T1631;} |
goto T1636;} |
2997 |
if((symbol_value(VV[138]))!=Cnil){ |
if((symbol_value(VV[138]))!=Cnil){ |
2998 |
goto T1631;} |
goto T1636;} |
2999 |
if((symbol_value(VV[140]))!=Cnil){ |
if((symbol_value(VV[140]))!=Cnil){ |
3000 |
goto T1631;} |
goto T1636;} |
3001 |
goto T1629; |
goto T1634; |
3002 |
goto T1631; |
goto T1636; |
3003 |
T1631:; |
T1636:; |
3004 |
princ_str("\n base[0]=base[0];",VV[25]); |
princ_str("\n base[0]=base[0];",VV[25]); |
3005 |
goto T1629; |
goto T1634; |
3006 |
T1629:; |
T1634:; |
3007 |
princ_str("\n return Cnil;",VV[25]); |
princ_str("\n return Cnil;",VV[25]); |
3008 |
princ_char(125,VV[25]); |
princ_char(125,VV[25]); |
3009 |
if((base[1])==Cnil){ |
if((base[1])==Cnil){ |
3010 |
goto T1642;} |
goto T1647;} |
3011 |
princ_str("\n }",VV[25]); |
princ_str("\n }",VV[25]); |
3012 |
goto T1642; |
goto T1647; |
3013 |
T1642:; |
T1647:; |
3014 |
(void)((*(LnkLI330))()); |
(void)((*(LnkLI333))()); |
3015 |
V412= get((V318),VV[77],Cnil); |
V412= get((V318),VV[77],Cnil); |
3016 |
{object V413 = (*(LnkLI316))((V337),V412); |
{object V413 = (*(LnkLI319))((V337),V412); |
3017 |
bds_unwind1; |
bds_unwind1; |
3018 |
bds_unwind1; |
bds_unwind1; |
3019 |
bds_unwind1; |
bds_unwind1; |
3030 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
3031 |
goto TTL; |
goto TTL; |
3032 |
TTL:; |
TTL:; |
3033 |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[179],(V418)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[179],(V418)))); |
3034 |
if(!(type_of((V419))==t_fixnum|| |
if(!(type_of((V419))==t_fixnum|| |
3035 |
type_of((V419))==t_bignum|| |
type_of((V419))==t_bignum|| |
3036 |
type_of((V419))==t_ratio|| |
type_of((V419))==t_ratio|| |
3037 |
type_of((V419))==t_shortfloat|| |
type_of((V419))==t_shortfloat|| |
3038 |
type_of((V419))==t_longfloat|| |
type_of((V419))==t_longfloat|| |
3039 |
type_of((V419))==t_complex)){ |
type_of((V419))==t_complex)){ |
3040 |
goto T1651;} |
goto T1656;} |
3041 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
3042 |
(void)((*(LnkLI274))((V419))); |
(void)((*(LnkLI274))((V419))); |
3043 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3044 |
goto T1649; |
goto T1654; |
3045 |
goto T1651; |
goto T1656; |
3046 |
T1651:; |
T1656:; |
3047 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
3048 |
(void)((*(LnkLI274))((V419))); |
(void)((*(LnkLI274))((V419))); |
3049 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3050 |
goto T1649; |
goto T1654; |
3051 |
T1649:; |
T1654:; |
3052 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
3053 |
princ_str("register object *",VV[25]); |
princ_str("register object *",VV[25]); |
3054 |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
3055 |
princ_str("base=vs_base;",VV[25]); |
princ_str("base=vs_base;",VV[25]); |
3056 |
V422= structure_ref(cadr((V420)),VV[62],1); |
V422= structure_ref(cadr((V420)),VV[62],1); |
3057 |
(void)((*(LnkLI314))(/* INLINE-ARGS */V422,(V419),VV[148])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V422,(V419),VV[148])); |
3058 |
princ_str("\n register object *",VV[25]); |
princ_str("\n register object *",VV[25]); |
3059 |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
3060 |
princ_str("sup=base+VM",VV[25]); |
princ_str("sup=base+VM",VV[25]); |
3063 |
princ_str(" VC",VV[25]); |
princ_str(" VC",VV[25]); |
3064 |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
3065 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
3066 |
goto T1676;} |
goto T1681;} |
3067 |
princ_str("\n vs_reserve(VM",VV[25]); |
princ_str("\n vs_reserve(VM",VV[25]); |
3068 |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
(void)((*(LnkLI274))(symbol_value(VV[136]))); |
3069 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
3070 |
goto T1674; |
goto T1679; |
3071 |
goto T1676; |
goto T1681; |
3072 |
T1676:; |
T1681:; |
3073 |
princ_str("\n vs_check;",VV[25]); |
princ_str("\n vs_check;",VV[25]); |
3074 |
goto T1674; |
goto T1679; |
3075 |
T1674:; |
T1679:; |
3076 |
if(((V421))==Cnil){ |
if(((V421))==Cnil){ |
3077 |
goto T1682;} |
goto T1687;} |
3078 |
princ_str("\n bds_check;",VV[25]); |
princ_str("\n bds_check;",VV[25]); |
3079 |
goto T1682; |
goto T1687; |
3080 |
T1682:; |
T1687:; |
3081 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
3082 |
goto T1686;} |
goto T1691;} |
3083 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
3084 |
goto T1686; |
goto T1691; |
3085 |
T1686:; |
T1691:; |
3086 |
(void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V420)),caddr(cddr((V420))),(V418)))); |
(void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V420)),caddr(cddr((V420))),(V418)))); |
3087 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
3088 |
{object V423; |
{object V423; |
3089 |
V423= make_cons(symbol_value(VV[136]),symbol_value(VV[130])); |
V423= make_cons(symbol_value(VV[136]),symbol_value(VV[130])); |
3090 |
setq(VV[33],make_cons((V423),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V423),symbol_value(VV[33])));} |
3091 |
princ_str("\n#define VC",VV[31]); |
princ_str("\n#define VC",VV[31]); |
3092 |
(void)((*(LnkLI277))(symbol_value(VV[136]))); |
(void)((*(LnkLI277))(symbol_value(VV[136]))); |
3093 |
{object V424 = (*(LnkLI332))(); |
{object V424 = (*(LnkLI335))(); |
3094 |
VMR26(V424)} |
VMR26(V424)} |
3095 |
base[0]=base[0]; |
base[0]=base[0]; |
3096 |
return Cnil; |
return Cnil; |
3107 |
V429= make_cons((V427),symbol_value(VV[130])); |
V429= make_cons((V427),symbol_value(VV[130])); |
3108 |
setq(VV[33],make_cons((V429),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V429),symbol_value(VV[33])));} |
3109 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3110 |
goto T1704;} |
goto T1709;} |
3111 |
if((symbol_value(VV[138]))!=Cnil){ |
if((symbol_value(VV[138]))!=Cnil){ |
3112 |
goto T1704;} |
goto T1709;} |
3113 |
if((symbol_value(VV[140]))!=Cnil){ |
if((symbol_value(VV[140]))!=Cnil){ |
3114 |
goto T1704;} |
goto T1709;} |
3115 |
princ_str("\n#define VMB",VV[31]); |
princ_str("\n#define VMB",VV[31]); |
3116 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V427))); |
3117 |
goto T1702; |
goto T1707; |
3118 |
goto T1704; |
goto T1709; |
3119 |
T1704:; |
T1709:; |
3120 |
princ_str("\n#define VMB",VV[31]); |
princ_str("\n#define VMB",VV[31]); |
3121 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V427))); |
3122 |
princ_char(32,VV[31]); |
princ_char(32,VV[31]); |
3123 |
princ_str("register object *",VV[31]); |
princ_str("register object *",VV[31]); |
3124 |
(void)((*(LnkLI277))(symbol_value(VV[20]))); |
(void)((*(LnkLI277))(symbol_value(VV[20]))); |
3125 |
princ_str("base=vs_top;",VV[31]); |
princ_str("base=vs_top;",VV[31]); |
3126 |
goto T1702; |
goto T1707; |
3127 |
T1702:; |
T1707:; |
3128 |
(void)((*(LnkLI332))()); |
(void)((*(LnkLI335))()); |
3129 |
if((symbol_value(VV[138]))==Cnil){ |
if((symbol_value(VV[138]))==Cnil){ |
3130 |
goto T1721;} |
goto T1726;} |
3131 |
princ_str("\n#define VMS",VV[31]); |
princ_str("\n#define VMS",VV[31]); |
3132 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V427))); |
3133 |
princ_char(32,VV[31]); |
princ_char(32,VV[31]); |
3136 |
princ_str("sup=vs_top+",VV[31]); |
princ_str("sup=vs_top+",VV[31]); |
3137 |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
3138 |
princ_str(";vs_top=sup;",VV[31]); |
princ_str(";vs_top=sup;",VV[31]); |
3139 |
goto T1719; |
goto T1724; |
3140 |
goto T1721; |
goto T1726; |
3141 |
T1721:; |
T1726:; |
3142 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3143 |
goto T1732;} |
goto T1737;} |
3144 |
princ_str("\n#define VMS",VV[31]); |
princ_str("\n#define VMS",VV[31]); |
3145 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V427))); |
3146 |
goto T1719; |
goto T1724; |
3147 |
goto T1732; |
goto T1737; |
3148 |
T1732:; |
T1737:; |
3149 |
princ_str("\n#define VMS",VV[31]); |
princ_str("\n#define VMS",VV[31]); |
3150 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V427))); |
3151 |
princ_str(" vs_top += ",VV[31]); |
princ_str(" vs_top += ",VV[31]); |
3152 |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
3153 |
princ_char(59,VV[31]); |
princ_char(59,VV[31]); |
3154 |
goto T1719; |
goto T1724; |
3155 |
T1719:; |
T1724:; |
3156 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3157 |
goto T1743;} |
goto T1748;} |
3158 |
princ_str("\n#define VMV",VV[31]); |
princ_str("\n#define VMV",VV[31]); |
3159 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V427))); |
3160 |
goto T1741; |
goto T1746; |
3161 |
goto T1743; |
goto T1748; |
3162 |
T1743:; |
T1748:; |
3163 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
3164 |
goto T1748;} |
goto T1753;} |
3165 |
princ_str("\n#define VMV",VV[31]); |
princ_str("\n#define VMV",VV[31]); |
3166 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V427))); |
3167 |
princ_str(" vs_reserve(",VV[31]); |
princ_str(" vs_reserve(",VV[31]); |
3168 |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
(void)((*(LnkLI277))(symbol_value(VV[130]))); |
3169 |
princ_str(");",VV[31]); |
princ_str(");",VV[31]); |
3170 |
goto T1741; |
goto T1746; |
3171 |
goto T1748; |
goto T1753; |
3172 |
T1748:; |
T1753:; |
3173 |
princ_str("\n#define VMV",VV[31]); |
princ_str("\n#define VMV",VV[31]); |
3174 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V427))); |
3175 |
princ_str(" vs_check;",VV[31]); |
princ_str(" vs_check;",VV[31]); |
3176 |
goto T1741; |
goto T1746; |
3177 |
T1741:; |
T1746:; |
3178 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){ |
3179 |
goto T1759;} |
goto T1764;} |
3180 |
princ_str("\n#define VMR",VV[31]); |
princ_str("\n#define VMR",VV[31]); |
3181 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V427))); |
3182 |
princ_str("(VMT",VV[31]); |
princ_str("(VMT",VV[31]); |
3186 |
princ_str(");",VV[31]); |
princ_str(");",VV[31]); |
3187 |
{object V430 = Cnil; |
{object V430 = Cnil; |
3188 |
VMR27(V430)} |
VMR27(V430)} |
3189 |
goto T1759; |
goto T1764; |
3190 |
T1759:; |
T1764:; |
3191 |
princ_str("\n#define VMR",VV[31]); |
princ_str("\n#define VMR",VV[31]); |
3192 |
(void)((*(LnkLI277))((V427))); |
(void)((*(LnkLI277))((V427))); |
3193 |
princ_str("(VMT",VV[31]); |
princ_str("(VMT",VV[31]); |
3210 |
TTL:; |
TTL:; |
3211 |
{register object V436; |
{register object V436; |
3212 |
V436= (V434); |
V436= (V434); |
3213 |
goto T1777; |
goto T1782; |
3214 |
T1777:; |
T1782:; |
3215 |
if(!(endp_prop((V436)))){ |
if(!(endp_prop((V436)))){ |
3216 |
goto T1778;} |
goto T1783;} |
3217 |
goto T1775; |
goto T1780; |
3218 |
goto T1778; |
goto T1783; |
3219 |
T1778:; |
T1783:; |
3220 |
{register object V437; |
{register object V437; |
3221 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
3222 |
V437= symbol_value(VV[88]); |
V437= symbol_value(VV[88]); |
3224 |
princ_char(86,VV[25]); |
princ_char(86,VV[25]); |
3225 |
(void)((*(LnkLI274))((V437)));} |
(void)((*(LnkLI274))((V437)));} |
3226 |
if(endp_prop(cdr((V436)))){ |
if(endp_prop(cdr((V436)))){ |
3227 |
goto T1788;} |
goto T1793;} |
3228 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
3229 |
goto T1788; |
goto T1793; |
3230 |
T1788:; |
T1793:; |
3231 |
V436= cdr((V436)); |
V436= cdr((V436)); |
3232 |
goto T1777;} |
goto T1782;} |
3233 |
goto T1775; |
goto T1780; |
3234 |
T1775:; |
T1780:; |
3235 |
princ_str(")\n",VV[25]); |
princ_str(")\n",VV[25]); |
3236 |
if(((V434))==Cnil){ |
if(((V434))==Cnil){ |
3237 |
goto T1798;} |
goto T1803;} |
3238 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
3239 |
{register object V438; |
{register object V438; |
3240 |
register object V439; |
register object V439; |
3242 |
V438= (V434); |
V438= (V434); |
3243 |
V439= (V435); |
V439= (V435); |
3244 |
V440= Cnil; |
V440= Cnil; |
3245 |
goto T1802; |
goto T1807; |
3246 |
T1802:; |
T1807:; |
3247 |
if(!(endp_prop((V438)))){ |
if(!(endp_prop((V438)))){ |
3248 |
goto T1803;} |
goto T1808;} |
3249 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
3250 |
{object V441 = Cnil; |
{object V441 = Cnil; |
3251 |
VMR28(V441)} |
VMR28(V441)} |
|
goto T1803; |
|
|
T1803:; |
|
|
if(((V440))==Cnil){ |
|
|
goto T1808;} |
|
|
princ_char(59,VV[25]); |
|
3252 |
goto T1808; |
goto T1808; |
3253 |
T1808:; |
T1808:; |
3254 |
|
if(((V440))==Cnil){ |
3255 |
|
goto T1813;} |
3256 |
|
princ_char(59,VV[25]); |
3257 |
|
goto T1813; |
3258 |
|
T1813:; |
3259 |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
(void)((*(LnkLI274))(symbol_value(VV[20]))); |
3260 |
V442= (*(LnkLI333))(car((V438))); |
V442= (*(LnkLI336))(car((V438))); |
3261 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V442)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V442)); |
3262 |
V443= (*(LnkLI280))(car((V439))); |
V443= (*(LnkLI280))(car((V439))); |
3263 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V443)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V443)); |
3267 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V444)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V444)); |
3268 |
V438= cdr((V438)); |
V438= cdr((V438)); |
3269 |
V439= cdr((V439)); |
V439= cdr((V439)); |
3270 |
goto T1802;} |
goto T1807;} |
3271 |
goto T1798; |
goto T1803; |
3272 |
T1798:; |
T1803:; |
3273 |
{object V445 = Cnil; |
{object V445 = Cnil; |
3274 |
VMR28(V445)} |
VMR28(V445)} |
3275 |
return Cnil; |
return Cnil; |
3287 |
{object V451; |
{object V451; |
3288 |
V451= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil); |
V451= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil); |
3289 |
if(((V451))==Cnil){ |
if(((V451))==Cnil){ |
3290 |
goto T1828;} |
goto T1833;} |
3291 |
{object V452 = (V451); |
{object V452 = (V451); |
3292 |
VMR29(V452)} |
VMR29(V452)} |
3293 |
goto T1828; |
goto T1833; |
3294 |
T1828:; |
T1833:; |
3295 |
if((get((V448),VV[115],Cnil))!=Cnil){ |
if((get((V448),VV[115],Cnil))!=Cnil){ |
3296 |
goto T1831;} |
goto T1836;} |
3297 |
{object V453 = (VFUN_NARGS=2,(*(LnkLI334))(VV[180],(V448))); |
{object V453 = (VFUN_NARGS=2,(*(LnkLI337))(VV[180],(V448))); |
3298 |
VMR29(V453)} |
VMR29(V453)} |
3299 |
goto T1831; |
goto T1836; |
3300 |
T1831:; |
T1836:; |
3301 |
(void)(remprop((V448),VV[115])); |
(void)(remprop((V448),VV[115])); |
3302 |
{register object V454; |
{register object V454; |
3303 |
V454= small_fixnum(0); |
V454= small_fixnum(0); |
3305 |
register object V456; |
register object V456; |
3306 |
V455= structure_ref(cadr((V449)),VV[62],1); |
V455= structure_ref(cadr((V449)),VV[62],1); |
3307 |
V456= car((V455)); |
V456= car((V455)); |
3308 |
goto T1838; |
goto T1843; |
3309 |
T1838:; |
T1843:; |
3310 |
if(!(endp_prop((V455)))){ |
if(!(endp_prop((V455)))){ |
3311 |
goto T1839;} |
goto T1844;} |
|
goto T1834; |
|
3312 |
goto T1839; |
goto T1839; |
3313 |
T1839:; |
goto T1844; |
3314 |
|
T1844:; |
3315 |
V457= structure_ref((V456),VV[69],2); |
V457= structure_ref((V456),VV[69],2); |
3316 |
if(!(type_of(/* INLINE-ARGS */V457)==t_cons)){ |
if(!(type_of(/* INLINE-ARGS */V457)==t_cons)){ |
3317 |
goto T1843;} |
goto T1848;} |
3318 |
V458= structure_ref((V456),VV[69],2); |
V458= structure_ref((V456),VV[69],2); |
3319 |
if(!(type_of(cdr(/* INLINE-ARGS */V458))==t_fixnum)){ |
if(!(type_of(cdr(/* INLINE-ARGS */V458))==t_fixnum)){ |
3320 |
goto T1843;} |
goto T1848;} |
3321 |
V459= structure_ref((V456),VV[69],2); |
V459= structure_ref((V456),VV[69],2); |
3322 |
{object V460= cdr(/* INLINE-ARGS */V459); |
{object V460= cdr(/* INLINE-ARGS */V459); |
3323 |
V454= (number_compare((V454),V460)>=0?((V454)):V460);} |
V454= (number_compare((V454),V460)>=0?((V454)):V460);} |
3324 |
goto T1843; |
goto T1848; |
3325 |
T1843:; |
T1848:; |
3326 |
V455= cdr((V455)); |
V455= cdr((V455)); |
3327 |
V456= car((V455)); |
V456= car((V455)); |
3328 |
goto T1838;} |
goto T1843;} |
3329 |
goto T1834; |
goto T1839; |
3330 |
T1834:; |
T1839:; |
3331 |
base[0]= one_plus((V454)); |
base[0]= one_plus((V454)); |
3332 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3333 |
Lmake_list(); |
Lmake_list(); |
3337 |
register object V462; |
register object V462; |
3338 |
V461= structure_ref(cadr((V449)),VV[62],1); |
V461= structure_ref(cadr((V449)),VV[62],1); |
3339 |
V462= car((V461)); |
V462= car((V461)); |
3340 |
goto T1861; |
goto T1866; |
3341 |
T1861:; |
T1866:; |
3342 |
if(!(endp_prop((V461)))){ |
if(!(endp_prop((V461)))){ |
3343 |
goto T1862;} |
goto T1867;} |
|
goto T1857; |
|
3344 |
goto T1862; |
goto T1862; |
3345 |
T1862:; |
goto T1867; |
3346 |
|
T1867:; |
3347 |
V463= structure_ref((V462),VV[69],2); |
V463= structure_ref((V462),VV[69],2); |
3348 |
if(!(type_of(/* INLINE-ARGS */V463)==t_cons)){ |
if(!(type_of(/* INLINE-ARGS */V463)==t_cons)){ |
3349 |
goto T1866;} |
goto T1871;} |
3350 |
V464= structure_ref((V462),VV[69],2); |
V464= structure_ref((V462),VV[69],2); |
3351 |
if(!(type_of(cdr(/* INLINE-ARGS */V464))==t_fixnum)){ |
if(!(type_of(cdr(/* INLINE-ARGS */V464))==t_fixnum)){ |
3352 |
goto T1866;} |
goto T1871;} |
3353 |
{object V465; |
{object V465; |
3354 |
register object V467; |
register object V467; |
3355 |
V468= structure_ref((V462),VV[69],2); |
V468= structure_ref((V462),VV[69],2); |
3358 |
if(type_of(nthcdr(fixint((V465)),V450))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V465)),V450)); |
if(type_of(nthcdr(fixint((V465)),V450))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V465)),V450)); |
3359 |
(nthcdr(fixint((V465)),V450))->c.c_car = (V467); |
(nthcdr(fixint((V465)),V450))->c.c_car = (V467); |
3360 |
(void)(nthcdr(fixint((V465)),V450));} |
(void)(nthcdr(fixint((V465)),V450));} |
3361 |
goto T1866; |
goto T1871; |
3362 |
T1866:; |
T1871:; |
3363 |
V461= cdr((V461)); |
V461= cdr((V461)); |
3364 |
V462= car((V461)); |
V462= car((V461)); |
3365 |
goto T1861;} |
goto T1866;} |
3366 |
goto T1857; |
goto T1862; |
3367 |
T1857:; |
T1862:; |
3368 |
(void)(sputprop((V448),VV[116],(V450))); |
(void)(sputprop((V448),VV[116],(V450))); |
3369 |
{object V469; |
{object V469; |
3370 |
V469= get((V448),VV[116],Cnil); |
V469= get((V448),VV[116],Cnil); |
3371 |
if(((V469))==Cnil){ |
if(((V469))==Cnil){ |
3372 |
goto T1882;} |
goto T1887;} |
3373 |
if((cdr((V469)))!=Cnil){ |
if((cdr((V469)))!=Cnil){ |
3374 |
goto T1881;} |
goto T1886;} |
3375 |
if((car((V469)))==Cnil){ |
if((car((V469)))==Cnil){ |
3376 |
goto T1882;} |
goto T1887;} |
3377 |
goto T1881; |
goto T1886; |
3378 |
T1881:; |
T1886:; |
3379 |
V470= list(2,VV[91],(V448)); |
V470= list(2,VV[91],(V448)); |
3380 |
V471= list(3,VV[116],/* INLINE-ARGS */V470,list(2,VV[91],(V469))); |
V471= list(3,VV[116],/* INLINE-ARGS */V470,list(2,VV[91],(V469))); |
3381 |
{object V472 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V471)); |
{object V472 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V471)); |
3382 |
VMR29(V472)} |
VMR29(V472)} |
3383 |
goto T1882; |
goto T1887; |
3384 |
T1882:; |
T1887:; |
3385 |
{object V473 = Cnil; |
{object V473 = Cnil; |
3386 |
VMR29(V473)}}}}} |
VMR29(V473)}}}}} |
3387 |
base[0]=base[0]; |
base[0]=base[0]; |
3398 |
{object V478; |
{object V478; |
3399 |
V478= number_minus(symbol_value(VV[181]),(V477)); |
V478= number_minus(symbol_value(VV[181]),(V477)); |
3400 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){ |
3401 |
goto T1890;} |
goto T1895;} |
3402 |
V479= (VFUN_NARGS=1,(*(LnkLI336))((V476))); |
V479= (VFUN_NARGS=1,(*(LnkLI339))((V476))); |
3403 |
{long V480 = (long)(*(LnkLI335))(/* INLINE-ARGS */V479,(V478)); |
{long V480 = (long)(*(LnkLI338))(/* INLINE-ARGS */V479,(V478)); |
3404 |
VMR30((object)V480)} |
VMR30((object)V480)} |
3405 |
goto T1890; |
goto T1895; |
3406 |
T1890:; |
T1895:; |
3407 |
{register object V481; |
{register object V481; |
3408 |
register object V482; |
register object V482; |
3409 |
V481= Cnil; |
V481= Cnil; |
3412 |
register object V484; |
register object V484; |
3413 |
V483= (V476); |
V483= (V476); |
3414 |
V484= car((V483)); |
V484= car((V483)); |
3415 |
goto T1896; |
goto T1901; |
3416 |
T1896:; |
T1901:; |
3417 |
if(!(endp_prop((V483)))){ |
if(!(endp_prop((V483)))){ |
3418 |
goto T1897;} |
goto T1902;} |
|
goto T1892; |
|
3419 |
goto T1897; |
goto T1897; |
3420 |
T1897:; |
goto T1902; |
3421 |
|
T1902:; |
3422 |
V486= structure_ref((V484),VV[69],5); |
V486= structure_ref((V484),VV[69],5); |
3423 |
{register object x= /* INLINE-ARGS */V486,V485= VV[183]; |
{register object x= /* INLINE-ARGS */V486,V485= VV[183]; |
3424 |
while(!endp(V485)) |
while(!endp(V485)) |
3425 |
if(x==(V485->c.c_car)){ |
if(x==(V485->c.c_car)){ |
3426 |
goto T1904; |
goto T1909; |
3427 |
}else V485=V485->c.c_cdr; |
}else V485=V485->c.c_cdr; |
3428 |
goto T1903;} |
goto T1908;} |
3429 |
goto T1904; |
goto T1909; |
3430 |
T1904:;{object V487; |
T1909:;{object V487; |
3431 |
{register object x= (V484),V488= (V482); |
{register object x= (V484),V488= (V482); |
3432 |
while(!endp(V488)) |
while(!endp(V488)) |
3433 |
if(eql(x,V488->c.c_car)){ |
if(eql(x,V488->c.c_car)){ |
3434 |
V487= V488; |
V487= V488; |
3435 |
goto T1906; |
goto T1911; |
3436 |
}else V488=V488->c.c_cdr; |
}else V488=V488->c.c_cdr; |
3437 |
V487= Cnil;} |
V487= Cnil;} |
3438 |
|
goto T1911; |
3439 |
|
T1911:; |
3440 |
|
if(V487==Cnil)goto T1910; |
3441 |
goto T1906; |
goto T1906; |
3442 |
T1906:; |
goto T1910; |
3443 |
if(V487==Cnil)goto T1905; |
T1910:;} |
|
goto T1901; |
|
|
goto T1905; |
|
|
T1905:;} |
|
3444 |
{register object V489; |
{register object V489; |
3445 |
V489= (V484); |
V489= (V484); |
3446 |
V482= make_cons((V489),(V482)); |
V482= make_cons((V489),(V482)); |
3447 |
goto T1901;} |
goto T1906;} |
3448 |
goto T1903; |
goto T1908; |
3449 |
T1903:;{object V490; |
T1908:;{object V490; |
3450 |
{register object x= (V484),V491= (V481); |
{register object x= (V484),V491= (V481); |
3451 |
while(!endp(V491)) |
while(!endp(V491)) |
3452 |
if(x==(V491->c.c_car)){ |
if(x==(V491->c.c_car)){ |
3453 |
V490= V491; |
V490= V491; |
3454 |
goto T1910; |
goto T1915; |
3455 |
}else V491=V491->c.c_cdr; |
}else V491=V491->c.c_cdr; |
3456 |
V490= Cnil;} |
V490= Cnil;} |
3457 |
goto T1910; |
goto T1915; |
3458 |
T1910:; |
T1915:; |
3459 |
if(V490==Cnil)goto T1909; |
if(V490==Cnil)goto T1914; |
3460 |
goto T1901; |
goto T1906; |
3461 |
goto T1909; |
goto T1914; |
3462 |
T1909:;} |
T1914:;} |
3463 |
{register object V492; |
{register object V492; |
3464 |
V492= (V484); |
V492= (V484); |
3465 |
V482= make_cons((V492),(V482));} |
V482= make_cons((V492),(V482));} |
3466 |
goto T1901; |
goto T1906; |
3467 |
T1901:; |
T1906:; |
3468 |
V483= cdr((V483)); |
V483= cdr((V483)); |
3469 |
V484= car((V483)); |
V484= car((V483)); |
3470 |
goto T1896;} |
goto T1901;} |
3471 |
goto T1892; |
goto T1897; |
3472 |
T1892:; |
T1897:; |
3473 |
(void)((*(LnkLI335))((V481),(V478))); |
(void)((*(LnkLI338))((V481),(V478))); |
3474 |
{long V493 = (long)(*(LnkLI335))((V482),symbol_value(VV[182])); |
{long V493 = (long)(*(LnkLI338))((V482),symbol_value(VV[182])); |
3475 |
VMR30((object)V493)}}} |
VMR30((object)V493)}}} |
3476 |
base[0]=base[0]; |
base[0]=base[0]; |
3477 |
} |
} |
3493 |
V500= 100000; |
V500= 100000; |
3494 |
V501= fix((V497)); |
V501= fix((V497)); |
3495 |
V502= 0; |
V502= 0; |
3496 |
V496= (VFUN_NARGS=1,(*(LnkLI336))((V496))); |
V496= (VFUN_NARGS=1,(*(LnkLI339))((V496))); |
3497 |
goto T1927; |
goto T1932; |
3498 |
T1927:; |
T1932:; |
3499 |
{register object V503; |
{register object V503; |
3500 |
object V504; |
object V504; |
3501 |
V503= (V496); |
V503= (V496); |
3502 |
V504= car((V503)); |
V504= car((V503)); |
3503 |
goto T1933; |
goto T1938; |
3504 |
T1933:; |
T1938:; |
3505 |
if(!(endp_prop((V503)))){ |
if(!(endp_prop((V503)))){ |
3506 |
goto T1934;} |
goto T1939;} |
|
goto T1929; |
|
3507 |
goto T1934; |
goto T1934; |
3508 |
T1934:; |
goto T1939; |
3509 |
|
T1939:; |
3510 |
V498= fix(structure_ref((V504),VV[69],6)); |
V498= fix(structure_ref((V504),VV[69],6)); |
3511 |
if(!((V498)>=(V499))){ |
if(!((V498)>=(V499))){ |
3512 |
goto T1940;} |
goto T1945;} |
3513 |
V502= (long)(V502)+(1); |
V502= (long)(V502)+(1); |
3514 |
if(!((V498)<(V500))){ |
if(!((V498)<(V500))){ |
3515 |
goto T1945;} |
goto T1950;} |
3516 |
V500= V498; |
V500= V498; |
3517 |
|
goto T1950; |
3518 |
|
T1950:; |
3519 |
|
if(!((V502)>(V501))){ |
3520 |
|
goto T1945;} |
3521 |
|
goto T1933; |
3522 |
goto T1945; |
goto T1945; |
3523 |
T1945:; |
T1945:; |
|
if(!((V502)>(V501))){ |
|
|
goto T1940;} |
|
|
goto T1928; |
|
|
goto T1940; |
|
|
T1940:; |
|
3524 |
V503= cdr((V503)); |
V503= cdr((V503)); |
3525 |
V504= car((V503)); |
V504= car((V503)); |
3526 |
goto T1933;} |
goto T1938;} |
3527 |
goto T1929; |
goto T1934; |
3528 |
T1929:; |
T1934:; |
3529 |
if(!((V502)<(V501))){ |
if(!((V502)<(V501))){ |
3530 |
goto T1956;} |
goto T1961;} |
3531 |
V499= (long)(V499)-(1); |
V499= (long)(V499)-(1); |
3532 |
goto T1956; |
goto T1961; |
3533 |
T1956:; |
T1961:; |
3534 |
{register object V505; |
{register object V505; |
3535 |
register object V506; |
register object V506; |
3536 |
V505= (V496); |
V505= (V496); |
3537 |
V506= car((V505)); |
V506= car((V505)); |
3538 |
goto T1964; |
goto T1969; |
3539 |
T1964:; |
T1969:; |
3540 |
if(!(endp_prop((V505)))){ |
if(!(endp_prop((V505)))){ |
3541 |
goto T1965;} |
goto T1970;} |
|
goto T1960; |
|
3542 |
goto T1965; |
goto T1965; |
3543 |
T1965:; |
goto T1970; |
3544 |
|
T1970:; |
3545 |
{long V507= fix(structure_ref((V506),VV[69],6)); |
{long V507= fix(structure_ref((V506),VV[69],6)); |
3546 |
if(!((/* INLINE-ARGS */V507)<(V499))){ |
if(!((/* INLINE-ARGS */V507)<(V499))){ |
3547 |
goto T1969;}} |
goto T1974;}} |
3548 |
(void)(structure_set((V506),VV[69],6,small_fixnum(0))); |
(void)(structure_set((V506),VV[69],6,small_fixnum(0))); |
3549 |
goto T1969; |
goto T1974; |
3550 |
T1969:; |
T1974:; |
3551 |
V505= cdr((V505)); |
V505= cdr((V505)); |
3552 |
V506= car((V505)); |
V506= car((V505)); |
3553 |
goto T1964;} |
goto T1969;} |
3554 |
goto T1960; |
goto T1965; |
3555 |
T1960:; |
T1965:; |
3556 |
{long V508 = V499; |
{long V508 = V499; |
3557 |
VMR31((object)V508)} |
VMR31((object)V508)} |
3558 |
goto T1928; |
goto T1933; |
3559 |
T1928:; |
T1933:; |
3560 |
V502= 0; |
V502= 0; |
3561 |
V499= (long)(V500)+(1); |
V499= (long)(V500)+(1); |
3562 |
V500= 1000000; |
V500= 1000000; |
3563 |
goto T1927;} |
goto T1932;} |
3564 |
base[0]=base[0]; |
base[0]=base[0]; |
3565 |
} |
} |
3566 |
/* local entry for function WT-GLOBAL-ENTRY */ |
/* local entry for function WT-GLOBAL-ENTRY */ |
3572 |
goto TTL; |
goto TTL; |
3573 |
TTL:; |
TTL:; |
3574 |
if((get((V513),VV[102],Cnil))==Cnil){ |
if((get((V513),VV[102],Cnil))==Cnil){ |
3575 |
goto T1984;} |
goto T1989;} |
3576 |
{object V517 = Cnil; |
{object V517 = Cnil; |
3577 |
VMR32(V517)} |
VMR32(V517)} |
3578 |
goto T1984; |
goto T1989; |
3579 |
T1984:; |
T1989:; |
3580 |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[186],(V513)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[186],(V513)))); |
3581 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
3582 |
(void)((*(LnkLI274))((V514))); |
(void)((*(LnkLI274))((V514))); |
3583 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3584 |
princ_str("\n{ register object *base=vs_base;",VV[25]); |
princ_str("\n{ register object *base=vs_base;",VV[25]); |
3585 |
if((symbol_value(VV[163]))!=Cnil){ |
if((symbol_value(VV[163]))!=Cnil){ |
3586 |
goto T1995;} |
goto T2000;} |
3587 |
if((symbol_value(VV[164]))==Cnil){ |
if((symbol_value(VV[164]))==Cnil){ |
3588 |
goto T1994;} |
goto T1999;} |
3589 |
goto T1995; |
goto T2000; |
3590 |
T1995:; |
T2000:; |
3591 |
princ_str("\n check_arg(",VV[25]); |
princ_str("\n check_arg(",VV[25]); |
3592 |
V518 = make_fixnum((long)length((V515))); |
V518 = make_fixnum((long)length((V515))); |
3593 |
(void)((*(LnkLI274))(V518)); |
(void)((*(LnkLI274))(V518)); |
3594 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
3595 |
goto T1994; |
goto T1999; |
3596 |
T1994:; |
T1999:; |
3597 |
princ_str("\n base[0]=",VV[25]); |
princ_str("\n base[0]=",VV[25]); |
3598 |
{object V520= (V516); |
{object V520= (V516); |
3599 |
if((V520!= VV[89]))goto T2006; |
if((V520!= VV[89]))goto T2011; |
3600 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
3601 |
goto T2008;} |
goto T2013;} |
3602 |
V519= VV[187]; |
V519= VV[187]; |
3603 |
goto T2005; |
goto T2010; |
3604 |
goto T2008; |
goto T2013; |
3605 |
T2008:; |
T2013:; |
3606 |
V519= VV[188]; |
V519= VV[188]; |
|
goto T2005; |
|
|
goto T2006; |
|
|
T2006:; |
|
|
if((V520!= VV[142]))goto T2010; |
|
|
V519= VV[189]; |
|
|
goto T2005; |
|
3607 |
goto T2010; |
goto T2010; |
|
T2010:; |
|
|
if((V520!= VV[143]))goto T2011; |
|
|
V519= VV[190]; |
|
|
goto T2005; |
|
3608 |
goto T2011; |
goto T2011; |
3609 |
T2011:; |
T2011:; |
3610 |
if((V520!= VV[144]))goto T2012; |
if((V520!= VV[142]))goto T2015; |
3611 |
|
V519= VV[189]; |
3612 |
|
goto T2010; |
3613 |
|
goto T2015; |
3614 |
|
T2015:; |
3615 |
|
if((V520!= VV[143]))goto T2016; |
3616 |
|
V519= VV[190]; |
3617 |
|
goto T2010; |
3618 |
|
goto T2016; |
3619 |
|
T2016:; |
3620 |
|
if((V520!= VV[144]))goto T2017; |
3621 |
V519= VV[191]; |
V519= VV[191]; |
3622 |
goto T2005; |
goto T2010; |
3623 |
goto T2012; |
goto T2017; |
3624 |
T2012:; |
T2017:; |
3625 |
V519= VV[192];} |
V519= VV[192];} |
3626 |
goto T2005; |
goto T2010; |
3627 |
T2005:; |
T2010:; |
3628 |
(void)((*(LnkLI274))(V519)); |
(void)((*(LnkLI274))(V519)); |
3629 |
princ_str("(LI",VV[25]); |
princ_str("(LI",VV[25]); |
3630 |
(void)((*(LnkLI274))((V514))); |
(void)((*(LnkLI274))((V514))); |
3633 |
register long V522; |
register long V522; |
3634 |
V522= 0; |
V522= 0; |
3635 |
V521= (V515); |
V521= (V515); |
3636 |
goto T2019; |
goto T2024; |
3637 |
T2019:; |
T2024:; |
3638 |
if(!(endp_prop((V521)))){ |
if(!(endp_prop((V521)))){ |
3639 |
goto T2020;} |
goto T2025;} |
3640 |
goto T2016; |
goto T2021; |
3641 |
goto T2020; |
goto T2025; |
3642 |
T2020:; |
T2025:; |
3643 |
{object V524= car((V521)); |
{object V524= car((V521)); |
3644 |
if((V524!= VV[89]))goto T2027; |
if((V524!= VV[89]))goto T2032; |
3645 |
V523= VV[193]; |
V523= VV[193]; |
3646 |
goto T2026; |
goto T2031; |
3647 |
goto T2027; |
goto T2032; |
3648 |
T2027:; |
T2032:; |
3649 |
if((V524!= VV[142]))goto T2028; |
if((V524!= VV[142]))goto T2033; |
3650 |
V523= VV[194]; |
V523= VV[194]; |
3651 |
goto T2026; |
goto T2031; |
3652 |
goto T2028; |
goto T2033; |
3653 |
T2028:; |
T2033:; |
3654 |
if((V524!= VV[143]))goto T2029; |
if((V524!= VV[143]))goto T2034; |
3655 |
V523= VV[195]; |
V523= VV[195]; |
3656 |
goto T2026; |
goto T2031; |
3657 |
goto T2029; |
goto T2034; |
3658 |
T2029:; |
T2034:; |
3659 |
if((V524!= VV[144]))goto T2030; |
if((V524!= VV[144]))goto T2035; |
3660 |
V523= VV[196]; |
V523= VV[196]; |
3661 |
goto T2026; |
goto T2031; |
3662 |
goto T2030; |
goto T2035; |
3663 |
T2030:; |
T2035:; |
3664 |
V523= VV[197];} |
V523= VV[197];} |
3665 |
goto T2026; |
goto T2031; |
3666 |
T2026:; |
T2031:; |
3667 |
(void)((*(LnkLI274))(V523)); |
(void)((*(LnkLI274))(V523)); |
3668 |
princ_str("(base[",VV[25]); |
princ_str("(base[",VV[25]); |
3669 |
V525 = make_fixnum(V522); |
V525 = make_fixnum(V522); |
3670 |
(void)((*(LnkLI274))(V525)); |
(void)((*(LnkLI274))(V525)); |
3671 |
princ_str("])",VV[25]); |
princ_str("])",VV[25]); |
3672 |
if(endp_prop(cdr((V521)))){ |
if(endp_prop(cdr((V521)))){ |
3673 |
goto T2034;} |
goto T2039;} |
3674 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
3675 |
goto T2034; |
goto T2039; |
3676 |
T2034:; |
T2039:; |
3677 |
V521= cdr((V521)); |
V521= cdr((V521)); |
3678 |
V522= (long)(V522)+1; |
V522= (long)(V522)+1; |
3679 |
goto T2019;} |
goto T2024;} |
3680 |
goto T2016; |
goto T2021; |
3681 |
T2016:; |
T2021:; |
3682 |
princ_str("));",VV[25]); |
princ_str("));",VV[25]); |
3683 |
princ_str("\n vs_top=(vs_base=base)+1;",VV[25]); |
princ_str("\n vs_top=(vs_base=base)+1;",VV[25]); |
3684 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
3695 |
goto TTL; |
goto TTL; |
3696 |
TTL:; |
TTL:; |
3697 |
{object V529= (V528); |
{object V529= (V528); |
3698 |
if((V529!= VV[89]))goto T2047; |
if((V529!= VV[89]))goto T2052; |
3699 |
{object V530 = VV[198]; |
{object V530 = VV[198]; |
3700 |
VMR33(V530)} |
VMR33(V530)} |
3701 |
goto T2047; |
goto T2052; |
3702 |
T2047:; |
T2052:; |
3703 |
if((V529!= VV[261]))goto T2048; |
if((V529!= VV[261]))goto T2053; |
3704 |
{object V531 = VV[199]; |
{object V531 = VV[199]; |
3705 |
VMR33(V531)} |
VMR33(V531)} |
3706 |
goto T2048; |
goto T2053; |
3707 |
T2048:; |
T2053:; |
3708 |
if((V529!= VV[142]))goto T2049; |
if((V529!= VV[142]))goto T2054; |
3709 |
{object V532 = VV[200]; |
{object V532 = VV[200]; |
3710 |
VMR33(V532)} |
VMR33(V532)} |
3711 |
goto T2049; |
goto T2054; |
3712 |
T2049:; |
T2054:; |
3713 |
if((V529!= VV[144]))goto T2050; |
if((V529!= VV[144]))goto T2055; |
3714 |
{object V533 = VV[201]; |
{object V533 = VV[201]; |
3715 |
VMR33(V533)} |
VMR33(V533)} |
3716 |
goto T2050; |
goto T2055; |
3717 |
T2050:; |
T2055:; |
3718 |
if((V529!= VV[143]))goto T2051; |
if((V529!= VV[143]))goto T2056; |
3719 |
{object V534 = VV[202]; |
{object V534 = VV[202]; |
3720 |
VMR33(V534)} |
VMR33(V534)} |
3721 |
goto T2051; |
goto T2056; |
3722 |
T2051:; |
T2056:; |
3723 |
{object V535 = VV[203]; |
{object V535 = VV[203]; |
3724 |
VMR33(V535)}} |
VMR33(V535)}} |
3725 |
return Cnil; |
return Cnil; |
3734 |
goto TTL; |
goto TTL; |
3735 |
TTL:; |
TTL:; |
3736 |
if(endp_prop((V537))){ |
if(endp_prop((V537))){ |
3737 |
goto T2053;} |
goto T2058;} |
3738 |
if(!(endp_prop(cdr((V537))))){ |
if(!(endp_prop(cdr((V537))))){ |
3739 |
goto T2052;} |
goto T2057;} |
3740 |
goto T2053; |
goto T2058; |
3741 |
T2053:; |
T2058:; |
3742 |
V538 = make_fixnum((long)length((V537))); |
V538 = make_fixnum((long)length((V537))); |
3743 |
(void)((*(LnkLI283))(VV[204],small_fixnum(2),V538)); |
(void)((*(LnkLI283))(VV[204],small_fixnum(2),V538)); |
|
goto T2052; |
|
|
T2052:; |
|
|
if(type_of(car((V537)))==t_symbol){ |
|
|
goto T2057;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V537))))); |
|
3744 |
goto T2057; |
goto T2057; |
3745 |
T2057:; |
T2057:; |
3746 |
|
if(type_of(car((V537)))==t_symbol){ |
3747 |
|
goto T2062;} |
3748 |
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V537))))); |
3749 |
|
goto T2062; |
3750 |
|
T2062:; |
3751 |
V539= make_cons(VV[204],(V537)); |
V539= make_cons(VV[204],(V537)); |
3752 |
(void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V539)); |
(void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V539)); |
3753 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
3762 |
bds_bind(VV[52],Cnil); |
bds_bind(VV[52],Cnil); |
3763 |
bds_bind(VV[59],Cnil); |
bds_bind(VV[59],Cnil); |
3764 |
V540= Cnil; |
V540= Cnil; |
3765 |
V540= (*(LnkLI337))(car((V537)),cadr((V537)),cddr((V537))); |
V540= (*(LnkLI340))(car((V537)),cadr((V537)),cddr((V537))); |
3766 |
(void)((*(LnkLI293))()); |
(void)((*(LnkLI296))()); |
3767 |
{object V542; |
{object V542; |
3768 |
V542= list(7,VV[204],car((V537)),(V541),cddr((V540)),car((V540)),cadr((V540)),(VV[59]->s.s_dbind)); |
V542= list(7,VV[204],car((V537)),(V541),cddr((V540)),car((V540)),cadr((V540)),(VV[59]->s.s_dbind)); |
3769 |
setq(VV[24],make_cons((V542),symbol_value(VV[24]))); |
setq(VV[24],make_cons((V542),symbol_value(VV[24]))); |
3787 |
goto TTL; |
goto TTL; |
3788 |
TTL:; |
TTL:; |
3789 |
if(((V553))==Cnil){ |
if(((V553))==Cnil){ |
3790 |
goto T2070;} |
goto T2075;} |
3791 |
V556= list(4,VV[103],list(2,VV[91],(V550)),(V553),VV[206]); |
V556= list(4,VV[103],list(2,VV[91],(V550)),(V553),VV[206]); |
3792 |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V556))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V556))); |
3793 |
goto T2070; |
goto T2075; |
3794 |
T2070:; |
T2075:; |
3795 |
if(((V554))==Cnil){ |
if(((V554))==Cnil){ |
3796 |
goto T2073;} |
goto T2078;} |
3797 |
V557= list(2,VV[91],(V550)); |
V557= list(2,VV[91],(V550)); |
3798 |
V558= list(4,VV[103],/* INLINE-ARGS */V557,list(2,VV[91],(V554)),VV[207]); |
V558= list(4,VV[103],/* INLINE-ARGS */V557,list(2,VV[91],(V554)),VV[207]); |
3799 |
(void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V558))); |
(void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V558))); |
3800 |
goto T2073; |
goto T2078; |
3801 |
T2073:; |
T2078:; |
3802 |
princ_str("\nstatic void L",VV[31]); |
princ_str("\nstatic void L",VV[31]); |
3803 |
(void)((*(LnkLI277))((V551))); |
(void)((*(LnkLI277))((V551))); |
3804 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
3805 |
V559= list(2,VV[91],(V550)); |
V559= list(2,VV[91],(V550)); |
3806 |
V560= list(3,VV[208],/* INLINE-ARGS */V559,(*(LnkLI301))(VV[209],(V551))); |
V560= list(3,VV[208],/* INLINE-ARGS */V559,(*(LnkLI304))(VV[209],(V551))); |
3807 |
{object V561 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V560)); |
{object V561 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V560)); |
3808 |
VMR35(V561)} |
VMR35(V561)} |
3809 |
return Cnil; |
return Cnil; |
3810 |
} |
} |
3818 |
goto TTL; |
goto TTL; |
3819 |
TTL:; |
TTL:; |
3820 |
if((get((V568),VV[210],Cnil))==Cnil){ |
if((get((V568),VV[210],Cnil))==Cnil){ |
3821 |
goto T2082;} |
goto T2087;} |
3822 |
bds_bind(VV[20],VV[211]); |
bds_bind(VV[20],VV[211]); |
3823 |
goto T2080; |
goto T2085; |
3824 |
goto T2082; |
goto T2087; |
3825 |
T2082:; |
T2087:; |
3826 |
bds_bind(VV[20],VV[212]); |
bds_bind(VV[20],VV[212]); |
3827 |
goto T2080; |
goto T2085; |
3828 |
T2080:; |
T2085:; |
3829 |
bds_bind(VV[128],VV[127]); |
bds_bind(VV[128],VV[127]); |
3830 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
3831 |
bds_bind(VV[129],small_fixnum(0)); |
bds_bind(VV[129],small_fixnum(0)); |
3841 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
3842 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
3843 |
bds_bind(VV[141],small_fixnum(0)); |
bds_bind(VV[141],small_fixnum(0)); |
3844 |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[213],(V568)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[213],(V568)))); |
3845 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
3846 |
(void)((*(LnkLI274))((V569))); |
(void)((*(LnkLI274))((V569))); |
3847 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
3849 |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
3850 |
princ_str("base=vs_base;",VV[25]); |
princ_str("base=vs_base;",VV[25]); |
3851 |
V574= structure_ref(car(cddddr((V570))),VV[62],1); |
V574= structure_ref(car(cddddr((V570))),VV[62],1); |
3852 |
(void)((*(LnkLI314))(/* INLINE-ARGS */V574,(V569),VV[148])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V574,(V569),VV[148])); |
3853 |
princ_str("\n register object *",VV[25]); |
princ_str("\n register object *",VV[25]); |
3854 |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
3855 |
princ_str("sup=base+VM",VV[25]); |
princ_str("sup=base+VM",VV[25]); |
3858 |
princ_str(" VC",VV[25]); |
princ_str(" VC",VV[25]); |
3859 |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
3860 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
3861 |
goto T2108;} |
goto T2113;} |
3862 |
princ_str("\n vs_reserve(VM",VV[25]); |
princ_str("\n vs_reserve(VM",VV[25]); |
3863 |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
3864 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
3865 |
goto T2106; |
goto T2111; |
3866 |
goto T2108; |
goto T2113; |
3867 |
T2108:; |
T2113:; |
3868 |
princ_str("\n vs_check;",VV[25]); |
princ_str("\n vs_check;",VV[25]); |
3869 |
goto T2106; |
goto T2111; |
3870 |
T2106:; |
T2111:; |
3871 |
if(((V573))==Cnil){ |
if(((V573))==Cnil){ |
3872 |
goto T2114;} |
goto T2119;} |
3873 |
princ_str("\n bds_check;",VV[25]); |
princ_str("\n bds_check;",VV[25]); |
3874 |
goto T2114; |
goto T2119; |
3875 |
T2114:; |
T2119:; |
3876 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
3877 |
goto T2118;} |
goto T2123;} |
3878 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
3879 |
goto T2118; |
goto T2123; |
3880 |
T2118:; |
T2123:; |
3881 |
base[15]= car((V570)); |
base[15]= car((V570)); |
3882 |
base[16]= cadr((V570)); |
base[16]= cadr((V570)); |
3883 |
base[17]= caddr((V570)); |
base[17]= caddr((V570)); |
3884 |
base[18]= cadddr((V570)); |
base[18]= cadddr((V570)); |
3885 |
vs_top=(vs_base=base+15)+4; |
vs_top=(vs_base=base+15)+4; |
3886 |
(void) (*Lnk338)(); |
(void) (*Lnk341)(); |
3887 |
vs_top=sup; |
vs_top=sup; |
3888 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
3889 |
{object V575; |
{object V575; |
3891 |
setq(VV[33],make_cons((V575),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V575),symbol_value(VV[33])));} |
3892 |
princ_str("\n#define VC",VV[31]); |
princ_str("\n#define VC",VV[31]); |
3893 |
(void)((*(LnkLI277))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI277))((VV[136]->s.s_dbind))); |
3894 |
{object V576 = (*(LnkLI332))(); |
{object V576 = (*(LnkLI335))(); |
3895 |
bds_unwind1; |
bds_unwind1; |
3896 |
bds_unwind1; |
bds_unwind1; |
3897 |
bds_unwind1; |
bds_unwind1; |
3924 |
V579= Cnil; |
V579= Cnil; |
3925 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
3926 |
if((symbol_value(VV[48]))==Cnil){ |
if((symbol_value(VV[48]))==Cnil){ |
3927 |
goto T2139;} |
goto T2144;} |
3928 |
(void)((*(LnkLI267))(Cnil,(V578))); |
(void)((*(LnkLI267))(Cnil,(V578))); |
3929 |
{object V580; |
{object V580; |
3930 |
base[0]= VV[214]; |
base[0]= VV[214]; |
3933 |
vs_top=sup; |
vs_top=sup; |
3934 |
V580= vs_base[0]; |
V580= vs_base[0]; |
3935 |
V581= listA(3,VV[64],(V580),VV[215]); |
V581= listA(3,VV[64],(V580),VV[215]); |
3936 |
(void)((*(LnkLI289))(/* INLINE-ARGS */V581)); |
(void)((*(LnkLI292))(/* INLINE-ARGS */V581)); |
3937 |
base[0]= list(5,VV[51],(V580),Cnil,(V578),Cnil); |
base[0]= list(5,VV[51],(V580),Cnil,(V578),Cnil); |
3938 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3939 |
(void) (*Lnk271)(); |
(void) (*Lnk271)(); |
3943 |
setq(VV[24],make_cons((V582),symbol_value(VV[24]))); |
setq(VV[24],make_cons((V582),symbol_value(VV[24]))); |
3944 |
{object V583 = symbol_value(VV[24]); |
{object V583 = symbol_value(VV[24]); |
3945 |
VMR37(V583)}}} |
VMR37(V583)}}} |
3946 |
goto T2139; |
goto T2144; |
3947 |
T2139:; |
T2144:; |
3948 |
{object V584; |
{object V584; |
3949 |
if(type_of((V578))==t_cons){ |
if(type_of((V578))==t_cons){ |
3950 |
goto T2150;} |
goto T2155;} |
3951 |
V584= Cnil; |
V584= Cnil; |
3952 |
goto T2149; |
goto T2154; |
3953 |
goto T2150; |
goto T2155; |
3954 |
T2150:; |
T2155:; |
3955 |
if(type_of(car((V578)))==t_symbol){ |
if(type_of(car((V578)))==t_symbol){ |
3956 |
goto T2152;} |
goto T2157;} |
3957 |
V584= Cnil; |
V584= Cnil; |
|
goto T2149; |
|
|
goto T2152; |
|
|
T2152:; |
|
|
if(!((car((V578)))==(VV[217]))){ |
|
|
goto T2156;} |
|
3958 |
goto T2154; |
goto T2154; |
3959 |
goto T2156; |
goto T2157; |
3960 |
T2156:; |
T2157:; |
3961 |
|
if(!((car((V578)))==(VV[217]))){ |
3962 |
|
goto T2161;} |
3963 |
|
goto T2159; |
3964 |
|
goto T2161; |
3965 |
|
T2161:; |
3966 |
base[0]= car((V578)); |
base[0]= car((V578)); |
3967 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3968 |
Lspecial_form_p(); |
Lspecial_form_p(); |
3969 |
vs_top=sup; |
vs_top=sup; |
3970 |
V585= vs_base[0]; |
V585= vs_base[0]; |
3971 |
if((V585)==Cnil){ |
if((V585)==Cnil){ |
3972 |
goto T2154;} |
goto T2159;} |
3973 |
V584= Cnil; |
V584= Cnil; |
|
goto T2149; |
|
3974 |
goto T2154; |
goto T2154; |
3975 |
T2154:; |
goto T2159; |
3976 |
|
T2159:; |
3977 |
{register object V586; |
{register object V586; |
3978 |
register long V587; |
register long V587; |
3979 |
V586= cdr((V578)); |
V586= cdr((V578)); |
3980 |
V587= 1; |
V587= 1; |
3981 |
goto T2163; |
goto T2168; |
3982 |
T2163:; |
T2168:; |
3983 |
if((V587)>=(1000)){ |
if((V587)>=(1000)){ |
3984 |
goto T2165;} |
goto T2170;} |
3985 |
if(type_of((V586))==t_cons){ |
if(type_of((V586))==t_cons){ |
3986 |
goto T2164;} |
goto T2169;} |
3987 |
goto T2165; |
goto T2170; |
3988 |
T2165:; |
T2170:; |
3989 |
V584= Cnil; |
V584= Cnil; |
3990 |
goto T2149; |
goto T2154; |
3991 |
goto T2164; |
goto T2169; |
3992 |
T2164:; |
T2169:; |
3993 |
if(!(type_of(car((V586)))==t_cons)){ |
if(!(type_of(car((V586)))==t_cons)){ |
3994 |
goto T2170;} |
goto T2175;} |
3995 |
if(!((caar((V586)))==(VV[64]))){ |
if(!((caar((V586)))==(VV[64]))){ |
3996 |
goto T2170;} |
goto T2175;} |
3997 |
V579= cadr(car((V586))); |
V579= cadr(car((V586))); |
3998 |
if(!(type_of((V579))==t_cons)){ |
if(!(type_of((V579))==t_cons)){ |
3999 |
goto T2170;} |
goto T2175;} |
4000 |
if(!((car((V579)))==(VV[218]))){ |
if(!((car((V579)))==(VV[218]))){ |
4001 |
goto T2170;} |
goto T2175;} |
4002 |
{register object V588; |
{register object V588; |
4003 |
vs_base=vs_top; |
vs_base=vs_top; |
4004 |
Lgensym(); |
Lgensym(); |
4025 |
vs_top=sup; |
vs_top=sup; |
4026 |
V578= vs_base[0]; |
V578= vs_base[0]; |
4027 |
goto TTL;} |
goto TTL;} |
4028 |
goto T2170; |
goto T2175; |
4029 |
T2170:; |
T2175:; |
4030 |
if(type_of((V586))==t_cons){ |
if(type_of((V586))==t_cons){ |
4031 |
goto T2193;} |
goto T2198;} |
4032 |
V586= Cnil; |
V586= Cnil; |
4033 |
goto T2192; |
goto T2197; |
4034 |
goto T2193; |
goto T2198; |
4035 |
T2193:; |
T2198:; |
4036 |
V586= cdr((V586)); |
V586= cdr((V586)); |
4037 |
goto T2192; |
goto T2197; |
4038 |
T2192:; |
T2197:; |
4039 |
V587= (long)(1)+(V587); |
V587= (long)(1)+(V587); |
4040 |
goto T2163;} |
goto T2168;} |
4041 |
goto T2149; |
goto T2154; |
4042 |
T2149:; |
T2154:; |
4043 |
if(((V584))==Cnil){ |
if(((V584))==Cnil){ |
4044 |
goto T2198;} |
goto T2203;} |
4045 |
{object V592 = (V584); |
{object V592 = (V584); |
4046 |
VMR37(V592)} |
VMR37(V592)} |
4047 |
goto T2198; |
goto T2203; |
4048 |
T2198:; |
T2203:; |
4049 |
(void)((*(LnkLI267))(Cnil,(V578))); |
(void)((*(LnkLI267))(Cnil,(V578))); |
4050 |
bds_bind(VV[55],Cnil); |
bds_bind(VV[55],Cnil); |
4051 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
4076 |
{object V597; |
{object V597; |
4077 |
V597= (type_of((V596))!=t_cons?Ct:Cnil); |
V597= (type_of((V596))!=t_cons?Ct:Cnil); |
4078 |
if(((V597))==Cnil){ |
if(((V597))==Cnil){ |
4079 |
goto T2206;} |
goto T2211;} |
4080 |
{object V598 = (V597); |
{object V598 = (V597); |
4081 |
VMR38(V598)} |
VMR38(V598)} |
4082 |
goto T2206; |
goto T2211; |
4083 |
T2206:; |
T2211:; |
4084 |
{object V599; |
{object V599; |
4085 |
base[0]= (V596); |
base[0]= (V596); |
4086 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4088 |
vs_top=sup; |
vs_top=sup; |
4089 |
V599= vs_base[0]; |
V599= vs_base[0]; |
4090 |
if(((V599))==Cnil){ |
if(((V599))==Cnil){ |
4091 |
goto T2211;} |
goto T2216;} |
4092 |
{object V600 = (V599); |
{object V600 = (V599); |
4093 |
VMR38(V600)} |
VMR38(V600)} |
4094 |
goto T2211; |
goto T2216; |
4095 |
T2211:; |
T2216:; |
4096 |
{object V601 = (VFUN_NARGS=1,(*(LnkLI300))((V596))); |
{object V601 = (VFUN_NARGS=1,(*(LnkLI303))((V596))); |
4097 |
VMR38(V601)}}} |
VMR38(V601)}}} |
4098 |
base[0]=base[0]; |
base[0]=base[0]; |
4099 |
return Cnil; |
return Cnil; |
4109 |
register object V603; |
register object V603; |
4110 |
V602= reverse(symbol_value(VV[52])); |
V602= reverse(symbol_value(VV[52])); |
4111 |
V603= car((V602)); |
V603= car((V602)); |
4112 |
goto T2216; |
goto T2221; |
4113 |
T2216:; |
T2221:; |
4114 |
if(!(endp_prop((V602)))){ |
if(!(endp_prop((V602)))){ |
4115 |
goto T2217;} |
goto T2222;} |
4116 |
{object V604 = Cnil; |
{object V604 = Cnil; |
4117 |
VMR39(V604)} |
VMR39(V604)} |
4118 |
goto T2217; |
goto T2222; |
4119 |
T2217:; |
T2222:; |
4120 |
if(!(type_of((V603))!=t_cons)){ |
if(!(type_of((V603))!=t_cons)){ |
4121 |
goto T2221;} |
goto T2226;} |
4122 |
(void)((*(LnkLI339))()); |
(void)((*(LnkLI342))()); |
4123 |
goto T2221; |
goto T2226; |
4124 |
T2221:; |
T2226:; |
4125 |
{register object V605; |
{register object V605; |
4126 |
V605= make_cons(VV[220],(V603)); |
V605= make_cons(VV[220],(V603)); |
4127 |
setq(VV[24],make_cons((V605),symbol_value(VV[24])));} |
setq(VV[24],make_cons((V605),symbol_value(VV[24])));} |
4128 |
V602= cdr((V602)); |
V602= cdr((V602)); |
4129 |
V603= car((V602)); |
V603= car((V602)); |
4130 |
goto T2216;} |
goto T2221;} |
4131 |
base[0]=base[0]; |
base[0]=base[0]; |
4132 |
return Cnil; |
return Cnil; |
4133 |
} |
} |
4140 |
goto TTL; |
goto TTL; |
4141 |
TTL:; |
TTL:; |
4142 |
V610= list(3,VV[221],(V608),(V609)); |
V610= list(3,VV[221],(V608),(V609)); |
4143 |
{object V611 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V610)); |
{object V611 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V610)); |
4144 |
VMR40(V611)} |
VMR40(V611)} |
4145 |
return Cnil; |
return Cnil; |
4146 |
} |
} |
4152 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
4153 |
goto TTL; |
goto TTL; |
4154 |
TTL:; |
TTL:; |
4155 |
{object V614 = (*(LnkLI339))(); |
{object V614 = (*(LnkLI342))(); |
4156 |
VMR41(V614)} |
VMR41(V614)} |
4157 |
return Cnil; |
return Cnil; |
4158 |
} |
} |
4203 |
register object V631; |
register object V631; |
4204 |
V630= (V629); |
V630= (V629); |
4205 |
V631= car((V630)); |
V631= car((V630)); |
4206 |
goto T2243; |
goto T2248; |
4207 |
T2243:; |
T2248:; |
4208 |
if(!(endp_prop((V630)))){ |
if(!(endp_prop((V630)))){ |
4209 |
goto T2244;} |
goto T2249;} |
|
goto T2239; |
|
4210 |
goto T2244; |
goto T2244; |
4211 |
T2244:; |
goto T2249; |
4212 |
|
T2249:; |
4213 |
if(type_of((V631))==t_string){ |
if(type_of((V631))==t_string){ |
4214 |
goto T2248;} |
goto T2253;} |
4215 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V631)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V631)))); |
4216 |
goto T2248; |
goto T2253; |
4217 |
T2248:; |
T2253:; |
4218 |
V630= cdr((V630)); |
V630= cdr((V630)); |
4219 |
V631= car((V630)); |
V631= car((V630)); |
4220 |
goto T2243;} |
goto T2248;} |
4221 |
goto T2239; |
goto T2244; |
4222 |
T2239:; |
T2244:; |
4223 |
{object V632; |
{object V632; |
4224 |
V632= list(2,VV[224],(V629)); |
V632= list(2,VV[224],(V629)); |
4225 |
setq(VV[24],make_cons((V632),symbol_value(VV[24]))); |
setq(VV[24],make_cons((V632),symbol_value(VV[24]))); |
4240 |
register object V637; |
register object V637; |
4241 |
V636= (V635); |
V636= (V635); |
4242 |
V637= car((V636)); |
V637= car((V636)); |
4243 |
goto T2261; |
goto T2266; |
4244 |
T2261:; |
T2266:; |
4245 |
if(!(endp_prop((V636)))){ |
if(!(endp_prop((V636)))){ |
4246 |
goto T2262;} |
goto T2267;} |
4247 |
{object V638 = Cnil; |
{object V638 = Cnil; |
4248 |
VMR45(V638)} |
VMR45(V638)} |
4249 |
goto T2262; |
goto T2267; |
4250 |
T2262:; |
T2267:; |
4251 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4252 |
(void)((*(LnkLI274))((V637))); |
(void)((*(LnkLI274))((V637))); |
4253 |
V636= cdr((V636)); |
V636= cdr((V636)); |
4254 |
V637= car((V636)); |
V637= car((V636)); |
4255 |
goto T2261;} |
goto T2266;} |
4256 |
base[0]=base[0]; |
base[0]=base[0]; |
4257 |
return Cnil; |
return Cnil; |
4258 |
} |
} |
4267 |
{register object V641; |
{register object V641; |
4268 |
V641= Cnil; |
V641= Cnil; |
4269 |
if(endp_prop((V640))){ |
if(endp_prop((V640))){ |
4270 |
goto T2276;} |
goto T2281;} |
4271 |
if(!(endp_prop(cdr((V640))))){ |
if(!(endp_prop(cdr((V640))))){ |
4272 |
goto T2275;} |
goto T2280;} |
4273 |
goto T2276; |
goto T2281; |
4274 |
T2276:; |
T2281:; |
4275 |
V642 = make_fixnum((long)length((V640))); |
V642 = make_fixnum((long)length((V640))); |
4276 |
(void)((*(LnkLI283))(VV[225],small_fixnum(2),V642)); |
(void)((*(LnkLI283))(VV[225],small_fixnum(2),V642)); |
|
goto T2275; |
|
|
T2275:; |
|
|
if(type_of(car((V640)))==t_string){ |
|
|
goto T2280;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V640))))); |
|
4277 |
goto T2280; |
goto T2280; |
4278 |
T2280:; |
T2280:; |
4279 |
|
if(type_of(car((V640)))==t_string){ |
4280 |
|
goto T2285;} |
4281 |
|
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V640))))); |
4282 |
|
goto T2285; |
4283 |
|
T2285:; |
4284 |
{object V643= cadr((V640)); |
{object V643= cadr((V640)); |
4285 |
if(type_of(V643)==t_fixnum|| |
if(type_of(V643)==t_fixnum|| |
4286 |
type_of(V643)==t_bignum|| |
type_of(V643)==t_bignum|| |
4288 |
type_of(V643)==t_shortfloat|| |
type_of(V643)==t_shortfloat|| |
4289 |
type_of(V643)==t_longfloat|| |
type_of(V643)==t_longfloat|| |
4290 |
type_of(V643)==t_complex){ |
type_of(V643)==t_complex){ |
4291 |
goto T2283;}} |
goto T2288;}} |
4292 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V640))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V640))))); |
4293 |
goto T2283; |
goto T2288; |
4294 |
T2283:; |
T2288:; |
4295 |
{register object V644; |
{register object V644; |
4296 |
register object V645; |
register object V645; |
4297 |
V644= cddr((V640)); |
V644= cddr((V640)); |
4298 |
V645= car((V644)); |
V645= car((V644)); |
4299 |
goto T2290; |
goto T2295; |
4300 |
T2290:; |
T2295:; |
4301 |
if(!(endp_prop((V644)))){ |
if(!(endp_prop((V644)))){ |
4302 |
goto T2291;} |
goto T2296;} |
|
goto T2286; |
|
4303 |
goto T2291; |
goto T2291; |
4304 |
T2291:; |
goto T2296; |
4305 |
|
T2296:; |
4306 |
if(!(type_of((V645))==t_string)){ |
if(!(type_of((V645))==t_string)){ |
4307 |
goto T2297;} |
goto T2302;} |
4308 |
{register object V646; |
{register object V646; |
4309 |
V646= (V645); |
V646= (V645); |
4310 |
V641= make_cons((V646),(V641)); |
V641= make_cons((V646),(V641)); |
4311 |
goto T2295;} |
goto T2300;} |
4312 |
goto T2297; |
goto T2302; |
4313 |
T2297:; |
T2302:; |
4314 |
if(!(type_of((V645))==t_cons)){ |
if(!(type_of((V645))==t_cons)){ |
4315 |
goto T2302;} |
goto T2307;} |
4316 |
if(!(type_of(car((V645)))==t_symbol)){ |
if(!(type_of(car((V645)))==t_symbol)){ |
4317 |
goto T2305;} |
goto T2310;} |
4318 |
base[2]= car((V645)); |
base[2]= car((V645)); |
4319 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4320 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4321 |
vs_top=sup; |
vs_top=sup; |
4322 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4323 |
goto T2307;} |
goto T2312;} |
4324 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V645))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V645))))); |
4325 |
goto T2307; |
goto T2312; |
4326 |
T2307:; |
T2312:; |
4327 |
{register object V647; |
{register object V647; |
4328 |
V648= car((V645)); |
V648= car((V645)); |
4329 |
V649= (*(LnkLI340))(cdr((V645))); |
V649= (*(LnkLI343))(cdr((V645))); |
4330 |
V650= make_cons(/* INLINE-ARGS */V648,/* INLINE-ARGS */V649); |
V650= make_cons(/* INLINE-ARGS */V648,/* INLINE-ARGS */V649); |
4331 |
V647= make_cons(/* INLINE-ARGS */V650,Cnil); |
V647= make_cons(/* INLINE-ARGS */V650,Cnil); |
4332 |
V641= make_cons((V647),(V641)); |
V641= make_cons((V647),(V641)); |
4333 |
goto T2295;} |
goto T2300;} |
4334 |
goto T2305; |
goto T2310; |
4335 |
T2305:; |
T2310:; |
4336 |
if(!(type_of(car((V645)))==t_cons)){ |
if(!(type_of(car((V645)))==t_cons)){ |
4337 |
goto T2314;} |
goto T2319;} |
4338 |
if(!(type_of(caar((V645)))==t_symbol)){ |
if(!(type_of(caar((V645)))==t_symbol)){ |
4339 |
goto T2314;} |
goto T2319;} |
4340 |
if(!((caar((V645)))==(VV[91]))){ |
if(!((caar((V645)))==(VV[91]))){ |
4341 |
goto T2321;} |
goto T2326;} |
4342 |
if(!(endp_prop(cdar((V645))))){ |
if(!(endp_prop(cdar((V645))))){ |
4343 |
goto T2323;} |
goto T2328;} |
4344 |
goto T2314; |
goto T2319; |
4345 |
goto T2323; |
goto T2328; |
4346 |
T2323:; |
T2328:; |
4347 |
if(!(((endp_prop(cddar((V645)))?Ct:Cnil))==Cnil)){ |
if(!(((endp_prop(cddar((V645)))?Ct:Cnil))==Cnil)){ |
4348 |
goto T2325;} |
goto T2330;} |
4349 |
goto T2314; |
goto T2319; |
4350 |
goto T2325; |
goto T2330; |
4351 |
T2325:; |
T2330:; |
4352 |
if(!(endp_prop(cdr((V645))))){ |
if(!(endp_prop(cdr((V645))))){ |
4353 |
goto T2327;} |
goto T2332;} |
|
goto T2314; |
|
|
goto T2327; |
|
|
T2327:; |
|
|
if(((endp_prop(cddr((V645)))?Ct:Cnil))==Cnil){ |
|
|
goto T2314;} |
|
4354 |
goto T2319; |
goto T2319; |
4355 |
goto T2321; |
goto T2332; |
4356 |
T2321:; |
T2332:; |
4357 |
|
if(((endp_prop(cddr((V645)))?Ct:Cnil))==Cnil){ |
4358 |
|
goto T2319;} |
4359 |
|
goto T2324; |
4360 |
|
goto T2326; |
4361 |
|
T2326:; |
4362 |
base[2]= caar((V645)); |
base[2]= caar((V645)); |
4363 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4364 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4365 |
vs_top=sup; |
vs_top=sup; |
4366 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4367 |
goto T2314;} |
goto T2319;} |
4368 |
goto T2319; |
goto T2324; |
4369 |
T2319:; |
T2324:; |
4370 |
{register object V651; |
{register object V651; |
4371 |
V652= caar((V645)); |
V652= caar((V645)); |
4372 |
if(!((caar((V645)))==(VV[91]))){ |
if(!((caar((V645)))==(VV[91]))){ |
4373 |
goto T2333;} |
goto T2338;} |
4374 |
V654= (*(LnkLI325))(cadar((V645))); |
V654= (*(LnkLI328))(cadar((V645))); |
4375 |
V653= make_cons(/* INLINE-ARGS */V654,Cnil); |
V653= make_cons(/* INLINE-ARGS */V654,Cnil); |
4376 |
goto T2331; |
goto T2336; |
4377 |
goto T2333; |
goto T2338; |
4378 |
T2333:; |
T2338:; |
4379 |
V653= (*(LnkLI340))(cdar((V645))); |
V653= (*(LnkLI343))(cdar((V645))); |
4380 |
goto T2331; |
goto T2336; |
4381 |
T2331:; |
T2336:; |
4382 |
V655= make_cons(/* INLINE-ARGS */V652,V653); |
V655= make_cons(/* INLINE-ARGS */V652,V653); |
4383 |
V656= (*(LnkLI340))(cdr((V645))); |
V656= (*(LnkLI343))(cdr((V645))); |
4384 |
V651= make_cons(/* INLINE-ARGS */V655,/* INLINE-ARGS */V656); |
V651= make_cons(/* INLINE-ARGS */V655,/* INLINE-ARGS */V656); |
4385 |
V641= make_cons((V651),(V641)); |
V641= make_cons((V651),(V641)); |
4386 |
goto T2295;} |
goto T2300;} |
4387 |
goto T2314; |
goto T2319; |
4388 |
T2314:; |
T2319:; |
4389 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V645)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V645)))); |
4390 |
goto T2295; |
goto T2300; |
4391 |
goto T2302; |
goto T2307; |
4392 |
T2302:; |
T2307:; |
4393 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V645)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V645)))); |
4394 |
goto T2295; |
goto T2300; |
4395 |
T2295:; |
T2300:; |
4396 |
V644= cdr((V644)); |
V644= cdr((V644)); |
4397 |
V645= car((V644)); |
V645= car((V644)); |
4398 |
goto T2290;} |
goto T2295;} |
4399 |
goto T2286; |
goto T2291; |
4400 |
T2286:; |
T2291:; |
4401 |
{object V657; |
{object V657; |
4402 |
V658= car((V640)); |
V658= car((V640)); |
4403 |
V659= cadr((V640)); |
V659= cadr((V640)); |
4418 |
TTL:; |
TTL:; |
4419 |
{object V667; |
{object V667; |
4420 |
V667= Cnil; |
V667= Cnil; |
4421 |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[231],VV[225]))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[231],VV[225]))); |
4422 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4423 |
(void)((*(LnkLI274))((V664))); |
(void)((*(LnkLI274))((V664))); |
4424 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
4427 |
(void)((*(LnkLI274))((V665))); |
(void)((*(LnkLI274))((V665))); |
4428 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
4429 |
if(!(number_compare((V665),small_fixnum(0))>0)){ |
if(!(number_compare((V665),small_fixnum(0))>0)){ |
4430 |
goto T2356;} |
goto T2361;} |
4431 |
princ_str("\n vs_top=old_top;",VV[25]); |
princ_str("\n vs_top=old_top;",VV[25]); |
4432 |
goto T2356; |
goto T2361; |
4433 |
T2356:; |
T2361:; |
4434 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
4435 |
{object V668; |
{object V668; |
4436 |
register object V669; |
register object V669; |
4437 |
V668= (V666); |
V668= (V666); |
4438 |
V669= car((V668)); |
V669= car((V668)); |
4439 |
goto T2366; |
goto T2371; |
4440 |
T2366:; |
T2371:; |
4441 |
if(!(endp_prop((V668)))){ |
if(!(endp_prop((V668)))){ |
4442 |
goto T2367;} |
goto T2372;} |
|
goto T2362; |
|
4443 |
goto T2367; |
goto T2367; |
4444 |
T2367:; |
goto T2372; |
4445 |
|
T2372:; |
4446 |
if(!(type_of((V669))==t_string)){ |
if(!(type_of((V669))==t_string)){ |
4447 |
goto T2373;} |
goto T2378;} |
4448 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4449 |
(void)((*(LnkLI274))((V669))); |
(void)((*(LnkLI274))((V669))); |
4450 |
goto T2371; |
goto T2376; |
4451 |
goto T2373; |
goto T2378; |
4452 |
T2373:; |
T2378:; |
4453 |
if(!((caar((V669)))==(VV[91]))){ |
if(!((caar((V669)))==(VV[91]))){ |
4454 |
goto T2378;} |
goto T2383;} |
4455 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4456 |
(void)((*(LnkLI274))(cadadr((V669)))); |
(void)((*(LnkLI274))(cadadr((V669)))); |
4457 |
{object V670= caadr((V669)); |
{object V670= caadr((V669)); |
4458 |
if((V670!= VV[74]))goto T2383; |
if((V670!= VV[74]))goto T2388; |
4459 |
princ_str("=VV[",VV[25]); |
princ_str("=VV[",VV[25]); |
4460 |
(void)((*(LnkLI274))(cadar((V669)))); |
(void)((*(LnkLI274))(cadar((V669)))); |
4461 |
princ_str("];",VV[25]); |
princ_str("];",VV[25]); |
4462 |
goto T2371; |
goto T2376; |
4463 |
goto T2383; |
goto T2388; |
4464 |
T2383:; |
T2388:; |
4465 |
princ_str("=object_to_",VV[25]); |
princ_str("=object_to_",VV[25]); |
4466 |
base[1]= symbol_name(caadr((V669))); |
base[1]= symbol_name(caadr((V669))); |
4467 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4472 |
princ_str("(VV[",VV[25]); |
princ_str("(VV[",VV[25]); |
4473 |
(void)((*(LnkLI274))(cadar((V669)))); |
(void)((*(LnkLI274))(cadar((V669)))); |
4474 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4475 |
goto T2371;} |
goto T2376;} |
4476 |
goto T2378; |
goto T2383; |
4477 |
T2378:; |
T2383:; |
4478 |
princ_str("\n{vs_base=vs_top=old_top;",VV[25]); |
princ_str("\n{vs_base=vs_top=old_top;",VV[25]); |
4479 |
{register object V672; |
{register object V672; |
4480 |
register object V673; |
register object V673; |
4481 |
V672= cdar((V669)); |
V672= cdar((V669)); |
4482 |
V673= car((V672)); |
V673= car((V672)); |
4483 |
goto T2400; |
goto T2405; |
4484 |
T2400:; |
T2405:; |
4485 |
if(!(endp_prop((V672)))){ |
if(!(endp_prop((V672)))){ |
4486 |
goto T2401;} |
goto T2406;} |
|
goto T2396; |
|
4487 |
goto T2401; |
goto T2401; |
4488 |
T2401:; |
goto T2406; |
4489 |
|
T2406:; |
4490 |
princ_str("\nvs_push(",VV[25]); |
princ_str("\nvs_push(",VV[25]); |
4491 |
{object V674= car((V673)); |
{object V674= car((V673)); |
4492 |
if((V674!= VV[74]))goto T2408; |
if((V674!= VV[74]))goto T2413; |
4493 |
(void)((*(LnkLI274))(cadr((V673)))); |
(void)((*(LnkLI274))(cadr((V673)))); |
4494 |
goto T2407; |
goto T2412; |
4495 |
goto T2408; |
goto T2413; |
4496 |
T2408:; |
T2413:; |
4497 |
if((V674!= VV[341]))goto T2410; |
if((V674!= VV[344]))goto T2415; |
4498 |
princ_str("code_char((long)",VV[25]); |
princ_str("code_char((long)",VV[25]); |
4499 |
(void)((*(LnkLI274))(cadr((V673)))); |
(void)((*(LnkLI274))(cadr((V673)))); |
4500 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4501 |
goto T2407; |
goto T2412; |
|
goto T2410; |
|
|
T2410:; |
|
|
if((V674!= VV[342]))goto T2414; |
|
|
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
|
|
goto T2415;} |
|
|
princ_str("CMP",VV[25]); |
|
4502 |
goto T2415; |
goto T2415; |
4503 |
T2415:; |
T2415:; |
4504 |
|
if((V674!= VV[345]))goto T2419; |
4505 |
|
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
4506 |
|
goto T2420;} |
4507 |
|
princ_str("CMP",VV[25]); |
4508 |
|
goto T2420; |
4509 |
|
T2420:; |
4510 |
princ_str("make_fixnum((long)",VV[25]); |
princ_str("make_fixnum((long)",VV[25]); |
4511 |
(void)((*(LnkLI274))(cadr((V673)))); |
(void)((*(LnkLI274))(cadr((V673)))); |
4512 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4513 |
goto T2407; |
goto T2412; |
4514 |
goto T2414; |
goto T2419; |
4515 |
T2414:; |
T2419:; |
4516 |
if((V674!= VV[343]))goto T2422; |
if((V674!= VV[346]))goto T2427; |
4517 |
princ_str("make_shortfloat((double)",VV[25]); |
princ_str("make_shortfloat((double)",VV[25]); |
4518 |
(void)((*(LnkLI274))(cadr((V673)))); |
(void)((*(LnkLI274))(cadr((V673)))); |
4519 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4520 |
goto T2407; |
goto T2412; |
4521 |
goto T2422; |
goto T2427; |
4522 |
T2422:; |
T2427:; |
4523 |
if((V674!= VV[344]))goto T2426; |
if((V674!= VV[347]))goto T2431; |
4524 |
princ_str("make_longfloat((double)",VV[25]); |
princ_str("make_longfloat((double)",VV[25]); |
4525 |
(void)((*(LnkLI274))(cadr((V673)))); |
(void)((*(LnkLI274))(cadr((V673)))); |
4526 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
4527 |
goto T2407; |
goto T2412; |
4528 |
goto T2426; |
goto T2431; |
4529 |
T2426:;} |
T2431:;} |
4530 |
goto T2407; |
goto T2412; |
4531 |
T2407:; |
T2412:; |
4532 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
4533 |
V672= cdr((V672)); |
V672= cdr((V672)); |
4534 |
V673= car((V672)); |
V673= car((V672)); |
4535 |
goto T2400;} |
goto T2405;} |
4536 |
goto T2396; |
goto T2401; |
4537 |
T2396:; |
T2401:; |
4538 |
{register object x= caar((V669)),V675= symbol_value(VV[79]); |
{register object x= caar((V669)),V675= symbol_value(VV[79]); |
4539 |
while(!endp(V675)) |
while(!endp(V675)) |
4540 |
if(type_of(V675->c.c_car)==t_cons &&eql(x,V675->c.c_car->c.c_car)){ |
if(type_of(V675->c.c_car)==t_cons &&eql(x,V675->c.c_car->c.c_car)){ |
4541 |
V667= (V675->c.c_car); |
V667= (V675->c.c_car); |
4542 |
goto T2441; |
goto T2446; |
4543 |
}else V675=V675->c.c_cdr; |
}else V675=V675->c.c_cdr; |
4544 |
V667= Cnil;} |
V667= Cnil;} |
4545 |
goto T2441; |
goto T2446; |
4546 |
T2441:; |
T2446:; |
4547 |
if(((V667))==Cnil){ |
if(((V667))==Cnil){ |
4548 |
goto T2439;} |
goto T2444;} |
4549 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
4550 |
goto T2443;} |
goto T2448;} |
4551 |
princ_str("\nihs_push(VV[",VV[25]); |
princ_str("\nihs_push(VV[",VV[25]); |
4552 |
V676= (*(LnkLI327))(caar((V669))); |
V676= (*(LnkLI330))(caar((V669))); |
4553 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V676)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V676)); |
4554 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4555 |
princ_str("\nL",VV[25]); |
princ_str("\nL",VV[25]); |
4556 |
(void)((*(LnkLI274))(cdr((V667)))); |
(void)((*(LnkLI274))(cdr((V667)))); |
4557 |
princ_str("();",VV[25]); |
princ_str("();",VV[25]); |
4558 |
princ_str("\nihs_pop();",VV[25]); |
princ_str("\nihs_pop();",VV[25]); |
4559 |
goto T2437; |
goto T2442; |
4560 |
goto T2443; |
goto T2448; |
4561 |
T2443:; |
T2448:; |
4562 |
princ_str("\nL",VV[25]); |
princ_str("\nL",VV[25]); |
4563 |
(void)((*(LnkLI274))(cdr((V667)))); |
(void)((*(LnkLI274))(cdr((V667)))); |
4564 |
princ_str("();",VV[25]); |
princ_str("();",VV[25]); |
4565 |
goto T2437; |
goto T2442; |
4566 |
goto T2439; |
goto T2444; |
4567 |
T2439:; |
T2444:; |
4568 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
4569 |
goto T2458;} |
goto T2463;} |
4570 |
princ_str("\nsuper_funcall(VV[",VV[25]); |
princ_str("\nsuper_funcall(VV[",VV[25]); |
4571 |
V677= (*(LnkLI327))(caar((V669))); |
V677= (*(LnkLI330))(caar((V669))); |
4572 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V677)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V677)); |
4573 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4574 |
goto T2437; |
goto T2442; |
4575 |
goto T2458; |
goto T2463; |
4576 |
T2458:; |
T2463:; |
4577 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
4578 |
goto T2464;} |
goto T2469;} |
4579 |
princ_str("\nsuper_funcall_no_event(VV[",VV[25]); |
princ_str("\nsuper_funcall_no_event(VV[",VV[25]); |
4580 |
V678= (*(LnkLI327))(caar((V669))); |
V678= (*(LnkLI330))(caar((V669))); |
4581 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V678)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V678)); |
4582 |
princ_str("]);",VV[25]); |
princ_str("]);",VV[25]); |
4583 |
goto T2437; |
goto T2442; |
4584 |
goto T2464; |
goto T2469; |
4585 |
T2464:; |
T2469:; |
4586 |
princ_str("\nCMPfuncall(VV[",VV[25]); |
princ_str("\nCMPfuncall(VV[",VV[25]); |
4587 |
V679= (*(LnkLI327))(caar((V669))); |
V679= (*(LnkLI330))(caar((V669))); |
4588 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V679)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V679)); |
4589 |
princ_str("]->s.s_gfdef);",VV[25]); |
princ_str("]->s.s_gfdef);",VV[25]); |
4590 |
goto T2437; |
goto T2442; |
4591 |
T2437:; |
T2442:; |
4592 |
if(endp_prop(cdr((V669)))){ |
if(endp_prop(cdr((V669)))){ |
4593 |
goto T2472;} |
goto T2477;} |
4594 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4595 |
(void)((*(LnkLI274))(cadadr((V669)))); |
(void)((*(LnkLI274))(cadadr((V669)))); |
4596 |
{object V680= caadr((V669)); |
{object V680= caadr((V669)); |
4597 |
if((V680!= VV[74]))goto T2479; |
if((V680!= VV[74]))goto T2484; |
4598 |
princ_str("=vs_base[0];",VV[25]); |
princ_str("=vs_base[0];",VV[25]); |
4599 |
goto T2478; |
goto T2483; |
4600 |
goto T2479; |
goto T2484; |
4601 |
T2479:; |
T2484:; |
4602 |
princ_str("=object_to_",VV[25]); |
princ_str("=object_to_",VV[25]); |
4603 |
base[1]= symbol_name(caadr((V669))); |
base[1]= symbol_name(caadr((V669))); |
4604 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4607 |
V681= vs_base[0]; |
V681= vs_base[0]; |
4608 |
(void)((*(LnkLI274))(V681)); |
(void)((*(LnkLI274))(V681)); |
4609 |
princ_str("(vs_base[0]);",VV[25]);} |
princ_str("(vs_base[0]);",VV[25]);} |
4610 |
goto T2478; |
goto T2483; |
4611 |
T2478:; |
T2483:; |
4612 |
{register object V682; |
{register object V682; |
4613 |
register object V683; |
register object V683; |
4614 |
V682= cddr((V669)); |
V682= cddr((V669)); |
4615 |
V683= car((V682)); |
V683= car((V682)); |
4616 |
goto T2489; |
goto T2494; |
4617 |
T2489:; |
T2494:; |
4618 |
if(!(endp_prop((V682)))){ |
if(!(endp_prop((V682)))){ |
4619 |
goto T2490;} |
goto T2495;} |
4620 |
goto T2472; |
goto T2477; |
4621 |
goto T2490; |
goto T2495; |
4622 |
T2490:; |
T2495:; |
4623 |
princ_str("\nvs_base++;",VV[25]); |
princ_str("\nvs_base++;",VV[25]); |
4624 |
princ_char(10,VV[25]); |
princ_char(10,VV[25]); |
4625 |
(void)((*(LnkLI274))(cadr((V683)))); |
(void)((*(LnkLI274))(cadr((V683)))); |
4626 |
{object V684= car((V683)); |
{object V684= car((V683)); |
4627 |
if((V684!= VV[74]))goto T2500; |
if((V684!= VV[74]))goto T2505; |
4628 |
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]); |
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]); |
4629 |
goto T2499; |
goto T2504; |
4630 |
goto T2500; |
goto T2505; |
4631 |
T2500:; |
T2505:; |
4632 |
princ_str("=object_to_",VV[25]); |
princ_str("=object_to_",VV[25]); |
4633 |
base[3]= symbol_name(car((V683))); |
base[3]= symbol_name(car((V683))); |
4634 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4637 |
V685= vs_base[0]; |
V685= vs_base[0]; |
4638 |
(void)((*(LnkLI274))(V685)); |
(void)((*(LnkLI274))(V685)); |
4639 |
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);} |
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);} |
4640 |
goto T2499; |
goto T2504; |
4641 |
T2499:; |
T2504:; |
4642 |
V682= cdr((V682)); |
V682= cdr((V682)); |
4643 |
V683= car((V682)); |
V683= car((V682)); |
4644 |
goto T2489;} |
goto T2494;} |
4645 |
goto T2472; |
goto T2477; |
4646 |
T2472:; |
T2477:; |
4647 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4648 |
goto T2371; |
goto T2376; |
4649 |
T2371:; |
T2376:; |
4650 |
V668= cdr((V668)); |
V668= cdr((V668)); |
4651 |
V669= car((V668)); |
V669= car((V668)); |
4652 |
goto T2366;} |
goto T2371;} |
4653 |
goto T2362; |
goto T2367; |
4654 |
T2362:; |
T2367:; |
4655 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4656 |
princ_str("\nvs_top=vs;",VV[25]); |
princ_str("\nvs_top=vs;",VV[25]); |
4657 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4678 |
V691= symbol_value(VV[61]); |
V691= symbol_value(VV[61]); |
4679 |
V692= Cnil; |
V692= Cnil; |
4680 |
if(endp_prop((V688))){ |
if(endp_prop((V688))){ |
4681 |
goto T2529;} |
goto T2534;} |
4682 |
if(endp_prop(cdr((V688)))){ |
if(endp_prop(cdr((V688)))){ |
4683 |
goto T2529;} |
goto T2534;} |
4684 |
if(!(endp_prop(cddr((V688))))){ |
if(!(endp_prop(cddr((V688))))){ |
4685 |
goto T2528;} |
goto T2533;} |
4686 |
goto T2529; |
goto T2534; |
4687 |
T2529:; |
T2534:; |
4688 |
V693 = make_fixnum((long)length((V688))); |
V693 = make_fixnum((long)length((V688))); |
4689 |
(void)((*(LnkLI283))(VV[232],small_fixnum(3),V693)); |
(void)((*(LnkLI283))(VV[232],small_fixnum(3),V693)); |
4690 |
goto T2528; |
goto T2533; |
4691 |
T2528:; |
T2533:; |
4692 |
if(type_of(car((V688)))==t_symbol){ |
if(type_of(car((V688)))==t_symbol){ |
4693 |
goto T2535;} |
goto T2540;} |
4694 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V688))))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V688))))); |
4695 |
goto T2535; |
goto T2540; |
4696 |
T2535:; |
T2540:; |
4697 |
{register object V694; |
{register object V694; |
4698 |
register object V695; |
register object V695; |
4699 |
V694= cadr((V688)); |
V694= cadr((V688)); |
4700 |
V695= car((V694)); |
V695= car((V694)); |
4701 |
goto T2542; |
goto T2547; |
4702 |
T2542:; |
T2547:; |
4703 |
if(!(endp_prop((V694)))){ |
if(!(endp_prop((V694)))){ |
4704 |
goto T2543;} |
goto T2548;} |
|
goto T2538; |
|
4705 |
goto T2543; |
goto T2543; |
4706 |
T2543:; |
goto T2548; |
4707 |
|
T2548:; |
4708 |
{register object x= (V695),V696= VV[234]; |
{register object x= (V695),V696= VV[234]; |
4709 |
while(!endp(V696)) |
while(!endp(V696)) |
4710 |
if(eql(x,V696->c.c_car)){ |
if(eql(x,V696->c.c_car)){ |
4711 |
goto T2547; |
goto T2552; |
4712 |
}else V696=V696->c.c_cdr;} |
}else V696=V696->c.c_cdr;} |
4713 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V695)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V695)))); |
4714 |
goto T2547; |
goto T2552; |
4715 |
T2547:; |
T2552:; |
4716 |
V694= cdr((V694)); |
V694= cdr((V694)); |
4717 |
V695= car((V694)); |
V695= car((V694)); |
4718 |
goto T2542;} |
goto T2547;} |
4719 |
goto T2538; |
goto T2543; |
4720 |
T2538:; |
T2543:; |
4721 |
V692= caddr((V688)); |
V692= caddr((V688)); |
4722 |
if(!(type_of((V692))==t_symbol)){ |
if(!(type_of((V692))==t_symbol)){ |
4723 |
goto T2559;} |
goto T2564;} |
4724 |
V689= VV[74]; |
V689= VV[74]; |
4725 |
base[1]= symbol_name((V692)); |
base[1]= symbol_name((V692)); |
4726 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4727 |
Lstring_downcase(); |
Lstring_downcase(); |
4728 |
vs_top=sup; |
vs_top=sup; |
4729 |
V690= vs_base[0]; |
V690= vs_base[0]; |
4730 |
goto T2557; |
goto T2562; |
4731 |
goto T2559; |
goto T2564; |
4732 |
T2559:; |
T2564:; |
4733 |
if(!(type_of((V692))==t_string)){ |
if(!(type_of((V692))==t_string)){ |
4734 |
goto T2566;} |
goto T2571;} |
4735 |
V689= VV[74]; |
V689= VV[74]; |
4736 |
V690= (V692); |
V690= (V692); |
4737 |
goto T2557; |
goto T2562; |
4738 |
goto T2566; |
goto T2571; |
4739 |
T2566:; |
T2571:; |
4740 |
if(!(type_of((V692))==t_cons)){ |
if(!(type_of((V692))==t_cons)){ |
4741 |
goto T2572;} |
goto T2577;} |
4742 |
{register object x= car((V692)),V697= VV[236]; |
{register object x= car((V692)),V697= VV[236]; |
4743 |
while(!endp(V697)) |
while(!endp(V697)) |
4744 |
if(eql(x,V697->c.c_car)){ |
if(eql(x,V697->c.c_car)){ |
4745 |
goto T2576; |
goto T2581; |
4746 |
}else V697=V697->c.c_cdr; |
}else V697=V697->c.c_cdr; |
4747 |
goto T2572;} |
goto T2577;} |
4748 |
goto T2576; |
goto T2581; |
4749 |
T2576:; |
T2581:; |
4750 |
if(!(type_of(cdr((V692)))==t_cons)){ |
if(!(type_of(cdr((V692)))==t_cons)){ |
4751 |
goto T2572;} |
goto T2577;} |
4752 |
if(type_of(cadr((V692)))==t_symbol){ |
if(type_of(cadr((V692)))==t_symbol){ |
4753 |
goto T2579;} |
goto T2584;} |
4754 |
if(!(type_of(cadr((V692)))==t_string)){ |
if(!(type_of(cadr((V692)))==t_string)){ |
4755 |
goto T2572;} |
goto T2577;} |
4756 |
goto T2579; |
goto T2584; |
4757 |
T2579:; |
T2584:; |
4758 |
if(!(endp_prop(cddr((V692))))){ |
if(!(endp_prop(cddr((V692))))){ |
4759 |
goto T2572;} |
goto T2577;} |
4760 |
if(!(type_of(cadr((V692)))==t_symbol)){ |
if(!(type_of(cadr((V692)))==t_symbol)){ |
4761 |
goto T2587;} |
goto T2592;} |
4762 |
base[1]= symbol_name(cadr((V692))); |
base[1]= symbol_name(cadr((V692))); |
4763 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4764 |
Lstring_downcase(); |
Lstring_downcase(); |
4765 |
vs_top=sup; |
vs_top=sup; |
4766 |
V690= vs_base[0]; |
V690= vs_base[0]; |
4767 |
goto T2585; |
goto T2590; |
4768 |
goto T2587; |
goto T2592; |
4769 |
T2587:; |
T2592:; |
4770 |
V690= cadr((V692)); |
V690= cadr((V692)); |
4771 |
goto T2585; |
goto T2590; |
4772 |
T2585:; |
T2590:; |
4773 |
V689= car((V692)); |
V689= car((V692)); |
4774 |
goto T2557; |
goto T2562; |
4775 |
goto T2572; |
goto T2577; |
4776 |
T2572:; |
T2577:; |
4777 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V692)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V692)))); |
4778 |
goto T2557; |
goto T2562; |
4779 |
T2557:; |
T2562:; |
4780 |
{object V698; |
{object V698; |
4781 |
V698= list(6,VV[232],car((V688)),(V691),cadr((V688)),(V689),(V690)); |
V698= list(6,VV[232],car((V688)),(V691),cadr((V688)),(V689),(V690)); |
4782 |
setq(VV[24],make_cons((V698),symbol_value(VV[24])));} |
setq(VV[24],make_cons((V698),symbol_value(VV[24])));} |
4800 |
(void)((*(LnkLI277))((V707))); |
(void)((*(LnkLI277))((V707))); |
4801 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
4802 |
V711= list(2,VV[91],(V706)); |
V711= list(2,VV[91],(V706)); |
4803 |
V712= list(3,VV[111],/* INLINE-ARGS */V711,(*(LnkLI301))(VV[238],(V707))); |
V712= list(3,VV[111],/* INLINE-ARGS */V711,(*(LnkLI304))(VV[238],(V707))); |
4804 |
{object V713 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V712)); |
{object V713 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V712)); |
4805 |
VMR49(V713)} |
VMR49(V713)} |
4806 |
return Cnil; |
return Cnil; |
4807 |
} |
} |
4813 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
4814 |
goto TTL; |
goto TTL; |
4815 |
TTL:; |
TTL:; |
4816 |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[239],(V719)))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[239],(V719)))); |
4817 |
princ_str("\nstatic void L",VV[25]); |
princ_str("\nstatic void L",VV[25]); |
4818 |
(void)((*(LnkLI274))((V720))); |
(void)((*(LnkLI274))((V720))); |
4819 |
princ_str("()",VV[25]); |
princ_str("()",VV[25]); |
4820 |
princ_str("\n{ object *old_base=vs_base;",VV[25]); |
princ_str("\n{ object *old_base=vs_base;",VV[25]); |
4821 |
{object V724= (V722); |
{object V724= (V722); |
4822 |
if((V724!= VV[240]))goto T2608; |
if((V724!= VV[240]))goto T2613; |
4823 |
goto T2607; |
goto T2612; |
4824 |
goto T2608; |
goto T2613; |
4825 |
T2608:; |
T2613:; |
4826 |
if((V724!= VV[158]))goto T2609; |
if((V724!= VV[158]))goto T2614; |
4827 |
princ_str("\n char *x;",VV[25]); |
princ_str("\n char *x;",VV[25]); |
4828 |
goto T2607; |
goto T2612; |
4829 |
goto T2609; |
goto T2614; |
4830 |
T2609:; |
T2614:; |
4831 |
princ_str("\n ",VV[25]); |
princ_str("\n ",VV[25]); |
4832 |
base[0]= symbol_name((V722)); |
base[0]= symbol_name((V722)); |
4833 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4836 |
V725= vs_base[0]; |
V725= vs_base[0]; |
4837 |
(void)((*(LnkLI274))(V725)); |
(void)((*(LnkLI274))(V725)); |
4838 |
princ_str(" x;",VV[25]);} |
princ_str(" x;",VV[25]);} |
4839 |
goto T2607; |
goto T2612; |
4840 |
T2607:; |
T2612:; |
4841 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
4842 |
goto T2616;} |
goto T2621;} |
4843 |
princ_str("\n check_arg(",VV[25]); |
princ_str("\n check_arg(",VV[25]); |
4844 |
V726 = make_fixnum((long)length((V721))); |
V726 = make_fixnum((long)length((V721))); |
4845 |
(void)((*(LnkLI274))(V726)); |
(void)((*(LnkLI274))(V726)); |
4846 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
4847 |
goto T2616; |
goto T2621; |
4848 |
T2616:; |
T2621:; |
4849 |
if(((V722))==(VV[240])){ |
if(((V722))==(VV[240])){ |
4850 |
goto T2622;} |
goto T2627;} |
4851 |
princ_str("\n x=",VV[25]); |
princ_str("\n x=",VV[25]); |
4852 |
goto T2622; |
goto T2627; |
4853 |
T2622:; |
T2627:; |
4854 |
princ_str("\n ",VV[25]); |
princ_str("\n ",VV[25]); |
4855 |
(void)((*(LnkLI274))((V723))); |
(void)((*(LnkLI274))((V723))); |
4856 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
4857 |
if(endp_prop((V721))){ |
if(endp_prop((V721))){ |
4858 |
goto T2630;} |
goto T2635;} |
4859 |
{register object V727; |
{register object V727; |
4860 |
register long V728; |
register long V728; |
4861 |
V728= 0; |
V728= 0; |
4862 |
V727= (V721); |
V727= (V721); |
4863 |
goto T2635; |
goto T2640; |
4864 |
T2635:; |
T2640:; |
4865 |
{object V729= car((V727)); |
{object V729= car((V727)); |
4866 |
if((V729!= VV[74]))goto T2639; |
if((V729!= VV[74]))goto T2644; |
4867 |
princ_str("\n vs_base[",VV[25]); |
princ_str("\n vs_base[",VV[25]); |
4868 |
V730 = make_fixnum(V728); |
V730 = make_fixnum(V728); |
4869 |
(void)((*(LnkLI274))(V730)); |
(void)((*(LnkLI274))(V730)); |
4870 |
princ_char(93,VV[25]); |
princ_char(93,VV[25]); |
4871 |
goto T2638; |
goto T2643; |
4872 |
goto T2639; |
goto T2644; |
4873 |
T2639:; |
T2644:; |
4874 |
princ_str("\n object_to_",VV[25]); |
princ_str("\n object_to_",VV[25]); |
4875 |
base[0]= symbol_name(car((V727))); |
base[0]= symbol_name(car((V727))); |
4876 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4882 |
V732 = make_fixnum(V728); |
V732 = make_fixnum(V728); |
4883 |
(void)((*(LnkLI274))(V732)); |
(void)((*(LnkLI274))(V732)); |
4884 |
princ_str("])",VV[25]);} |
princ_str("])",VV[25]);} |
4885 |
goto T2638; |
goto T2643; |
4886 |
T2638:; |
T2643:; |
4887 |
if(!(endp_prop(cdr((V727))))){ |
if(!(endp_prop(cdr((V727))))){ |
4888 |
goto T2650;} |
goto T2655;} |
4889 |
goto T2630; |
goto T2635; |
4890 |
goto T2650; |
goto T2655; |
4891 |
T2650:; |
T2655:; |
4892 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
4893 |
V727= cdr((V727)); |
V727= cdr((V727)); |
4894 |
V728= (long)(V728)+1; |
V728= (long)(V728)+1; |
4895 |
goto T2635;} |
goto T2640;} |
4896 |
goto T2630; |
goto T2635; |
4897 |
T2630:; |
T2635:; |
4898 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
4899 |
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[25]); |
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[25]); |
4900 |
princ_str("\n vs_base[0]=",VV[25]); |
princ_str("\n vs_base[0]=",VV[25]); |
4901 |
{object V733= (V722); |
{object V733= (V722); |
4902 |
if((V733!= VV[240]))goto T2666; |
if((V733!= VV[240]))goto T2671; |
4903 |
princ_str("Cnil",VV[25]); |
princ_str("Cnil",VV[25]); |
4904 |
goto T2665; |
goto T2670; |
4905 |
goto T2666; |
goto T2671; |
4906 |
T2666:; |
T2671:; |
4907 |
if((V733!= VV[74]))goto T2668; |
if((V733!= VV[74]))goto T2673; |
4908 |
princ_char(120,VV[25]); |
princ_char(120,VV[25]); |
4909 |
goto T2665; |
goto T2670; |
4910 |
goto T2668; |
goto T2673; |
4911 |
T2668:; |
T2673:; |
4912 |
if((V733!= VV[341]))goto T2670; |
if((V733!= VV[344]))goto T2675; |
4913 |
princ_str("code_char(x)",VV[25]); |
princ_str("code_char(x)",VV[25]); |
|
goto T2665; |
|
4914 |
goto T2670; |
goto T2670; |
4915 |
T2670:; |
goto T2675; |
4916 |
if((V733!= VV[342]))goto T2672; |
T2675:; |
4917 |
|
if((V733!= VV[345]))goto T2677; |
4918 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){ |
4919 |
goto T2673;} |
goto T2678;} |
4920 |
princ_str("CMP",VV[25]); |
princ_str("CMP",VV[25]); |
|
goto T2673; |
|
|
T2673:; |
|
|
princ_str("make_fixnum(x)",VV[25]); |
|
|
goto T2665; |
|
|
goto T2672; |
|
|
T2672:; |
|
|
if((V733!= VV[158]))goto T2678; |
|
|
princ_str("make_simple_string(x)",VV[25]); |
|
|
goto T2665; |
|
4921 |
goto T2678; |
goto T2678; |
4922 |
T2678:; |
T2678:; |
4923 |
if((V733!= VV[343]))goto T2680; |
princ_str("make_fixnum(x)",VV[25]); |
4924 |
|
goto T2670; |
4925 |
|
goto T2677; |
4926 |
|
T2677:; |
4927 |
|
if((V733!= VV[158]))goto T2683; |
4928 |
|
princ_str("make_simple_string(x)",VV[25]); |
4929 |
|
goto T2670; |
4930 |
|
goto T2683; |
4931 |
|
T2683:; |
4932 |
|
if((V733!= VV[346]))goto T2685; |
4933 |
princ_str("make_shortfloat(x)",VV[25]); |
princ_str("make_shortfloat(x)",VV[25]); |
4934 |
goto T2665; |
goto T2670; |
4935 |
goto T2680; |
goto T2685; |
4936 |
T2680:; |
T2685:; |
4937 |
if((V733!= VV[344]))goto T2682; |
if((V733!= VV[347]))goto T2687; |
4938 |
princ_str("make_longfloat(x)",VV[25]); |
princ_str("make_longfloat(x)",VV[25]); |
4939 |
goto T2665; |
goto T2670; |
4940 |
goto T2682; |
goto T2687; |
4941 |
T2682:;} |
T2687:;} |
4942 |
goto T2665; |
goto T2670; |
4943 |
T2665:; |
T2670:; |
4944 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
4945 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
4946 |
{object V734 = Cnil; |
{object V734 = Cnil; |
4974 |
register object V742; |
register object V742; |
4975 |
V741= (V739); |
V741= (V739); |
4976 |
V742= car((V741)); |
V742= car((V741)); |
4977 |
goto T2691; |
goto T2696; |
4978 |
T2691:; |
T2696:; |
4979 |
if(!(endp_prop((V741)))){ |
if(!(endp_prop((V741)))){ |
4980 |
goto T2692;} |
goto T2697;} |
4981 |
{object V743 = reverse((V740)); |
{object V743 = reverse((V740)); |
4982 |
VMR52(V743)} |
VMR52(V743)} |
4983 |
goto T2692; |
goto T2697; |
4984 |
T2692:; |
T2697:; |
4985 |
if(!(type_of((V742))==t_symbol)){ |
if(!(type_of((V742))==t_symbol)){ |
4986 |
goto T2698;} |
goto T2703;} |
4987 |
{object V744; |
{object V744; |
4988 |
base[2]= symbol_name((V742)); |
base[2]= symbol_name((V742)); |
4989 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4992 |
V745= vs_base[0]; |
V745= vs_base[0]; |
4993 |
V744= list(2,VV[74],V745); |
V744= list(2,VV[74],V745); |
4994 |
V740= make_cons((V744),(V740)); |
V740= make_cons((V744),(V740)); |
4995 |
goto T2696;} |
goto T2701;} |
4996 |
goto T2698; |
goto T2703; |
4997 |
T2698:; |
T2703:; |
4998 |
if(!(type_of((V742))==t_string)){ |
if(!(type_of((V742))==t_string)){ |
4999 |
goto T2705;} |
goto T2710;} |
5000 |
{object V746; |
{object V746; |
5001 |
V746= list(2,VV[74],(V742)); |
V746= list(2,VV[74],(V742)); |
5002 |
V740= make_cons((V746),(V740)); |
V740= make_cons((V746),(V740)); |
5003 |
goto T2696;} |
goto T2701;} |
5004 |
goto T2705; |
goto T2710; |
5005 |
T2705:; |
T2710:; |
5006 |
if(!(type_of((V742))==t_cons)){ |
if(!(type_of((V742))==t_cons)){ |
5007 |
goto T2710;} |
goto T2715;} |
5008 |
{register object x= car((V742)),V747= VV[241]; |
{register object x= car((V742)),V747= VV[241]; |
5009 |
while(!endp(V747)) |
while(!endp(V747)) |
5010 |
if(eql(x,V747->c.c_car)){ |
if(eql(x,V747->c.c_car)){ |
5011 |
goto T2713; |
goto T2718; |
5012 |
}else V747=V747->c.c_cdr; |
}else V747=V747->c.c_cdr; |
5013 |
goto T2710;} |
goto T2715;} |
5014 |
goto T2713; |
goto T2718; |
5015 |
T2713:; |
T2718:; |
5016 |
{register object V748; |
{register object V748; |
5017 |
register object V749; |
register object V749; |
5018 |
V748= cdr((V742)); |
V748= cdr((V742)); |
5019 |
V749= car((V748)); |
V749= car((V748)); |
5020 |
goto T2717; |
goto T2722; |
5021 |
T2717:; |
T2722:; |
5022 |
if(!(endp_prop((V748)))){ |
if(!(endp_prop((V748)))){ |
5023 |
goto T2718;} |
goto T2723;} |
5024 |
goto T2696; |
goto T2701; |
5025 |
goto T2718; |
goto T2723; |
5026 |
T2718:; |
T2723:; |
5027 |
{register object V750; |
{register object V750; |
5028 |
V751= car((V742)); |
V751= car((V742)); |
5029 |
if(!(type_of((V749))==t_symbol)){ |
if(!(type_of((V749))==t_symbol)){ |
5030 |
goto T2726;} |
goto T2731;} |
5031 |
base[4]= symbol_name((V749)); |
base[4]= symbol_name((V749)); |
5032 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5033 |
Lstring_downcase(); |
Lstring_downcase(); |
5034 |
vs_top=sup; |
vs_top=sup; |
5035 |
V752= vs_base[0]; |
V752= vs_base[0]; |
5036 |
goto T2724; |
goto T2729; |
5037 |
goto T2726; |
goto T2731; |
5038 |
T2726:; |
T2731:; |
5039 |
if(!(type_of((V749))==t_string)){ |
if(!(type_of((V749))==t_string)){ |
5040 |
goto T2730;} |
goto T2735;} |
5041 |
V752= (V749); |
V752= (V749); |
5042 |
goto T2724; |
goto T2729; |
5043 |
goto T2730; |
goto T2735; |
5044 |
T2730:; |
T2735:; |
5045 |
V752= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V749))); |
V752= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V749))); |
5046 |
goto T2724; |
goto T2729; |
5047 |
T2724:; |
T2729:; |
5048 |
V750= list(2,/* INLINE-ARGS */V751,V752); |
V750= list(2,/* INLINE-ARGS */V751,V752); |
5049 |
V740= make_cons((V750),(V740));} |
V740= make_cons((V750),(V740));} |
5050 |
V748= cdr((V748)); |
V748= cdr((V748)); |
5051 |
V749= car((V748)); |
V749= car((V748)); |
5052 |
goto T2717;} |
goto T2722;} |
5053 |
goto T2710; |
goto T2715; |
5054 |
T2710:; |
T2715:; |
5055 |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V742)))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V742)))); |
5056 |
goto T2696; |
goto T2701; |
5057 |
T2696:; |
T2701:; |
5058 |
V741= cdr((V741)); |
V741= cdr((V741)); |
5059 |
V742= car((V741)); |
V742= car((V741)); |
5060 |
goto T2691;}} |
goto T2696;}} |
5061 |
base[0]=base[0]; |
base[0]=base[0]; |
5062 |
return Cnil; |
return Cnil; |
5063 |
} |
} |
5074 |
register object V764; |
register object V764; |
5075 |
object V765; |
object V765; |
5076 |
if(((V758))==Cnil){ |
if(((V758))==Cnil){ |
5077 |
goto T2745;} |
goto T2750;} |
5078 |
V763= small_fixnum(0); |
V763= small_fixnum(0); |
5079 |
goto T2743; |
goto T2748; |
5080 |
goto T2745; |
goto T2750; |
5081 |
T2745:; |
T2750:; |
5082 |
V763= structure_ref((V761),VV[32],4); |
V763= structure_ref((V761),VV[32],4); |
5083 |
goto T2743; |
goto T2748; |
5084 |
T2743:; |
T2748:; |
5085 |
V764= Cnil; |
V764= Cnil; |
5086 |
bds_bind(VV[20],(*(LnkLI306))(cadr((V762)))); |
bds_bind(VV[20],(*(LnkLI309))(cadr((V762)))); |
5087 |
bds_bind(VV[117],Cnil); |
bds_bind(VV[117],Cnil); |
5088 |
V765= caaddr((V762)); |
V765= caaddr((V762)); |
5089 |
if((structure_ref((V761),VV[32],0))==Cnil){ |
if((structure_ref((V761),VV[32],0))==Cnil){ |
5090 |
goto T2753;} |
goto T2758;} |
5091 |
V766= structure_ref((V761),VV[32],0); |
V766= structure_ref((V761),VV[32],0); |
5092 |
goto T2751; |
goto T2756; |
5093 |
goto T2753; |
goto T2758; |
5094 |
T2753:; |
T2758:; |
5095 |
V766= Cnil; |
V766= Cnil; |
5096 |
goto T2751; |
goto T2756; |
5097 |
T2751:; |
T2756:; |
5098 |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[244],V766))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[244],V766))); |
5099 |
princ_str("\nstatic void ",VV[25]); |
princ_str("\nstatic void ",VV[25]); |
5100 |
if(((V758))==Cnil){ |
if(((V758))==Cnil){ |
5101 |
goto T2760;} |
goto T2765;} |
5102 |
V767= VV[245]; |
V767= VV[245]; |
5103 |
goto T2758; |
goto T2763; |
5104 |
goto T2760; |
goto T2765; |
5105 |
T2760:; |
T2765:; |
5106 |
V767= VV[246]; |
V767= VV[246]; |
5107 |
goto T2758; |
goto T2763; |
5108 |
T2758:; |
T2763:; |
5109 |
(void)((*(LnkLI274))(V767)); |
(void)((*(LnkLI274))(V767)); |
5110 |
V768= structure_ref((V761),VV[32],3); |
V768= structure_ref((V761),VV[32],3); |
5111 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V768)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V768)); |
5112 |
princ_char(40,VV[25]); |
princ_char(40,VV[25]); |
5113 |
princ_str("base0",VV[25]); |
princ_str("base0",VV[25]); |
5114 |
if(((V765))==Cnil){ |
if(((V765))==Cnil){ |
5115 |
goto T2769;} |
goto T2774;} |
5116 |
V769= VV[247]; |
V769= VV[247]; |
5117 |
goto T2767; |
goto T2772; |
5118 |
goto T2769; |
goto T2774; |
5119 |
T2769:; |
T2774:; |
5120 |
V769= VV[248]; |
V769= VV[248]; |
5121 |
goto T2767; |
goto T2772; |
5122 |
T2767:; |
T2772:; |
5123 |
(void)((*(LnkLI274))(V769)); |
(void)((*(LnkLI274))(V769)); |
5124 |
V770= structure_ref(cadr((V762)),VV[62],1); |
V770= structure_ref(cadr((V762)),VV[62],1); |
5125 |
(void)((*(LnkLI308))(/* INLINE-ARGS */V770,small_fixnum(2))); |
(void)((*(LnkLI311))(/* INLINE-ARGS */V770,small_fixnum(2))); |
5126 |
(void)((*(LnkLI313))(caaddr((V762)),Cnil)); |
(void)((*(LnkLI316))(caaddr((V762)),Cnil)); |
5127 |
princ_str("register object *",VV[25]); |
princ_str("register object *",VV[25]); |
5128 |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5129 |
princ_str("base0;",VV[25]); |
princ_str("base0;",VV[25]); |
5147 |
princ_str("\n{",VV[25]); |
princ_str("\n{",VV[25]); |
5148 |
V771= structure_ref(cadr((V762)),VV[62],1); |
V771= structure_ref(cadr((V762)),VV[62],1); |
5149 |
V772= structure_ref((V761),VV[32],3); |
V772= structure_ref((V761),VV[32],3); |
5150 |
(void)((*(LnkLI314))(/* INLINE-ARGS */V771,/* INLINE-ARGS */V772,VV[250])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V771,/* INLINE-ARGS */V772,VV[250])); |
5151 |
princ_str("\n VMB",VV[25]); |
princ_str("\n VMB",VV[25]); |
5152 |
(void)((*(LnkLI274))((V764))); |
(void)((*(LnkLI274))((V764))); |
5153 |
princ_str(" VMS",VV[25]); |
princ_str(" VMS",VV[25]); |
5155 |
princ_str(" VMV",VV[25]); |
princ_str(" VMV",VV[25]); |
5156 |
(void)((*(LnkLI274))((V764))); |
(void)((*(LnkLI274))((V764))); |
5157 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
5158 |
goto T2793;} |
goto T2798;} |
5159 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
5160 |
goto T2793; |
goto T2798; |
5161 |
T2793:; |
T2798:; |
5162 |
base[19]= caddr(cddr((V762))); |
base[19]= caddr(cddr((V762))); |
5163 |
vs_top=(vs_base=base+19)+1; |
vs_top=(vs_base=base+19)+1; |
5164 |
(void) (*Lnk315)(); |
(void) (*Lnk318)(); |
5165 |
vs_top=sup; |
vs_top=sup; |
5166 |
if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){ |
5167 |
goto T2801;} |
goto T2806;} |
5168 |
if(((VV[138]->s.s_dbind))!=Cnil){ |
if(((VV[138]->s.s_dbind))!=Cnil){ |
5169 |
goto T2801;} |
goto T2806;} |
5170 |
if(((VV[140]->s.s_dbind))!=Cnil){ |
if(((VV[140]->s.s_dbind))!=Cnil){ |
5171 |
goto T2801;} |
goto T2806;} |
5172 |
goto T2799; |
goto T2804; |
5173 |
goto T2801; |
goto T2806; |
5174 |
T2801:; |
T2806:; |
5175 |
princ_str("\n base[0]=base[0];",VV[25]); |
princ_str("\n base[0]=base[0];",VV[25]); |
5176 |
goto T2799; |
goto T2804; |
5177 |
T2799:; |
T2804:; |
5178 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
5179 |
(void)((*(LnkLI316))((V764),Ct)); |
(void)((*(LnkLI319))((V764),Ct)); |
5180 |
V773= structure_ref((V761),VV[32],3); |
V773= structure_ref((V761),VV[32],3); |
5181 |
{object V774 = (*(LnkLI310))(/* INLINE-ARGS */V773); |
{object V774 = (*(LnkLI313))(/* INLINE-ARGS */V773); |
5182 |
bds_unwind1; |
bds_unwind1; |
5183 |
bds_unwind1; |
bds_unwind1; |
5184 |
bds_unwind1; |
bds_unwind1; |
5211 |
TTL:; |
TTL:; |
5212 |
{long V785; |
{long V785; |
5213 |
if(((V780))==Cnil){ |
if(((V780))==Cnil){ |
5214 |
goto T2813;} |
goto T2818;} |
5215 |
V785= 0; |
V785= 0; |
5216 |
goto T2811; |
goto T2816; |
5217 |
goto T2813; |
goto T2818; |
5218 |
T2813:; |
T2818:; |
5219 |
V785= fix(structure_ref((V783),VV[32],4)); |
V785= fix(structure_ref((V783),VV[32],4)); |
5220 |
goto T2811; |
goto T2816; |
5221 |
T2811:; |
T2816:; |
5222 |
bds_bind(VV[20],(*(LnkLI306))(cadr((V784)))); |
bds_bind(VV[20],(*(LnkLI309))(cadr((V784)))); |
5223 |
bds_bind(VV[117],Cnil); |
bds_bind(VV[117],Cnil); |
5224 |
if(!(((V780))==(VV[251]))){ |
if(!(((V780))==(VV[251]))){ |
5225 |
goto T2816;} |
goto T2821;} |
5226 |
{object V786 = (*(LnkLI250))((V780),(V781),(V782),(V783),(V784)); |
{object V786 = (*(LnkLI250))((V780),(V781),(V782),(V783),(V784)); |
5227 |
bds_unwind1; |
bds_unwind1; |
5228 |
bds_unwind1; |
bds_unwind1; |
5229 |
VMR54(V786)} |
VMR54(V786)} |
5230 |
goto T2816; |
goto T2821; |
5231 |
T2816:; |
T2821:; |
5232 |
if((structure_ref((V783),VV[32],0))==Cnil){ |
if((structure_ref((V783),VV[32],0))==Cnil){ |
5233 |
goto T2822;} |
goto T2827;} |
5234 |
V787= structure_ref((V783),VV[32],0); |
V787= structure_ref((V783),VV[32],0); |
5235 |
goto T2820; |
goto T2825; |
5236 |
goto T2822; |
goto T2827; |
5237 |
T2822:; |
T2827:; |
5238 |
V787= Cnil; |
V787= Cnil; |
5239 |
goto T2820; |
goto T2825; |
5240 |
T2820:; |
T2825:; |
5241 |
(void)((VFUN_NARGS=2,(*(LnkLI312))(VV[252],V787))); |
(void)((VFUN_NARGS=2,(*(LnkLI315))(VV[252],V787))); |
5242 |
princ_str("\nstatic void ",VV[31]); |
princ_str("\nstatic void ",VV[31]); |
5243 |
if(((V780))==Cnil){ |
if(((V780))==Cnil){ |
5244 |
goto T2829;} |
goto T2834;} |
5245 |
V788= VV[253]; |
V788= VV[253]; |
5246 |
goto T2827; |
goto T2832; |
5247 |
goto T2829; |
goto T2834; |
5248 |
T2829:; |
T2834:; |
5249 |
V788= VV[254]; |
V788= VV[254]; |
5250 |
goto T2827; |
goto T2832; |
5251 |
T2827:; |
T2832:; |
5252 |
(void)((*(LnkLI277))(V788)); |
(void)((*(LnkLI277))(V788)); |
5253 |
V789= structure_ref((V783),VV[32],3); |
V789= structure_ref((V783),VV[32],3); |
5254 |
(void)((*(LnkLI277))(/* INLINE-ARGS */V789)); |
(void)((*(LnkLI277))(/* INLINE-ARGS */V789)); |
5255 |
princ_str("();",VV[31]); |
princ_str("();",VV[31]); |
5256 |
princ_str("\nstatic void ",VV[25]); |
princ_str("\nstatic void ",VV[25]); |
5257 |
if(((V780))==Cnil){ |
if(((V780))==Cnil){ |
5258 |
goto T2838;} |
goto T2843;} |
5259 |
V790= VV[255]; |
V790= VV[255]; |
5260 |
goto T2836; |
goto T2841; |
5261 |
goto T2838; |
goto T2843; |
5262 |
T2838:; |
T2843:; |
5263 |
V790= VV[256]; |
V790= VV[256]; |
5264 |
goto T2836; |
goto T2841; |
5265 |
T2836:; |
T2841:; |
5266 |
(void)((*(LnkLI274))(V790)); |
(void)((*(LnkLI274))(V790)); |
5267 |
V791= structure_ref((V783),VV[32],3); |
V791= structure_ref((V783),VV[32],3); |
5268 |
(void)((*(LnkLI274))(/* INLINE-ARGS */V791)); |
(void)((*(LnkLI274))(/* INLINE-ARGS */V791)); |
5271 |
register long V793; |
register long V793; |
5272 |
V792= make_fixnum(V785); |
V792= make_fixnum(V785); |
5273 |
V793= 0; |
V793= 0; |
5274 |
goto T2846; |
goto T2851; |
5275 |
T2846:; |
T2851:; |
5276 |
V794 = make_fixnum(V793); |
V794 = make_fixnum(V793); |
5277 |
if(!(number_compare(V794,(V792))>=0)){ |
if(!(number_compare(V794,(V792))>=0)){ |
5278 |
goto T2847;} |
goto T2852;} |
5279 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5280 |
V795 = make_fixnum(V793); |
V795 = make_fixnum(V793); |
5281 |
(void)((*(LnkLI274))(V795)); |
(void)((*(LnkLI274))(V795)); |
5282 |
princ_char(41,VV[25]); |
princ_char(41,VV[25]); |
|
goto T2842; |
|
5283 |
goto T2847; |
goto T2847; |
5284 |
T2847:; |
goto T2852; |
5285 |
|
T2852:; |
5286 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5287 |
V796 = make_fixnum(V793); |
V796 = make_fixnum(V793); |
5288 |
(void)((*(LnkLI274))(V796)); |
(void)((*(LnkLI274))(V796)); |
5289 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
5290 |
V793= (long)(V793)+1; |
V793= (long)(V793)+1; |
5291 |
goto T2846;} |
goto T2851;} |
5292 |
goto T2842; |
goto T2847; |
5293 |
T2842:; |
T2847:; |
5294 |
princ_str("\nregister object ",VV[25]); |
princ_str("\nregister object ",VV[25]); |
5295 |
{register object V797; |
{register object V797; |
5296 |
register long V798; |
register long V798; |
5297 |
V797= make_fixnum(V785); |
V797= make_fixnum(V785); |
5298 |
V798= 0; |
V798= 0; |
5299 |
goto T2867; |
goto T2872; |
5300 |
T2867:; |
T2872:; |
5301 |
V799 = make_fixnum(V798); |
V799 = make_fixnum(V798); |
5302 |
if(!(number_compare(V799,(V797))>=0)){ |
if(!(number_compare(V799,(V797))>=0)){ |
5303 |
goto T2868;} |
goto T2873;} |
5304 |
princ_char(42,VV[25]); |
princ_char(42,VV[25]); |
5305 |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5306 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5307 |
V800 = make_fixnum(V798); |
V800 = make_fixnum(V798); |
5308 |
(void)((*(LnkLI274))(V800)); |
(void)((*(LnkLI274))(V800)); |
5309 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
|
goto T2863; |
|
5310 |
goto T2868; |
goto T2868; |
5311 |
T2868:; |
goto T2873; |
5312 |
|
T2873:; |
5313 |
princ_char(42,VV[25]); |
princ_char(42,VV[25]); |
5314 |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[20]->s.s_dbind))); |
5315 |
princ_str("base",VV[25]); |
princ_str("base",VV[25]); |
5317 |
(void)((*(LnkLI274))(V801)); |
(void)((*(LnkLI274))(V801)); |
5318 |
princ_char(44,VV[25]); |
princ_char(44,VV[25]); |
5319 |
V798= (long)(V798)+1; |
V798= (long)(V798)+1; |
5320 |
goto T2867;} |
goto T2872;} |
5321 |
goto T2863; |
goto T2868; |
5322 |
T2863:; |
T2868:; |
5323 |
V802= structure_ref(cadr((V784)),VV[62],1); |
V802= structure_ref(cadr((V784)),VV[62],1); |
5324 |
(void)((*(LnkLI308))(/* INLINE-ARGS */V802,small_fixnum(2))); |
(void)((*(LnkLI311))(/* INLINE-ARGS */V802,small_fixnum(2))); |
5325 |
bds_bind(VV[128],VV[127]); |
bds_bind(VV[128],VV[127]); |
5326 |
bds_bind(VV[249],(V782)); |
bds_bind(VV[249],(V782)); |
5327 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
5349 |
princ_char(59,VV[25]); |
princ_char(59,VV[25]); |
5350 |
V804= structure_ref(cadr((V784)),VV[62],1); |
V804= structure_ref(cadr((V784)),VV[62],1); |
5351 |
V805= structure_ref((V783),VV[32],3); |
V805= structure_ref((V783),VV[32],3); |
5352 |
(void)((*(LnkLI314))(/* INLINE-ARGS */V804,/* INLINE-ARGS */V805,VV[257])); |
(void)((*(LnkLI317))(/* INLINE-ARGS */V804,/* INLINE-ARGS */V805,VV[257])); |
5353 |
princ_str(" VC",VV[25]); |
princ_str(" VC",VV[25]); |
5354 |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
5355 |
if((symbol_value(VV[163]))==Cnil){ |
if((symbol_value(VV[163]))==Cnil){ |
5356 |
goto T2908;} |
goto T2913;} |
5357 |
princ_str("\n vs_reserve(VM",VV[25]); |
princ_str("\n vs_reserve(VM",VV[25]); |
5358 |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI274))((VV[136]->s.s_dbind))); |
5359 |
princ_str(");",VV[25]); |
princ_str(");",VV[25]); |
5360 |
goto T2906; |
goto T2911; |
5361 |
goto T2908; |
goto T2913; |
5362 |
T2908:; |
T2913:; |
5363 |
princ_str("\n vs_check;",VV[25]); |
princ_str("\n vs_check;",VV[25]); |
5364 |
goto T2906; |
goto T2911; |
5365 |
T2906:; |
T2911:; |
5366 |
if((symbol_value(VV[149]))==Cnil){ |
if((symbol_value(VV[149]))==Cnil){ |
5367 |
goto T2914;} |
goto T2919;} |
5368 |
princ_str("\n ihs_check;",VV[25]); |
princ_str("\n ihs_check;",VV[25]); |
5369 |
goto T2914; |
goto T2919; |
5370 |
T2914:; |
T2919:; |
5371 |
if(((V780))==Cnil){ |
if(((V780))==Cnil){ |
5372 |
goto T2920;} |
goto T2925;} |
5373 |
(void)((VFUN_NARGS=2,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784)))))); |
(void)((VFUN_NARGS=2,(*(LnkLI334))(caddr((V784)),caddr(cddr((V784)))))); |
5374 |
goto T2918; |
goto T2923; |
5375 |
goto T2920; |
goto T2925; |
5376 |
T2920:; |
T2925:; |
5377 |
(void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784))),(V783)))); |
(void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V784)),caddr(cddr((V784))),(V783)))); |
5378 |
goto T2918; |
goto T2923; |
5379 |
T2918:; |
T2923:; |
5380 |
princ_str("\n}",VV[25]); |
princ_str("\n}",VV[25]); |
5381 |
{object V806; |
{object V806; |
5382 |
V806= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
V806= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind)); |
5383 |
setq(VV[33],make_cons((V806),symbol_value(VV[33])));} |
setq(VV[33],make_cons((V806),symbol_value(VV[33])));} |
5384 |
princ_str("\n#define VC",VV[31]); |
princ_str("\n#define VC",VV[31]); |
5385 |
(void)((*(LnkLI277))((VV[136]->s.s_dbind))); |
(void)((*(LnkLI277))((VV[136]->s.s_dbind))); |
5386 |
V807= (*(LnkLI332))(); |
V807= (*(LnkLI335))(); |
5387 |
bds_unwind1; |
bds_unwind1; |
5388 |
bds_unwind1; |
bds_unwind1; |
5389 |
bds_unwind1; |
bds_unwind1; |
5400 |
bds_unwind1; |
bds_unwind1; |
5401 |
bds_unwind1; |
bds_unwind1; |
5402 |
V808= structure_ref((V783),VV[32],3); |
V808= structure_ref((V783),VV[32],3); |
5403 |
{object V809 = (*(LnkLI310))(/* INLINE-ARGS */V808); |
{object V809 = (*(LnkLI313))(/* INLINE-ARGS */V808); |
5404 |
bds_unwind1; |
bds_unwind1; |
5405 |
bds_unwind1; |
bds_unwind1; |
5406 |
VMR54(V809)}} |
VMR54(V809)}} |
5420 |
register object V812; |
register object V812; |
5421 |
V811= symbol_value(VV[18]); |
V811= symbol_value(VV[18]); |
5422 |
V812= car((V811)); |
V812= car((V811)); |
5423 |
goto T2935; |
goto T2940; |
5424 |
T2935:; |
T2940:; |
5425 |
if(!(endp_prop((V811)))){ |
if(!(endp_prop((V811)))){ |
5426 |
goto T2936;} |
goto T2941;} |
|
goto T2931; |
|
5427 |
goto T2936; |
goto T2936; |
5428 |
T2936:; |
goto T2941; |
5429 |
|
T2941:; |
5430 |
{register object V813; |
{register object V813; |
5431 |
if(!(type_of((V812))==t_cons)){ |
if(!(type_of((V812))==t_cons)){ |
5432 |
goto T2943;} |
goto T2948;} |
5433 |
{register object V814; |
{register object V814; |
5434 |
V814= car((V812)); |
V814= car((V812)); |
5435 |
V812= cdr((V812)); |
V812= cdr((V812)); |
5436 |
V813= (V814); |
V813= (V814); |
5437 |
goto T2941;} |
goto T2946;} |
5438 |
goto T2943; |
goto T2948; |
5439 |
T2943:; |
T2948:; |
5440 |
V813= Ct; |
V813= Ct; |
5441 |
goto T2941; |
goto T2946; |
5442 |
T2941:; |
T2946:; |
5443 |
if(!(((V810))==((V813)))){ |
if(!(((V810))==((V813)))){ |
5444 |
goto T2950;} |
goto T2955;} |
5445 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5446 |
base[2]= VV[258]; |
base[2]= VV[258]; |
5447 |
base[3]= (V812); |
base[3]= (V812); |
5448 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5449 |
Lformat(); |
Lformat(); |
5450 |
vs_top=sup; |
vs_top=sup; |
5451 |
goto T2948; |
goto T2953; |
|
goto T2950; |
|
|
T2950:; |
|
|
if(!(((V810))==Cnil)){ |
|
|
goto T2956;} |
|
5452 |
goto T2955; |
goto T2955; |
5453 |
goto T2956; |
T2955:; |
5454 |
T2956:; |
if(!(((V810))==Cnil)){ |
5455 |
|
goto T2961;} |
5456 |
|
goto T2960; |
5457 |
|
goto T2961; |
5458 |
|
T2961:; |
5459 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5460 |
base[2]= VV[259]; |
base[2]= VV[259]; |
5461 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5462 |
Lformat(); |
Lformat(); |
5463 |
vs_top=sup; |
vs_top=sup; |
5464 |
goto T2955; |
goto T2960; |
5465 |
T2955:; |
T2960:; |
5466 |
V810= (V813); |
V810= (V813); |
5467 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5468 |
base[2]= VV[260]; |
base[2]= VV[260]; |
5471 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
5472 |
Lformat(); |
Lformat(); |
5473 |
vs_top=sup; |
vs_top=sup; |
5474 |
goto T2948; |
goto T2953; |
5475 |
T2948:; |
T2953:; |
5476 |
if(!(((V810))==(VV[261]))){ |
if(!(((V810))==(VV[261]))){ |
5477 |
goto T2940;} |
goto T2945;} |
5478 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
5479 |
base[2]= VV[262]; |
base[2]= VV[262]; |
5480 |
base[3]= (V812); |
base[3]= (V812); |
5481 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5482 |
Lformat(); |
Lformat(); |
5483 |
vs_top=sup;} |
vs_top=sup;} |
5484 |
goto T2940; |
goto T2945; |
5485 |
T2940:; |
T2945:; |
5486 |
V811= cdr((V811)); |
V811= cdr((V811)); |
5487 |
V812= car((V811)); |
V812= car((V811)); |
5488 |
goto T2935;} |
goto T2940;} |
5489 |
goto T2931; |
goto T2936; |
5490 |
T2931:; |
T2936:; |
5491 |
if(symbol_value(VV[18])==Cnil){ |
if(symbol_value(VV[18])==Cnil){ |
5492 |
goto T2976;} |
goto T2981;} |
5493 |
base[0]= symbol_value(VV[31]); |
base[0]= symbol_value(VV[31]); |
5494 |
base[1]= VV[263]; |
base[1]= VV[263]; |
5495 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5496 |
Lformat(); |
Lformat(); |
5497 |
vs_top=sup; |
vs_top=sup; |
5498 |
goto T2976; |
goto T2981; |
5499 |
T2976:; |
T2981:; |
5500 |
if(eql(symbol_value(VV[141]),small_fixnum(0))){ |
if(eql(symbol_value(VV[141]),small_fixnum(0))){ |
5501 |
goto T2980;} |
goto T2985;} |
5502 |
base[0]= symbol_value(VV[31]); |
base[0]= symbol_value(VV[31]); |
5503 |
base[1]= VV[264]; |
base[1]= VV[264]; |
5504 |
base[2]= symbol_value(VV[141]); |
base[2]= symbol_value(VV[141]); |
5507 |
vs_top=sup; |
vs_top=sup; |
5508 |
{object V815 = vs_base[0]; |
{object V815 = vs_base[0]; |
5509 |
VMR55(V815)} |
VMR55(V815)} |
5510 |
goto T2980; |
goto T2985; |
5511 |
T2980:; |
T2985:; |
5512 |
{object V816 = Cnil; |
{object V816 = Cnil; |
5513 |
VMR55(V816)}} |
VMR55(V816)}} |
5514 |
base[0]=base[0]; |
base[0]=base[0]; |
5529 |
TTL:; |
TTL:; |
5530 |
V818= structure_ref((V817),VV[69],4); |
V818= structure_ref((V817),VV[69],4); |
5531 |
if(eql(/* INLINE-ARGS */V818,VV[72])){ |
if(eql(/* INLINE-ARGS */V818,VV[72])){ |
5532 |
goto T2986;} |
goto T2991;} |
5533 |
goto T2985; |
goto T2990; |
5534 |
goto T2986; |
goto T2991; |
5535 |
T2986:; |
T2991:; |
5536 |
(VV[153]->s.s_dbind)= Ct; |
(VV[153]->s.s_dbind)= Ct; |
5537 |
goto T2985; |
goto T2990; |
5538 |
T2985:; |
T2990:; |
5539 |
{object V819; |
{object V819; |
5540 |
V819= (*(LnkLI345))((V817)); |
V819= (*(LnkLI348))((V817)); |
5541 |
if(((V819))==Cnil){ |
if(((V819))==Cnil){ |
5542 |
goto T2991;} |
goto T2996;} |
5543 |
{object V820; |
{object V820; |
5544 |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1))); |
5545 |
V820= symbol_value(VV[88]); |
V820= symbol_value(VV[88]); |
5547 |
(void)(structure_set((V817),VV[69],4,(V820))); |
(void)(structure_set((V817),VV[69],4,(V820))); |
5548 |
princ_str("\n ",VV[25]); |
princ_str("\n ",VV[25]); |
5549 |
if((base0[1])!=Cnil){ |
if((base0[1])!=Cnil){ |
5550 |
goto T2998;} |
goto T3003;} |
5551 |
princ_char(123,VV[25]); |
princ_char(123,VV[25]); |
5552 |
base0[1]= Ct; |
base0[1]= Ct; |
5553 |
goto T2998; |
goto T3003; |
5554 |
T2998:; |
T3003:; |
5555 |
base[1]= (V817); |
base[1]= (V817); |
5556 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5557 |
(void) (*Lnk346)(); |
(void) (*Lnk349)(); |
5558 |
return;} |
return;} |
5559 |
goto T2991; |
goto T2996; |
5560 |
T2991:; |
T2996:; |
5561 |
base[1]= Cnil; |
base[1]= Cnil; |
5562 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5563 |
return;} |
return;} |
5564 |
} |
} |
5565 |
} |
} |
5566 |
static void LnkT346(){ call_or_link(VV[346],(void **)&Lnk346);} /* WT-VAR-DECL */ |
static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* WT-VAR-DECL */ |
5567 |
static object LnkTLI345(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[345],(void **)&LnkLI345,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
static object LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)&LnkLI348,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
5568 |
static object LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)&LnkLI250,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */ |
static object LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)&LnkLI250,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */ |
5569 |
static object LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)&LnkLI340,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */ |
static object LnkTLI343(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[343],(void **)&LnkLI343,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */ |
5570 |
static object LnkTLI339(){return call_proc0(VV[339],(void **)&LnkLI339);} /* WFS-ERROR */ |
static object LnkTLI342(){return call_proc0(VV[342],(void **)&LnkLI342);} /* WFS-ERROR */ |
5571 |
static void LnkT338(){ call_or_link(VV[338],(void **)&Lnk338);} /* C2DM */ |
static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* C2DM */ |
5572 |
static object LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[337],(void **)&LnkLI337,3,first,ap);va_end(ap);return V1;} /* C1DM */ |
static object LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)&LnkLI340,3,first,ap);va_end(ap);return V1;} /* C1DM */ |
5573 |
static object LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[336],(void **)&LnkLI336,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */ |
static object LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[339],(void **)&LnkLI339,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */ |
5574 |
static object LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[335],(void **)&LnkLI335,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */ |
static object LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)&LnkLI338,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */ |
5575 |
static object LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)&LnkLI334,first,ap);va_end(ap);return V1;} /* WARN */ |
static object LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[337],(void **)&LnkLI337,first,ap);va_end(ap);return V1;} /* WARN */ |
5576 |
static object LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)&LnkLI333,1,first,ap);va_end(ap);return V1;} /* REGISTER */ |
static object LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)&LnkLI336,1,first,ap);va_end(ap);return V1;} /* REGISTER */ |
5577 |
static object LnkTLI332(){return call_proc0(VV[332],(void **)&LnkLI332);} /* WT-CVARS */ |
static object LnkTLI335(){return call_proc0(VV[335],(void **)&LnkLI335);} /* WT-CVARS */ |
5578 |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[331],(void **)&LnkLI331,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */ |
static object LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)&LnkLI334,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */ |
5579 |
static object LnkTLI330(){return call_proc0(VV[330],(void **)&LnkLI330);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI333(){return call_proc0(VV[333],(void **)&LnkLI333);} /* CLOSE-INLINE-BLOCKS */ |
5580 |
static object LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)&LnkLI329,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
static object LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
5581 |
static object LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* C2BIND */ |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* C2BIND */ |
5582 |
static object LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)&LnkLI327,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
static object LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)&LnkLI330,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
5583 |
static object LnkTLI326(){return call_proc0(VV[326],(void **)&LnkLI326);} /* BABOON */ |
static object LnkTLI329(){return call_proc0(VV[329],(void **)&LnkLI329);} /* BABOON */ |
5584 |
static object LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)&LnkLI325,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
static object LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
5585 |
static void LnkT324(){ call_or_link(VV[324],(void **)&Lnk324);} /* INC-INLINE-BLOCKS */ |
static void LnkT327(){ call_or_link(VV[327],(void **)&Lnk327);} /* INC-INLINE-BLOCKS */ |
5586 |
static object LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[323],(void **)&LnkLI323,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
static object LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[326],(void **)&LnkLI326,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
5587 |
static object LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)&LnkLI322,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
static object LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)&LnkLI325,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
5588 |
static object LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)&LnkLI321,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
static object LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)&LnkLI324,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
5589 |
static object LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)&LnkLI320,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */ |
static object LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)&LnkLI323,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */ |
5590 |
static object LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[319],(void **)&LnkLI319,first,ap);va_end(ap);return V1;} /* CONCATENATE */ |
static object LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[322],(void **)&LnkLI322,first,ap);va_end(ap);return V1;} /* CONCATENATE */ |
5591 |
static object LnkTLI318(){return call_proc0(VV[318],(void **)&LnkLI318);} /* CVS-PUSH */ |
static object LnkTLI321(){return call_proc0(VV[321],(void **)&LnkLI321);} /* CVS-PUSH */ |
5592 |
static object LnkTLI317(){return call_proc0(VV[317],(void **)&LnkLI317);} /* VS-PUSH */ |
static object LnkTLI320(){return call_proc0(VV[320],(void **)&LnkLI320);} /* VS-PUSH */ |
5593 |
static object LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */ |
static object LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)&LnkLI319,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */ |
5594 |
static void LnkT315(){ call_or_link(VV[315],(void **)&Lnk315);} /* C2EXPR */ |
static void LnkT318(){ call_or_link(VV[318],(void **)&Lnk318);} /* C2EXPR */ |
5595 |
static object LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)&LnkLI314,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */ |
static object LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)&LnkLI317,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */ |
5596 |
static object LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)&LnkLI313,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */ |
static object LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */ |
5597 |
static object LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[312],(void **)&LnkLI312,first,ap);va_end(ap);return V1;} /* WT-COMMENT */ |
static object LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[315],(void **)&LnkLI315,first,ap);va_end(ap);return V1;} /* WT-COMMENT */ |
5598 |
static object LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)&LnkLI311,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */ |
static object LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */ |
5599 |
static object LnkTLI310(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[310],(void **)&LnkLI310,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */ |
static object LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)&LnkLI313,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */ |
5600 |
static void LnkT309(){ call_or_link(VV[309],(void **)&Lnk309);} /* T3DEFUN-AUX */ |
static void LnkT312(){ call_or_link(VV[312],(void **)&Lnk312);} /* T3DEFUN-AUX */ |
5601 |
static object LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)&LnkLI308,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */ |
static object LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)&LnkLI311,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */ |
5602 |
static void LnkT307(){ call_or_link(VV[307],(void **)&Lnk307);} /* FIXNUMP */ |
static void LnkT310(){ call_or_link(VV[310],(void **)&Lnk310);} /* FIXNUMP */ |
5603 |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* VOLATILE */ |
static object LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)&LnkLI309,1,first,ap);va_end(ap);return V1;} /* VOLATILE */ |
5604 |
static object LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* MAXARGS */ |
static object LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)&LnkLI308,1,first,ap);va_end(ap);return V1;} /* MAXARGS */ |
5605 |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)&LnkLI304,1,first,ap);va_end(ap);return V1;} /* VARARG-P */ |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)&LnkLI307,1,first,ap);va_end(ap);return V1;} /* VARARG-P */ |
5606 |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)&LnkLI303,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */ |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)&LnkLI306,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */ |
5607 |
static object LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)&LnkLI302,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
static object LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)&LnkLI305,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
5608 |
static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */ |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)&LnkLI304,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */ |
5609 |
static object LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[300],(void **)&LnkLI300,first,ap);va_end(ap);return V1;} /* ADD-INIT */ |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[303],(void **)&LnkLI303,first,ap);va_end(ap);return V1;} /* ADD-INIT */ |
5610 |
static object LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[299],(void **)&LnkLI299,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
static object LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[302],(void **)&LnkLI302,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
5611 |
static object LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[298],(void **)&LnkLI298,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */ |
static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */ |
5612 |
static object LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)&LnkLI297,257,first,ap);va_end(ap);return V1;} /* F-TYPE */ |
static object LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[300],(void **)&LnkLI300,257,first,ap);va_end(ap);return V1;} /* F-TYPE */ |
5613 |
static void LnkT296(){ call_or_link(VV[296],(void **)&Lnk296);} /* SUBTYPEP */ |
static void LnkT299(){ call_or_link(VV[299],(void **)&Lnk299);} /* SUBTYPEP */ |
5614 |
static void LnkT295(){ call_or_link(VV[295],(void **)&Lnk295);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT298(){ call_or_link(VV[298],(void **)&Lnk298);} /* STRUCTURE-SUBTYPE-P */ |
5615 |
static object LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[294],(void **)&LnkLI294,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
static object LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[297],(void **)&LnkLI297,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
5616 |
static object LnkTLI293(){return call_proc0(VV[293],(void **)&LnkLI293);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
static object LnkTLI296(){return call_proc0(VV[296],(void **)&LnkLI296);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
5617 |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */ |
static object LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[295],(void **)&LnkLI295,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */ |
5618 |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)&LnkLI291,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
static object LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)&LnkLI294,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
5619 |
static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)&LnkLI290,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */ |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)&LnkLI293,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */ |
5620 |
static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */ |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)&LnkLI292,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */ |
5621 |
static object LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)&LnkLI288,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */ |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)&LnkLI291,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */ |
5622 |
static object LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[287],(void **)&LnkLI287,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[290],(void **)&LnkLI290,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
5623 |
static object LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)&LnkLI286,1,first,ap);va_end(ap);return V1;} /* T1PROGN */ |
static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* T1PROGN */ |
5624 |
static object LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)&LnkLI283,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
static object LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)&LnkLI283,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
5625 |
static void LnkT282(){ call_or_link(VV[282],(void **)&Lnk282);} /* CMP-EVAL */ |
static void LnkT282(){ call_or_link(VV[282],(void **)&Lnk282);} /* CMP-EVAL */ |
5626 |
static void LnkT281(){ call_or_link(VV[281],(void **)&Lnk281);} /* DECLARATION-TYPE */ |
static void LnkT281(){ call_or_link(VV[281],(void **)&Lnk281);} /* DECLARATION-TYPE */ |
5645 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
5646 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |
5647 |
#endif |
#endif |
5648 |
|
|