670 |
goto T227; |
goto T227; |
671 |
goto T231; |
goto T231; |
672 |
T231:; |
T231:; |
|
V120= make_cons(car((V119)),(V120)); |
|
673 |
{register object V122; |
{register object V122; |
674 |
V122= car((V119)); |
V122= car((V119)); |
675 |
|
V120= make_cons((V122),(V120));} |
676 |
|
{register object V123; |
677 |
|
V123= car((V119)); |
678 |
V119= cdr((V119));} |
V119= cdr((V119));} |
679 |
V121= (long)(1)+(V121); |
V121= (long)(1)+(V121); |
680 |
goto T230;} |
goto T230;} |
681 |
goto T227; |
goto T227; |
682 |
T227:; |
T227:; |
683 |
{register long V123; |
{register long V124; |
684 |
register long V124; |
register long V125; |
685 |
V123= V114; |
V124= V114; |
686 |
V124= 0; |
V125= 0; |
687 |
goto T247; |
goto T248; |
688 |
T247:; |
T248:; |
689 |
if((V123)>=(V115)){ |
if((V124)>=(V115)){ |
690 |
goto T249;} |
goto T250;} |
691 |
if((V124)>=(V118)){ |
if((V125)>=(V118)){ |
692 |
goto T249;} |
goto T250;} |
693 |
if(!(endp_prop((V119)))){ |
if(!(endp_prop((V119)))){ |
694 |
goto T248;} |
goto T249;} |
695 |
goto T249; |
goto T250; |
696 |
T249:; |
T250:; |
697 |
base[0]= (V120); |
base[0]= (V120); |
698 |
base[1]= (V119); |
base[1]= (V119); |
699 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
700 |
Lreconc(); |
Lreconc(); |
701 |
vs_top=sup; |
vs_top=sup; |
702 |
{object V125 = vs_base[0]; |
{object V126 = vs_base[0]; |
703 |
VMR11(V125)} |
VMR11(V126)} |
704 |
goto T248; |
goto T249; |
705 |
T248:; |
T249:; |
706 |
base[0]= car((V119)); |
base[0]= car((V119)); |
707 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
708 |
super_funcall_no_event((V113)); |
super_funcall_no_event((V113)); |
709 |
vs_top=sup; |
vs_top=sup; |
710 |
V126= vs_base[0]; |
V127= vs_base[0]; |
711 |
if(((*(LnkLI41))((V108),(V109),(V105),V126))==Cnil){ |
if(((*(LnkLI41))((V108),(V109),(V105),V127))==Cnil){ |
712 |
goto T260;} |
goto T261;} |
713 |
V124= (long)(1)+(V124); |
V125= (long)(1)+(V125); |
|
{register object V127; |
|
|
V127= car((V119)); |
|
|
V119= cdr((V119)); |
|
|
goto T258;} |
|
|
goto T260; |
|
|
T260:; |
|
|
V120= make_cons(car((V119)),(V120)); |
|
714 |
{register object V128; |
{register object V128; |
715 |
V128= car((V119)); |
V128= car((V119)); |
716 |
|
V119= cdr((V119)); |
717 |
|
goto T259;} |
718 |
|
goto T261; |
719 |
|
T261:; |
720 |
|
{register object V129; |
721 |
|
V129= car((V119)); |
722 |
|
V120= make_cons((V129),(V120));} |
723 |
|
{register object V130; |
724 |
|
V130= car((V119)); |
725 |
V119= cdr((V119));} |
V119= cdr((V119));} |
726 |
goto T258; |
goto T259; |
727 |
T258:; |
T259:; |
728 |
V123= (long)(1)+(V123); |
V124= (long)(1)+(V124); |
729 |
goto T247;}} |
goto T248;}} |
730 |
goto T225; |
goto T225; |
731 |
T225:; |
T225:; |
732 |
V129 = make_fixnum(V114); |
V131 = make_fixnum(V114); |
733 |
V130 = make_fixnum(V115); |
V132 = make_fixnum(V115); |
734 |
V131 = make_fixnum(V118); |
V133 = make_fixnum(V118); |
735 |
{object V132 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V129,VV[14],V130,VV[15],V131,VV[16],(V113))); |
{object V134 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V131,VV[14],V132,VV[15],V133,VV[16],(V113))); |
736 |
VMR11(V132)} |
VMR11(V134)} |
737 |
goto T222; |
goto T222; |
738 |
T222:; |
T222:; |
739 |
V133 = make_fixnum(V114); |
V135 = make_fixnum(V114); |
740 |
V134 = make_fixnum(V115); |
V136 = make_fixnum(V115); |
741 |
V135 = make_fixnum(V118); |
V137 = make_fixnum(V118); |
742 |
{object V136 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V133,VV[14],V134,VV[15],V135,VV[16],(V113))); |
{object V138 = (VFUN_NARGS=16,(*(LnkLI42))((V105),(V106),VV[10],(V107),VV[11],(V108),VV[12],(V109),VV[13],V135,VV[14],V136,VV[15],V137,VV[16],(V113))); |
743 |
VMR11(V136)}}}} |
VMR11(V138)}}}} |
744 |
va_end(ap); |
va_end(ap); |
745 |
base[0]=base[0]; |
base[0]=base[0]; |
746 |
return Cnil;} |
return Cnil;} |
747 |
}} |
}} |
748 |
/* local entry for function REMOVE-IF */ |
/* local entry for function REMOVE-IF */ |
749 |
|
|
750 |
static object LI12(V138,V137,va_alist) |
static object LI12(V140,V139,va_alist) |
751 |
object V138,V137; |
object V140,V139; |
752 |
va_dcl |
va_dcl |
753 |
{ |
{ |
754 |
va_list ap; |
va_list ap; |
755 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
756 |
{object V139; |
{object V141; |
|
object V140; |
|
|
object V141; |
|
757 |
object V142; |
object V142; |
758 |
object V143; |
object V143; |
759 |
object V144; |
object V144; |
760 |
object V145; |
object V145; |
761 |
|
object V146; |
762 |
|
object V147; |
763 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
764 |
va_start(ap); |
va_start(ap); |
765 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
766 |
V139= V138; |
V141= V140; |
767 |
V140= V137; |
V142= V139; |
768 |
narg= narg - 2; |
narg= narg - 2; |
769 |
{ |
{ |
770 |
parse_key_new(narg,Vcs +2,(struct key *)&LI12key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI12key,ap); |
771 |
V141=(Vcs[2]); |
V143=(Vcs[2]); |
772 |
V142=(Vcs[3]); |
V144=(Vcs[3]); |
773 |
V143=(Vcs[4]); |
V145=(Vcs[4]); |
774 |
V144=(Vcs[5]); |
V146=(Vcs[5]); |
775 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
776 |
V145= symbol_function(VV[33]); |
V147= symbol_function(VV[33]); |
777 |
}else{ |
}else{ |
778 |
V145=(Vcs[6]);} |
V147=(Vcs[6]);} |
779 |
if(!(((V145))==(Cnil))){ |
if(!(((V147))==(Cnil))){ |
780 |
goto T278;} |
goto T280;} |
781 |
V145= symbol_function(VV[33]); |
V147= symbol_function(VV[33]); |
782 |
goto T278; |
goto T280; |
783 |
T278:; |
T280:; |
784 |
V146= symbol_function(VV[44]); |
V148= symbol_function(VV[44]); |
785 |
{object V147 = (VFUN_NARGS=14,(*(LnkLI43))((V139),(V140),VV[10],(V141),VV[11],V146,VV[13],(V142),VV[14],(V143),VV[15],(V144),VV[16],(V145))); |
{object V149 = (VFUN_NARGS=14,(*(LnkLI43))((V141),(V142),VV[10],(V143),VV[11],V148,VV[13],(V144),VV[14],(V145),VV[15],(V146),VV[16],(V147))); |
786 |
VMR12(V147)} |
VMR12(V149)} |
787 |
va_end(ap); |
va_end(ap); |
788 |
return Cnil;} |
return Cnil;} |
789 |
}} |
}} |
790 |
/* local entry for function REMOVE-IF-NOT */ |
/* local entry for function REMOVE-IF-NOT */ |
791 |
|
|
792 |
static object LI13(V149,V148,va_alist) |
static object LI13(V151,V150,va_alist) |
793 |
object V149,V148; |
object V151,V150; |
794 |
va_dcl |
va_dcl |
795 |
{ |
{ |
796 |
va_list ap; |
va_list ap; |
797 |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
798 |
{object V150; |
{object V152; |
|
object V151; |
|
|
object V152; |
|
799 |
object V153; |
object V153; |
800 |
object V154; |
object V154; |
801 |
object V155; |
object V155; |
802 |
object V156; |
object V156; |
803 |
|
object V157; |
804 |
|
object V158; |
805 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
806 |
va_start(ap); |
va_start(ap); |
807 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
808 |
V150= V149; |
V152= V151; |
809 |
V151= V148; |
V153= V150; |
810 |
narg= narg - 2; |
narg= narg - 2; |
811 |
{ |
{ |
812 |
parse_key_new(narg,Vcs +2,(struct key *)&LI13key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI13key,ap); |
813 |
V152=(Vcs[2]); |
V154=(Vcs[2]); |
814 |
V153=(Vcs[3]); |
V155=(Vcs[3]); |
815 |
V154=(Vcs[4]); |
V156=(Vcs[4]); |
816 |
V155=(Vcs[5]); |
V157=(Vcs[5]); |
817 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
818 |
V156= symbol_function(VV[33]); |
V158= symbol_function(VV[33]); |
819 |
}else{ |
}else{ |
820 |
V156=(Vcs[6]);} |
V158=(Vcs[6]);} |
821 |
if(!(((V156))==(Cnil))){ |
if(!(((V158))==(Cnil))){ |
822 |
goto T284;} |
goto T286;} |
823 |
V156= symbol_function(VV[33]); |
V158= symbol_function(VV[33]); |
824 |
goto T284; |
goto T286; |
825 |
T284:; |
T286:; |
826 |
V157= symbol_function(VV[44]); |
V159= symbol_function(VV[44]); |
827 |
{object V158 = (VFUN_NARGS=14,(*(LnkLI43))((V150),(V151),VV[10],(V152),VV[12],V157,VV[13],(V153),VV[14],(V154),VV[15],(V155),VV[16],(V156))); |
{object V160 = (VFUN_NARGS=14,(*(LnkLI43))((V152),(V153),VV[10],(V154),VV[12],V159,VV[13],(V155),VV[14],(V156),VV[15],(V157),VV[16],(V158))); |
828 |
VMR13(V158)} |
VMR13(V160)} |
829 |
va_end(ap); |
va_end(ap); |
830 |
return Cnil;} |
return Cnil;} |
831 |
}} |
}} |
832 |
/* local entry for function DELETE */ |
/* local entry for function DELETE */ |
833 |
|
|
834 |
static object LI14(V160,V159,va_alist) |
static object LI14(V162,V161,va_alist) |
835 |
object V160,V159; |
object V162,V161; |
836 |
va_dcl |
va_dcl |
837 |
{ |
{ |
838 |
va_list ap; |
va_list ap; |
839 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
840 |
{object V161; |
{object V163; |
841 |
register object V162; |
register object V164; |
|
object V163; |
|
|
object V164; |
|
842 |
object V165; |
object V165; |
843 |
object V166; |
object V166; |
844 |
object V167; |
object V167; |
845 |
object V168; |
object V168; |
846 |
object V169; |
object V169; |
847 |
|
object V170; |
848 |
|
object V171; |
849 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
850 |
va_start(ap); |
va_start(ap); |
851 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
852 |
V161= V160; |
V163= V162; |
853 |
V162= V159; |
V164= V161; |
854 |
narg= narg - 2; |
narg= narg - 2; |
855 |
{ |
{ |
856 |
parse_key_new(narg,Vcs +2,(struct key *)&LI14key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI14key,ap); |
857 |
V163=(Vcs[2]); |
V165=(Vcs[2]); |
858 |
V164=(Vcs[3]); |
V166=(Vcs[3]); |
859 |
V165=(Vcs[4]); |
V167=(Vcs[4]); |
860 |
V166=(Vcs[5]); |
V168=(Vcs[5]); |
861 |
V167=(Vcs[6]); |
V169=(Vcs[6]); |
862 |
V168=(Vcs[7]); |
V170=(Vcs[7]); |
863 |
if(Vcs[8]==0){ |
if(Vcs[8]==0){ |
864 |
V169= symbol_function(VV[33]); |
V171= symbol_function(VV[33]); |
865 |
}else{ |
}else{ |
866 |
V169=(Vcs[8]);} |
V171=(Vcs[8]);} |
867 |
{long V170; |
{long V172; |
868 |
V170= (long)length((V162)); |
V172= (long)length((V164)); |
869 |
if(!(((V169))==(Cnil))){ |
if(!(((V171))==(Cnil))){ |
870 |
goto T291;} |
goto T293;} |
871 |
V169= symbol_function(VV[33]); |
V171= symbol_function(VV[33]); |
872 |
goto T291; |
goto T293; |
873 |
T291:; |
T293:; |
874 |
{register long V171; |
{register long V173; |
875 |
if(((V166))==Cnil){ |
if(((V168))==Cnil){ |
876 |
goto T297;} |
goto T299;} |
877 |
V171= (long)(*(LnkLI34))((V166)); |
V173= (long)(*(LnkLI34))((V168)); |
878 |
goto T295; |
goto T297; |
879 |
|
goto T299; |
880 |
|
T299:; |
881 |
|
V173= 0; |
882 |
goto T297; |
goto T297; |
883 |
T297:; |
T297:; |
884 |
V171= 0; |
{long V174; |
885 |
goto T295; |
V174= (long)(*(LnkLI35))((V169),(V164)); |
886 |
T295:; |
if(!((V173)<=(V174))){ |
887 |
{long V172; |
goto T303;} |
888 |
V172= (long)(*(LnkLI35))((V167),(V162)); |
goto T302; |
|
if(!((V171)<=(V172))){ |
|
|
goto T301;} |
|
|
goto T300; |
|
|
goto T301; |
|
|
T301:; |
|
|
V173 = make_fixnum(V171); |
|
|
V174 = make_fixnum(V172); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V173,V174))); |
|
|
goto T300; |
|
|
T300:; |
|
|
{register long V175; |
|
|
if(((V168))!=Cnil){ |
|
|
goto T305;} |
|
|
V175= 2147483647; |
|
|
goto T303; |
|
|
goto T305; |
|
|
T305:; |
|
|
V175= fix((V168)); |
|
889 |
goto T303; |
goto T303; |
890 |
T303:; |
T303:; |
891 |
if((V164)==Cnil){ |
V175 = make_fixnum(V173); |
892 |
goto T308;} |
V176 = make_fixnum(V174); |
893 |
if((V165)==Cnil){ |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V175,V176))); |
894 |
goto T308;} |
goto T302; |
895 |
(void)((*(LnkLI40))()); |
T302:; |
896 |
goto T308; |
{register long V177; |
897 |
T308:; |
if(((V170))!=Cnil){ |
898 |
if(((V163))!=Cnil){ |
goto T307;} |
899 |
|
V177= 2147483647; |
900 |
|
goto T305; |
901 |
|
goto T307; |
902 |
|
T307:; |
903 |
|
V177= fix((V170)); |
904 |
|
goto T305; |
905 |
|
T305:; |
906 |
|
if((V166)==Cnil){ |
907 |
|
goto T310;} |
908 |
|
if((V167)==Cnil){ |
909 |
goto T310;} |
goto T310;} |
910 |
if(!(type_of((V162))==t_cons||((V162))==Cnil)){ |
(void)((*(LnkLI40))()); |
911 |
goto T313;} |
goto T310; |
912 |
{object V176; |
T310:; |
913 |
register object V177; |
if(((V165))!=Cnil){ |
914 |
V176= make_cons(Cnil,(V162)); |
goto T312;} |
915 |
V177= (V176); |
if(!(type_of((V164))==t_cons||((V164))==Cnil)){ |
916 |
{long V178; |
goto T315;} |
917 |
V178= 0; |
{object V178; |
918 |
goto T320; |
register object V179; |
919 |
T320:; |
V178= make_cons(Cnil,(V164)); |
920 |
if(!((V178)>=(V171))){ |
V179= (V178); |
|
goto T321;} |
|
|
goto T317; |
|
|
goto T321; |
|
|
T321:; |
|
|
{object V179; |
|
|
V179= car((V177)); |
|
|
V177= cdr((V177));} |
|
|
V178= (long)(1)+(V178); |
|
|
goto T320;} |
|
|
goto T317; |
|
|
T317:; |
|
921 |
{long V180; |
{long V180; |
922 |
long V181; |
V180= 0; |
923 |
V180= V171; |
goto T322; |
924 |
V181= 0; |
T322:; |
925 |
goto T335; |
if(!((V180)>=(V173))){ |
926 |
T335:; |
goto T323;} |
927 |
if((V180)>=(V172)){ |
goto T319; |
928 |
goto T337;} |
goto T323; |
929 |
if((V181)>=(V175)){ |
T323:; |
930 |
goto T337;} |
{object V181; |
931 |
if(!(endp_prop(cdr((V177))))){ |
V181= car((V179)); |
932 |
goto T336;} |
V179= cdr((V179));} |
933 |
|
V180= (long)(1)+(V180); |
934 |
|
goto T322;} |
935 |
|
goto T319; |
936 |
|
T319:; |
937 |
|
{long V182; |
938 |
|
long V183; |
939 |
|
V182= V173; |
940 |
|
V183= 0; |
941 |
goto T337; |
goto T337; |
942 |
T337:; |
T337:; |
943 |
{object V182 = cdr((V176)); |
if((V182)>=(V174)){ |
944 |
VMR14(V182)} |
goto T339;} |
945 |
goto T336; |
if((V183)>=(V177)){ |
946 |
T336:; |
goto T339;} |
947 |
base[1]= cadr((V177)); |
if(!(endp_prop(cdr((V179))))){ |
948 |
|
goto T338;} |
949 |
|
goto T339; |
950 |
|
T339:; |
951 |
|
{object V184 = cdr((V178)); |
952 |
|
VMR14(V184)} |
953 |
|
goto T338; |
954 |
|
T338:; |
955 |
|
base[1]= cadr((V179)); |
956 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
957 |
super_funcall_no_event((V169)); |
super_funcall_no_event((V171)); |
958 |
vs_top=sup; |
vs_top=sup; |
959 |
V183= vs_base[0]; |
V185= vs_base[0]; |
960 |
if(((*(LnkLI41))((V164),(V165),(V161),V183))==Cnil){ |
if(((*(LnkLI41))((V166),(V167),(V163),V185))==Cnil){ |
961 |
goto T346;} |
goto T348;} |
962 |
V181= (long)(1)+(V181); |
V183= (long)(1)+(V183); |
963 |
if(type_of((V177))!=t_cons)FEwrong_type_argument(Scons,(V177)); |
if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179)); |
964 |
((V177))->c.c_cdr = cddr((V177)); |
((V179))->c.c_cdr = cddr((V179)); |
965 |
goto T344; |
goto T346; |
966 |
|
goto T348; |
967 |
|
T348:; |
968 |
|
V179= cdr((V179)); |
969 |
goto T346; |
goto T346; |
970 |
T346:; |
T346:; |
971 |
V177= cdr((V177)); |
V182= (long)(1)+(V182); |
972 |
goto T344; |
goto T337;}} |
973 |
T344:; |
goto T315; |
974 |
V180= (long)(1)+(V180); |
T315:; |
975 |
goto T335;}} |
{long V186; |
976 |
goto T313; |
V187 = make_fixnum(V173); |
977 |
T313:; |
V188 = make_fixnum(V174); |
978 |
{long V184; |
V189 = make_fixnum(V177); |
979 |
V185 = make_fixnum(V171); |
V186= fix((VFUN_NARGS=16,(*(LnkLI45))((V163),(V164),VV[10],(V165),VV[11],(V166),VV[12],(V167),VV[13],V187,VV[14],V188,VV[15],V189,VV[16],(V171)))); |
980 |
V186 = make_fixnum(V172); |
if(!((V186)<(V177))){ |
981 |
V187 = make_fixnum(V175); |
goto T359;} |
982 |
V184= fix((VFUN_NARGS=16,(*(LnkLI45))((V161),(V162),VV[10],(V163),VV[11],(V164),VV[12],(V165),VV[13],V185,VV[14],V186,VV[15],V187,VV[16],(V169)))); |
V177= V186; |
983 |
if(!((V184)<(V175))){ |
goto T359; |
984 |
goto T357;} |
T359:; |
985 |
V175= V184; |
{object V190; |
986 |
goto T357; |
register long V191; |
987 |
T357:; |
long V192; |
988 |
{object V188; |
long V193; |
989 |
register long V189; |
V194= (*(LnkLI47))((V164)); |
990 |
long V190; |
V195 = make_fixnum((long)(V172)-(V177)); |
991 |
long V191; |
V190= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V194,V195)); |
|
V192= (*(LnkLI47))((V162)); |
|
|
V193 = make_fixnum((long)(V170)-(V175)); |
|
|
V188= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V192,V193)); |
|
|
V189= 0; |
|
|
V190= 0; |
|
992 |
V191= 0; |
V191= 0; |
993 |
goto T366; |
V192= 0; |
994 |
T366:; |
V193= 0; |
995 |
if(!((V189)>=(V170))){ |
goto T368; |
996 |
goto T367;} |
T368:; |
997 |
{object V194 = (V188); |
if(!((V191)>=(V172))){ |
998 |
VMR14(V194)} |
goto T369;} |
999 |
goto T367; |
{object V196 = (V190); |
1000 |
T367:; |
VMR14(V196)} |
1001 |
if(!((V171)<=(V189))){ |
goto T369; |
1002 |
goto T373;} |
T369:; |
1003 |
if(!((V189)<(V172))){ |
if(!((V173)<=(V191))){ |
1004 |
goto T373;} |
goto T375;} |
1005 |
if(!((V191)<(V175))){ |
if(!((V191)<(V174))){ |
1006 |
goto T373;} |
goto T375;} |
1007 |
base[0]= elt((V162),V189); |
if(!((V193)<(V177))){ |
1008 |
vs_top=(vs_base=base+0)+1; |
goto T375;} |
1009 |
super_funcall_no_event((V169)); |
base[0]= elt((V164),V191); |
1010 |
vs_top=sup; |
vs_top=(vs_base=base+0)+1; |
1011 |
V195= vs_base[0]; |
super_funcall_no_event((V171)); |
1012 |
if(((*(LnkLI41))((V164),(V165),(V161),V195))==Cnil){ |
vs_top=sup; |
1013 |
goto T373;} |
V197= vs_base[0]; |
1014 |
V191= (long)(1)+(V191); |
if(((*(LnkLI41))((V166),(V167),(V163),V197))==Cnil){ |
1015 |
goto T371; |
goto T375;} |
1016 |
|
V193= (long)(1)+(V193); |
1017 |
|
goto T373; |
1018 |
|
goto T375; |
1019 |
|
T375:; |
1020 |
|
V198= elt((V164),V191); |
1021 |
|
(void)(elt_set((V190),V192,/* INLINE-ARGS */V198)); |
1022 |
|
V192= (long)(1)+(V192); |
1023 |
goto T373; |
goto T373; |
1024 |
T373:; |
T373:; |
1025 |
V196= elt((V162),V189); |
V191= (long)(1)+(V191); |
1026 |
(void)(elt_set((V188),V190,/* INLINE-ARGS */V196)); |
goto T368;}} |
1027 |
V190= (long)(1)+(V190); |
goto T312; |
1028 |
goto T371; |
T312:; |
1029 |
T371:; |
{long V199; |
1030 |
V189= (long)(1)+(V189); |
V200 = make_fixnum(V173); |
1031 |
goto T366;}} |
V201 = make_fixnum(V174); |
1032 |
goto T310; |
V202 = make_fixnum(V177); |
1033 |
T310:; |
V199= fix((VFUN_NARGS=16,(*(LnkLI45))((V163),(V164),VV[10],(V165),VV[11],(V166),VV[12],(V167),VV[13],V200,VV[14],V201,VV[15],V202,VV[16],(V171)))); |
1034 |
{long V197; |
if(!((V199)<(V177))){ |
1035 |
V198 = make_fixnum(V171); |
goto T392;} |
1036 |
V199 = make_fixnum(V172); |
V177= V199; |
1037 |
V200 = make_fixnum(V175); |
goto T392; |
1038 |
V197= fix((VFUN_NARGS=16,(*(LnkLI45))((V161),(V162),VV[10],(V163),VV[11],(V164),VV[12],(V165),VV[13],V198,VV[14],V199,VV[15],V200,VV[16],(V169)))); |
T392:; |
1039 |
if(!((V197)<(V175))){ |
{object V203; |
1040 |
goto T390;} |
register long V204; |
1041 |
V175= V197; |
long V205; |
1042 |
goto T390; |
long V206; |
1043 |
T390:; |
V207= (*(LnkLI47))((V164)); |
1044 |
{object V201; |
V208 = make_fixnum((long)(V172)-(V177)); |
1045 |
register long V202; |
V203= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V207,V208)); |
1046 |
long V203; |
V204= (long)(-1)+(V172); |
1047 |
long V204; |
V205= (long)(-1)+((long)(V172)-(V177)); |
1048 |
V205= (*(LnkLI47))((V162)); |
V206= 0; |
1049 |
V206 = make_fixnum((long)(V170)-(V175)); |
goto T401; |
1050 |
V201= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V205,V206)); |
T401:; |
1051 |
V202= (long)(-1)+(V170); |
if(!((V204)<(0))){ |
1052 |
V203= (long)(-1)+((long)(V170)-(V175)); |
goto T402;} |
1053 |
V204= 0; |
{object V209 = (V203); |
1054 |
goto T399; |
VMR14(V209)} |
1055 |
T399:; |
goto T402; |
1056 |
if(!((V202)<(0))){ |
T402:; |
1057 |
goto T400;} |
if(!((V173)<=(V204))){ |
1058 |
{object V207 = (V201); |
goto T408;} |
1059 |
VMR14(V207)} |
if(!((V204)<(V174))){ |
1060 |
goto T400; |
goto T408;} |
1061 |
T400:; |
if(!((V206)<(V177))){ |
1062 |
if(!((V171)<=(V202))){ |
goto T408;} |
1063 |
goto T406;} |
base[0]= elt((V164),V204); |
1064 |
if(!((V202)<(V172))){ |
vs_top=(vs_base=base+0)+1; |
1065 |
goto T406;} |
super_funcall_no_event((V171)); |
1066 |
if(!((V204)<(V175))){ |
vs_top=sup; |
1067 |
goto T406;} |
V210= vs_base[0]; |
1068 |
base[0]= elt((V162),V202); |
if(((*(LnkLI41))((V166),(V167),(V163),V210))==Cnil){ |
1069 |
vs_top=(vs_base=base+0)+1; |
goto T408;} |
1070 |
super_funcall_no_event((V169)); |
V206= (long)(1)+(V206); |
1071 |
vs_top=sup; |
goto T406; |
1072 |
V208= vs_base[0]; |
goto T408; |
1073 |
if(((*(LnkLI41))((V164),(V165),(V161),V208))==Cnil){ |
T408:; |
1074 |
goto T406;} |
V211= elt((V164),V204); |
1075 |
V204= (long)(1)+(V204); |
(void)(elt_set((V203),V205,/* INLINE-ARGS */V211)); |
1076 |
goto T404; |
V205= (long)(-1)+(V205); |
1077 |
goto T406; |
goto T406; |
1078 |
T406:; |
T406:; |
1079 |
V209= elt((V162),V202); |
V204= (long)(-1)+(V204); |
1080 |
(void)(elt_set((V201),V203,/* INLINE-ARGS */V209)); |
goto T401;}}}}}} |
|
V203= (long)(-1)+(V203); |
|
|
goto T404; |
|
|
T404:; |
|
|
V202= (long)(-1)+(V202); |
|
|
goto T399;}}}}}} |
|
1081 |
va_end(ap); |
va_end(ap); |
1082 |
base[0]=base[0]; |
base[0]=base[0]; |
1083 |
return Cnil;} |
return Cnil;} |
1084 |
}} |
}} |
1085 |
/* local entry for function DELETE-IF */ |
/* local entry for function DELETE-IF */ |
1086 |
|
|
1087 |
static object LI15(V211,V210,va_alist) |
static object LI15(V213,V212,va_alist) |
1088 |
object V211,V210; |
object V213,V212; |
1089 |
va_dcl |
va_dcl |
1090 |
{ |
{ |
1091 |
va_list ap; |
va_list ap; |
1092 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
1093 |
{object V212; |
{object V214; |
|
object V213; |
|
|
object V214; |
|
1094 |
object V215; |
object V215; |
1095 |
object V216; |
object V216; |
1096 |
object V217; |
object V217; |
1097 |
object V218; |
object V218; |
1098 |
|
object V219; |
1099 |
|
object V220; |
1100 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1101 |
va_start(ap); |
va_start(ap); |
1102 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1103 |
V212= V211; |
V214= V213; |
1104 |
V213= V210; |
V215= V212; |
1105 |
narg= narg - 2; |
narg= narg - 2; |
1106 |
{ |
{ |
1107 |
parse_key_new(narg,Vcs +2,(struct key *)&LI15key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI15key,ap); |
1108 |
V214=(Vcs[2]); |
V216=(Vcs[2]); |
1109 |
V215=(Vcs[3]); |
V217=(Vcs[3]); |
1110 |
V216=(Vcs[4]); |
V218=(Vcs[4]); |
1111 |
V217=(Vcs[5]); |
V219=(Vcs[5]); |
1112 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1113 |
V218= symbol_function(VV[33]); |
V220= symbol_function(VV[33]); |
1114 |
}else{ |
}else{ |
1115 |
V218=(Vcs[6]);} |
V220=(Vcs[6]);} |
1116 |
if(!(((V218))==(Cnil))){ |
if(!(((V220))==(Cnil))){ |
1117 |
goto T423;} |
goto T425;} |
1118 |
V218= symbol_function(VV[33]); |
V220= symbol_function(VV[33]); |
1119 |
goto T423; |
goto T425; |
1120 |
T423:; |
T425:; |
1121 |
V219= symbol_function(VV[44]); |
V221= symbol_function(VV[44]); |
1122 |
{object V220 = (VFUN_NARGS=14,(*(LnkLI42))((V212),(V213),VV[10],(V214),VV[11],V219,VV[13],(V215),VV[14],(V216),VV[15],(V217),VV[16],(V218))); |
{object V222 = (VFUN_NARGS=14,(*(LnkLI42))((V214),(V215),VV[10],(V216),VV[11],V221,VV[13],(V217),VV[14],(V218),VV[15],(V219),VV[16],(V220))); |
1123 |
VMR15(V220)} |
VMR15(V222)} |
1124 |
va_end(ap); |
va_end(ap); |
1125 |
return Cnil;} |
return Cnil;} |
1126 |
}} |
}} |
1127 |
/* local entry for function DELETE-IF-NOT */ |
/* local entry for function DELETE-IF-NOT */ |
1128 |
|
|
1129 |
static object LI16(V222,V221,va_alist) |
static object LI16(V224,V223,va_alist) |
1130 |
object V222,V221; |
object V224,V223; |
1131 |
va_dcl |
va_dcl |
1132 |
{ |
{ |
1133 |
va_list ap; |
va_list ap; |
1134 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
1135 |
{object V223; |
{object V225; |
|
object V224; |
|
|
object V225; |
|
1136 |
object V226; |
object V226; |
1137 |
object V227; |
object V227; |
1138 |
object V228; |
object V228; |
1139 |
object V229; |
object V229; |
1140 |
|
object V230; |
1141 |
|
object V231; |
1142 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1143 |
va_start(ap); |
va_start(ap); |
1144 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1145 |
V223= V222; |
V225= V224; |
1146 |
V224= V221; |
V226= V223; |
1147 |
narg= narg - 2; |
narg= narg - 2; |
1148 |
{ |
{ |
1149 |
parse_key_new(narg,Vcs +2,(struct key *)&LI16key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI16key,ap); |
1150 |
V225=(Vcs[2]); |
V227=(Vcs[2]); |
1151 |
V226=(Vcs[3]); |
V228=(Vcs[3]); |
1152 |
V227=(Vcs[4]); |
V229=(Vcs[4]); |
1153 |
V228=(Vcs[5]); |
V230=(Vcs[5]); |
1154 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1155 |
V229= symbol_function(VV[33]); |
V231= symbol_function(VV[33]); |
1156 |
}else{ |
}else{ |
1157 |
V229=(Vcs[6]);} |
V231=(Vcs[6]);} |
1158 |
if(!(((V229))==(Cnil))){ |
if(!(((V231))==(Cnil))){ |
1159 |
goto T429;} |
goto T431;} |
1160 |
V229= symbol_function(VV[33]); |
V231= symbol_function(VV[33]); |
1161 |
goto T429; |
goto T431; |
1162 |
T429:; |
T431:; |
1163 |
V230= symbol_function(VV[44]); |
V232= symbol_function(VV[44]); |
1164 |
{object V231 = (VFUN_NARGS=14,(*(LnkLI42))((V223),(V224),VV[10],(V225),VV[12],V230,VV[13],(V226),VV[14],(V227),VV[15],(V228),VV[16],(V229))); |
{object V233 = (VFUN_NARGS=14,(*(LnkLI42))((V225),(V226),VV[10],(V227),VV[12],V232,VV[13],(V228),VV[14],(V229),VV[15],(V230),VV[16],(V231))); |
1165 |
VMR16(V231)} |
VMR16(V233)} |
1166 |
va_end(ap); |
va_end(ap); |
1167 |
return Cnil;} |
return Cnil;} |
1168 |
}} |
}} |
1169 |
/* local entry for function COUNT */ |
/* local entry for function COUNT */ |
1170 |
|
|
1171 |
static object LI17(V233,V232,va_alist) |
static object LI17(V235,V234,va_alist) |
1172 |
object V233,V232; |
object V235,V234; |
1173 |
va_dcl |
va_dcl |
1174 |
{ |
{ |
1175 |
va_list ap; |
va_list ap; |
1176 |
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
1177 |
{object V234; |
{object V236; |
|
register object V235; |
|
|
object V236; |
|
1178 |
register object V237; |
register object V237; |
1179 |
register object V238; |
object V238; |
1180 |
object V239; |
register object V239; |
1181 |
object V240; |
register object V240; |
1182 |
register object V241; |
object V241; |
1183 |
|
object V242; |
1184 |
|
register object V243; |
1185 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1186 |
va_start(ap); |
va_start(ap); |
1187 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1188 |
V234= V233; |
V236= V235; |
1189 |
V235= V232; |
V237= V234; |
1190 |
narg= narg - 2; |
narg= narg - 2; |
1191 |
{ |
{ |
1192 |
parse_key_new(narg,Vcs +2,(struct key *)&LI17key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI17key,ap); |
1193 |
V236=(Vcs[2]); |
V238=(Vcs[2]); |
1194 |
V237=(Vcs[3]); |
V239=(Vcs[3]); |
1195 |
V238=(Vcs[4]); |
V240=(Vcs[4]); |
1196 |
V239=(Vcs[5]); |
V241=(Vcs[5]); |
1197 |
V240=(Vcs[6]); |
V242=(Vcs[6]); |
1198 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
1199 |
V241= symbol_function(VV[33]); |
V243= symbol_function(VV[33]); |
1200 |
}else{ |
}else{ |
1201 |
V241=(Vcs[7]);} |
V243=(Vcs[7]);} |
1202 |
if(!(((V241))==(Cnil))){ |
if(!(((V243))==(Cnil))){ |
1203 |
goto T435;} |
goto T437;} |
1204 |
V241= symbol_function(VV[33]); |
V243= symbol_function(VV[33]); |
1205 |
goto T435; |
goto T437; |
1206 |
T435:; |
T437:; |
1207 |
{long V242; |
{long V244; |
1208 |
if(((V239))==Cnil){ |
if(((V241))==Cnil){ |
1209 |
goto T441;} |
goto T443;} |
1210 |
V242= (long)(*(LnkLI34))((V239)); |
V244= (long)(*(LnkLI34))((V241)); |
1211 |
goto T439; |
goto T441; |
1212 |
|
goto T443; |
1213 |
|
T443:; |
1214 |
|
V244= 0; |
1215 |
goto T441; |
goto T441; |
1216 |
T441:; |
T441:; |
1217 |
V242= 0; |
{long V245; |
1218 |
goto T439; |
V245= (long)(*(LnkLI35))((V242),(V237)); |
1219 |
T439:; |
if(!((V244)<=(V245))){ |
|
{long V243; |
|
|
V243= (long)(*(LnkLI35))((V240),(V235)); |
|
|
if(!((V242)<=(V243))){ |
|
|
goto T445;} |
|
|
goto T444; |
|
|
goto T445; |
|
|
T445:; |
|
|
V244 = make_fixnum(V242); |
|
|
V245 = make_fixnum(V243); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V244,V245))); |
|
|
goto T444; |
|
|
T444:; |
|
|
if((V237)==Cnil){ |
|
|
goto T447;} |
|
|
if((V238)==Cnil){ |
|
1220 |
goto T447;} |
goto T447;} |
1221 |
(void)((*(LnkLI40))()); |
goto T446; |
1222 |
goto T447; |
goto T447; |
1223 |
T447:; |
T447:; |
1224 |
if(((V236))!=Cnil){ |
V246 = make_fixnum(V244); |
1225 |
|
V247 = make_fixnum(V245); |
1226 |
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V246,V247))); |
1227 |
|
goto T446; |
1228 |
|
T446:; |
1229 |
|
if((V239)==Cnil){ |
1230 |
|
goto T449;} |
1231 |
|
if((V240)==Cnil){ |
1232 |
goto T449;} |
goto T449;} |
1233 |
{register long V246; |
(void)((*(LnkLI40))()); |
|
register long V247; |
|
|
V246= V242; |
|
|
V247= 0; |
|
|
goto T454; |
|
|
T454:; |
|
|
if(!((V246)>=(V243))){ |
|
|
goto T455;} |
|
|
{object V248 = make_fixnum(V247); |
|
|
VMR17(V248)} |
|
|
goto T455; |
|
|
T455:; |
|
|
base[0]= elt((V235),V246); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V241)); |
|
|
vs_top=sup; |
|
|
V249= vs_base[0]; |
|
|
if(((*(LnkLI41))((V237),(V238),(V234),V249))==Cnil){ |
|
|
goto T459;} |
|
|
V247= (long)(1)+(V247); |
|
|
goto T459; |
|
|
T459:; |
|
|
V246= (long)(1)+(V246); |
|
|
goto T454;} |
|
1234 |
goto T449; |
goto T449; |
1235 |
T449:; |
T449:; |
1236 |
{register long V250; |
if(((V238))!=Cnil){ |
1237 |
register long V251; |
goto T451;} |
1238 |
V250= (long)(-1)+(V243); |
{register long V248; |
1239 |
V251= 0; |
register long V249; |
1240 |
goto T471; |
V248= V244; |
1241 |
T471:; |
V249= 0; |
1242 |
if(!((V250)<(V242))){ |
goto T456; |
1243 |
goto T472;} |
T456:; |
1244 |
{object V252 = make_fixnum(V251); |
if(!((V248)>=(V245))){ |
1245 |
VMR17(V252)} |
goto T457;} |
1246 |
goto T472; |
{object V250 = make_fixnum(V249); |
1247 |
T472:; |
VMR17(V250)} |
1248 |
base[0]= elt((V235),V250); |
goto T457; |
1249 |
vs_top=(vs_base=base+0)+1; |
T457:; |
1250 |
super_funcall_no_event((V241)); |
base[0]= elt((V237),V248); |
1251 |
vs_top=sup; |
vs_top=(vs_base=base+0)+1; |
1252 |
V253= vs_base[0]; |
super_funcall_no_event((V243)); |
1253 |
if(((*(LnkLI41))((V237),(V238),(V234),V253))==Cnil){ |
vs_top=sup; |
1254 |
goto T476;} |
V251= vs_base[0]; |
1255 |
V251= (long)(1)+(V251); |
if(((*(LnkLI41))((V239),(V240),(V236),V251))==Cnil){ |
1256 |
goto T476; |
goto T461;} |
1257 |
T476:; |
V249= (long)(1)+(V249); |
1258 |
V250= (long)(-1)+(V250); |
goto T461; |
1259 |
goto T471;}}} |
T461:; |
1260 |
|
V248= (long)(1)+(V248); |
1261 |
|
goto T456;} |
1262 |
|
goto T451; |
1263 |
|
T451:; |
1264 |
|
{register long V252; |
1265 |
|
register long V253; |
1266 |
|
V252= (long)(-1)+(V245); |
1267 |
|
V253= 0; |
1268 |
|
goto T473; |
1269 |
|
T473:; |
1270 |
|
if(!((V252)<(V244))){ |
1271 |
|
goto T474;} |
1272 |
|
{object V254 = make_fixnum(V253); |
1273 |
|
VMR17(V254)} |
1274 |
|
goto T474; |
1275 |
|
T474:; |
1276 |
|
base[0]= elt((V237),V252); |
1277 |
|
vs_top=(vs_base=base+0)+1; |
1278 |
|
super_funcall_no_event((V243)); |
1279 |
|
vs_top=sup; |
1280 |
|
V255= vs_base[0]; |
1281 |
|
if(((*(LnkLI41))((V239),(V240),(V236),V255))==Cnil){ |
1282 |
|
goto T478;} |
1283 |
|
V253= (long)(1)+(V253); |
1284 |
|
goto T478; |
1285 |
|
T478:; |
1286 |
|
V252= (long)(-1)+(V252); |
1287 |
|
goto T473;}}} |
1288 |
va_end(ap); |
va_end(ap); |
1289 |
base[0]=base[0]; |
base[0]=base[0]; |
1290 |
return Cnil;} |
return Cnil;} |
1291 |
}} |
}} |
1292 |
/* local entry for function COUNT-IF */ |
/* local entry for function COUNT-IF */ |
1293 |
|
|
1294 |
static object LI18(V255,V254,va_alist) |
static object LI18(V257,V256,va_alist) |
1295 |
object V255,V254; |
object V257,V256; |
1296 |
va_dcl |
va_dcl |
1297 |
{ |
{ |
1298 |
va_list ap; |
va_list ap; |
1299 |
int narg = VFUN_NARGS; VMB18 VMS18 VMV18 |
int narg = VFUN_NARGS; VMB18 VMS18 VMV18 |
1300 |
{object V256; |
{object V258; |
|
object V257; |
|
|
object V258; |
|
1301 |
object V259; |
object V259; |
1302 |
object V260; |
object V260; |
1303 |
object V261; |
object V261; |
1304 |
|
object V262; |
1305 |
|
object V263; |
1306 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1307 |
va_start(ap); |
va_start(ap); |
1308 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1309 |
V256= V255; |
V258= V257; |
1310 |
V257= V254; |
V259= V256; |
1311 |
narg= narg - 2; |
narg= narg - 2; |
1312 |
{ |
{ |
1313 |
parse_key_new(narg,Vcs +2,(struct key *)&LI18key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI18key,ap); |
1314 |
V258=(Vcs[2]); |
V260=(Vcs[2]); |
1315 |
V259=(Vcs[3]); |
V261=(Vcs[3]); |
1316 |
V260=(Vcs[4]); |
V262=(Vcs[4]); |
1317 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
1318 |
V261= symbol_function(VV[33]); |
V263= symbol_function(VV[33]); |
1319 |
}else{ |
}else{ |
1320 |
V261=(Vcs[5]);} |
V263=(Vcs[5]);} |
1321 |
if(!(((V261))==(Cnil))){ |
if(!(((V263))==(Cnil))){ |
1322 |
goto T486;} |
goto T488;} |
1323 |
V261= symbol_function(VV[33]); |
V263= symbol_function(VV[33]); |
1324 |
goto T486; |
goto T488; |
1325 |
T486:; |
T488:; |
1326 |
V262= symbol_function(VV[44]); |
V264= symbol_function(VV[44]); |
1327 |
{object V263 = (VFUN_NARGS=12,(*(LnkLI48))((V256),(V257),VV[10],(V258),VV[11],V262,VV[13],(V259),VV[14],(V260),VV[16],(V261))); |
{object V265 = (VFUN_NARGS=12,(*(LnkLI48))((V258),(V259),VV[10],(V260),VV[11],V264,VV[13],(V261),VV[14],(V262),VV[16],(V263))); |
1328 |
VMR18(V263)} |
VMR18(V265)} |
1329 |
va_end(ap); |
va_end(ap); |
1330 |
return Cnil;} |
return Cnil;} |
1331 |
}} |
}} |
1332 |
/* local entry for function COUNT-IF-NOT */ |
/* local entry for function COUNT-IF-NOT */ |
1333 |
|
|
1334 |
static object LI19(V265,V264,va_alist) |
static object LI19(V267,V266,va_alist) |
1335 |
object V265,V264; |
object V267,V266; |
1336 |
va_dcl |
va_dcl |
1337 |
{ |
{ |
1338 |
va_list ap; |
va_list ap; |
1339 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
1340 |
{object V266; |
{object V268; |
|
object V267; |
|
|
object V268; |
|
1341 |
object V269; |
object V269; |
1342 |
object V270; |
object V270; |
1343 |
object V271; |
object V271; |
1344 |
|
object V272; |
1345 |
|
object V273; |
1346 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1347 |
va_start(ap); |
va_start(ap); |
1348 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1349 |
V266= V265; |
V268= V267; |
1350 |
V267= V264; |
V269= V266; |
1351 |
narg= narg - 2; |
narg= narg - 2; |
1352 |
{ |
{ |
1353 |
parse_key_new(narg,Vcs +2,(struct key *)&LI19key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI19key,ap); |
1354 |
V268=(Vcs[2]); |
V270=(Vcs[2]); |
1355 |
V269=(Vcs[3]); |
V271=(Vcs[3]); |
1356 |
V270=(Vcs[4]); |
V272=(Vcs[4]); |
1357 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
1358 |
V271= symbol_function(VV[33]); |
V273= symbol_function(VV[33]); |
1359 |
}else{ |
}else{ |
1360 |
V271=(Vcs[5]);} |
V273=(Vcs[5]);} |
1361 |
if(!(((V271))==(Cnil))){ |
if(!(((V273))==(Cnil))){ |
1362 |
goto T492;} |
goto T494;} |
1363 |
V271= symbol_function(VV[33]); |
V273= symbol_function(VV[33]); |
1364 |
goto T492; |
goto T494; |
1365 |
T492:; |
T494:; |
1366 |
V272= symbol_function(VV[44]); |
V274= symbol_function(VV[44]); |
1367 |
{object V273 = (VFUN_NARGS=12,(*(LnkLI48))((V266),(V267),VV[10],(V268),VV[12],V272,VV[13],(V269),VV[14],(V270),VV[16],(V271))); |
{object V275 = (VFUN_NARGS=12,(*(LnkLI48))((V268),(V269),VV[10],(V270),VV[12],V274,VV[13],(V271),VV[14],(V272),VV[16],(V273))); |
1368 |
VMR19(V273)} |
VMR19(V275)} |
1369 |
va_end(ap); |
va_end(ap); |
1370 |
return Cnil;} |
return Cnil;} |
1371 |
}} |
}} |
1372 |
/* local entry for function INTERNAL-COUNT */ |
/* local entry for function INTERNAL-COUNT */ |
1373 |
|
|
1374 |
static object LI20(V275,V274,va_alist) |
static object LI20(V277,V276,va_alist) |
1375 |
object V275,V274; |
object V277,V276; |
1376 |
va_dcl |
va_dcl |
1377 |
{ |
{ |
1378 |
va_list ap; |
va_list ap; |
1379 |
int narg = VFUN_NARGS; VMB20 VMS20 VMV20 |
int narg = VFUN_NARGS; VMB20 VMS20 VMV20 |
1380 |
{object V276; |
{object V278; |
|
register object V277; |
|
|
object V278; |
|
1381 |
register object V279; |
register object V279; |
1382 |
register object V280; |
object V280; |
1383 |
object V281; |
register object V281; |
1384 |
object V282; |
register object V282; |
1385 |
object V283; |
object V283; |
1386 |
register object V284; |
object V284; |
1387 |
|
object V285; |
1388 |
|
register object V286; |
1389 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1390 |
va_start(ap); |
va_start(ap); |
1391 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1392 |
V276= V275; |
V278= V277; |
1393 |
V277= V274; |
V279= V276; |
1394 |
narg= narg - 2; |
narg= narg - 2; |
1395 |
{ |
{ |
1396 |
parse_key_new(narg,Vcs +2,(struct key *)&LI20key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI20key,ap); |
1397 |
V278=(Vcs[2]); |
V280=(Vcs[2]); |
1398 |
V279=(Vcs[3]); |
V281=(Vcs[3]); |
1399 |
V280=(Vcs[4]); |
V282=(Vcs[4]); |
1400 |
V281=(Vcs[5]); |
V283=(Vcs[5]); |
1401 |
V282=(Vcs[6]); |
V284=(Vcs[6]); |
1402 |
V283=(Vcs[7]); |
V285=(Vcs[7]); |
1403 |
if(Vcs[8]==0){ |
if(Vcs[8]==0){ |
1404 |
V284= symbol_function(VV[33]); |
V286= symbol_function(VV[33]); |
1405 |
}else{ |
}else{ |
1406 |
V284=(Vcs[8]);} |
V286=(Vcs[8]);} |
1407 |
if(!(((V284))==(Cnil))){ |
if(!(((V286))==(Cnil))){ |
1408 |
goto T498;} |
goto T500;} |
1409 |
V284= symbol_function(VV[33]); |
V286= symbol_function(VV[33]); |
1410 |
goto T498; |
goto T500; |
1411 |
T498:; |
T500:; |
1412 |
{long V285; |
{long V287; |
1413 |
if(((V281))==Cnil){ |
if(((V283))==Cnil){ |
1414 |
goto T504;} |
goto T506;} |
1415 |
V285= (long)(*(LnkLI34))((V281)); |
V287= (long)(*(LnkLI34))((V283)); |
1416 |
goto T502; |
goto T504; |
1417 |
|
goto T506; |
1418 |
|
T506:; |
1419 |
|
V287= 0; |
1420 |
goto T504; |
goto T504; |
1421 |
T504:; |
T504:; |
1422 |
V285= 0; |
{long V288; |
1423 |
goto T502; |
V288= (long)(*(LnkLI35))((V284),(V279)); |
1424 |
T502:; |
if(!((V287)<=(V288))){ |
1425 |
{long V286; |
goto T510;} |
1426 |
V286= (long)(*(LnkLI35))((V282),(V277)); |
goto T509; |
|
if(!((V285)<=(V286))){ |
|
|
goto T508;} |
|
|
goto T507; |
|
|
goto T508; |
|
|
T508:; |
|
|
V287 = make_fixnum(V285); |
|
|
V288 = make_fixnum(V286); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V287,V288))); |
|
|
goto T507; |
|
|
T507:; |
|
|
{long V289; |
|
|
if(((V283))!=Cnil){ |
|
|
goto T512;} |
|
|
V289= 2147483647; |
|
|
goto T510; |
|
|
goto T512; |
|
|
T512:; |
|
|
V289= fix((V283)); |
|
1427 |
goto T510; |
goto T510; |
1428 |
T510:; |
T510:; |
1429 |
if((V279)==Cnil){ |
V289 = make_fixnum(V287); |
1430 |
goto T515;} |
V290 = make_fixnum(V288); |
1431 |
if((V280)==Cnil){ |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V289,V290))); |
1432 |
goto T515;} |
goto T509; |
1433 |
(void)((*(LnkLI40))()); |
T509:; |
1434 |
goto T515; |
{long V291; |
1435 |
T515:; |
if(((V285))!=Cnil){ |
1436 |
if(((V278))!=Cnil){ |
goto T514;} |
1437 |
|
V291= 2147483647; |
1438 |
|
goto T512; |
1439 |
|
goto T514; |
1440 |
|
T514:; |
1441 |
|
V291= fix((V285)); |
1442 |
|
goto T512; |
1443 |
|
T512:; |
1444 |
|
if((V281)==Cnil){ |
1445 |
|
goto T517;} |
1446 |
|
if((V282)==Cnil){ |
1447 |
goto T517;} |
goto T517;} |
1448 |
{register long V290; |
(void)((*(LnkLI40))()); |
|
register long V291; |
|
|
V290= V285; |
|
|
V291= 0; |
|
|
goto T522; |
|
|
T522:; |
|
|
if(!((V290)>=(V286))){ |
|
|
goto T523;} |
|
|
{object V292 = make_fixnum(V291); |
|
|
VMR20(V292)} |
|
|
goto T523; |
|
|
T523:; |
|
|
if(!((V291)<(V289))){ |
|
|
goto T527;} |
|
|
base[0]= elt((V277),V290); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V284)); |
|
|
vs_top=sup; |
|
|
V293= vs_base[0]; |
|
|
if(((*(LnkLI41))((V279),(V280),(V276),V293))==Cnil){ |
|
|
goto T527;} |
|
|
V291= (long)(1)+(V291); |
|
|
goto T527; |
|
|
T527:; |
|
|
V290= (long)(1)+(V290); |
|
|
goto T522;} |
|
1449 |
goto T517; |
goto T517; |
1450 |
T517:; |
T517:; |
1451 |
{register long V294; |
if(((V280))!=Cnil){ |
1452 |
register long V295; |
goto T519;} |
1453 |
V294= (long)(-1)+(V286); |
{register long V292; |
1454 |
V295= 0; |
register long V293; |
1455 |
goto T541; |
V292= V287; |
1456 |
T541:; |
V293= 0; |
1457 |
if(!((V294)<(V285))){ |
goto T524; |
1458 |
goto T542;} |
T524:; |
1459 |
{object V296 = make_fixnum(V295); |
if(!((V292)>=(V288))){ |
1460 |
VMR20(V296)} |
goto T525;} |
1461 |
goto T542; |
{object V294 = make_fixnum(V293); |
1462 |
T542:; |
VMR20(V294)} |
1463 |
if(!((V295)<(V289))){ |
goto T525; |
1464 |
goto T546;} |
T525:; |
1465 |
base[0]= elt((V277),V294); |
if(!((V293)<(V291))){ |
1466 |
vs_top=(vs_base=base+0)+1; |
goto T529;} |
1467 |
super_funcall_no_event((V284)); |
base[0]= elt((V279),V292); |
1468 |
vs_top=sup; |
vs_top=(vs_base=base+0)+1; |
1469 |
V297= vs_base[0]; |
super_funcall_no_event((V286)); |
1470 |
if(((*(LnkLI41))((V279),(V280),(V276),V297))==Cnil){ |
vs_top=sup; |
1471 |
goto T546;} |
V295= vs_base[0]; |
1472 |
V295= (long)(1)+(V295); |
if(((*(LnkLI41))((V281),(V282),(V278),V295))==Cnil){ |
1473 |
goto T546; |
goto T529;} |
1474 |
T546:; |
V293= (long)(1)+(V293); |
1475 |
V294= (long)(-1)+(V294); |
goto T529; |
1476 |
goto T541;}}}} |
T529:; |
1477 |
|
V292= (long)(1)+(V292); |
1478 |
|
goto T524;} |
1479 |
|
goto T519; |
1480 |
|
T519:; |
1481 |
|
{register long V296; |
1482 |
|
register long V297; |
1483 |
|
V296= (long)(-1)+(V288); |
1484 |
|
V297= 0; |
1485 |
|
goto T543; |
1486 |
|
T543:; |
1487 |
|
if(!((V296)<(V287))){ |
1488 |
|
goto T544;} |
1489 |
|
{object V298 = make_fixnum(V297); |
1490 |
|
VMR20(V298)} |
1491 |
|
goto T544; |
1492 |
|
T544:; |
1493 |
|
if(!((V297)<(V291))){ |
1494 |
|
goto T548;} |
1495 |
|
base[0]= elt((V279),V296); |
1496 |
|
vs_top=(vs_base=base+0)+1; |
1497 |
|
super_funcall_no_event((V286)); |
1498 |
|
vs_top=sup; |
1499 |
|
V299= vs_base[0]; |
1500 |
|
if(((*(LnkLI41))((V281),(V282),(V278),V299))==Cnil){ |
1501 |
|
goto T548;} |
1502 |
|
V297= (long)(1)+(V297); |
1503 |
|
goto T548; |
1504 |
|
T548:; |
1505 |
|
V296= (long)(-1)+(V296); |
1506 |
|
goto T543;}}}} |
1507 |
va_end(ap); |
va_end(ap); |
1508 |
base[0]=base[0]; |
base[0]=base[0]; |
1509 |
return Cnil;} |
return Cnil;} |
1510 |
}} |
}} |
1511 |
/* local entry for function INTERNAL-COUNT-IF */ |
/* local entry for function INTERNAL-COUNT-IF */ |
1512 |
|
|
1513 |
static object LI21(V299,V298,va_alist) |
static object LI21(V301,V300,va_alist) |
1514 |
object V299,V298; |
object V301,V300; |
1515 |
va_dcl |
va_dcl |
1516 |
{ |
{ |
1517 |
va_list ap; |
va_list ap; |
1518 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
1519 |
{object V300; |
{object V302; |
|
object V301; |
|
|
object V302; |
|
1520 |
object V303; |
object V303; |
1521 |
object V304; |
object V304; |
1522 |
object V305; |
object V305; |
1523 |
object V306; |
object V306; |
1524 |
|
object V307; |
1525 |
|
object V308; |
1526 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1527 |
va_start(ap); |
va_start(ap); |
1528 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1529 |
V300= V299; |
V302= V301; |
1530 |
V301= V298; |
V303= V300; |
1531 |
narg= narg - 2; |
narg= narg - 2; |
1532 |
{ |
{ |
1533 |
parse_key_new(narg,Vcs +2,(struct key *)&LI21key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI21key,ap); |
1534 |
V302=(Vcs[2]); |
V304=(Vcs[2]); |
1535 |
V303=(Vcs[3]); |
V305=(Vcs[3]); |
1536 |
V304=(Vcs[4]); |
V306=(Vcs[4]); |
1537 |
V305=(Vcs[5]); |
V307=(Vcs[5]); |
1538 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1539 |
V306= symbol_function(VV[33]); |
V308= symbol_function(VV[33]); |
1540 |
}else{ |
}else{ |
1541 |
V306=(Vcs[6]);} |
V308=(Vcs[6]);} |
1542 |
if(!(((V306))==(Cnil))){ |
if(!(((V308))==(Cnil))){ |
1543 |
goto T558;} |
goto T560;} |
1544 |
V306= symbol_function(VV[33]); |
V308= symbol_function(VV[33]); |
1545 |
goto T558; |
goto T560; |
1546 |
T558:; |
T560:; |
1547 |
V307= symbol_function(VV[44]); |
V309= symbol_function(VV[44]); |
1548 |
{object V308 = (VFUN_NARGS=14,(*(LnkLI45))((V300),(V301),VV[10],(V302),VV[11],V307,VV[13],(V303),VV[14],(V304),VV[15],(V305),VV[16],(V306))); |
{object V310 = (VFUN_NARGS=14,(*(LnkLI45))((V302),(V303),VV[10],(V304),VV[11],V309,VV[13],(V305),VV[14],(V306),VV[15],(V307),VV[16],(V308))); |
1549 |
VMR21(V308)} |
VMR21(V310)} |
1550 |
va_end(ap); |
va_end(ap); |
1551 |
return Cnil;} |
return Cnil;} |
1552 |
}} |
}} |
1553 |
/* local entry for function INTERNAL-COUNT-IF-NOT */ |
/* local entry for function INTERNAL-COUNT-IF-NOT */ |
1554 |
|
|
1555 |
static object LI22(V310,V309,va_alist) |
static object LI22(V312,V311,va_alist) |
1556 |
object V310,V309; |
object V312,V311; |
1557 |
va_dcl |
va_dcl |
1558 |
{ |
{ |
1559 |
va_list ap; |
va_list ap; |
1560 |
int narg = VFUN_NARGS; VMB22 VMS22 VMV22 |
int narg = VFUN_NARGS; VMB22 VMS22 VMV22 |
1561 |
{object V311; |
{object V313; |
|
object V312; |
|
|
object V313; |
|
1562 |
object V314; |
object V314; |
1563 |
object V315; |
object V315; |
1564 |
object V316; |
object V316; |
1565 |
object V317; |
object V317; |
1566 |
|
object V318; |
1567 |
|
object V319; |
1568 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1569 |
va_start(ap); |
va_start(ap); |
1570 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1571 |
V311= V310; |
V313= V312; |
1572 |
V312= V309; |
V314= V311; |
1573 |
narg= narg - 2; |
narg= narg - 2; |
1574 |
{ |
{ |
1575 |
parse_key_new(narg,Vcs +2,(struct key *)&LI22key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI22key,ap); |
1576 |
V313=(Vcs[2]); |
V315=(Vcs[2]); |
1577 |
V314=(Vcs[3]); |
V316=(Vcs[3]); |
1578 |
V315=(Vcs[4]); |
V317=(Vcs[4]); |
1579 |
V316=(Vcs[5]); |
V318=(Vcs[5]); |
1580 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
1581 |
V317= symbol_function(VV[33]); |
V319= symbol_function(VV[33]); |
1582 |
}else{ |
}else{ |
1583 |
V317=(Vcs[6]);} |
V319=(Vcs[6]);} |
1584 |
if(!(((V317))==(Cnil))){ |
if(!(((V319))==(Cnil))){ |
1585 |
goto T564;} |
goto T566;} |
1586 |
V317= symbol_function(VV[33]); |
V319= symbol_function(VV[33]); |
1587 |
goto T564; |
goto T566; |
1588 |
T564:; |
T566:; |
1589 |
V318= symbol_function(VV[44]); |
V320= symbol_function(VV[44]); |
1590 |
{object V319 = (VFUN_NARGS=14,(*(LnkLI45))((V311),(V312),VV[10],(V313),VV[12],V318,VV[13],(V314),VV[14],(V315),VV[15],(V316),VV[16],(V317))); |
{object V321 = (VFUN_NARGS=14,(*(LnkLI45))((V313),(V314),VV[10],(V315),VV[12],V320,VV[13],(V316),VV[14],(V317),VV[15],(V318),VV[16],(V319))); |
1591 |
VMR22(V319)} |
VMR22(V321)} |
1592 |
va_end(ap); |
va_end(ap); |
1593 |
return Cnil;} |
return Cnil;} |
1594 |
}} |
}} |
1595 |
/* local entry for function SUBSTITUTE */ |
/* local entry for function SUBSTITUTE */ |
1596 |
|
|
1597 |
static object LI23(V322,V321,V320,va_alist) |
static object LI23(V324,V323,V322,va_alist) |
1598 |
object V322,V321,V320; |
object V324,V323,V322; |
1599 |
va_dcl |
va_dcl |
1600 |
{ |
{ |
1601 |
va_list ap; |
va_list ap; |
1602 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
1603 |
{object V323; |
{object V325; |
|
object V324; |
|
|
register object V325; |
|
1604 |
object V326; |
object V326; |
1605 |
object V327; |
register object V327; |
1606 |
object V328; |
object V328; |
1607 |
object V329; |
object V329; |
1608 |
object V330; |
object V330; |
1609 |
object V331; |
object V331; |
1610 |
object V332; |
object V332; |
1611 |
|
object V333; |
1612 |
|
object V334; |
1613 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1614 |
va_start(ap); |
va_start(ap); |
1615 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1616 |
V323= V322; |
V325= V324; |
1617 |
V324= V321; |
V326= V323; |
1618 |
V325= V320; |
V327= V322; |
1619 |
narg= narg - 3; |
narg= narg - 3; |
1620 |
{ |
{ |
1621 |
parse_key_new(narg,Vcs +3,(struct key *)&LI23key,ap); |
parse_key_new(narg,Vcs +3,(struct key *)&LI23key,ap); |
1622 |
V326=(Vcs[3]); |
V328=(Vcs[3]); |
1623 |
V327=(Vcs[4]); |
V329=(Vcs[4]); |
1624 |
V328=(Vcs[5]); |
V330=(Vcs[5]); |
1625 |
V329=(Vcs[6]); |
V331=(Vcs[6]); |
1626 |
V330=(Vcs[7]); |
V332=(Vcs[7]); |
1627 |
V331=(Vcs[8]); |
V333=(Vcs[8]); |
1628 |
if(Vcs[9]==0){ |
if(Vcs[9]==0){ |
1629 |
V332= symbol_function(VV[33]); |
V334= symbol_function(VV[33]); |
1630 |
}else{ |
}else{ |
1631 |
V332=(Vcs[9]);} |
V334=(Vcs[9]);} |
1632 |
{long V333; |
{long V335; |
1633 |
V333= (long)length((V325)); |
V335= (long)length((V327)); |
1634 |
if(!(((V332))==(Cnil))){ |
if(!(((V334))==(Cnil))){ |
1635 |
goto T571;} |
goto T573;} |
1636 |
V332= symbol_function(VV[33]); |
V334= symbol_function(VV[33]); |
1637 |
goto T571; |
goto T573; |
1638 |
T571:; |
T573:; |
1639 |
{long V334; |
{long V336; |
1640 |
if(((V329))==Cnil){ |
if(((V331))==Cnil){ |
1641 |
goto T577;} |
goto T579;} |
1642 |
V334= (long)(*(LnkLI34))((V329)); |
V336= (long)(*(LnkLI34))((V331)); |
1643 |
goto T575; |
goto T577; |
1644 |
|
goto T579; |
1645 |
|
T579:; |
1646 |
|
V336= 0; |
1647 |
goto T577; |
goto T577; |
1648 |
T577:; |
T577:; |
1649 |
V334= 0; |
{long V337; |
1650 |
goto T575; |
V337= (long)(*(LnkLI35))((V332),(V327)); |
1651 |
T575:; |
if(!((V336)<=(V337))){ |
1652 |
{long V335; |
goto T583;} |
1653 |
V335= (long)(*(LnkLI35))((V330),(V325)); |
goto T582; |
|
if(!((V334)<=(V335))){ |
|
|
goto T581;} |
|
|
goto T580; |
|
|
goto T581; |
|
|
T581:; |
|
|
V336 = make_fixnum(V334); |
|
|
V337 = make_fixnum(V335); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V336,V337))); |
|
|
goto T580; |
|
|
T580:; |
|
|
{long V338; |
|
|
if(((V331))!=Cnil){ |
|
|
goto T585;} |
|
|
V338= 2147483647; |
|
|
goto T583; |
|
|
goto T585; |
|
|
T585:; |
|
|
V338= fix((V331)); |
|
1654 |
goto T583; |
goto T583; |
1655 |
T583:; |
T583:; |
1656 |
if((V327)==Cnil){ |
V338 = make_fixnum(V336); |
1657 |
goto T588;} |
V339 = make_fixnum(V337); |
1658 |
if((V328)==Cnil){ |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V338,V339))); |
1659 |
goto T588;} |
goto T582; |
1660 |
(void)((*(LnkLI40))()); |
T582:; |
1661 |
goto T588; |
{long V340; |
1662 |
T588:; |
if(((V333))!=Cnil){ |
1663 |
if(((V326))!=Cnil){ |
goto T587;} |
1664 |
|
V340= 2147483647; |
1665 |
|
goto T585; |
1666 |
|
goto T587; |
1667 |
|
T587:; |
1668 |
|
V340= fix((V333)); |
1669 |
|
goto T585; |
1670 |
|
T585:; |
1671 |
|
if((V329)==Cnil){ |
1672 |
goto T590;} |
goto T590;} |
1673 |
{register object V339; |
if((V330)==Cnil){ |
1674 |
register long V340; |
goto T590;} |
1675 |
register long V341; |
(void)((*(LnkLI40))()); |
|
V342= (*(LnkLI47))((V325)); |
|
|
V343 = make_fixnum(V333); |
|
|
V339= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V342,V343)); |
|
|
V340= 0; |
|
|
V341= 0; |
|
|
goto T596; |
|
|
T596:; |
|
|
if(!((V340)>=(V333))){ |
|
|
goto T597;} |
|
|
{object V344 = (V339); |
|
|
VMR23(V344)} |
|
|
goto T597; |
|
|
T597:; |
|
|
if(!((V334)<=(V340))){ |
|
|
goto T603;} |
|
|
if(!((V340)<(V335))){ |
|
|
goto T603;} |
|
|
if(!((V341)<(V338))){ |
|
|
goto T603;} |
|
|
base[0]= elt((V325),V340); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V332)); |
|
|
vs_top=sup; |
|
|
V345= vs_base[0]; |
|
|
if(((*(LnkLI41))((V327),(V328),(V324),V345))==Cnil){ |
|
|
goto T603;} |
|
|
(void)(elt_set((V339),V340,(V323))); |
|
|
V341= (long)(1)+(V341); |
|
|
goto T601; |
|
|
goto T603; |
|
|
T603:; |
|
|
V346= elt((V325),V340); |
|
|
(void)(elt_set((V339),V340,/* INLINE-ARGS */V346)); |
|
|
goto T601; |
|
|
T601:; |
|
|
V340= (long)(1)+(V340); |
|
|
goto T596;} |
|
1676 |
goto T590; |
goto T590; |
1677 |
T590:; |
T590:; |
1678 |
{register object V347; |
if(((V328))!=Cnil){ |
1679 |
register long V348; |
goto T592;} |
1680 |
register long V349; |
{register object V341; |
1681 |
V350= (*(LnkLI47))((V325)); |
register long V342; |
1682 |
V351 = make_fixnum(V333); |
register long V343; |
1683 |
V347= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V350,V351)); |
V344= (*(LnkLI47))((V327)); |
1684 |
V348= (long)(-1)+(V333); |
V345 = make_fixnum(V335); |
1685 |
V349= 0; |
V341= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V344,V345)); |
1686 |
goto T622; |
V342= 0; |
1687 |
T622:; |
V343= 0; |
1688 |
if(!((V348)<(0))){ |
goto T598; |
1689 |
goto T623;} |
T598:; |
1690 |
{object V352 = (V347); |
if(!((V342)>=(V335))){ |
1691 |
VMR23(V352)} |
goto T599;} |
1692 |
goto T623; |
{object V346 = (V341); |
1693 |
T623:; |
VMR23(V346)} |
1694 |
if(!((V334)<=(V348))){ |
goto T599; |
1695 |
goto T629;} |
T599:; |
1696 |
if(!((V348)<(V335))){ |
if(!((V336)<=(V342))){ |
1697 |
goto T629;} |
goto T605;} |
1698 |
if(!((V349)<(V338))){ |
if(!((V342)<(V337))){ |
1699 |
goto T629;} |
goto T605;} |
1700 |
base[0]= elt((V325),V348); |
if(!((V343)<(V340))){ |
1701 |
vs_top=(vs_base=base+0)+1; |
goto T605;} |
1702 |
super_funcall_no_event((V332)); |
base[0]= elt((V327),V342); |
1703 |
vs_top=sup; |
vs_top=(vs_base=base+0)+1; |
1704 |
V353= vs_base[0]; |
super_funcall_no_event((V334)); |
1705 |
if(((*(LnkLI41))((V327),(V328),(V324),V353))==Cnil){ |
vs_top=sup; |
1706 |
goto T629;} |
V347= vs_base[0]; |
1707 |
(void)(elt_set((V347),V348,(V323))); |
if(((*(LnkLI41))((V329),(V330),(V326),V347))==Cnil){ |
1708 |
V349= (long)(1)+(V349); |
goto T605;} |
1709 |
goto T627; |
(void)(elt_set((V341),V342,(V325))); |
1710 |
|
V343= (long)(1)+(V343); |
1711 |
|
goto T603; |
1712 |
|
goto T605; |
1713 |
|
T605:; |
1714 |
|
V348= elt((V327),V342); |
1715 |
|
(void)(elt_set((V341),V342,/* INLINE-ARGS */V348)); |
1716 |
|
goto T603; |
1717 |
|
T603:; |
1718 |
|
V342= (long)(1)+(V342); |
1719 |
|
goto T598;} |
1720 |
|
goto T592; |
1721 |
|
T592:; |
1722 |
|
{register object V349; |
1723 |
|
register long V350; |
1724 |
|
register long V351; |
1725 |
|
V352= (*(LnkLI47))((V327)); |
1726 |
|
V353 = make_fixnum(V335); |
1727 |
|
V349= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V352,V353)); |
1728 |
|
V350= (long)(-1)+(V335); |
1729 |
|
V351= 0; |
1730 |
|
goto T624; |
1731 |
|
T624:; |
1732 |
|
if(!((V350)<(0))){ |
1733 |
|
goto T625;} |
1734 |
|
{object V354 = (V349); |
1735 |
|
VMR23(V354)} |
1736 |
|
goto T625; |
1737 |
|
T625:; |
1738 |
|
if(!((V336)<=(V350))){ |
1739 |
|
goto T631;} |
1740 |
|
if(!((V350)<(V337))){ |
1741 |
|
goto T631;} |
1742 |
|
if(!((V351)<(V340))){ |
1743 |
|
goto T631;} |
1744 |
|
base[0]= elt((V327),V350); |
1745 |
|
vs_top=(vs_base=base+0)+1; |
1746 |
|
super_funcall_no_event((V334)); |
1747 |
|
vs_top=sup; |
1748 |
|
V355= vs_base[0]; |
1749 |
|
if(((*(LnkLI41))((V329),(V330),(V326),V355))==Cnil){ |
1750 |
|
goto T631;} |
1751 |
|
(void)(elt_set((V349),V350,(V325))); |
1752 |
|
V351= (long)(1)+(V351); |
1753 |
|
goto T629; |
1754 |
|
goto T631; |
1755 |
|
T631:; |
1756 |
|
V356= elt((V327),V350); |
1757 |
|
(void)(elt_set((V349),V350,/* INLINE-ARGS */V356)); |
1758 |
goto T629; |
goto T629; |
1759 |
T629:; |
T629:; |
1760 |
V354= elt((V325),V348); |
V350= (long)(-1)+(V350); |
1761 |
(void)(elt_set((V347),V348,/* INLINE-ARGS */V354)); |
goto T624;}}}}} |
|
goto T627; |
|
|
T627:; |
|
|
V348= (long)(-1)+(V348); |
|
|
goto T622;}}}}} |
|
1762 |
va_end(ap); |
va_end(ap); |
1763 |
base[0]=base[0]; |
base[0]=base[0]; |
1764 |
return Cnil;} |
return Cnil;} |
1765 |
}} |
}} |
1766 |
/* local entry for function SUBSTITUTE-IF */ |
/* local entry for function SUBSTITUTE-IF */ |
1767 |
|
|
1768 |
static object LI24(V357,V356,V355,va_alist) |
static object LI24(V359,V358,V357,va_alist) |
1769 |
object V357,V356,V355; |
object V359,V358,V357; |
1770 |
va_dcl |
va_dcl |
1771 |
{ |
{ |
1772 |
va_list ap; |
va_list ap; |
1773 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
1774 |
{object V358; |
{object V360; |
|
object V359; |
|
|
object V360; |
|
1775 |
object V361; |
object V361; |
1776 |
object V362; |
object V362; |
1777 |
object V363; |
object V363; |
1778 |
object V364; |
object V364; |
1779 |
object V365; |
object V365; |
1780 |
|
object V366; |
1781 |
|
object V367; |
1782 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1783 |
va_start(ap); |
va_start(ap); |
1784 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1785 |
V358= V357; |
V360= V359; |
1786 |
V359= V356; |
V361= V358; |
1787 |
V360= V355; |
V362= V357; |
1788 |
narg= narg - 3; |
narg= narg - 3; |
1789 |
{ |
{ |
1790 |
parse_key_new(narg,Vcs +3,(struct key *)&LI24key,ap); |
parse_key_new(narg,Vcs +3,(struct key *)&LI24key,ap); |
1791 |
V361=(Vcs[3]); |
V363=(Vcs[3]); |
1792 |
V362=(Vcs[4]); |
V364=(Vcs[4]); |
1793 |
V363=(Vcs[5]); |
V365=(Vcs[5]); |
1794 |
V364=(Vcs[6]); |
V366=(Vcs[6]); |
1795 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
1796 |
V365= symbol_function(VV[33]); |
V367= symbol_function(VV[33]); |
1797 |
}else{ |
}else{ |
1798 |
V365=(Vcs[7]);} |
V367=(Vcs[7]);} |
1799 |
if(!(((V365))==(Cnil))){ |
if(!(((V367))==(Cnil))){ |
1800 |
goto T645;} |
goto T647;} |
1801 |
V365= symbol_function(VV[33]); |
V367= symbol_function(VV[33]); |
1802 |
goto T645; |
goto T647; |
1803 |
T645:; |
T647:; |
1804 |
V366= symbol_function(VV[44]); |
V368= symbol_function(VV[44]); |
1805 |
{object V367 = (VFUN_NARGS=15,(*(LnkLI49))((V358),(V359),(V360),VV[10],(V361),VV[11],V366,VV[13],(V362),VV[14],(V363),VV[15],(V364),VV[16],(V365))); |
{object V369 = (VFUN_NARGS=15,(*(LnkLI49))((V360),(V361),(V362),VV[10],(V363),VV[11],V368,VV[13],(V364),VV[14],(V365),VV[15],(V366),VV[16],(V367))); |
1806 |
VMR24(V367)} |
VMR24(V369)} |
1807 |
va_end(ap); |
va_end(ap); |
1808 |
return Cnil;} |
return Cnil;} |
1809 |
}} |
}} |
1810 |
/* local entry for function SUBSTITUTE-IF-NOT */ |
/* local entry for function SUBSTITUTE-IF-NOT */ |
1811 |
|
|
1812 |
static object LI25(V370,V369,V368,va_alist) |
static object LI25(V372,V371,V370,va_alist) |
1813 |
object V370,V369,V368; |
object V372,V371,V370; |
1814 |
va_dcl |
va_dcl |
1815 |
{ |
{ |
1816 |
va_list ap; |
va_list ap; |
1817 |
int narg = VFUN_NARGS; VMB25 VMS25 VMV25 |
int narg = VFUN_NARGS; VMB25 VMS25 VMV25 |
1818 |
{object V371; |
{object V373; |
|
object V372; |
|
|
object V373; |
|
1819 |
object V374; |
object V374; |
1820 |
object V375; |
object V375; |
1821 |
object V376; |
object V376; |
1822 |
object V377; |
object V377; |
1823 |
object V378; |
object V378; |
1824 |
|
object V379; |
1825 |
|
object V380; |
1826 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1827 |
va_start(ap); |
va_start(ap); |
1828 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1829 |
V371= V370; |
V373= V372; |
1830 |
V372= V369; |
V374= V371; |
1831 |
V373= V368; |
V375= V370; |
1832 |
narg= narg - 3; |
narg= narg - 3; |
1833 |
{ |
{ |
1834 |
parse_key_new(narg,Vcs +3,(struct key *)&LI25key,ap); |
parse_key_new(narg,Vcs +3,(struct key *)&LI25key,ap); |
1835 |
V374=(Vcs[3]); |
V376=(Vcs[3]); |
1836 |
V375=(Vcs[4]); |
V377=(Vcs[4]); |
1837 |
V376=(Vcs[5]); |
V378=(Vcs[5]); |
1838 |
V377=(Vcs[6]); |
V379=(Vcs[6]); |
1839 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
1840 |
V378= symbol_function(VV[33]); |
V380= symbol_function(VV[33]); |
1841 |
}else{ |
}else{ |
1842 |
V378=(Vcs[7]);} |
V380=(Vcs[7]);} |
1843 |
if(!(((V378))==(Cnil))){ |
if(!(((V380))==(Cnil))){ |
1844 |
goto T651;} |
goto T653;} |
1845 |
V378= symbol_function(VV[33]); |
V380= symbol_function(VV[33]); |
1846 |
goto T651; |
goto T653; |
1847 |
T651:; |
T653:; |
1848 |
V379= symbol_function(VV[44]); |
V381= symbol_function(VV[44]); |
1849 |
{object V380 = (VFUN_NARGS=15,(*(LnkLI49))((V371),(V372),(V373),VV[10],(V374),VV[12],V379,VV[13],(V375),VV[14],(V376),VV[15],(V377),VV[16],(V378))); |
{object V382 = (VFUN_NARGS=15,(*(LnkLI49))((V373),(V374),(V375),VV[10],(V376),VV[12],V381,VV[13],(V377),VV[14],(V378),VV[15],(V379),VV[16],(V380))); |
1850 |
VMR25(V380)} |
VMR25(V382)} |
1851 |
va_end(ap); |
va_end(ap); |
1852 |
return Cnil;} |
return Cnil;} |
1853 |
}} |
}} |
1854 |
/* local entry for function NSUBSTITUTE */ |
/* local entry for function NSUBSTITUTE */ |
1855 |
|
|
1856 |
static object LI26(V383,V382,V381,va_alist) |
static object LI26(V385,V384,V383,va_alist) |
1857 |
object V383,V382,V381; |
object V385,V384,V383; |
1858 |
va_dcl |
va_dcl |
1859 |
{ |
{ |
1860 |
va_list ap; |
va_list ap; |
1861 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
1862 |
{object V384; |
{object V386; |
|
object V385; |
|
|
register object V386; |
|
1863 |
object V387; |
object V387; |
1864 |
object V388; |
register object V388; |
1865 |
object V389; |
object V389; |
1866 |
object V390; |
object V390; |
1867 |
object V391; |
object V391; |
1868 |
object V392; |
object V392; |
1869 |
register object V393; |
object V393; |
1870 |
|
object V394; |
1871 |
|
register object V395; |
1872 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1873 |
va_start(ap); |
va_start(ap); |
1874 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1875 |
V384= V383; |
V386= V385; |
1876 |
V385= V382; |
V387= V384; |
1877 |
V386= V381; |
V388= V383; |
1878 |
narg= narg - 3; |
narg= narg - 3; |
1879 |
{ |
{ |
1880 |
parse_key_new(narg,Vcs +3,(struct key *)&LI26key,ap); |
parse_key_new(narg,Vcs +3,(struct key *)&LI26key,ap); |
1881 |
V387=(Vcs[3]); |
V389=(Vcs[3]); |
1882 |
V388=(Vcs[4]); |
V390=(Vcs[4]); |
1883 |
V389=(Vcs[5]); |
V391=(Vcs[5]); |
1884 |
V390=(Vcs[6]); |
V392=(Vcs[6]); |
1885 |
V391=(Vcs[7]); |
V393=(Vcs[7]); |
1886 |
V392=(Vcs[8]); |
V394=(Vcs[8]); |
1887 |
if(Vcs[9]==0){ |
if(Vcs[9]==0){ |
1888 |
V393= symbol_function(VV[33]); |
V395= symbol_function(VV[33]); |
1889 |
}else{ |
}else{ |
1890 |
V393=(Vcs[9]);} |
V395=(Vcs[9]);} |
1891 |
if(!(((V393))==(Cnil))){ |
if(!(((V395))==(Cnil))){ |
1892 |
goto T657;} |
goto T659;} |
1893 |
V393= symbol_function(VV[33]); |
V395= symbol_function(VV[33]); |
1894 |
goto T657; |
goto T659; |
1895 |
T657:; |
T659:; |
1896 |
{long V394; |
{long V396; |
1897 |
if(((V390))==Cnil){ |
if(((V392))==Cnil){ |
1898 |
goto T663;} |
goto T665;} |
1899 |
V394= (long)(*(LnkLI34))((V390)); |
V396= (long)(*(LnkLI34))((V392)); |
1900 |
goto T661; |
goto T663; |
1901 |
|
goto T665; |
1902 |
|
T665:; |
1903 |
|
V396= 0; |
1904 |
goto T663; |
goto T663; |
1905 |
T663:; |
T663:; |
1906 |
V394= 0; |
{long V397; |
1907 |
goto T661; |
V397= (long)(*(LnkLI35))((V393),(V388)); |
1908 |
T661:; |
if(!((V396)<=(V397))){ |
1909 |
{long V395; |
goto T669;} |
1910 |
V395= (long)(*(LnkLI35))((V391),(V386)); |
goto T668; |
|
if(!((V394)<=(V395))){ |
|
|
goto T667;} |
|
|
goto T666; |
|
|
goto T667; |
|
|
T667:; |
|
|
V396 = make_fixnum(V394); |
|
|
V397 = make_fixnum(V395); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V396,V397))); |
|
|
goto T666; |
|
|
T666:; |
|
|
{long V398; |
|
|
if(((V392))!=Cnil){ |
|
|
goto T671;} |
|
|
V398= 2147483647; |
|
|
goto T669; |
|
|
goto T671; |
|
|
T671:; |
|
|
V398= fix((V392)); |
|
1911 |
goto T669; |
goto T669; |
1912 |
T669:; |
T669:; |
1913 |
if((V388)==Cnil){ |
V398 = make_fixnum(V396); |
1914 |
goto T674;} |
V399 = make_fixnum(V397); |
1915 |
if((V389)==Cnil){ |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V398,V399))); |
1916 |
goto T674;} |
goto T668; |
1917 |
(void)((*(LnkLI40))()); |
T668:; |
1918 |
goto T674; |
{long V400; |
1919 |
T674:; |
if(((V394))!=Cnil){ |
1920 |
if(((V387))!=Cnil){ |
goto T673;} |
1921 |
|
V400= 2147483647; |
1922 |
|
goto T671; |
1923 |
|
goto T673; |
1924 |
|
T673:; |
1925 |
|
V400= fix((V394)); |
1926 |
|
goto T671; |
1927 |
|
T671:; |
1928 |
|
if((V390)==Cnil){ |
1929 |
goto T676;} |
goto T676;} |
1930 |
{register long V399; |
if((V391)==Cnil){ |
1931 |
register long V400; |
goto T676;} |
1932 |
V399= V394; |
(void)((*(LnkLI40))()); |
|
V400= 0; |
|
|
goto T681; |
|
|
T681:; |
|
|
if(!((V399)>=(V395))){ |
|
|
goto T682;} |
|
|
{object V401 = (V386); |
|
|
VMR26(V401)} |
|
|
goto T682; |
|
|
T682:; |
|
|
if(!((V400)<(V398))){ |
|
|
goto T686;} |
|
|
base[0]= elt((V386),V399); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V393)); |
|
|
vs_top=sup; |
|
|
V402= vs_base[0]; |
|
|
if(((*(LnkLI41))((V388),(V389),(V385),V402))==Cnil){ |
|
|
goto T686;} |
|
|
(void)(elt_set((V386),V399,(V384))); |
|
|
V400= (long)(1)+(V400); |
|
|
goto T686; |
|
|
T686:; |
|
|
V399= (long)(1)+(V399); |
|
|
goto T681;} |
|
1933 |
goto T676; |
goto T676; |
1934 |
T676:; |
T676:; |
1935 |
{register long V403; |
if(((V389))!=Cnil){ |
1936 |
register long V404; |
goto T678;} |
1937 |
V403= (long)(-1)+(V395); |
{register long V401; |
1938 |
V404= 0; |
register long V402; |
1939 |
goto T701; |
V401= V396; |
1940 |
T701:; |
V402= 0; |
1941 |
if(!((V403)<(V394))){ |
goto T683; |
1942 |
goto T702;} |
T683:; |
1943 |
{object V405 = (V386); |
if(!((V401)>=(V397))){ |
1944 |
VMR26(V405)} |
goto T684;} |
1945 |
goto T702; |
{object V403 = (V388); |
1946 |
T702:; |
VMR26(V403)} |
1947 |
if(!((V404)<(V398))){ |
goto T684; |
1948 |
goto T706;} |
T684:; |
1949 |
base[0]= elt((V386),V403); |
if(!((V402)<(V400))){ |
1950 |
vs_top=(vs_base=base+0)+1; |
goto T688;} |
1951 |
super_funcall_no_event((V393)); |
base[0]= elt((V388),V401); |
1952 |
vs_top=sup; |
vs_top=(vs_base=base+0)+1; |
1953 |
V406= vs_base[0]; |
super_funcall_no_event((V395)); |
1954 |
if(((*(LnkLI41))((V388),(V389),(V385),V406))==Cnil){ |
vs_top=sup; |
1955 |
goto T706;} |
V404= vs_base[0]; |
1956 |
(void)(elt_set((V386),V403,(V384))); |
if(((*(LnkLI41))((V390),(V391),(V387),V404))==Cnil){ |
1957 |
V404= (long)(1)+(V404); |
goto T688;} |
1958 |
goto T706; |
(void)(elt_set((V388),V401,(V386))); |
1959 |
T706:; |
V402= (long)(1)+(V402); |
1960 |
V403= (long)(-1)+(V403); |
goto T688; |
1961 |
goto T701;}}}} |
T688:; |
1962 |
|
V401= (long)(1)+(V401); |
1963 |
|
goto T683;} |
1964 |
|
goto T678; |
1965 |
|
T678:; |
1966 |
|
{register long V405; |
1967 |
|
register long V406; |
1968 |
|
V405= (long)(-1)+(V397); |
1969 |
|
V406= 0; |
1970 |
|
goto T703; |
1971 |
|
T703:; |
1972 |
|
if(!((V405)<(V396))){ |
1973 |
|
goto T704;} |
1974 |
|
{object V407 = (V388); |
1975 |
|
VMR26(V407)} |
1976 |
|
goto T704; |
1977 |
|
T704:; |
1978 |
|
if(!((V406)<(V400))){ |
1979 |
|
goto T708;} |
1980 |
|
base[0]= elt((V388),V405); |
1981 |
|
vs_top=(vs_base=base+0)+1; |
1982 |
|
super_funcall_no_event((V395)); |
1983 |
|
vs_top=sup; |
1984 |
|
V408= vs_base[0]; |
1985 |
|
if(((*(LnkLI41))((V390),(V391),(V387),V408))==Cnil){ |
1986 |
|
goto T708;} |
1987 |
|
(void)(elt_set((V388),V405,(V386))); |
1988 |
|
V406= (long)(1)+(V406); |
1989 |
|
goto T708; |
1990 |
|
T708:; |
1991 |
|
V405= (long)(-1)+(V405); |
1992 |
|
goto T703;}}}} |
1993 |
va_end(ap); |
va_end(ap); |
1994 |
base[0]=base[0]; |
base[0]=base[0]; |
1995 |
return Cnil;} |
return Cnil;} |
1996 |
}} |
}} |
1997 |
/* local entry for function NSUBSTITUTE-IF */ |
/* local entry for function NSUBSTITUTE-IF */ |
1998 |
|
|
1999 |
static object LI27(V409,V408,V407,va_alist) |
static object LI27(V411,V410,V409,va_alist) |
2000 |
object V409,V408,V407; |
object V411,V410,V409; |
2001 |
va_dcl |
va_dcl |
2002 |
{ |
{ |
2003 |
va_list ap; |
va_list ap; |
2004 |
int narg = VFUN_NARGS; VMB27 VMS27 VMV27 |
int narg = VFUN_NARGS; VMB27 VMS27 VMV27 |
2005 |
{object V410; |
{object V412; |
|
object V411; |
|
|
object V412; |
|
2006 |
object V413; |
object V413; |
2007 |
object V414; |
object V414; |
2008 |
object V415; |
object V415; |
2009 |
object V416; |
object V416; |
2010 |
object V417; |
object V417; |
2011 |
|
object V418; |
2012 |
|
object V419; |
2013 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2014 |
va_start(ap); |
va_start(ap); |
2015 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
2016 |
V410= V409; |
V412= V411; |
2017 |
V411= V408; |
V413= V410; |
2018 |
V412= V407; |
V414= V409; |
2019 |
narg= narg - 3; |
narg= narg - 3; |
2020 |
{ |
{ |
2021 |
parse_key_new(narg,Vcs +3,(struct key *)&LI27key,ap); |
parse_key_new(narg,Vcs +3,(struct key *)&LI27key,ap); |
2022 |
V413=(Vcs[3]); |
V415=(Vcs[3]); |
2023 |
V414=(Vcs[4]); |
V416=(Vcs[4]); |
2024 |
V415=(Vcs[5]); |
V417=(Vcs[5]); |
2025 |
V416=(Vcs[6]); |
V418=(Vcs[6]); |
2026 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2027 |
V417= symbol_function(VV[33]); |
V419= symbol_function(VV[33]); |
2028 |
}else{ |
}else{ |
2029 |
V417=(Vcs[7]);} |
V419=(Vcs[7]);} |
2030 |
if(!(((V417))==(Cnil))){ |
if(!(((V419))==(Cnil))){ |
2031 |
goto T719;} |
goto T721;} |
2032 |
V417= symbol_function(VV[33]); |
V419= symbol_function(VV[33]); |
2033 |
goto T719; |
goto T721; |
2034 |
T719:; |
T721:; |
2035 |
V418= symbol_function(VV[44]); |
V420= symbol_function(VV[44]); |
2036 |
{object V419 = (VFUN_NARGS=15,(*(LnkLI50))((V410),(V411),(V412),VV[10],(V413),VV[11],V418,VV[13],(V414),VV[14],(V415),VV[15],(V416),VV[16],(V417))); |
{object V421 = (VFUN_NARGS=15,(*(LnkLI50))((V412),(V413),(V414),VV[10],(V415),VV[11],V420,VV[13],(V416),VV[14],(V417),VV[15],(V418),VV[16],(V419))); |
2037 |
VMR27(V419)} |
VMR27(V421)} |
2038 |
va_end(ap); |
va_end(ap); |
2039 |
return Cnil;} |
return Cnil;} |
2040 |
}} |
}} |
2041 |
/* local entry for function NSUBSTITUTE-IF-NOT */ |
/* local entry for function NSUBSTITUTE-IF-NOT */ |
2042 |
|
|
2043 |
static object LI28(V422,V421,V420,va_alist) |
static object LI28(V424,V423,V422,va_alist) |
2044 |
object V422,V421,V420; |
object V424,V423,V422; |
2045 |
va_dcl |
va_dcl |
2046 |
{ |
{ |
2047 |
va_list ap; |
va_list ap; |
2048 |
int narg = VFUN_NARGS; VMB28 VMS28 VMV28 |
int narg = VFUN_NARGS; VMB28 VMS28 VMV28 |
2049 |
{object V423; |
{object V425; |
|
object V424; |
|
|
object V425; |
|
2050 |
object V426; |
object V426; |
2051 |
object V427; |
object V427; |
2052 |
object V428; |
object V428; |
2053 |
object V429; |
object V429; |
2054 |
object V430; |
object V430; |
2055 |
|
object V431; |
2056 |
|
object V432; |
2057 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2058 |
va_start(ap); |
va_start(ap); |
2059 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
2060 |
V423= V422; |
V425= V424; |
2061 |
V424= V421; |
V426= V423; |
2062 |
V425= V420; |
V427= V422; |
2063 |
narg= narg - 3; |
narg= narg - 3; |
2064 |
{ |
{ |
2065 |
parse_key_new(narg,Vcs +3,(struct key *)&LI28key,ap); |
parse_key_new(narg,Vcs +3,(struct key *)&LI28key,ap); |
2066 |
V426=(Vcs[3]); |
V428=(Vcs[3]); |
2067 |
V427=(Vcs[4]); |
V429=(Vcs[4]); |
2068 |
V428=(Vcs[5]); |
V430=(Vcs[5]); |
2069 |
V429=(Vcs[6]); |
V431=(Vcs[6]); |
2070 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2071 |
V430= symbol_function(VV[33]); |
V432= symbol_function(VV[33]); |
2072 |
}else{ |
}else{ |
2073 |
V430=(Vcs[7]);} |
V432=(Vcs[7]);} |
2074 |
if(!(((V430))==(Cnil))){ |
if(!(((V432))==(Cnil))){ |
2075 |
goto T725;} |
goto T727;} |
2076 |
V430= symbol_function(VV[33]); |
V432= symbol_function(VV[33]); |
2077 |
goto T725; |
goto T727; |
2078 |
T725:; |
T727:; |
2079 |
V431= symbol_function(VV[44]); |
V433= symbol_function(VV[44]); |
2080 |
{object V432 = (VFUN_NARGS=15,(*(LnkLI50))((V423),(V424),(V425),VV[10],(V426),VV[12],V431,VV[13],(V427),VV[14],(V428),VV[15],(V429),VV[16],(V430))); |
{object V434 = (VFUN_NARGS=15,(*(LnkLI50))((V425),(V426),(V427),VV[10],(V428),VV[12],V433,VV[13],(V429),VV[14],(V430),VV[15],(V431),VV[16],(V432))); |
2081 |
VMR28(V432)} |
VMR28(V434)} |
2082 |
va_end(ap); |
va_end(ap); |
2083 |
return Cnil;} |
return Cnil;} |
2084 |
}} |
}} |
2085 |
/* local entry for function FIND */ |
/* local entry for function FIND */ |
2086 |
|
|
2087 |
static object LI29(V434,V433,va_alist) |
static object LI29(V436,V435,va_alist) |
2088 |
object V434,V433; |
object V436,V435; |
2089 |
va_dcl |
va_dcl |
2090 |
{ |
{ |
2091 |
va_list ap; |
va_list ap; |
2092 |
int narg = VFUN_NARGS; VMB29 VMS29 VMV29 |
int narg = VFUN_NARGS; VMB29 VMS29 VMV29 |
2093 |
{object V435; |
{object V437; |
|
register object V436; |
|
|
object V437; |
|
2094 |
register object V438; |
register object V438; |
2095 |
register object V439; |
object V439; |
2096 |
object V440; |
register object V440; |
2097 |
object V441; |
register object V441; |
2098 |
register object V442; |
object V442; |
2099 |
|
object V443; |
2100 |
|
register object V444; |
2101 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2102 |
va_start(ap); |
va_start(ap); |
2103 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2104 |
V435= V434; |
V437= V436; |
2105 |
V436= V433; |
V438= V435; |
2106 |
narg= narg - 2; |
narg= narg - 2; |
2107 |
{ |
{ |
2108 |
parse_key_new(narg,Vcs +2,(struct key *)&LI29key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI29key,ap); |
2109 |
V437=(Vcs[2]); |
V439=(Vcs[2]); |
2110 |
V438=(Vcs[3]); |
V440=(Vcs[3]); |
2111 |
V439=(Vcs[4]); |
V441=(Vcs[4]); |
2112 |
V440=(Vcs[5]); |
V442=(Vcs[5]); |
2113 |
V441=(Vcs[6]); |
V443=(Vcs[6]); |
2114 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2115 |
V442= symbol_function(VV[33]); |
V444= symbol_function(VV[33]); |
2116 |
}else{ |
}else{ |
2117 |
V442=(Vcs[7]);} |
V444=(Vcs[7]);} |
2118 |
if(!(((V442))==(Cnil))){ |
if(!(((V444))==(Cnil))){ |
2119 |
goto T731;} |
goto T733;} |
2120 |
V442= symbol_function(VV[33]); |
V444= symbol_function(VV[33]); |
2121 |
goto T731; |
goto T733; |
2122 |
T731:; |
T733:; |
2123 |
{long V443; |
{long V445; |
2124 |
if(((V440))==Cnil){ |
if(((V442))==Cnil){ |
2125 |
goto T737;} |
goto T739;} |
2126 |
V443= (long)(*(LnkLI34))((V440)); |
V445= (long)(*(LnkLI34))((V442)); |
2127 |
goto T735; |
goto T737; |
2128 |
|
goto T739; |
2129 |
|
T739:; |
2130 |
|
V445= 0; |
2131 |
goto T737; |
goto T737; |
2132 |
T737:; |
T737:; |
2133 |
V443= 0; |
{long V446; |
2134 |
goto T735; |
V446= (long)(*(LnkLI35))((V443),(V438)); |
2135 |
T735:; |
if(!((V445)<=(V446))){ |
|
{long V444; |
|
|
V444= (long)(*(LnkLI35))((V441),(V436)); |
|
|
if(!((V443)<=(V444))){ |
|
|
goto T741;} |
|
|
goto T740; |
|
|
goto T741; |
|
|
T741:; |
|
|
V445 = make_fixnum(V443); |
|
|
V446 = make_fixnum(V444); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V445,V446))); |
|
|
goto T740; |
|
|
T740:; |
|
|
if((V438)==Cnil){ |
|
2136 |
goto T743;} |
goto T743;} |
2137 |
if((V439)==Cnil){ |
goto T742; |
|
goto T743;} |
|
|
(void)((*(LnkLI40))()); |
|
2138 |
goto T743; |
goto T743; |
2139 |
T743:; |
T743:; |
2140 |
if(((V437))!=Cnil){ |
V447 = make_fixnum(V445); |
2141 |
|
V448 = make_fixnum(V446); |
2142 |
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V447,V448))); |
2143 |
|
goto T742; |
2144 |
|
T742:; |
2145 |
|
if((V440)==Cnil){ |
2146 |
goto T745;} |
goto T745;} |
2147 |
{register long V447; |
if((V441)==Cnil){ |
2148 |
V447= V443; |
goto T745;} |
2149 |
goto T749; |
(void)((*(LnkLI40))()); |
|
T749:; |
|
|
if(!((V447)>=(V444))){ |
|
|
goto T750;} |
|
|
{object V448 = Cnil; |
|
|
VMR29(V448)} |
|
|
goto T750; |
|
|
T750:; |
|
|
base[0]= elt((V436),V447); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V442)); |
|
|
vs_top=sup; |
|
|
V449= vs_base[0]; |
|
|
if(((*(LnkLI41))((V438),(V439),(V435),V449))==Cnil){ |
|
|
goto T754;} |
|
|
{object V450 = elt((V436),V447); |
|
|
VMR29(V450)} |
|
|
goto T754; |
|
|
T754:; |
|
|
V447= (long)(1)+(V447); |
|
|
goto T749;} |
|
2150 |
goto T745; |
goto T745; |
2151 |
T745:; |
T745:; |
2152 |
{register long V451; |
if(((V439))!=Cnil){ |
2153 |
V451= (long)(-1)+(V444); |
goto T747;} |
2154 |
goto T764; |
{register long V449; |
2155 |
T764:; |
V449= V445; |
2156 |
if(!((V451)<(V443))){ |
goto T751; |
2157 |
goto T765;} |
T751:; |
2158 |
{object V452 = Cnil; |
if(!((V449)>=(V446))){ |
2159 |
|
goto T752;} |
2160 |
|
{object V450 = Cnil; |
2161 |
|
VMR29(V450)} |
2162 |
|
goto T752; |
2163 |
|
T752:; |
2164 |
|
base[0]= elt((V438),V449); |
2165 |
|
vs_top=(vs_base=base+0)+1; |
2166 |
|
super_funcall_no_event((V444)); |
2167 |
|
vs_top=sup; |
2168 |
|
V451= vs_base[0]; |
2169 |
|
if(((*(LnkLI41))((V440),(V441),(V437),V451))==Cnil){ |
2170 |
|
goto T756;} |
2171 |
|
{object V452 = elt((V438),V449); |
2172 |
VMR29(V452)} |
VMR29(V452)} |
2173 |
goto T765; |
goto T756; |
2174 |
T765:; |
T756:; |
2175 |
base[0]= elt((V436),V451); |
V449= (long)(1)+(V449); |
2176 |
vs_top=(vs_base=base+0)+1; |
goto T751;} |
2177 |
super_funcall_no_event((V442)); |
goto T747; |
2178 |
vs_top=sup; |
T747:; |
2179 |
V453= vs_base[0]; |
{register long V453; |
2180 |
if(((*(LnkLI41))((V438),(V439),(V435),V453))==Cnil){ |
V453= (long)(-1)+(V446); |
2181 |
goto T769;} |
goto T766; |
2182 |
{object V454 = elt((V436),V451); |
T766:; |
2183 |
|
if(!((V453)<(V445))){ |
2184 |
|
goto T767;} |
2185 |
|
{object V454 = Cnil; |
2186 |
VMR29(V454)} |
VMR29(V454)} |
2187 |
goto T769; |
goto T767; |
2188 |
T769:; |
T767:; |
2189 |
V451= (long)(-1)+(V451); |
base[0]= elt((V438),V453); |
2190 |
goto T764;}}} |
vs_top=(vs_base=base+0)+1; |
2191 |
|
super_funcall_no_event((V444)); |
2192 |
|
vs_top=sup; |
2193 |
|
V455= vs_base[0]; |
2194 |
|
if(((*(LnkLI41))((V440),(V441),(V437),V455))==Cnil){ |
2195 |
|
goto T771;} |
2196 |
|
{object V456 = elt((V438),V453); |
2197 |
|
VMR29(V456)} |
2198 |
|
goto T771; |
2199 |
|
T771:; |
2200 |
|
V453= (long)(-1)+(V453); |
2201 |
|
goto T766;}}} |
2202 |
va_end(ap); |
va_end(ap); |
2203 |
base[0]=base[0]; |
base[0]=base[0]; |
2204 |
return Cnil;} |
return Cnil;} |
2205 |
}} |
}} |
2206 |
/* local entry for function FIND-IF */ |
/* local entry for function FIND-IF */ |
2207 |
|
|
2208 |
static object LI30(V456,V455,va_alist) |
static object LI30(V458,V457,va_alist) |
2209 |
object V456,V455; |
object V458,V457; |
2210 |
va_dcl |
va_dcl |
2211 |
{ |
{ |
2212 |
va_list ap; |
va_list ap; |
2213 |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
2214 |
{object V457; |
{object V459; |
|
object V458; |
|
|
object V459; |
|
2215 |
object V460; |
object V460; |
2216 |
object V461; |
object V461; |
2217 |
object V462; |
object V462; |
2218 |
|
object V463; |
2219 |
|
object V464; |
2220 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2221 |
va_start(ap); |
va_start(ap); |
2222 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2223 |
V457= V456; |
V459= V458; |
2224 |
V458= V455; |
V460= V457; |
2225 |
narg= narg - 2; |
narg= narg - 2; |
2226 |
{ |
{ |
2227 |
parse_key_new(narg,Vcs +2,(struct key *)&LI30key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI30key,ap); |
2228 |
V459=(Vcs[2]); |
V461=(Vcs[2]); |
2229 |
V460=(Vcs[3]); |
V462=(Vcs[3]); |
2230 |
V461=(Vcs[4]); |
V463=(Vcs[4]); |
2231 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2232 |
V462= symbol_function(VV[33]); |
V464= symbol_function(VV[33]); |
2233 |
}else{ |
}else{ |
2234 |
V462=(Vcs[5]);} |
V464=(Vcs[5]);} |
2235 |
if(!(((V462))==(Cnil))){ |
if(!(((V464))==(Cnil))){ |
2236 |
goto T778;} |
goto T780;} |
2237 |
V462= symbol_function(VV[33]); |
V464= symbol_function(VV[33]); |
2238 |
goto T778; |
goto T780; |
2239 |
T778:; |
T780:; |
2240 |
V463= symbol_function(VV[44]); |
V465= symbol_function(VV[44]); |
2241 |
{object V464 = (VFUN_NARGS=12,(*(LnkLI51))((V457),(V458),VV[10],(V459),VV[11],V463,VV[13],(V460),VV[14],(V461),VV[16],(V462))); |
{object V466 = (VFUN_NARGS=12,(*(LnkLI51))((V459),(V460),VV[10],(V461),VV[11],V465,VV[13],(V462),VV[14],(V463),VV[16],(V464))); |
2242 |
VMR30(V464)} |
VMR30(V466)} |
2243 |
va_end(ap); |
va_end(ap); |
2244 |
return Cnil;} |
return Cnil;} |
2245 |
}} |
}} |
2246 |
/* local entry for function FIND-IF-NOT */ |
/* local entry for function FIND-IF-NOT */ |
2247 |
|
|
2248 |
static object LI31(V466,V465,va_alist) |
static object LI31(V468,V467,va_alist) |
2249 |
object V466,V465; |
object V468,V467; |
2250 |
va_dcl |
va_dcl |
2251 |
{ |
{ |
2252 |
va_list ap; |
va_list ap; |
2253 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
2254 |
{object V467; |
{object V469; |
|
object V468; |
|
|
object V469; |
|
2255 |
object V470; |
object V470; |
2256 |
object V471; |
object V471; |
2257 |
object V472; |
object V472; |
2258 |
|
object V473; |
2259 |
|
object V474; |
2260 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2261 |
va_start(ap); |
va_start(ap); |
2262 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2263 |
V467= V466; |
V469= V468; |
2264 |
V468= V465; |
V470= V467; |
2265 |
narg= narg - 2; |
narg= narg - 2; |
2266 |
{ |
{ |
2267 |
parse_key_new(narg,Vcs +2,(struct key *)&LI31key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI31key,ap); |
2268 |
V469=(Vcs[2]); |
V471=(Vcs[2]); |
2269 |
V470=(Vcs[3]); |
V472=(Vcs[3]); |
2270 |
V471=(Vcs[4]); |
V473=(Vcs[4]); |
2271 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2272 |
V472= symbol_function(VV[33]); |
V474= symbol_function(VV[33]); |
2273 |
}else{ |
}else{ |
2274 |
V472=(Vcs[5]);} |
V474=(Vcs[5]);} |
2275 |
if(!(((V472))==(Cnil))){ |
if(!(((V474))==(Cnil))){ |
2276 |
goto T784;} |
goto T786;} |
2277 |
V472= symbol_function(VV[33]); |
V474= symbol_function(VV[33]); |
2278 |
goto T784; |
goto T786; |
2279 |
T784:; |
T786:; |
2280 |
V473= symbol_function(VV[44]); |
V475= symbol_function(VV[44]); |
2281 |
{object V474 = (VFUN_NARGS=12,(*(LnkLI51))((V467),(V468),VV[10],(V469),VV[12],V473,VV[13],(V470),VV[14],(V471),VV[16],(V472))); |
{object V476 = (VFUN_NARGS=12,(*(LnkLI51))((V469),(V470),VV[10],(V471),VV[12],V475,VV[13],(V472),VV[14],(V473),VV[16],(V474))); |
2282 |
VMR31(V474)} |
VMR31(V476)} |
2283 |
va_end(ap); |
va_end(ap); |
2284 |
return Cnil;} |
return Cnil;} |
2285 |
}} |
}} |
2286 |
/* local entry for function POSITION */ |
/* local entry for function POSITION */ |
2287 |
|
|
2288 |
static object LI32(V476,V475,va_alist) |
static object LI32(V478,V477,va_alist) |
2289 |
object V476,V475; |
object V478,V477; |
2290 |
va_dcl |
va_dcl |
2291 |
{ |
{ |
2292 |
va_list ap; |
va_list ap; |
2293 |
int narg = VFUN_NARGS; VMB32 VMS32 VMV32 |
int narg = VFUN_NARGS; VMB32 VMS32 VMV32 |
2294 |
{object V477; |
{object V479; |
|
register object V478; |
|
|
object V479; |
|
2295 |
register object V480; |
register object V480; |
2296 |
register object V481; |
object V481; |
2297 |
object V482; |
register object V482; |
2298 |
object V483; |
register object V483; |
2299 |
register object V484; |
object V484; |
2300 |
|
object V485; |
2301 |
|
register object V486; |
2302 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2303 |
va_start(ap); |
va_start(ap); |
2304 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2305 |
V477= V476; |
V479= V478; |
2306 |
V478= V475; |
V480= V477; |
2307 |
narg= narg - 2; |
narg= narg - 2; |
2308 |
{ |
{ |
2309 |
parse_key_new(narg,Vcs +2,(struct key *)&LI32key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI32key,ap); |
2310 |
V479=(Vcs[2]); |
V481=(Vcs[2]); |
2311 |
V480=(Vcs[3]); |
V482=(Vcs[3]); |
2312 |
V481=(Vcs[4]); |
V483=(Vcs[4]); |
2313 |
V482=(Vcs[5]); |
V484=(Vcs[5]); |
2314 |
V483=(Vcs[6]); |
V485=(Vcs[6]); |
2315 |
if(Vcs[7]==0){ |
if(Vcs[7]==0){ |
2316 |
V484= symbol_function(VV[33]); |
V486= symbol_function(VV[33]); |
2317 |
}else{ |
}else{ |
2318 |
V484=(Vcs[7]);} |
V486=(Vcs[7]);} |
2319 |
if(!(((V484))==(Cnil))){ |
if(!(((V486))==(Cnil))){ |
2320 |
goto T790;} |
goto T792;} |
2321 |
V484= symbol_function(VV[33]); |
V486= symbol_function(VV[33]); |
2322 |
goto T790; |
goto T792; |
2323 |
T790:; |
T792:; |
2324 |
{long V485; |
{long V487; |
2325 |
if(((V482))==Cnil){ |
if(((V484))==Cnil){ |
2326 |
goto T796;} |
goto T798;} |
2327 |
V485= (long)(*(LnkLI34))((V482)); |
V487= (long)(*(LnkLI34))((V484)); |
2328 |
goto T794; |
goto T796; |
2329 |
|
goto T798; |
2330 |
|
T798:; |
2331 |
|
V487= 0; |
2332 |
goto T796; |
goto T796; |
2333 |
T796:; |
T796:; |
2334 |
V485= 0; |
{long V488; |
2335 |
goto T794; |
V488= (long)(*(LnkLI35))((V485),(V480)); |
2336 |
T794:; |
if(!((V487)<=(V488))){ |
|
{long V486; |
|
|
V486= (long)(*(LnkLI35))((V483),(V478)); |
|
|
if(!((V485)<=(V486))){ |
|
|
goto T800;} |
|
|
goto T799; |
|
|
goto T800; |
|
|
T800:; |
|
|
V487 = make_fixnum(V485); |
|
|
V488 = make_fixnum(V486); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V487,V488))); |
|
|
goto T799; |
|
|
T799:; |
|
|
if((V480)==Cnil){ |
|
|
goto T802;} |
|
|
if((V481)==Cnil){ |
|
2337 |
goto T802;} |
goto T802;} |
2338 |
(void)((*(LnkLI40))()); |
goto T801; |
2339 |
goto T802; |
goto T802; |
2340 |
T802:; |
T802:; |
2341 |
if(((V479))!=Cnil){ |
V489 = make_fixnum(V487); |
2342 |
|
V490 = make_fixnum(V488); |
2343 |
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V489,V490))); |
2344 |
|
goto T801; |
2345 |
|
T801:; |
2346 |
|
if((V482)==Cnil){ |
2347 |
goto T804;} |
goto T804;} |
2348 |
{register long V489; |
if((V483)==Cnil){ |
2349 |
V489= V485; |
goto T804;} |
2350 |
goto T808; |
(void)((*(LnkLI40))()); |
|
T808:; |
|
|
if(!((V489)>=(V486))){ |
|
|
goto T809;} |
|
|
{object V490 = Cnil; |
|
|
VMR32(V490)} |
|
|
goto T809; |
|
|
T809:; |
|
|
base[0]= elt((V478),V489); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V484)); |
|
|
vs_top=sup; |
|
|
V491= vs_base[0]; |
|
|
if(((*(LnkLI41))((V480),(V481),(V477),V491))==Cnil){ |
|
|
goto T813;} |
|
|
{object V492 = make_fixnum(V489); |
|
|
VMR32(V492)} |
|
|
goto T813; |
|
|
T813:; |
|
|
V489= (long)(1)+(V489); |
|
|
goto T808;} |
|
2351 |
goto T804; |
goto T804; |
2352 |
T804:; |
T804:; |
2353 |
{register long V493; |
if(((V481))!=Cnil){ |
2354 |
V493= (long)(-1)+(V486); |
goto T806;} |
2355 |
goto T823; |
{register long V491; |
2356 |
T823:; |
V491= V487; |
2357 |
if(!((V493)<(V485))){ |
goto T810; |
2358 |
goto T824;} |
T810:; |
2359 |
{object V494 = Cnil; |
if(!((V491)>=(V488))){ |
2360 |
|
goto T811;} |
2361 |
|
{object V492 = Cnil; |
2362 |
|
VMR32(V492)} |
2363 |
|
goto T811; |
2364 |
|
T811:; |
2365 |
|
base[0]= elt((V480),V491); |
2366 |
|
vs_top=(vs_base=base+0)+1; |
2367 |
|
super_funcall_no_event((V486)); |
2368 |
|
vs_top=sup; |
2369 |
|
V493= vs_base[0]; |
2370 |
|
if(((*(LnkLI41))((V482),(V483),(V479),V493))==Cnil){ |
2371 |
|
goto T815;} |
2372 |
|
{object V494 = make_fixnum(V491); |
2373 |
VMR32(V494)} |
VMR32(V494)} |
2374 |
goto T824; |
goto T815; |
2375 |
T824:; |
T815:; |
2376 |
base[0]= elt((V478),V493); |
V491= (long)(1)+(V491); |
2377 |
vs_top=(vs_base=base+0)+1; |
goto T810;} |
2378 |
super_funcall_no_event((V484)); |
goto T806; |
2379 |
vs_top=sup; |
T806:; |
2380 |
V495= vs_base[0]; |
{register long V495; |
2381 |
if(((*(LnkLI41))((V480),(V481),(V477),V495))==Cnil){ |
V495= (long)(-1)+(V488); |
2382 |
goto T828;} |
goto T825; |
2383 |
{object V496 = make_fixnum(V493); |
T825:; |
2384 |
|
if(!((V495)<(V487))){ |
2385 |
|
goto T826;} |
2386 |
|
{object V496 = Cnil; |
2387 |
VMR32(V496)} |
VMR32(V496)} |
2388 |
goto T828; |
goto T826; |
2389 |
T828:; |
T826:; |
2390 |
V493= (long)(-1)+(V493); |
base[0]= elt((V480),V495); |
2391 |
goto T823;}}} |
vs_top=(vs_base=base+0)+1; |
2392 |
|
super_funcall_no_event((V486)); |
2393 |
|
vs_top=sup; |
2394 |
|
V497= vs_base[0]; |
2395 |
|
if(((*(LnkLI41))((V482),(V483),(V479),V497))==Cnil){ |
2396 |
|
goto T830;} |
2397 |
|
{object V498 = make_fixnum(V495); |
2398 |
|
VMR32(V498)} |
2399 |
|
goto T830; |
2400 |
|
T830:; |
2401 |
|
V495= (long)(-1)+(V495); |
2402 |
|
goto T825;}}} |
2403 |
va_end(ap); |
va_end(ap); |
2404 |
base[0]=base[0]; |
base[0]=base[0]; |
2405 |
return Cnil;} |
return Cnil;} |
2406 |
}} |
}} |
2407 |
/* local entry for function POSITION-IF */ |
/* local entry for function POSITION-IF */ |
2408 |
|
|
2409 |
static object LI33(V498,V497,va_alist) |
static object LI33(V500,V499,va_alist) |
2410 |
object V498,V497; |
object V500,V499; |
2411 |
va_dcl |
va_dcl |
2412 |
{ |
{ |
2413 |
va_list ap; |
va_list ap; |
2414 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
2415 |
{object V499; |
{object V501; |
|
object V500; |
|
|
object V501; |
|
2416 |
object V502; |
object V502; |
2417 |
object V503; |
object V503; |
2418 |
object V504; |
object V504; |
2419 |
|
object V505; |
2420 |
|
object V506; |
2421 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2422 |
va_start(ap); |
va_start(ap); |
2423 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2424 |
V499= V498; |
V501= V500; |
2425 |
V500= V497; |
V502= V499; |
2426 |
narg= narg - 2; |
narg= narg - 2; |
2427 |
{ |
{ |
2428 |
parse_key_new(narg,Vcs +2,(struct key *)&LI33key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI33key,ap); |
2429 |
V501=(Vcs[2]); |
V503=(Vcs[2]); |
2430 |
V502=(Vcs[3]); |
V504=(Vcs[3]); |
2431 |
V503=(Vcs[4]); |
V505=(Vcs[4]); |
2432 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2433 |
V504= symbol_function(VV[33]); |
V506= symbol_function(VV[33]); |
2434 |
}else{ |
}else{ |
2435 |
V504=(Vcs[5]);} |
V506=(Vcs[5]);} |
2436 |
if(!(((V504))==(Cnil))){ |
if(!(((V506))==(Cnil))){ |
2437 |
goto T837;} |
goto T839;} |
2438 |
V504= symbol_function(VV[33]); |
V506= symbol_function(VV[33]); |
2439 |
goto T837; |
goto T839; |
2440 |
T837:; |
T839:; |
2441 |
V505= symbol_function(VV[44]); |
V507= symbol_function(VV[44]); |
2442 |
{object V506 = (VFUN_NARGS=12,(*(LnkLI52))((V499),(V500),VV[10],(V501),VV[11],V505,VV[13],(V502),VV[14],(V503),VV[16],(V504))); |
{object V508 = (VFUN_NARGS=12,(*(LnkLI52))((V501),(V502),VV[10],(V503),VV[11],V507,VV[13],(V504),VV[14],(V505),VV[16],(V506))); |
2443 |
VMR33(V506)} |
VMR33(V508)} |
2444 |
va_end(ap); |
va_end(ap); |
2445 |
return Cnil;} |
return Cnil;} |
2446 |
}} |
}} |
2447 |
/* local entry for function POSITION-IF-NOT */ |
/* local entry for function POSITION-IF-NOT */ |
2448 |
|
|
2449 |
static object LI34(V508,V507,va_alist) |
static object LI34(V510,V509,va_alist) |
2450 |
object V508,V507; |
object V510,V509; |
2451 |
va_dcl |
va_dcl |
2452 |
{ |
{ |
2453 |
va_list ap; |
va_list ap; |
2454 |
int narg = VFUN_NARGS; VMB34 VMS34 VMV34 |
int narg = VFUN_NARGS; VMB34 VMS34 VMV34 |
2455 |
{object V509; |
{object V511; |
|
object V510; |
|
|
object V511; |
|
2456 |
object V512; |
object V512; |
2457 |
object V513; |
object V513; |
2458 |
object V514; |
object V514; |
2459 |
|
object V515; |
2460 |
|
object V516; |
2461 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2462 |
va_start(ap); |
va_start(ap); |
2463 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2464 |
V509= V508; |
V511= V510; |
2465 |
V510= V507; |
V512= V509; |
2466 |
narg= narg - 2; |
narg= narg - 2; |
2467 |
{ |
{ |
2468 |
parse_key_new(narg,Vcs +2,(struct key *)&LI34key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI34key,ap); |
2469 |
V511=(Vcs[2]); |
V513=(Vcs[2]); |
2470 |
V512=(Vcs[3]); |
V514=(Vcs[3]); |
2471 |
V513=(Vcs[4]); |
V515=(Vcs[4]); |
2472 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2473 |
V514= symbol_function(VV[33]); |
V516= symbol_function(VV[33]); |
2474 |
}else{ |
}else{ |
2475 |
V514=(Vcs[5]);} |
V516=(Vcs[5]);} |
2476 |
if(!(((V514))==(Cnil))){ |
if(!(((V516))==(Cnil))){ |
2477 |
goto T843;} |
goto T845;} |
2478 |
V514= symbol_function(VV[33]); |
V516= symbol_function(VV[33]); |
2479 |
goto T843; |
goto T845; |
2480 |
T843:; |
T845:; |
2481 |
V515= symbol_function(VV[44]); |
V517= symbol_function(VV[44]); |
2482 |
{object V516 = (VFUN_NARGS=12,(*(LnkLI52))((V509),(V510),VV[10],(V511),VV[12],V515,VV[13],(V512),VV[14],(V513),VV[16],(V514))); |
{object V518 = (VFUN_NARGS=12,(*(LnkLI52))((V511),(V512),VV[10],(V513),VV[12],V517,VV[13],(V514),VV[14],(V515),VV[16],(V516))); |
2483 |
VMR34(V516)} |
VMR34(V518)} |
2484 |
va_end(ap); |
va_end(ap); |
2485 |
return Cnil;} |
return Cnil;} |
2486 |
}} |
}} |
2487 |
/* local entry for function REMOVE-DUPLICATES */ |
/* local entry for function REMOVE-DUPLICATES */ |
2488 |
|
|
2489 |
static object LI35(V517,va_alist) |
static object LI35(V519,va_alist) |
2490 |
object V517; |
object V519; |
2491 |
va_dcl |
va_dcl |
2492 |
{ |
{ |
2493 |
va_list ap; |
va_list ap; |
2494 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
2495 |
{register object V518; |
{register object V520; |
2496 |
object V519; |
object V521; |
2497 |
register object V520; |
register object V522; |
2498 |
register object V521; |
register object V523; |
2499 |
object V522; |
object V524; |
2500 |
object V523; |
object V525; |
2501 |
register object V524; |
register object V526; |
2502 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2503 |
va_start(ap); |
va_start(ap); |
2504 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2505 |
V518= V517; |
V520= V519; |
2506 |
narg= narg - 1; |
narg= narg - 1; |
2507 |
{ |
{ |
2508 |
parse_key_new(narg,Vcs +1,(struct key *)&LI35key,ap); |
parse_key_new(narg,Vcs +1,(struct key *)&LI35key,ap); |
2509 |
V519=(Vcs[1]); |
V521=(Vcs[1]); |
2510 |
V520=(Vcs[2]); |
V522=(Vcs[2]); |
2511 |
V521=(Vcs[3]); |
V523=(Vcs[3]); |
2512 |
V522=(Vcs[4]); |
V524=(Vcs[4]); |
2513 |
V523=(Vcs[5]); |
V525=(Vcs[5]); |
2514 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
2515 |
V524= symbol_function(VV[33]); |
V526= symbol_function(VV[33]); |
2516 |
}else{ |
}else{ |
2517 |
V524=(Vcs[6]);} |
V526=(Vcs[6]);} |
2518 |
if((V520)==Cnil){ |
if((V522)==Cnil){ |
2519 |
goto T849;} |
goto T851;} |
2520 |
if((V521)==Cnil){ |
if((V523)==Cnil){ |
2521 |
goto T849;} |
goto T851;} |
2522 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI40))()); |
2523 |
goto T849; |
goto T851; |
2524 |
T849:; |
T851:; |
2525 |
if(!(type_of((V518))==t_cons||((V518))==Cnil)){ |
if(!(type_of((V520))==t_cons||((V520))==Cnil)){ |
2526 |
goto T850;} |
goto T852;} |
2527 |
if(((V519))!=Cnil){ |
if(((V521))!=Cnil){ |
2528 |
goto T850;} |
goto T852;} |
2529 |
if(((V522))!=Cnil){ |
if(((V524))!=Cnil){ |
2530 |
goto T850;} |
goto T852;} |
2531 |
if(((V523))!=Cnil){ |
if(((V525))!=Cnil){ |
2532 |
goto T850;} |
goto T852;} |
2533 |
if(!(endp_prop((V518)))){ |
if(!(endp_prop((V520)))){ |
2534 |
goto T859;} |
goto T861;} |
2535 |
{object V525 = Cnil; |
{object V527 = Cnil; |
2536 |
VMR35(V525)} |
VMR35(V527)} |
2537 |
goto T859; |
goto T861; |
2538 |
T859:; |
T861:; |
2539 |
{register object V526; |
{register object V528; |
2540 |
register object V527; |
register object V529; |
2541 |
V526= (V518); |
V528= (V520); |
2542 |
V527= Cnil; |
V529= Cnil; |
2543 |
goto T863; |
goto T865; |
2544 |
T863:; |
T865:; |
2545 |
if(!(endp_prop(cdr((V526))))){ |
if(!(endp_prop(cdr((V528))))){ |
2546 |
goto T864;} |
goto T866;} |
2547 |
base[0]= (V527); |
base[0]= (V529); |
2548 |
base[1]= (V526); |
base[1]= (V528); |
2549 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2550 |
Lreconc(); |
Lreconc(); |
2551 |
vs_top=sup; |
vs_top=sup; |
2552 |
{object V528 = vs_base[0]; |
{object V530 = vs_base[0]; |
2553 |
VMR35(V528)} |
VMR35(V530)} |
2554 |
goto T864; |
goto T866; |
2555 |
T864:; |
T866:; |
2556 |
base[0]= car((V526)); |
base[0]= car((V528)); |
2557 |
base[1]= cdr((V526)); |
base[1]= cdr((V528)); |
2558 |
base[2]= VV[11]; |
base[2]= VV[11]; |
2559 |
base[3]= (V520); |
base[3]= (V522); |
2560 |
base[4]= VV[12]; |
base[4]= VV[12]; |
2561 |
base[5]= (V521); |
base[5]= (V523); |
2562 |
base[6]= VV[16]; |
base[6]= VV[16]; |
2563 |
base[7]= (V524); |
base[7]= (V526); |
2564 |
vs_top=(vs_base=base+0)+8; |
vs_top=(vs_base=base+0)+8; |
2565 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
2566 |
vs_top=sup; |
vs_top=sup; |
2567 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2568 |
goto T870;} |
goto T872;} |
2569 |
V527= make_cons(car((V526)),(V527)); |
V529= make_cons(car((V528)),(V529)); |
2570 |
goto T870; |
goto T872; |
2571 |
T870:; |
T872:; |
2572 |
V526= cdr((V526)); |
V528= cdr((V528)); |
2573 |
goto T863;} |
goto T865;} |
2574 |
goto T850; |
goto T852; |
2575 |
T850:; |
T852:; |
2576 |
{object V529 = (VFUN_NARGS=13,(*(LnkLI54))((V518),VV[10],(V519),VV[11],(V520),VV[12],(V521),VV[13],(V522),VV[14],(V523),VV[16],(V524))); |
{object V531 = (VFUN_NARGS=13,(*(LnkLI54))((V520),VV[10],(V521),VV[11],(V522),VV[12],(V523),VV[13],(V524),VV[14],(V525),VV[16],(V526))); |
2577 |
VMR35(V529)} |
VMR35(V531)} |
2578 |
va_end(ap); |
va_end(ap); |
2579 |
base[0]=base[0]; |
base[0]=base[0]; |
2580 |
return Cnil;} |
return Cnil;} |
2581 |
}} |
}} |
2582 |
/* local entry for function DELETE-DUPLICATES */ |
/* local entry for function DELETE-DUPLICATES */ |
2583 |
|
|
2584 |
static object LI36(V530,va_alist) |
static object LI36(V532,va_alist) |
2585 |
object V530; |
object V532; |
2586 |
va_dcl |
va_dcl |
2587 |
{ |
{ |
2588 |
va_list ap; |
va_list ap; |
2589 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
2590 |
{register object V531; |
{register object V533; |
|
object V532; |
|
|
object V533; |
|
2591 |
object V534; |
object V534; |
2592 |
object V535; |
object V535; |
2593 |
object V536; |
object V536; |
2594 |
register object V537; |
object V537; |
2595 |
|
object V538; |
2596 |
|
register object V539; |
2597 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2598 |
va_start(ap); |
va_start(ap); |
2599 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2600 |
V531= V530; |
V533= V532; |
2601 |
narg= narg - 1; |
narg= narg - 1; |
2602 |
{ |
{ |
2603 |
parse_key_new(narg,Vcs +1,(struct key *)&LI36key,ap); |
parse_key_new(narg,Vcs +1,(struct key *)&LI36key,ap); |
2604 |
V532=(Vcs[1]); |
V534=(Vcs[1]); |
2605 |
V533=(Vcs[2]); |
V535=(Vcs[2]); |
2606 |
V534=(Vcs[3]); |
V536=(Vcs[3]); |
2607 |
V535=(Vcs[4]); |
V537=(Vcs[4]); |
2608 |
V536=(Vcs[5]); |
V538=(Vcs[5]); |
2609 |
if(Vcs[6]==0){ |
if(Vcs[6]==0){ |
2610 |
V537= symbol_function(VV[33]); |
V539= symbol_function(VV[33]); |
2611 |
}else{ |
}else{ |
2612 |
V537=(Vcs[6]);} |
V539=(Vcs[6]);} |
2613 |
{long V538; |
{long V540; |
2614 |
V538= (long)length((V531)); |
V540= (long)length((V533)); |
2615 |
if((V533)==Cnil){ |
if((V535)==Cnil){ |
2616 |
goto T887;} |
goto T889;} |
2617 |
if((V534)==Cnil){ |
if((V536)==Cnil){ |
2618 |
goto T887;} |
goto T889;} |
2619 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI40))()); |
2620 |
goto T887; |
goto T889; |
2621 |
T887:; |
T889:; |
2622 |
if(!(type_of((V531))==t_cons||((V531))==Cnil)){ |
if(!(type_of((V533))==t_cons||((V533))==Cnil)){ |
2623 |
goto T888;} |
goto T890;} |
2624 |
if(((V532))!=Cnil){ |
if(((V534))!=Cnil){ |
2625 |
goto T888;} |
goto T890;} |
2626 |
if(((V535))!=Cnil){ |
if(((V537))!=Cnil){ |
2627 |
goto T888;} |
goto T890;} |
2628 |
if(((V536))!=Cnil){ |
if(((V538))!=Cnil){ |
2629 |
goto T888;} |
goto T890;} |
2630 |
if(!(endp_prop((V531)))){ |
if(!(endp_prop((V533)))){ |
2631 |
goto T897;} |
goto T899;} |
2632 |
{object V539 = Cnil; |
{object V541 = Cnil; |
|
VMR36(V539)} |
|
|
goto T897; |
|
|
T897:; |
|
|
{register object V540; |
|
|
V540= (V531); |
|
|
goto T901; |
|
|
T901:; |
|
|
if(!(endp_prop(cdr((V540))))){ |
|
|
goto T902;} |
|
|
{object V541 = (V531); |
|
2633 |
VMR36(V541)} |
VMR36(V541)} |
2634 |
goto T902; |
goto T899; |
2635 |
T902:; |
T899:; |
2636 |
base[0]= car((V540)); |
{register object V542; |
2637 |
base[1]= cdr((V540)); |
V542= (V533); |
2638 |
|
goto T903; |
2639 |
|
T903:; |
2640 |
|
if(!(endp_prop(cdr((V542))))){ |
2641 |
|
goto T904;} |
2642 |
|
{object V543 = (V533); |
2643 |
|
VMR36(V543)} |
2644 |
|
goto T904; |
2645 |
|
T904:; |
2646 |
|
base[0]= car((V542)); |
2647 |
|
base[1]= cdr((V542)); |
2648 |
base[2]= VV[11]; |
base[2]= VV[11]; |
2649 |
base[3]= (V533); |
base[3]= (V535); |
2650 |
base[4]= VV[12]; |
base[4]= VV[12]; |
2651 |
base[5]= (V534); |
base[5]= (V536); |
2652 |
base[6]= VV[16]; |
base[6]= VV[16]; |
2653 |
base[7]= (V537); |
base[7]= (V539); |
2654 |
vs_top=(vs_base=base+0)+8; |
vs_top=(vs_base=base+0)+8; |
2655 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
2656 |
vs_top=sup; |
vs_top=sup; |
2657 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2658 |
goto T908;} |
goto T910;} |
2659 |
if(type_of((V540))!=t_cons)FEwrong_type_argument(Scons,(V540)); |
if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542)); |
2660 |
((V540))->c.c_car = cadr((V540)); |
((V542))->c.c_car = cadr((V542)); |
2661 |
if(type_of((V540))!=t_cons)FEwrong_type_argument(Scons,(V540)); |
if(type_of((V542))!=t_cons)FEwrong_type_argument(Scons,(V542)); |
2662 |
((V540))->c.c_cdr = cddr((V540)); |
((V542))->c.c_cdr = cddr((V542)); |
2663 |
goto T906; |
goto T908; |
2664 |
|
goto T910; |
2665 |
|
T910:; |
2666 |
|
V542= cdr((V542)); |
2667 |
goto T908; |
goto T908; |
2668 |
T908:; |
T908:; |
2669 |
V540= cdr((V540)); |
goto T903;} |
2670 |
goto T906; |
goto T890; |
2671 |
T906:; |
T890:; |
2672 |
goto T901;} |
{register long V544; |
2673 |
goto T888; |
if(((V537))==Cnil){ |
2674 |
T888:; |
goto T926;} |
2675 |
{register long V542; |
V544= (long)(*(LnkLI34))((V537)); |
2676 |
if(((V535))==Cnil){ |
goto T924; |
2677 |
goto T924;} |
goto T926; |
2678 |
V542= (long)(*(LnkLI34))((V535)); |
T926:; |
2679 |
goto T922; |
V544= 0; |
2680 |
goto T924; |
goto T924; |
2681 |
T924:; |
T924:; |
2682 |
V542= 0; |
{register long V545; |
2683 |
goto T922; |
V545= (long)(*(LnkLI35))((V538),(V533)); |
2684 |
T922:; |
if(!((V544)<=(V545))){ |
2685 |
{register long V543; |
goto T930;} |
2686 |
V543= (long)(*(LnkLI35))((V536),(V531)); |
goto T929; |
2687 |
if(!((V542)<=(V543))){ |
goto T930; |
2688 |
goto T928;} |
T930:; |
2689 |
goto T927; |
V546 = make_fixnum(V544); |
2690 |
goto T928; |
V547 = make_fixnum(V545); |
2691 |
T928:; |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V546,V547))); |
2692 |
V544 = make_fixnum(V542); |
goto T929; |
2693 |
V545 = make_fixnum(V543); |
T929:; |
2694 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V544,V545))); |
if(((V534))!=Cnil){ |
2695 |
goto T927; |
goto T933;} |
2696 |
T927:; |
{long V548; |
2697 |
if(((V532))!=Cnil){ |
long V549; |
2698 |
goto T931;} |
V548= 0; |
2699 |
{long V546; |
V549= V544; |
2700 |
long V547; |
goto T938; |
2701 |
V546= 0; |
T938:; |
2702 |
V547= V542; |
if(!((V549)>=(V545))){ |
2703 |
goto T936; |
goto T939;} |
2704 |
T936:; |
{object V550; |
2705 |
if(!((V547)>=(V543))){ |
register long V551; |
2706 |
goto T937;} |
long V552; |
2707 |
{object V548; |
V553= (*(LnkLI47))((V533)); |
2708 |
register long V549; |
V554 = make_fixnum((long)(V540)-(V548)); |
2709 |
long V550; |
V550= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V553,V554)); |
2710 |
V551= (*(LnkLI47))((V531)); |
V551= 0; |
2711 |
V552 = make_fixnum((long)(V538)-(V546)); |
V552= 0; |
2712 |
V548= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V551,V552)); |
goto T946; |
2713 |
V549= 0; |
T946:; |
2714 |
V550= 0; |
if(!((V551)>=(V540))){ |
2715 |
goto T944; |
goto T947;} |
2716 |
T944:; |
{object V555 = (V550); |
2717 |
if(!((V549)>=(V538))){ |
VMR36(V555)} |
2718 |
goto T945;} |
goto T947; |
2719 |
{object V553 = (V548); |
T947:; |
2720 |
VMR36(V553)} |
{object V556; |
2721 |
goto T945; |
if((V544)<=(V551)){ |
|
T945:; |
|
|
{object V554; |
|
|
if((V542)<=(V549)){ |
|
|
goto T951;} |
|
|
V554= Cnil; |
|
|
goto T950; |
|
|
goto T951; |
|
|
T951:; |
|
|
if((V549)<(V543)){ |
|
2722 |
goto T953;} |
goto T953;} |
2723 |
V554= Cnil; |
V556= Cnil; |
2724 |
goto T950; |
goto T952; |
2725 |
goto T953; |
goto T953; |
2726 |
T953:; |
T953:; |
2727 |
base[0]= elt((V531),V549); |
if((V551)<(V545)){ |
2728 |
vs_top=(vs_base=base+0)+1; |
goto T955;} |
2729 |
super_funcall_no_event((V537)); |
V556= Cnil; |
2730 |
vs_top=sup; |
goto T952; |
2731 |
V555= vs_base[0]; |
goto T955; |
2732 |
V556 = make_fixnum((long)(1)+(V549)); |
T955:; |
2733 |
V557 = make_fixnum(V543); |
base[0]= elt((V533),V551); |
2734 |
V554= (VFUN_NARGS=12,(*(LnkLI52))(V555,(V531),VV[11],(V533),VV[12],(V534),VV[13],V556,VV[14],V557,VV[16],(V537))); |
vs_top=(vs_base=base+0)+1; |
2735 |
goto T950; |
super_funcall_no_event((V539)); |
2736 |
T950:; |
vs_top=sup; |
2737 |
if(((V554))==Cnil){ |
V557= vs_base[0]; |
2738 |
goto T958;} |
V558 = make_fixnum((long)(1)+(V551)); |
2739 |
goto T949; |
V559 = make_fixnum(V545); |
2740 |
goto T958; |
V556= (VFUN_NARGS=12,(*(LnkLI52))(V557,(V533),VV[11],(V535),VV[12],(V536),VV[13],V558,VV[14],V559,VV[16],(V539))); |
2741 |
T958:; |
goto T952; |
2742 |
V558= elt((V531),V549); |
T952:; |
2743 |
(void)(elt_set((V548),V550,/* INLINE-ARGS */V558)); |
if(((V556))==Cnil){ |
2744 |
V550= (long)(1)+(V550);} |
goto T960;} |
2745 |
goto T949; |
goto T951; |
2746 |
T949:; |
goto T960; |
2747 |
|
T960:; |
2748 |
|
V560= elt((V533),V551); |
2749 |
|
(void)(elt_set((V550),V552,/* INLINE-ARGS */V560)); |
2750 |
|
V552= (long)(1)+(V552);} |
2751 |
|
goto T951; |
2752 |
|
T951:; |
2753 |
|
V551= (long)(1)+(V551); |
2754 |
|
goto T946;} |
2755 |
|
goto T939; |
2756 |
|
T939:; |
2757 |
|
base[0]= elt((V533),V549); |
2758 |
|
vs_top=(vs_base=base+0)+1; |
2759 |
|
super_funcall_no_event((V539)); |
2760 |
|
vs_top=sup; |
2761 |
|
V561= vs_base[0]; |
2762 |
|
V562 = make_fixnum((long)(1)+(V549)); |
2763 |
|
V563 = make_fixnum(V545); |
2764 |
|
if(((VFUN_NARGS=12,(*(LnkLI52))(V561,(V533),VV[11],(V535),VV[12],(V536),VV[13],V562,VV[14],V563,VV[16],(V539))))==Cnil){ |
2765 |
|
goto T968;} |
2766 |
|
V548= (long)(1)+(V548); |
2767 |
|
goto T968; |
2768 |
|
T968:; |
2769 |
V549= (long)(1)+(V549); |
V549= (long)(1)+(V549); |
2770 |
goto T944;} |
goto T938;} |
2771 |
goto T937; |
goto T933; |
2772 |
T937:; |
T933:; |
2773 |
base[0]= elt((V531),V547); |
{long V564; |
2774 |
vs_top=(vs_base=base+0)+1; |
long V565; |
2775 |
super_funcall_no_event((V537)); |
V564= 0; |
2776 |
vs_top=sup; |
V565= (long)(-1)+(V545); |
2777 |
V559= vs_base[0]; |
goto T980; |
2778 |
V560 = make_fixnum((long)(1)+(V547)); |
T980:; |
2779 |
V561 = make_fixnum(V543); |
if(!((V565)<(V544))){ |
2780 |
if(((VFUN_NARGS=12,(*(LnkLI52))(V559,(V531),VV[11],(V533),VV[12],(V534),VV[13],V560,VV[14],V561,VV[16],(V537))))==Cnil){ |
goto T981;} |
2781 |
goto T966;} |
{object V566; |
2782 |
V546= (long)(1)+(V546); |
register long V567; |
2783 |
goto T966; |
long V568; |
2784 |
T966:; |
V569= (*(LnkLI47))((V533)); |
2785 |
V547= (long)(1)+(V547); |
V570 = make_fixnum((long)(V540)-(V564)); |
2786 |
goto T936;} |
V566= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V569,V570)); |
2787 |
goto T931; |
V567= (long)(-1)+(V540); |
2788 |
T931:; |
V568= (long)((long)(-1)+(V540))-(V564); |
2789 |
{long V562; |
goto T988; |
2790 |
long V563; |
T988:; |
2791 |
V562= 0; |
if(!((V567)<(0))){ |
2792 |
V563= (long)(-1)+(V543); |
goto T989;} |
2793 |
goto T978; |
{object V571 = (V566); |
2794 |
T978:; |
VMR36(V571)} |
2795 |
if(!((V563)<(V542))){ |
goto T989; |
2796 |
goto T979;} |
T989:; |
2797 |
{object V564; |
{object V572; |
2798 |
register long V565; |
if((V544)<=(V567)){ |
|
long V566; |
|
|
V567= (*(LnkLI47))((V531)); |
|
|
V568 = make_fixnum((long)(V538)-(V562)); |
|
|
V564= (VFUN_NARGS=2,(*(LnkLI46))(/* INLINE-ARGS */V567,V568)); |
|
|
V565= (long)(-1)+(V538); |
|
|
V566= (long)((long)(-1)+(V538))-(V562); |
|
|
goto T986; |
|
|
T986:; |
|
|
if(!((V565)<(0))){ |
|
|
goto T987;} |
|
|
{object V569 = (V564); |
|
|
VMR36(V569)} |
|
|
goto T987; |
|
|
T987:; |
|
|
{object V570; |
|
|
if((V542)<=(V565)){ |
|
|
goto T993;} |
|
|
V570= Cnil; |
|
|
goto T992; |
|
|
goto T993; |
|
|
T993:; |
|
|
if((V565)<(V543)){ |
|
2799 |
goto T995;} |
goto T995;} |
2800 |
V570= Cnil; |
V572= Cnil; |
2801 |
goto T992; |
goto T994; |
2802 |
goto T995; |
goto T995; |
2803 |
T995:; |
T995:; |
2804 |
base[0]= elt((V531),V565); |
if((V567)<(V545)){ |
2805 |
vs_top=(vs_base=base+0)+1; |
goto T997;} |
2806 |
super_funcall_no_event((V537)); |
V572= Cnil; |
2807 |
vs_top=sup; |
goto T994; |
2808 |
V571= vs_base[0]; |
goto T997; |
2809 |
V572 = make_fixnum(V542); |
T997:; |
2810 |
V573 = make_fixnum(V565); |
base[0]= elt((V533),V567); |
2811 |
V570= (VFUN_NARGS=14,(*(LnkLI52))(V571,(V531),VV[10],Ct,VV[11],(V533),VV[12],(V534),VV[13],V572,VV[14],V573,VV[16],(V537))); |
vs_top=(vs_base=base+0)+1; |
2812 |
goto T992; |
super_funcall_no_event((V539)); |
2813 |
T992:; |
vs_top=sup; |
2814 |
if(((V570))==Cnil){ |
V573= vs_base[0]; |
2815 |
goto T1000;} |
V574 = make_fixnum(V544); |
2816 |
goto T991; |
V575 = make_fixnum(V567); |
2817 |
goto T1000; |
V572= (VFUN_NARGS=14,(*(LnkLI52))(V573,(V533),VV[10],Ct,VV[11],(V535),VV[12],(V536),VV[13],V574,VV[14],V575,VV[16],(V539))); |
2818 |
T1000:; |
goto T994; |
2819 |
V574= elt((V531),V565); |
T994:; |
2820 |
(void)(elt_set((V564),V566,/* INLINE-ARGS */V574)); |
if(((V572))==Cnil){ |
2821 |
V566= (long)(-1)+(V566);} |
goto T1002;} |
2822 |
goto T991; |
goto T993; |
2823 |
T991:; |
goto T1002; |
2824 |
|
T1002:; |
2825 |
|
V576= elt((V533),V567); |
2826 |
|
(void)(elt_set((V566),V568,/* INLINE-ARGS */V576)); |
2827 |
|
V568= (long)(-1)+(V568);} |
2828 |
|
goto T993; |
2829 |
|
T993:; |
2830 |
|
V567= (long)(-1)+(V567); |
2831 |
|
goto T988;} |
2832 |
|
goto T981; |
2833 |
|
T981:; |
2834 |
|
base[0]= elt((V533),V565); |
2835 |
|
vs_top=(vs_base=base+0)+1; |
2836 |
|
super_funcall_no_event((V539)); |
2837 |
|
vs_top=sup; |
2838 |
|
V577= vs_base[0]; |
2839 |
|
V578 = make_fixnum(V544); |
2840 |
|
V579 = make_fixnum(V565); |
2841 |
|
if(((VFUN_NARGS=14,(*(LnkLI52))(V577,(V533),VV[10],Ct,VV[11],(V535),VV[12],(V536),VV[13],V578,VV[14],V579,VV[16],(V539))))==Cnil){ |
2842 |
|
goto T1010;} |
2843 |
|
V564= (long)(1)+(V564); |
2844 |
|
goto T1010; |
2845 |
|
T1010:; |
2846 |
V565= (long)(-1)+(V565); |
V565= (long)(-1)+(V565); |
2847 |
goto T986;} |
goto T980;}}}} |
|
goto T979; |
|
|
T979:; |
|
|
base[0]= elt((V531),V563); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V537)); |
|
|
vs_top=sup; |
|
|
V575= vs_base[0]; |
|
|
V576 = make_fixnum(V542); |
|
|
V577 = make_fixnum(V563); |
|
|
if(((VFUN_NARGS=14,(*(LnkLI52))(V575,(V531),VV[10],Ct,VV[11],(V533),VV[12],(V534),VV[13],V576,VV[14],V577,VV[16],(V537))))==Cnil){ |
|
|
goto T1008;} |
|
|
V562= (long)(1)+(V562); |
|
|
goto T1008; |
|
|
T1008:; |
|
|
V563= (long)(-1)+(V563); |
|
|
goto T978;}}}} |
|
2848 |
va_end(ap); |
va_end(ap); |
2849 |
base[0]=base[0]; |
base[0]=base[0]; |
2850 |
return Cnil;} |
return Cnil;} |
2851 |
}} |
}} |
2852 |
/* local entry for function MISMATCH */ |
/* local entry for function MISMATCH */ |
2853 |
|
|
2854 |
static object LI37(V579,V578,va_alist) |
static object LI37(V581,V580,va_alist) |
2855 |
object V579,V578; |
object V581,V580; |
2856 |
va_dcl |
va_dcl |
2857 |
{ |
{ |
2858 |
va_list ap; |
va_list ap; |
2859 |
int narg = VFUN_NARGS; VMB37 VMS37 VMV37 |
int narg = VFUN_NARGS; VMB37 VMS37 VMV37 |
2860 |
{object V580; |
{object V582; |
|
object V581; |
|
|
object V582; |
|
2861 |
object V583; |
object V583; |
2862 |
object V584; |
object V584; |
2863 |
register object V585; |
object V585; |
2864 |
object V586; |
object V586; |
2865 |
object V587; |
register object V587; |
2866 |
object V588; |
object V588; |
2867 |
object V589; |
object V589; |
2868 |
|
object V590; |
2869 |
|
object V591; |
2870 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2871 |
va_start(ap); |
va_start(ap); |
2872 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2873 |
V580= V579; |
V582= V581; |
2874 |
V581= V578; |
V583= V580; |
2875 |
narg= narg - 2; |
narg= narg - 2; |
2876 |
{ |
{ |
2877 |
parse_key_new(narg,Vcs +2,(struct key *)&LI37key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI37key,ap); |
2878 |
V582=(Vcs[2]); |
V584=(Vcs[2]); |
2879 |
V583=(Vcs[3]); |
V585=(Vcs[3]); |
2880 |
V584=(Vcs[4]); |
V586=(Vcs[4]); |
2881 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
2882 |
V585= symbol_function(VV[33]); |
V587= symbol_function(VV[33]); |
2883 |
}else{ |
}else{ |
2884 |
V585=(Vcs[5]);} |
V587=(Vcs[5]);} |
2885 |
V586=(Vcs[6]); |
V588=(Vcs[6]); |
2886 |
V587=(Vcs[7]); |
V589=(Vcs[7]); |
2887 |
V588=(Vcs[8]); |
V590=(Vcs[8]); |
2888 |
V589=(Vcs[9]); |
V591=(Vcs[9]); |
2889 |
if((V583)==Cnil){ |
if((V585)==Cnil){ |
2890 |
goto T1018;} |
goto T1020;} |
2891 |
if((V584)==Cnil){ |
if((V586)==Cnil){ |
2892 |
goto T1018;} |
goto T1020;} |
2893 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI40))()); |
2894 |
goto T1018; |
goto T1020; |
2895 |
T1018:; |
T1020:; |
2896 |
{register long V590; |
{register long V592; |
2897 |
if(((V586))==Cnil){ |
if(((V588))==Cnil){ |
2898 |
goto T1021;} |
goto T1023;} |
2899 |
V590= (long)(*(LnkLI34))((V586)); |
V592= (long)(*(LnkLI34))((V588)); |
2900 |
goto T1019; |
goto T1021; |
2901 |
|
goto T1023; |
2902 |
|
T1023:; |
2903 |
|
V592= 0; |
2904 |
goto T1021; |
goto T1021; |
2905 |
T1021:; |
T1021:; |
2906 |
V590= 0; |
{register long V593; |
2907 |
goto T1019; |
V593= (long)(*(LnkLI35))((V590),(V582)); |
2908 |
T1019:; |
if(!((V592)<=(V593))){ |
2909 |
{register long V591; |
goto T1027;} |
2910 |
V591= (long)(*(LnkLI35))((V588),(V580)); |
goto T1026; |
|
if(!((V590)<=(V591))){ |
|
|
goto T1025;} |
|
|
goto T1024; |
|
|
goto T1025; |
|
|
T1025:; |
|
|
V592 = make_fixnum(V590); |
|
|
V593 = make_fixnum(V591); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V592,V593))); |
|
|
goto T1024; |
|
|
T1024:; |
|
|
{register long V594; |
|
|
if(((V587))==Cnil){ |
|
|
goto T1029;} |
|
|
V594= (long)(*(LnkLI34))((V587)); |
|
|
goto T1027; |
|
|
goto T1029; |
|
|
T1029:; |
|
|
V594= 0; |
|
2911 |
goto T1027; |
goto T1027; |
2912 |
T1027:; |
T1027:; |
2913 |
{register long V595; |
V594 = make_fixnum(V592); |
2914 |
V595= (long)(*(LnkLI35))((V589),(V581)); |
V595 = make_fixnum(V593); |
2915 |
if(!((V594)<=(V595))){ |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V594,V595))); |
2916 |
goto T1033;} |
goto T1026; |
2917 |
goto T1032; |
T1026:; |
2918 |
goto T1033; |
{register long V596; |
2919 |
T1033:; |
if(((V589))==Cnil){ |
2920 |
V596 = make_fixnum(V594); |
goto T1031;} |
2921 |
V597 = make_fixnum(V595); |
V596= (long)(*(LnkLI34))((V589)); |
2922 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V596,V597))); |
goto T1029; |
2923 |
goto T1032; |
goto T1031; |
2924 |
T1032:; |
T1031:; |
2925 |
if(((V582))!=Cnil){ |
V596= 0; |
2926 |
goto T1036;} |
goto T1029; |
2927 |
{register long V598; |
T1029:; |
2928 |
register long V599; |
{register long V597; |
2929 |
V598= V590; |
V597= (long)(*(LnkLI35))((V591),(V583)); |
2930 |
V599= V594; |
if(!((V596)<=(V597))){ |
2931 |
goto T1041; |
goto T1035;} |
2932 |
T1041:; |
goto T1034; |
2933 |
if((V598)>=(V591)){ |
goto T1035; |
2934 |
goto T1043;} |
T1035:; |
2935 |
if(!((V599)>=(V595))){ |
V598 = make_fixnum(V596); |
2936 |
goto T1042;} |
V599 = make_fixnum(V597); |
2937 |
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V598,V599))); |
2938 |
|
goto T1034; |
2939 |
|
T1034:; |
2940 |
|
if(((V584))!=Cnil){ |
2941 |
|
goto T1038;} |
2942 |
|
{register long V600; |
2943 |
|
register long V601; |
2944 |
|
V600= V592; |
2945 |
|
V601= V596; |
2946 |
goto T1043; |
goto T1043; |
2947 |
T1043:; |
T1043:; |
2948 |
if(!((V598)>=(V591))){ |
if((V600)>=(V593)){ |
2949 |
goto T1048;} |
goto T1045;} |
2950 |
if(!((V599)>=(V595))){ |
if(!((V601)>=(V597))){ |
2951 |
goto T1048;} |
goto T1044;} |
2952 |
{object V600 = Cnil; |
goto T1045; |
2953 |
VMR37(V600)} |
T1045:; |
2954 |
goto T1048; |
if(!((V600)>=(V593))){ |
2955 |
T1048:; |
goto T1050;} |
2956 |
{object V601 = make_fixnum(V598); |
if(!((V601)>=(V597))){ |
2957 |
VMR37(V601)} |
goto T1050;} |
2958 |
goto T1042; |
{object V602 = Cnil; |
2959 |
T1042:; |
VMR37(V602)} |
2960 |
base[0]= elt((V580),V598); |
goto T1050; |
2961 |
vs_top=(vs_base=base+0)+1; |
T1050:; |
2962 |
super_funcall_no_event((V585)); |
{object V603 = make_fixnum(V600); |
2963 |
vs_top=sup; |
VMR37(V603)} |
2964 |
V602= vs_base[0]; |
goto T1044; |
2965 |
base[0]= elt((V581),V599); |
T1044:; |
2966 |
vs_top=(vs_base=base+0)+1; |
base[0]= elt((V582),V600); |
2967 |
super_funcall_no_event((V585)); |
vs_top=(vs_base=base+0)+1; |
2968 |
vs_top=sup; |
super_funcall_no_event((V587)); |
2969 |
V603= vs_base[0]; |
vs_top=sup; |
2970 |
if(((*(LnkLI41))((V583),(V584),V602,V603))!=Cnil){ |
V604= vs_base[0]; |
2971 |
goto T1053;} |
base[0]= elt((V583),V601); |
2972 |
{object V604 = make_fixnum(V598); |
vs_top=(vs_base=base+0)+1; |
2973 |
VMR37(V604)} |
super_funcall_no_event((V587)); |
2974 |
goto T1053; |
vs_top=sup; |
2975 |
T1053:; |
V605= vs_base[0]; |
2976 |
V598= (long)(1)+(V598); |
if(((*(LnkLI41))((V585),(V586),V604,V605))!=Cnil){ |
2977 |
V599= (long)(1)+(V599); |
goto T1055;} |
2978 |
goto T1041;} |
{object V606 = make_fixnum(V600); |
2979 |
goto T1036; |
VMR37(V606)} |
2980 |
T1036:; |
goto T1055; |
2981 |
{register long V605; |
T1055:; |
2982 |
register long V606; |
V600= (long)(1)+(V600); |
2983 |
V605= (long)(-1)+(V591); |
V601= (long)(1)+(V601); |
2984 |
V606= (long)(-1)+(V595); |
goto T1043;} |
2985 |
goto T1067; |
goto T1038; |
2986 |
T1067:; |
T1038:; |
2987 |
if((V605)<(V590)){ |
{register long V607; |
2988 |
goto T1069;} |
register long V608; |
2989 |
if(!((V606)<(V594))){ |
V607= (long)(-1)+(V593); |
2990 |
goto T1068;} |
V608= (long)(-1)+(V597); |
2991 |
goto T1069; |
goto T1069; |
2992 |
T1069:; |
T1069:; |
2993 |
if(!((V605)<(V590))){ |
if((V607)<(V592)){ |
2994 |
goto T1074;} |
goto T1071;} |
2995 |
if(!((V606)<(V594))){ |
if(!((V608)<(V596))){ |
2996 |
goto T1074;} |
goto T1070;} |
2997 |
{object V607 = Cnil; |
goto T1071; |
2998 |
VMR37(V607)} |
T1071:; |
2999 |
goto T1074; |
if(!((V607)<(V592))){ |
3000 |
T1074:; |
goto T1076;} |
3001 |
{object V608 = make_fixnum((long)(1)+(V605)); |
if(!((V608)<(V596))){ |
3002 |
VMR37(V608)} |
goto T1076;} |
3003 |
goto T1068; |
{object V609 = Cnil; |
3004 |
T1068:; |
VMR37(V609)} |
3005 |
base[0]= elt((V580),V605); |
goto T1076; |
3006 |
vs_top=(vs_base=base+0)+1; |
T1076:; |
3007 |
super_funcall_no_event((V585)); |
{object V610 = make_fixnum((long)(1)+(V607)); |
3008 |
vs_top=sup; |
VMR37(V610)} |
3009 |
V609= vs_base[0]; |
goto T1070; |
3010 |
base[0]= elt((V581),V606); |
T1070:; |
3011 |
vs_top=(vs_base=base+0)+1; |
base[0]= elt((V582),V607); |
3012 |
super_funcall_no_event((V585)); |
vs_top=(vs_base=base+0)+1; |
3013 |
vs_top=sup; |
super_funcall_no_event((V587)); |
3014 |
V610= vs_base[0]; |
vs_top=sup; |
3015 |
if(((*(LnkLI41))((V583),(V584),V609,V610))!=Cnil){ |
V611= vs_base[0]; |
3016 |
goto T1079;} |
base[0]= elt((V583),V608); |
3017 |
{object V611 = make_fixnum((long)(1)+(V605)); |
vs_top=(vs_base=base+0)+1; |
3018 |
VMR37(V611)} |
super_funcall_no_event((V587)); |
3019 |
goto T1079; |
vs_top=sup; |
3020 |
T1079:; |
V612= vs_base[0]; |
3021 |
V605= (long)(-1)+(V605); |
if(((*(LnkLI41))((V585),(V586),V611,V612))!=Cnil){ |
3022 |
V606= (long)(-1)+(V606); |
goto T1081;} |
3023 |
goto T1067;}}}}} |
{object V613 = make_fixnum((long)(1)+(V607)); |
3024 |
|
VMR37(V613)} |
3025 |
|
goto T1081; |
3026 |
|
T1081:; |
3027 |
|
V607= (long)(-1)+(V607); |
3028 |
|
V608= (long)(-1)+(V608); |
3029 |
|
goto T1069;}}}}} |
3030 |
va_end(ap); |
va_end(ap); |
3031 |
base[0]=base[0]; |
base[0]=base[0]; |
3032 |
return Cnil;} |
return Cnil;} |
3033 |
}} |
}} |
3034 |
/* local entry for function SEARCH */ |
/* local entry for function SEARCH */ |
3035 |
|
|
3036 |
static object LI38(V613,V612,va_alist) |
static object LI38(V615,V614,va_alist) |
3037 |
object V613,V612; |
object V615,V614; |
3038 |
va_dcl |
va_dcl |
3039 |
{ |
{ |
3040 |
va_list ap; |
va_list ap; |
3041 |
int narg = VFUN_NARGS; VMB38 VMS38 VMV38 |
int narg = VFUN_NARGS; VMB38 VMS38 VMV38 |
3042 |
{object V614; |
{object V616; |
|
object V615; |
|
|
object V616; |
|
3043 |
object V617; |
object V617; |
3044 |
object V618; |
object V618; |
3045 |
register object V619; |
object V619; |
3046 |
object V620; |
object V620; |
3047 |
object V621; |
register object V621; |
3048 |
object V622; |
object V622; |
3049 |
object V623; |
object V623; |
3050 |
|
object V624; |
3051 |
|
object V625; |
3052 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
3053 |
va_start(ap); |
va_start(ap); |
3054 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
3055 |
V614= V613; |
V616= V615; |
3056 |
V615= V612; |
V617= V614; |
3057 |
narg= narg - 2; |
narg= narg - 2; |
3058 |
{ |
{ |
3059 |
parse_key_new(narg,Vcs +2,(struct key *)&LI38key,ap); |
parse_key_new(narg,Vcs +2,(struct key *)&LI38key,ap); |
3060 |
V616=(Vcs[2]); |
V618=(Vcs[2]); |
3061 |
V617=(Vcs[3]); |
V619=(Vcs[3]); |
3062 |
V618=(Vcs[4]); |
V620=(Vcs[4]); |
3063 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
3064 |
V619= symbol_function(VV[33]); |
V621= symbol_function(VV[33]); |
3065 |
}else{ |
}else{ |
3066 |
V619=(Vcs[5]);} |
V621=(Vcs[5]);} |
3067 |
V620=(Vcs[6]); |
V622=(Vcs[6]); |
3068 |
V621=(Vcs[7]); |
V623=(Vcs[7]); |
3069 |
V622=(Vcs[8]); |
V624=(Vcs[8]); |
3070 |
V623=(Vcs[9]); |
V625=(Vcs[9]); |
3071 |
if((V617)==Cnil){ |
if((V619)==Cnil){ |
3072 |
goto T1091;} |
goto T1093;} |
3073 |
if((V618)==Cnil){ |
if((V620)==Cnil){ |
3074 |
goto T1091;} |
goto T1093;} |
3075 |
(void)((*(LnkLI40))()); |
(void)((*(LnkLI40))()); |
3076 |
goto T1091; |
goto T1093; |
3077 |
T1091:; |
T1093:; |
3078 |
{long V624; |
{long V626; |
3079 |
if(((V620))==Cnil){ |
if(((V622))==Cnil){ |
3080 |
goto T1094;} |
goto T1096;} |
3081 |
V624= (long)(*(LnkLI34))((V620)); |
V626= (long)(*(LnkLI34))((V622)); |
3082 |
goto T1092; |
goto T1094; |
3083 |
|
goto T1096; |
3084 |
|
T1096:; |
3085 |
|
V626= 0; |
3086 |
goto T1094; |
goto T1094; |
3087 |
T1094:; |
T1094:; |
3088 |
V624= 0; |
{long V627; |
3089 |
goto T1092; |
V627= (long)(*(LnkLI35))((V624),(V616)); |
3090 |
T1092:; |
if(!((V626)<=(V627))){ |
3091 |
{long V625; |
goto T1100;} |
3092 |
V625= (long)(*(LnkLI35))((V622),(V614)); |
goto T1099; |
|
if(!((V624)<=(V625))){ |
|
|
goto T1098;} |
|
|
goto T1097; |
|
|
goto T1098; |
|
|
T1098:; |
|
|
V626 = make_fixnum(V624); |
|
|
V627 = make_fixnum(V625); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI31))(V626,V627))); |
|
|
goto T1097; |
|
|
T1097:; |
|
|
{register long V628; |
|
|
if(((V621))==Cnil){ |
|
|
goto T1102;} |
|
|
V628= (long)(*(LnkLI34))((V621)); |
|
|
goto T1100; |
|
|
goto T1102; |
|
|
T1102:; |
|
|
V628= 0; |
|
3093 |
goto T1100; |
goto T1100; |
3094 |
T1100:; |
T1100:; |
3095 |
{long V629; |
V628 = make_fixnum(V626); |
3096 |
V629= (long)(*(LnkLI35))((V623),(V615)); |
V629 = make_fixnum(V627); |
3097 |
if(!((V628)<=(V629))){ |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V628,V629))); |
3098 |
goto T1106;} |
goto T1099; |
3099 |
goto T1105; |
T1099:; |
3100 |
goto T1106; |
{register long V630; |
3101 |
T1106:; |
if(((V623))==Cnil){ |
3102 |
V630 = make_fixnum(V628); |
goto T1104;} |
3103 |
V631 = make_fixnum(V629); |
V630= (long)(*(LnkLI34))((V623)); |
3104 |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V630,V631))); |
goto T1102; |
3105 |
goto T1105; |
goto T1104; |
3106 |
T1105:; |
T1104:; |
3107 |
if(((V616))!=Cnil){ |
V630= 0; |
3108 |
goto T1109;} |
goto T1102; |
3109 |
goto T1112; |
T1102:; |
3110 |
T1112:; |
{long V631; |
3111 |
{register long V632; |
V631= (long)(*(LnkLI35))((V625),(V617)); |
3112 |
register long V633; |
if(!((V630)<=(V631))){ |
3113 |
V632= V624; |
goto T1108;} |
3114 |
V633= V628; |
goto T1107; |
3115 |
goto T1118; |
goto T1108; |
3116 |
T1118:; |
T1108:; |
3117 |
if(!((V632)>=(V625))){ |
V632 = make_fixnum(V630); |
3118 |
goto T1119;} |
V633 = make_fixnum(V631); |
3119 |
{object V634 = make_fixnum(V628); |
(void)((VFUN_NARGS=2,(*(LnkLI31))(V632,V633))); |
3120 |
VMR38(V634)} |
goto T1107; |
3121 |
goto T1119; |
T1107:; |
3122 |
T1119:; |
if(((V618))!=Cnil){ |
3123 |
if(!((V633)>=(V629))){ |
goto T1111;} |
|
goto T1123;} |
|
|
{object V635 = Cnil; |
|
|
VMR38(V635)} |
|
|
goto T1123; |
|
|
T1123:; |
|
|
base[0]= elt((V614),V632); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V619)); |
|
|
vs_top=sup; |
|
|
V636= vs_base[0]; |
|
|
base[0]= elt((V615),V633); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
super_funcall_no_event((V619)); |
|
|
vs_top=sup; |
|
|
V637= vs_base[0]; |
|
|
if(((*(LnkLI41))((V617),(V618),V636,V637))!=Cnil){ |
|
|
goto T1126;} |
|
|
goto T1114; |
|
|
goto T1126; |
|
|
T1126:; |
|
|
V632= (long)(1)+(V632); |
|
|
V633= (long)(1)+(V633); |
|
|
goto T1118;} |
|
3124 |
goto T1114; |
goto T1114; |
3125 |
T1114:; |
T1114:; |
3126 |
V628= (long)(1)+(V628); |
{register long V634; |
3127 |
goto T1112; |
register long V635; |
3128 |
goto T1109; |
V634= V626; |
3129 |
T1109:; |
V635= V630; |
3130 |
goto T1140; |
goto T1120; |
3131 |
T1140:; |
T1120:; |
3132 |
{register long V638; |
if(!((V634)>=(V627))){ |
3133 |
register long V639; |
goto T1121;} |
3134 |
V638= (long)(-1)+(V625); |
{object V636 = make_fixnum(V630); |
3135 |
V639= (long)(-1)+(V629); |
VMR38(V636)} |
3136 |
goto T1146; |
goto T1121; |
3137 |
T1146:; |
T1121:; |
3138 |
if(!((V638)<(V624))){ |
if(!((V635)>=(V631))){ |
3139 |
goto T1147;} |
goto T1125;} |
3140 |
{object V640 = make_fixnum((long)(1)+(V639)); |
{object V637 = Cnil; |
3141 |
VMR38(V640)} |
VMR38(V637)} |
3142 |
goto T1147; |
goto T1125; |
3143 |
T1147:; |
T1125:; |
3144 |
if(!((V639)<(V628))){ |
base[0]= elt((V616),V634); |
3145 |
goto T1151;} |
vs_top=(vs_base=base+0)+1; |
3146 |
{object V641 = Cnil; |
super_funcall_no_event((V621)); |
3147 |
VMR38(V641)} |
vs_top=sup; |
3148 |
goto T1151; |
V638= vs_base[0]; |
3149 |
T1151:; |
base[0]= elt((V617),V635); |
3150 |
base[0]= elt((V614),V638); |
vs_top=(vs_base=base+0)+1; |
3151 |
vs_top=(vs_base=base+0)+1; |
super_funcall_no_event((V621)); |
3152 |
super_funcall_no_event((V619)); |
vs_top=sup; |
3153 |
vs_top=sup; |
V639= vs_base[0]; |
3154 |
V642= vs_base[0]; |
if(((*(LnkLI41))((V619),(V620),V638,V639))!=Cnil){ |
3155 |
base[0]= elt((V615),V639); |
goto T1128;} |
3156 |
vs_top=(vs_base=base+0)+1; |
goto T1116; |
3157 |
super_funcall_no_event((V619)); |
goto T1128; |
3158 |
vs_top=sup; |
T1128:; |
3159 |
V643= vs_base[0]; |
V634= (long)(1)+(V634); |
3160 |
if(((*(LnkLI41))((V617),(V618),V642,V643))!=Cnil){ |
V635= (long)(1)+(V635); |
3161 |
goto T1154;} |
goto T1120;} |
3162 |
goto T1142; |
goto T1116; |
3163 |
goto T1154; |
T1116:; |
3164 |
T1154:; |
V630= (long)(1)+(V630); |
3165 |
V638= (long)(-1)+(V638); |
goto T1114; |
3166 |
V639= (long)(-1)+(V639); |
goto T1111; |
3167 |
goto T1146;} |
T1111:; |
3168 |
goto T1142; |
goto T1142; |
3169 |
T1142:; |
T1142:; |
3170 |
V629= (long)(-1)+(V629); |
{register long V640; |
3171 |
goto T1140;}}}} |
register long V641; |
3172 |
|
V640= (long)(-1)+(V627); |
3173 |
|
V641= (long)(-1)+(V631); |
3174 |
|
goto T1148; |
3175 |
|
T1148:; |
3176 |
|
if(!((V640)<(V626))){ |
3177 |
|
goto T1149;} |
3178 |
|
{object V642 = make_fixnum((long)(1)+(V641)); |
3179 |
|
VMR38(V642)} |
3180 |
|
goto T1149; |
3181 |
|
T1149:; |
3182 |
|
if(!((V641)<(V630))){ |
3183 |
|
goto T1153;} |
3184 |
|
{object V643 = Cnil; |
3185 |
|
VMR38(V643)} |
3186 |
|
goto T1153; |
3187 |
|
T1153:; |
3188 |
|
base[0]= elt((V616),V640); |
3189 |
|
vs_top=(vs_base=base+0)+1; |
3190 |
|
super_funcall_no_event((V621)); |
3191 |
|
vs_top=sup; |
3192 |
|
V644= vs_base[0]; |
3193 |
|
base[0]= elt((V617),V641); |
3194 |
|
vs_top=(vs_base=base+0)+1; |
3195 |
|
super_funcall_no_event((V621)); |
3196 |
|
vs_top=sup; |
3197 |
|
V645= vs_base[0]; |
3198 |
|
if(((*(LnkLI41))((V619),(V620),V644,V645))!=Cnil){ |
3199 |
|
goto T1156;} |
3200 |
|
goto T1144; |
3201 |
|
goto T1156; |
3202 |
|
T1156:; |
3203 |
|
V640= (long)(-1)+(V640); |
3204 |
|
V641= (long)(-1)+(V641); |
3205 |
|
goto T1148;} |
3206 |
|
goto T1144; |
3207 |
|
T1144:; |
3208 |
|
V631= (long)(-1)+(V631); |
3209 |
|
goto T1142;}}}} |
3210 |
va_end(ap); |
va_end(ap); |
3211 |
base[0]=base[0]; |
base[0]=base[0]; |
3212 |
return Cnil;} |
return Cnil;} |
3217 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3218 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
3219 |
vs_reserve(VM39); |
vs_reserve(VM39); |
3220 |
{register object V644; |
{register object V646; |
3221 |
object V645; |
object V647; |
3222 |
object V646; |
object V648; |
3223 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3224 |
parse_key(vs_base+2,FALSE,FALSE,1,VV[16]); |
parse_key(vs_base+2,FALSE,FALSE,1,VV[16]); |
3225 |
V644=(base[0]); |
V646=(base[0]); |
3226 |
V645=(base[1]); |
V647=(base[1]); |
3227 |
vs_top=sup; |
vs_top=sup; |
3228 |
if(base[3]==Cnil){ |
if(base[3]==Cnil){ |
3229 |
V646= symbol_function(VV[33]); |
V648= symbol_function(VV[33]); |
3230 |
}else{ |
}else{ |
3231 |
V646=(base[2]);} |
V648=(base[2]);} |
3232 |
if(!(type_of((V644))==t_cons||((V644))==Cnil)){ |
if(!(type_of((V646))==t_cons||((V646))==Cnil)){ |
3233 |
goto T1169;} |
goto T1171;} |
3234 |
base[4]= (V644); |
base[4]= (V646); |
3235 |
base[5]= (V645); |
base[5]= (V647); |
3236 |
base[6]= (V646); |
base[6]= (V648); |
3237 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3238 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
3239 |
return; |
return; |
3240 |
goto T1169; |
goto T1171; |
3241 |
T1169:; |
T1171:; |
3242 |
base[4]= (*(LnkLI56))((V644),0,(long)length((V644)),(V645),(V646)); |
base[4]= (*(LnkLI56))((V646),0,(long)length((V646)),(V647),(V648)); |
3243 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3244 |
return; |
return; |
3245 |
} |
} |
3250 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3251 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
3252 |
vs_reserve(VM40); |
vs_reserve(VM40); |
3253 |
{object V647; |
{object V649; |
3254 |
check_arg(3); |
check_arg(3); |
3255 |
V647=(base[0]); |
V649=(base[0]); |
3256 |
vs_top=sup; |
vs_top=sup; |
3257 |
goto TTL; |
goto TTL; |
3258 |
TTL:; |
TTL:; |
3259 |
base[3]= (V647); |
base[3]= (V649); |
3260 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3261 |
L41(base); |
L41(base); |
3262 |
return; |
return; |
3264 |
} |
} |
3265 |
/* local entry for function QUICK-SORT */ |
/* local entry for function QUICK-SORT */ |
3266 |
|
|
3267 |
static object LI42(V653,V654,V655,V656,V657) |
static object LI42(V655,V656,V657,V658,V659) |
3268 |
|
|
3269 |
register object V653;long V654;long V655;register object V656;register object V657; |
register object V655;long V656;long V657;register object V658;register object V659; |
3270 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
3271 |
goto TTL; |
goto TTL; |
3272 |
TTL:; |
TTL:; |
3273 |
if(!((V655)<=((long)(1)+(V654)))){ |
if(!((V657)<=((long)(1)+(V656)))){ |
3274 |
goto T1176;} |
goto T1178;} |
3275 |
{object V658 = (V653); |
{object V660 = (V655); |
3276 |
VMR41(V658)} |
VMR41(V660)} |
3277 |
goto T1176; |
goto T1178; |
3278 |
T1176:; |
T1178:; |
3279 |
{register long V659; |
{register long V661; |
3280 |
register long V660; |
register long V662; |
3281 |
object V661; |
object V663; |
3282 |
register object V662; |
register object V664; |
3283 |
V659= V654; |
V661= V656; |
3284 |
V660= V655; |
V662= V657; |
3285 |
V661= elt((V653),V654); |
V663= elt((V655),V656); |
3286 |
V662= ( |
V664= ( |
3287 |
(type_of((V657)) == t_sfun ?(*(((V657))->sfn.sfn_self)): |
(type_of((V659)) == t_sfun ?(*(((V659))->sfn.sfn_self)): |
3288 |
(fcall.fun=((V657)),fcall.argd=1,fcalln))((V661))); |
(fcall.fun=((V659)),fcall.argd=1,fcalln))((V663))); |
3289 |
goto T1184; |
goto T1186; |
3290 |
T1184:; |
T1186:; |
3291 |
goto T1188; |
goto T1190; |
3292 |
T1188:; |
T1190:; |
3293 |
V660= (long)(-1)+(V660); |
V662= (long)(-1)+(V662); |
3294 |
if((V659)<(V660)){ |
if((V661)<(V662)){ |
3295 |
goto T1192;} |
goto T1194;} |
3296 |
goto T1182; |
goto T1184; |
3297 |
goto T1192; |
goto T1194; |
3298 |
T1192:; |
T1194:; |
3299 |
base[3]= elt((V653),V660); |
base[3]= elt((V655),V662); |
3300 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3301 |
super_funcall_no_event((V657)); |
super_funcall_no_event((V659)); |
3302 |
vs_top=sup; |
vs_top=sup; |
3303 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3304 |
base[3]= (V662); |
base[3]= (V664); |
3305 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3306 |
super_funcall_no_event((V656)); |
super_funcall_no_event((V658)); |
3307 |
vs_top=sup; |
vs_top=sup; |
3308 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3309 |
goto T1189;} |
goto T1191;} |
|
goto T1186; |
|
|
goto T1189; |
|
|
T1189:; |
|
3310 |
goto T1188; |
goto T1188; |
3311 |
goto T1186; |
goto T1191; |
3312 |
T1186:; |
T1191:; |
3313 |
goto T1203; |
goto T1190; |
3314 |
T1203:; |
goto T1188; |
3315 |
V659= (long)(1)+(V659); |
T1188:; |
3316 |
if((V659)<(V660)){ |
goto T1205; |
3317 |
goto T1207;} |
T1205:; |
3318 |
goto T1182; |
V661= (long)(1)+(V661); |
3319 |
goto T1207; |
if((V661)<(V662)){ |
3320 |
T1207:; |
goto T1209;} |
3321 |
base[3]= elt((V653),V659); |
goto T1184; |
3322 |
|
goto T1209; |
3323 |
|
T1209:; |
3324 |
|
base[3]= elt((V655),V661); |
3325 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3326 |
super_funcall_no_event((V657)); |
super_funcall_no_event((V659)); |
3327 |
vs_top=sup; |
vs_top=sup; |
3328 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3329 |
base[3]= (V662); |
base[3]= (V664); |
3330 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3331 |
super_funcall_no_event((V656)); |
super_funcall_no_event((V658)); |
3332 |
vs_top=sup; |
vs_top=sup; |
3333 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
3334 |
goto T1204;} |
goto T1206;} |
|
goto T1201; |
|
|
goto T1204; |
|
|
T1204:; |
|
3335 |
goto T1203; |
goto T1203; |
3336 |
goto T1201; |
goto T1206; |
3337 |
T1201:; |
T1206:; |
3338 |
{object V663; |
goto T1205; |
3339 |
V663= elt((V653),V659); |
goto T1203; |
3340 |
V664= elt((V653),V660); |
T1203:; |
3341 |
(void)(elt_set((V653),V659,/* INLINE-ARGS */V664)); |
{object V665; |
3342 |
(void)(elt_set((V653),V660,(V663)));} |
V665= elt((V655),V661); |
3343 |
goto T1184; |
V666= elt((V655),V662); |
3344 |
goto T1182; |
(void)(elt_set((V655),V661,/* INLINE-ARGS */V666)); |
3345 |
T1182:; |
(void)(elt_set((V655),V662,(V665)));} |
3346 |
V665= elt((V653),V659); |
goto T1186; |
3347 |
(void)(elt_set((V653),V654,/* INLINE-ARGS */V665)); |
goto T1184; |
3348 |
(void)(elt_set((V653),V659,(V661))); |
T1184:; |
3349 |
(void)((*(LnkLI56))((V653),V654,V659,(V656),(V657))); |
V667= elt((V655),V661); |
3350 |
V654= (long)(1)+(V659); |
(void)(elt_set((V655),V656,/* INLINE-ARGS */V667)); |
3351 |
|
(void)(elt_set((V655),V661,(V663))); |
3352 |
|
(void)((*(LnkLI56))((V655),V656,V661,(V658),(V659))); |
3353 |
|
V656= (long)(1)+(V661); |
3354 |
goto TTL;} |
goto TTL;} |
3355 |
base[0]=base[0]; |
base[0]=base[0]; |
3356 |
return Cnil; |
return Cnil; |
3361 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3362 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM42; VC42 |
3363 |
vs_reserve(VM42); |
vs_reserve(VM42); |
3364 |
{register object V666; |
{register object V668; |
3365 |
object V667; |
object V669; |
3366 |
object V668; |
object V670; |
3367 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3368 |
parse_key(vs_base+2,FALSE,FALSE,1,VV[16]); |
parse_key(vs_base+2,FALSE,FALSE,1,VV[16]); |
3369 |
V666=(base[0]); |
V668=(base[0]); |
3370 |
V667=(base[1]); |
V669=(base[1]); |
3371 |
vs_top=sup; |
vs_top=sup; |
3372 |
if(base[3]==Cnil){ |
if(base[3]==Cnil){ |
3373 |
V668= symbol_function(VV[33]); |
V670= symbol_function(VV[33]); |
3374 |
}else{ |
}else{ |
3375 |
V668=(base[2]);} |
V670=(base[2]);} |
3376 |
if(!(type_of((V666))==t_cons||((V666))==Cnil)){ |
if(!(type_of((V668))==t_cons||((V668))==Cnil)){ |
3377 |
goto T1230;} |
goto T1232;} |
3378 |
base[4]= (V666); |
base[4]= (V668); |
3379 |
base[5]= (V667); |
base[5]= (V669); |
3380 |
base[6]= (V668); |
base[6]= (V670); |
3381 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3382 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
3383 |
return; |
return; |
3384 |
goto T1230; |
goto T1232; |
3385 |
T1230:; |
T1232:; |
3386 |
if(type_of((V666))==t_string){ |
if(type_of((V668))==t_string){ |
3387 |
goto T1235;} |
goto T1237;} |
3388 |
if(!((type_of((V666))==t_bitvector))){ |
if(!((type_of((V668))==t_bitvector))){ |
3389 |
goto T1236;} |
goto T1238;} |
3390 |
goto T1235; |
goto T1237; |
3391 |
T1235:; |
T1237:; |
3392 |
base[4]= (V666); |
base[4]= (V668); |
3393 |
base[5]= (V667); |
base[5]= (V669); |
3394 |
base[6]= VV[16]; |
base[6]= VV[16]; |
3395 |
base[7]= (V668); |
base[7]= (V670); |
3396 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
3397 |
(void) (*Lnk57)(); |
(void) (*Lnk57)(); |
3398 |
return; |
return; |
3399 |
goto T1236; |
goto T1238; |
3400 |
T1236:; |
T1238:; |
3401 |
base[4]= (*(LnkLI58))((V666),VV[0]); |
base[4]= (*(LnkLI58))((V668),VV[0]); |
3402 |
base[5]= (V667); |
base[5]= (V669); |
3403 |
base[6]= (V668); |
base[6]= (V670); |
3404 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3405 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
3406 |
vs_top=sup; |
vs_top=sup; |
3407 |
V669= vs_base[0]; |
V671= vs_base[0]; |
3408 |
V670= (*(LnkLI47))((V666)); |
V672= (*(LnkLI47))((V668)); |
3409 |
base[4]= (*(LnkLI58))(V669,/* INLINE-ARGS */V670); |
base[4]= (*(LnkLI58))(V671,/* INLINE-ARGS */V672); |
3410 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3411 |
return; |
return; |
3412 |
} |
} |
3413 |
} |
} |
3414 |
/* local entry for function MERGE */ |
/* local entry for function MERGE */ |
3415 |
|
|
3416 |
static object LI44(V674,V673,V672,V671,va_alist) |
static object LI44(V676,V675,V674,V673,va_alist) |
3417 |
object V674,V673,V672,V671; |
object V676,V675,V674,V673; |
3418 |
va_dcl |
va_dcl |
3419 |
{ |
{ |
3420 |
va_list ap; |
va_list ap; |
3421 |
int narg = VFUN_NARGS; VMB43 VMS43 VMV43 |
int narg = VFUN_NARGS; VMB43 VMS43 VMV43 |
3422 |
{object V675; |
{object V677; |
3423 |
register object V676; |
register object V678; |
3424 |
object V677; |
object V679; |
3425 |
object V678; |
object V680; |
3426 |
register object V679; |
register object V681; |
3427 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
3428 |
va_start(ap); |
va_start(ap); |
3429 |
if(narg <4) too_few_arguments(); |
if(narg <4) too_few_arguments(); |
3430 |
V675= V674; |
V677= V676; |
3431 |
V676= V673; |
V678= V675; |
3432 |
V677= V672; |
V679= V674; |
3433 |
V678= V671; |
V680= V673; |
3434 |
narg= narg - 4; |
narg= narg - 4; |
3435 |
{ |
{ |
3436 |
parse_key_new(narg,Vcs +4,(struct key *)&LI44key,ap); |
parse_key_new(narg,Vcs +4,(struct key *)&LI44key,ap); |
3437 |
if(Vcs[4]==0){ |
if(Vcs[4]==0){ |
3438 |
V679= symbol_function(VV[33]); |
V681= symbol_function(VV[33]); |
3439 |
}else{ |
}else{ |
3440 |
V679=(Vcs[4]);} |
V681=(Vcs[4]);} |
3441 |
{long V680; |
{long V682; |
3442 |
long V681; |
long V683; |
3443 |
V680= (long)length((V676)); |
V682= (long)length((V678)); |
3444 |
V681= (long)length((V677)); |
V683= (long)length((V679)); |
3445 |
if(!(equal((V679),Cnil))){ |
if(!(equal((V681),Cnil))){ |
3446 |
goto T1251;} |
goto T1253;} |
3447 |
V679= symbol_function(VV[33]); |
V681= symbol_function(VV[33]); |
3448 |
goto T1251; |
goto T1253; |
3449 |
T1251:; |
T1253:; |
3450 |
{register object V682; |
{register object V684; |
|
register long V683; |
|
|
register long V684; |
|
3451 |
register long V685; |
register long V685; |
3452 |
V686 = make_fixnum((long)(V680)+(V681)); |
register long V686; |
3453 |
V682= (VFUN_NARGS=2,(*(LnkLI46))((V675),V686)); |
register long V687; |
3454 |
V683= 0; |
V688 = make_fixnum((long)(V682)+(V683)); |
3455 |
V684= 0; |
V684= (VFUN_NARGS=2,(*(LnkLI46))((V677),V688)); |
3456 |
V685= 0; |
V685= 0; |
3457 |
goto T1260; |
V686= 0; |
3458 |
T1260:; |
V687= 0; |
3459 |
if(!((V684)==(V680))){ |
goto T1262; |
3460 |
goto T1261;} |
T1262:; |
3461 |
if(!((V685)==(V681))){ |
if(!((V686)==(V682))){ |
3462 |
goto T1261;} |
goto T1263;} |
3463 |
{object V687 = (V682); |
if(!((V687)==(V683))){ |
3464 |
VMR43(V687)} |
goto T1263;} |
3465 |
goto T1261; |
{object V689 = (V684); |
3466 |
T1261:; |
VMR43(V689)} |
3467 |
if(!((V684)<(V680))){ |
goto T1263; |
3468 |
goto T1269;} |
T1263:; |
3469 |
if(!((V685)<(V681))){ |
if(!((V686)<(V682))){ |
3470 |
goto T1269;} |
goto T1271;} |
3471 |
base[1]= elt((V676),V684); |
if(!((V687)<(V683))){ |
3472 |
|
goto T1271;} |
3473 |
|
base[1]= elt((V678),V686); |
3474 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3475 |
super_funcall_no_event((V679)); |
super_funcall_no_event((V681)); |
3476 |
vs_top=sup; |
vs_top=sup; |
3477 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3478 |
base[2]= elt((V677),V685); |
base[2]= elt((V679),V687); |
3479 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3480 |
super_funcall_no_event((V679)); |
super_funcall_no_event((V681)); |
3481 |
vs_top=sup; |
vs_top=sup; |
3482 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3483 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3484 |
super_funcall_no_event((V678)); |
super_funcall_no_event((V680)); |
3485 |
vs_top=sup; |
vs_top=sup; |
3486 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3487 |
goto T1274;} |
goto T1276;} |
3488 |
V688= elt((V676),V684); |
V690= elt((V678),V686); |
3489 |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V688)); |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V690)); |
3490 |
V684= (long)(1)+(V684); |
V686= (long)(1)+(V686); |
3491 |
goto T1267; |
goto T1269; |
3492 |
goto T1274; |
goto T1276; |
3493 |
T1274:; |
T1276:; |
3494 |
base[1]= elt((V677),V685); |
base[1]= elt((V679),V687); |
3495 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3496 |
super_funcall_no_event((V679)); |
super_funcall_no_event((V681)); |
3497 |
vs_top=sup; |
vs_top=sup; |
3498 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3499 |
base[2]= elt((V676),V684); |
base[2]= elt((V678),V686); |
3500 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3501 |
super_funcall_no_event((V679)); |
super_funcall_no_event((V681)); |
3502 |
vs_top=sup; |
vs_top=sup; |
3503 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3504 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3505 |
super_funcall_no_event((V678)); |
super_funcall_no_event((V680)); |
3506 |
vs_top=sup; |
vs_top=sup; |
3507 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3508 |
goto T1283;} |
goto T1285;} |
3509 |
V689= elt((V677),V685); |
V691= elt((V679),V687); |
3510 |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V689)); |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V691)); |
3511 |
V685= (long)(1)+(V685); |
V687= (long)(1)+(V687); |
3512 |
goto T1267; |
goto T1269; |
3513 |
goto T1283; |
goto T1285; |
3514 |
T1283:; |
T1285:; |
3515 |
V690= elt((V676),V684); |
V692= elt((V678),V686); |
3516 |
(void)(elt_set((V682),V683,/* INLINE-ARGS */V690)); |
(void)(elt_set((V684),V685,/* INLINE-ARGS */V692)); |
3517 |
V684= (long)(1)+(V684); |
V686= (long)(1)+(V686); |
3518 |
goto T1267; |
goto T1269; |
3519 |
|
goto T1271; |
3520 |
|
T1271:; |
3521 |
|
if(!((V686)<(V682))){ |
3522 |
|
goto T1296;} |
3523 |
|
V693= elt((V678),V686); |
3524 |
|
(void)(elt_set((V684),V685,/* INLINE-ARGS */V693)); |
3525 |
|
V686= (long)(1)+(V686); |
3526 |
|
goto T1269; |
3527 |
|
goto T1296; |
3528 |
|
T1296:; |
3529 |
|
V694= elt((V679),V687); |
3530 |
|
(void)(elt_set((V684),V685,/* INLINE-ARGS */V694)); |
3531 |
|
V687= (long)(1)+(V687); |
3532 |
goto T1269; |
goto T1269; |
3533 |
T1269:; |
T1269:; |
|
if(!((V684)<(V680))){ |
|
|
goto T1294;} |
|
|
V691= elt((V676),V684); |
|
|
(void)(elt_set((V682),V683,/* INLINE-ARGS */V691)); |
|
|
V684= (long)(1)+(V684); |
|
|
goto T1267; |
|
|
goto T1294; |
|
|
T1294:; |
|
|
V692= elt((V677),V685); |
|
|
(void)(elt_set((V682),V683,/* INLINE-ARGS */V692)); |
|
3534 |
V685= (long)(1)+(V685); |
V685= (long)(1)+(V685); |
3535 |
goto T1267; |
goto T1262;}} |
|
T1267:; |
|
|
V683= (long)(1)+(V683); |
|
|
goto T1260;}} |
|
3536 |
va_end(ap); |
va_end(ap); |
3537 |
base[0]=base[0]; |
base[0]=base[0]; |
3538 |
return Cnil;} |
return Cnil;} |
3543 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3544 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM44; VC44 |
3545 |
vs_reserve(VM44); |
vs_reserve(VM44); |
3546 |
{register object V693; |
{register object V695; |
3547 |
register object V694; |
register object V696; |
3548 |
register object V695; |
register object V697; |
3549 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3550 |
V693=(base[0]); |
V695=(base[0]); |
3551 |
V694=(base[1]); |
V696=(base[1]); |
3552 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
3553 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
3554 |
{object *p=vs_top; |
{object *p=vs_top; |
3555 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
3556 |
V695=(base[2]); |
V697=(base[2]); |
3557 |
vs_top=sup; |
vs_top=sup; |
3558 |
{object V696; |
{object V698; |
3559 |
base[4]= (V693); |
base[4]= (V695); |
3560 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3561 |
Ltype_of(); |
Ltype_of(); |
3562 |
vs_top=sup; |
vs_top=sup; |
3563 |
V698= vs_base[0]; |
V700= vs_base[0]; |
3564 |
if(!((VV[17])==(V698))){ |
if(!((VV[17])==(V700))){ |
3565 |
goto T1306;} |
goto T1308;} |
3566 |
base[4]= (V693); |
base[4]= (V695); |
3567 |
base[5]= small_fixnum(0); |
base[5]= small_fixnum(0); |
3568 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3569 |
Larray_dimension(); |
Larray_dimension(); |
3570 |
vs_top=sup; |
vs_top=sup; |
3571 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
3572 |
goto T1304; |
goto T1306; |
3573 |
|
goto T1308; |
3574 |
|
T1308:; |
3575 |
|
base[3]= make_fixnum((long)length((V695))); |
3576 |
goto T1306; |
goto T1306; |
3577 |
T1306:; |
T1306:; |
|
base[3]= make_fixnum((long)length((V693))); |
|
|
goto T1304; |
|
|
T1304:; |
|
|
{object V697; |
|
3578 |
{object V699; |
{object V699; |
3579 |
object V700= (V695); |
{object V701; |
3580 |
if(endp(V700)){ |
object V702= (V697); |
3581 |
V697= Cnil; |
if(endp(V702)){ |
3582 |
goto T1312;} |
V699= Cnil; |
3583 |
base[4]=V699=MMcons(Cnil,Cnil); |
goto T1314;} |
3584 |
goto T1313; |
base[4]=V701=MMcons(Cnil,Cnil); |
3585 |
T1313:; |
goto T1315; |
3586 |
base[5]= (V700->c.c_car); |
T1315:; |
3587 |
|
base[5]= (V702->c.c_car); |
3588 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3589 |
Llength(); |
Llength(); |
3590 |
vs_top=sup; |
vs_top=sup; |
3591 |
(V699->c.c_car)= vs_base[0]; |
(V701->c.c_car)= vs_base[0]; |
3592 |
V700=MMcdr(V700); |
V702=MMcdr(V702); |
3593 |
if(endp(V700)){ |
if(endp(V702)){ |
3594 |
V697= base[4]; |
V699= base[4]; |
3595 |
goto T1312;} |
goto T1314;} |
3596 |
V699=MMcdr(V699)=MMcons(Cnil,Cnil); |
V701=MMcdr(V701)=MMcons(Cnil,Cnil); |
3597 |
goto T1313;} |
goto T1315;} |
3598 |
goto T1312; |
goto T1314; |
3599 |
T1312:; |
T1314:; |
3600 |
vs_top=base+4; |
vs_top=base+4; |
3601 |
while(!endp(V697)) |
while(!endp(V699)) |
3602 |
{vs_push(car(V697));V697=cdr(V697);} |
{vs_push(car(V699));V699=cdr(V699);} |
3603 |
vs_base=base+3;} |
vs_base=base+3;} |
3604 |
Lmin(); |
Lmin(); |
3605 |
vs_top=sup; |
vs_top=sup; |
3606 |
V696= vs_base[0]; |
V698= vs_base[0]; |
3607 |
base[3]= (V693); |
base[3]= (V695); |
3608 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3609 |
Ltype_of(); |
Ltype_of(); |
3610 |
vs_top=sup; |
vs_top=sup; |
3611 |
V701= vs_base[0]; |
V703= vs_base[0]; |
3612 |
if(!((VV[17])==(V701))){ |
if(!((VV[17])==(V703))){ |
3613 |
goto T1316;} |
goto T1318;} |
3614 |
base[3]= (V693); |
base[3]= (V695); |
3615 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3616 |
(void) (*Lnk59)(); |
(void) (*Lnk59)(); |
3617 |
vs_top=sup; |
vs_top=sup; |
3618 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3619 |
goto T1316;} |
goto T1318;} |
3620 |
base[3]= (V693); |
base[3]= (V695); |
3621 |
base[4]= (V696); |
base[4]= (V698); |
3622 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3623 |
siLfill_pointer_set(); |
siLfill_pointer_set(); |
3624 |
vs_top=sup; |
vs_top=sup; |
3625 |
goto T1316; |
goto T1318; |
3626 |
T1316:; |
T1318:; |
3627 |
{register object V702; |
{register object V704; |
3628 |
register object V703; |
register object V705; |
3629 |
V702= (V696); |
V704= (V698); |
3630 |
V703= small_fixnum(0); |
V705= small_fixnum(0); |
3631 |
goto T1329; |
goto T1331; |
3632 |
T1329:; |
T1331:; |
3633 |
if(!(number_compare((V703),(V702))>=0)){ |
if(!(number_compare((V705),(V704))>=0)){ |
3634 |
goto T1330;} |
goto T1332;} |
3635 |
base[3]= (V693); |
base[3]= (V695); |
3636 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3637 |
return; |
return; |
3638 |
goto T1330; |
goto T1332; |
3639 |
T1330:; |
T1332:; |
3640 |
base[3]= (V694); |
base[3]= (V696); |
3641 |
{object V705; |
{object V707; |
3642 |
{object V706; |
{object V708; |
3643 |
object V707= (V695); |
object V709= (V697); |
3644 |
if(endp(V707)){ |
if(endp(V709)){ |
3645 |
V705= Cnil; |
V707= Cnil; |
3646 |
goto T1337;} |
goto T1339;} |
3647 |
base[4]=V706=MMcons(Cnil,Cnil); |
base[4]=V708=MMcons(Cnil,Cnil); |
3648 |
goto T1338; |
goto T1340; |
3649 |
T1338:; |
T1340:; |
3650 |
{register object V708; |
{register object V710; |
3651 |
V708= (V707->c.c_car); |
V710= (V709->c.c_car); |
3652 |
(V706->c.c_car)= elt((V708),fixint((V703)));} |
(V708->c.c_car)= elt((V710),fixint((V705)));} |
3653 |
V707=MMcdr(V707); |
V709=MMcdr(V709); |
3654 |
if(endp(V707)){ |
if(endp(V709)){ |
3655 |
V705= base[4]; |
V707= base[4]; |
3656 |
goto T1337;} |
goto T1339;} |
3657 |
V706=MMcdr(V706)=MMcons(Cnil,Cnil); |
V708=MMcdr(V708)=MMcons(Cnil,Cnil); |
3658 |
goto T1338;} |
goto T1340;} |
3659 |
goto T1337; |
goto T1339; |
3660 |
T1337:; |
T1339:; |
3661 |
vs_top=base+4; |
vs_top=base+4; |
3662 |
while(!endp(V705)) |
while(!endp(V707)) |
3663 |
{vs_push(car(V705));V705=cdr(V705);} |
{vs_push(car(V707));V707=cdr(V707);} |
3664 |
vs_base=base+4;} |
vs_base=base+4;} |
3665 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
3666 |
vs_top=sup; |
vs_top=sup; |
3667 |
V704= vs_base[0]; |
V706= vs_base[0]; |
3668 |
(void)(elt_set((V693),fixint((V703)),V704)); |
(void)(elt_set((V695),fixint((V705)),V706)); |
3669 |
V703= one_plus((V703)); |
V705= one_plus((V705)); |
3670 |
goto T1329;}} |
goto T1331;}} |
3671 |
} |
} |
3672 |
} |
} |
3673 |
/* macro definition for WITH-HASH-TABLE-ITERATOR */ |
/* macro definition for WITH-HASH-TABLE-ITERATOR */ |
3678 |
vs_reserve(VM45); |
vs_reserve(VM45); |
3679 |
check_arg(2); |
check_arg(2); |
3680 |
vs_top=sup; |
vs_top=sup; |
3681 |
{object V709=base[0]->c.c_cdr; |
{object V711=base[0]->c.c_cdr; |
3682 |
if(endp(V709))invalid_macro_call(); |
if(endp(V711))invalid_macro_call(); |
3683 |
{object V710= (V709->c.c_car); |
{object V712= (V711->c.c_car); |
3684 |
if(endp(V710))invalid_macro_call(); |
if(endp(V712))invalid_macro_call(); |
3685 |
base[2]= (V710->c.c_car); |
base[2]= (V712->c.c_car); |
3686 |
V710=V710->c.c_cdr; |
V712=V712->c.c_cdr; |
3687 |
if(endp(V710))invalid_macro_call(); |
if(endp(V712))invalid_macro_call(); |
3688 |
base[3]= (V710->c.c_car); |
base[3]= (V712->c.c_car); |
3689 |
V710=V710->c.c_cdr; |
V712=V712->c.c_cdr; |
3690 |
if(!endp(V710))invalid_macro_call();} |
if(!endp(V712))invalid_macro_call();} |
3691 |
V709=V709->c.c_cdr; |
V711=V711->c.c_cdr; |
3692 |
base[4]= V709;} |
base[4]= V711;} |
3693 |
{object V711; |
{object V713; |
3694 |
object V712; |
object V714; |
3695 |
vs_base=vs_top; |
vs_base=vs_top; |
3696 |
Lgensym(); |
Lgensym(); |
3697 |
vs_top=sup; |
vs_top=sup; |
3698 |
V711= vs_base[0]; |
V713= vs_base[0]; |
3699 |
base[5]= VV[18]; |
base[5]= VV[18]; |
3700 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3701 |
Lgensym(); |
Lgensym(); |
3702 |
vs_top=sup; |
vs_top=sup; |
3703 |
V712= vs_base[0]; |
V714= vs_base[0]; |
3704 |
V713= list(2,(V711),base[3]); |
V715= list(2,(V713),base[3]); |
3705 |
V714= list(2,/* INLINE-ARGS */V713,list(2,(V712),small_fixnum(0))); |
V716= list(2,/* INLINE-ARGS */V715,list(2,(V714),small_fixnum(0))); |
3706 |
V715= list(2,VV[24],(V711)); |
V717= list(2,VV[24],(V713)); |
3707 |
V716= list(4,VV[0],VV[23],/* INLINE-ARGS */V715,list(2,VV[24],(V712))); |
V718= list(4,VV[0],VV[23],/* INLINE-ARGS */V717,list(2,VV[24],(V714))); |
3708 |
V717= list(3,base[2],Cnil,list(5,VV[0],VV[21],VV[22],/* INLINE-ARGS */V716,list(4,VV[0],VV[25],list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(2,VV[24],(V712)),VV[28]),VV[29]),VV[30]))); |
V719= list(3,base[2],Cnil,list(5,VV[0],VV[21],VV[22],/* INLINE-ARGS */V718,list(4,VV[0],VV[25],list(4,VV[0],VV[26],list(4,VV[0],VV[27],list(2,VV[24],(V714)),VV[28]),VV[29]),VV[30]))); |
3709 |
base[5]= list(3,VV[19],/* INLINE-ARGS */V714,listA(3,VV[20],make_cons(/* INLINE-ARGS */V717,Cnil),base[4])); |
base[5]= list(3,VV[19],/* INLINE-ARGS */V716,listA(3,VV[20],make_cons(/* INLINE-ARGS */V719,Cnil),base[4])); |
3710 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3711 |
return;} |
return;} |
3712 |
} |
} |
3717 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3718 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
3719 |
vs_reserve(VM46); |
vs_reserve(VM46); |
3720 |
{object V718; |
{object V720; |
3721 |
check_arg(1); |
check_arg(1); |
3722 |
V718=(base[0]); |
V720=(base[0]); |
3723 |
vs_top=sup; |
vs_top=sup; |
3724 |
goto TTL; |
goto TTL; |
3725 |
TTL:; |
TTL:; |
3726 |
{long V719; |
{long V721; |
3727 |
register object V720; |
register object V722; |
|
register object V721; |
|
|
object V722; |
|
3728 |
register object V723; |
register object V723; |
3729 |
register object V724; |
object V724; |
3730 |
register object V725; |
register object V725; |
3731 |
V719= 0; |
register object V726; |
3732 |
V720= Cnil; |
register object V727; |
3733 |
V721= Cnil; |
V721= 0; |
3734 |
V722= Cnil; |
V722= Cnil; |
3735 |
V723= Cnil; |
V723= Cnil; |
3736 |
V724= Cnil; |
V724= Cnil; |
3737 |
V725= Cnil; |
V725= Cnil; |
3738 |
V719= (long)length((V718)); |
V726= Cnil; |
3739 |
if(!((V719)<(2))){ |
V727= Cnil; |
3740 |
goto T1355;} |
V721= (long)length((V720)); |
3741 |
base[1]= (V718); |
if(!((V721)<(2))){ |
3742 |
|
goto T1357;} |
3743 |
|
base[1]= (V720); |
3744 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3745 |
return; |
return; |
3746 |
goto T1355; |
goto T1357; |
3747 |
T1355:; |
T1357:; |
3748 |
if(!((V719)==(2))){ |
if(!((V721)==(2))){ |
3749 |
goto T1353;} |
goto T1355;} |
3750 |
V724= ( |
V726= ( |
3751 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3752 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V718)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); |
3753 |
V725= ( |
V727= ( |
3754 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3755 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V718)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(cadr((V720)))); |
3756 |
base[1]= (V724); |
base[1]= (V726); |
3757 |
base[2]= (V725); |
base[2]= (V727); |
3758 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3759 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3760 |
vs_top=sup; |
vs_top=sup; |
3761 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3762 |
goto T1364;} |
goto T1366;} |
3763 |
base[1]= (V718); |
base[1]= (V720); |
3764 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3765 |
return; |
return; |
3766 |
goto T1364; |
goto T1366; |
3767 |
T1364:; |
T1366:; |
3768 |
base[1]= (V725); |
base[1]= (V727); |
3769 |
base[2]= (V724); |
base[2]= (V726); |
3770 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3771 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3772 |
vs_top=sup; |
vs_top=sup; |
3773 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3774 |
goto T1369;} |
goto T1371;} |
3775 |
base[1]= nreverse((V718)); |
base[1]= nreverse((V720)); |
3776 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3777 |
return; |
return; |
3778 |
goto T1369; |
goto T1371; |
3779 |
T1369:; |
T1371:; |
3780 |
base[1]= (V718); |
base[1]= (V720); |
3781 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3782 |
return; |
return; |
3783 |
goto T1353; |
goto T1355; |
3784 |
T1353:; |
T1355:; |
3785 |
V719= (long)(V719>=0&&(2)>0?(V719)/(2):ifloor(V719,2)); |
V721= (long)(V721>=0&&(2)>0?(V721)/(2):ifloor(V721,2)); |
3786 |
{long V726; |
{long V728; |
3787 |
register object V727; |
register object V729; |
3788 |
V726= 1; |
V728= 1; |
3789 |
V727= (V718); |
V729= (V720); |
3790 |
goto T1378; |
goto T1380; |
3791 |
T1378:; |
T1380:; |
3792 |
if(!((V726)>=(V719))){ |
if(!((V728)>=(V721))){ |
3793 |
goto T1379;} |
goto T1381;} |
3794 |
V720= (V718); |
V722= (V720); |
3795 |
V721= cdr((V727)); |
V723= cdr((V729)); |
3796 |
if(type_of((V727))!=t_cons)FEwrong_type_argument(Scons,(V727)); |
if(type_of((V729))!=t_cons)FEwrong_type_argument(Scons,(V729)); |
3797 |
((V727))->c.c_cdr = Cnil; |
((V729))->c.c_cdr = Cnil; |
3798 |
goto T1375; |
goto T1377; |
3799 |
goto T1379; |
goto T1381; |
3800 |
T1379:; |
T1381:; |
3801 |
V726= (long)(1)+(V726); |
V728= (long)(1)+(V728); |
3802 |
V727= cdr((V727)); |
V729= cdr((V729)); |
3803 |
goto T1378;} |
goto T1380;} |
3804 |
goto T1375; |
goto T1377; |
3805 |
T1375:; |
T1377:; |
3806 |
base[1]= (V720); |
base[1]= (V722); |
3807 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3808 |
L41(base0); |
L41(base0); |
3809 |
vs_top=sup; |
vs_top=sup; |
3810 |
V720= vs_base[0]; |
V722= vs_base[0]; |
3811 |
base[1]= (V721); |
base[1]= (V723); |
3812 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3813 |
L41(base0); |
L41(base0); |
3814 |
vs_top=sup; |
vs_top=sup; |
3815 |
V721= vs_base[0]; |
V723= vs_base[0]; |
3816 |
if(!(endp_prop((V720)))){ |
if(!(endp_prop((V722)))){ |
3817 |
|
goto T1401;} |
3818 |
|
base[1]= (V723); |
3819 |
|
vs_top=(vs_base=base+1)+1; |
3820 |
|
return; |
3821 |
|
goto T1401; |
3822 |
|
T1401:; |
3823 |
|
if(!(endp_prop((V723)))){ |
3824 |
goto T1399;} |
goto T1399;} |
3825 |
base[1]= (V721); |
base[1]= (V722); |
3826 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3827 |
return; |
return; |
3828 |
goto T1399; |
goto T1399; |
3829 |
T1399:; |
T1399:; |
3830 |
if(!(endp_prop((V721)))){ |
V724= make_cons(Cnil,Cnil); |
3831 |
goto T1397;} |
V725= (V724); |
3832 |
base[1]= (V720); |
V726= ( |
|
vs_top=(vs_base=base+1)+1; |
|
|
return; |
|
|
goto T1397; |
|
|
T1397:; |
|
|
V722= make_cons(Cnil,Cnil); |
|
|
V723= (V722); |
|
|
V724= ( |
|
3833 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3834 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V722)))); |
3835 |
V725= ( |
V727= ( |
3836 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3837 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V721)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723)))); |
3838 |
goto T1348; |
goto T1350; |
3839 |
T1348:; |
T1350:; |
3840 |
base[1]= (V724); |
base[1]= (V726); |
3841 |
base[2]= (V725); |
base[2]= (V727); |
3842 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3843 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3844 |
vs_top=sup; |
vs_top=sup; |
3845 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3846 |
goto T1411;} |
goto T1413;} |
3847 |
goto T1349; |
goto T1351; |
3848 |
goto T1411; |
goto T1413; |
3849 |
T1411:; |
T1413:; |
3850 |
base[1]= (V725); |
base[1]= (V727); |
3851 |
base[2]= (V724); |
base[2]= (V726); |
3852 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3853 |
super_funcall_no_event(base0[1]); |
super_funcall_no_event(base0[1]); |
3854 |
vs_top=sup; |
vs_top=sup; |
3855 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3856 |
goto T1416;} |
goto T1418;} |
3857 |
goto T1350; |
goto T1352; |
3858 |
goto T1416; |
goto T1418; |
3859 |
T1416:; |
T1418:; |
3860 |
goto T1349; |
goto T1351; |
3861 |
goto T1349; |
goto T1351; |
3862 |
T1349:; |
T1351:; |
3863 |
if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723)); |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
3864 |
((V723))->c.c_cdr = (V720); |
((V725))->c.c_cdr = (V722); |
3865 |
V723= cdr((V723)); |
V725= cdr((V725)); |
3866 |
V720= cdr((V720)); |
V722= cdr((V722)); |
3867 |
if(!(endp_prop((V720)))){ |
if(!(endp_prop((V722)))){ |
3868 |
goto T1425;} |
goto T1427;} |
3869 |
if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723)); |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
3870 |
((V723))->c.c_cdr = (V721); |
((V725))->c.c_cdr = (V723); |
3871 |
base[1]= cdr((V722)); |
base[1]= cdr((V724)); |
3872 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3873 |
return; |
return; |
3874 |
goto T1425; |
goto T1427; |
3875 |
T1425:; |
T1427:; |
3876 |
V724= ( |
V726= ( |
3877 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3878 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V720)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V722)))); |
3879 |
goto T1348; |
goto T1350; |
3880 |
goto T1350; |
goto T1352; |
3881 |
T1350:; |
T1352:; |
3882 |
if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723)); |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
3883 |
((V723))->c.c_cdr = (V721); |
((V725))->c.c_cdr = (V723); |
3884 |
|
V725= cdr((V725)); |
3885 |
V723= cdr((V723)); |
V723= cdr((V723)); |
3886 |
V721= cdr((V721)); |
if(!(endp_prop((V723)))){ |
3887 |
if(!(endp_prop((V721)))){ |
goto T1438;} |
3888 |
goto T1436;} |
if(type_of((V725))!=t_cons)FEwrong_type_argument(Scons,(V725)); |
3889 |
if(type_of((V723))!=t_cons)FEwrong_type_argument(Scons,(V723)); |
((V725))->c.c_cdr = (V722); |
3890 |
((V723))->c.c_cdr = (V720); |
base[1]= cdr((V724)); |
|
base[1]= cdr((V722)); |
|
3891 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3892 |
return; |
return; |
3893 |
goto T1436; |
goto T1438; |
3894 |
T1436:; |
T1438:; |
3895 |
V725= ( |
V727= ( |
3896 |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
(type_of(base0[2]) == t_sfun ?(*((base0[2])->sfn.sfn_self)): |
3897 |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V721)))); |
(fcall.fun=(base0[2]),fcall.argd=1,fcalln))(car((V723)))); |
3898 |
goto T1348;} |
goto T1350;} |
3899 |
} |
} |
3900 |
} |
} |
3901 |
static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* ARRAY-HAS-FILL-POINTER-P */ |