660 |
base[2]= (V97->c.c_car); |
base[2]= (V97->c.c_car); |
661 |
V97=V97->c.c_cdr; |
V97=V97->c.c_cdr; |
662 |
if(!endp(V97))invalid_macro_call();} |
if(!endp(V97))invalid_macro_call();} |
663 |
base[3]= list(3,VV[37],base[2],(*(LnkLI191))(VV[38])); |
V98 = base[2]; |
664 |
|
base[3]= list(3,VV[37],V98,(*(LnkLI191))(VV[38])); |
665 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
666 |
return; |
return; |
667 |
} |
} |
673 |
vs_check; |
vs_check; |
674 |
check_arg(2); |
check_arg(2); |
675 |
vs_top=sup; |
vs_top=sup; |
676 |
{object V98=base[0]->c.c_cdr; |
{object V99=base[0]->c.c_cdr; |
677 |
if(endp(V98))invalid_macro_call(); |
if(endp(V99))invalid_macro_call(); |
678 |
base[2]= (V98->c.c_car); |
base[2]= (V99->c.c_car); |
679 |
V98=V98->c.c_cdr; |
V99=V99->c.c_cdr; |
680 |
if(!endp(V98))invalid_macro_call();} |
if(!endp(V99))invalid_macro_call();} |
681 |
base[3]= list(3,VV[37],base[2],(*(LnkLI191))(VV[39])); |
V100 = base[2]; |
682 |
|
base[3]= list(3,VV[37],V100,(*(LnkLI191))(VV[39])); |
683 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
684 |
return; |
return; |
685 |
} |
} |
691 |
vs_check; |
vs_check; |
692 |
check_arg(2); |
check_arg(2); |
693 |
vs_top=sup; |
vs_top=sup; |
694 |
{object V99=base[0]->c.c_cdr; |
{object V101=base[0]->c.c_cdr; |
695 |
if(endp(V99))invalid_macro_call(); |
if(endp(V101))invalid_macro_call(); |
696 |
base[2]= (V99->c.c_car); |
base[2]= (V101->c.c_car); |
697 |
V99=V99->c.c_cdr; |
V101=V101->c.c_cdr; |
698 |
if(!endp(V99))invalid_macro_call();} |
if(!endp(V101))invalid_macro_call();} |
699 |
base[3]= list(3,VV[37],base[2],(*(LnkLI191))(VV[40])); |
V102 = base[2]; |
700 |
|
base[3]= list(3,VV[37],V102,(*(LnkLI191))(VV[40])); |
701 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
702 |
return; |
return; |
703 |
} |
} |
709 |
vs_check; |
vs_check; |
710 |
check_arg(2); |
check_arg(2); |
711 |
vs_top=sup; |
vs_top=sup; |
712 |
{object V100=base[0]->c.c_cdr; |
{object V103=base[0]->c.c_cdr; |
713 |
if(endp(V100))invalid_macro_call(); |
if(endp(V103))invalid_macro_call(); |
714 |
base[2]= (V100->c.c_car); |
base[2]= (V103->c.c_car); |
715 |
V100=V100->c.c_cdr; |
V103=V103->c.c_cdr; |
716 |
if(!endp(V100))invalid_macro_call();} |
if(!endp(V103))invalid_macro_call();} |
717 |
base[3]= list(3,VV[37],base[2],(*(LnkLI191))(VV[41])); |
V104 = base[2]; |
718 |
|
base[3]= list(3,VV[37],V104,(*(LnkLI191))(VV[41])); |
719 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
720 |
return; |
return; |
721 |
} |
} |
727 |
vs_check; |
vs_check; |
728 |
check_arg(2); |
check_arg(2); |
729 |
vs_top=sup; |
vs_top=sup; |
730 |
{object V101=base[0]->c.c_cdr; |
{object V105=base[0]->c.c_cdr; |
731 |
if(endp(V101))invalid_macro_call(); |
if(endp(V105))invalid_macro_call(); |
732 |
base[2]= (V101->c.c_car); |
base[2]= (V105->c.c_car); |
733 |
V101=V101->c.c_cdr; |
V105=V105->c.c_cdr; |
734 |
if(!endp(V101))invalid_macro_call();} |
if(!endp(V105))invalid_macro_call();} |
735 |
base[3]= list(3,VV[37],base[2],(*(LnkLI191))(VV[42])); |
V106 = base[2]; |
736 |
|
base[3]= list(3,VV[37],V106,(*(LnkLI191))(VV[42])); |
737 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
738 |
return; |
return; |
739 |
} |
} |
746 |
bds_check; |
bds_check; |
747 |
check_arg(2); |
check_arg(2); |
748 |
vs_top=sup; |
vs_top=sup; |
749 |
{object V102=base[0]->c.c_cdr; |
{object V107=base[0]->c.c_cdr; |
750 |
if(!endp(V102))invalid_macro_call();} |
if(!endp(V107))invalid_macro_call();} |
751 |
V103 = CMPmake_fixnum((long)length(VV[32])); |
V108 = CMPmake_fixnum((long)length(VV[32])); |
752 |
V104= list(2,VV[43],listA(3,VV[44],V103,VV[45])); |
V109= list(2,VV[43],listA(3,VV[44],V108,VV[45])); |
753 |
V105= make_cons(/* INLINE-ARGS */V104,Cnil); |
V110= make_cons(/* INLINE-ARGS */V109,Cnil); |
754 |
{register object V107; |
{register object V112; |
755 |
register object V108; |
register object V113; |
|
V107= Cnil; |
|
|
V108= Cnil; |
|
|
{register object V109; |
|
|
register object V110; |
|
|
register object V111; |
|
|
register object V112; |
|
|
V109= small_fixnum(0); |
|
|
V110= Cnil; |
|
|
V111= VV[32]; |
|
756 |
V112= Cnil; |
V112= Cnil; |
757 |
|
V113= Cnil; |
758 |
|
{register object V114; |
759 |
|
register object V115; |
760 |
|
register object V116; |
761 |
|
register object V117; |
762 |
|
V114= small_fixnum(0); |
763 |
|
V115= Cnil; |
764 |
|
V116= VV[32]; |
765 |
|
V117= Cnil; |
766 |
goto T185; |
goto T185; |
767 |
T185:; |
T185:; |
768 |
{register object V113; |
{register object V118; |
769 |
V113= (V109); |
V118= (V114); |
770 |
V109= number_plus((V109),small_fixnum(1)); |
V114= number_plus((V114),small_fixnum(1)); |
771 |
V110= (V113);} |
V115= (V118);} |
772 |
{register object V114; |
{register object V119; |
773 |
if(!(((V111))==Cnil)){ |
if(!(((V116))==Cnil)){ |
774 |
goto T195;} |
goto T195;} |
775 |
goto T179; |
goto T179; |
776 |
goto T195; |
goto T195; |
777 |
T195:; |
T195:; |
778 |
V114= CMPcar((V111)); |
V119= CMPcar((V116)); |
779 |
V111= CMPcdr((V111)); |
V116= CMPcdr((V116)); |
780 |
V112= (V114);} |
V117= (V119);} |
781 |
{register object V115; |
{register object V120; |
782 |
V115= (V112); |
V120= (V117); |
783 |
if(!(eql((V115),VV[46]))){ |
if(!(eql((V120),VV[46]))){ |
784 |
goto T200;} |
goto T200;} |
785 |
{register object V116; |
{register object V121; |
786 |
V116= list(3,VV[14],list(3,VV[37],VV[43],(V110)),VV[47]); |
V121= list(3,VV[14],list(3,VV[37],VV[43],(V115)),VV[47]); |
787 |
if(((V107))!=Cnil){ |
if(((V112))!=Cnil){ |
788 |
goto T204;} |
goto T204;} |
789 |
V108= make_cons((V116),Cnil); |
V113= make_cons((V121),Cnil); |
790 |
V107= (V108); |
V112= (V113); |
791 |
goto T186; |
goto T186; |
792 |
goto T204; |
goto T204; |
793 |
T204:; |
T204:; |
794 |
V118= make_cons((V116),Cnil); |
V123= make_cons((V121),Cnil); |
795 |
((V108))->c.c_cdr = /* INLINE-ARGS */V118; |
((V113))->c.c_cdr = /* INLINE-ARGS */V123; |
796 |
V117= (V108); |
V122= (V113); |
797 |
V108= CMPcdr(V117); |
V113= CMPcdr(V122); |
798 |
goto T186;} |
goto T186;} |
799 |
goto T200; |
goto T200; |
800 |
T200:; |
T200:; |
801 |
{register object x= (V115),V119= VV[48]; |
{register object x= (V120),V124= VV[48]; |
802 |
while(V119!=Cnil) |
while(V124!=Cnil) |
803 |
if(eql(x,V119->c.c_car)){ |
if(eql(x,V124->c.c_car)){ |
804 |
goto T212; |
goto T212; |
805 |
}else V119=V119->c.c_cdr; |
}else V124=V124->c.c_cdr; |
806 |
goto T211;} |
goto T211;} |
807 |
goto T212; |
goto T212; |
808 |
T212:; |
T212:; |
813 |
bds_bind(VV[50],small_fixnum(4)); |
bds_bind(VV[50],small_fixnum(4)); |
814 |
base[4]= VV[51]; |
base[4]= VV[51]; |
815 |
base[5]= VV[52]; |
base[5]= VV[52]; |
816 |
base[6]= (V115); |
base[6]= (V120); |
817 |
base[7]= VV[46]; |
base[7]= VV[46]; |
818 |
base[8]= VV[38]; |
base[8]= VV[38]; |
819 |
base[9]= VV[39]; |
base[9]= VV[39]; |
830 |
goto T185;} |
goto T185;} |
831 |
goto T179; |
goto T179; |
832 |
T179:; |
T179:; |
833 |
V106= (V107);} |
V111= (V112);} |
834 |
base[2]= listA(3,VV[10],/* INLINE-ARGS */V105,append(V106,VV[53])); |
base[2]= listA(3,VV[10],/* INLINE-ARGS */V110,append(V111,VV[53])); |
835 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
836 |
return; |
return; |
837 |
} |
} |
838 |
/* local entry for function MAKE-WRAPPER */ |
/* local entry for function MAKE-WRAPPER */ |
839 |
|
|
840 |
static object LI30(object V120,object first,...) |
static object LI30(object V125,object first,...) |
841 |
{ |
{ |
842 |
va_list ap; |
va_list ap; |
843 |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
844 |
{object V121; |
{object V126; |
845 |
object V122; |
object V127; |
846 |
va_start(ap,first); |
va_start(ap,first); |
847 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
848 |
V121= V120; |
V126= V125; |
849 |
narg = narg - 1; |
narg = narg - 1; |
850 |
if (narg <= 0) goto T223; |
if (narg <= 0) goto T223; |
851 |
else { |
else { |
852 |
V122= first;} |
V127= first;} |
853 |
--narg; goto T224; |
--narg; goto T224; |
854 |
goto T223; |
goto T223; |
855 |
T223:; |
T223:; |
856 |
V122= Cnil; |
V127= Cnil; |
857 |
goto T224; |
goto T224; |
858 |
T224:; |
T224:; |
859 |
{object V123; |
{object V128; |
860 |
{register object V124; |
{register object V129; |
861 |
base[0]= small_fixnum(13); |
base[0]= small_fixnum(13); |
862 |
base[1]= VV[5]; |
base[1]= VV[5]; |
863 |
base[2]= Cnil; |
base[2]= Cnil; |
864 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
865 |
(void) (*Lnk44)(); |
(void) (*Lnk44)(); |
866 |
vs_top=sup; |
vs_top=sup; |
867 |
V124= vs_base[0]; |
V129= vs_base[0]; |
868 |
V125 = CMPmake_fixnum((long)(*(LnkLI192))()); |
V130 = (V129); |
|
(void)(((V124))->v.v_self[0]= (V125)); |
|
|
V126 = CMPmake_fixnum((long)(*(LnkLI192))()); |
|
|
(void)(((V124))->v.v_self[1]= (V126)); |
|
|
V127 = CMPmake_fixnum((long)(*(LnkLI192))()); |
|
|
(void)(((V124))->v.v_self[2]= (V127)); |
|
|
V128 = CMPmake_fixnum((long)(*(LnkLI192))()); |
|
|
(void)(((V124))->v.v_self[3]= (V128)); |
|
|
V129 = CMPmake_fixnum((long)(*(LnkLI192))()); |
|
|
(void)(((V124))->v.v_self[4]= (V129)); |
|
|
V130 = CMPmake_fixnum((long)(*(LnkLI192))()); |
|
|
(void)(((V124))->v.v_self[5]= (V130)); |
|
869 |
V131 = CMPmake_fixnum((long)(*(LnkLI192))()); |
V131 = CMPmake_fixnum((long)(*(LnkLI192))()); |
870 |
(void)(((V124))->v.v_self[6]= (V131)); |
(void)((V130)->v.v_self[0]= (V131)); |
871 |
V132 = CMPmake_fixnum((long)(*(LnkLI192))()); |
V132 = (V129); |
872 |
(void)(((V124))->v.v_self[7]= (V132)); |
V133 = CMPmake_fixnum((long)(*(LnkLI192))()); |
873 |
(void)(((V124))->v.v_self[8]= (Ct)); |
(void)((V132)->v.v_self[1]= (V133)); |
874 |
V123= (V124);} |
V134 = (V129); |
875 |
(void)(((V123))->v.v_self[12]= ((V121))); |
V135 = CMPmake_fixnum((long)(*(LnkLI192))()); |
876 |
(void)(((V123))->v.v_self[11]= ((V122))); |
(void)((V134)->v.v_self[2]= (V135)); |
877 |
{object V133 = (V123); |
V136 = (V129); |
878 |
VMR30(V133)}} |
V137 = CMPmake_fixnum((long)(*(LnkLI192))()); |
879 |
|
(void)((V136)->v.v_self[3]= (V137)); |
880 |
|
V138 = (V129); |
881 |
|
V139 = CMPmake_fixnum((long)(*(LnkLI192))()); |
882 |
|
(void)((V138)->v.v_self[4]= (V139)); |
883 |
|
V140 = (V129); |
884 |
|
V141 = CMPmake_fixnum((long)(*(LnkLI192))()); |
885 |
|
(void)((V140)->v.v_self[5]= (V141)); |
886 |
|
V142 = (V129); |
887 |
|
V143 = CMPmake_fixnum((long)(*(LnkLI192))()); |
888 |
|
(void)((V142)->v.v_self[6]= (V143)); |
889 |
|
V144 = (V129); |
890 |
|
V145 = CMPmake_fixnum((long)(*(LnkLI192))()); |
891 |
|
(void)((V144)->v.v_self[7]= (V145)); |
892 |
|
(void)(((V129))->v.v_self[8]= (Ct)); |
893 |
|
V128= (V129);} |
894 |
|
(void)(((V128))->v.v_self[12]= ((V126))); |
895 |
|
(void)(((V128))->v.v_self[11]= ((V127))); |
896 |
|
{object V146 = (V128); |
897 |
|
VMR30(V146)}} |
898 |
va_end(ap); |
va_end(ap); |
899 |
base[0]=base[0]; |
base[0]=base[0]; |
900 |
return Cnil;} |
return Cnil;} |
907 |
vs_check; |
vs_check; |
908 |
check_arg(2); |
check_arg(2); |
909 |
vs_top=sup; |
vs_top=sup; |
910 |
{object V134=base[0]->c.c_cdr; |
{object V147=base[0]->c.c_cdr; |
911 |
if(endp(V134))invalid_macro_call(); |
if(endp(V147))invalid_macro_call(); |
912 |
base[2]= (V134->c.c_car); |
base[2]= (V147->c.c_car); |
913 |
V134=V134->c.c_cdr; |
V147=V147->c.c_cdr; |
914 |
if(endp(V134))invalid_macro_call(); |
if(endp(V147))invalid_macro_call(); |
915 |
base[3]= (V134->c.c_car); |
base[3]= (V147->c.c_car); |
916 |
V134=V134->c.c_cdr; |
V147=V147->c.c_cdr; |
917 |
if(!endp(V134))invalid_macro_call();} |
if(!endp(V147))invalid_macro_call();} |
918 |
base[4]= list(3,VV[1],VV[54],list(3,VV[0],list(2,VV[55],base[2]),base[3])); |
base[4]= list(3,VV[1],VV[54],list(3,VV[0],list(2,VV[55],base[2]),base[3])); |
919 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
920 |
return; |
return; |
927 |
vs_check; |
vs_check; |
928 |
check_arg(2); |
check_arg(2); |
929 |
vs_top=sup; |
vs_top=sup; |
930 |
{object V135=base[0]->c.c_cdr; |
{object V148=base[0]->c.c_cdr; |
931 |
if(endp(V135))invalid_macro_call(); |
if(endp(V148))invalid_macro_call(); |
932 |
base[2]= (V135->c.c_car); |
base[2]= (V148->c.c_car); |
933 |
V135=V135->c.c_cdr; |
V148=V148->c.c_cdr; |
934 |
if(!endp(V135))invalid_macro_call();} |
if(!endp(V148))invalid_macro_call();} |
935 |
base[3]= list(2,VV[56],list(2,VV[57],base[2])); |
base[3]= list(2,VV[56],list(2,VV[57],base[2])); |
936 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
937 |
return; |
return; |
944 |
vs_check; |
vs_check; |
945 |
check_arg(2); |
check_arg(2); |
946 |
vs_top=sup; |
vs_top=sup; |
947 |
{object V136=base[0]->c.c_cdr; |
{object V149=base[0]->c.c_cdr; |
948 |
if(endp(V136))invalid_macro_call(); |
if(endp(V149))invalid_macro_call(); |
949 |
base[2]= (V136->c.c_car); |
base[2]= (V149->c.c_car); |
950 |
V136=V136->c.c_cdr; |
V149=V149->c.c_cdr; |
951 |
if(!endp(V136))invalid_macro_call();} |
if(!endp(V149))invalid_macro_call();} |
952 |
base[3]= list(2,VV[58],base[2]); |
base[3]= list(2,VV[58],base[2]); |
953 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
954 |
return; |
return; |
961 |
vs_check; |
vs_check; |
962 |
check_arg(2); |
check_arg(2); |
963 |
vs_top=sup; |
vs_top=sup; |
964 |
{object V137=base[0]->c.c_cdr; |
{object V150=base[0]->c.c_cdr; |
965 |
if(endp(V137))invalid_macro_call(); |
if(endp(V150))invalid_macro_call(); |
966 |
base[2]= (V137->c.c_car); |
base[2]= (V150->c.c_car); |
967 |
V137=V137->c.c_cdr; |
V150=V150->c.c_cdr; |
968 |
if(!endp(V137))invalid_macro_call();} |
if(!endp(V150))invalid_macro_call();} |
969 |
base[3]= list(3,VV[59],list(2,VV[60],base[2]),VV[61]); |
base[3]= list(3,VV[59],list(2,VV[60],base[2]),VV[61]); |
970 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
971 |
return; |
return; |
972 |
} |
} |
973 |
/* local entry for function INVALIDATE-WRAPPER */ |
/* local entry for function INVALIDATE-WRAPPER */ |
974 |
|
|
975 |
static object LI35(V141,V142,V143) |
static object LI35(V154,V155,V156) |
976 |
|
|
977 |
object V141;object V142;object V143; |
object V154;object V155;object V156; |
978 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
979 |
goto TTL; |
goto TTL; |
980 |
TTL:; |
TTL:; |
981 |
{object V144= (V142); |
{object V157= (V155); |
982 |
if((V144!= VV[193]) |
if((V157!= VV[193]) |
983 |
&& (V144!= VV[63]))goto T242; |
&& (V157!= VV[63]))goto T242; |
984 |
{object V145; |
{object V158; |
985 |
V145= Cnil; |
V158= Cnil; |
986 |
{register object V146; |
{register object V159; |
987 |
register object V147; |
register object V160; |
988 |
base[2]= (V141); |
base[2]= (V154); |
989 |
base[3]= (VV[62]->s.s_dbind); |
base[3]= (VV[62]->s.s_dbind); |
990 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
991 |
Lgethash(); |
Lgethash(); |
992 |
vs_top=sup; |
vs_top=sup; |
993 |
V146= vs_base[0]; |
V159= vs_base[0]; |
994 |
V147= CMPcar((V146)); |
V160= CMPcar((V159)); |
995 |
goto T249; |
goto T249; |
996 |
T249:; |
T249:; |
997 |
if(!(((V146))==Cnil)){ |
if(!(((V159))==Cnil)){ |
998 |
goto T250;} |
goto T250;} |
999 |
goto T243; |
goto T243; |
1000 |
goto T250; |
goto T250; |
1001 |
T250:; |
T250:; |
1002 |
if(!(((V142))==(VV[63]))){ |
if(!(((V155))==(VV[63]))){ |
1003 |
goto T254;} |
goto T254;} |
1004 |
{register object V149; |
{register object V162; |
1005 |
V149= VV[63]; |
V162= VV[63]; |
1006 |
(V147)->c.c_car = (V149);} |
(V160)->c.c_car = (V162);} |
1007 |
goto T254; |
goto T254; |
1008 |
T254:; |
T254:; |
1009 |
{register object V151; |
{register object V164; |
1010 |
V151= (V143); |
V164= (V156); |
1011 |
(CMPcdr(V147))->c.c_car = (V151); |
(CMPcdr(V160))->c.c_car = (V164); |
1012 |
(void)(CMPcdr(V147));} |
(void)(CMPcdr(V160));} |
1013 |
V145= make_cons(V147,(V145)); |
V158= make_cons(V160,(V158)); |
1014 |
V146= CMPcdr((V146)); |
V159= CMPcdr((V159)); |
1015 |
V147= CMPcar((V146)); |
V160= CMPcar((V159)); |
1016 |
goto T249;} |
goto T249;} |
1017 |
goto T243; |
goto T243; |
1018 |
T243:; |
T243:; |
1019 |
{register object V154; |
{register object V167; |
1020 |
object V155; |
object V168; |
1021 |
register object V156; |
register object V169; |
1022 |
object V157; |
object V170; |
1023 |
V154= VV[32]; |
V167= VV[32]; |
1024 |
V155= Cnil; |
V168= Cnil; |
1025 |
V156= small_fixnum(0); |
V169= small_fixnum(0); |
1026 |
V157= Cnil; |
V170= Cnil; |
1027 |
goto T275; |
goto T275; |
1028 |
T275:; |
T275:; |
1029 |
{object V158; |
{object V171; |
1030 |
if(!(((V154))==Cnil)){ |
if(!(((V167))==Cnil)){ |
1031 |
goto T281;} |
goto T281;} |
1032 |
goto T269; |
goto T269; |
1033 |
goto T281; |
goto T281; |
1034 |
T281:; |
T281:; |
1035 |
V158= CMPcar((V154)); |
V171= CMPcar((V167)); |
1036 |
V154= CMPcdr((V154)); |
V167= CMPcdr((V167)); |
1037 |
V155= (V158);} |
V168= (V171);} |
1038 |
{object V159; |
{object V172; |
1039 |
V159= (V156); |
V172= (V169); |
1040 |
V156= number_plus((V156),small_fixnum(1)); |
V169= number_plus((V169),small_fixnum(1)); |
1041 |
V157= (V159);} |
V170= (V172);} |
1042 |
if(!(((V155))==(VV[46]))){ |
if(!(((V168))==(VV[46]))){ |
1043 |
goto T276;} |
goto T276;} |
1044 |
(void)(((V141)->v.v_self[fix((V157))]=(small_fixnum(0)))); |
(void)(((V154)->v.v_self[fix((V170))]=(small_fixnum(0)))); |
1045 |
goto T276; |
goto T276; |
1046 |
T276:; |
T276:; |
1047 |
goto T275;} |
goto T275;} |
1048 |
goto T269; |
goto T269; |
1049 |
T269:; |
T269:; |
1050 |
{object V160; |
{object V173; |
1051 |
V161= list(2,(V142),(V143)); |
V174= list(2,(V155),(V156)); |
1052 |
V160= ((V141))->v.v_self[8]= (/* INLINE-ARGS */V161); |
V173= ((V154))->v.v_self[8]= (/* INLINE-ARGS */V174); |
1053 |
V145= make_cons((V160),(V145));} |
V158= make_cons((V173),(V158));} |
1054 |
{object V163; |
{object V176; |
1055 |
V163= (VV[62]->s.s_dbind); |
V176= (VV[62]->s.s_dbind); |
1056 |
base[0]= V141; |
base[0]= V154; |
1057 |
base[1]= (V163); |
base[1]= (V176); |
1058 |
base[2]= Cnil; |
base[2]= Cnil; |
1059 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1060 |
siLhash_set(); |
siLhash_set(); |
1061 |
vs_top=sup;} |
vs_top=sup;} |
1062 |
{object V166; |
{object V179; |
1063 |
V166= (VV[62]->s.s_dbind); |
V179= (VV[62]->s.s_dbind); |
1064 |
base[0]= V143; |
base[0]= V156; |
1065 |
base[1]= (V166); |
base[1]= (V179); |
1066 |
base[2]= V145; |
base[2]= V158; |
1067 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1068 |
siLhash_set(); |
siLhash_set(); |
1069 |
vs_top=sup; |
vs_top=sup; |
1070 |
{object V168 = vs_base[0]; |
{object V181 = vs_base[0]; |
1071 |
VMR35(V168)}}} |
VMR35(V181)}}} |
1072 |
goto T242; |
goto T242; |
1073 |
T242:; |
T242:; |
1074 |
FEerror("The ECASE key value ~s is illegal.",1,V144); |
FEerror("The ECASE key value ~s is illegal.",1,V157); |
1075 |
{object V169 = Cnil; |
{object V182 = Cnil; |
1076 |
VMR35(V169)}} |
VMR35(V182)}} |
1077 |
base[0]=base[0]; |
base[0]=base[0]; |
1078 |
return Cnil; |
return Cnil; |
1079 |
} |
} |
1080 |
/* local entry for function CHECK-WRAPPER-VALIDITY */ |
/* local entry for function CHECK-WRAPPER-VALIDITY */ |
1081 |
|
|
1082 |
static object LI36(V171) |
static object LI36(V184) |
1083 |
|
|
1084 |
register object V171; |
register object V184; |
1085 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
1086 |
goto TTL; |
goto TTL; |
1087 |
TTL:; |
TTL:; |
1088 |
{register object V172; |
{register object V185; |
1089 |
register object V173; |
register object V186; |
1090 |
V172= (*(LnkLI71))((V171)); |
V185= (*(LnkLI71))((V184)); |
1091 |
V173= ((V172))->v.v_self[8]; |
V186= ((V185))->v.v_self[8]; |
1092 |
if(!(((V173))==(Ct))){ |
if(!(((V186))==(Ct))){ |
1093 |
goto T307;} |
goto T307;} |
1094 |
{object V174 = (V172); |
{object V187 = (V185); |
1095 |
VMR36(V174)} |
VMR36(V187)} |
1096 |
goto T307; |
goto T307; |
1097 |
T307:; |
T307:; |
1098 |
{object V175; |
{object V188; |
1099 |
{object V176= CMPcar((V173)); |
{object V189= CMPcar((V186)); |
1100 |
if((V176!= VV[193]))goto T310; |
if((V189!= VV[193]))goto T310; |
1101 |
V175= (*(LnkLI194))((V172),CMPcadr((V173)),(V171)); |
V188= (*(LnkLI194))((V185),CMPcadr((V186)),(V184)); |
1102 |
goto T309; |
goto T309; |
1103 |
goto T310; |
goto T310; |
1104 |
T310:; |
T310:; |
1105 |
if((V176!= VV[63]))goto T311; |
if((V189!= VV[63]))goto T311; |
1106 |
V175= (*(LnkLI195))((V172),CMPcadr((V173)),(V171)); |
V188= (*(LnkLI195))((V185),CMPcadr((V186)),(V184)); |
1107 |
goto T309; |
goto T309; |
1108 |
goto T311; |
goto T311; |
1109 |
T311:; |
T311:; |
1110 |
FEerror("The ECASE key value ~s is illegal.",1,V176); |
FEerror("The ECASE key value ~s is illegal.",1,V189); |
1111 |
V175= Cnil; |
V188= Cnil; |
1112 |
goto T309;} |
goto T309;} |
1113 |
goto T309; |
goto T309; |
1114 |
T309:; |
T309:; |
1115 |
V177= (*(LnkLI71))((V171)); |
V190 = (V188); |
1116 |
if(!(((((V175))==(/* INLINE-ARGS */V177)?Ct:Cnil))==Cnil)){ |
V191= (*(LnkLI71))((V184)); |
1117 |
|
if(!((((V190)==(/* INLINE-ARGS */V191)?Ct:Cnil))==Cnil)){ |
1118 |
goto T314;} |
goto T314;} |
1119 |
base[2]= VV[64]; |
base[2]= VV[64]; |
1120 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1123 |
goto T312; |
goto T312; |
1124 |
goto T314; |
goto T314; |
1125 |
T314:; |
T314:; |
1126 |
if(!((((((V175))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((V188))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
1127 |
goto T312;} |
goto T312;} |
1128 |
base[2]= VV[65]; |
base[2]= VV[65]; |
1129 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1131 |
vs_top=sup; |
vs_top=sup; |
1132 |
goto T312; |
goto T312; |
1133 |
T312:; |
T312:; |
1134 |
{object V178 = (V175); |
{object V192 = (V188); |
1135 |
VMR36(V178)}}} |
VMR36(V192)}}} |
1136 |
base[0]=base[0]; |
base[0]=base[0]; |
1137 |
return Cnil; |
return Cnil; |
1138 |
} |
} |
1144 |
vs_check; |
vs_check; |
1145 |
check_arg(2); |
check_arg(2); |
1146 |
vs_top=sup; |
vs_top=sup; |
1147 |
{object V179=base[0]->c.c_cdr; |
{object V193=base[0]->c.c_cdr; |
1148 |
if(endp(V179))invalid_macro_call(); |
if(endp(V193))invalid_macro_call(); |
1149 |
base[2]= (V179->c.c_car); |
base[2]= (V193->c.c_car); |
1150 |
V179=V179->c.c_cdr; |
V193=V193->c.c_cdr; |
1151 |
if(!endp(V179))invalid_macro_call();} |
if(!endp(V193))invalid_macro_call();} |
1152 |
{object V180; |
{object V194; |
1153 |
vs_base=vs_top; |
vs_base=vs_top; |
1154 |
Lgensym(); |
Lgensym(); |
1155 |
vs_top=sup; |
vs_top=sup; |
1156 |
V180= vs_base[0]; |
V194= vs_base[0]; |
1157 |
V181= list(2,VV[67],base[2]); |
V195= list(2,VV[67],base[2]); |
1158 |
V182= list(2,/* INLINE-ARGS */V181,list(2,VV[68],base[2])); |
V196= list(2,/* INLINE-ARGS */V195,list(2,VV[68],base[2])); |
1159 |
V183= list(2,VV[69],base[2]); |
V197= list(2,VV[69],base[2]); |
1160 |
V184= list(2,/* INLINE-ARGS */V183,list(2,VV[70],base[2])); |
V198= list(2,/* INLINE-ARGS */V197,list(2,VV[70],base[2])); |
1161 |
V185= list(2,(V180),list(4,VV[66],/* INLINE-ARGS */V182,/* INLINE-ARGS */V184,list(2,Ct,list(2,VV[71],base[2])))); |
V199= list(2,(V194),list(4,VV[66],/* INLINE-ARGS */V196,/* INLINE-ARGS */V198,list(2,Ct,list(2,VV[71],base[2])))); |
1162 |
V186= make_cons(/* INLINE-ARGS */V185,Cnil); |
V200= make_cons(/* INLINE-ARGS */V199,Cnil); |
1163 |
V187= list(3,VV[73],VV[74],list(2,VV[60],(V180))); |
V201= list(3,VV[73],VV[74],list(2,VV[60],(V194))); |
1164 |
base[3]= list(3,VV[10],/* INLINE-ARGS */V186,list(4,VV[72],/* INLINE-ARGS */V187,(V180),list(2,VV[75],base[2]))); |
base[3]= list(3,VV[10],/* INLINE-ARGS */V200,list(4,VV[72],/* INLINE-ARGS */V201,(V194),list(2,VV[75],base[2]))); |
1165 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1166 |
return;} |
return;} |
1167 |
} |
} |
1168 |
/* local entry for function GET-CACHE */ |
/* local entry for function GET-CACHE */ |
1169 |
|
|
1170 |
static object LI38(V192,V193,V194,V195) |
static object LI38(V206,V207,V208,V209) |
1171 |
|
|
1172 |
object V192;object V193;object V194;long V195; |
object V206;object V207;object V208;long V209; |
1173 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
1174 |
goto TTL; |
goto TTL; |
1175 |
TTL:; |
TTL:; |
1176 |
{register object V196;{object V197; |
{register object V210;{object V211; |
1177 |
{object V198; |
{object V212; |
1178 |
V198= CMPcar((VV[76]->s.s_dbind)); |
V212= CMPcar((VV[76]->s.s_dbind)); |
1179 |
(VV[76]->s.s_dbind)= CMPcdr((VV[76]->s.s_dbind)); |
(VV[76]->s.s_dbind)= CMPcdr((VV[76]->s.s_dbind)); |
1180 |
V197= (V198);} |
V211= (V212);} |
1181 |
if(V197==Cnil)goto T322; |
if(V211==Cnil)goto T322; |
1182 |
V196= V197; |
V210= V211; |
1183 |
goto T321; |
goto T321; |
1184 |
goto T322; |
goto T322; |
1185 |
T322:;} |
T322:;} |
1186 |
V196= (*(LnkLI196))(); |
V210= (*(LnkLI196))(); |
1187 |
goto T321; |
goto T321; |
1188 |
T321:; |
T321:; |
1189 |
{long V199; |
{long V213; |
1190 |
long V200; |
long V214; |
1191 |
long V201; |
long V215; |
1192 |
long V202; |
long V216; |
1193 |
base[0]= (V192); |
base[0]= (V206); |
1194 |
base[1]= (V193); |
base[1]= (V207); |
1195 |
base[2]= CMPmake_fixnum(V195); |
base[2]= CMPmake_fixnum(V209); |
1196 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1197 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
1198 |
if(vs_base>=vs_top){vs_top=sup;goto T331;} |
if(vs_base>=vs_top){vs_top=sup;goto T331;} |
1199 |
V199= fix(vs_base[0]); |
V213= fix(vs_base[0]); |
1200 |
vs_base++; |
vs_base++; |
1201 |
if(vs_base>=vs_top){vs_top=sup;goto T332;} |
if(vs_base>=vs_top){vs_top=sup;goto T332;} |
1202 |
V200= fix(vs_base[0]); |
V214= fix(vs_base[0]); |
1203 |
vs_base++; |
vs_base++; |
1204 |
if(vs_base>=vs_top){vs_top=sup;goto T333;} |
if(vs_base>=vs_top){vs_top=sup;goto T333;} |
1205 |
V201= fix(vs_base[0]); |
V215= fix(vs_base[0]); |
1206 |
vs_base++; |
vs_base++; |
1207 |
if(vs_base>=vs_top){vs_top=sup;goto T334;} |
if(vs_base>=vs_top){vs_top=sup;goto T334;} |
1208 |
V202= fix(vs_base[0]); |
V216= fix(vs_base[0]); |
1209 |
vs_top=sup; |
vs_top=sup; |
1210 |
goto T335; |
goto T335; |
1211 |
goto T331; |
goto T331; |
1212 |
T331:; |
T331:; |
1213 |
V199= fix(Cnil); |
V213= fix(Cnil); |
1214 |
goto T332; |
goto T332; |
1215 |
T332:; |
T332:; |
1216 |
V200= fix(Cnil); |
V214= fix(Cnil); |
1217 |
goto T333; |
goto T333; |
1218 |
T333:; |
T333:; |
1219 |
V201= fix(Cnil); |
V215= fix(Cnil); |
1220 |
goto T334; |
goto T334; |
1221 |
T334:; |
T334:; |
1222 |
V202= fix(Cnil); |
V216= fix(Cnil); |
1223 |
goto T335; |
goto T335; |
1224 |
T335:; |
T335:; |
1225 |
V203= Ct; |
V217 = (V210); |
1226 |
STSET(unsigned short,(V196),4, fix((V192))); |
V218 = fix((V206)); |
1227 |
(void)(fix((V192))); |
V219= Ct; |
1228 |
V204= Ct; |
STSET(unsigned short,V217,4, V218); |
1229 |
STSET(object,(V196),8, (V193)); |
(void)(V218); |
1230 |
(void)((V193)); |
V220 = (V210); |
1231 |
V205= Ct; |
V221 = (V207); |
1232 |
STSET(fixnum,(V196),12, V202); |
V222= Ct; |
1233 |
(void)(V202); |
STSET(object,V220,8, V221); |
1234 |
{long V206= fix((*(LnkLI191))(VV[46])); |
(void)(V221); |
1235 |
V207= Ct; |
V223 = (V210); |
1236 |
STSET(unsigned char,(V196),16, /* INLINE-ARGS */V206); |
V224 = V216; |
1237 |
(void)(/* INLINE-ARGS */V206);} |
V225= Ct; |
1238 |
V208= Ct; |
STSET(fixnum,V223,12, V224); |
1239 |
STSET(object,(V196),20, (V194)); |
(void)(V224); |
1240 |
(void)((V194)); |
V226 = (V210); |
1241 |
V209= Ct; |
{long V227= fix((*(LnkLI191))(VV[46])); |
1242 |
STSET(fixnum,(V196),24, V199); |
V228= Ct; |
1243 |
(void)(V199); |
STSET(unsigned char,V226,16, /* INLINE-ARGS */V227); |
1244 |
V210= Ct; |
(void)(/* INLINE-ARGS */V227);} |
1245 |
STSET(fixnum,(V196),28, V200); |
V229 = (V210); |
1246 |
(void)(V200); |
V230 = (V208); |
1247 |
V211= Ct; |
V231= Ct; |
1248 |
STSET(unsigned short,(V196),32, V201); |
STSET(object,V229,20, V230); |
1249 |
(void)(V201); |
(void)(V230); |
1250 |
{long V213; |
V232 = (V210); |
1251 |
V213= (long)(V202)-1; |
V233 = V213; |
1252 |
if(!(number_compare((V192),small_fixnum(1))==0)){ |
V234= Ct; |
1253 |
|
STSET(fixnum,V232,24, V233); |
1254 |
|
(void)(V233); |
1255 |
|
V235 = (V210); |
1256 |
|
V236 = V214; |
1257 |
|
V237= Ct; |
1258 |
|
STSET(fixnum,V235,28, V236); |
1259 |
|
(void)(V236); |
1260 |
|
V238 = (V210); |
1261 |
|
V239 = V215; |
1262 |
|
V240= Ct; |
1263 |
|
STSET(unsigned short,V238,32, V239); |
1264 |
|
(void)(V239); |
1265 |
|
V241 = (V210); |
1266 |
|
{long V243; |
1267 |
|
V243= (long)(V216)-1; |
1268 |
|
if(!(number_compare((V206),small_fixnum(1))==0)){ |
1269 |
goto T349;} |
goto T349;} |
1270 |
V212= (long)(V213)*(V201); |
V242= (long)(V243)*(V215); |
1271 |
goto T346; |
goto T346; |
1272 |
goto T349; |
goto T349; |
1273 |
T349:; |
T349:; |
1274 |
V212= (long)((long)(V213)*(V201))+1;} |
V242= (long)((long)(V243)*(V215))+1;} |
1275 |
goto T346; |
goto T346; |
1276 |
T346:; |
T346:; |
1277 |
V214= Ct; |
V244= Ct; |
1278 |
STSET(fixnum,(V196),36, V212); |
STSET(fixnum,V241,36, V242); |
1279 |
(void)(V212); |
(void)(V242); |
1280 |
V215 = CMPmake_fixnum(V200); |
V245 = (V210); |
1281 |
V216= (*(LnkLI198))(V215); |
V246 = CMPmake_fixnum(V214); |
1282 |
V217= Ct; |
V247= (*(LnkLI198))(V246); |
1283 |
STSET(object,(V196),40, /* INLINE-ARGS */V216); |
V248= Ct; |
1284 |
(void)(/* INLINE-ARGS */V216); |
STSET(object,V245,40, /* INLINE-ARGS */V247); |
1285 |
V218= Ct; |
(void)(/* INLINE-ARGS */V247); |
1286 |
STSET(object,(V196),44, Cnil); |
V249 = (V210); |
1287 |
|
V250= Ct; |
1288 |
|
STSET(object,V249,44, Cnil); |
1289 |
(void)(Cnil); |
(void)(Cnil); |
1290 |
{object V219 = (V196); |
{object V251 = (V210); |
1291 |
VMR38(V219)}}} |
VMR38(V251)}}} |
1292 |
base[0]=base[0]; |
base[0]=base[0]; |
1293 |
return Cnil; |
return Cnil; |
1294 |
} |
} |
1295 |
/* local entry for function GET-CACHE-FROM-CACHE */ |
/* local entry for function GET-CACHE-FROM-CACHE */ |
1296 |
|
|
1297 |
static object LI39(object V221,object V220,object first,...) |
static object LI39(object V253,object V252,object first,...) |
1298 |
{ |
{ |
1299 |
va_list ap; |
va_list ap; |
1300 |
int narg = VFUN_NARGS; VMB39 VMS39 VMV39 |
int narg = VFUN_NARGS; VMB39 VMS39 VMV39 |
1301 |
{register object V222; |
{register object V254; |
1302 |
long V223; |
long V255; |
1303 |
object V224; |
object V256; |
1304 |
va_start(ap,first); |
va_start(ap,first); |
1305 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1306 |
V222= V221; |
V254= V253; |
1307 |
V223= fix(V220); |
V255= fix(V252); |
1308 |
narg = narg - 2; |
narg = narg - 2; |
1309 |
if (narg <= 0) goto T352; |
if (narg <= 0) goto T352; |
1310 |
else { |
else { |
1311 |
V224= first;} |
V256= first;} |
1312 |
--narg; goto T353; |
--narg; goto T353; |
1313 |
goto T352; |
goto T352; |
1314 |
T352:; |
T352:; |
1315 |
V224= (*(LnkLI191))(VV[46]); |
V256= (*(LnkLI191))(VV[46]); |
1316 |
goto T353; |
goto T353; |
1317 |
T353:; |
T353:; |
1318 |
{object V225; |
{object V257; |
1319 |
object V226; |
object V258; |
1320 |
register object V227; |
register object V259; |
1321 |
V225= CMPmake_fixnum((long)STREF(unsigned short,(V222),4)); |
V257= CMPmake_fixnum((long)STREF(unsigned short,(V254),4)); |
1322 |
V226= STREF(object,(V222),8);{object V228; |
V258= STREF(object,(V254),8);{object V260; |
1323 |
{object V229; |
{object V261; |
1324 |
V229= CMPcar((VV[76]->s.s_dbind)); |
V261= CMPcar((VV[76]->s.s_dbind)); |
1325 |
(VV[76]->s.s_dbind)= CMPcdr((VV[76]->s.s_dbind)); |
(VV[76]->s.s_dbind)= CMPcdr((VV[76]->s.s_dbind)); |
1326 |
V228= (V229);} |
V260= (V261);} |
1327 |
if(V228==Cnil)goto T358; |
if(V260==Cnil)goto T358; |
1328 |
V227= V228; |
V259= V260; |
1329 |
goto T357; |
goto T357; |
1330 |
goto T358; |
goto T358; |
1331 |
T358:;} |
T358:;} |
1332 |
V227= (*(LnkLI196))(); |
V259= (*(LnkLI196))(); |
1333 |
goto T357; |
goto T357; |
1334 |
T357:; |
T357:; |
1335 |
{long V230; |
{long V262; |
1336 |
long V231; |
long V263; |
1337 |
long V232; |
long V264; |
1338 |
long V233; |
long V265; |
1339 |
if(!((V223)==((long)STREF(fixnum,(V222),12)))){ |
if(!((V255)==((long)STREF(fixnum,(V254),12)))){ |
1340 |
goto T365;} |
goto T365;} |
1341 |
base[0]= CMPmake_fixnum((long)STREF(fixnum,(V222),24)); |
base[0]= CMPmake_fixnum((long)STREF(fixnum,(V254),24)); |
1342 |
base[1]= CMPmake_fixnum((long)STREF(fixnum,(V222),28)); |
base[1]= CMPmake_fixnum((long)STREF(fixnum,(V254),28)); |
1343 |
base[2]= CMPmake_fixnum((long)STREF(unsigned short,(V222),32)); |
base[2]= CMPmake_fixnum((long)STREF(unsigned short,(V254),32)); |
1344 |
base[3]= CMPmake_fixnum((long)STREF(fixnum,(V222),12)); |
base[3]= CMPmake_fixnum((long)STREF(fixnum,(V254),12)); |
1345 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1346 |
goto T363; |
goto T363; |
1347 |
goto T365; |
goto T365; |
1348 |
T365:; |
T365:; |
1349 |
base[0]= (V225); |
base[0]= (V257); |
1350 |
base[1]= (V226); |
base[1]= (V258); |
1351 |
base[2]= CMPmake_fixnum(V223); |
base[2]= CMPmake_fixnum(V255); |
1352 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1353 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
1354 |
goto T363; |
goto T363; |
1355 |
T363:; |
T363:; |
1356 |
if(vs_base>=vs_top){vs_top=sup;goto T374;} |
if(vs_base>=vs_top){vs_top=sup;goto T374;} |
1357 |
V230= fix(vs_base[0]); |
V262= fix(vs_base[0]); |
1358 |
vs_base++; |
vs_base++; |
1359 |
if(vs_base>=vs_top){vs_top=sup;goto T375;} |
if(vs_base>=vs_top){vs_top=sup;goto T375;} |
1360 |
V231= fix(vs_base[0]); |
V263= fix(vs_base[0]); |
1361 |
vs_base++; |
vs_base++; |
1362 |
if(vs_base>=vs_top){vs_top=sup;goto T376;} |
if(vs_base>=vs_top){vs_top=sup;goto T376;} |
1363 |
V232= fix(vs_base[0]); |
V264= fix(vs_base[0]); |
1364 |
vs_base++; |
vs_base++; |
1365 |
if(vs_base>=vs_top){vs_top=sup;goto T377;} |
if(vs_base>=vs_top){vs_top=sup;goto T377;} |
1366 |
V233= fix(vs_base[0]); |
V265= fix(vs_base[0]); |
1367 |
vs_top=sup; |
vs_top=sup; |
1368 |
goto T378; |
goto T378; |
1369 |
goto T374; |
goto T374; |
1370 |
T374:; |
T374:; |
1371 |
V230= fix(Cnil); |
V262= fix(Cnil); |
1372 |
goto T375; |
goto T375; |
1373 |
T375:; |
T375:; |
1374 |
V231= fix(Cnil); |
V263= fix(Cnil); |
1375 |
goto T376; |
goto T376; |
1376 |
T376:; |
T376:; |
1377 |
V232= fix(Cnil); |
V264= fix(Cnil); |
1378 |
goto T377; |
goto T377; |
1379 |
T377:; |
T377:; |
1380 |
V233= fix(Cnil); |
V265= fix(Cnil); |
1381 |
goto T378; |
goto T378; |
1382 |
T378:; |
T378:; |
1383 |
V234= Ct; |
V266 = (V259); |
1384 |
STSET(object,(V227),0, STREF(object,(V222),0)); |
V267= Ct; |
1385 |
(void)(STREF(object,(V222),0)); |
STSET(object,V266,0, STREF(object,(V254),0)); |
1386 |
V235= Ct; |
(void)(STREF(object,(V254),0)); |
1387 |
STSET(unsigned short,(V227),4, fix((V225))); |
V268 = (V259); |
1388 |
(void)(fix((V225))); |
V269 = fix((V257)); |
1389 |
V236= Ct; |
V270= Ct; |
1390 |
STSET(object,(V227),8, (V226)); |
STSET(unsigned short,V268,4, V269); |
1391 |
(void)((V226)); |
(void)(V269); |
1392 |
V237= Ct; |
V271 = (V259); |
1393 |
STSET(fixnum,(V227),12, V233); |
V272 = (V258); |
1394 |
(void)(V233); |
V273= Ct; |
1395 |
V238= Ct; |
STSET(object,V271,8, V272); |
1396 |
STSET(unsigned char,(V227),16, fix((V224))); |
(void)(V272); |
1397 |
(void)(fix((V224))); |
V274 = (V259); |
1398 |
V239= Ct; |
V275 = V265; |
1399 |
STSET(object,(V227),20, STREF(object,(V222),20)); |
V276= Ct; |
1400 |
(void)(STREF(object,(V222),20)); |
STSET(fixnum,V274,12, V275); |
1401 |
V240= Ct; |
(void)(V275); |
1402 |
STSET(fixnum,(V227),24, V230); |
V277 = (V259); |
1403 |
(void)(V230); |
V278 = fix((V256)); |
1404 |
V241= Ct; |
V279= Ct; |
1405 |
STSET(fixnum,(V227),28, V231); |
STSET(unsigned char,V277,16, V278); |
1406 |
(void)(V231); |
(void)(V278); |
1407 |
V242= Ct; |
V280 = (V259); |
1408 |
STSET(unsigned short,(V227),32, V232); |
V281= Ct; |
1409 |
(void)(V232); |
STSET(object,V280,20, STREF(object,(V254),20)); |
1410 |
{long V244; |
(void)(STREF(object,(V254),20)); |
1411 |
V244= (long)(V233)-1; |
V282 = (V259); |
1412 |
if(!(number_compare((V225),small_fixnum(1))==0)){ |
V283 = V262; |
1413 |
|
V284= Ct; |
1414 |
|
STSET(fixnum,V282,24, V283); |
1415 |
|
(void)(V283); |
1416 |
|
V285 = (V259); |
1417 |
|
V286 = V263; |
1418 |
|
V287= Ct; |
1419 |
|
STSET(fixnum,V285,28, V286); |
1420 |
|
(void)(V286); |
1421 |
|
V288 = (V259); |
1422 |
|
V289 = V264; |
1423 |
|
V290= Ct; |
1424 |
|
STSET(unsigned short,V288,32, V289); |
1425 |
|
(void)(V289); |
1426 |
|
V291 = (V259); |
1427 |
|
{long V293; |
1428 |
|
V293= (long)(V265)-1; |
1429 |
|
if(!(number_compare((V257),small_fixnum(1))==0)){ |
1430 |
goto T393;} |
goto T393;} |
1431 |
V243= (long)(V244)*(V232); |
V292= (long)(V293)*(V264); |
1432 |
goto T390; |
goto T390; |
1433 |
goto T393; |
goto T393; |
1434 |
T393:; |
T393:; |
1435 |
V243= (long)((long)(V244)*(V232))+1;} |
V292= (long)((long)(V293)*(V264))+1;} |
1436 |
goto T390; |
goto T390; |
1437 |
T390:; |
T390:; |
1438 |
V245= Ct; |
V294= Ct; |
1439 |
STSET(fixnum,(V227),36, V243); |
STSET(fixnum,V291,36, V292); |
1440 |
(void)(V243); |
(void)(V292); |
1441 |
V246 = CMPmake_fixnum(V231); |
V295 = (V259); |
1442 |
V247= (*(LnkLI198))(V246); |
V296 = CMPmake_fixnum(V263); |
1443 |
V248= Ct; |
V297= (*(LnkLI198))(V296); |
1444 |
STSET(object,(V227),40, /* INLINE-ARGS */V247); |
V298= Ct; |
1445 |
(void)(/* INLINE-ARGS */V247); |
STSET(object,V295,40, /* INLINE-ARGS */V297); |
1446 |
V249= Ct; |
(void)(/* INLINE-ARGS */V297); |
1447 |
STSET(object,(V227),44, Cnil); |
V299 = (V259); |
1448 |
|
V300= Ct; |
1449 |
|
STSET(object,V299,44, Cnil); |
1450 |
(void)(Cnil); |
(void)(Cnil); |
1451 |
{object V250 = (V227); |
{object V301 = (V259); |
1452 |
VMR39(V250)}}} |
VMR39(V301)}}} |
1453 |
va_end(ap); |
va_end(ap); |
1454 |
base[0]=base[0]; |
base[0]=base[0]; |
1455 |
return Cnil;} |
return Cnil;} |
1456 |
} |
} |
1457 |
/* local entry for function COPY-CACHE */ |
/* local entry for function COPY-CACHE */ |
1458 |
|
|
1459 |
static object LI40(V252) |
static object LI40(V303) |
1460 |
|
|
1461 |
object V252; |
object V303; |
1462 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
1463 |
goto TTL; |
goto TTL; |
1464 |
TTL:; |
TTL:; |
1465 |
{object V253; |
{object V304; |
1466 |
object V254; |
object V305; |
1467 |
register object V255; |
register object V306; |
1468 |
register object V256; |
register object V307; |
1469 |
base[4]= (V252); |
base[4]= (V303); |
1470 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1471 |
(void) (*Lnk199)(); |
(void) (*Lnk199)(); |
1472 |
vs_top=sup; |
vs_top=sup; |
1473 |
V253= vs_base[0]; |
V304= vs_base[0]; |
1474 |
V254= CMPmake_fixnum((long)STREF(fixnum,(V252),28)); |
V305= CMPmake_fixnum((long)STREF(fixnum,(V303),28)); |
1475 |
V255= STREF(object,(V252),40); |
V306= STREF(object,(V303),40); |
1476 |
V256= (*(LnkLI198))((V254)); |
V307= (*(LnkLI198))((V305)); |
1477 |
{register long V257; |
{register long V308; |
1478 |
register long V258; |
register long V309; |
1479 |
V257= fix((V254)); |
V308= fix((V305)); |
1480 |
V258= 0; |
V309= 0; |
1481 |
goto T405; |
goto T405; |
1482 |
T405:; |
T405:; |
1483 |
if(!((V258)>=(V257))){ |
if(!((V309)>=(V308))){ |
1484 |
goto T406;} |
goto T406;} |
1485 |
goto T401; |
goto T401; |
1486 |
goto T406; |
goto T406; |
1487 |
T406:; |
T406:; |
1488 |
(void)(((V256))->v.v_self[V258]= (((V255))->v.v_self[V258])); |
(void)(((V307))->v.v_self[V309]= (((V306))->v.v_self[V309])); |
1489 |
V258= (long)(V258)+1; |
V309= (long)(V309)+1; |
1490 |
goto T405;} |
goto T405;} |
1491 |
goto T401; |
goto T401; |
1492 |
T401:; |
T401:; |
1493 |
V259= Ct; |
V310 = (V304); |
1494 |
STSET(object,(V253),40, (V256)); |
V311 = (V307); |
1495 |
(void)((V256)); |
V312= Ct; |
1496 |
{object V260 = (V253); |
STSET(object,V310,40, V311); |
1497 |
VMR40(V260)}} |
(void)(V311); |
1498 |
|
{object V313 = (V304); |
1499 |
|
VMR40(V313)}} |
1500 |
base[0]=base[0]; |
base[0]=base[0]; |
1501 |
return Cnil; |
return Cnil; |
1502 |
} |
} |
1503 |
/* local entry for function FREE-CACHE */ |
/* local entry for function FREE-CACHE */ |
1504 |
|
|
1505 |
static object LI41(V262) |
static object LI41(V315) |
1506 |
|
|
1507 |
register object V262; |
register object V315; |
1508 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
1509 |
goto TTL; |
goto TTL; |
1510 |
TTL:; |
TTL:; |
1511 |
(void)((*(LnkLI200))(STREF(object,(V262),40))); |
(void)((*(LnkLI200))(STREF(object,(V315),40))); |
1512 |
V263= Ct; |
V316 = (V315); |
1513 |
STSET(object,(V262),40, VV[77]); |
V317= Ct; |
1514 |
|
STSET(object,V316,40, VV[77]); |
1515 |
(void)(VV[77]); |
(void)(VV[77]); |
1516 |
V264= Ct; |
V318 = (V315); |
1517 |
STSET(object,(V262),0, Cnil); |
V319= Ct; |
1518 |
|
STSET(object,V318,0, Cnil); |
1519 |
(void)(Cnil); |
(void)(Cnil); |
1520 |
(VV[76]->s.s_dbind)= make_cons(V262,(VV[76]->s.s_dbind)); |
(VV[76]->s.s_dbind)= make_cons(V315,(VV[76]->s.s_dbind)); |
1521 |
{object V266 = Cnil; |
{object V321 = Cnil; |
1522 |
VMR41(V266)} |
VMR41(V321)} |
1523 |
return Cnil; |
return Cnil; |
1524 |
} |
} |
1525 |
/* local entry for function COMPUTE-LINE-SIZE */ |
/* local entry for function COMPUTE-LINE-SIZE */ |
1526 |
|
|
1527 |
static object LI42(V268) |
static object LI42(V323) |
1528 |
|
|
1529 |
object V268; |
object V323; |
1530 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
1531 |
goto TTL; |
goto TTL; |
1532 |
TTL:; |
TTL:; |
1533 |
{object V269 = (*(LnkLI201))(fix((V268))); |
{object V324 = (*(LnkLI201))(fix((V323))); |
1534 |
VMR42(V269)} |
VMR42(V324)} |
1535 |
return Cnil; |
return Cnil; |
1536 |
} |
} |
1537 |
/* function definition for COMPUTE-CACHE-PARAMETERS */ |
/* function definition for COMPUTE-CACHE-PARAMETERS */ |
1540 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1541 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM43; VC43 |
1542 |
vs_check; |
vs_check; |
1543 |
{long V270; |
{long V325; |
1544 |
object V271; |
object V326; |
1545 |
register object V272; |
register object V327; |
1546 |
check_arg(3); |
check_arg(3); |
1547 |
V270=fix(base[0]); |
V325=fix(base[0]); |
1548 |
V271=(base[1]); |
V326=(base[1]); |
1549 |
V272=(base[2]); |
V327=(base[2]); |
1550 |
vs_top=sup; |
vs_top=sup; |
1551 |
goto TTL; |
goto TTL; |
1552 |
TTL:; |
TTL:; |
1553 |
if(!((V270)==(1))){ |
if(!((V325)==(1))){ |
1554 |
goto T420;} |
goto T420;} |
1555 |
{register long V273; |
{register long V328; |
1556 |
long V274; |
long V329; |
1557 |
if(((V271))==Cnil){ |
if(((V326))==Cnil){ |
1558 |
goto T424;} |
goto T424;} |
1559 |
V273= 2; |
V328= 2; |
1560 |
goto T422; |
goto T422; |
1561 |
goto T424; |
goto T424; |
1562 |
T424:; |
T424:; |
1563 |
V273= 1; |
V328= 1; |
1564 |
goto T422; |
goto T422; |
1565 |
T422:; |
T422:; |
1566 |
if(!(type_of((V272))==t_fixnum)){ |
if(!(type_of((V327))==t_fixnum)){ |
1567 |
goto T428;} |
goto T428;} |
1568 |
{long V275= fix((*(LnkLI201))(fix((V272)))); |
V330 = V328; |
1569 |
V274= (long)(V273)*(/* INLINE-ARGS */V275); |
{long V331= fix((*(LnkLI201))(fix((V327)))); |
1570 |
|
V329= (long)(V330)*(/* INLINE-ARGS */V331); |
1571 |
goto T426;} |
goto T426;} |
1572 |
goto T428; |
goto T428; |
1573 |
T428:; |
T428:; |
1574 |
base[3]= (V272); |
base[3]= (V327); |
1575 |
base[4]= small_fixnum(0); |
base[4]= small_fixnum(0); |
1576 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1577 |
Larray_dimension(); |
Larray_dimension(); |
1578 |
vs_top=sup; |
vs_top=sup; |
1579 |
V274= fix(vs_base[0]); |
V329= fix(vs_base[0]); |
1580 |
goto T426; |
goto T426; |
1581 |
T426:; |
T426:; |
1582 |
base[3]= CMPmake_fixnum((long)(((long)(V274)-1) ^ ((long)(V273)-1))); |
base[3]= CMPmake_fixnum((long)(((long)(V329)-1) ^ ((long)(V328)-1))); |
1583 |
base[4]= CMPmake_fixnum(V274); |
base[4]= CMPmake_fixnum(V329); |
1584 |
base[5]= CMPmake_fixnum(V273); |
base[5]= CMPmake_fixnum(V328); |
1585 |
base[6]= CMPmake_fixnum((long)(V274>=0&&(V273)>0?(V274)/(V273):ifloor(V274,V273))); |
base[6]= CMPmake_fixnum((long)(V329>=0&&(V328)>0?(V329)/(V328):ifloor(V329,V328))); |
1586 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1587 |
return;} |
return;} |
1588 |
goto T420; |
goto T420; |
1589 |
T420:; |
T420:; |
1590 |
{register long V276; |
{register long V332; |
1591 |
long V277; |
long V333; |
1592 |
if(((V271))==Cnil){ |
if(((V326))==Cnil){ |
1593 |
goto T439;} |
goto T439;} |
1594 |
V279 = CMPmake_fixnum(V270); |
V335 = CMPmake_fixnum(V325); |
1595 |
V278= fix(one_plus(V279)); |
V334= fix(one_plus(V335)); |
1596 |
goto T437; |
goto T437; |
1597 |
goto T439; |
goto T439; |
1598 |
T439:; |
T439:; |
1599 |
V278= V270; |
V334= V325; |
1600 |
goto T437; |
goto T437; |
1601 |
T437:; |
T437:; |
1602 |
V276= fix((*(LnkLI201))(V278)); |
V332= fix((*(LnkLI201))(V334)); |
1603 |
if(!(type_of((V272))==t_fixnum)){ |
if(!(type_of((V327))==t_fixnum)){ |
1604 |
goto T443;} |
goto T443;} |
1605 |
{long V280= fix((*(LnkLI201))(fix((V272)))); |
V336 = V332; |
1606 |
V277= (long)(V276)*(/* INLINE-ARGS */V280); |
{long V337= fix((*(LnkLI201))(fix((V327)))); |
1607 |
|
V333= (long)(V336)*(/* INLINE-ARGS */V337); |
1608 |
goto T441;} |
goto T441;} |
1609 |
goto T443; |
goto T443; |
1610 |
T443:; |
T443:; |
1611 |
base[3]= (V272); |
base[3]= (V327); |
1612 |
base[4]= small_fixnum(0); |
base[4]= small_fixnum(0); |
1613 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1614 |
Larray_dimension(); |
Larray_dimension(); |
1615 |
vs_top=sup; |
vs_top=sup; |
1616 |
V281= vs_base[0]; |
V338= vs_base[0]; |
1617 |
V277= fix(one_minus(V281)); |
V333= fix(one_minus(V338)); |
1618 |
goto T441; |
goto T441; |
1619 |
T441:; |
T441:; |
1620 |
base[3]= CMPmake_fixnum((long)(((long)(V277)-1) ^ ((long)(V276)-1))); |
base[3]= CMPmake_fixnum((long)(((long)(V333)-1) ^ ((long)(V332)-1))); |
1621 |
base[4]= CMPmake_fixnum((long)(V277)+1); |
base[4]= CMPmake_fixnum((long)(V333)+1); |
1622 |
base[5]= CMPmake_fixnum(V276); |
base[5]= CMPmake_fixnum(V332); |
1623 |
base[6]= CMPmake_fixnum((long)(V277>=0&&(V276)>0?(V277)/(V276):ifloor(V277,V276))); |
base[6]= CMPmake_fixnum((long)(V333>=0&&(V332)>0?(V333)/(V332):ifloor(V333,V332))); |
1624 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1625 |
return;} |
return;} |
1626 |
} |
} |
1627 |
} |
} |
1628 |
/* local entry for function COMPUTE-PRIMARY-CACHE-LOCATION */ |
/* local entry for function COMPUTE-PRIMARY-CACHE-LOCATION */ |
1629 |
|
|
1630 |
static object LI44(V285,V286,V287) |
static object LI44(V342,V343,V344) |
1631 |
|
|
1632 |
register long V285;long V286;object V287; |
register long V342;long V343;object V344; |
1633 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
1634 |
goto TTL; |
goto TTL; |
1635 |
TTL:; |
TTL:; |
1636 |
if(type_of((V287))==t_cons||((V287))==Cnil){ |
if(type_of((V344))==t_cons||((V344))==Cnil){ |
1637 |
goto T453;} |
goto T453;} |
1638 |
{long V288 = (long)((V286) & (fix(((V287))->v.v_self[V285]))); |
{long V345 = (long)((V343) & (fix(((V344))->v.v_self[V342]))); |
1639 |
VMR44((object)V288)} |
VMR44((object)V345)} |
1640 |
goto T453; |
goto T453; |
1641 |
T453:; |
T453:; |
1642 |
{register long V289; |
{register long V346; |
1643 |
register long V290; |
register long V347; |
1644 |
V289= 0; |
V346= 0; |
1645 |
V290= 0; |
V347= 0; |
1646 |
{register object V291; |
{register object V348; |
1647 |
register object V292; |
register object V349; |
1648 |
V291= (V287); |
V348= (V344); |
1649 |
V292= CMPcar((V291)); |
V349= CMPcar((V348)); |
1650 |
goto T461; |
goto T461; |
1651 |
T461:; |
T461:; |
1652 |
if(!(((V291))==Cnil)){ |
if(!(((V348))==Cnil)){ |
1653 |
goto T462;} |
goto T462;} |
1654 |
goto T457; |
goto T457; |
1655 |
goto T462; |
goto T462; |
1656 |
T462:; |
T462:; |
1657 |
{register long V293; |
{register long V350; |
1658 |
V293= fix(((V292))->v.v_self[V285]); |
V350= fix(((V349))->v.v_self[V342]); |
1659 |
if(!((V293)==0)){ |
if(!((V350)==0)){ |
1660 |
goto T469;} |
goto T469;} |
1661 |
{long V294 = 0; |
{long V351 = 0; |
1662 |
VMR44((object)V294)} |
VMR44((object)V351)} |
1663 |
goto T469; |
goto T469; |
1664 |
T469:; |
T469:; |
1665 |
V289= (long)(V289)+(V293);} |
V346= (long)(V346)+(V350);} |
1666 |
if((V290)==0){ |
if((V347)==0){ |
1667 |
goto T472;} |
goto T472;} |
1668 |
if(!(((long)(V290>=0&&(4)>0?(V290)%(4):imod(V290,4)))==0)){ |
if(!(((long)(V347>=0&&(4)>0?(V347)%(4):imod(V347,4)))==0)){ |
1669 |
goto T472;} |
goto T472;} |
1670 |
V289= (long)((V289) & (134217727)); |
V346= (long)((V346) & (134217727)); |
1671 |
goto T472; |
goto T472; |
1672 |
T472:; |
T472:; |
1673 |
V290= (long)(V290)+(1); |
V347= (long)(V347)+(1); |
1674 |
V291= CMPcdr((V291)); |
V348= CMPcdr((V348)); |
1675 |
V292= CMPcar((V291)); |
V349= CMPcar((V348)); |
1676 |
goto T461;} |
goto T461;} |
1677 |
goto T457; |
goto T457; |
1678 |
T457:; |
T457:; |
1679 |
{long V295 = (long)((long)((V286) & (V289)))+1; |
{long V352 = (long)((long)((V343) & (V346)))+1; |
1680 |
VMR44((object)V295)}} |
VMR44((object)V352)}} |
1681 |
base[0]=base[0]; |
base[0]=base[0]; |
1682 |
} |
} |
1683 |
/* local entry for function COMPUTE-PRIMARY-CACHE-LOCATION-FROM-LOCATION */ |
/* local entry for function COMPUTE-PRIMARY-CACHE-LOCATION-FROM-LOCATION */ |
1684 |
|
|
1685 |
static object LI45(object V297,object V296,object first,...) |
static object LI45(object V354,object V353,object first,...) |
1686 |
{ |
{ |
1687 |
va_list ap; |
va_list ap; |
1688 |
int narg = VFUN_NARGS; VMB45 VMS45 VMV45 |
int narg = VFUN_NARGS; VMB45 VMS45 VMV45 |
1689 |
{object V298; |
{object V355; |
1690 |
register long V299; |
register long V356; |
1691 |
object V300; |
object V357; |
1692 |
va_start(ap,first); |
va_start(ap,first); |
1693 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1694 |
V298= V297; |
V355= V354; |
1695 |
V299= fix(V296); |
V356= fix(V353); |
1696 |
narg = narg - 2; |
narg = narg - 2; |
1697 |
if (narg <= 0) goto T485; |
if (narg <= 0) goto T485; |
1698 |
else { |
else { |
1699 |
V300= first;} |
V357= first;} |
1700 |
--narg; goto T486; |
--narg; goto T486; |
1701 |
goto T485; |
goto T485; |
1702 |
T485:; |
T485:; |
1703 |
V300= (V298); |
V357= (V355); |
1704 |
goto T486; |
goto T486; |
1705 |
T486:; |
T486:; |
1706 |
{register long V301; |
{register long V358; |
1707 |
register object V302; |
register object V359; |
1708 |
register long V303; |
register long V360; |
1709 |
long V304; |
long V361; |
1710 |
long V305; |
long V362; |
1711 |
V301= 0; |
V358= 0; |
1712 |
V302= STREF(object,(V300),40); |
V359= STREF(object,(V357),40); |
1713 |
V303= (long)STREF(unsigned char,(V298),16); |
V360= (long)STREF(unsigned char,(V355),16); |
1714 |
V304= (long)STREF(fixnum,(V298),24); |
V361= (long)STREF(fixnum,(V355),24); |
1715 |
V305= (long)STREF(unsigned short,(V298),4); |
V362= (long)STREF(unsigned short,(V355),4); |
1716 |
{register long V306; |
{register long V363; |
1717 |
register long V307; |
register long V364; |
1718 |
V306= V305; |
V363= V362; |
1719 |
V307= 0; |
V364= 0; |
1720 |
goto T497; |
goto T497; |
1721 |
T497:; |
T497:; |
1722 |
if(!((V307)>=(V306))){ |
if(!((V364)>=(V363))){ |
1723 |
goto T498;} |
goto T498;} |
1724 |
goto T493; |
goto T493; |
1725 |
goto T498; |
goto T498; |
1726 |
T498:; |
T498:; |
1727 |
{register object V308; |
{register object V365; |
1728 |
register long V309; |
register long V366; |
1729 |
V308= ((V302))->v.v_self[(long)(V307)+(V299)]; |
V365= ((V359))->v.v_self[(long)(V364)+(V356)]; |
1730 |
V309= fix(((V308))->v.v_self[V303]); |
V366= fix(((V365))->v.v_self[V360]); |
1731 |
V301= (long)(V301)+(V309);} |
V358= (long)(V358)+(V366);} |
1732 |
if((V307)==0){ |
if((V364)==0){ |
1733 |
goto T505;} |
goto T505;} |
1734 |
if(!(((long)(V307>=0&&(4)>0?(V307)%(4):imod(V307,4)))==0)){ |
if(!(((long)(V364>=0&&(4)>0?(V364)%(4):imod(V364,4)))==0)){ |
1735 |
goto T505;} |
goto T505;} |
1736 |
V301= (long)((V301) & (134217727)); |
V358= (long)((V358) & (134217727)); |
1737 |
goto T505; |
goto T505; |
1738 |
T505:; |
T505:; |
1739 |
V307= (long)(V307)+1; |
V364= (long)(V364)+1; |
1740 |
goto T497;} |
goto T497;} |
1741 |
goto T493; |
goto T493; |
1742 |
T493:; |
T493:; |
1743 |
if(!((V305)==(1))){ |
if(!((V362)==(1))){ |
1744 |
goto T515;} |
goto T515;} |
1745 |
{object V310 = CMPmake_fixnum((long)((V304) & (V301))); |
{object V367 = CMPmake_fixnum((long)((V361) & (V358))); |
1746 |
VMR45(V310)} |
VMR45(V367)} |
1747 |
goto T515; |
goto T515; |
1748 |
T515:; |
T515:; |
1749 |
{object V311 = CMPmake_fixnum((long)((long)((V304) & (V301)))+1); |
{object V368 = CMPmake_fixnum((long)((long)((V361) & (V358)))+1); |
1750 |
VMR45(V311)}} |
VMR45(V368)}} |
1751 |
va_end(ap); |
va_end(ap); |
1752 |
base[0]=base[0]; |
base[0]=base[0]; |
1753 |
return Cnil;} |
return Cnil;} |
1754 |
} |
} |
1755 |
/* local entry for function RAISE-METATYPE */ |
/* local entry for function RAISE-METATYPE */ |
1756 |
|
|
1757 |
static object LI48(V314,V315) |
static object LI48(V371,V372) |
1758 |
|
|
1759 |
object V314;object V315; |
object V371;object V372; |
1760 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
1761 |
goto TTL; |
goto TTL; |
1762 |
TTL:; |
TTL:; |
1763 |
base[0]= (V315); |
base[0]= (V372); |
1764 |
base[1]= (VFUN_NARGS=1,(*(LnkLI202))(VV[78])); |
base[1]= (VFUN_NARGS=1,(*(LnkLI202))(VV[78])); |
1765 |
base[2]= (VFUN_NARGS=1,(*(LnkLI202))(VV[79])); |
base[2]= (VFUN_NARGS=1,(*(LnkLI202))(VV[79])); |
1766 |
base[3]= (VFUN_NARGS=1,(*(LnkLI202))(VV[80])); |
base[3]= (VFUN_NARGS=1,(*(LnkLI202))(VV[80])); |
1767 |
base[4]= (VFUN_NARGS=1,(*(LnkLI202))(VV[81])); |
base[4]= (VFUN_NARGS=1,(*(LnkLI202))(VV[81])); |
1768 |
base[5]= (VFUN_NARGS=1,(*(LnkLI202))(VV[82])); |
base[5]= (VFUN_NARGS=1,(*(LnkLI202))(VV[82])); |
1769 |
{register object V316; |
{register object V373; |
1770 |
base[6]= base[0]; |
base[6]= base[0]; |
1771 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1772 |
L49(base); |
L49(base); |
1773 |
vs_top=sup; |
vs_top=sup; |
1774 |
V316= vs_base[0]; |
V373= vs_base[0]; |
1775 |
if(!(((V316))==(VV[83]))){ |
if(!(((V373))==(VV[83]))){ |
1776 |
goto T525;} |
goto T525;} |
1777 |
{object V317 = VV[41]; |
{object V374 = VV[41]; |
1778 |
VMR46(V317)} |
VMR46(V374)} |
1779 |
goto T525; |
goto T525; |
1780 |
T525:; |
T525:; |
1781 |
if(((V314))!=Cnil){ |
if(((V371))!=Cnil){ |
1782 |
goto T528;} |
goto T528;} |
1783 |
{object V318 = (V316); |
{object V375 = (V373); |
1784 |
VMR46(V318)} |
VMR46(V375)} |
1785 |
goto T528; |
goto T528; |
1786 |
T528:; |
T528:; |
1787 |
if(!(((V314))==((V316)))){ |
if(!(((V371))==((V373)))){ |
1788 |
goto T531;} |
goto T531;} |
1789 |
{object V319 = (V316); |
{object V376 = (V373); |
1790 |
VMR46(V319)} |
VMR46(V376)} |
1791 |
goto T531; |
goto T531; |
1792 |
T531:; |
T531:; |
1793 |
{object V320 = VV[41]; |
{object V377 = VV[41]; |
1794 |
VMR46(V320)}} |
VMR46(V377)}} |
1795 |
base[0]=base[0]; |
base[0]=base[0]; |
1796 |
return Cnil; |
return Cnil; |
1797 |
} |
} |
1803 |
vs_check; |
vs_check; |
1804 |
check_arg(2); |
check_arg(2); |
1805 |
vs_top=sup; |
vs_top=sup; |
1806 |
{object V321=base[0]->c.c_cdr; |
{object V378=base[0]->c.c_cdr; |
1807 |
if(endp(V321))invalid_macro_call(); |
if(endp(V378))invalid_macro_call(); |
1808 |
{object V322= (V321->c.c_car); |
{object V379= (V378->c.c_car); |
1809 |
if(endp(V322))invalid_macro_call(); |
if(endp(V379))invalid_macro_call(); |
1810 |
base[2]= (V322->c.c_car); |
base[2]= (V379->c.c_car); |
1811 |
V322=V322->c.c_cdr; |
V379=V379->c.c_cdr; |
1812 |
if(endp(V322))invalid_macro_call(); |
if(endp(V379))invalid_macro_call(); |
1813 |
base[3]= (V322->c.c_car); |
base[3]= (V379->c.c_car); |
1814 |
V322=V322->c.c_cdr; |
V379=V379->c.c_cdr; |
1815 |
if(!endp(V322))invalid_macro_call();} |
if(!endp(V379))invalid_macro_call();} |
1816 |
V321=V321->c.c_cdr; |
V378=V378->c.c_cdr; |
1817 |
if(endp(V321))invalid_macro_call(); |
if(endp(V378))invalid_macro_call(); |
1818 |
{object V323= (V321->c.c_car); |
{object V380= (V378->c.c_car); |
1819 |
if(endp(V323))invalid_macro_call(); |
if(endp(V380))invalid_macro_call(); |
1820 |
base[4]= (V323->c.c_car); |
base[4]= (V380->c.c_car); |
1821 |
V323=V323->c.c_cdr; |
V380=V380->c.c_cdr; |
1822 |
if(endp(V323))invalid_macro_call(); |
if(endp(V380))invalid_macro_call(); |
1823 |
base[5]= (V323->c.c_car); |
base[5]= (V380->c.c_car); |
1824 |
V323=V323->c.c_cdr; |
V380=V380->c.c_cdr; |
1825 |
if(endp(V323)){ |
if(endp(V380)){ |
1826 |
base[6]= Cnil; |
base[6]= Cnil; |
1827 |
} else { |
} else { |
1828 |
base[6]= (V323->c.c_car); |
base[6]= (V380->c.c_car); |
1829 |
V323=V323->c.c_cdr;} |
V380=V380->c.c_cdr;} |
1830 |
if(endp(V323)){ |
if(endp(V380)){ |
1831 |
base[7]= Cnil; |
base[7]= Cnil; |
1832 |
} else { |
} else { |
1833 |
base[7]= (V323->c.c_car); |
base[7]= (V380->c.c_car); |
1834 |
V323=V323->c.c_cdr;} |
V380=V380->c.c_cdr;} |
1835 |
if(endp(V323)){ |
if(endp(V380)){ |
1836 |
base[8]= Cnil; |
base[8]= Cnil; |
1837 |
} else { |
} else { |
1838 |
base[8]= (V323->c.c_car); |
base[8]= (V380->c.c_car); |
1839 |
V323=V323->c.c_cdr;} |
V380=V380->c.c_cdr;} |
1840 |
if(!endp(V323))invalid_macro_call();} |
if(!endp(V380))invalid_macro_call();} |
1841 |
V321=V321->c.c_cdr; |
V378=V378->c.c_cdr; |
1842 |
if(endp(V321))invalid_macro_call(); |
if(endp(V378))invalid_macro_call(); |
1843 |
base[9]= (V321->c.c_car); |
base[9]= (V378->c.c_car); |
1844 |
V321=V321->c.c_cdr; |
V378=V378->c.c_cdr; |
1845 |
base[10]= V321;} |
base[10]= V378;} |
1846 |
V324= list(2,VV[92],base[2]); |
V381= list(2,VV[92],base[2]); |
1847 |
V325= list(2,base[5],Cnil); |
V382= list(2,base[5],Cnil); |
1848 |
V326= list(2,base[4],Cnil); |
V383= list(2,base[4],Cnil); |
1849 |
if((base[6])==Cnil){ |
if((base[6])==Cnil){ |
1850 |
goto T538;} |
goto T538;} |
1851 |
V327= VV[95]; |
V384= VV[95]; |
1852 |
goto T536; |
goto T536; |
1853 |
goto T538; |
goto T538; |
1854 |
T538:; |
T538:; |
1855 |
V327= Cnil; |
V384= Cnil; |
1856 |
goto T536; |
goto T536; |
1857 |
T536:; |
T536:; |
1858 |
V328= listA(6,/* INLINE-ARGS */V324,/* INLINE-ARGS */V325,VV[93],/* INLINE-ARGS */V326,VV[94],V327); |
V385= listA(6,/* INLINE-ARGS */V381,/* INLINE-ARGS */V382,VV[93],/* INLINE-ARGS */V383,VV[94],V384); |
1859 |
V329= list(2,VV[97],base[3]); |
V386= list(2,VV[97],base[3]); |
1860 |
if((base[6])==Cnil){ |
if((base[6])==Cnil){ |
1861 |
goto T542;} |
goto T542;} |
1862 |
V330= VV[101]; |
V387= VV[101]; |
1863 |
goto T540; |
goto T540; |
1864 |
goto T542; |
goto T542; |
1865 |
T542:; |
T542:; |
1866 |
V330= Cnil; |
V387= Cnil; |
1867 |
goto T540; |
goto T540; |
1868 |
T540:; |
T540:; |
1869 |
V331= listA(3,VV[99],VV[100],V330); |
V388= listA(3,VV[99],VV[100],V387); |
1870 |
V332= list(4,VV[105],VV[106],list(3,VV[107],base[5],Ct),VV[108]); |
V389= list(4,VV[105],VV[106],list(3,VV[107],base[5],Ct),VV[108]); |
1871 |
V333= list(2,VV[109],base[4]); |
V390= list(2,VV[109],base[4]); |
1872 |
V334= list(2,/* INLINE-ARGS */V333,list(3,VV[107],base[4],VV[43])); |
V391= list(2,/* INLINE-ARGS */V390,list(3,VV[107],base[4],VV[43])); |
1873 |
V335= list(2,VV[110],list(2,VV[111],base[4])); |
V392= list(2,VV[110],list(2,VV[111],base[4])); |
1874 |
V336= list(4,VV[66],/* INLINE-ARGS */V334,list(3,/* INLINE-ARGS */V335,VV[112],list(3,VV[107],base[4],list(3,VV[113],base[4],VV[114]))),VV[115]); |
V393= list(4,VV[66],/* INLINE-ARGS */V391,list(3,/* INLINE-ARGS */V392,VV[112],list(3,VV[107],base[4],list(3,VV[113],base[4],VV[114]))),VV[115]); |
1875 |
if((base[6])==Cnil){ |
if((base[6])==Cnil){ |
1876 |
goto T546;} |
goto T546;} |
1877 |
V337= VV[116]; |
V394= VV[116]; |
1878 |
goto T544; |
goto T544; |
1879 |
goto T546; |
goto T546; |
1880 |
T546:; |
T546:; |
1881 |
V337= Cnil; |
V394= Cnil; |
1882 |
goto T544; |
goto T544; |
1883 |
T544:; |
T544:; |
1884 |
V338= listA(6,VV[102],VV[103],VV[104],/* INLINE-ARGS */V332,/* INLINE-ARGS */V336,V337); |
V395= listA(6,VV[102],VV[103],VV[104],/* INLINE-ARGS */V389,/* INLINE-ARGS */V393,V394); |
1885 |
if((base[6])==Cnil){ |
if((base[6])==Cnil){ |
1886 |
goto T550;} |
goto T550;} |
1887 |
V339= VV[117]; |
V396= VV[117]; |
1888 |
goto T548; |
goto T548; |
1889 |
goto T550; |
goto T550; |
1890 |
T550:; |
T550:; |
1891 |
V339= Cnil; |
V396= Cnil; |
1892 |
goto T548; |
goto T548; |
1893 |
T548:; |
T548:; |
1894 |
V340= list(4,VV[96],/* INLINE-ARGS */V329,VV[98],listA(4,VV[91],/* INLINE-ARGS */V331,/* INLINE-ARGS */V338,V339)); |
V397= list(4,VV[96],/* INLINE-ARGS */V386,VV[98],listA(4,VV[91],/* INLINE-ARGS */V388,/* INLINE-ARGS */V395,V396)); |
1895 |
if((base[6])==Cnil){ |
if((base[6])==Cnil){ |
1896 |
goto T554;} |
goto T554;} |
1897 |
V342= list(2,base[6],VV[119]); |
V399= list(2,base[6],VV[119]); |
1898 |
V343= list(2,base[7],VV[120]); |
V400= list(2,base[7],VV[120]); |
1899 |
V341= list(3,/* INLINE-ARGS */V342,/* INLINE-ARGS */V343,list(2,base[8],list(3,VV[121],VV[122],base[7]))); |
V398= list(3,/* INLINE-ARGS */V399,/* INLINE-ARGS */V400,list(2,base[8],list(3,VV[121],VV[122],base[7]))); |
1900 |
goto T552; |
goto T552; |
1901 |
goto T554; |
goto T554; |
1902 |
T554:; |
T554:; |
1903 |
V341= Cnil; |
V398= Cnil; |
1904 |
goto T552; |
goto T552; |
1905 |
T552:; |
T552:; |
1906 |
base[11]= list(4,VV[91],/* INLINE-ARGS */V328,/* INLINE-ARGS */V340,list(4,VV[72],VV[118],base[9],listA(3,VV[91],V341,base[10]))); |
V401 = base[10]; |
1907 |
|
base[11]= list(4,VV[91],/* INLINE-ARGS */V385,/* INLINE-ARGS */V397,list(4,VV[72],VV[118],base[9],listA(3,VV[91],V398,V401))); |
1908 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1909 |
return; |
return; |
1910 |
} |
} |
1911 |
/* local entry for function DFUN-ARG-SYMBOL */ |
/* local entry for function DFUN-ARG-SYMBOL */ |
1912 |
|
|
1913 |
static object LI51(V345) |
static object LI51(V403) |
1914 |
|
|
1915 |
object V345; |
object V403; |
1916 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
1917 |
goto TTL; |
goto TTL; |
1918 |
TTL:;{object V346; |
TTL:;{object V404; |
1919 |
V346= nth(fix((V345)),(VV[123]->s.s_dbind)); |
V404= nth(fix((V403)),(VV[123]->s.s_dbind)); |
1920 |
if(V346==Cnil)goto T556; |
if(V404==Cnil)goto T556; |
1921 |
{object V347 = V346; |
{object V405 = V404; |
1922 |
VMR48(V347)} |
VMR48(V405)} |
1923 |
goto T556; |
goto T556; |
1924 |
T556:;} |
T556:;} |
1925 |
base[1]= Cnil; |
base[1]= Cnil; |
1926 |
base[2]= VV[124]; |
base[2]= VV[124]; |
1927 |
base[3]= (V345); |
base[3]= (V403); |
1928 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1929 |
Lformat(); |
Lformat(); |
1930 |
vs_top=sup; |
vs_top=sup; |
1933 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1934 |
Lintern(); |
Lintern(); |
1935 |
vs_top=sup; |
vs_top=sup; |
1936 |
{object V348 = vs_base[0]; |
{object V406 = vs_base[0]; |
1937 |
VMR48(V348)} |
VMR48(V406)} |
1938 |
base[0]=base[0]; |
base[0]=base[0]; |
1939 |
return Cnil; |
return Cnil; |
1940 |
} |
} |
1941 |
/* local entry for function SLOT-VECTOR-SYMBOL */ |
/* local entry for function SLOT-VECTOR-SYMBOL */ |
1942 |
|
|
1943 |
static object LI52(V350) |
static object LI52(V408) |
1944 |
|
|
1945 |
object V350; |
object V408; |
1946 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
1947 |
goto TTL; |
goto TTL; |
1948 |
TTL:;{object V351; |
TTL:;{object V409; |
1949 |
V351= nth(fix((V350)),(VV[126]->s.s_dbind)); |
V409= nth(fix((V408)),(VV[126]->s.s_dbind)); |
1950 |
if(V351==Cnil)goto T563; |
if(V409==Cnil)goto T563; |
1951 |
{object V352 = V351; |
{object V410 = V409; |
1952 |
VMR49(V352)} |
VMR49(V410)} |
1953 |
goto T563; |
goto T563; |
1954 |
T563:;} |
T563:;} |
1955 |
base[1]= Cnil; |
base[1]= Cnil; |
1956 |
base[2]= VV[127]; |
base[2]= VV[127]; |
1957 |
base[3]= (V350); |
base[3]= (V408); |
1958 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1959 |
Lformat(); |
Lformat(); |
1960 |
vs_top=sup; |
vs_top=sup; |
1963 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1964 |
Lintern(); |
Lintern(); |
1965 |
vs_top=sup; |
vs_top=sup; |
1966 |
{object V353 = vs_base[0]; |
{object V411 = vs_base[0]; |
1967 |
VMR49(V353)} |
VMR49(V411)} |
1968 |
base[0]=base[0]; |
base[0]=base[0]; |
1969 |
return Cnil; |
return Cnil; |
1970 |
} |
} |
1971 |
/* local entry for function MAKE-DFUN-LAMBDA-LIST */ |
/* local entry for function MAKE-DFUN-LAMBDA-LIST */ |
1972 |
|
|
1973 |
static object LI53(V356,V357) |
static object LI53(V414,V415) |
1974 |
|
|
1975 |
object V356;object V357; |
object V414;object V415; |
1976 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
1977 |
goto TTL; |
goto TTL; |
1978 |
TTL:; |
TTL:; |
1979 |
{register object V358; |
{register object V416; |
1980 |
register object V359; |
register object V417; |
1981 |
V358= Cnil; |
V416= Cnil; |
1982 |
V359= Cnil; |
V417= Cnil; |
1983 |
{register object V360; |
{register object V418; |
1984 |
register object V361; |
register object V419; |
1985 |
register object V362; |
register object V420; |
1986 |
register object V363; |
register object V421; |
1987 |
V360= small_fixnum(0); |
V418= small_fixnum(0); |
1988 |
V361= Cnil; |
V419= Cnil; |
1989 |
V362= (V356); |
V420= (V414); |
1990 |
V363= Cnil; |
V421= Cnil; |
1991 |
goto T579; |
goto T579; |
1992 |
T579:; |
T579:; |
1993 |
{object V364; |
{object V422; |
1994 |
V364= (V360); |
V422= (V418); |
1995 |
V360= number_plus((V360),small_fixnum(1)); |
V418= number_plus((V418),small_fixnum(1)); |
1996 |
V361= (V364);} |
V419= (V422);} |
1997 |
{object V365; |
{object V423; |
1998 |
if(!(((V362))==Cnil)){ |
if(!(((V420))==Cnil)){ |
1999 |
goto T589;} |
goto T589;} |
2000 |
goto T573; |
goto T573; |
2001 |
goto T589; |
goto T589; |
2002 |
T589:; |
T589:; |
2003 |
V365= CMPcar((V362)); |
V423= CMPcar((V420)); |
2004 |
V362= CMPcdr((V362)); |
V420= CMPcdr((V420)); |
2005 |
V363= (V365);} |
V421= (V423);} |
2006 |
{register object V366; |
{register object V424; |
2007 |
V366= (*(LnkLI203))((V361)); |
V424= (*(LnkLI203))((V419)); |
2008 |
if(((V358))!=Cnil){ |
if(((V416))!=Cnil){ |
2009 |
goto T596;} |
goto T596;} |
2010 |
V359= make_cons((V366),Cnil); |
V417= make_cons((V424),Cnil); |
2011 |
V358= (V359); |
V416= (V417); |
2012 |
goto T580; |
goto T580; |
2013 |
goto T596; |
goto T596; |
2014 |
T596:; |
T596:; |
2015 |
V368= make_cons((V366),Cnil); |
V426= make_cons((V424),Cnil); |
2016 |
((V359))->c.c_cdr = /* INLINE-ARGS */V368; |
((V417))->c.c_cdr = /* INLINE-ARGS */V426; |
2017 |
V367= (V359); |
V425= (V417); |
2018 |
V359= CMPcdr(V367);} |
V417= CMPcdr(V425);} |
2019 |
goto T580; |
goto T580; |
2020 |
T580:; |
T580:; |
2021 |
goto T579;} |
goto T579;} |
2022 |
goto T573; |
goto T573; |
2023 |
T573:; |
T573:; |
2024 |
if(((V357))==Cnil){ |
if(((V415))==Cnil){ |
2025 |
goto T572;} |
goto T572;} |
2026 |
if(((V358))!=Cnil){ |
if(((V416))!=Cnil){ |
2027 |
goto T607;} |
goto T607;} |
2028 |
V359= make_cons(VV[128],Cnil); |
V417= make_cons(VV[128],Cnil); |
2029 |
V358= (V359); |
V416= (V417); |
2030 |
goto T605; |
goto T605; |
2031 |
goto T607; |
goto T607; |
2032 |
T607:; |
T607:; |
2033 |
V371= make_cons(VV[128],Cnil); |
V429= make_cons(VV[128],Cnil); |
2034 |
((V359))->c.c_cdr = /* INLINE-ARGS */V371; |
((V417))->c.c_cdr = /* INLINE-ARGS */V429; |
2035 |
V370= (V359); |
V428= (V417); |
2036 |
V359= CMPcdr(V370); |
V417= CMPcdr(V428); |
2037 |
goto T605; |
goto T605; |
2038 |
T605:; |
T605:; |
2039 |
if(((V358))!=Cnil){ |
if(((V416))!=Cnil){ |
2040 |
goto T614;} |
goto T614;} |
2041 |
V359= make_cons(VV[129],Cnil); |
V417= make_cons(VV[129],Cnil); |
2042 |
V358= (V359); |
V416= (V417); |
2043 |
goto T572; |
goto T572; |
2044 |
goto T614; |
goto T614; |
2045 |
T614:; |
T614:; |
2046 |
V374= make_cons(VV[129],Cnil); |
V432= make_cons(VV[129],Cnil); |
2047 |
((V359))->c.c_cdr = /* INLINE-ARGS */V374; |
((V417))->c.c_cdr = /* INLINE-ARGS */V432; |
2048 |
V373= (V359); |
V431= (V417); |
2049 |
V359= CMPcdr(V373); |
V417= CMPcdr(V431); |
2050 |
goto T572; |
goto T572; |
2051 |
T572:; |
T572:; |
2052 |
{object V375 = (V358); |
{object V433 = (V416); |
2053 |
VMR50(V375)}} |
VMR50(V433)}} |
2054 |
return Cnil; |
return Cnil; |
2055 |
} |
} |
2056 |
/* local entry for function MAKE-DLAP-LAMBDA-LIST */ |
/* local entry for function MAKE-DLAP-LAMBDA-LIST */ |
2057 |
|
|
2058 |
static object LI54(V378,V379) |
static object LI54(V436,V437) |
2059 |
|
|
2060 |
object V378;object V379; |
object V436;object V437; |
2061 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
2062 |
goto TTL; |
goto TTL; |
2063 |
TTL:; |
TTL:; |
2064 |
{register object V380; |
{register object V438; |
2065 |
register object V381; |
register object V439; |
2066 |
V380= Cnil; |
V438= Cnil; |
2067 |
V381= Cnil; |
V439= Cnil; |
2068 |
{register object V382; |
{register object V440; |
2069 |
register object V383; |
register object V441; |
2070 |
register object V384; |
register object V442; |
2071 |
register object V385; |
register object V443; |
2072 |
V382= small_fixnum(0); |
V440= small_fixnum(0); |
2073 |
V383= Cnil; |
V441= Cnil; |
2074 |
V384= (V378); |
V442= (V436); |
2075 |
V385= Cnil; |
V443= Cnil; |
2076 |
goto T629; |
goto T629; |
2077 |
T629:; |
T629:; |
2078 |
{object V386; |
{object V444; |
2079 |
V386= (V382); |
V444= (V440); |
2080 |
V382= number_plus((V382),small_fixnum(1)); |
V440= number_plus((V440),small_fixnum(1)); |
2081 |
V383= (V386);} |
V441= (V444);} |
2082 |
{object V387; |
{object V445; |
2083 |
if(!(((V384))==Cnil)){ |
if(!(((V442))==Cnil)){ |
2084 |
goto T639;} |
goto T639;} |
2085 |
goto T623; |
goto T623; |
2086 |
goto T639; |
goto T639; |
2087 |
T639:; |
T639:; |
2088 |
V387= CMPcar((V384)); |
V445= CMPcar((V442)); |
2089 |
V384= CMPcdr((V384)); |
V442= CMPcdr((V442)); |
2090 |
V385= (V387);} |
V443= (V445);} |
2091 |
{register object V388; |
{register object V446; |
2092 |
V388= (*(LnkLI203))((V383)); |
V446= (*(LnkLI203))((V441)); |
2093 |
if(((V380))!=Cnil){ |
if(((V438))!=Cnil){ |
2094 |
goto T646;} |
goto T646;} |
2095 |
V381= make_cons((V388),Cnil); |
V439= make_cons((V446),Cnil); |
2096 |
V380= (V381); |
V438= (V439); |
2097 |
goto T630; |
goto T630; |
2098 |
goto T646; |
goto T646; |
2099 |
T646:; |
T646:; |
2100 |
V390= make_cons((V388),Cnil); |
V448= make_cons((V446),Cnil); |
2101 |
((V381))->c.c_cdr = /* INLINE-ARGS */V390; |
((V439))->c.c_cdr = /* INLINE-ARGS */V448; |
2102 |
V389= (V381); |
V447= (V439); |
2103 |
V381= CMPcdr(V389);} |
V439= CMPcdr(V447);} |
2104 |
goto T630; |
goto T630; |
2105 |
T630:; |
T630:; |
2106 |
goto T629;} |
goto T629;} |
2107 |
goto T623; |
goto T623; |
2108 |
T623:; |
T623:; |
2109 |
if(((V379))==Cnil){ |
if(((V437))==Cnil){ |
2110 |
goto T622;} |
goto T622;} |
2111 |
if(((V380))!=Cnil){ |
if(((V438))!=Cnil){ |
2112 |
goto T656;} |
goto T656;} |
2113 |
V381= make_cons(VV[128],Cnil); |
V439= make_cons(VV[128],Cnil); |
2114 |
V380= (V381); |
V438= (V439); |
2115 |
goto T622; |
goto T622; |
2116 |
goto T656; |
goto T656; |
2117 |
T656:; |
T656:; |
2118 |
V393= make_cons(VV[128],Cnil); |
V451= make_cons(VV[128],Cnil); |
2119 |
((V381))->c.c_cdr = /* INLINE-ARGS */V393; |
((V439))->c.c_cdr = /* INLINE-ARGS */V451; |
2120 |
V392= (V381); |
V450= (V439); |
2121 |
V381= CMPcdr(V392); |
V439= CMPcdr(V450); |
2122 |
goto T622; |
goto T622; |
2123 |
T622:; |
T622:; |
2124 |
{object V394 = (V380); |
{object V452 = (V438); |
2125 |
VMR51(V394)}} |
VMR51(V452)}} |
2126 |
return Cnil; |
return Cnil; |
2127 |
} |
} |
2128 |
/* local entry for function MAKE-EMF-CALL */ |
/* local entry for function MAKE-EMF-CALL */ |
2129 |
|
|
2130 |
static object LI55(object V397,object V396,object V395,object first,...) |
static object LI55(object V455,object V454,object V453,object first,...) |
2131 |
{ |
{ |
2132 |
va_list ap; |
va_list ap; |
2133 |
int narg = VFUN_NARGS; VMB52 VMS52 VMV52 |
int narg = VFUN_NARGS; VMB52 VMS52 VMV52 |
2134 |
{object V398; |
{object V456; |
2135 |
object V399; |
object V457; |
2136 |
object V400; |
object V458; |
2137 |
object V401; |
object V459; |
2138 |
va_start(ap,first); |
va_start(ap,first); |
2139 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
2140 |
V398= V397; |
V456= V455; |
2141 |
V399= V396; |
V457= V454; |
2142 |
V400= V395; |
V458= V453; |
2143 |
narg = narg - 3; |
narg = narg - 3; |
2144 |
if (narg <= 0) goto T662; |
if (narg <= 0) goto T662; |
2145 |
else { |
else { |
2146 |
V401= first;} |
V459= first;} |
2147 |
--narg; goto T663; |
--narg; goto T663; |
2148 |
goto T662; |
goto T662; |
2149 |
T662:; |
T662:; |
2150 |
V401= Cnil; |
V459= Cnil; |
2151 |
goto T663; |
goto T663; |
2152 |
T663:; |
T663:; |
2153 |
{object V402; |
{object V460; |
2154 |
{register object V403; |
{register object V461; |
2155 |
register object V404; |
register object V462; |
2156 |
V403= Cnil; |
V461= Cnil; |
2157 |
V404= Cnil; |
V462= Cnil; |
2158 |
{register object V405; |
{register object V463; |
2159 |
register object V406; |
register object V464; |
2160 |
register object V407; |
register object V465; |
2161 |
register object V408; |
register object V466; |
2162 |
V405= small_fixnum(0); |
V463= small_fixnum(0); |
2163 |
V406= Cnil; |
V464= Cnil; |
2164 |
V407= (V398); |
V465= (V456); |
2165 |
V408= Cnil; |
V466= Cnil; |
2166 |
goto T674; |
goto T674; |
2167 |
T674:; |
T674:; |
2168 |
{object V409; |
{object V467; |
2169 |
V409= (V405); |
V467= (V463); |
2170 |
V405= number_plus((V405),small_fixnum(1)); |
V463= number_plus((V463),small_fixnum(1)); |
2171 |
V406= (V409);} |
V464= (V467);} |
2172 |
{object V410; |
{object V468; |
2173 |
if(!(((V407))==Cnil)){ |
if(!(((V465))==Cnil)){ |
2174 |
goto T684;} |
goto T684;} |
2175 |
goto T668; |
goto T668; |
2176 |
goto T684; |
goto T684; |
2177 |
T684:; |
T684:; |
2178 |
V410= CMPcar((V407)); |
V468= CMPcar((V465)); |
2179 |
V407= CMPcdr((V407)); |
V465= CMPcdr((V465)); |
2180 |
V408= (V410);} |
V466= (V468);} |
2181 |
{register object V411; |
{register object V469; |
2182 |
V411= (*(LnkLI203))((V406)); |
V469= (*(LnkLI203))((V464)); |
2183 |
if(((V403))!=Cnil){ |
if(((V461))!=Cnil){ |
2184 |
goto T691;} |
goto T691;} |
2185 |
V404= make_cons((V411),Cnil); |
V462= make_cons((V469),Cnil); |
2186 |
V403= (V404); |
V461= (V462); |
2187 |
goto T675; |
goto T675; |
2188 |
goto T691; |
goto T691; |
2189 |
T691:; |
T691:; |
2190 |
V413= make_cons((V411),Cnil); |
V471= make_cons((V469),Cnil); |
2191 |
((V404))->c.c_cdr = /* INLINE-ARGS */V413; |
((V462))->c.c_cdr = /* INLINE-ARGS */V471; |
2192 |
V412= (V404); |
V470= (V462); |
2193 |
V404= CMPcdr(V412);} |
V462= CMPcdr(V470);} |
2194 |
goto T675; |
goto T675; |
2195 |
T675:; |
T675:; |
2196 |
goto T674;} |
goto T674;} |
2197 |
goto T668; |
goto T668; |
2198 |
T668:; |
T668:; |
2199 |
V402= (V403);} |
V460= (V461);} |
2200 |
if(!(((V401))==(VV[130]))){ |
if(!(((V459))==(VV[130]))){ |
2201 |
goto T700;} |
goto T700;} |
2202 |
V414= VV[131]; |
V472= VV[131]; |
2203 |
goto T698; |
goto T698; |
2204 |
goto T700; |
goto T700; |
2205 |
T700:; |
T700:; |
2206 |
V414= VV[132]; |
V472= VV[132]; |
2207 |
goto T698; |
goto T698; |
2208 |
T698:; |
T698:; |
2209 |
if(((V399))==Cnil){ |
V473 = (V458); |
2210 |
|
V474 = (V457); |
2211 |
|
V475 = (V460); |
2212 |
|
if(((V457))==Cnil){ |
2213 |
goto T704;} |
goto T704;} |
2214 |
V415= VV[133]; |
V476= VV[133]; |
2215 |
goto T702; |
goto T702; |
2216 |
goto T704; |
goto T704; |
2217 |
T704:; |
T704:; |
2218 |
V415= Cnil; |
V476= Cnil; |
2219 |
goto T702; |
goto T702; |
2220 |
T702:; |
T702:; |
2221 |
{object V416 = listA(4,V414,(V400),(V399),append((V402),V415)); |
{object V477 = listA(4,V472,V473,V474,append(V475,V476)); |
2222 |
VMR52(V416)}} |
VMR52(V477)}} |
2223 |
va_end(ap); |
va_end(ap); |
2224 |
return Cnil;} |
return Cnil;} |
2225 |
} |
} |
2226 |
/* local entry for function MAKE-DFUN-CALL */ |
/* local entry for function MAKE-DFUN-CALL */ |
2227 |
|
|
2228 |
static object LI56(V420,V421,V422) |
static object LI56(V481,V482,V483) |
2229 |
|
|
2230 |
object V420;object V421;object V422; |
object V481;object V482;object V483; |
2231 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
2232 |
goto TTL; |
goto TTL; |
2233 |
TTL:; |
TTL:; |
2234 |
{object V423; |
{object V484; |
2235 |
{register object V424; |
{register object V485; |
2236 |
register object V425; |
register object V486; |
2237 |
V424= Cnil; |
V485= Cnil; |
2238 |
V425= Cnil; |
V486= Cnil; |
2239 |
{register object V426; |
{register object V487; |
2240 |
register object V427; |
register object V488; |
2241 |
register object V428; |
register object V489; |
2242 |
register object V429; |
register object V490; |
2243 |
V426= small_fixnum(0); |
V487= small_fixnum(0); |
2244 |
V427= Cnil; |
V488= Cnil; |
2245 |
V428= (V420); |
V489= (V481); |
2246 |
V429= Cnil; |
V490= Cnil; |
2247 |
goto T715; |
goto T715; |
2248 |
T715:; |
T715:; |
2249 |
{object V430; |
{object V491; |
2250 |
V430= (V426); |
V491= (V487); |
2251 |
V426= number_plus((V426),small_fixnum(1)); |
V487= number_plus((V487),small_fixnum(1)); |
2252 |
V427= (V430);} |
V488= (V491);} |
2253 |
{object V431; |
{object V492; |
2254 |
if(!(((V428))==Cnil)){ |
if(!(((V489))==Cnil)){ |
2255 |
goto T725;} |
goto T725;} |
2256 |
goto T709; |
goto T709; |
2257 |
goto T725; |
goto T725; |
2258 |
T725:; |
T725:; |
2259 |
V431= CMPcar((V428)); |
V492= CMPcar((V489)); |
2260 |
V428= CMPcdr((V428)); |
V489= CMPcdr((V489)); |
2261 |
V429= (V431);} |
V490= (V492);} |
2262 |
{register object V432; |
{register object V493; |
2263 |
V432= (*(LnkLI203))((V427)); |
V493= (*(LnkLI203))((V488)); |
2264 |
if(((V424))!=Cnil){ |
if(((V485))!=Cnil){ |
2265 |
goto T732;} |
goto T732;} |
2266 |
V425= make_cons((V432),Cnil); |
V486= make_cons((V493),Cnil); |
2267 |
V424= (V425); |
V485= (V486); |
2268 |
goto T716; |
goto T716; |
2269 |
goto T732; |
goto T732; |
2270 |
T732:; |
T732:; |
2271 |
V434= make_cons((V432),Cnil); |
V495= make_cons((V493),Cnil); |
2272 |
((V425))->c.c_cdr = /* INLINE-ARGS */V434; |
((V486))->c.c_cdr = /* INLINE-ARGS */V495; |
2273 |
V433= (V425); |
V494= (V486); |
2274 |
V425= CMPcdr(V433);} |
V486= CMPcdr(V494);} |
2275 |
goto T716; |
goto T716; |
2276 |
T716:; |
T716:; |
2277 |
goto T715;} |
goto T715;} |
2278 |
goto T709; |
goto T709; |
2279 |
T709:; |
T709:; |
2280 |
V423= (V424);} |
V484= (V485);} |
2281 |
if(((V421))==Cnil){ |
if(((V482))==Cnil){ |
2282 |
goto T740;} |
goto T740;} |
2283 |
{object V435 = listA(3,VV[134],(V422),append((V423),VV[135])); |
{object V496 = listA(3,VV[134],(V483),append((V484),VV[135])); |
2284 |
VMR53(V435)} |
VMR53(V496)} |
2285 |
goto T740; |
goto T740; |
2286 |
T740:; |
T740:; |
2287 |
{object V436 = listA(3,VV[136],(V422),(V423)); |
{object V497 = listA(3,VV[136],(V483),(V484)); |
2288 |
VMR53(V436)}} |
VMR53(V497)}} |
2289 |
return Cnil; |
return Cnil; |
2290 |
} |
} |
2291 |
/* local entry for function MAKE-DFUN-ARG-LIST */ |
/* local entry for function MAKE-DFUN-ARG-LIST */ |
2292 |
|
|
2293 |
static object LI57(V439,V440) |
static object LI57(V500,V501) |
2294 |
|
|
2295 |
object V439;object V440; |
object V500;object V501; |
2296 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
2297 |
goto TTL; |
goto TTL; |
2298 |
TTL:; |
TTL:; |
2299 |
{object V441; |
{object V502; |
2300 |
{register object V442; |
{register object V503; |
2301 |
register object V443; |
register object V504; |
2302 |
V442= Cnil; |
V503= Cnil; |
2303 |
V443= Cnil; |
V504= Cnil; |
2304 |
{register object V444; |
{register object V505; |
2305 |
register object V445; |
register object V506; |
2306 |
register object V446; |
register object V507; |
2307 |
register object V447; |
register object V508; |
2308 |
V444= small_fixnum(0); |
V505= small_fixnum(0); |
2309 |
V445= Cnil; |
V506= Cnil; |
2310 |
V446= (V439); |
V507= (V500); |
2311 |
V447= Cnil; |
V508= Cnil; |
2312 |
goto T751; |
goto T751; |
2313 |
T751:; |
T751:; |
2314 |
{object V448; |
{object V509; |
2315 |
V448= (V444); |
V509= (V505); |
2316 |
V444= number_plus((V444),small_fixnum(1)); |
V505= number_plus((V505),small_fixnum(1)); |
2317 |
V445= (V448);} |
V506= (V509);} |
2318 |
{object V449; |
{object V510; |
2319 |
if(!(((V446))==Cnil)){ |
if(!(((V507))==Cnil)){ |
2320 |
goto T761;} |
goto T761;} |
2321 |
goto T745; |
goto T745; |
2322 |
goto T761; |
goto T761; |
2323 |
T761:; |
T761:; |
2324 |
V449= CMPcar((V446)); |
V510= CMPcar((V507)); |
2325 |
V446= CMPcdr((V446)); |
V507= CMPcdr((V507)); |
2326 |
V447= (V449);} |
V508= (V510);} |
2327 |
{register object V450; |
{register object V511; |
2328 |
V450= (*(LnkLI203))((V445)); |
V511= (*(LnkLI203))((V506)); |
2329 |
if(((V442))!=Cnil){ |
if(((V503))!=Cnil){ |
2330 |
goto T768;} |
goto T768;} |
2331 |
V443= make_cons((V450),Cnil); |
V504= make_cons((V511),Cnil); |
2332 |
V442= (V443); |
V503= (V504); |
2333 |
goto T752; |
goto T752; |
2334 |
goto T768; |
goto T768; |
2335 |
T768:; |
T768:; |
2336 |
V452= make_cons((V450),Cnil); |
V513= make_cons((V511),Cnil); |
2337 |
((V443))->c.c_cdr = /* INLINE-ARGS */V452; |
((V504))->c.c_cdr = /* INLINE-ARGS */V513; |
2338 |
V451= (V443); |
V512= (V504); |
2339 |
V443= CMPcdr(V451);} |
V504= CMPcdr(V512);} |
2340 |
goto T752; |
goto T752; |
2341 |
T752:; |
T752:; |
2342 |
goto T751;} |
goto T751;} |
2343 |
goto T745; |
goto T745; |
2344 |
T745:; |
T745:; |
2345 |
V441= (V442);} |
V502= (V503);} |
2346 |
if(((V440))==Cnil){ |
if(((V501))==Cnil){ |
2347 |
goto T776;} |
goto T776;} |
2348 |
V453= append((V441),VV[138]); |
V514= append((V502),VV[138]); |
2349 |
{object V454 = make_cons(VV[137],/* INLINE-ARGS */V453); |
{object V515 = make_cons(VV[137],/* INLINE-ARGS */V514); |
2350 |
VMR54(V454)} |
VMR54(V515)} |
2351 |
goto T776; |
goto T776; |
2352 |
T776:; |
T776:; |
2353 |
{object V455 = make_cons(VV[139],(V441)); |
{object V516 = make_cons(VV[139],(V502)); |
2354 |
VMR54(V455)}} |
VMR54(V516)}} |
2355 |
return Cnil; |
return Cnil; |
2356 |
} |
} |
2357 |
/* local entry for function MAKE-FAST-METHOD-CALL-LAMBDA-LIST */ |
/* local entry for function MAKE-FAST-METHOD-CALL-LAMBDA-LIST */ |
2358 |
|
|
2359 |
static object LI58(V458,V459) |
static object LI58(V519,V520) |
2360 |
|
|
2361 |
object V458;object V459; |
object V519;object V520; |
2362 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
2363 |
goto TTL; |
goto TTL; |
2364 |
TTL:; |
TTL:; |
2365 |
{register object V460; |
{register object V521; |
2366 |
register object V461; |
register object V522; |
2367 |
V460= Cnil; |
V521= Cnil; |
2368 |
V461= Cnil; |
V522= Cnil; |
2369 |
if(((V460))!=Cnil){ |
if(((V521))!=Cnil){ |
2370 |
goto T783;} |
goto T783;} |
2371 |
V461= make_cons(VV[140],Cnil); |
V522= make_cons(VV[140],Cnil); |
2372 |
V460= (V461); |
V521= (V522); |
2373 |
goto T781; |
goto T781; |
2374 |
goto T783; |
goto T783; |
2375 |
T783:; |
T783:; |
2376 |
V464= make_cons(VV[140],Cnil); |
V525= make_cons(VV[140],Cnil); |
2377 |
((V461))->c.c_cdr = /* INLINE-ARGS */V464; |
((V522))->c.c_cdr = /* INLINE-ARGS */V525; |
2378 |
V463= (V461); |
V524= (V522); |
2379 |
V461= CMPcdr(V463); |
V522= CMPcdr(V524); |
2380 |
goto T781; |
goto T781; |
2381 |
T781:; |
T781:; |
2382 |
if(((V460))!=Cnil){ |
if(((V521))!=Cnil){ |
2383 |
goto T791;} |
goto T791;} |
2384 |
V461= make_cons(VV[141],Cnil); |
V522= make_cons(VV[141],Cnil); |
2385 |
V460= (V461); |
V521= (V522); |
2386 |
goto T789; |
goto T789; |
2387 |
goto T791; |
goto T791; |
2388 |
T791:; |
T791:; |
2389 |
V467= make_cons(VV[141],Cnil); |
V528= make_cons(VV[141],Cnil); |
2390 |
((V461))->c.c_cdr = /* INLINE-ARGS */V467; |
((V522))->c.c_cdr = /* INLINE-ARGS */V528; |
2391 |
V466= (V461); |
V527= (V522); |
2392 |
V461= CMPcdr(V466); |
V522= CMPcdr(V527); |
2393 |
goto T789; |
goto T789; |
2394 |
T789:; |
T789:; |
2395 |
{register object V468; |
{register object V529; |
2396 |
register object V469; |
register object V530; |
2397 |
register object V470; |
register object V531; |
2398 |
register object V471; |
register object V532; |
2399 |
V468= small_fixnum(0); |
V529= small_fixnum(0); |
2400 |
V469= Cnil; |
V530= Cnil; |
2401 |
V470= (V458); |
V531= (V519); |
2402 |
V471= Cnil; |
V532= Cnil; |
2403 |
goto T803; |
goto T803; |
2404 |
T803:; |
T803:; |
2405 |
{object V472; |
{object V533; |
2406 |
V472= (V468); |
V533= (V529); |
2407 |
V468= number_plus((V468),small_fixnum(1)); |
V529= number_plus((V529),small_fixnum(1)); |
2408 |
V469= (V472);} |
V530= (V533);} |
2409 |
{object V473; |
{object V534; |
2410 |
if(!(((V470))==Cnil)){ |
if(!(((V531))==Cnil)){ |
2411 |
goto T813;} |
goto T813;} |
2412 |
goto T797; |
goto T797; |
2413 |
goto T813; |
goto T813; |
2414 |
T813:; |
T813:; |
2415 |
V473= CMPcar((V470)); |
V534= CMPcar((V531)); |
2416 |
V470= CMPcdr((V470)); |
V531= CMPcdr((V531)); |
2417 |
V471= (V473);} |
V532= (V534);} |
2418 |
{register object V474; |
{register object V535; |
2419 |
V474= (*(LnkLI203))((V469)); |
V535= (*(LnkLI203))((V530)); |
2420 |
if(((V460))!=Cnil){ |
if(((V521))!=Cnil){ |
2421 |
goto T820;} |
goto T820;} |
2422 |
V461= make_cons((V474),Cnil); |
V522= make_cons((V535),Cnil); |
2423 |
V460= (V461); |
V521= (V522); |
2424 |
goto T804; |
goto T804; |
2425 |
goto T820; |
goto T820; |
2426 |
T820:; |
T820:; |
2427 |
V476= make_cons((V474),Cnil); |
V537= make_cons((V535),Cnil); |
2428 |
((V461))->c.c_cdr = /* INLINE-ARGS */V476; |
((V522))->c.c_cdr = /* INLINE-ARGS */V537; |
2429 |
V475= (V461); |
V536= (V522); |
2430 |
V461= CMPcdr(V475);} |
V522= CMPcdr(V536);} |
2431 |
goto T804; |
goto T804; |
2432 |
T804:; |
T804:; |
2433 |
goto T803;} |
goto T803;} |
2434 |
goto T797; |
goto T797; |
2435 |
T797:; |
T797:; |
2436 |
if(((V459))==Cnil){ |
if(((V520))==Cnil){ |
2437 |
goto T780;} |
goto T780;} |
2438 |
if(((V460))!=Cnil){ |
if(((V521))!=Cnil){ |
2439 |
goto T830;} |
goto T830;} |
2440 |
V461= make_cons(VV[129],Cnil); |
V522= make_cons(VV[129],Cnil); |
2441 |
V460= (V461); |
V521= (V522); |
2442 |
goto T780; |
goto T780; |
2443 |
goto T830; |
goto T830; |
2444 |
T830:; |
T830:; |
2445 |
V479= make_cons(VV[129],Cnil); |
V540= make_cons(VV[129],Cnil); |
2446 |
((V461))->c.c_cdr = /* INLINE-ARGS */V479; |
((V522))->c.c_cdr = /* INLINE-ARGS */V540; |
2447 |
V478= (V461); |
V539= (V522); |
2448 |
V461= CMPcdr(V478); |
V522= CMPcdr(V539); |
2449 |
goto T780; |
goto T780; |
2450 |
T780:; |
T780:; |
2451 |
{object V480 = (V460); |
{object V541 = (V521); |
2452 |
VMR55(V480)}} |
VMR55(V541)}} |
2453 |
return Cnil; |
return Cnil; |
2454 |
} |
} |
2455 |
/* macro definition for FIN-LAMBDA-FN */ |
/* macro definition for FIN-LAMBDA-FN */ |
2460 |
vs_check; |
vs_check; |
2461 |
check_arg(2); |
check_arg(2); |
2462 |
vs_top=sup; |
vs_top=sup; |
2463 |
{object V481=base[0]->c.c_cdr; |
{object V542=base[0]->c.c_cdr; |
2464 |
if(endp(V481))invalid_macro_call(); |
if(endp(V542))invalid_macro_call(); |
2465 |
base[2]= (V481->c.c_car); |
base[2]= (V542->c.c_car); |
2466 |
V481=V481->c.c_cdr; |
V542=V542->c.c_cdr; |
2467 |
base[3]= V481;} |
base[3]= V542;} |
2468 |
base[4]= list(2,VV[142],listA(3,VV[143],base[2],base[3])); |
base[4]= list(2,VV[142],listA(3,VV[143],base[2],base[3])); |
2469 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2470 |
return; |
return; |
2471 |
} |
} |
2472 |
/* local entry for function MAKE-DISPATCH-LAMBDA */ |
/* local entry for function MAKE-DISPATCH-LAMBDA */ |
2473 |
|
|
2474 |
static object LI60(V486,V487,V488,V489) |
static object LI60(V547,V548,V549,V550) |
2475 |
|
|
2476 |
object V486;object V487;object V488;object V489; |
object V547;object V548;object V549;object V550; |
2477 |
{ VMB57 VMS57 VMV57 |
{ VMB57 VMS57 VMV57 |
2478 |
goto TTL; |
goto TTL; |
2479 |
TTL:; |
TTL:; |
2480 |
if(((V486))==Cnil){ |
if(((V547))==Cnil){ |
2481 |
goto T838;} |
goto T838;} |
2482 |
V490= (*(LnkLI204))((V487),(V488)); |
V551= (*(LnkLI204))((V548),(V549)); |
2483 |
goto T836; |
goto T836; |
2484 |
goto T838; |
goto T838; |
2485 |
T838:; |
T838:; |
2486 |
V490= (*(LnkLI205))((V487),(V488)); |
V551= (*(LnkLI205))((V548),(V549)); |
2487 |
goto T836; |
goto T836; |
2488 |
T836:; |
T836:; |
2489 |
if(((V486))!=Cnil){ |
if(((V547))!=Cnil){ |
2490 |
goto T842;} |
goto T842;} |
2491 |
V491= VV[144]; |
V552= VV[144]; |
2492 |
goto T840; |
goto T840; |
2493 |
goto T842; |
goto T842; |
2494 |
T842:; |
T842:; |
2495 |
V491= Cnil; |
V552= Cnil; |
2496 |
goto T840; |
goto T840; |
2497 |
T840:; |
T840:; |
2498 |
{object V492 = listA(3,VV[143],V490,append(V491,(V489))); |
V553 = (V550); |
2499 |
VMR57(V492)} |
{object V554 = listA(3,VV[143],V551,append(V552,V553)); |
2500 |
|
VMR57(V554)} |
2501 |
return Cnil; |
return Cnil; |
2502 |
} |
} |
2503 |
/* macro definition for WITH-LOCAL-CACHE-FUNCTIONS */ |
/* macro definition for WITH-LOCAL-CACHE-FUNCTIONS */ |
2508 |
vs_check; |
vs_check; |
2509 |
check_arg(2); |
check_arg(2); |
2510 |
vs_top=sup; |
vs_top=sup; |
2511 |
{object V493=base[0]->c.c_cdr; |
{object V555=base[0]->c.c_cdr; |
2512 |
if(endp(V493))invalid_macro_call(); |
if(endp(V555))invalid_macro_call(); |
2513 |
{object V494= (V493->c.c_car); |
{object V556= (V555->c.c_car); |
2514 |
if(endp(V494))invalid_macro_call(); |
if(endp(V556))invalid_macro_call(); |
2515 |
base[2]= (V494->c.c_car); |
base[2]= (V556->c.c_car); |
2516 |
V494=V494->c.c_cdr; |
V556=V556->c.c_cdr; |
2517 |
if(!endp(V494))invalid_macro_call();} |
if(!endp(V556))invalid_macro_call();} |
2518 |
V493=V493->c.c_cdr; |
V555=V555->c.c_cdr; |
2519 |
base[3]= V493;} |
base[3]= V555;} |
2520 |
V495= list(2,VV[145],base[2]); |
V557= list(2,VV[145],base[2]); |
2521 |
V496= make_cons(/* INLINE-ARGS */V495,Cnil); |
V558= make_cons(/* INLINE-ARGS */V557,Cnil); |
2522 |
{object V498; |
{object V560; |
2523 |
object V499= VV[150]; |
object V561= VV[150]; |
2524 |
if(V499==Cnil){ |
if(V561==Cnil){ |
2525 |
V497= Cnil; |
V559= Cnil; |
2526 |
goto T844;} |
goto T844;} |
2527 |
base[4]=V498=MMcons(Cnil,Cnil); |
base[4]=V560=MMcons(Cnil,Cnil); |
2528 |
goto T845; |
goto T845; |
2529 |
T845:; |
T845:; |
2530 |
{register object V500; |
{register object V562; |
2531 |
V500= (V499->c.c_car); |
V562= (V561->c.c_car); |
2532 |
V501= CMPcar((V500)); |
V563= CMPcar((V562)); |
2533 |
V502= CMPcadr((V500)); |
V564= CMPcadr((V562)); |
2534 |
{object V504; |
{object V566; |
2535 |
object V505= CMPcadr((V500)); |
object V567= CMPcadr((V562)); |
2536 |
if(V505==Cnil){ |
if(V567==Cnil){ |
2537 |
V503= Cnil; |
V565= Cnil; |
2538 |
goto T847;} |
goto T847;} |
2539 |
base[5]=V504=MMcons(Cnil,Cnil); |
base[5]=V566=MMcons(Cnil,Cnil); |
2540 |
goto T848; |
goto T848; |
2541 |
T848:; |
T848:; |
2542 |
(V504->c.c_car)= list(3,VV[139],list(2,VV[149],(V505->c.c_car)),(V505->c.c_car)); |
(V566->c.c_car)= list(3,VV[139],list(2,VV[149],(V567->c.c_car)),(V567->c.c_car)); |
2543 |
if((V505=MMcdr(V505))==Cnil){ |
if((V567=MMcdr(V567))==Cnil){ |
2544 |
V503= base[5]; |
V565= base[5]; |
2545 |
goto T847;} |
goto T847;} |
2546 |
V504=MMcdr(V504)=MMcons(Cnil,Cnil); |
V566=MMcdr(V566)=MMcons(Cnil,Cnil); |
2547 |
goto T848;} |
goto T848;} |
2548 |
goto T847; |
goto T847; |
2549 |
T847:; |
T847:; |
2550 |
V507= make_cons(VV[139],V503); |
V569= make_cons(VV[139],V565); |
2551 |
(V498->c.c_car)= list(3,/* INLINE-ARGS */V501,/* INLINE-ARGS */V502,list(4,VV[137],VV[148],/* INLINE-ARGS */V507,list(2,VV[149],CMPcddr((V500)))));} |
(V560->c.c_car)= list(3,/* INLINE-ARGS */V563,/* INLINE-ARGS */V564,list(4,VV[137],VV[148],/* INLINE-ARGS */V569,list(2,VV[149],CMPcddr((V562)))));} |
2552 |
if((V499=MMcdr(V499))==Cnil){ |
if((V561=MMcdr(V561))==Cnil){ |
2553 |
V497= base[4]; |
V559= base[4]; |
2554 |
goto T844;} |
goto T844;} |
2555 |
V498=MMcdr(V498)=MMcons(Cnil,Cnil); |
V560=MMcdr(V560)=MMcons(Cnil,Cnil); |
2556 |
goto T845;} |
goto T845;} |
2557 |
goto T844; |
goto T844; |
2558 |
T844:; |
T844:; |
2559 |
base[4]= list(4,VV[10],/* INLINE-ARGS */V496,VV[146],listA(3,VV[147],V497,base[3])); |
V570 = base[3]; |
2560 |
|
base[4]= list(4,VV[10],/* INLINE-ARGS */V558,VV[146],listA(3,VV[147],V559,V570)); |
2561 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2562 |
return; |
return; |
2563 |
} |
} |
2564 |
/* local entry for function FILL-CACHE */ |
/* local entry for function FILL-CACHE */ |
2565 |
|
|
2566 |
static object LI62(object V510,object V509,object V508,object first,...) |
static object LI62(object V573,object V572,object V571,object first,...) |
2567 |
{ |
{ |
2568 |
va_list ap; |
va_list ap; |
2569 |
int narg = VFUN_NARGS; VMB59 VMS59 VMV59 |
int narg = VFUN_NARGS; VMB59 VMS59 VMV59 |
2570 |
{register object V511; |
{register object V574; |
2571 |
register object V512; |
register object V575; |
2572 |
object V513; |
object V576; |
2573 |
object V514; |
object V577; |
2574 |
va_start(ap,first); |
va_start(ap,first); |
2575 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
2576 |
V511= V510; |
V574= V573; |
2577 |
V512= V509; |
V575= V572; |
2578 |
V513= V508; |
V576= V571; |
2579 |
narg = narg - 3; |
narg = narg - 3; |
2580 |
if (narg <= 0) goto T850; |
if (narg <= 0) goto T850; |
2581 |
else { |
else { |
2582 |
V514= first;} |
V577= first;} |
2583 |
--narg; goto T851; |
--narg; goto T851; |
2584 |
goto T850; |
goto T850; |
2585 |
T850:; |
T850:; |
2586 |
V514= Cnil; |
V577= Cnil; |
2587 |
goto T851; |
goto T851; |
2588 |
T851:; |
T851:; |
2589 |
if(((V512))!=Cnil){ |
if(((V575))!=Cnil){ |
2590 |
goto T853;} |
goto T853;} |
2591 |
base[0]= VV[151]; |
base[0]= VV[151]; |
2592 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2593 |
Lerror(); |
Lerror(); |
2594 |
vs_top=sup; |
vs_top=sup; |
2595 |
goto T853; |
goto T853; |
2596 |
T853:;{object V515; |
T853:;{object V578; |
2597 |
V515= (*(LnkLI206))(Cnil,(V511),(V512),(V513)); |
V578= (*(LnkLI206))(Cnil,(V574),(V575),(V576)); |
2598 |
if(V515==Cnil)goto T857; |
if(V578==Cnil)goto T857; |
2599 |
{object V516 = V515; |
{object V579 = V578; |
2600 |
VMR59(V516)} |
VMR59(V579)} |
2601 |
goto T857; |
goto T857; |
2602 |
T857:;}{object V517; |
T857:;}{object V580; |
2603 |
V519 = CMPmake_fixnum((long)(*(LnkLI207))((V511))); |
V582 = CMPmake_fixnum((long)(*(LnkLI207))((V574))); |
2604 |
base[0]= number_times(V519,VV[152]); |
base[0]= number_times(V582,VV[152]); |
2605 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2606 |
Lceiling(); |
Lceiling(); |
2607 |
vs_top=sup; |
vs_top=sup; |
2608 |
V518= vs_base[0]; |
V581= vs_base[0]; |
2609 |
if(!(((long)STREF(unsigned short,(V511),4))==(1))){ |
if(!(((long)STREF(unsigned short,(V574),4))==(1))){ |
2610 |
goto T867;} |
goto T867;} |
2611 |
V520= one_minus(CMPmake_fixnum((long)STREF(fixnum,(V511),12))); |
V583= one_minus(CMPmake_fixnum((long)STREF(fixnum,(V574),12))); |
2612 |
goto T865; |
goto T865; |
2613 |
goto T867; |
goto T867; |
2614 |
T867:; |
T867:; |
2615 |
V520= CMPmake_fixnum((long)STREF(fixnum,(V511),12)); |
V583= CMPmake_fixnum((long)STREF(fixnum,(V574),12)); |
2616 |
goto T865; |
goto T865; |
2617 |
T865:; |
T865:; |
2618 |
if(number_compare(V518,V520)<0){ |
if(number_compare(V581,V583)<0){ |
2619 |
goto T861;} |
goto T861;} |
2620 |
V517= Cnil; |
V580= Cnil; |
2621 |
goto T860; |
goto T860; |
2622 |
goto T861; |
goto T861; |
2623 |
T861:; |
T861:; |
2624 |
V517= (*(LnkLI208))((V511),(V512),(V513),(V514)); |
V580= (*(LnkLI208))((V574),(V575),(V576),(V577)); |
2625 |
goto T860; |
goto T860; |
2626 |
T860:; |
T860:; |
2627 |
if(V517==Cnil)goto T859; |
if(V580==Cnil)goto T859; |
2628 |
{object V521 = V517; |
{object V584 = V580; |
2629 |
VMR59(V521)} |
VMR59(V584)} |
2630 |
goto T859; |
goto T859; |
2631 |
T859:;} |
T859:;} |
2632 |
{object V522 = (*(LnkLI209))((V511),(V512),(V513),(V514)); |
{object V585 = (*(LnkLI209))((V574),(V575),(V576),(V577)); |
2633 |
VMR59(V522)} |
VMR59(V585)} |
2634 |
va_end(ap); |
va_end(ap); |
2635 |
base[0]=base[0]; |
base[0]=base[0]; |
2636 |
return Cnil;} |
return Cnil;} |
2643 |
vs_check; |
vs_check; |
2644 |
check_arg(2); |
check_arg(2); |
2645 |
vs_top=sup; |
vs_top=sup; |
2646 |
{object V523=base[0]->c.c_cdr; |
{object V586=base[0]->c.c_cdr; |
2647 |
if(endp(V523))invalid_macro_call(); |
if(endp(V586))invalid_macro_call(); |
2648 |
base[2]= (V523->c.c_car); |
base[2]= (V586->c.c_car); |
2649 |
V523=V523->c.c_cdr; |
V586=V586->c.c_cdr; |
2650 |
if(!endp(V523))invalid_macro_call();} |
if(!endp(V586))invalid_macro_call();} |
2651 |
base[3]= list(3,VV[9],list(3,VV[105],VV[153],list(2,VV[154],base[2])),base[2]); |
base[3]= list(3,VV[9],list(3,VV[105],VV[153],list(2,VV[154],base[2])),base[2]); |
2652 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2653 |
return; |
return; |
2654 |
} |
} |
2655 |
/* local entry for function CHECK-CACHE */ |
/* local entry for function CHECK-CACHE */ |
2656 |
|
|
2657 |
static object LI64(V525) |
static object LI64(V588) |
2658 |
|
|
2659 |
object V525; |
object V588; |
2660 |
{ VMB61 VMS61 VMV61 |
{ VMB61 VMS61 VMV61 |
2661 |
goto TTL; |
goto TTL; |
2662 |
TTL:; |
TTL:; |
2663 |
{register object V526; |
{register object V589; |
2664 |
V526= (V525); |
V589= (V588); |
2665 |
{register object V527; |
{register object V590; |
2666 |
object V528; |
object V591; |
2667 |
V529= (long)STREF(unsigned short,(V526),4); |
V592= (long)STREF(unsigned short,(V589),4); |
2668 |
if(!((V529)==(1))){ |
if(!((V592)==(1))){ |
2669 |
goto T871;} |
goto T871;} |
2670 |
V527= small_fixnum(0); |
V590= small_fixnum(0); |
2671 |
goto T869; |
goto T869; |
2672 |
goto T871; |
goto T871; |
2673 |
T871:; |
T871:; |
2674 |
V527= small_fixnum(1); |
V590= small_fixnum(1); |
2675 |
goto T869; |
goto T869; |
2676 |
T869:; |
T869:; |
2677 |
V530= STREF(object,(V526),20); |
V593= STREF(object,(V589),20); |
2678 |
V531= CMPmake_fixnum((long)STREF(fixnum,(V526),12)); |
V594= CMPmake_fixnum((long)STREF(fixnum,(V589),12)); |
2679 |
V528= ( |
V591= ( |
2680 |
V532 = V530, |
V595 = V593, |
2681 |
(type_of(V532) == t_sfun ?(*((V532)->sfn.sfn_self)): |
(type_of(V595) == t_sfun ?(*((V595)->sfn.sfn_self)): |
2682 |
(fcall.argd=1,type_of(V532)==t_vfun) ? |
(fcall.argd=1,type_of(V595)==t_vfun) ? |
2683 |
(*((V532)->sfn.sfn_self)): |
(*((V595)->sfn.sfn_self)): |
2684 |
(fcall.fun=(V532),fcalln))(V531)); |
(fcall.fun=(V595),fcalln))(V594)); |
2685 |
{long V533; |
{long V596; |
2686 |
register long V534; |
register long V597; |
2687 |
V533= (long)STREF(fixnum,(V526),12); |
V596= (long)STREF(fixnum,(V589),12); |
2688 |
V534= 0; |
V597= 0; |
2689 |
goto T880; |
goto T880; |
2690 |
T880:; |
T880:; |
2691 |
if(!((V534)>=(V533))){ |
if(!((V597)>=(V596))){ |
2692 |
goto T881;} |
goto T881;} |
2693 |
{object V535 = (V525); |
{object V598 = (V588); |
2694 |
VMR61(V535)} |
VMR61(V598)} |
2695 |
goto T881; |
goto T881; |
2696 |
T881:; |
T881:; |
2697 |
{long V536; |
{long V599; |
2698 |
V536= fix((V527)); |
V599= fix((V590)); |
2699 |
V537= (long)STREF(unsigned short,(V526),4); |
V600= (long)STREF(unsigned short,(V589),4); |
2700 |
if((V537)==(1)){ |
if((V600)==(1)){ |
2701 |
goto T889;} |
goto T889;} |
2702 |
goto T887; |
goto T887; |
2703 |
goto T889; |
goto T889; |
2704 |
T889:; |
T889:; |
2705 |
if((V536)==(0)){ |
if((V599)==(0)){ |
2706 |
goto T884;}} |
goto T884;}} |
2707 |
goto T887; |
goto T887; |
2708 |
T887:; |
T887:; |
2709 |
{object V538; |
{object V601; |
2710 |
V538= CMPmake_fixnum(V534); |
V601= CMPmake_fixnum(V597); |
2711 |
{long V539; |
{long V602; |
2712 |
V539= fix((V538)); |
V602= fix((V601)); |
2713 |
V540= (long)STREF(unsigned short,(V526),4); |
V603= (long)STREF(unsigned short,(V589),4); |
2714 |
if((V540)==(1)){ |
if((V603)==(1)){ |
2715 |
goto T897;} |
goto T897;} |
2716 |
goto T893; |
goto T893; |
2717 |
goto T897; |
goto T897; |
2718 |
T897:; |
T897:; |
2719 |
if(!((V539)==(0))){ |
if(!((V602)==(0))){ |
2720 |
goto T893;}} |
goto T893;}} |
2721 |
base[0]= VV[155]; |
base[0]= VV[155]; |
2722 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2724 |
vs_top=sup; |
vs_top=sup; |
2725 |
goto T893; |
goto T893; |
2726 |
T893:; |
T893:; |
2727 |
V541= STREF(object,(V526),40); |
V604= STREF(object,(V589),40); |
2728 |
{register long V543; |
{register long V606; |
2729 |
V543= fix((V538)); |
V606= fix((V601)); |
2730 |
{long V544; |
{long V607; |
2731 |
V544= V543; |
V607= V606; |
2732 |
V545= (long)STREF(unsigned short,(V526),4); |
V608= (long)STREF(unsigned short,(V589),4); |
2733 |
if((V545)==(1)){ |
if((V608)==(1)){ |
2734 |
goto T908;} |
goto T908;} |
2735 |
goto T904; |
goto T904; |
2736 |
goto T908; |
goto T908; |
2737 |
T908:; |
T908:; |
2738 |
if(!((V544)==(0))){ |
if(!((V607)==(0))){ |
2739 |
goto T904;}} |
goto T904;}} |
2740 |
base[0]= VV[156]; |
base[0]= VV[156]; |
2741 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2743 |
vs_top=sup; |
vs_top=sup; |
2744 |
goto T904; |
goto T904; |
2745 |
T904:; |
T904:; |
2746 |
V546= (long)STREF(unsigned short,(V526),4); |
V609= (long)STREF(unsigned short,(V589),4); |
2747 |
if(!((V546)==(1))){ |
if(!((V609)==(1))){ |
2748 |
goto T913;} |
goto T913;} |
2749 |
V547= (long)STREF(unsigned short,(V526),32); |
V610 = V606; |
2750 |
V542= (long)(V543)*(V547); |
V611= (long)STREF(unsigned short,(V589),32); |
2751 |
|
V605= (long)(V610)*(V611); |
2752 |
goto T902; |
goto T902; |
2753 |
goto T913; |
goto T913; |
2754 |
T913:; |
T913:; |
2755 |
V548= (long)STREF(unsigned short,(V526),32); |
V612 = V606; |
2756 |
V542= (long)((long)(V543)*(V548))+1;} |
V613= (long)STREF(unsigned short,(V589),32); |
2757 |
|
V605= (long)((long)(V612)*(V613))+1;} |
2758 |
goto T902; |
goto T902; |
2759 |
T902:; |
T902:; |
2760 |
if(!(((((V541)->v.v_self[V542])==Cnil?Ct:Cnil))==Cnil)){ |
if(!(((((V604)->v.v_self[V605])==Cnil?Ct:Cnil))==Cnil)){ |
2761 |
goto T884;}} |
goto T884;}} |
2762 |
{register object V549; |
{register object V614; |
2763 |
object V550; |
object V615; |
2764 |
register object V551; |
register object V616; |
2765 |
V549= (VFUN_NARGS=2,(*(LnkLI210))((V525),(V527))); |
V614= (VFUN_NARGS=2,(*(LnkLI210))((V588),(V590))); |
2766 |
{long V552; |
{long V617; |
2767 |
{long V553; |
{long V618; |
2768 |
V553= fix((V549)); |
V618= fix((V614)); |
2769 |
V554= (long)STREF(unsigned short,(V526),4); |
V619= (long)STREF(unsigned short,(V589),4); |
2770 |
if((V554)==(1)){ |
if((V619)==(1)){ |
2771 |
goto T925;} |
goto T925;} |
2772 |
goto T922; |
goto T922; |
2773 |
goto T925; |
goto T925; |
2774 |
T925:; |
T925:; |
2775 |
if(!((V553)==(0))){ |
if(!((V618)==(0))){ |
2776 |
goto T922;}} |
goto T922;}} |
2777 |
{long V555; |
{long V620; |
2778 |
V555= fix((V549)); |
V620= fix((V614)); |
2779 |
V556= (long)STREF(fixnum,(V526),36); |
V621 = V620; |
2780 |
if(!((V555)==(V556))){ |
V622= (long)STREF(fixnum,(V589),36); |
2781 |
|
if(!((V621)==(V622))){ |
2782 |
goto T930;} |
goto T930;} |
2783 |
V557= (long)STREF(unsigned short,(V526),4); |
V623= (long)STREF(unsigned short,(V589),4); |
2784 |
if(!((V557)==(1))){ |
if(!((V623)==(1))){ |
2785 |
goto T934;} |
goto T934;} |
2786 |
V552= (long)STREF(unsigned short,(V526),32); |
V617= (long)STREF(unsigned short,(V589),32); |
2787 |
goto T920; |
goto T920; |
2788 |
goto T934; |
goto T934; |
2789 |
T934:; |
T934:; |
2790 |
V552= 1; |
V617= 1; |
2791 |
goto T920; |
goto T920; |
2792 |
goto T930; |
goto T930; |
2793 |
T930:; |
T930:; |
2794 |
V558= (long)STREF(unsigned short,(V526),32); |
V624 = V620; |
2795 |
V552= (long)(V555)+(V558); |
V625= (long)STREF(unsigned short,(V589),32); |
2796 |
|
V617= (long)(V624)+(V625); |
2797 |
goto T920;} |
goto T920;} |
2798 |
goto T922; |
goto T922; |
2799 |
T922:; |
T922:; |
2800 |
V552= fix((V549)); |
V617= fix((V614)); |
2801 |
goto T920; |
goto T920; |
2802 |
T920:; |
T920:; |
2803 |
V559= (long)STREF(unsigned short,(V526),4); |
V626= (long)STREF(unsigned short,(V589),4); |
2804 |
if(!((V559)==(1))){ |
if(!((V626)==(1))){ |
2805 |
goto T939;} |
goto T939;} |
2806 |
base[3]= CMPmake_fixnum(V552); |
base[3]= CMPmake_fixnum(V617); |
2807 |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V526),32)); |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V589),32)); |
2808 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2809 |
Lfloor(); |
Lfloor(); |
2810 |
vs_top=sup; |
vs_top=sup; |
2811 |
V550= vs_base[0]; |
V615= vs_base[0]; |
2812 |
goto T919; |
goto T919; |
2813 |
goto T939; |
goto T939; |
2814 |
T939:; |
T939:; |
2815 |
base[3]= CMPmake_fixnum((long)(V552)-1); |
base[3]= CMPmake_fixnum((long)(V617)-1); |
2816 |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V526),32)); |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V589),32)); |
2817 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2818 |
Lfloor(); |
Lfloor(); |
2819 |
vs_top=sup; |
vs_top=sup; |
2820 |
V550= vs_base[0];} |
V615= vs_base[0];} |
2821 |
goto T919; |
goto T919; |
2822 |
T919:; |
T919:; |
2823 |
if(((V550))==Cnil){ |
if(((V615))==Cnil){ |
2824 |
goto T948;} |
goto T948;} |
2825 |
{long V560; |
{long V627; |
2826 |
long V561; |
long V628; |
2827 |
V560= fix((V550)); |
V627= fix((V615)); |
2828 |
V561= V534; |
V628= V597; |
2829 |
{register long V562; |
{register long V629; |
2830 |
V562= (long)(V561)-(V560); |
V629= (long)(V628)-(V627); |
2831 |
if(!((V562)<0)){ |
if(!((V629)<0)){ |
2832 |
goto T953;} |
goto T953;} |
2833 |
V563= (long)STREF(fixnum,(V526),12); |
V630 = V629; |
2834 |
V562= (long)(V562)+(V563); |
V631= (long)STREF(fixnum,(V589),12); |
2835 |
{long V564; |
V629= (long)(V630)+(V631); |
2836 |
V564= 0; |
{long V632; |
2837 |
V565= (long)STREF(unsigned short,(V526),4); |
V632= 0; |
2838 |
if((V565)==(1)){ |
V633= (long)STREF(unsigned short,(V589),4); |
2839 |
|
if((V633)==(1)){ |
2840 |
goto T962;} |
goto T962;} |
2841 |
goto T953; |
goto T953; |
2842 |
goto T962; |
goto T962; |
2843 |
T962:; |
T962:; |
2844 |
if(!((V564)==(0))){ |
if(!((V632)==(0))){ |
2845 |
goto T953;}} |
goto T953;}} |
2846 |
V562= (long)(V562)-1; |
V629= (long)(V629)-1; |
2847 |
goto T953; |
goto T953; |
2848 |
T953:; |
T953:; |
2849 |
V551= CMPmake_fixnum(V562); |
V616= CMPmake_fixnum(V629); |
2850 |
goto T946;}} |
goto T946;}} |
2851 |
goto T948; |
goto T948; |
2852 |
T948:; |
T948:; |
2853 |
V551= Cnil; |
V616= Cnil; |
2854 |
goto T946; |
goto T946; |
2855 |
T946:; |
T946:; |
2856 |
if(((V551))==Cnil){ |
if(((V616))==Cnil){ |
2857 |
goto T884;} |
goto T884;} |
2858 |
if(!(number_compare((V551),(V528))>0)){ |
if(!(number_compare((V616),(V591))>0)){ |
2859 |
goto T884;} |
goto T884;} |
2860 |
base[3]= VV[157]; |
base[3]= VV[157]; |
2861 |
base[4]= (V525); |
base[4]= (V588); |
2862 |
base[5]= (V527); |
base[5]= (V590); |
2863 |
base[6]= (V551); |
base[6]= (V616); |
2864 |
base[7]= (V528); |
base[7]= (V591); |
2865 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
2866 |
Lerror(); |
Lerror(); |
2867 |
vs_top=sup;} |
vs_top=sup;} |
2868 |
goto T884; |
goto T884; |
2869 |
T884:; |
T884:; |
2870 |
{long V566; |
{long V634; |
2871 |
V566= fix((V527)); |
V634= fix((V590)); |
2872 |
V567= (long)STREF(fixnum,(V526),36); |
V635 = V634; |
2873 |
if(!((V566)==(V567))){ |
V636= (long)STREF(fixnum,(V589),36); |
2874 |
|
if(!((V635)==(V636))){ |
2875 |
goto T979;} |
goto T979;} |
2876 |
V568= (long)STREF(unsigned short,(V526),4); |
V637= (long)STREF(unsigned short,(V589),4); |
2877 |
if(!((V568)==(1))){ |
if(!((V637)==(1))){ |
2878 |
goto T983;} |
goto T983;} |
2879 |
V527= CMPmake_fixnum((long)STREF(unsigned short,(V526),32)); |
V590= CMPmake_fixnum((long)STREF(unsigned short,(V589),32)); |
2880 |
goto T976; |
goto T976; |
2881 |
goto T983; |
goto T983; |
2882 |
T983:; |
T983:; |
2883 |
V527= small_fixnum(1); |
V590= small_fixnum(1); |
2884 |
goto T976; |
goto T976; |
2885 |
goto T979; |
goto T979; |
2886 |
T979:; |
T979:; |
2887 |
V569= (long)STREF(unsigned short,(V526),32); |
V638 = V634; |
2888 |
V527= CMPmake_fixnum((long)(V566)+(V569));} |
V639= (long)STREF(unsigned short,(V589),32); |
2889 |
|
V590= CMPmake_fixnum((long)(V638)+(V639));} |
2890 |
goto T976; |
goto T976; |
2891 |
T976:; |
T976:; |
2892 |
V534= (long)(V534)+1; |
V597= (long)(V597)+1; |
2893 |
goto T880;}}} |
goto T880;}}} |
2894 |
base[0]=base[0]; |
base[0]=base[0]; |
2895 |
return Cnil; |
return Cnil; |
2896 |
} |
} |
2897 |
/* local entry for function PROBE-CACHE */ |
/* local entry for function PROBE-CACHE */ |
2898 |
|
|
2899 |
static object LI65(object V571,object V570,object first,...) |
static object LI65(object V641,object V640,object first,...) |
2900 |
{ |
{ |
2901 |
va_list ap; |
va_list ap; |
2902 |
int narg = VFUN_NARGS; VMB62 VMS62 VMV62 |
int narg = VFUN_NARGS; VMB62 VMS62 VMV62 |
2903 |
{object V572; |
{object V642; |
2904 |
object V573; |
object V643; |
2905 |
object V574; |
object V644; |
2906 |
object V575; |
object V645; |
2907 |
va_start(ap,first); |
va_start(ap,first); |
2908 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2909 |
V572= V571; |
V642= V641; |
2910 |
V573= V570; |
V643= V640; |
2911 |
narg = narg - 2; |
narg = narg - 2; |
2912 |
if (narg <= 0) goto T990; |
if (narg <= 0) goto T990; |
2913 |
else { |
else { |
2914 |
V574= first;} |
V644= first;} |
2915 |
if (--narg <= 0) goto T991; |
if (--narg <= 0) goto T991; |
2916 |
else { |
else { |
2917 |
V575= va_arg(ap,object);} |
V645= va_arg(ap,object);} |
2918 |
--narg; goto T992; |
--narg; goto T992; |
2919 |
goto T990; |
goto T990; |
2920 |
T990:; |
T990:; |
2921 |
V574= Cnil; |
V644= Cnil; |
2922 |
goto T991; |
goto T991; |
2923 |
T991:; |
T991:; |
2924 |
V575= Cnil; |
V645= Cnil; |
2925 |
goto T992; |
goto T992; |
2926 |
T992:; |
T992:; |
2927 |
if(((V573))!=Cnil){ |
if(((V643))!=Cnil){ |
2928 |
goto T995;} |
goto T995;} |
2929 |
base[0]= VV[158]; |
base[0]= VV[158]; |
2930 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2932 |
vs_top=sup; |
vs_top=sup; |
2933 |
goto T995; |
goto T995; |
2934 |
T995:; |
T995:; |
2935 |
{register object V576; |
{register object V646; |
2936 |
V576= (V572); |
V646= (V642); |
2937 |
{register long V577; |
{register long V647; |
2938 |
long V578; |
long V648; |
2939 |
V579= (long)STREF(unsigned char,(V576),16); |
V649= (long)STREF(unsigned char,(V646),16); |
2940 |
V580= (long)STREF(fixnum,(V576),24); |
V650= (long)STREF(fixnum,(V646),24); |
2941 |
V577= (long)(*(LnkLI211))(V579,V580,(V573)); |
V651 = (V643); |
2942 |
if((V575)==Cnil){ |
V647= (long)(*(LnkLI211))(V649,V650,V651); |
2943 |
|
if((V645)==Cnil){ |
2944 |
goto T1005;} |
goto T1005;} |
2945 |
V581= V575; |
V652= V645; |
2946 |
goto T1003; |
goto T1003; |
2947 |
goto T1005; |
goto T1005; |
2948 |
T1005:; |
T1005:; |
2949 |
V581= STREF(object,(V576),20); |
V652= STREF(object,(V646),20); |
2950 |
goto T1003; |
goto T1003; |
2951 |
T1003:; |
T1003:; |
2952 |
V583= CMPmake_fixnum((long)STREF(fixnum,(V576),12)); |
V654= CMPmake_fixnum((long)STREF(fixnum,(V646),12)); |
2953 |
V578= fix(( |
V648= fix(( |
2954 |
V584 = V581, |
V655 = V652, |
2955 |
(type_of(V584) == t_sfun ?(*((V584)->sfn.sfn_self)): |
(type_of(V655) == t_sfun ?(*((V655)->sfn.sfn_self)): |
2956 |
(fcall.argd=1,type_of(V584)==t_vfun) ? |
(fcall.argd=1,type_of(V655)==t_vfun) ? |
2957 |
(*((V584)->sfn.sfn_self)): |
(*((V655)->sfn.sfn_self)): |
2958 |
(fcall.fun=(V584),fcalln))(V583))); |
(fcall.fun=(V655),fcalln))(V654))); |
2959 |
{long V585; |
{long V656; |
2960 |
V585= V577; |
V656= V647; |
2961 |
V586= (long)STREF(unsigned short,(V576),4); |
V657= (long)STREF(unsigned short,(V646),4); |
2962 |
if((V586)==(1)){ |
if((V657)==(1)){ |
2963 |
goto T1012;} |
goto T1012;} |
2964 |
goto T1008; |
goto T1008; |
2965 |
goto T1012; |
goto T1012; |
2966 |
T1012:; |
T1012:; |
2967 |
if(!((V585)==(0))){ |
if(!((V656)==(0))){ |
2968 |
goto T1008;}} |
goto T1008;}} |
2969 |
{long V587; |
{long V658; |
2970 |
V587= V577; |
V658= V647; |
2971 |
V588= (long)STREF(fixnum,(V576),36); |
V659 = V658; |
2972 |
if(!((V587)==(V588))){ |
V660= (long)STREF(fixnum,(V646),36); |
2973 |
|
if(!((V659)==(V660))){ |
2974 |
goto T1018;} |
goto T1018;} |
2975 |
V589= (long)STREF(unsigned short,(V576),4); |
V661= (long)STREF(unsigned short,(V646),4); |
2976 |
if(!((V589)==(1))){ |
if(!((V661)==(1))){ |
2977 |
goto T1022;} |
goto T1022;} |
2978 |
V577= (long)STREF(unsigned short,(V576),32); |
V647= (long)STREF(unsigned short,(V646),32); |
2979 |
goto T1015; |
goto T1015; |
2980 |
goto T1022; |
goto T1022; |
2981 |
T1022:; |
T1022:; |
2982 |
V577= 1; |
V647= 1; |
2983 |
goto T1015; |
goto T1015; |
2984 |
goto T1018; |
goto T1018; |
2985 |
T1018:; |
T1018:; |
2986 |
V590= (long)STREF(unsigned short,(V576),32); |
V662 = V658; |
2987 |
V577= (long)(V587)+(V590);} |
V663= (long)STREF(unsigned short,(V646),32); |
2988 |
|
V647= (long)(V662)+(V663);} |
2989 |
goto T1015; |
goto T1015; |
2990 |
T1015:; |
T1015:; |
2991 |
goto T1008; |
goto T1008; |
2992 |
T1008:; |
T1008:; |
2993 |
{long V591; |
{long V664; |
2994 |
long V592; |
long V665; |
2995 |
V591= (long)(V578)+1; |
V664= (long)(V648)+1; |
2996 |
V592= 0; |
V665= 0; |
2997 |
goto T1030; |
goto T1030; |
2998 |
T1030:; |
T1030:; |
2999 |
if(!((V592)>=(V591))){ |
if(!((V665)>=(V664))){ |
3000 |
goto T1031;} |
goto T1031;} |
3001 |
goto T1026; |
goto T1026; |
3002 |
goto T1031; |
goto T1031; |
3003 |
T1031:; |
T1031:; |
3004 |
{register long V593; |
{register long V666; |
3005 |
register object V594; |
register object V667; |
3006 |
V593= V577; |
V666= V647; |
3007 |
V594= (V573); |
V667= (V643); |
3008 |
{register object V595; |
{register object V668; |
3009 |
V595= STREF(object,(V576),40); |
V668= STREF(object,(V646),40); |
3010 |
V596= (long)STREF(unsigned short,(V576),4); |
V669= (long)STREF(unsigned short,(V646),4); |
3011 |
if(!((V596)==(1))){ |
if(!((V669)==(1))){ |
3012 |
goto T1040;} |
goto T1040;} |
3013 |
if(!(((V594))==(((V595))->v.v_self[V593]))){ |
if(!(((V667))==(((V668))->v.v_self[V666]))){ |
3014 |
goto T1034;} |
goto T1034;} |
3015 |
goto T1036; |
goto T1036; |
3016 |
goto T1040; |
goto T1040; |
3017 |
T1040:; |
T1040:; |
3018 |
{long V597; |
{long V670; |
3019 |
register long V598; |
register long V671; |
3020 |
V597= (long)STREF(unsigned short,(V576),4); |
V670= (long)STREF(unsigned short,(V646),4); |
3021 |
V598= 0; |
V671= 0; |
3022 |
goto T1046; |
goto T1046; |
3023 |
T1046:; |
T1046:; |
3024 |
if(!((V598)>=(V597))){ |
if(!((V671)>=(V670))){ |
3025 |
goto T1047;} |
goto T1047;} |
3026 |
goto T1036; |
goto T1036; |
3027 |
goto T1047; |
goto T1047; |
3028 |
T1047:; |
T1047:; |
3029 |
{object V600; |
{object V673; |
3030 |
V600= CMPcar((V594)); |
V673= CMPcar((V667)); |
3031 |
V594= CMPcdr((V594)); |
V667= CMPcdr((V667)); |
3032 |
V599= (V600);} |
V672= (V673);} |
3033 |
if((V599)==(((V595))->v.v_self[(long)(V593)+(V598)])){ |
if((V672)==(((V668))->v.v_self[(long)(V666)+(V671)])){ |
3034 |
goto T1050;} |
goto T1050;} |
3035 |
goto T1034; |
goto T1034; |
3036 |
goto T1050; |
goto T1050; |
3037 |
T1050:; |
T1050:; |
3038 |
V598= (long)(V598)+1; |
V671= (long)(V671)+1; |
3039 |
goto T1046;}}} |
goto T1046;}}} |
3040 |
goto T1036; |
goto T1036; |
3041 |
T1036:; |
T1036:; |
3042 |
V601= STREF(object,(V576),8); |
V674= STREF(object,(V646),8); |
3043 |
if(!((V601)==Cnil)){ |
if(!((V674)==Cnil)){ |
3044 |
goto T1060;} |
goto T1060;} |
3045 |
{object V602 = Ct; |
{object V675 = Ct; |
3046 |
VMR62(V602)} |
VMR62(V675)} |
3047 |
goto T1060; |
goto T1060; |
3048 |
T1060:; |
T1060:; |
3049 |
{long V603; |
{long V676; |
3050 |
V603= V577; |
V676= V647; |
3051 |
if((STREF(object,(V576),8))!=Cnil){ |
if((STREF(object,(V646),8))!=Cnil){ |
3052 |
goto T1064;} |
goto T1064;} |
3053 |
{object V604 = Cnil; |
{object V677 = Cnil; |
3054 |
VMR62(V604)} |
VMR62(V677)} |
3055 |
goto T1064; |
goto T1064; |
3056 |
T1064:; |
T1064:; |
3057 |
V605= STREF(object,(V576),40); |
V678= STREF(object,(V646),40); |
3058 |
V606= (long)STREF(unsigned short,(V576),4); |
V679 = V676; |
3059 |
{object V607 = (V605)->v.v_self[(long)(V603)+(V606)]; |
V680= (long)STREF(unsigned short,(V646),4); |
3060 |
VMR62(V607)}} |
{object V681 = (V678)->v.v_self[(long)(V679)+(V680)]; |
3061 |
|
VMR62(V681)}} |
3062 |
goto T1034; |
goto T1034; |
3063 |
T1034:; |
T1034:; |
3064 |
{long V608; |
{long V682; |
3065 |
V608= V577; |
V682= V647; |
3066 |
V609= (long)STREF(fixnum,(V576),36); |
V683 = V682; |
3067 |
if(!((V608)==(V609))){ |
V684= (long)STREF(fixnum,(V646),36); |
3068 |
|
if(!((V683)==(V684))){ |
3069 |
goto T1072;} |
goto T1072;} |
3070 |
V610= (long)STREF(unsigned short,(V576),4); |
V685= (long)STREF(unsigned short,(V646),4); |
3071 |
if(!((V610)==(1))){ |
if(!((V685)==(1))){ |
3072 |
goto T1076;} |
goto T1076;} |
3073 |
V577= (long)STREF(unsigned short,(V576),32); |
V647= (long)STREF(unsigned short,(V646),32); |
3074 |
goto T1069; |
goto T1069; |
3075 |
goto T1076; |
goto T1076; |
3076 |
T1076:; |
T1076:; |
3077 |
V577= 1; |
V647= 1; |
3078 |
goto T1069; |
goto T1069; |
3079 |
goto T1072; |
goto T1072; |
3080 |
T1072:; |
T1072:; |
3081 |
V611= (long)STREF(unsigned short,(V576),32); |
V686 = V682; |
3082 |
V577= (long)(V608)+(V611);} |
V687= (long)STREF(unsigned short,(V646),32); |
3083 |
|
V647= (long)(V686)+(V687);} |
3084 |
goto T1069; |
goto T1069; |
3085 |
T1069:; |
T1069:; |
3086 |
V592= (long)(V592)+1; |
V665= (long)(V665)+1; |
3087 |
goto T1030;} |
goto T1030;} |
3088 |
goto T1026; |
goto T1026; |
3089 |
T1026:; |
T1026:; |
3090 |
{register object V612; |
{register object V688; |
3091 |
object V613; |
object V689; |
3092 |
V612= STREF(object,(V576),44); |
V688= STREF(object,(V646),44); |
3093 |
V613= CMPcar((V612)); |
V689= CMPcar((V688)); |
3094 |
goto T1087; |
goto T1087; |
3095 |
T1087:; |
T1087:; |
3096 |
if(!(((V612))==Cnil)){ |
if(!(((V688))==Cnil)){ |
3097 |
goto T1088;} |
goto T1088;} |
3098 |
goto T1083; |
goto T1083; |
3099 |
goto T1088; |
goto T1088; |
3100 |
T1088:; |
T1088:; |
3101 |
if(!(equal(CMPcar((V613)),(V573)))){ |
if(!(equal(CMPcar((V689)),(V643)))){ |
3102 |
goto T1092;} |
goto T1092;} |
3103 |
V614= STREF(object,(V576),8); |
V690= STREF(object,(V646),8); |
3104 |
if(!((V614)==Cnil)){ |
if(!((V690)==Cnil)){ |
3105 |
goto T1095;} |
goto T1095;} |
3106 |
{object V615 = Ct; |
{object V691 = Ct; |
3107 |
VMR62(V615)} |
VMR62(V691)} |
3108 |
goto T1095; |
goto T1095; |
3109 |
T1095:; |
T1095:; |
3110 |
{object V616 = CMPcdr((V613)); |
{object V692 = CMPcdr((V689)); |
3111 |
VMR62(V616)} |
VMR62(V692)} |
3112 |
goto T1092; |
goto T1092; |
3113 |
T1092:; |
T1092:; |
3114 |
V612= CMPcdr((V612)); |
V688= CMPcdr((V688)); |
3115 |
V613= CMPcar((V612)); |
V689= CMPcar((V688)); |
3116 |
goto T1087;} |
goto T1087;} |
3117 |
goto T1083; |
goto T1083; |
3118 |
T1083:; |
T1083:; |
3119 |
{object V617 = (V574); |
{object V693 = (V644); |
3120 |
VMR62(V617)}}} |
VMR62(V693)}}} |
3121 |
va_end(ap); |
va_end(ap); |
3122 |
base[0]=base[0]; |
base[0]=base[0]; |
3123 |
return Cnil;} |
return Cnil;} |
3124 |
} |
} |
3125 |
/* local entry for function MAP-CACHE */ |
/* local entry for function MAP-CACHE */ |
3126 |
|
|
3127 |
static object LI66(object V619,object V618,object first,...) |
static object LI66(object V695,object V694,object first,...) |
3128 |
{ |
{ |
3129 |
va_list ap; |
va_list ap; |
3130 |
int narg = VFUN_NARGS; VMB63 VMS63 VMV63 |
int narg = VFUN_NARGS; VMB63 VMS63 VMV63 |
3131 |
{object V620; |
{object V696; |
3132 |
object V621; |
object V697; |
3133 |
object V622; |
object V698; |
3134 |
va_start(ap,first); |
va_start(ap,first); |
3135 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
3136 |
V620= V619; |
V696= V695; |
3137 |
V621= V618; |
V697= V694; |
3138 |
narg = narg - 2; |
narg = narg - 2; |
3139 |
if (narg <= 0) goto T1103; |
if (narg <= 0) goto T1103; |
3140 |
else { |
else { |
3141 |
V622= first;} |
V698= first;} |
3142 |
--narg; goto T1104; |
--narg; goto T1104; |
3143 |
goto T1103; |
goto T1103; |
3144 |
T1103:; |
T1103:; |
3145 |
V622= Cnil; |
V698= Cnil; |
3146 |
goto T1104; |
goto T1104; |
3147 |
T1104:; |
T1104:; |
3148 |
{register object V623; |
{register object V699; |
3149 |
V623= (V621); |
V699= (V697); |
3150 |
{object V624; |
{object V700; |
3151 |
if((V622)==Cnil){ |
if((V698)==Cnil){ |
3152 |
V624= Cnil; |
V700= Cnil; |
3153 |
goto T1107;} |
goto T1107;} |
3154 |
V624= STREF(object,(V623),8); |
V700= STREF(object,(V699),8); |
3155 |
goto T1107; |
goto T1107; |
3156 |
T1107:; |
T1107:; |
3157 |
{long V625; |
{long V701; |
3158 |
register long V626; |
register long V702; |
3159 |
V625= (long)STREF(fixnum,(V623),12); |
V701= (long)STREF(fixnum,(V699),12); |
3160 |
V626= 0; |
V702= 0; |
3161 |
goto T1112; |
goto T1112; |
3162 |
T1112:; |
T1112:; |
3163 |
if(!((V626)>=(V625))){ |
if(!((V702)>=(V701))){ |
3164 |
goto T1113;} |
goto T1113;} |
3165 |
goto T1108; |
goto T1108; |
3166 |
goto T1113; |
goto T1113; |
3167 |
T1113:; |
T1113:; |
3168 |
{long V627; |
{long V703; |
3169 |
V627= V626; |
V703= V702; |
3170 |
V628= (long)STREF(unsigned short,(V623),4); |
V704= (long)STREF(unsigned short,(V699),4); |
3171 |
if((V628)==(1)){ |
if((V704)==(1)){ |
3172 |
goto T1121;} |
goto T1121;} |
3173 |
goto T1119; |
goto T1119; |
3174 |
goto T1121; |
goto T1121; |
3175 |
T1121:; |
T1121:; |
3176 |
if((V627)==(0)){ |
if((V703)==(0)){ |
3177 |
goto T1116;}} |
goto T1116;}} |
3178 |
goto T1119; |
goto T1119; |
3179 |
T1119:; |
T1119:; |
3180 |
{long V629; |
{long V705; |
3181 |
V629= V626; |
V705= V702; |
3182 |
{long V631; |
{long V707; |
3183 |
V631= V629; |
V707= V705; |
3184 |
V632= (long)STREF(unsigned short,(V623),4); |
V708= (long)STREF(unsigned short,(V699),4); |
3185 |
if((V632)==(1)){ |
if((V708)==(1)){ |
3186 |
goto T1130;} |
goto T1130;} |
3187 |
goto T1126; |
goto T1126; |
3188 |
goto T1130; |
goto T1130; |
3189 |
T1130:; |
T1130:; |
3190 |
if(!((V631)==(0))){ |
if(!((V707)==(0))){ |
3191 |
goto T1126;}} |
goto T1126;}} |
3192 |
base[0]= VV[159]; |
base[0]= VV[159]; |
3193 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3195 |
vs_top=sup; |
vs_top=sup; |
3196 |
goto T1126; |
goto T1126; |
3197 |
T1126:; |
T1126:; |
3198 |
{long V633; |
{long V709; |
3199 |
register object V634; |
register object V710; |
3200 |
{long V635; |
{long V711; |
3201 |
V635= V629; |
V711= V705; |
3202 |
{long V636; |
{long V712; |
3203 |
V636= V635; |
V712= V711; |
3204 |
V637= (long)STREF(unsigned short,(V623),4); |
V713= (long)STREF(unsigned short,(V699),4); |
3205 |
if((V637)==(1)){ |
if((V713)==(1)){ |
3206 |
goto T1140;} |
goto T1140;} |
3207 |
goto T1136; |
goto T1136; |
3208 |
goto T1140; |
goto T1140; |
3209 |
T1140:; |
T1140:; |
3210 |
if(!((V636)==(0))){ |
if(!((V712)==(0))){ |
3211 |
goto T1136;}} |
goto T1136;}} |
3212 |
base[0]= VV[156]; |
base[0]= VV[156]; |
3213 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3215 |
vs_top=sup; |
vs_top=sup; |
3216 |
goto T1136; |
goto T1136; |
3217 |
T1136:; |
T1136:; |
3218 |
V638= (long)STREF(unsigned short,(V623),4); |
V714= (long)STREF(unsigned short,(V699),4); |
3219 |
if(!((V638)==(1))){ |
if(!((V714)==(1))){ |
3220 |
goto T1145;} |
goto T1145;} |
3221 |
V639= (long)STREF(unsigned short,(V623),32); |
V715 = V711; |
3222 |
V633= (long)(V635)*(V639); |
V716= (long)STREF(unsigned short,(V699),32); |
3223 |
|
V709= (long)(V715)*(V716); |
3224 |
goto T1134; |
goto T1134; |
3225 |
goto T1145; |
goto T1145; |
3226 |
T1145:; |
T1145:; |
3227 |
V640= (long)STREF(unsigned short,(V623),32); |
V717 = V711; |
3228 |
V633= (long)((long)(V635)*(V640))+1;} |
V718= (long)STREF(unsigned short,(V699),32); |
3229 |
|
V709= (long)((long)(V717)*(V718))+1;} |
3230 |
goto T1134; |
goto T1134; |
3231 |
T1134:; |
T1134:; |
3232 |
V634= Cnil; |
V710= Cnil; |
3233 |
{object V641; |
{object V719; |
3234 |
object V642; |
object V720; |
3235 |
V641= STREF(object,(V623),40); |
V719= STREF(object,(V699),40); |
3236 |
V642= (((V634))==Cnil?Ct:Cnil); |
V720= (((V710))==Cnil?Ct:Cnil); |
3237 |
{long V643; |
{long V721; |
3238 |
register long V644; |
register long V722; |
3239 |
V643= (long)STREF(unsigned short,(V623),4); |
V721= (long)STREF(unsigned short,(V699),4); |
3240 |
V644= 0; |
V722= 0; |
3241 |
goto T1155; |
goto T1155; |
3242 |
T1155:; |
T1155:; |
3243 |
if(!((V644)>=(V643))){ |
if(!((V722)>=(V721))){ |
3244 |
goto T1156;} |
goto T1156;} |
3245 |
if(((V642))==Cnil){ |
if(((V720))==Cnil){ |
3246 |
goto T1116;} |
goto T1116;} |
3247 |
goto T1124; |
goto T1124; |
3248 |
goto T1156; |
goto T1156; |
3249 |
T1156:; |
T1156:; |
3250 |
{register object V645; |
{register object V723; |
3251 |
V645= ((V641))->v.v_self[(long)(V633)+(V644)]; |
V723= ((V719))->v.v_self[(long)(V709)+(V722)]; |
3252 |
if(((V645))==Cnil){ |
if(((V723))==Cnil){ |
3253 |
goto T1162;} |
goto T1162;} |
3254 |
if(!((((((V645))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((V723))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
3255 |
goto T1161;} |
goto T1161;} |
3256 |
goto T1162; |
goto T1162; |
3257 |
T1162:; |
T1162:; |
3258 |
goto T1116; |
goto T1116; |
3259 |
goto T1161; |
goto T1161; |
3260 |
T1161:; |
T1161:; |
3261 |
if(((V634))==Cnil){ |
if(((V710))==Cnil){ |
3262 |
goto T1166;} |
goto T1166;} |
3263 |
if(!(type_of((V634))==t_cons)){ |
V724 = (V723); |
3264 |
|
if(!(type_of((V710))==t_cons)){ |
3265 |
goto T1172;} |
goto T1172;} |
3266 |
{object V647; |
{object V726; |
3267 |
V647= CMPcar((V634)); |
V726= CMPcar((V710)); |
3268 |
V634= CMPcdr((V634)); |
V710= CMPcdr((V710)); |
3269 |
V646= (V647); |
V725= (V726); |
3270 |
goto T1170;} |
goto T1170;} |
3271 |
goto T1172; |
goto T1172; |
3272 |
T1172:; |
T1172:; |
3273 |
V646= (V634); |
V725= (V710); |
3274 |
goto T1170; |
goto T1170; |
3275 |
T1170:; |
T1170:; |
3276 |
if(((V645))==(V646)){ |
if((V724)==(V725)){ |
3277 |
goto T1159;} |
goto T1159;} |
3278 |
goto T1166; |
goto T1166; |
3279 |
T1166:; |
T1166:; |
3280 |
V642= Ct;} |
V720= Ct;} |
3281 |
goto T1159; |
goto T1159; |
3282 |
T1159:; |
T1159:; |
3283 |
V644= (long)(V644)+1; |
V722= (long)(V722)+1; |
3284 |
goto T1155;}}}} |
goto T1155;}}}} |
3285 |
goto T1124; |
goto T1124; |
3286 |
T1124:; |
T1124:; |
3287 |
{object V648; |
{object V727; |
3288 |
{long V650; |
V728 = (V696); |
3289 |
V650= V626; |
{long V730; |
3290 |
{long V651; |
V730= V702; |
3291 |
V651= V650; |
{long V731; |
3292 |
V652= (long)STREF(unsigned short,(V623),4); |
V731= V730; |
3293 |
if((V652)==(1)){ |
V732= (long)STREF(unsigned short,(V699),4); |
3294 |
|
if((V732)==(1)){ |
3295 |
goto T1188;} |
goto T1188;} |
3296 |
goto T1184; |
goto T1184; |
3297 |
goto T1188; |
goto T1188; |
3298 |
T1188:; |
T1188:; |
3299 |
if(!((V651)==(0))){ |
if(!((V731)==(0))){ |
3300 |
goto T1184;}} |
goto T1184;}} |
3301 |
base[0]= VV[160]; |
base[0]= VV[160]; |
3302 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3304 |
vs_top=sup; |
vs_top=sup; |
3305 |
goto T1184; |
goto T1184; |
3306 |
T1184:; |
T1184:; |
3307 |
{long V653; |
{long V733; |
3308 |
{long V654; |
{long V734; |
3309 |
V654= V650; |
V734= V730; |
3310 |
{long V655; |
{long V735; |
3311 |
V655= V654; |
V735= V734; |
3312 |
V656= (long)STREF(unsigned short,(V623),4); |
V736= (long)STREF(unsigned short,(V699),4); |
3313 |
if((V656)==(1)){ |
if((V736)==(1)){ |
3314 |
goto T1198;} |
goto T1198;} |
3315 |
goto T1194; |
goto T1194; |
3316 |
goto T1198; |
goto T1198; |
3317 |
T1198:; |
T1198:; |
3318 |
if(!((V655)==(0))){ |
if(!((V735)==(0))){ |
3319 |
goto T1194;}} |
goto T1194;}} |
3320 |
base[0]= VV[156]; |
base[0]= VV[156]; |
3321 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3323 |
vs_top=sup; |
vs_top=sup; |
3324 |
goto T1194; |
goto T1194; |
3325 |
T1194:; |
T1194:; |
3326 |
V657= (long)STREF(unsigned short,(V623),4); |
V737= (long)STREF(unsigned short,(V699),4); |
3327 |
if(!((V657)==(1))){ |
if(!((V737)==(1))){ |
3328 |
goto T1203;} |
goto T1203;} |
3329 |
V658= (long)STREF(unsigned short,(V623),32); |
V738 = V734; |
3330 |
V653= (long)(V654)*(V658); |
V739= (long)STREF(unsigned short,(V699),32); |
3331 |
|
V733= (long)(V738)*(V739); |
3332 |
goto T1192; |
goto T1192; |
3333 |
goto T1203; |
goto T1203; |
3334 |
T1203:; |
T1203:; |
3335 |
V659= (long)STREF(unsigned short,(V623),32); |
V740 = V734; |
3336 |
V653= (long)((long)(V654)*(V659))+1;} |
V741= (long)STREF(unsigned short,(V699),32); |
3337 |
|
V733= (long)((long)(V740)*(V741))+1;} |
3338 |
goto T1192; |
goto T1192; |
3339 |
T1192:; |
T1192:; |
3340 |
V660= (long)STREF(unsigned short,(V623),4); |
V742= (long)STREF(unsigned short,(V699),4); |
3341 |
if(!((V660)==(1))){ |
if(!((V742)==(1))){ |
3342 |
goto T1209;} |
goto T1209;} |
3343 |
V661= STREF(object,(V623),40); |
V743= STREF(object,(V699),40); |
3344 |
V649= (V661)->v.v_self[V653]; |
V744 = V733; |
3345 |
|
V729= (V743)->v.v_self[V744]; |
3346 |
goto T1182; |
goto T1182; |
3347 |
goto T1209; |
goto T1209; |
3348 |
T1209:; |
T1209:; |
3349 |
{object V662; |
{object V745; |
3350 |
object V663; |
object V746; |
3351 |
base[0]= CMPmake_fixnum((long)STREF(unsigned short,(V623),4)); |
base[0]= CMPmake_fixnum((long)STREF(unsigned short,(V699),4)); |
3352 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3353 |
Lmake_list(); |
Lmake_list(); |
3354 |
vs_top=sup; |
vs_top=sup; |
3355 |
V662= vs_base[0]; |
V745= vs_base[0]; |
3356 |
V663= STREF(object,(V623),40); |
V746= STREF(object,(V699),40); |
3357 |
{long V664; |
{long V747; |
3358 |
register long V665; |
register long V748; |
3359 |
V664= (long)STREF(unsigned short,(V623),4); |
V747= (long)STREF(unsigned short,(V699),4); |
3360 |
V665= 0; |
V748= 0; |
3361 |
goto T1219; |
goto T1219; |
3362 |
T1219:; |
T1219:; |
3363 |
if(!((V665)>=(V664))){ |
if(!((V748)>=(V747))){ |
3364 |
goto T1220;} |
goto T1220;} |
3365 |
V649= (V662); |
V729= (V745); |
3366 |
goto T1182; |
goto T1182; |
3367 |
goto T1220; |
goto T1220; |
3368 |
T1220:; |
T1220:; |
3369 |
{object V666; |
{object V749; |
3370 |
object V668; |
object V751; |
3371 |
V666= CMPmake_fixnum(V665); |
V749= CMPmake_fixnum(V748); |
3372 |
V668= ((V663))->v.v_self[(long)(V653)+(V665)]; |
V751= ((V746))->v.v_self[(long)(V733)+(V748)]; |
3373 |
(nthcdr(fix((V666)),V662))->c.c_car = (V668); |
(nthcdr(fix((V749)),V745))->c.c_car = (V751); |
3374 |
(void)(nthcdr(fix((V666)),V662));} |
(void)(nthcdr(fix((V749)),V745));} |
3375 |
V665= (long)(V665)+1; |
V748= (long)(V748)+1; |
3376 |
goto T1219;}}}} |
goto T1219;}}}} |
3377 |
goto T1182; |
goto T1182; |
3378 |
T1182:; |
T1182:; |
3379 |
{long V670; |
{long V753; |
3380 |
V670= V626; |
V753= V702; |
3381 |
{long V671; |
{long V754; |
3382 |
V671= V670; |
V754= V753; |
3383 |
V672= (long)STREF(unsigned short,(V623),4); |
V755= (long)STREF(unsigned short,(V699),4); |
3384 |
if((V672)==(1)){ |
if((V755)==(1)){ |
3385 |
goto T1236;} |
goto T1236;} |
3386 |
goto T1232; |
goto T1232; |
3387 |
goto T1236; |
goto T1236; |
3388 |
T1236:; |
T1236:; |
3389 |
if(!((V671)==(0))){ |
if(!((V754)==(0))){ |
3390 |
goto T1232;}} |
goto T1232;}} |
3391 |
base[0]= VV[161]; |
base[0]= VV[161]; |
3392 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3394 |
vs_top=sup; |
vs_top=sup; |
3395 |
goto T1232; |
goto T1232; |
3396 |
T1232:; |
T1232:; |
3397 |
{long V673; |
{long V756; |
3398 |
{long V674; |
{long V757; |
3399 |
V674= V670; |
V757= V753; |
3400 |
{long V675; |
{long V758; |
3401 |
V675= V674; |
V758= V757; |
3402 |
V676= (long)STREF(unsigned short,(V623),4); |
V759= (long)STREF(unsigned short,(V699),4); |
3403 |
if((V676)==(1)){ |
if((V759)==(1)){ |
3404 |
goto T1246;} |
goto T1246;} |
3405 |
goto T1242; |
goto T1242; |
3406 |
goto T1246; |
goto T1246; |
3407 |
T1246:; |
T1246:; |
3408 |
if(!((V675)==(0))){ |
if(!((V758)==(0))){ |
3409 |
goto T1242;}} |
goto T1242;}} |
3410 |
base[0]= VV[156]; |
base[0]= VV[156]; |
3411 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3413 |
vs_top=sup; |
vs_top=sup; |
3414 |
goto T1242; |
goto T1242; |
3415 |
T1242:; |
T1242:; |
3416 |
V677= (long)STREF(unsigned short,(V623),4); |
V760= (long)STREF(unsigned short,(V699),4); |
3417 |
if(!((V677)==(1))){ |
if(!((V760)==(1))){ |
3418 |
goto T1251;} |
goto T1251;} |
3419 |
V678= (long)STREF(unsigned short,(V623),32); |
V761 = V757; |
3420 |
V673= (long)(V674)*(V678); |
V762= (long)STREF(unsigned short,(V699),32); |
3421 |
|
V756= (long)(V761)*(V762); |
3422 |
goto T1240; |
goto T1240; |
3423 |
goto T1251; |
goto T1251; |
3424 |
T1251:; |
T1251:; |
3425 |
V679= (long)STREF(unsigned short,(V623),32); |
V763 = V757; |
3426 |
V673= (long)((long)(V674)*(V679))+1;} |
V764= (long)STREF(unsigned short,(V699),32); |
3427 |
|
V756= (long)((long)(V763)*(V764))+1;} |
3428 |
goto T1240; |
goto T1240; |
3429 |
T1240:; |
T1240:; |
3430 |
if((STREF(object,(V623),8))!=Cnil){ |
if((STREF(object,(V699),8))!=Cnil){ |
3431 |
goto T1256;} |
goto T1256;} |
3432 |
V669= Cnil; |
V752= Cnil; |
3433 |
goto T1230; |
goto T1230; |
3434 |
goto T1256; |
goto T1256; |
3435 |
T1256:; |
T1256:; |
3436 |
V680= STREF(object,(V623),40); |
V765= STREF(object,(V699),40); |
3437 |
V681= (long)STREF(unsigned short,(V623),4); |
V766 = V756; |
3438 |
V669= (V680)->v.v_self[(long)(V673)+(V681)];}} |
V767= (long)STREF(unsigned short,(V699),4); |
3439 |
|
V752= (V765)->v.v_self[(long)(V766)+(V767)];}} |
3440 |
goto T1230; |
goto T1230; |
3441 |
T1230:; |
T1230:; |
3442 |
V648= ( |
V727= ( |
3443 |
(type_of((V620)) == t_sfun ?(*(((V620))->sfn.sfn_self)): |
V768 = V728, |
3444 |
(fcall.argd=2,type_of((V620))==t_vfun) ? |
(type_of(V768) == t_sfun ?(*((V768)->sfn.sfn_self)): |
3445 |
(*(((V620))->sfn.sfn_self)): |
(fcall.argd=2,type_of(V768)==t_vfun) ? |
3446 |
(fcall.fun=((V620)),fcalln))(V649,V669)); |
(*((V768)->sfn.sfn_self)): |
3447 |
if(((V624))==Cnil){ |
(fcall.fun=(V768),fcalln))(V729,V752)); |
3448 |
|
if(((V700))==Cnil){ |
3449 |
goto T1116;} |
goto T1116;} |
3450 |
V682= STREF(object,(V623),40); |
V769= STREF(object,(V699),40); |
3451 |
{long V684; |
{long V771; |
3452 |
V684= V626; |
V771= V702; |
3453 |
{long V685; |
{long V772; |
3454 |
V685= V684; |
V772= V771; |
3455 |
V686= (long)STREF(unsigned short,(V623),4); |
V773= (long)STREF(unsigned short,(V699),4); |
3456 |
if((V686)==(1)){ |
if((V773)==(1)){ |
3457 |
goto T1269;} |
goto T1269;} |
3458 |
goto T1265; |
goto T1265; |
3459 |
goto T1269; |
goto T1269; |
3460 |
T1269:; |
T1269:; |
3461 |
if(!((V685)==(0))){ |
if(!((V772)==(0))){ |
3462 |
goto T1265;}} |
goto T1265;}} |
3463 |
base[0]= VV[156]; |
base[0]= VV[156]; |
3464 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3466 |
vs_top=sup; |
vs_top=sup; |
3467 |
goto T1265; |
goto T1265; |
3468 |
T1265:; |
T1265:; |
3469 |
V687= (long)STREF(unsigned short,(V623),4); |
V774= (long)STREF(unsigned short,(V699),4); |
3470 |
if(!((V687)==(1))){ |
if(!((V774)==(1))){ |
3471 |
goto T1274;} |
goto T1274;} |
3472 |
V688= (long)STREF(unsigned short,(V623),32); |
V775 = V771; |
3473 |
V683= CMPmake_fixnum((long)(V684)*(V688)); |
V776= (long)STREF(unsigned short,(V699),32); |
3474 |
|
V770= CMPmake_fixnum((long)(V775)*(V776)); |
3475 |
goto T1263; |
goto T1263; |
3476 |
goto T1274; |
goto T1274; |
3477 |
T1274:; |
T1274:; |
3478 |
V689= (long)STREF(unsigned short,(V623),32); |
V777 = V771; |
3479 |
V683= CMPmake_fixnum((long)((long)(V684)*(V689))+1);} |
V778= (long)STREF(unsigned short,(V699),32); |
3480 |
|
V770= CMPmake_fixnum((long)((long)(V777)*(V778))+1);} |
3481 |
goto T1263; |
goto T1263; |
3482 |
T1263:; |
T1263:; |
3483 |
V690= CMPmake_fixnum((long)STREF(unsigned short,(V623),4)); |
V779= CMPmake_fixnum((long)STREF(unsigned short,(V699),4)); |
3484 |
{long V691= fix(number_plus(V683,V690)); |
{long V780= fix(number_plus(V770,V779)); |
3485 |
(void)((V682)->v.v_self[/* INLINE-ARGS */V691]= ((V648)));}} |
V781 = (V727); |
3486 |
|
(void)((V769)->v.v_self[/* INLINE-ARGS */V780]= (V781));}} |
3487 |
goto T1116; |
goto T1116; |
3488 |
T1116:; |
T1116:; |
3489 |
V626= (long)(V626)+1; |
V702= (long)(V702)+1; |
3490 |
goto T1112;} |
goto T1112;} |
3491 |
goto T1108; |
goto T1108; |
3492 |
T1108:; |
T1108:; |
3493 |
{object V692; |
{object V782; |
3494 |
object V693; |
object V783; |
3495 |
V692= STREF(object,(V623),44); |
V782= STREF(object,(V699),44); |
3496 |
V693= CMPcar((V692)); |
V783= CMPcar((V782)); |
3497 |
goto T1286; |
goto T1286; |
3498 |
T1286:; |
T1286:; |
3499 |
if(!(((V692))==Cnil)){ |
if(!(((V782))==Cnil)){ |
3500 |
goto T1287;} |
goto T1287;} |
3501 |
goto T1106; |
goto T1106; |
3502 |
goto T1287; |
goto T1287; |
3503 |
T1287:; |
T1287:; |
3504 |
{object V694; |
{object V784; |
3505 |
V694= ( |
V784= ( |
3506 |
(type_of((V620)) == t_sfun ?(*(((V620))->sfn.sfn_self)): |
(type_of((V696)) == t_sfun ?(*(((V696))->sfn.sfn_self)): |
3507 |
(fcall.argd=2,type_of((V620))==t_vfun) ? |
(fcall.argd=2,type_of((V696))==t_vfun) ? |
3508 |
(*(((V620))->sfn.sfn_self)): |
(*(((V696))->sfn.sfn_self)): |
3509 |
(fcall.fun=((V620)),fcalln))(CMPcar((V693)),CMPcdr((V693)))); |
(fcall.fun=((V696)),fcalln))(CMPcar((V783)),CMPcdr((V783)))); |
3510 |
if(((V624))==Cnil){ |
if(((V700))==Cnil){ |
3511 |
goto T1291;} |
goto T1291;} |
3512 |
(V693)->c.c_cdr = V694;} |
(V783)->c.c_cdr = V784;} |
3513 |
goto T1291; |
goto T1291; |
3514 |
T1291:; |
T1291:; |
3515 |
V692= CMPcdr((V692)); |
V782= CMPcdr((V782)); |
3516 |
V693= CMPcar((V692)); |
V783= CMPcar((V782)); |
3517 |
goto T1286;}}} |
goto T1286;}}} |
3518 |
goto T1106; |
goto T1106; |
3519 |
T1106:; |
T1106:; |
3520 |
{object V697 = (V621); |
{object V787 = (V697); |
3521 |
VMR63(V697)} |
VMR63(V787)} |
3522 |
va_end(ap); |
va_end(ap); |
3523 |
base[0]=base[0]; |
base[0]=base[0]; |
3524 |
return Cnil;} |
return Cnil;} |
3525 |
} |
} |
3526 |
/* local entry for function CACHE-COUNT */ |
/* local entry for function CACHE-COUNT */ |
3527 |
|
|
3528 |
static object LI67(V699) |
static object LI67(V789) |
3529 |
|
|
3530 |
object V699; |
object V789; |
3531 |
{ VMB64 VMS64 VMV64 |
{ VMB64 VMS64 VMV64 |
3532 |
goto TTL; |
goto TTL; |
3533 |
TTL:; |
TTL:; |
3534 |
{register object V700; |
{register object V790; |
3535 |
V700= (V699); |
V790= (V789); |
3536 |
{register long V701; |
{register long V791; |
3537 |
V701= 0; |
V791= 0; |
3538 |
{long V702; |
{long V792; |
3539 |
register long V703; |
register long V793; |
3540 |
V702= (long)STREF(fixnum,(V700),12); |
V792= (long)STREF(fixnum,(V790),12); |
3541 |
V703= 0; |
V793= 0; |
3542 |
goto T1305; |
goto T1305; |
3543 |
T1305:; |
T1305:; |
3544 |
if(!((V703)>=(V702))){ |
if(!((V793)>=(V792))){ |
3545 |
goto T1306;} |
goto T1306;} |
3546 |
{long V704 = V701; |
{long V794 = V791; |
3547 |
VMR64((object)V704)} |
VMR64((object)V794)} |
3548 |
goto T1306; |
goto T1306; |
3549 |
T1306:; |
T1306:; |
3550 |
{register long V705; |
{register long V795; |
3551 |
V705= V703; |
V795= V793; |
3552 |
V706= (long)STREF(unsigned short,(V700),4); |
V796= (long)STREF(unsigned short,(V790),4); |
3553 |
if((V706)==(1)){ |
if((V796)==(1)){ |
3554 |
goto T1313;} |
goto T1313;} |
3555 |
goto T1311; |
goto T1311; |
3556 |
goto T1313; |
goto T1313; |
3557 |
T1313:; |
T1313:; |
3558 |
if((V705)==(0)){ |
if((V795)==(0)){ |
3559 |
goto T1309;}} |
goto T1309;}} |
3560 |
goto T1311; |
goto T1311; |
3561 |
T1311:; |
T1311:; |
3562 |
{register object V707; |
{register object V797; |
3563 |
V707= CMPmake_fixnum(V703); |
V797= CMPmake_fixnum(V793); |
3564 |
{register long V708; |
{register long V798; |
3565 |
V708= fix((V707)); |
V798= fix((V797)); |
3566 |
V709= (long)STREF(unsigned short,(V700),4); |
V799= (long)STREF(unsigned short,(V790),4); |
3567 |
if((V709)==(1)){ |
if((V799)==(1)){ |
3568 |
goto T1322;} |
goto T1322;} |
3569 |
goto T1318; |
goto T1318; |
3570 |
goto T1322; |
goto T1322; |
3571 |
T1322:; |
T1322:; |
3572 |
if(!((V708)==(0))){ |
if(!((V798)==(0))){ |
3573 |
goto T1318;}} |
goto T1318;}} |
3574 |
base[0]= VV[155]; |
base[0]= VV[155]; |
3575 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3577 |
vs_top=sup; |
vs_top=sup; |
3578 |
goto T1318; |
goto T1318; |
3579 |
T1318:; |
T1318:; |
3580 |
V710= STREF(object,(V700),40); |
V800= STREF(object,(V790),40); |
3581 |
{register long V712; |
{register long V802; |
3582 |
V712= fix((V707)); |
V802= fix((V797)); |
3583 |
{register long V713; |
{register long V803; |
3584 |
V713= V712; |
V803= V802; |
3585 |
V714= (long)STREF(unsigned short,(V700),4); |
V804= (long)STREF(unsigned short,(V790),4); |
3586 |
if((V714)==(1)){ |
if((V804)==(1)){ |
3587 |
goto T1333;} |
goto T1333;} |
3588 |
goto T1329; |
goto T1329; |
3589 |
goto T1333; |
goto T1333; |
3590 |
T1333:; |
T1333:; |
3591 |
if(!((V713)==(0))){ |
if(!((V803)==(0))){ |
3592 |
goto T1329;}} |
goto T1329;}} |
3593 |
base[0]= VV[156]; |
base[0]= VV[156]; |
3594 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3596 |
vs_top=sup; |
vs_top=sup; |
3597 |
goto T1329; |
goto T1329; |
3598 |
T1329:; |
T1329:; |
3599 |
V715= (long)STREF(unsigned short,(V700),4); |
V805= (long)STREF(unsigned short,(V790),4); |
3600 |
if(!((V715)==(1))){ |
if(!((V805)==(1))){ |
3601 |
goto T1338;} |
goto T1338;} |
3602 |
V716= (long)STREF(unsigned short,(V700),32); |
V806 = V802; |
3603 |
V711= (long)(V712)*(V716); |
V807= (long)STREF(unsigned short,(V790),32); |
3604 |
|
V801= (long)(V806)*(V807); |
3605 |
goto T1327; |
goto T1327; |
3606 |
goto T1338; |
goto T1338; |
3607 |
T1338:; |
T1338:; |
3608 |
V717= (long)STREF(unsigned short,(V700),32); |
V808 = V802; |
3609 |
V711= (long)((long)(V712)*(V717))+1;} |
V809= (long)STREF(unsigned short,(V790),32); |
3610 |
|
V801= (long)((long)(V808)*(V809))+1;} |
3611 |
goto T1327; |
goto T1327; |
3612 |
T1327:; |
T1327:; |
3613 |
if(!(((((V710)->v.v_self[V711])==Cnil?Ct:Cnil))==Cnil)){ |
if(!(((((V800)->v.v_self[V801])==Cnil?Ct:Cnil))==Cnil)){ |
3614 |
goto T1309;}} |
goto T1309;}} |
3615 |
V701= (long)(V701)+(1); |
V791= (long)(V791)+(1); |
3616 |
goto T1309; |
goto T1309; |
3617 |
T1309:; |
T1309:; |
3618 |
V703= (long)(V703)+1; |
V793= (long)(V793)+1; |
3619 |
goto T1305;}}} |
goto T1305;}}} |
3620 |
base[0]=base[0]; |
base[0]=base[0]; |
3621 |
} |
} |
3622 |
/* local entry for function ENTRY-IN-CACHE-P */ |
/* local entry for function ENTRY-IN-CACHE-P */ |
3623 |
|
|
3624 |
static object LI68(V721,V722,V723) |
static object LI68(V813,V814,V815) |
3625 |
|
|
3626 |
object V721;object V722;object V723; |
object V813;object V814;object V815; |
3627 |
{ VMB65 VMS65 VMV65 |
{ VMB65 VMS65 VMV65 |
3628 |
goto TTL; |
goto TTL; |
3629 |
TTL:; |
TTL:; |
3630 |
{register object V724; |
{register object V816; |
3631 |
V724= (V721); |
V816= (V813); |
3632 |
{long V725; |
{long V817; |
3633 |
register long V726; |
register long V818; |
3634 |
V725= (long)STREF(fixnum,(V724),12); |
V817= (long)STREF(fixnum,(V816),12); |
3635 |
V726= 0; |
V818= 0; |
3636 |
goto T1350; |
goto T1350; |
3637 |
T1350:; |
T1350:; |
3638 |
if(!((V726)>=(V725))){ |
if(!((V818)>=(V817))){ |
3639 |
goto T1351;} |
goto T1351;} |
3640 |
{object V727 = Cnil; |
{object V819 = Cnil; |
3641 |
VMR65(V727)} |
VMR65(V819)} |
3642 |
goto T1351; |
goto T1351; |
3643 |
T1351:; |
T1351:; |
3644 |
{long V728; |
{long V820; |
3645 |
V728= V726; |
V820= V818; |
3646 |
V729= (long)STREF(unsigned short,(V724),4); |
V821= (long)STREF(unsigned short,(V816),4); |
3647 |
if((V729)==(1)){ |
if((V821)==(1)){ |
3648 |
goto T1358;} |
goto T1358;} |
3649 |
goto T1356; |
goto T1356; |
3650 |
goto T1358; |
goto T1358; |
3651 |
T1358:; |
T1358:; |
3652 |
if((V728)==(0)){ |
if((V820)==(0)){ |
3653 |
goto T1354;}} |
goto T1354;}} |
3654 |
goto T1356; |
goto T1356; |
3655 |
T1356:; |
T1356:; |
3656 |
{long V731; |
{long V823; |
3657 |
V731= V726; |
V823= V818; |
3658 |
{long V732; |
{long V824; |
3659 |
V732= V731; |
V824= V823; |
3660 |
V733= (long)STREF(unsigned short,(V724),4); |
V825= (long)STREF(unsigned short,(V816),4); |
3661 |
if((V733)==(1)){ |
if((V825)==(1)){ |
3662 |
goto T1369;} |
goto T1369;} |
3663 |
goto T1365; |
goto T1365; |
3664 |
goto T1369; |
goto T1369; |
3665 |
T1369:; |
T1369:; |
3666 |
if(!((V732)==(0))){ |
if(!((V824)==(0))){ |
3667 |
goto T1365;}} |
goto T1365;}} |
3668 |
base[0]= VV[160]; |
base[0]= VV[160]; |
3669 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3671 |
vs_top=sup; |
vs_top=sup; |
3672 |
goto T1365; |
goto T1365; |
3673 |
T1365:; |
T1365:; |
3674 |
{long V734; |
{long V826; |
3675 |
{register long V735; |
{register long V827; |
3676 |
V735= V731; |
V827= V823; |
3677 |
{long V736; |
{long V828; |
3678 |
V736= V735; |
V828= V827; |
3679 |
V737= (long)STREF(unsigned short,(V724),4); |
V829= (long)STREF(unsigned short,(V816),4); |
3680 |
if((V737)==(1)){ |
if((V829)==(1)){ |
3681 |
goto T1379;} |
goto T1379;} |
3682 |
goto T1375; |
goto T1375; |
3683 |
goto T1379; |
goto T1379; |
3684 |
T1379:; |
T1379:; |
3685 |
if(!((V736)==(0))){ |
if(!((V828)==(0))){ |
3686 |
goto T1375;}} |
goto T1375;}} |
3687 |
base[0]= VV[156]; |
base[0]= VV[156]; |
3688 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3690 |
vs_top=sup; |
vs_top=sup; |
3691 |
goto T1375; |
goto T1375; |
3692 |
T1375:; |
T1375:; |
3693 |
V738= (long)STREF(unsigned short,(V724),4); |
V830= (long)STREF(unsigned short,(V816),4); |
3694 |
if(!((V738)==(1))){ |
if(!((V830)==(1))){ |
3695 |
goto T1384;} |
goto T1384;} |
3696 |
V739= (long)STREF(unsigned short,(V724),32); |
V831 = V827; |
3697 |
V734= (long)(V735)*(V739); |
V832= (long)STREF(unsigned short,(V816),32); |
3698 |
|
V826= (long)(V831)*(V832); |
3699 |
goto T1373; |
goto T1373; |
3700 |
goto T1384; |
goto T1384; |
3701 |
T1384:; |
T1384:; |
3702 |
V740= (long)STREF(unsigned short,(V724),32); |
V833 = V827; |
3703 |
V734= (long)((long)(V735)*(V740))+1;} |
V834= (long)STREF(unsigned short,(V816),32); |
3704 |
|
V826= (long)((long)(V833)*(V834))+1;} |
3705 |
goto T1373; |
goto T1373; |
3706 |
T1373:; |
T1373:; |
3707 |
V741= (long)STREF(unsigned short,(V724),4); |
V835= (long)STREF(unsigned short,(V816),4); |
3708 |
if(!((V741)==(1))){ |
if(!((V835)==(1))){ |
3709 |
goto T1390;} |
goto T1390;} |
3710 |
V742= STREF(object,(V724),40); |
V836= STREF(object,(V816),40); |
3711 |
V730= (V742)->v.v_self[V734]; |
V837 = V826; |
3712 |
|
V822= (V836)->v.v_self[V837]; |
3713 |
goto T1363; |
goto T1363; |
3714 |
goto T1390; |
goto T1390; |
3715 |
T1390:; |
T1390:; |
3716 |
{register object V743; |
{register object V838; |
3717 |
object V744; |
object V839; |
3718 |
base[0]= CMPmake_fixnum((long)STREF(unsigned short,(V724),4)); |
base[0]= CMPmake_fixnum((long)STREF(unsigned short,(V816),4)); |
3719 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3720 |
Lmake_list(); |
Lmake_list(); |
3721 |
vs_top=sup; |
vs_top=sup; |
3722 |
V743= vs_base[0]; |
V838= vs_base[0]; |
3723 |
V744= STREF(object,(V724),40); |
V839= STREF(object,(V816),40); |
3724 |
{long V745; |
{long V840; |
3725 |
register long V746; |
register long V841; |
3726 |
V745= (long)STREF(unsigned short,(V724),4); |
V840= (long)STREF(unsigned short,(V816),4); |
3727 |
V746= 0; |
V841= 0; |
3728 |
goto T1400; |
goto T1400; |
3729 |
T1400:; |
T1400:; |
3730 |
if(!((V746)>=(V745))){ |
if(!((V841)>=(V840))){ |
3731 |
goto T1401;} |
goto T1401;} |
3732 |
V730= (V743); |
V822= (V838); |
3733 |
goto T1363; |
goto T1363; |
3734 |
goto T1401; |
goto T1401; |
3735 |
T1401:; |
T1401:; |
3736 |
{object V747; |
{object V842; |
3737 |
register object V749; |
register object V844; |
3738 |
V747= CMPmake_fixnum(V746); |
V842= CMPmake_fixnum(V841); |
3739 |
V749= ((V744))->v.v_self[(long)(V734)+(V746)]; |
V844= ((V839))->v.v_self[(long)(V826)+(V841)]; |
3740 |
(nthcdr(fix((V747)),V743))->c.c_car = (V749); |
(nthcdr(fix((V842)),V838))->c.c_car = (V844); |
3741 |
(void)(nthcdr(fix((V747)),V743));} |
(void)(nthcdr(fix((V842)),V838));} |
3742 |
V746= (long)(V746)+1; |
V841= (long)(V841)+1; |
3743 |
goto T1400;}}}} |
goto T1400;}}}} |
3744 |
goto T1363; |
goto T1363; |
3745 |
T1363:; |
T1363:; |
3746 |
if(!(equal(V730,(V722)))){ |
V845 = (V814); |
3747 |
|
if(!(equal(V822,V845))){ |
3748 |
goto T1354;} |
goto T1354;} |
3749 |
{object V750 = Ct; |
{object V846 = Ct; |
3750 |
VMR65(V750)} |
VMR65(V846)} |
3751 |
goto T1354; |
goto T1354; |
3752 |
T1354:; |
T1354:; |
3753 |
V726= (long)(V726)+1; |
V818= (long)(V818)+1; |
3754 |
goto T1350;}} |
goto T1350;}} |
3755 |
base[0]=base[0]; |
base[0]=base[0]; |
3756 |
return Cnil; |
return Cnil; |
3757 |
} |
} |
3758 |
/* local entry for function FILL-CACHE-P */ |
/* local entry for function FILL-CACHE-P */ |
3759 |
|
|
3760 |
static object LI69(V755,V756,V757,V758) |
static object LI69(V851,V852,V853,V854) |
3761 |
|
|
3762 |
object V755;object V756;object V757;object V758; |
object V851;object V852;object V853;object V854; |
3763 |
{ VMB66 VMS66 VMV66 |
{ VMB66 VMS66 VMV66 |
3764 |
goto TTL; |
goto TTL; |
3765 |
TTL:; |
TTL:; |
3766 |
{long V760; |
{long V856; |
3767 |
long V761; |
long V857; |
3768 |
V762= (long)STREF(unsigned char,V756,16); |
V858= (long)STREF(unsigned char,V852,16); |
3769 |
V763= (long)STREF(fixnum,V756,24); |
V859= (long)STREF(fixnum,V852,24); |
3770 |
V760= (long)(*(LnkLI211))(V762,V763,(V757)); |
V860 = (V853); |
3771 |
{long V764; |
V856= (long)(*(LnkLI211))(V858,V859,V860); |
3772 |
V764= V760; |
{long V861; |
3773 |
V765= (long)STREF(unsigned short,V756,4); |
V861= V856; |
3774 |
if(!((V765)==(1))){ |
V862= (long)STREF(unsigned short,V852,4); |
3775 |
|
if(!((V862)==(1))){ |
3776 |
goto T1420;} |
goto T1420;} |
3777 |
base[0]= CMPmake_fixnum(V764); |
base[0]= CMPmake_fixnum(V861); |
3778 |
base[1]= CMPmake_fixnum((long)STREF(unsigned short,V756,32)); |
base[1]= CMPmake_fixnum((long)STREF(unsigned short,V852,32)); |
3779 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3780 |
Lfloor(); |
Lfloor(); |
3781 |
vs_top=sup; |
vs_top=sup; |
3782 |
V761= fix(vs_base[0]); |
V857= fix(vs_base[0]); |
3783 |
goto T1417; |
goto T1417; |
3784 |
goto T1420; |
goto T1420; |
3785 |
T1420:; |
T1420:; |
3786 |
base[0]= CMPmake_fixnum((long)(V764)-1); |
base[0]= CMPmake_fixnum((long)(V861)-1); |
3787 |
base[1]= CMPmake_fixnum((long)STREF(unsigned short,V756,32)); |
base[1]= CMPmake_fixnum((long)STREF(unsigned short,V852,32)); |
3788 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3789 |
Lfloor(); |
Lfloor(); |
3790 |
vs_top=sup; |
vs_top=sup; |
3791 |
V761= fix(vs_base[0]);} |
V857= fix(vs_base[0]);} |
3792 |
goto T1417; |
goto T1417; |
3793 |
T1417:; |
T1417:; |
3794 |
{object V766; |
{object V863; |
3795 |
object V767; |
object V864; |
3796 |
base[0]= CMPmake_fixnum(V761); |
base[0]= CMPmake_fixnum(V857); |
3797 |
base[1]= (V756); |
base[1]= (V852); |
3798 |
base[2]= (V757); |
base[2]= (V853); |
3799 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3800 |
(void) (*Lnk212)(); |
(void) (*Lnk212)(); |
3801 |
if(vs_base>=vs_top){vs_top=sup;goto T1431;} |
if(vs_base>=vs_top){vs_top=sup;goto T1431;} |
3802 |
V766= vs_base[0]; |
V863= vs_base[0]; |
3803 |
vs_base++; |
vs_base++; |
3804 |
if(vs_base>=vs_top){vs_top=sup;goto T1432;} |
if(vs_base>=vs_top){vs_top=sup;goto T1432;} |
3805 |
V767= vs_base[0]; |
V864= vs_base[0]; |
3806 |
vs_top=sup; |
vs_top=sup; |
3807 |
goto T1433; |
goto T1433; |
3808 |
goto T1431; |
goto T1431; |
3809 |
T1431:; |
T1431:; |
3810 |
V766= Cnil; |
V863= Cnil; |
3811 |
goto T1432; |
goto T1432; |
3812 |
T1432:; |
T1432:; |
3813 |
V767= Cnil; |
V864= Cnil; |
3814 |
goto T1433; |
goto T1433; |
3815 |
T1433:; |
T1433:; |
3816 |
if(((V755))!=Cnil){ |
if(((V851))!=Cnil){ |
3817 |
goto T1434;} |
goto T1434;} |
3818 |
if(((V767))==Cnil){ |
if(((V864))==Cnil){ |
3819 |
goto T1435;} |
goto T1435;} |
3820 |
goto T1434; |
goto T1434; |
3821 |
T1434:; |
T1434:; |
3822 |
if(((V767))!=Cnil){ |
if(((V864))!=Cnil){ |
3823 |
goto T1439;} |
goto T1439;} |
3824 |
{object V768; |
{object V865; |
3825 |
object V770; |
object V867; |
3826 |
{long V772; |
{long V869; |
3827 |
V772= fix((V766)); |
V869= fix((V863)); |
3828 |
{long V773; |
{long V870; |
3829 |
V773= V772; |
V870= V869; |
3830 |
V774= (long)STREF(unsigned short,V756,4); |
V871= (long)STREF(unsigned short,V852,4); |
3831 |
if((V774)==(1)){ |
if((V871)==(1)){ |
3832 |
goto T1449;} |
goto T1449;} |
3833 |
goto T1445; |
goto T1445; |
3834 |
goto T1449; |
goto T1449; |
3835 |
T1449:; |
T1449:; |
3836 |
if(!((V773)==(0))){ |
if(!((V870)==(0))){ |
3837 |
goto T1445;}} |
goto T1445;}} |
3838 |
base[2]= VV[160]; |
base[2]= VV[160]; |
3839 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3841 |
vs_top=sup; |
vs_top=sup; |
3842 |
goto T1445; |
goto T1445; |
3843 |
T1445:; |
T1445:; |
3844 |
{long V775; |
{long V872; |
3845 |
{long V776; |
{long V873; |
3846 |
V776= V772; |
V873= V869; |
3847 |
{long V777; |
{long V874; |
3848 |
V777= V776; |
V874= V873; |
3849 |
V778= (long)STREF(unsigned short,V756,4); |
V875= (long)STREF(unsigned short,V852,4); |
3850 |
if((V778)==(1)){ |
if((V875)==(1)){ |
3851 |
goto T1459;} |
goto T1459;} |
3852 |
goto T1455; |
goto T1455; |
3853 |
goto T1459; |
goto T1459; |
3854 |
T1459:; |
T1459:; |
3855 |
if(!((V777)==(0))){ |
if(!((V874)==(0))){ |
3856 |
goto T1455;}} |
goto T1455;}} |
3857 |
base[2]= VV[156]; |
base[2]= VV[156]; |
3858 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3860 |
vs_top=sup; |
vs_top=sup; |
3861 |
goto T1455; |
goto T1455; |
3862 |
T1455:; |
T1455:; |
3863 |
V779= (long)STREF(unsigned short,V756,4); |
V876= (long)STREF(unsigned short,V852,4); |
3864 |
if(!((V779)==(1))){ |
if(!((V876)==(1))){ |
3865 |
goto T1464;} |
goto T1464;} |
3866 |
V780= (long)STREF(unsigned short,V756,32); |
V877 = V873; |
3867 |
V775= (long)(V776)*(V780); |
V878= (long)STREF(unsigned short,V852,32); |
3868 |
|
V872= (long)(V877)*(V878); |
3869 |
goto T1453; |
goto T1453; |
3870 |
goto T1464; |
goto T1464; |
3871 |
T1464:; |
T1464:; |
3872 |
V781= (long)STREF(unsigned short,V756,32); |
V879 = V873; |
3873 |
V775= (long)((long)(V776)*(V781))+1;} |
V880= (long)STREF(unsigned short,V852,32); |
3874 |
|
V872= (long)((long)(V879)*(V880))+1;} |
3875 |
goto T1453; |
goto T1453; |
3876 |
T1453:; |
T1453:; |
3877 |
V782= (long)STREF(unsigned short,V756,4); |
V881= (long)STREF(unsigned short,V852,4); |
3878 |
if(!((V782)==(1))){ |
if(!((V881)==(1))){ |
3879 |
goto T1470;} |
goto T1470;} |
3880 |
V783= STREF(object,V756,40); |
V882= STREF(object,V852,40); |
3881 |
V771= (V783)->v.v_self[V775]; |
V883 = V872; |
3882 |
|
V868= (V882)->v.v_self[V883]; |
3883 |
goto T1443; |
goto T1443; |
3884 |
goto T1470; |
goto T1470; |
3885 |
T1470:; |
T1470:; |
3886 |
{register object V784; |
{register object V884; |
3887 |
object V785; |
object V885; |
3888 |
base[2]= CMPmake_fixnum((long)STREF(unsigned short,V756,4)); |
base[2]= CMPmake_fixnum((long)STREF(unsigned short,V852,4)); |
3889 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3890 |
Lmake_list(); |
Lmake_list(); |
3891 |
vs_top=sup; |
vs_top=sup; |
3892 |
V784= vs_base[0]; |
V884= vs_base[0]; |
3893 |
V785= STREF(object,V756,40); |
V885= STREF(object,V852,40); |
3894 |
{long V786; |
{long V886; |
3895 |
register long V787; |
register long V887; |
3896 |
V786= (long)STREF(unsigned short,V756,4); |
V886= (long)STREF(unsigned short,V852,4); |
3897 |
V787= 0; |
V887= 0; |
3898 |
goto T1480; |
goto T1480; |
3899 |
T1480:; |
T1480:; |
3900 |
if(!((V787)>=(V786))){ |
if(!((V887)>=(V886))){ |
3901 |
goto T1481;} |
goto T1481;} |
3902 |
V771= (V784); |
V868= (V884); |
3903 |
goto T1443; |
goto T1443; |
3904 |
goto T1481; |
goto T1481; |
3905 |
T1481:; |
T1481:; |
3906 |
{object V788; |
{object V888; |
3907 |
register object V790; |
register object V890; |
3908 |
V788= CMPmake_fixnum(V787); |
V888= CMPmake_fixnum(V887); |
3909 |
V790= ((V785))->v.v_self[(long)(V775)+(V787)]; |
V890= ((V885))->v.v_self[(long)(V872)+(V887)]; |
3910 |
(nthcdr(fix((V788)),V784))->c.c_car = (V790); |
(nthcdr(fix((V888)),V884))->c.c_car = (V890); |
3911 |
(void)(nthcdr(fix((V788)),V784));} |
(void)(nthcdr(fix((V888)),V884));} |
3912 |
V787= (long)(V787)+1; |
V887= (long)(V887)+1; |
3913 |
goto T1480;}}}} |
goto T1480;}}}} |
3914 |
goto T1443; |
goto T1443; |
3915 |
T1443:; |
T1443:; |
3916 |
{long V792; |
{long V892; |
3917 |
V792= fix((V766)); |
V892= fix((V863)); |
3918 |
{long V793; |
{long V893; |
3919 |
V793= V792; |
V893= V892; |
3920 |
V794= (long)STREF(unsigned short,V756,4); |
V894= (long)STREF(unsigned short,V852,4); |
3921 |
if((V794)==(1)){ |
if((V894)==(1)){ |
3922 |
goto T1497;} |
goto T1497;} |
3923 |
goto T1493; |
goto T1493; |
3924 |
goto T1497; |
goto T1497; |
3925 |
T1497:; |
T1497:; |
3926 |
if(!((V793)==(0))){ |
if(!((V893)==(0))){ |
3927 |
goto T1493;}} |
goto T1493;}} |
3928 |
base[2]= VV[161]; |
base[2]= VV[161]; |
3929 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3931 |
vs_top=sup; |
vs_top=sup; |
3932 |
goto T1493; |
goto T1493; |
3933 |
T1493:; |
T1493:; |
3934 |
{long V795; |
{long V895; |
3935 |
{long V796; |
{long V896; |
3936 |
V796= V792; |
V896= V892; |
3937 |
{long V797; |
{long V897; |
3938 |
V797= V796; |
V897= V896; |
3939 |
V798= (long)STREF(unsigned short,V756,4); |
V898= (long)STREF(unsigned short,V852,4); |
3940 |
if((V798)==(1)){ |
if((V898)==(1)){ |
3941 |
goto T1507;} |
goto T1507;} |
3942 |
goto T1503; |
goto T1503; |
3943 |
goto T1507; |
goto T1507; |
3944 |
T1507:; |
T1507:; |
3945 |
if(!((V797)==(0))){ |
if(!((V897)==(0))){ |
3946 |
goto T1503;}} |
goto T1503;}} |
3947 |
base[2]= VV[156]; |
base[2]= VV[156]; |
3948 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3950 |
vs_top=sup; |
vs_top=sup; |
3951 |
goto T1503; |
goto T1503; |
3952 |
T1503:; |
T1503:; |
3953 |
V799= (long)STREF(unsigned short,V756,4); |
V899= (long)STREF(unsigned short,V852,4); |
3954 |
if(!((V799)==(1))){ |
if(!((V899)==(1))){ |
3955 |
goto T1512;} |
goto T1512;} |
3956 |
V800= (long)STREF(unsigned short,V756,32); |
V900 = V896; |
3957 |
V795= (long)(V796)*(V800); |
V901= (long)STREF(unsigned short,V852,32); |
3958 |
|
V895= (long)(V900)*(V901); |
3959 |
goto T1501; |
goto T1501; |
3960 |
goto T1512; |
goto T1512; |
3961 |
T1512:; |
T1512:; |
3962 |
V801= (long)STREF(unsigned short,V756,32); |
V902 = V896; |
3963 |
V795= (long)((long)(V796)*(V801))+1;} |
V903= (long)STREF(unsigned short,V852,32); |
3964 |
|
V895= (long)((long)(V902)*(V903))+1;} |
3965 |
goto T1501; |
goto T1501; |
3966 |
T1501:; |
T1501:; |
3967 |
if((STREF(object,V756,8))!=Cnil){ |
if((STREF(object,V852,8))!=Cnil){ |
3968 |
goto T1517;} |
goto T1517;} |
3969 |
V791= Cnil; |
V891= Cnil; |
3970 |
goto T1491; |
goto T1491; |
3971 |
goto T1517; |
goto T1517; |
3972 |
T1517:; |
T1517:; |
3973 |
V802= STREF(object,V756,40); |
V904= STREF(object,V852,40); |
3974 |
V803= (long)STREF(unsigned short,V756,4); |
V905 = V895; |
3975 |
V791= (V802)->v.v_self[(long)(V795)+(V803)];}} |
V906= (long)STREF(unsigned short,V852,4); |
3976 |
|
V891= (V904)->v.v_self[(long)(V905)+(V906)];}} |
3977 |
goto T1491; |
goto T1491; |
3978 |
T1491:; |
T1491:; |
3979 |
V768= make_cons(V771,V791); |
V865= make_cons(V868,V891); |
3980 |
V770= make_cons((V768),STREF(object,V756,44)); |
V867= make_cons((V865),STREF(object,V852,44)); |
3981 |
V804= Ct; |
V907 = V852; |
3982 |
STSET(object,V756,44, (V770)); |
V908 = (V867); |
3983 |
(void)((V770));} |
V909= Ct; |
3984 |
|
STSET(object,V907,44, V908); |
3985 |
|
(void)(V908);} |
3986 |
goto T1439; |
goto T1439; |
3987 |
T1439:; |
T1439:; |
3988 |
{long V805; |
{long V910; |
3989 |
V805= fix((V766)); |
V910= fix((V863)); |
3990 |
{long V806; |
{long V911; |
3991 |
V806= V805; |
V911= V910; |
3992 |
V807= (long)STREF(unsigned short,V756,4); |
V912= (long)STREF(unsigned short,V852,4); |
3993 |
if((V807)==(1)){ |
if((V912)==(1)){ |
3994 |
goto T1527;} |
goto T1527;} |
3995 |
goto T1523; |
goto T1523; |
3996 |
goto T1527; |
goto T1527; |
3997 |
T1527:; |
T1527:; |
3998 |
if(!((V806)==(0))){ |
if(!((V911)==(0))){ |
3999 |
goto T1523;}} |
goto T1523;}} |
4000 |
base[0]= VV[162]; |
base[0]= VV[162]; |
4001 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4003 |
vs_top=sup; |
vs_top=sup; |
4004 |
goto T1523; |
goto T1523; |
4005 |
T1523:; |
T1523:; |
4006 |
{long V808; |
{long V913; |
4007 |
object V809; |
object V914; |
4008 |
{long V810; |
{long V915; |
4009 |
V810= V805; |
V915= V910; |
4010 |
{long V811; |
{long V916; |
4011 |
V811= V810; |
V916= V915; |
4012 |
V812= (long)STREF(unsigned short,V756,4); |
V917= (long)STREF(unsigned short,V852,4); |
4013 |
if((V812)==(1)){ |
if((V917)==(1)){ |
4014 |
goto T1537;} |
goto T1537;} |
4015 |
goto T1533; |
goto T1533; |
4016 |
goto T1537; |
goto T1537; |
4017 |
T1537:; |
T1537:; |
4018 |
if(!((V811)==(0))){ |
if(!((V916)==(0))){ |
4019 |
goto T1533;}} |
goto T1533;}} |
4020 |
base[0]= VV[156]; |
base[0]= VV[156]; |
4021 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4023 |
vs_top=sup; |
vs_top=sup; |
4024 |
goto T1533; |
goto T1533; |
4025 |
T1533:; |
T1533:; |
4026 |
V813= (long)STREF(unsigned short,V756,4); |
V918= (long)STREF(unsigned short,V852,4); |
4027 |
if(!((V813)==(1))){ |
if(!((V918)==(1))){ |
4028 |
goto T1542;} |
goto T1542;} |
4029 |
V814= (long)STREF(unsigned short,V756,32); |
V919 = V915; |
4030 |
V808= (long)(V810)*(V814); |
V920= (long)STREF(unsigned short,V852,32); |
4031 |
|
V913= (long)(V919)*(V920); |
4032 |
goto T1531; |
goto T1531; |
4033 |
goto T1542; |
goto T1542; |
4034 |
T1542:; |
T1542:; |
4035 |
V815= (long)STREF(unsigned short,V756,32); |
V921 = V915; |
4036 |
V808= (long)((long)(V810)*(V815))+1;} |
V922= (long)STREF(unsigned short,V852,32); |
4037 |
|
V913= (long)((long)(V921)*(V922))+1;} |
4038 |
goto T1531; |
goto T1531; |
4039 |
T1531:; |
T1531:; |
4040 |
V809= STREF(object,V756,40); |
V914= STREF(object,V852,40); |
4041 |
V816= (long)STREF(unsigned short,V756,4); |
V923= (long)STREF(unsigned short,V852,4); |
4042 |
if(!((V816)==(1))){ |
if(!((V923)==(1))){ |
4043 |
goto T1550;} |
goto T1550;} |
4044 |
(void)(((V809))->v.v_self[V808]= ((V757))); |
(void)(((V914))->v.v_self[V913]= ((V853))); |
4045 |
if((STREF(object,V756,8))==Cnil){ |
if((STREF(object,V852,8))==Cnil){ |
4046 |
goto T1548;} |
goto T1548;} |
4047 |
(void)(((V809))->v.v_self[(long)(V808)+1]= ((V758))); |
(void)(((V914))->v.v_self[(long)(V913)+1]= ((V854))); |
4048 |
goto T1548; |
goto T1548; |
4049 |
goto T1550; |
goto T1550; |
4050 |
T1550:; |
T1550:; |
4051 |
{register long V817; |
{register long V924; |
4052 |
V817= 0; |
V924= 0; |
4053 |
{register object V818; |
{register object V925; |
4054 |
register object V819; |
register object V926; |
4055 |
V818= (V757); |
V925= (V853); |
4056 |
V819= CMPcar((V818)); |
V926= CMPcar((V925)); |
4057 |
goto T1561; |
goto T1561; |
4058 |
T1561:; |
T1561:; |
4059 |
if(!(((V818))==Cnil)){ |
if(!(((V925))==Cnil)){ |
4060 |
goto T1562;} |
goto T1562;} |
4061 |
goto T1556; |
goto T1556; |
4062 |
goto T1562; |
goto T1562; |
4063 |
T1562:; |
T1562:; |
4064 |
(void)(((V809))->v.v_self[(long)(V808)+(V817)]= ((V819))); |
(void)(((V914))->v.v_self[(long)(V913)+(V924)]= ((V926))); |
4065 |
V817= (long)(V817)+1; |
V924= (long)(V924)+1; |
4066 |
V818= CMPcdr((V818)); |
V925= CMPcdr((V925)); |
4067 |
V819= CMPcar((V818)); |
V926= CMPcar((V925)); |
4068 |
goto T1561;}} |
goto T1561;}} |
4069 |
goto T1556; |
goto T1556; |
4070 |
T1556:; |
T1556:; |
4071 |
if((STREF(object,V756,8))==Cnil){ |
if((STREF(object,V852,8))==Cnil){ |
4072 |
goto T1548;} |
goto T1548;} |
4073 |
V820= (long)STREF(unsigned short,V756,4); |
V927 = V913; |
4074 |
(void)(((V809))->v.v_self[(long)(V808)+(V820)]= ((V758))); |
V928= (long)STREF(unsigned short,V852,4); |
4075 |
|
(void)(((V914))->v.v_self[(long)(V927)+(V928)]= ((V854))); |
4076 |
goto T1548; |
goto T1548; |
4077 |
T1548:; |
T1548:; |
4078 |
if(((VV[153]->s.s_dbind))==Cnil){ |
if(((VV[153]->s.s_dbind))==Cnil){ |
4079 |
goto T1577;} |
goto T1577;} |
4080 |
(void)((*(LnkLI154))((V756))); |
(void)((*(LnkLI154))((V852))); |
4081 |
goto T1577; |
goto T1577; |
4082 |
T1577:; |
T1577:; |
4083 |
{object V821 = (V756); |
{object V929 = (V852); |
4084 |
VMR66(V821)}}} |
VMR66(V929)}}} |
4085 |
goto T1435; |
goto T1435; |
4086 |
T1435:; |
T1435:; |
4087 |
{object V822 = Cnil; |
{object V930 = Cnil; |
4088 |
VMR66(V822)}}} |
VMR66(V930)}}} |
4089 |
base[0]=base[0]; |
base[0]=base[0]; |
4090 |
return Cnil; |
return Cnil; |
4091 |
} |
} |
4092 |
/* local entry for function FILL-CACHE-FROM-CACHE-P */ |
/* local entry for function FILL-CACHE-FROM-CACHE-P */ |
4093 |
|
|
4094 |
static object LI70(V827,V828,V829,V830) |
static object LI70(V935,V936,V937,V938) |
4095 |
|
|
4096 |
object V827;object V828;object V829;long V830; |
object V935;object V936;object V937;long V938; |
4097 |
{ VMB67 VMS67 VMV67 |
{ VMB67 VMS67 VMV67 |
4098 |
goto TTL; |
goto TTL; |
4099 |
TTL:; |
TTL:; |
4100 |
{long V832; |
{long V940; |
4101 |
{long V833; |
{long V941; |
4102 |
{long V835; |
V942 = (V936); |
4103 |
V835= V830; |
{long V944; |
4104 |
{long V836; |
V944= V938; |
4105 |
V836= V835; |
{long V945; |
4106 |
V837= (long)STREF(unsigned short,V828,4); |
V945= V944; |
4107 |
if((V837)==(1)){ |
V946= (long)STREF(unsigned short,V936,4); |
4108 |
|
if((V946)==(1)){ |
4109 |
goto T1588;} |
goto T1588;} |
4110 |
goto T1584; |
goto T1584; |
4111 |
goto T1588; |
goto T1588; |
4112 |
T1588:; |
T1588:; |
4113 |
if(!((V836)==(0))){ |
if(!((V945)==(0))){ |
4114 |
goto T1584;}} |
goto T1584;}} |
4115 |
base[0]= VV[156]; |
base[0]= VV[156]; |
4116 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4118 |
vs_top=sup; |
vs_top=sup; |
4119 |
goto T1584; |
goto T1584; |
4120 |
T1584:; |
T1584:; |
4121 |
V838= (long)STREF(unsigned short,V828,4); |
V947= (long)STREF(unsigned short,V936,4); |
4122 |
if(!((V838)==(1))){ |
if(!((V947)==(1))){ |
4123 |
goto T1593;} |
goto T1593;} |
4124 |
V839= (long)STREF(unsigned short,V828,32); |
V948 = V944; |
4125 |
V834= CMPmake_fixnum((long)(V835)*(V839)); |
V949= (long)STREF(unsigned short,V936,32); |
4126 |
|
V943= CMPmake_fixnum((long)(V948)*(V949)); |
4127 |
goto T1582; |
goto T1582; |
4128 |
goto T1593; |
goto T1593; |
4129 |
T1593:; |
T1593:; |
4130 |
V840= (long)STREF(unsigned short,V828,32); |
V950 = V944; |
4131 |
V834= CMPmake_fixnum((long)((long)(V835)*(V840))+1);} |
V951= (long)STREF(unsigned short,V936,32); |
4132 |
|
V943= CMPmake_fixnum((long)((long)(V950)*(V951))+1);} |
4133 |
goto T1582; |
goto T1582; |
4134 |
T1582:; |
T1582:; |
4135 |
V833= fix((VFUN_NARGS=3,(*(LnkLI210))((V828),V834,(V829)))); |
V952 = (V937); |
4136 |
V841= (long)STREF(unsigned short,V828,4); |
V941= fix((VFUN_NARGS=3,(*(LnkLI210))(V942,V943,V952))); |
4137 |
if(!((V841)==(1))){ |
V953= (long)STREF(unsigned short,V936,4); |
4138 |
|
if(!((V953)==(1))){ |
4139 |
goto T1599;} |
goto T1599;} |
4140 |
base[0]= CMPmake_fixnum(V833); |
base[0]= CMPmake_fixnum(V941); |
4141 |
base[1]= CMPmake_fixnum((long)STREF(unsigned short,V828,32)); |
base[1]= CMPmake_fixnum((long)STREF(unsigned short,V936,32)); |
4142 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4143 |
Lfloor(); |
Lfloor(); |
4144 |
vs_top=sup; |
vs_top=sup; |
4145 |
V832= fix(vs_base[0]); |
V940= fix(vs_base[0]); |
4146 |
goto T1580; |
goto T1580; |
4147 |
goto T1599; |
goto T1599; |
4148 |
T1599:; |
T1599:; |
4149 |
base[0]= CMPmake_fixnum((long)(V833)-1); |
base[0]= CMPmake_fixnum((long)(V941)-1); |
4150 |
base[1]= CMPmake_fixnum((long)STREF(unsigned short,V828,32)); |
base[1]= CMPmake_fixnum((long)STREF(unsigned short,V936,32)); |
4151 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4152 |
Lfloor(); |
Lfloor(); |
4153 |
vs_top=sup; |
vs_top=sup; |
4154 |
V832= fix(vs_base[0]);} |
V940= fix(vs_base[0]);} |
4155 |
goto T1580; |
goto T1580; |
4156 |
T1580:; |
T1580:; |
4157 |
{object V842; |
{object V954; |
4158 |
object V843; |
object V955; |
4159 |
base[0]= CMPmake_fixnum(V832); |
base[0]= CMPmake_fixnum(V940); |
4160 |
base[1]= (V828); |
base[1]= (V936); |
4161 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4162 |
(void) (*Lnk212)(); |
(void) (*Lnk212)(); |
4163 |
if(vs_base>=vs_top){vs_top=sup;goto T1609;} |
if(vs_base>=vs_top){vs_top=sup;goto T1609;} |
4164 |
V842= vs_base[0]; |
V954= vs_base[0]; |
4165 |
vs_base++; |
vs_base++; |
4166 |
if(vs_base>=vs_top){vs_top=sup;goto T1610;} |
if(vs_base>=vs_top){vs_top=sup;goto T1610;} |
4167 |
V843= vs_base[0]; |
V955= vs_base[0]; |
4168 |
vs_top=sup; |
vs_top=sup; |
4169 |
goto T1611; |
goto T1611; |
4170 |
goto T1609; |
goto T1609; |
4171 |
T1609:; |
T1609:; |
4172 |
V842= Cnil; |
V954= Cnil; |
4173 |
goto T1610; |
goto T1610; |
4174 |
T1610:; |
T1610:; |
4175 |
V843= Cnil; |
V955= Cnil; |
4176 |
goto T1611; |
goto T1611; |
4177 |
T1611:; |
T1611:; |
4178 |
if(((V827))!=Cnil){ |
if(((V935))!=Cnil){ |
4179 |
goto T1612;} |
goto T1612;} |
4180 |
if(((V843))==Cnil){ |
if(((V955))==Cnil){ |
4181 |
goto T1613;} |
goto T1613;} |
4182 |
goto T1612; |
goto T1612; |
4183 |
T1612:; |
T1612:; |
4184 |
if(((V843))!=Cnil){ |
if(((V955))!=Cnil){ |
4185 |
goto T1617;} |
goto T1617;} |
4186 |
{object V844; |
{object V956; |
4187 |
object V846; |
object V958; |
4188 |
{long V848; |
{long V960; |
4189 |
V848= fix((V842)); |
V960= fix((V954)); |
4190 |
{long V849; |
{long V961; |
4191 |
V849= V848; |
V961= V960; |
4192 |
V850= (long)STREF(unsigned short,V828,4); |
V962= (long)STREF(unsigned short,V936,4); |
4193 |
if((V850)==(1)){ |
if((V962)==(1)){ |
4194 |
goto T1627;} |
goto T1627;} |
4195 |
goto T1623; |
goto T1623; |
4196 |
goto T1627; |
goto T1627; |
4197 |
T1627:; |
T1627:; |
4198 |
if(!((V849)==(0))){ |
if(!((V961)==(0))){ |
4199 |
goto T1623;}} |
goto T1623;}} |
4200 |
base[2]= VV[160]; |
base[2]= VV[160]; |
4201 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4203 |
vs_top=sup; |
vs_top=sup; |
4204 |
goto T1623; |
goto T1623; |
4205 |
T1623:; |
T1623:; |
4206 |
{long V851; |
{long V963; |
4207 |
{long V852; |
{long V964; |
4208 |
V852= V848; |
V964= V960; |
4209 |
{long V853; |
{long V965; |
4210 |
V853= V852; |
V965= V964; |
4211 |
V854= (long)STREF(unsigned short,V828,4); |
V966= (long)STREF(unsigned short,V936,4); |
4212 |
if((V854)==(1)){ |
if((V966)==(1)){ |
4213 |
goto T1637;} |
goto T1637;} |
4214 |
goto T1633; |
goto T1633; |
4215 |
goto T1637; |
goto T1637; |
4216 |
T1637:; |
T1637:; |
4217 |
if(!((V853)==(0))){ |
if(!((V965)==(0))){ |
4218 |
goto T1633;}} |
goto T1633;}} |
4219 |
base[2]= VV[156]; |
base[2]= VV[156]; |
4220 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4222 |
vs_top=sup; |
vs_top=sup; |
4223 |
goto T1633; |
goto T1633; |
4224 |
T1633:; |
T1633:; |
4225 |
V855= (long)STREF(unsigned short,V828,4); |
V967= (long)STREF(unsigned short,V936,4); |
4226 |
if(!((V855)==(1))){ |
if(!((V967)==(1))){ |
4227 |
goto T1642;} |
goto T1642;} |
4228 |
V856= (long)STREF(unsigned short,V828,32); |
V968 = V964; |
4229 |
V851= (long)(V852)*(V856); |
V969= (long)STREF(unsigned short,V936,32); |
4230 |
|
V963= (long)(V968)*(V969); |
4231 |
goto T1631; |
goto T1631; |
4232 |
goto T1642; |
goto T1642; |
4233 |
T1642:; |
T1642:; |
4234 |
V857= (long)STREF(unsigned short,V828,32); |
V970 = V964; |
4235 |
V851= (long)((long)(V852)*(V857))+1;} |
V971= (long)STREF(unsigned short,V936,32); |
4236 |
|
V963= (long)((long)(V970)*(V971))+1;} |
4237 |
goto T1631; |
goto T1631; |
4238 |
T1631:; |
T1631:; |
4239 |
V858= (long)STREF(unsigned short,V828,4); |
V972= (long)STREF(unsigned short,V936,4); |
4240 |
if(!((V858)==(1))){ |
if(!((V972)==(1))){ |
4241 |
goto T1648;} |
goto T1648;} |
4242 |
V859= STREF(object,V828,40); |
V973= STREF(object,V936,40); |
4243 |
V847= (V859)->v.v_self[V851]; |
V974 = V963; |
4244 |
|
V959= (V973)->v.v_self[V974]; |
4245 |
goto T1621; |
goto T1621; |
4246 |
goto T1648; |
goto T1648; |
4247 |
T1648:; |
T1648:; |
4248 |
{register object V860; |
{register object V975; |
4249 |
object V861; |
object V976; |
4250 |
base[2]= CMPmake_fixnum((long)STREF(unsigned short,V828,4)); |
base[2]= CMPmake_fixnum((long)STREF(unsigned short,V936,4)); |
4251 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4252 |
Lmake_list(); |
Lmake_list(); |
4253 |
vs_top=sup; |
vs_top=sup; |
4254 |
V860= vs_base[0]; |
V975= vs_base[0]; |
4255 |
V861= STREF(object,V828,40); |
V976= STREF(object,V936,40); |
4256 |
{long V862; |
{long V977; |
4257 |
register long V863; |
register long V978; |
4258 |
V862= (long)STREF(unsigned short,V828,4); |
V977= (long)STREF(unsigned short,V936,4); |
4259 |
V863= 0; |
V978= 0; |
4260 |
goto T1658; |
goto T1658; |
4261 |
T1658:; |
T1658:; |
4262 |
if(!((V863)>=(V862))){ |
if(!((V978)>=(V977))){ |
4263 |
goto T1659;} |
goto T1659;} |
4264 |
V847= (V860); |
V959= (V975); |
4265 |
goto T1621; |
goto T1621; |
4266 |
goto T1659; |
goto T1659; |
4267 |
T1659:; |
T1659:; |
4268 |
{register object V864; |
{register object V979; |
4269 |
register object V865; |
register object V980; |
4270 |
register object V866; |
register object V981; |
4271 |
V864= CMPmake_fixnum(V863); |
V979= CMPmake_fixnum(V978); |
4272 |
V865= (V860); |
V980= (V975); |
4273 |
V866= ((V861))->v.v_self[(long)(V851)+(V863)]; |
V981= ((V976))->v.v_self[(long)(V963)+(V978)]; |
4274 |
(nthcdr(fix((V864)),(V865)))->c.c_car = (V866); |
(nthcdr(fix((V979)),(V980)))->c.c_car = (V981); |
4275 |
(void)(nthcdr(fix((V864)),(V865)));} |
(void)(nthcdr(fix((V979)),(V980)));} |
4276 |
V863= (long)(V863)+1; |
V978= (long)(V978)+1; |
4277 |
goto T1658;}}}} |
goto T1658;}}}} |
4278 |
goto T1621; |
goto T1621; |
4279 |
T1621:; |
T1621:; |
4280 |
{long V868; |
{long V983; |
4281 |
V868= fix((V842)); |
V983= fix((V954)); |
4282 |
{long V869; |
{long V984; |
4283 |
V869= V868; |
V984= V983; |
4284 |
V870= (long)STREF(unsigned short,V828,4); |
V985= (long)STREF(unsigned short,V936,4); |
4285 |
if((V870)==(1)){ |
if((V985)==(1)){ |
4286 |
goto T1676;} |
goto T1676;} |
4287 |
goto T1672; |
goto T1672; |
4288 |
goto T1676; |
goto T1676; |
4289 |
T1676:; |
T1676:; |
4290 |
if(!((V869)==(0))){ |
if(!((V984)==(0))){ |
4291 |
goto T1672;}} |
goto T1672;}} |
4292 |
base[2]= VV[161]; |
base[2]= VV[161]; |
4293 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4295 |
vs_top=sup; |
vs_top=sup; |
4296 |
goto T1672; |
goto T1672; |
4297 |
T1672:; |
T1672:; |
4298 |
{long V871; |
{long V986; |
4299 |
{long V872; |
{long V987; |
4300 |
V872= V868; |
V987= V983; |
4301 |
{long V873; |
{long V988; |
4302 |
V873= V872; |
V988= V987; |
4303 |
V874= (long)STREF(unsigned short,V828,4); |
V989= (long)STREF(unsigned short,V936,4); |
4304 |
if((V874)==(1)){ |
if((V989)==(1)){ |
4305 |
goto T1686;} |
goto T1686;} |
4306 |
goto T1682; |
goto T1682; |
4307 |
goto T1686; |
goto T1686; |
4308 |
T1686:; |
T1686:; |
4309 |
if(!((V873)==(0))){ |
if(!((V988)==(0))){ |
4310 |
goto T1682;}} |
goto T1682;}} |
4311 |
base[2]= VV[156]; |
base[2]= VV[156]; |
4312 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4314 |
vs_top=sup; |
vs_top=sup; |
4315 |
goto T1682; |
goto T1682; |
4316 |
T1682:; |
T1682:; |
4317 |
V875= (long)STREF(unsigned short,V828,4); |
V990= (long)STREF(unsigned short,V936,4); |
4318 |
if(!((V875)==(1))){ |
if(!((V990)==(1))){ |
4319 |
goto T1691;} |
goto T1691;} |
4320 |
V876= (long)STREF(unsigned short,V828,32); |
V991 = V987; |
4321 |
V871= (long)(V872)*(V876); |
V992= (long)STREF(unsigned short,V936,32); |
4322 |
|
V986= (long)(V991)*(V992); |
4323 |
goto T1680; |
goto T1680; |
4324 |
goto T1691; |
goto T1691; |
4325 |
T1691:; |
T1691:; |
4326 |
V877= (long)STREF(unsigned short,V828,32); |
V993 = V987; |
4327 |
V871= (long)((long)(V872)*(V877))+1;} |
V994= (long)STREF(unsigned short,V936,32); |
4328 |
|
V986= (long)((long)(V993)*(V994))+1;} |
4329 |
goto T1680; |
goto T1680; |
4330 |
T1680:; |
T1680:; |
4331 |
if((STREF(object,V828,8))!=Cnil){ |
if((STREF(object,V936,8))!=Cnil){ |
4332 |
goto T1696;} |
goto T1696;} |
4333 |
V867= Cnil; |
V982= Cnil; |
4334 |
goto T1670; |
goto T1670; |
4335 |
goto T1696; |
goto T1696; |
4336 |
T1696:; |
T1696:; |
4337 |
V878= STREF(object,V828,40); |
V995= STREF(object,V936,40); |
4338 |
V879= (long)STREF(unsigned short,V828,4); |
V996 = V986; |
4339 |
V867= (V878)->v.v_self[(long)(V871)+(V879)];}} |
V997= (long)STREF(unsigned short,V936,4); |
4340 |
|
V982= (V995)->v.v_self[(long)(V996)+(V997)];}} |
4341 |
goto T1670; |
goto T1670; |
4342 |
T1670:; |
T1670:; |
4343 |
V844= make_cons(V847,V867); |
V956= make_cons(V959,V982); |
4344 |
V846= make_cons((V844),STREF(object,V828,44)); |
V958= make_cons((V956),STREF(object,V936,44)); |
4345 |
V880= Ct; |
V998 = V936; |
4346 |
STSET(object,V828,44, (V846)); |
V999 = (V958); |
4347 |
(void)((V846));} |
V1000= Ct; |
4348 |
|
STSET(object,V998,44, V999); |
4349 |
|
(void)(V999);} |
4350 |
goto T1617; |
goto T1617; |
4351 |
T1617:; |
T1617:; |
4352 |
{object V881; |
{object V1001; |
4353 |
object V882; |
object V1002; |
4354 |
long V883; |
long V1003; |
4355 |
V881= STREF(object,(V829),40); |
V1001= STREF(object,(V937),40); |
4356 |
V882= STREF(object,V828,40); |
V1002= STREF(object,V936,40); |
4357 |
V883= fix((V842)); |
V1003= fix((V954)); |
4358 |
{long V884; |
{long V1004; |
4359 |
V884= V883; |
V1004= V1003; |
4360 |
V885= (long)STREF(unsigned short,V828,4); |
V1005= (long)STREF(unsigned short,V936,4); |
4361 |
if((V885)==(1)){ |
if((V1005)==(1)){ |
4362 |
goto T1709;} |
goto T1709;} |
4363 |
goto T1706; |
goto T1706; |
4364 |
goto T1709; |
goto T1709; |
4365 |
T1709:; |
T1709:; |
4366 |
if(!((V884)==(0))){ |
if(!((V1004)==(0))){ |
4367 |
goto T1706;}} |
goto T1706;}} |
4368 |
base[0]= VV[163]; |
base[0]= VV[163]; |
4369 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4372 |
goto T1704; |
goto T1704; |
4373 |
goto T1706; |
goto T1706; |
4374 |
T1706:; |
T1706:; |
4375 |
{long V886; |
{long V1006; |
4376 |
long V887; |
long V1007; |
4377 |
{long V888; |
{long V1008; |
4378 |
V888= V830; |
V1008= V938; |
4379 |
{long V889; |
{long V1009; |
4380 |
V889= V888; |
V1009= V1008; |
4381 |
V890= (long)STREF(unsigned short,V828,4); |
V1010= (long)STREF(unsigned short,V936,4); |
4382 |
if((V890)==(1)){ |
if((V1010)==(1)){ |
4383 |
goto T1719;} |
goto T1719;} |
4384 |
goto T1715; |
goto T1715; |
4385 |
goto T1719; |
goto T1719; |
4386 |
T1719:; |
T1719:; |
4387 |
if(!((V889)==(0))){ |
if(!((V1009)==(0))){ |
4388 |
goto T1715;}} |
goto T1715;}} |
4389 |
base[0]= VV[156]; |
base[0]= VV[156]; |
4390 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4392 |
vs_top=sup; |
vs_top=sup; |
4393 |
goto T1715; |
goto T1715; |
4394 |
T1715:; |
T1715:; |
4395 |
V891= (long)STREF(unsigned short,V828,4); |
V1011= (long)STREF(unsigned short,V936,4); |
4396 |
if(!((V891)==(1))){ |
if(!((V1011)==(1))){ |
4397 |
goto T1724;} |
goto T1724;} |
4398 |
V892= (long)STREF(unsigned short,V828,32); |
V1012 = V1008; |
4399 |
V886= (long)(V888)*(V892); |
V1013= (long)STREF(unsigned short,V936,32); |
4400 |
|
V1006= (long)(V1012)*(V1013); |
4401 |
goto T1713; |
goto T1713; |
4402 |
goto T1724; |
goto T1724; |
4403 |
T1724:; |
T1724:; |
4404 |
V893= (long)STREF(unsigned short,V828,32); |
V1014 = V1008; |
4405 |
V886= (long)((long)(V888)*(V893))+1;} |
V1015= (long)STREF(unsigned short,V936,32); |
4406 |
|
V1006= (long)((long)(V1014)*(V1015))+1;} |
4407 |
goto T1713; |
goto T1713; |
4408 |
T1713:; |
T1713:; |
4409 |
{long V894; |
{long V1016; |
4410 |
V894= V883; |
V1016= V1003; |
4411 |
{long V895; |
{long V1017; |
4412 |
V895= V894; |
V1017= V1016; |
4413 |
V896= (long)STREF(unsigned short,V828,4); |
V1018= (long)STREF(unsigned short,V936,4); |
4414 |
if((V896)==(1)){ |
if((V1018)==(1)){ |
4415 |
goto T1735;} |
goto T1735;} |
4416 |
goto T1731; |
goto T1731; |
4417 |
goto T1735; |
goto T1735; |
4418 |
T1735:; |
T1735:; |
4419 |
if(!((V895)==(0))){ |
if(!((V1017)==(0))){ |
4420 |
goto T1731;}} |
goto T1731;}} |
4421 |
base[0]= VV[156]; |
base[0]= VV[156]; |
4422 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4424 |
vs_top=sup; |
vs_top=sup; |
4425 |
goto T1731; |
goto T1731; |
4426 |
T1731:; |
T1731:; |
4427 |
V897= (long)STREF(unsigned short,V828,4); |
V1019= (long)STREF(unsigned short,V936,4); |
4428 |
if(!((V897)==(1))){ |
if(!((V1019)==(1))){ |
4429 |
goto T1740;} |
goto T1740;} |
4430 |
V898= (long)STREF(unsigned short,V828,32); |
V1020 = V1016; |
4431 |
V887= (long)(V894)*(V898); |
V1021= (long)STREF(unsigned short,V936,32); |
4432 |
|
V1007= (long)(V1020)*(V1021); |
4433 |
goto T1729; |
goto T1729; |
4434 |
goto T1740; |
goto T1740; |
4435 |
T1740:; |
T1740:; |
4436 |
V899= (long)STREF(unsigned short,V828,32); |
V1022 = V1016; |
4437 |
V887= (long)((long)(V894)*(V899))+1;} |
V1023= (long)STREF(unsigned short,V936,32); |
4438 |
|
V1007= (long)((long)(V1022)*(V1023))+1;} |
4439 |
goto T1729; |
goto T1729; |
4440 |
T1729:; |
T1729:; |
4441 |
{long V902; |
{long V1026; |
4442 |
register long V903; |
register long V1027; |
4443 |
V902= (long)STREF(unsigned short,V828,32); |
V1026= (long)STREF(unsigned short,V936,32); |
4444 |
V903= 0; |
V1027= 0; |
4445 |
goto T1749; |
goto T1749; |
4446 |
T1749:; |
T1749:; |
4447 |
if(!((V903)>=(V902))){ |
if(!((V1027)>=(V1026))){ |
4448 |
goto T1750;} |
goto T1750;} |
4449 |
base[0]= Cnil; |
base[0]= Cnil; |
4450 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4451 |
goto T1745; |
goto T1745; |
4452 |
goto T1750; |
goto T1750; |
4453 |
T1750:; |
T1750:; |
4454 |
(void)(((V882))->v.v_self[(long)(V887)+(V903)]= (((V881))->v.v_self[(long)(V886)+(V903)])); |
(void)(((V1002))->v.v_self[(long)(V1007)+(V1027)]= (((V1001))->v.v_self[(long)(V1006)+(V1027)])); |
4455 |
V903= (long)(V903)+1; |
V1027= (long)(V1027)+1; |
4456 |
goto T1749;} |
goto T1749;} |
4457 |
goto T1745; |
goto T1745; |
4458 |
T1745:; |
T1745:; |
4459 |
{object *V901=vs_top;object *V900=vs_base; vs_base=V901; |
{object *V1025=vs_top;object *V1024=vs_base; vs_base=V1025; |
4460 |
{register object *base0=base; |
{register object *base0=base; |
4461 |
{register object *base=V901; |
{register object *base=V1025; |
4462 |
register object *sup=vs_base+VM68; |
register object *sup=vs_base+VM68; |
4463 |
base0[0]=base0[0]; |
base0[0]=base0[0]; |
4464 |
base[0]=base[0]; |
base[0]=base[0]; |
4465 |
vs_check; |
vs_check; |
4466 |
vs_top=sup; |
vs_top=sup; |
4467 |
{long V904; |
{long V1028; |
4468 |
V904= fix(((V882))->v.v_self[0]); |
V1028= fix(((V1002))->v.v_self[0]); |
4469 |
if(!((V904)==(2147483647))){ |
V1029 = (V1002); |
4470 |
|
if(!((V1028)==(2147483647))){ |
4471 |
goto T1761;} |
goto T1761;} |
4472 |
V905= small_fixnum(1); |
V1030= small_fixnum(1); |
4473 |
goto T1759; |
goto T1759; |
4474 |
goto T1761; |
goto T1761; |
4475 |
T1761:; |
T1761:; |
4476 |
V905= CMPmake_fixnum((long)(V904)+1); |
V1030= CMPmake_fixnum((long)(V1028)+1); |
4477 |
goto T1759; |
goto T1759; |
4478 |
T1759:; |
T1759:; |
4479 |
(void)(((V882))->v.v_self[0]= (V905));} |
(void)((V1029)->v.v_self[0]= (V1030));} |
4480 |
}} |
}} |
4481 |
vs_base=V900;vs_top=V901;} |
vs_base=V1024;vs_top=V1025;} |
4482 |
vs_top=sup;} |
vs_top=sup;} |
4483 |
goto T1704; |
goto T1704; |
4484 |
T1704:; |
T1704:; |
4485 |
if(((VV[153]->s.s_dbind))==Cnil){ |
if(((VV[153]->s.s_dbind))==Cnil){ |
4486 |
goto T1763;} |
goto T1763;} |
4487 |
(void)((*(LnkLI154))((V828))); |
(void)((*(LnkLI154))((V936))); |
4488 |
goto T1763; |
goto T1763; |
4489 |
T1763:; |
T1763:; |
4490 |
{object V906 = (V828); |
{object V1031 = (V936); |
4491 |
VMR67(V906)}} |
VMR67(V1031)}} |
4492 |
goto T1613; |
goto T1613; |
4493 |
T1613:; |
T1613:; |
4494 |
{object V907 = Cnil; |
{object V1032 = Cnil; |
4495 |
VMR67(V907)}}} |
VMR67(V1032)}}} |
4496 |
base[0]=base[0]; |
base[0]=base[0]; |
4497 |
return Cnil; |
return Cnil; |
4498 |
} |
} |
4499 |
/* local entry for function ADJUST-CACHE */ |
/* local entry for function ADJUST-CACHE */ |
4500 |
|
|
4501 |
static object LI74(V912,V913,V914,V915) |
static object LI74(V1037,V1038,V1039,V1040) |
4502 |
|
|
4503 |
object V912;object V913;object V914;object V915; |
object V1037;object V1038;object V1039;object V1040; |
4504 |
{ VMB69 VMS69 VMV69 |
{ VMB69 VMS69 VMV69 |
4505 |
goto TTL; |
goto TTL; |
4506 |
TTL:; |
TTL:; |
4507 |
base[0]= (V912); |
base[0]= (V1037); |
4508 |
{register object V916; |
{register object V1041; |
4509 |
V916= base[0]; |
V1041= base[0]; |
4510 |
V917= CMPmake_fixnum((long)STREF(fixnum,(V916),12)); |
V1042 = base[0]; |
4511 |
V918= CMPmake_fixnum((long)STREF(unsigned char,(V916),16)); |
V1043= CMPmake_fixnum((long)STREF(fixnum,(V1041),12)); |
4512 |
base[1]= (VFUN_NARGS=3,(*(LnkLI213))(base[0],V917,V918)); |
V1044= CMPmake_fixnum((long)STREF(unsigned char,(V1041),16)); |
4513 |
{object V919; |
base[1]= (VFUN_NARGS=3,(*(LnkLI213))(V1042,V1043,V1044)); |
4514 |
V919= CMPmake_fixnum((long)STREF(unsigned char,base[1],16)); |
{object V1045; |
4515 |
|
V1045= CMPmake_fixnum((long)STREF(unsigned char,base[1],16)); |
4516 |
goto T1771; |
goto T1771; |
4517 |
T1771:; |
T1771:; |
4518 |
if(((V919))!=Cnil){ |
if(((V1045))!=Cnil){ |
4519 |
goto T1772;} |
goto T1772;} |
4520 |
(void)((*(LnkLI214))(base[1])); |
(void)((*(LnkLI214))(base[1])); |
4521 |
{object V920 = Cnil; |
{object V1046 = Cnil; |
4522 |
VMR69(V920)} |
VMR69(V1046)} |
4523 |
goto T1772; |
goto T1772; |
4524 |
T1772:; |
T1772:; |
4525 |
{long V921; |
{long V1047; |
4526 |
V921= fix((V919)); |
V1047= fix((V1045)); |
4527 |
V922= Ct; |
V1048 = base[1]; |
4528 |
STSET(unsigned char,base[1],16, V921); |
V1049 = V1047; |
4529 |
(void)(V921); |
V1050= Ct; |
4530 |
{long V923; |
STSET(unsigned char,V1048,16, V1049); |
4531 |
register long V924; |
(void)(V1049); |
4532 |
V923= (long)STREF(fixnum,(V916),12); |
{long V1051; |
4533 |
V924= 0; |
register long V1052; |
4534 |
|
V1051= (long)STREF(fixnum,(V1041),12); |
4535 |
|
V1052= 0; |
4536 |
goto T1787; |
goto T1787; |
4537 |
T1787:; |
T1787:; |
4538 |
if(!((V924)>=(V923))){ |
if(!((V1052)>=(V1051))){ |
4539 |
goto T1788;} |
goto T1788;} |
4540 |
goto T1783; |
goto T1783; |
4541 |
goto T1788; |
goto T1788; |
4542 |
T1788:; |
T1788:; |
4543 |
{long V925; |
{long V1053; |
4544 |
V925= V924; |
V1053= V1052; |
4545 |
V926= (long)STREF(unsigned short,(V916),4); |
V1054= (long)STREF(unsigned short,(V1041),4); |
4546 |
if((V926)==(1)){ |
if((V1054)==(1)){ |
4547 |
goto T1796;} |
goto T1796;} |
4548 |
goto T1794; |
goto T1794; |
4549 |
goto T1796; |
goto T1796; |
4550 |
T1796:; |
T1796:; |
4551 |
if((V925)==(0)){ |
if((V1053)==(0)){ |
4552 |
goto T1791;}} |
goto T1791;}} |
4553 |
goto T1794; |
goto T1794; |
4554 |
T1794:; |
T1794:; |
4555 |
{long V927; |
{long V1055; |
4556 |
V927= V924; |
V1055= V1052; |
4557 |
{long V929; |
{long V1057; |
4558 |
V929= V927; |
V1057= V1055; |
4559 |
V930= (long)STREF(unsigned short,(V916),4); |
V1058= (long)STREF(unsigned short,(V1041),4); |
4560 |
if((V930)==(1)){ |
if((V1058)==(1)){ |
4561 |
goto T1805;} |
goto T1805;} |
4562 |
goto T1801; |
goto T1801; |
4563 |
goto T1805; |
goto T1805; |
4564 |
T1805:; |
T1805:; |
4565 |
if(!((V929)==(0))){ |
if(!((V1057)==(0))){ |
4566 |
goto T1801;}} |
goto T1801;}} |
4567 |
base[2]= VV[159]; |
base[2]= VV[159]; |
4568 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4570 |
vs_top=sup; |
vs_top=sup; |
4571 |
goto T1801; |
goto T1801; |
4572 |
T1801:; |
T1801:; |
4573 |
{long V931; |
{long V1059; |
4574 |
register object V932; |
register object V1060; |
4575 |
{long V933; |
{long V1061; |
4576 |
V933= V927; |
V1061= V1055; |
4577 |
{long V934; |
{long V1062; |
4578 |
V934= V933; |
V1062= V1061; |
4579 |
V935= (long)STREF(unsigned short,(V916),4); |
V1063= (long)STREF(unsigned short,(V1041),4); |
4580 |
if((V935)==(1)){ |
if((V1063)==(1)){ |
4581 |
goto T1815;} |
goto T1815;} |
4582 |
goto T1811; |
goto T1811; |
4583 |
goto T1815; |
goto T1815; |
4584 |
T1815:; |
T1815:; |
4585 |
if(!((V934)==(0))){ |
if(!((V1062)==(0))){ |
4586 |
goto T1811;}} |
goto T1811;}} |
4587 |
base[2]= VV[156]; |
base[2]= VV[156]; |
4588 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4590 |
vs_top=sup; |
vs_top=sup; |
4591 |
goto T1811; |
goto T1811; |
4592 |
T1811:; |
T1811:; |
4593 |
V936= (long)STREF(unsigned short,(V916),4); |
V1064= (long)STREF(unsigned short,(V1041),4); |
4594 |
if(!((V936)==(1))){ |
if(!((V1064)==(1))){ |
4595 |
goto T1820;} |
goto T1820;} |
4596 |
V937= (long)STREF(unsigned short,(V916),32); |
V1065 = V1061; |
4597 |
V931= (long)(V933)*(V937); |
V1066= (long)STREF(unsigned short,(V1041),32); |
4598 |
|
V1059= (long)(V1065)*(V1066); |
4599 |
goto T1809; |
goto T1809; |
4600 |
goto T1820; |
goto T1820; |
4601 |
T1820:; |
T1820:; |
4602 |
V938= (long)STREF(unsigned short,(V916),32); |
V1067 = V1061; |
4603 |
V931= (long)((long)(V933)*(V938))+1;} |
V1068= (long)STREF(unsigned short,(V1041),32); |
4604 |
|
V1059= (long)((long)(V1067)*(V1068))+1;} |
4605 |
goto T1809; |
goto T1809; |
4606 |
T1809:; |
T1809:; |
4607 |
V932= V913; |
V1060= V1038; |
4608 |
{object V939; |
{object V1069; |
4609 |
object V940; |
object V1070; |
4610 |
V939= STREF(object,(V916),40); |
V1069= STREF(object,(V1041),40); |
4611 |
V940= (((V932))==Cnil?Ct:Cnil); |
V1070= (((V1060))==Cnil?Ct:Cnil); |
4612 |
{long V941; |
{long V1071; |
4613 |
register long V942; |
register long V1072; |
4614 |
V941= (long)STREF(unsigned short,(V916),4); |
V1071= (long)STREF(unsigned short,(V1041),4); |
4615 |
V942= 0; |
V1072= 0; |
4616 |
goto T1830; |
goto T1830; |
4617 |
T1830:; |
T1830:; |
4618 |
if(!((V942)>=(V941))){ |
if(!((V1072)>=(V1071))){ |
4619 |
goto T1831;} |
goto T1831;} |
4620 |
if(((V940))==Cnil){ |
if(((V1070))==Cnil){ |
4621 |
goto T1791;} |
goto T1791;} |
4622 |
goto T1799; |
goto T1799; |
4623 |
goto T1831; |
goto T1831; |
4624 |
T1831:; |
T1831:; |
4625 |
{register object V943; |
{register object V1073; |
4626 |
V943= ((V939))->v.v_self[(long)(V931)+(V942)]; |
V1073= ((V1069))->v.v_self[(long)(V1059)+(V1072)]; |
4627 |
if(((V943))==Cnil){ |
if(((V1073))==Cnil){ |
4628 |
goto T1837;} |
goto T1837;} |
4629 |
if(!((((((V943))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((V1073))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4630 |
goto T1836;} |
goto T1836;} |
4631 |
goto T1837; |
goto T1837; |
4632 |
T1837:; |
T1837:; |
4633 |
goto T1791; |
goto T1791; |
4634 |
goto T1836; |
goto T1836; |
4635 |
T1836:; |
T1836:; |
4636 |
if(((V932))==Cnil){ |
if(((V1060))==Cnil){ |
4637 |
goto T1841;} |
goto T1841;} |
4638 |
if(!(type_of((V932))==t_cons)){ |
V1074 = (V1073); |
4639 |
|
if(!(type_of((V1060))==t_cons)){ |
4640 |
goto T1847;} |
goto T1847;} |
4641 |
{object V945; |
{object V1076; |
4642 |
V945= CMPcar((V932)); |
V1076= CMPcar((V1060)); |
4643 |
V932= CMPcdr((V932)); |
V1060= CMPcdr((V1060)); |
4644 |
V944= (V945); |
V1075= (V1076); |
4645 |
goto T1845;} |
goto T1845;} |
4646 |
goto T1847; |
goto T1847; |
4647 |
T1847:; |
T1847:; |
4648 |
V944= (V932); |
V1075= (V1060); |
4649 |
goto T1845; |
goto T1845; |
4650 |
T1845:; |
T1845:; |
4651 |
if(((V943))==(V944)){ |
if((V1074)==(V1075)){ |
4652 |
goto T1834;} |
goto T1834;} |
4653 |
goto T1841; |
goto T1841; |
4654 |
T1841:; |
T1841:; |
4655 |
V940= Ct;} |
V1070= Ct;} |
4656 |
goto T1834; |
goto T1834; |
4657 |
T1834:; |
T1834:; |
4658 |
V942= (long)(V942)+1; |
V1072= (long)(V1072)+1; |
4659 |
goto T1830;}}}} |
goto T1830;}}}} |
4660 |
goto T1799; |
goto T1799; |
4661 |
T1799:; |
T1799:; |
4662 |
base[2]= CMPmake_fixnum(V924); |
base[2]= CMPmake_fixnum(V1052); |
4663 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4664 |
L75(base); |
L75(base); |
4665 |
vs_top=sup; |
vs_top=sup; |
4668 |
goto T1781; |
goto T1781; |
4669 |
goto T1791; |
goto T1791; |
4670 |
T1791:; |
T1791:; |
4671 |
V924= (long)(V924)+1; |
V1052= (long)(V1052)+1; |
4672 |
goto T1787;} |
goto T1787;} |
4673 |
goto T1783; |
goto T1783; |
4674 |
T1783:; |
T1783:; |
4675 |
{register object V946; |
{register object V1077; |
4676 |
object V947; |
object V1078; |
4677 |
V946= STREF(object,base[0],44); |
V1077= STREF(object,base[0],44); |
4678 |
V947= CMPcar((V946)); |
V1078= CMPcar((V1077)); |
4679 |
goto T1867; |
goto T1867; |
4680 |
T1867:; |
T1867:; |
4681 |
if(!(((V946))==Cnil)){ |
if(!(((V1077))==Cnil)){ |
4682 |
goto T1868;} |
goto T1868;} |
4683 |
goto T1863; |
goto T1863; |
4684 |
goto T1868; |
goto T1868; |
4685 |
T1868:; |
T1868:; |
4686 |
base[4]= CMPcar((V947)); |
base[4]= CMPcar((V1078)); |
4687 |
base[5]= CMPcdr((V947)); |
base[5]= CMPcdr((V1078)); |
4688 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4689 |
L76(base); |
L76(base); |
4690 |
vs_top=sup; |
vs_top=sup; |
4693 |
goto T1781; |
goto T1781; |
4694 |
goto T1872; |
goto T1872; |
4695 |
T1872:; |
T1872:; |
4696 |
V946= CMPcdr((V946)); |
V1077= CMPcdr((V1077)); |
4697 |
V947= CMPcar((V946)); |
V1078= CMPcar((V1077)); |
4698 |
goto T1867;} |
goto T1867;} |
4699 |
goto T1863; |
goto T1863; |
4700 |
T1863:; |
T1863:; |
4701 |
base[2]= (V913); |
base[2]= (V1038); |
4702 |
base[3]= (V914); |
base[3]= (V1039); |
4703 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4704 |
L76(base); |
L76(base); |
4705 |
vs_top=sup; |
vs_top=sup; |
4706 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4707 |
goto T1781;} |
goto T1781;} |
4708 |
if(((V915))==Cnil){ |
if(((V1040))==Cnil){ |
4709 |
goto T1885;} |
goto T1885;} |
4710 |
(void)((*(LnkLI214))(base[0])); |
(void)((*(LnkLI214))(base[0])); |
4711 |
goto T1885; |
goto T1885; |
4715 |
(void)((*(LnkLI154))(base[1])); |
(void)((*(LnkLI154))(base[1])); |
4716 |
goto T1888; |
goto T1888; |
4717 |
T1888:; |
T1888:; |
4718 |
{object V948 = base[1]; |
{object V1079 = base[1]; |
4719 |
VMR69(V948)} |
VMR69(V1079)} |
4720 |
goto T1781; |
goto T1781; |
4721 |
T1781:; |
T1781:; |
4722 |
(void)((*(LnkLI185))(STREF(object,base[1],40)));} |
(void)((*(LnkLI185))(STREF(object,base[1],40)));} |
4723 |
V919= (*(LnkLI36))((V919)); |
V1045= (*(LnkLI36))((V1045)); |
4724 |
goto T1771;}} |
goto T1771;}} |
4725 |
base[0]=base[0]; |
base[0]=base[0]; |
4726 |
return Cnil; |
return Cnil; |
4727 |
} |
} |
4728 |
/* local entry for function EXPAND-CACHE */ |
/* local entry for function EXPAND-CACHE */ |
4729 |
|
|
4730 |
static object LI81(V953,V954,V955,V956) |
static object LI81(V1084,V1085,V1086,V1087) |
4731 |
|
|
4732 |
object V953;object V954;object V955;object V956; |
object V1084;object V1085;object V1086;object V1087; |
4733 |
{ VMB70 VMS70 VMV70 |
{ VMB70 VMS70 VMV70 |
4734 |
goto TTL; |
goto TTL; |
4735 |
TTL:; |
TTL:; |
4736 |
base[0]= (V953); |
base[0]= (V1084); |
4737 |
base[1]= base[0]; |
base[1]= base[0]; |
4738 |
V957= CMPmake_fixnum((long)STREF(fixnum,base[1],12)); |
V1088= CMPmake_fixnum((long)STREF(fixnum,base[1],12)); |
4739 |
V958= number_times(V957,small_fixnum(2)); |
V1089= number_times(V1088,small_fixnum(2)); |
4740 |
base[2]= (VFUN_NARGS=2,(*(LnkLI213))(base[0],/* INLINE-ARGS */V958)); |
base[2]= (VFUN_NARGS=2,(*(LnkLI213))(base[0],/* INLINE-ARGS */V1089)); |
4741 |
{long V959; |
{long V1090; |
4742 |
register long V960; |
register long V1091; |
4743 |
V959= (long)STREF(fixnum,base[1],12); |
V1090= (long)STREF(fixnum,base[1],12); |
4744 |
V960= 0; |
V1091= 0; |
4745 |
goto T1900; |
goto T1900; |
4746 |
T1900:; |
T1900:; |
4747 |
if(!((V960)>=(V959))){ |
if(!((V1091)>=(V1090))){ |
4748 |
goto T1901;} |
goto T1901;} |
4749 |
goto T1896; |
goto T1896; |
4750 |
goto T1901; |
goto T1901; |
4751 |
T1901:; |
T1901:; |
4752 |
{long V961; |
{long V1092; |
4753 |
V961= V960; |
V1092= V1091; |
4754 |
V962= (long)STREF(unsigned short,base[1],4); |
V1093= (long)STREF(unsigned short,base[1],4); |
4755 |
if((V962)==(1)){ |
if((V1093)==(1)){ |
4756 |
goto T1909;} |
goto T1909;} |
4757 |
goto T1907; |
goto T1907; |
4758 |
goto T1909; |
goto T1909; |
4759 |
T1909:; |
T1909:; |
4760 |
if((V961)==(0)){ |
if((V1092)==(0)){ |
4761 |
goto T1904;}} |
goto T1904;}} |
4762 |
goto T1907; |
goto T1907; |
4763 |
T1907:; |
T1907:; |
4764 |
{long V963; |
{long V1094; |
4765 |
V963= V960; |
V1094= V1091; |
4766 |
{long V965; |
{long V1096; |
4767 |
V965= V963; |
V1096= V1094; |
4768 |
V966= (long)STREF(unsigned short,base[1],4); |
V1097= (long)STREF(unsigned short,base[1],4); |
4769 |
if((V966)==(1)){ |
if((V1097)==(1)){ |
4770 |
goto T1918;} |
goto T1918;} |
4771 |
goto T1914; |
goto T1914; |
4772 |
goto T1918; |
goto T1918; |
4773 |
T1918:; |
T1918:; |
4774 |
if(!((V965)==(0))){ |
if(!((V1096)==(0))){ |
4775 |
goto T1914;}} |
goto T1914;}} |
4776 |
base[3]= VV[159]; |
base[3]= VV[159]; |
4777 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4779 |
vs_top=sup; |
vs_top=sup; |
4780 |
goto T1914; |
goto T1914; |
4781 |
T1914:; |
T1914:; |
4782 |
{long V967; |
{long V1098; |
4783 |
register object V968; |
register object V1099; |
4784 |
{long V969; |
{long V1100; |
4785 |
V969= V963; |
V1100= V1094; |
4786 |
{long V970; |
{long V1101; |
4787 |
V970= V969; |
V1101= V1100; |
4788 |
V971= (long)STREF(unsigned short,base[1],4); |
V1102= (long)STREF(unsigned short,base[1],4); |
4789 |
if((V971)==(1)){ |
if((V1102)==(1)){ |
4790 |
goto T1928;} |
goto T1928;} |
4791 |
goto T1924; |
goto T1924; |
4792 |
goto T1928; |
goto T1928; |
4793 |
T1928:; |
T1928:; |
4794 |
if(!((V970)==(0))){ |
if(!((V1101)==(0))){ |
4795 |
goto T1924;}} |
goto T1924;}} |
4796 |
base[3]= VV[156]; |
base[3]= VV[156]; |
4797 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4799 |
vs_top=sup; |
vs_top=sup; |
4800 |
goto T1924; |
goto T1924; |
4801 |
T1924:; |
T1924:; |
4802 |
V972= (long)STREF(unsigned short,base[1],4); |
V1103= (long)STREF(unsigned short,base[1],4); |
4803 |
if(!((V972)==(1))){ |
if(!((V1103)==(1))){ |
4804 |
goto T1933;} |
goto T1933;} |
4805 |
V973= (long)STREF(unsigned short,base[1],32); |
V1104 = V1100; |
4806 |
V967= (long)(V969)*(V973); |
V1105= (long)STREF(unsigned short,base[1],32); |
4807 |
|
V1098= (long)(V1104)*(V1105); |
4808 |
goto T1922; |
goto T1922; |
4809 |
goto T1933; |
goto T1933; |
4810 |
T1933:; |
T1933:; |
4811 |
V974= (long)STREF(unsigned short,base[1],32); |
V1106 = V1100; |
4812 |
V967= (long)((long)(V969)*(V974))+1;} |
V1107= (long)STREF(unsigned short,base[1],32); |
4813 |
|
V1098= (long)((long)(V1106)*(V1107))+1;} |
4814 |
goto T1922; |
goto T1922; |
4815 |
T1922:; |
T1922:; |
4816 |
V968= V954; |
V1099= V1085; |
4817 |
{object V975; |
{object V1108; |
4818 |
object V976; |
object V1109; |
4819 |
V975= STREF(object,base[1],40); |
V1108= STREF(object,base[1],40); |
4820 |
V976= (((V968))==Cnil?Ct:Cnil); |
V1109= (((V1099))==Cnil?Ct:Cnil); |
4821 |
{long V977; |
{long V1110; |
4822 |
register long V978; |
register long V1111; |
4823 |
V977= (long)STREF(unsigned short,base[1],4); |
V1110= (long)STREF(unsigned short,base[1],4); |
4824 |
V978= 0; |
V1111= 0; |
4825 |
goto T1943; |
goto T1943; |
4826 |
T1943:; |
T1943:; |
4827 |
if(!((V978)>=(V977))){ |
if(!((V1111)>=(V1110))){ |
4828 |
goto T1944;} |
goto T1944;} |
4829 |
if(((V976))==Cnil){ |
if(((V1109))==Cnil){ |
4830 |
goto T1904;} |
goto T1904;} |
4831 |
goto T1912; |
goto T1912; |
4832 |
goto T1944; |
goto T1944; |
4833 |
T1944:; |
T1944:; |
4834 |
{register object V979; |
{register object V1112; |
4835 |
V979= ((V975))->v.v_self[(long)(V967)+(V978)]; |
V1112= ((V1108))->v.v_self[(long)(V1098)+(V1111)]; |
4836 |
if(((V979))==Cnil){ |
if(((V1112))==Cnil){ |
4837 |
goto T1950;} |
goto T1950;} |
4838 |
if(!((((((V979))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((V1112))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4839 |
goto T1949;} |
goto T1949;} |
4840 |
goto T1950; |
goto T1950; |
4841 |
T1950:; |
T1950:; |
4842 |
goto T1904; |
goto T1904; |
4843 |
goto T1949; |
goto T1949; |
4844 |
T1949:; |
T1949:; |
4845 |
if(((V968))==Cnil){ |
if(((V1099))==Cnil){ |
4846 |
goto T1954;} |
goto T1954;} |
4847 |
if(!(type_of((V968))==t_cons)){ |
V1113 = (V1112); |
4848 |
|
if(!(type_of((V1099))==t_cons)){ |
4849 |
goto T1960;} |
goto T1960;} |
4850 |
{object V981; |
{object V1115; |
4851 |
V981= CMPcar((V968)); |
V1115= CMPcar((V1099)); |
4852 |
V968= CMPcdr((V968)); |
V1099= CMPcdr((V1099)); |
4853 |
V980= (V981); |
V1114= (V1115); |
4854 |
goto T1958;} |
goto T1958;} |
4855 |
goto T1960; |
goto T1960; |
4856 |
T1960:; |
T1960:; |
4857 |
V980= (V968); |
V1114= (V1099); |
4858 |
goto T1958; |
goto T1958; |
4859 |
T1958:; |
T1958:; |
4860 |
if(((V979))==(V980)){ |
if((V1113)==(V1114)){ |
4861 |
goto T1947;} |
goto T1947;} |
4862 |
goto T1954; |
goto T1954; |
4863 |
T1954:; |
T1954:; |
4864 |
V976= Ct;} |
V1109= Ct;} |
4865 |
goto T1947; |
goto T1947; |
4866 |
T1947:; |
T1947:; |
4867 |
V978= (long)(V978)+1; |
V1111= (long)(V1111)+1; |
4868 |
goto T1943;}}}} |
goto T1943;}}}} |
4869 |
goto T1912; |
goto T1912; |
4870 |
T1912:; |
T1912:; |
4871 |
base[3]= CMPmake_fixnum(V960); |
base[3]= CMPmake_fixnum(V1091); |
4872 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4873 |
L82(base); |
L82(base); |
4874 |
vs_top=sup; |
vs_top=sup; |
4875 |
goto T1904; |
goto T1904; |
4876 |
T1904:; |
T1904:; |
4877 |
V960= (long)(V960)+1; |
V1091= (long)(V1091)+1; |
4878 |
goto T1900;} |
goto T1900;} |
4879 |
goto T1896; |
goto T1896; |
4880 |
T1896:; |
T1896:; |
4881 |
{object V982; |
{object V1116; |
4882 |
register object V983; |
register object V1117; |
4883 |
V982= STREF(object,base[0],44); |
V1116= STREF(object,base[0],44); |
4884 |
V983= CMPcar((V982)); |
V1117= CMPcar((V1116)); |
4885 |
goto T1977; |
goto T1977; |
4886 |
T1977:; |
T1977:; |
4887 |
if(!(((V982))==Cnil)){ |
if(!(((V1116))==Cnil)){ |
4888 |
goto T1978;} |
goto T1978;} |
4889 |
goto T1973; |
goto T1973; |
4890 |
goto T1978; |
goto T1978; |
4891 |
T1978:; |
T1978:; |
4892 |
base[5]= CMPcar((V983)); |
base[5]= CMPcar((V1117)); |
4893 |
base[6]= CMPcdr((V983)); |
base[6]= CMPcdr((V1117)); |
4894 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4895 |
L84(base); |
L84(base); |
4896 |
vs_top=sup; |
vs_top=sup; |
4897 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4898 |
goto T1982;} |
goto T1982;} |
4899 |
base[5]= CMPcar((V983)); |
base[5]= CMPcar((V1117)); |
4900 |
base[6]= CMPcdr((V983)); |
base[6]= CMPcdr((V1117)); |
4901 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4902 |
L83(base); |
L83(base); |
4903 |
vs_top=sup; |
vs_top=sup; |
4904 |
goto T1982; |
goto T1982; |
4905 |
T1982:; |
T1982:; |
4906 |
V982= CMPcdr((V982)); |
V1116= CMPcdr((V1116)); |
4907 |
V983= CMPcar((V982)); |
V1117= CMPcar((V1116)); |
4908 |
goto T1977;} |
goto T1977;} |
4909 |
goto T1973; |
goto T1973; |
4910 |
T1973:; |
T1973:; |
4911 |
base[3]= (V954); |
base[3]= (V1085); |
4912 |
base[4]= (V955); |
base[4]= (V1086); |
4913 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4914 |
L84(base); |
L84(base); |
4915 |
vs_top=sup; |
vs_top=sup; |
4916 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4917 |
goto T1994;} |
goto T1994;} |
4918 |
base[3]= (V954); |
base[3]= (V1085); |
4919 |
base[4]= (V955); |
base[4]= (V1086); |
4920 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4921 |
L83(base); |
L83(base); |
4922 |
vs_top=sup; |
vs_top=sup; |
4923 |
goto T1994; |
goto T1994; |
4924 |
T1994:; |
T1994:; |
4925 |
if(((V956))==Cnil){ |
if(((V1087))==Cnil){ |
4926 |
goto T2001;} |
goto T2001;} |
4927 |
(void)((*(LnkLI214))(base[0])); |
(void)((*(LnkLI214))(base[0])); |
4928 |
goto T2001; |
goto T2001; |
4932 |
(void)((*(LnkLI154))(base[2])); |
(void)((*(LnkLI154))(base[2])); |
4933 |
goto T2004; |
goto T2004; |
4934 |
T2004:; |
T2004:; |
4935 |
{object V984 = base[2]; |
{object V1118 = base[2]; |
4936 |
VMR70(V984)} |
VMR70(V1118)} |
4937 |
base[0]=base[0]; |
base[0]=base[0]; |
4938 |
return Cnil; |
return Cnil; |
4939 |
} |
} |
4943 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4944 |
register object *sup=base+VM71; VC71 |
register object *sup=base+VM71; VC71 |
4945 |
vs_check; |
vs_check; |
4946 |
{long V985; |
{long V1119; |
4947 |
object V986; |
object V1120; |
4948 |
object V987; |
object V1121; |
4949 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
4950 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
4951 |
V985=fix(base[0]); |
V1119=fix(base[0]); |
4952 |
V986=(base[1]); |
V1120=(base[1]); |
4953 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
4954 |
if(vs_base>=vs_top){vs_top=sup;goto T2007;} |
if(vs_base>=vs_top){vs_top=sup;goto T2007;} |
4955 |
V987=(base[2]); |
V1121=(base[2]); |
4956 |
vs_top=sup; |
vs_top=sup; |
4957 |
goto T2008; |
goto T2008; |
4958 |
goto T2007; |
goto T2007; |
4959 |
T2007:; |
T2007:; |
4960 |
V987= Cnil; |
V1121= Cnil; |
4961 |
goto T2008; |
goto T2008; |
4962 |
T2008:; |
T2008:; |
4963 |
{register object V988; |
{register object V1122; |
4964 |
V988= (V986); |
V1122= (V1120); |
4965 |
{long V989; |
{long V1123; |
4966 |
V989= V985; |
V1123= V1119; |
4967 |
V990= (long)STREF(unsigned short,(V988),4); |
V1124= (long)STREF(unsigned short,(V1122),4); |
4968 |
if((V990)==(1)){ |
if((V1124)==(1)){ |
4969 |
goto T2014;} |
goto T2014;} |
4970 |
goto T2010; |
goto T2010; |
4971 |
goto T2014; |
goto T2014; |
4972 |
T2014:; |
T2014:; |
4973 |
if(!((V989)==(0))){ |
if(!((V1123)==(0))){ |
4974 |
goto T2010;}} |
goto T2010;}} |
4975 |
{long V991; |
{long V1125; |
4976 |
V991= V985; |
V1125= V1119; |
4977 |
V992= (long)STREF(fixnum,(V988),12); |
V1126= (long)STREF(fixnum,(V1122),12); |
4978 |
if(!((V991)==((long)(V992)-1))){ |
if(!((V1125)==((long)(V1126)-1))){ |
4979 |
goto T2020;} |
goto T2020;} |
4980 |
{long V993; |
{long V1127; |
4981 |
V993= 0; |
V1127= 0; |
4982 |
V994= (long)STREF(unsigned short,(V988),4); |
V1128= (long)STREF(unsigned short,(V1122),4); |
4983 |
if((V994)==(1)){ |
if((V1128)==(1)){ |
4984 |
goto T2027;} |
goto T2027;} |
4985 |
goto T2024; |
goto T2024; |
4986 |
goto T2027; |
goto T2027; |
4987 |
T2027:; |
T2027:; |
4988 |
if(!((V993)==(0))){ |
if(!((V1127)==(0))){ |
4989 |
goto T2024;}} |
goto T2024;}} |
4990 |
V985= 1; |
V1119= 1; |
4991 |
goto T2017; |
goto T2017; |
4992 |
goto T2024; |
goto T2024; |
4993 |
T2024:; |
T2024:; |
4994 |
V985= 0; |
V1119= 0; |
4995 |
goto T2017; |
goto T2017; |
4996 |
goto T2020; |
goto T2020; |
4997 |
T2020:; |
T2020:; |
4998 |
V985= (long)(V991)+1;} |
V1119= (long)(V1125)+1;} |
4999 |
goto T2017; |
goto T2017; |
5000 |
T2017:; |
T2017:; |
5001 |
goto T2010; |
goto T2010; |
5002 |
T2010:; |
T2010:; |
5003 |
{long V995; |
{long V1129; |
5004 |
object V996; |
object V1130; |
5005 |
register object V997; |
register object V1131; |
5006 |
long V998; |
long V1132; |
5007 |
long V999; |
long V1133; |
5008 |
V1000= STREF(object,(V988),20); |
V1134= STREF(object,(V1122),20); |
5009 |
V1001= CMPmake_fixnum((long)STREF(fixnum,(V988),12)); |
V1135= CMPmake_fixnum((long)STREF(fixnum,(V1122),12)); |
5010 |
V995= fix(( |
V1129= fix(( |
5011 |
V1002 = V1000, |
V1136 = V1134, |
5012 |
(type_of(V1002) == t_sfun ?(*((V1002)->sfn.sfn_self)): |
(type_of(V1136) == t_sfun ?(*((V1136)->sfn.sfn_self)): |
5013 |
(fcall.argd=1,type_of(V1002)==t_vfun) ? |
(fcall.argd=1,type_of(V1136)==t_vfun) ? |
5014 |
(*((V1002)->sfn.sfn_self)): |
(*((V1136)->sfn.sfn_self)): |
5015 |
(fcall.fun=(V1002),fcalln))(V1001))); |
(fcall.fun=(V1136),fcalln))(V1135))); |
5016 |
V998= V985; |
V1132= V1119; |
5017 |
V999= V985; |
V1133= V1119; |
5018 |
V996= Cnil; |
V1130= Cnil; |
5019 |
V997= Cnil; |
V1131= Cnil; |
5020 |
goto T2037; |
goto T2037; |
5021 |
T2037:; |
T2037:; |
5022 |
{register long V1003; |
{register long V1137; |
5023 |
long V1004; |
long V1138; |
5024 |
V1003= V999; |
V1137= V1133; |
5025 |
{long V1005; |
{long V1139; |
5026 |
long V1006; |
long V1140; |
5027 |
V1005= V998; |
V1139= V1132; |
5028 |
V1006= V999; |
V1140= V1133; |
5029 |
{long V1007; |
{long V1141; |
5030 |
V1007= (long)(V1006)-(V1005); |
V1141= (long)(V1140)-(V1139); |
5031 |
if(!((V1007)<0)){ |
if(!((V1141)<0)){ |
5032 |
goto T2044;} |
goto T2044;} |
5033 |
V1008= (long)STREF(fixnum,(V988),12); |
V1142 = V1141; |
5034 |
V1007= (long)(V1007)+(V1008); |
V1143= (long)STREF(fixnum,(V1122),12); |
5035 |
{long V1009; |
V1141= (long)(V1142)+(V1143); |
5036 |
V1009= 0; |
{long V1144; |
5037 |
V1010= (long)STREF(unsigned short,(V988),4); |
V1144= 0; |
5038 |
if((V1010)==(1)){ |
V1145= (long)STREF(unsigned short,(V1122),4); |
5039 |
|
if((V1145)==(1)){ |
5040 |
goto T2053;} |
goto T2053;} |
5041 |
goto T2044; |
goto T2044; |
5042 |
goto T2053; |
goto T2053; |
5043 |
T2053:; |
T2053:; |
5044 |
if(!((V1009)==(0))){ |
if(!((V1144)==(0))){ |
5045 |
goto T2044;}} |
goto T2044;}} |
5046 |
V1007= (long)(V1007)-1; |
V1141= (long)(V1141)-1; |
5047 |
goto T2044; |
goto T2044; |
5048 |
T2044:; |
T2044:; |
5049 |
V1004= V1007;}} |
V1138= V1141;}} |
5050 |
goto T2058; |
goto T2058; |
5051 |
T2058:; |
T2058:; |
5052 |
{long V1011; |
{long V1146; |
5053 |
V1011= V1003; |
V1146= V1137; |
5054 |
{long V1013; |
{long V1148; |
5055 |
V1013= V1011; |
V1148= V1146; |
5056 |
V1014= (long)STREF(unsigned short,(V988),4); |
V1149= (long)STREF(unsigned short,(V1122),4); |
5057 |
if((V1014)==(1)){ |
if((V1149)==(1)){ |
5058 |
goto T2069;} |
goto T2069;} |
5059 |
goto T2065; |
goto T2065; |
5060 |
goto T2069; |
goto T2069; |
5061 |
T2069:; |
T2069:; |
5062 |
if(!((V1013)==(0))){ |
if(!((V1148)==(0))){ |
5063 |
goto T2065;}} |
goto T2065;}} |
5064 |
base[3]= VV[159]; |
base[3]= VV[159]; |
5065 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5067 |
vs_top=sup; |
vs_top=sup; |
5068 |
goto T2065; |
goto T2065; |
5069 |
T2065:; |
T2065:; |
5070 |
{long V1015; |
{long V1150; |
5071 |
register object V1016; |
register object V1151; |
5072 |
{long V1017; |
{long V1152; |
5073 |
V1017= V1011; |
V1152= V1146; |
5074 |
{long V1018; |
{long V1153; |
5075 |
V1018= V1017; |
V1153= V1152; |
5076 |
V1019= (long)STREF(unsigned short,(V988),4); |
V1154= (long)STREF(unsigned short,(V1122),4); |
5077 |
if((V1019)==(1)){ |
if((V1154)==(1)){ |
5078 |
goto T2079;} |
goto T2079;} |
5079 |
goto T2075; |
goto T2075; |
5080 |
goto T2079; |
goto T2079; |
5081 |
T2079:; |
T2079:; |
5082 |
if(!((V1018)==(0))){ |
if(!((V1153)==(0))){ |
5083 |
goto T2075;}} |
goto T2075;}} |
5084 |
base[3]= VV[156]; |
base[3]= VV[156]; |
5085 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5087 |
vs_top=sup; |
vs_top=sup; |
5088 |
goto T2075; |
goto T2075; |
5089 |
T2075:; |
T2075:; |
5090 |
V1020= (long)STREF(unsigned short,(V988),4); |
V1155= (long)STREF(unsigned short,(V1122),4); |
5091 |
if(!((V1020)==(1))){ |
if(!((V1155)==(1))){ |
5092 |
goto T2084;} |
goto T2084;} |
5093 |
V1021= (long)STREF(unsigned short,(V988),32); |
V1156 = V1152; |
5094 |
V1015= (long)(V1017)*(V1021); |
V1157= (long)STREF(unsigned short,(V1122),32); |
5095 |
|
V1150= (long)(V1156)*(V1157); |
5096 |
goto T2073; |
goto T2073; |
5097 |
goto T2084; |
goto T2084; |
5098 |
T2084:; |
T2084:; |
5099 |
V1022= (long)STREF(unsigned short,(V988),32); |
V1158 = V1152; |
5100 |
V1015= (long)((long)(V1017)*(V1022))+1;} |
V1159= (long)STREF(unsigned short,(V1122),32); |
5101 |
|
V1150= (long)((long)(V1158)*(V1159))+1;} |
5102 |
goto T2073; |
goto T2073; |
5103 |
T2073:; |
T2073:; |
5104 |
V1016= V987; |
V1151= V1121; |
5105 |
{object V1023; |
{object V1160; |
5106 |
object V1024; |
object V1161; |
5107 |
V1023= STREF(object,(V988),40); |
V1160= STREF(object,(V1122),40); |
5108 |
V1024= (((V1016))==Cnil?Ct:Cnil); |
V1161= (((V1151))==Cnil?Ct:Cnil); |
5109 |
{long V1025; |
{long V1162; |
5110 |
register long V1026; |
register long V1163; |
5111 |
V1025= (long)STREF(unsigned short,(V988),4); |
V1162= (long)STREF(unsigned short,(V1122),4); |
5112 |
V1026= 0; |
V1163= 0; |
5113 |
goto T2094; |
goto T2094; |
5114 |
T2094:; |
T2094:; |
5115 |
if(!((V1026)>=(V1025))){ |
if(!((V1163)>=(V1162))){ |
5116 |
goto T2095;} |
goto T2095;} |
5117 |
if(((V1024))!=Cnil){ |
if(((V1161))!=Cnil){ |
5118 |
goto T2061;} |
goto T2061;} |
5119 |
goto T2063; |
goto T2063; |
5120 |
goto T2095; |
goto T2095; |
5121 |
T2095:; |
T2095:; |
5122 |
{object V1027; |
{object V1164; |
5123 |
V1027= ((V1023))->v.v_self[(long)(V1015)+(V1026)]; |
V1164= ((V1160))->v.v_self[(long)(V1150)+(V1163)]; |
5124 |
if(((V1027))==Cnil){ |
if(((V1164))==Cnil){ |
5125 |
goto T2101;} |
goto T2101;} |
5126 |
if(!((((((V1027))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((V1164))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
5127 |
goto T2100;} |
goto T2100;} |
5128 |
goto T2101; |
goto T2101; |
5129 |
T2101:; |
T2101:; |
5130 |
goto T2063; |
goto T2063; |
5131 |
goto T2100; |
goto T2100; |
5132 |
T2100:; |
T2100:; |
5133 |
if(((V1016))==Cnil){ |
if(((V1151))==Cnil){ |
5134 |
goto T2105;} |
goto T2105;} |
5135 |
if(!(type_of((V1016))==t_cons)){ |
V1165 = (V1164); |
5136 |
|
if(!(type_of((V1151))==t_cons)){ |
5137 |
goto T2111;} |
goto T2111;} |
5138 |
{object V1029; |
{object V1167; |
5139 |
V1029= CMPcar((V1016)); |
V1167= CMPcar((V1151)); |
5140 |
V1016= CMPcdr((V1016)); |
V1151= CMPcdr((V1151)); |
5141 |
V1028= (V1029); |
V1166= (V1167); |
5142 |
goto T2109;} |
goto T2109;} |
5143 |
goto T2111; |
goto T2111; |
5144 |
T2111:; |
T2111:; |
5145 |
V1028= (V1016); |
V1166= (V1151); |
5146 |
goto T2109; |
goto T2109; |
5147 |
T2109:; |
T2109:; |
5148 |
if(((V1027))==(V1028)){ |
if((V1165)==(V1166)){ |
5149 |
goto T2098;} |
goto T2098;} |
5150 |
goto T2105; |
goto T2105; |
5151 |
T2105:; |
T2105:; |
5152 |
V1024= Ct;} |
V1161= Ct;} |
5153 |
goto T2098; |
goto T2098; |
5154 |
T2098:; |
T2098:; |
5155 |
V1026= (long)(V1026)+1; |
V1163= (long)(V1163)+1; |
5156 |
goto T2094;}}}} |
goto T2094;}}}} |
5157 |
goto T2063; |
goto T2063; |
5158 |
T2063:; |
T2063:; |
5159 |
{object V1030; |
{object V1168; |
5160 |
V1030= CMPmake_fixnum(V1003); |
V1168= CMPmake_fixnum(V1137); |
5161 |
V997= make_cons((V1030),(V997));} |
V1131= make_cons((V1168),(V1131));} |
5162 |
goto T2035; |
goto T2035; |
5163 |
goto T2061; |
goto T2061; |
5164 |
T2061:; |
T2061:; |
5165 |
if(((V996))==Cnil){ |
if(((V1130))==Cnil){ |
5166 |
goto T2123;} |
goto T2123;} |
5167 |
if(!((V1003)>=(V985))){ |
if(!((V1137)>=(V1119))){ |
5168 |
goto T2123;} |
goto T2123;} |
5169 |
base[3]= CMPmake_fixnum(V985); |
base[3]= CMPmake_fixnum(V1119); |
5170 |
base[4]= Cnil; |
base[4]= Cnil; |
5171 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5172 |
return; |
return; |
5173 |
goto T2123; |
goto T2123; |
5174 |
T2123:; |
T2123:; |
5175 |
{object V1031; |
{object V1169; |
5176 |
{long V1032; |
{long V1170; |
5177 |
long V1033; |
long V1171; |
5178 |
{long V1034; |
{long V1172; |
5179 |
V1034= V1003; |
V1172= V1137; |
5180 |
{long V1035; |
{long V1173; |
5181 |
{long V1036; |
{long V1174; |
5182 |
V1036= V1034; |
V1174= V1172; |
5183 |
V1037= (V988); |
V1175= (V1122); |
5184 |
{long V1039; |
{long V1177; |
5185 |
V1039= V1036; |
V1177= V1174; |
5186 |
{long V1040; |
{long V1178; |
5187 |
V1040= V1039; |
V1178= V1177; |
5188 |
V1041= (long)STREF(unsigned short,(V988),4); |
V1179= (long)STREF(unsigned short,(V1122),4); |
5189 |
if((V1041)==(1)){ |
if((V1179)==(1)){ |
5190 |
goto T2143;} |
goto T2143;} |
5191 |
goto T2139; |
goto T2139; |
5192 |
goto T2143; |
goto T2143; |
5193 |
T2143:; |
T2143:; |
5194 |
if(!((V1040)==(0))){ |
if(!((V1178)==(0))){ |
5195 |
goto T2139;}} |
goto T2139;}} |
5196 |
base[3]= VV[156]; |
base[3]= VV[156]; |
5197 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5199 |
vs_top=sup; |
vs_top=sup; |
5200 |
goto T2139; |
goto T2139; |
5201 |
T2139:; |
T2139:; |
5202 |
V1042= (long)STREF(unsigned short,(V988),4); |
V1180= (long)STREF(unsigned short,(V1122),4); |
5203 |
if(!((V1042)==(1))){ |
if(!((V1180)==(1))){ |
5204 |
goto T2148;} |
goto T2148;} |
5205 |
V1043= (long)STREF(unsigned short,(V988),32); |
V1181 = V1177; |
5206 |
V1038= CMPmake_fixnum((long)(V1039)*(V1043)); |
V1182= (long)STREF(unsigned short,(V1122),32); |
5207 |
|
V1176= CMPmake_fixnum((long)(V1181)*(V1182)); |
5208 |
goto T2137; |
goto T2137; |
5209 |
goto T2148; |
goto T2148; |
5210 |
T2148:; |
T2148:; |
5211 |
V1044= (long)STREF(unsigned short,(V988),32); |
V1183 = V1177; |
5212 |
V1038= CMPmake_fixnum((long)((long)(V1039)*(V1044))+1);} |
V1184= (long)STREF(unsigned short,(V1122),32); |
5213 |
|
V1176= CMPmake_fixnum((long)((long)(V1183)*(V1184))+1);} |
5214 |
goto T2137; |
goto T2137; |
5215 |
T2137:; |
T2137:; |
5216 |
V1035= fix((VFUN_NARGS=2,(*(LnkLI210))(V1037,V1038)));} |
V1173= fix((VFUN_NARGS=2,(*(LnkLI210))(V1175,V1176)));} |
5217 |
V1045= (long)STREF(unsigned short,(V988),4); |
V1185= (long)STREF(unsigned short,(V1122),4); |
5218 |
if(!((V1045)==(1))){ |
if(!((V1185)==(1))){ |
5219 |
goto T2154;} |
goto T2154;} |
5220 |
base[3]= CMPmake_fixnum(V1035); |
base[3]= CMPmake_fixnum(V1173); |
5221 |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V988),32)); |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V1122),32)); |
5222 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5223 |
Lfloor(); |
Lfloor(); |
5224 |
vs_top=sup; |
vs_top=sup; |
5225 |
V1032= fix(vs_base[0]); |
V1170= fix(vs_base[0]); |
5226 |
goto T2132; |
goto T2132; |
5227 |
goto T2154; |
goto T2154; |
5228 |
T2154:; |
T2154:; |
5229 |
base[3]= CMPmake_fixnum((long)(V1035)-1); |
base[3]= CMPmake_fixnum((long)(V1173)-1); |
5230 |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V988),32)); |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V1122),32)); |
5231 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5232 |
Lfloor(); |
Lfloor(); |
5233 |
vs_top=sup; |
vs_top=sup; |
5234 |
V1032= fix(vs_base[0]);}} |
V1170= fix(vs_base[0]);}} |
5235 |
goto T2132; |
goto T2132; |
5236 |
T2132:; |
T2132:; |
5237 |
V1033= V1003; |
V1171= V1137; |
5238 |
{register long V1046; |
{register long V1186; |
5239 |
V1046= (long)(V1033)-(V1032); |
V1186= (long)(V1171)-(V1170); |
5240 |
if(!((V1046)<0)){ |
if(!((V1186)<0)){ |
5241 |
goto T2163;} |
goto T2163;} |
5242 |
V1047= (long)STREF(fixnum,(V988),12); |
V1187 = V1186; |
5243 |
V1046= (long)(V1046)+(V1047); |
V1188= (long)STREF(fixnum,(V1122),12); |
5244 |
{long V1048; |
V1186= (long)(V1187)+(V1188); |
5245 |
V1048= 0; |
{long V1189; |
5246 |
V1049= (long)STREF(unsigned short,(V988),4); |
V1189= 0; |
5247 |
if((V1049)==(1)){ |
V1190= (long)STREF(unsigned short,(V1122),4); |
5248 |
|
if((V1190)==(1)){ |
5249 |
goto T2172;} |
goto T2172;} |
5250 |
goto T2163; |
goto T2163; |
5251 |
goto T2172; |
goto T2172; |
5252 |
T2172:; |
T2172:; |
5253 |
if(!((V1048)==(0))){ |
if(!((V1189)==(0))){ |
5254 |
goto T2163;}} |
goto T2163;}} |
5255 |
V1046= (long)(V1046)-1; |
V1186= (long)(V1186)-1; |
5256 |
goto T2163; |
goto T2163; |
5257 |
T2163:; |
T2163:; |
5258 |
V1031= CMPmake_fixnum(V1046);}} |
V1169= CMPmake_fixnum(V1186);}} |
5259 |
V1050 = CMPmake_fixnum(V995); |
V1191 = CMPmake_fixnum(V1129); |
5260 |
if(!(number_compare((V1031),V1050)>=0)){ |
if(!(number_compare((V1169),V1191)>=0)){ |
5261 |
goto T2176;} |
goto T2176;} |
5262 |
base[3]= CMPmake_fixnum(V985); |
base[3]= CMPmake_fixnum(V1119); |
5263 |
base[4]= Cnil; |
base[4]= Cnil; |
5264 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5265 |
return; |
return; |
5266 |
goto T2176; |
goto T2176; |
5267 |
T2176:; |
T2176:; |
5268 |
if(!((V1004)==(V995))){ |
if(!((V1138)==(V1129))){ |
5269 |
goto T2184;} |
goto T2184;} |
5270 |
goto T2182; |
goto T2182; |
5271 |
goto T2184; |
goto T2184; |
5272 |
T2184:; |
T2184:; |
5273 |
V1051 = CMPmake_fixnum(V1004); |
V1192 = CMPmake_fixnum(V1138); |
5274 |
if(!(number_compare(V1051,(V1031))==0)){ |
if(!(number_compare(V1192,(V1169))==0)){ |
5275 |
goto T2187;} |
goto T2187;} |
5276 |
base[3]= small_fixnum(2); |
base[3]= small_fixnum(2); |
5277 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5278 |
Lrandom(); |
Lrandom(); |
5279 |
vs_top=sup; |
vs_top=sup; |
5280 |
V1052= vs_base[0]; |
V1193= vs_base[0]; |
5281 |
if(!(number_compare(small_fixnum(0),V1052)==0)){ |
if(!(number_compare(small_fixnum(0),V1193)==0)){ |
5282 |
goto T2130;} |
goto T2130;} |
5283 |
goto T2182; |
goto T2182; |
5284 |
goto T2187; |
goto T2187; |
5285 |
T2187:; |
T2187:; |
5286 |
V1053 = CMPmake_fixnum(V1004); |
V1194 = CMPmake_fixnum(V1138); |
5287 |
if(!(number_compare(V1053,(V1031))>0)){ |
if(!(number_compare(V1194,(V1169))>0)){ |
5288 |
goto T2192;} |
goto T2192;} |
5289 |
goto T2182; |
goto T2182; |
5290 |
goto T2192; |
goto T2192; |
5292 |
goto T2130; |
goto T2130; |
5293 |
goto T2182; |
goto T2182; |
5294 |
T2182:; |
T2182:; |
5295 |
V1054= (long)STREF(fixnum,(V988),12); |
V1195= (long)STREF(fixnum,(V1122),12); |
5296 |
if(!((V1003)==((long)(V1054)-1))){ |
if(!((V1137)==((long)(V1195)-1))){ |
5297 |
goto T2194;} |
goto T2194;} |
5298 |
V996= Ct; |
V1130= Ct; |
5299 |
goto T2194; |
goto T2194; |
5300 |
T2194:; |
T2194:; |
5301 |
{long V1055; |
{long V1196; |
5302 |
V1055= V1003; |
V1196= V1137; |
5303 |
{long V1056; |
{long V1197; |
5304 |
{long V1057; |
{long V1198; |
5305 |
V1057= V1055; |
V1198= V1196; |
5306 |
V1058= (V988); |
V1199= (V1122); |
5307 |
{long V1060; |
{long V1201; |
5308 |
V1060= V1057; |
V1201= V1198; |
5309 |
{long V1061; |
{long V1202; |
5310 |
V1061= V1060; |
V1202= V1201; |
5311 |
V1062= (long)STREF(unsigned short,(V988),4); |
V1203= (long)STREF(unsigned short,(V1122),4); |
5312 |
if((V1062)==(1)){ |
if((V1203)==(1)){ |
5313 |
goto T2211;} |
goto T2211;} |
5314 |
goto T2207; |
goto T2207; |
5315 |
goto T2211; |
goto T2211; |
5316 |
T2211:; |
T2211:; |
5317 |
if(!((V1061)==(0))){ |
if(!((V1202)==(0))){ |
5318 |
goto T2207;}} |
goto T2207;}} |
5319 |
base[3]= VV[156]; |
base[3]= VV[156]; |
5320 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5322 |
vs_top=sup; |
vs_top=sup; |
5323 |
goto T2207; |
goto T2207; |
5324 |
T2207:; |
T2207:; |
5325 |
V1063= (long)STREF(unsigned short,(V988),4); |
V1204= (long)STREF(unsigned short,(V1122),4); |
5326 |
if(!((V1063)==(1))){ |
if(!((V1204)==(1))){ |
5327 |
goto T2216;} |
goto T2216;} |
5328 |
V1064= (long)STREF(unsigned short,(V988),32); |
V1205 = V1201; |
5329 |
V1059= CMPmake_fixnum((long)(V1060)*(V1064)); |
V1206= (long)STREF(unsigned short,(V1122),32); |
5330 |
|
V1200= CMPmake_fixnum((long)(V1205)*(V1206)); |
5331 |
goto T2205; |
goto T2205; |
5332 |
goto T2216; |
goto T2216; |
5333 |
T2216:; |
T2216:; |
5334 |
V1065= (long)STREF(unsigned short,(V988),32); |
V1207 = V1201; |
5335 |
V1059= CMPmake_fixnum((long)((long)(V1060)*(V1065))+1);} |
V1208= (long)STREF(unsigned short,(V1122),32); |
5336 |
|
V1200= CMPmake_fixnum((long)((long)(V1207)*(V1208))+1);} |
5337 |
goto T2205; |
goto T2205; |
5338 |
T2205:; |
T2205:; |
5339 |
V1056= fix((VFUN_NARGS=2,(*(LnkLI210))(V1058,V1059)));} |
V1197= fix((VFUN_NARGS=2,(*(LnkLI210))(V1199,V1200)));} |
5340 |
V1066= (long)STREF(unsigned short,(V988),4); |
V1209= (long)STREF(unsigned short,(V1122),4); |
5341 |
if(!((V1066)==(1))){ |
if(!((V1209)==(1))){ |
5342 |
goto T2222;} |
goto T2222;} |
5343 |
base[3]= CMPmake_fixnum(V1056); |
base[3]= CMPmake_fixnum(V1197); |
5344 |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V988),32)); |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V1122),32)); |
5345 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5346 |
Lfloor(); |
Lfloor(); |
5347 |
vs_top=sup; |
vs_top=sup; |
5348 |
V998= fix(vs_base[0]); |
V1132= fix(vs_base[0]); |
5349 |
goto T2200; |
goto T2200; |
5350 |
goto T2222; |
goto T2222; |
5351 |
T2222:; |
T2222:; |
5352 |
base[3]= CMPmake_fixnum((long)(V1056)-1); |
base[3]= CMPmake_fixnum((long)(V1197)-1); |
5353 |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V988),32)); |
base[4]= CMPmake_fixnum((long)STREF(unsigned short,(V1122),32)); |
5354 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5355 |
Lfloor(); |
Lfloor(); |
5356 |
vs_top=sup; |
vs_top=sup; |
5357 |
V998= fix(vs_base[0]);}} |
V1132= fix(vs_base[0]);}} |
5358 |
goto T2200; |
goto T2200; |
5359 |
T2200:; |
T2200:; |
5360 |
{long V1067; |
{long V1210; |
5361 |
V1067= V1003; |
V1210= V1137; |
5362 |
V1068= (long)STREF(fixnum,(V988),12); |
V1211= (long)STREF(fixnum,(V1122),12); |
5363 |
if(!((V1067)==((long)(V1068)-1))){ |
if(!((V1210)==((long)(V1211)-1))){ |
5364 |
goto T2233;} |
goto T2233;} |
5365 |
{long V1069; |
{long V1212; |
5366 |
V1069= 0; |
V1212= 0; |
5367 |
V1070= (long)STREF(unsigned short,(V988),4); |
V1213= (long)STREF(unsigned short,(V1122),4); |
5368 |
if((V1070)==(1)){ |
if((V1213)==(1)){ |
5369 |
goto T2240;} |
goto T2240;} |
5370 |
goto T2237; |
goto T2237; |
5371 |
goto T2240; |
goto T2240; |
5372 |
T2240:; |
T2240:; |
5373 |
if(!((V1069)==(0))){ |
if(!((V1212)==(0))){ |
5374 |
goto T2237;}} |
goto T2237;}} |
5375 |
V999= 1; |
V1133= 1; |
5376 |
goto T2230; |
goto T2230; |
5377 |
goto T2237; |
goto T2237; |
5378 |
T2237:; |
T2237:; |
5379 |
V999= 0; |
V1133= 0; |
5380 |
goto T2230; |
goto T2230; |
5381 |
goto T2233; |
goto T2233; |
5382 |
T2233:; |
T2233:; |
5383 |
V999= (long)(V1067)+1;} |
V1133= (long)(V1210)+1;} |
5384 |
goto T2230; |
goto T2230; |
5385 |
T2230:; |
T2230:; |
5386 |
{object V1071; |
{object V1214; |
5387 |
V1071= CMPmake_fixnum(V1003); |
V1214= CMPmake_fixnum(V1137); |
5388 |
V997= make_cons((V1071),(V997));} |
V1131= make_cons((V1214),(V1131));} |
5389 |
goto T2038;} |
goto T2038;} |
5390 |
goto T2130; |
goto T2130; |
5391 |
T2130:; |
T2130:; |
5392 |
V1072= (long)STREF(fixnum,(V988),12); |
V1215= (long)STREF(fixnum,(V1122),12); |
5393 |
if(!((V1003)==((long)(V1072)-1))){ |
if(!((V1137)==((long)(V1215)-1))){ |
5394 |
goto T2246;} |
goto T2246;} |
5395 |
V996= Ct; |
V1130= Ct; |
5396 |
goto T2246; |
goto T2246; |
5397 |
T2246:; |
T2246:; |
5398 |
{long V1073; |
{long V1216; |
5399 |
V1073= V1003; |
V1216= V1137; |
5400 |
V1074= (long)STREF(fixnum,(V988),12); |
V1217= (long)STREF(fixnum,(V1122),12); |
5401 |
if(!((V1073)==((long)(V1074)-1))){ |
if(!((V1216)==((long)(V1217)-1))){ |
5402 |
goto T2256;} |
goto T2256;} |
5403 |
{long V1075; |
{long V1218; |
5404 |
V1075= 0; |
V1218= 0; |
5405 |
V1076= (long)STREF(unsigned short,(V988),4); |
V1219= (long)STREF(unsigned short,(V1122),4); |
5406 |
if((V1076)==(1)){ |
if((V1219)==(1)){ |
5407 |
goto T2263;} |
goto T2263;} |
5408 |
goto T2260; |
goto T2260; |
5409 |
goto T2263; |
goto T2263; |
5410 |
T2263:; |
T2263:; |
5411 |
if(!((V1075)==(0))){ |
if(!((V1218)==(0))){ |
5412 |
goto T2260;}} |
goto T2260;}} |
5413 |
V1003= 1; |
V1137= 1; |
5414 |
goto T2253; |
goto T2253; |
5415 |
goto T2260; |
goto T2260; |
5416 |
T2260:; |
T2260:; |
5417 |
V1003= 0; |
V1137= 0; |
5418 |
goto T2253; |
goto T2253; |
5419 |
goto T2256; |
goto T2256; |
5420 |
T2256:; |
T2256:; |
5421 |
V1003= (long)(V1073)+1;} |
V1137= (long)(V1216)+1;} |
5422 |
goto T2253; |
goto T2253; |
5423 |
T2253:; |
T2253:; |
5424 |
V1004= (long)(V1004)+1; |
V1138= (long)(V1138)+1; |
5425 |
goto T2058;} |
goto T2058;} |
5426 |
goto T2038; |
goto T2038; |
5427 |
T2038:; |
T2038:; |
5430 |
T2035:; |
T2035:; |
5431 |
goto T2271; |
goto T2271; |
5432 |
T2271:; |
T2271:; |
5433 |
if((CMPcdr((V997)))!=Cnil){ |
if((CMPcdr((V1131)))!=Cnil){ |
5434 |
goto T2273;} |
goto T2273;} |
5435 |
goto T2269; |
goto T2269; |
5436 |
goto T2273; |
goto T2273; |
5437 |
T2273:; |
T2273:; |
5438 |
{long V1077; |
{long V1220; |
5439 |
long V1078; |
long V1221; |
5440 |
{object V1079; |
{object V1222; |
5441 |
V1079= CMPcar((V997)); |
V1222= CMPcar((V1131)); |
5442 |
V997= CMPcdr((V997)); |
V1131= CMPcdr((V1131)); |
5443 |
V1077= fix((V1079));} |
V1220= fix((V1222));} |
5444 |
V1078= fix(CMPcar((V997))); |
V1221= fix(CMPcar((V1131))); |
5445 |
{long V1080; |
{long V1223; |
5446 |
long V1081; |
long V1224; |
5447 |
object V1082; |
object V1225; |
5448 |
{long V1083; |
{long V1226; |
5449 |
V1083= V1078; |
V1226= V1221; |
5450 |
{long V1084; |
{long V1227; |
5451 |
V1084= V1083; |
V1227= V1226; |
5452 |
V1085= (long)STREF(unsigned short,(V988),4); |
V1228= (long)STREF(unsigned short,(V1122),4); |
5453 |
if((V1085)==(1)){ |
if((V1228)==(1)){ |
5454 |
goto T2287;} |
goto T2287;} |
5455 |
goto T2283; |
goto T2283; |
5456 |
goto T2287; |
goto T2287; |
5457 |
T2287:; |
T2287:; |
5458 |
if(!((V1084)==(0))){ |
if(!((V1227)==(0))){ |
5459 |
goto T2283;}} |
goto T2283;}} |
5460 |
base[3]= VV[156]; |
base[3]= VV[156]; |
5461 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5463 |
vs_top=sup; |
vs_top=sup; |
5464 |
goto T2283; |
goto T2283; |
5465 |
T2283:; |
T2283:; |
5466 |
V1086= (long)STREF(unsigned short,(V988),4); |
V1229= (long)STREF(unsigned short,(V1122),4); |
5467 |
if(!((V1086)==(1))){ |
if(!((V1229)==(1))){ |
5468 |
goto T2292;} |
goto T2292;} |
5469 |
V1087= (long)STREF(unsigned short,(V988),32); |
V1230 = V1226; |
5470 |
V1080= (long)(V1083)*(V1087); |
V1231= (long)STREF(unsigned short,(V1122),32); |
5471 |
|
V1223= (long)(V1230)*(V1231); |
5472 |
goto T2281; |
goto T2281; |
5473 |
goto T2292; |
goto T2292; |
5474 |
T2292:; |
T2292:; |
5475 |
V1088= (long)STREF(unsigned short,(V988),32); |
V1232 = V1226; |
5476 |
V1080= (long)((long)(V1083)*(V1088))+1;} |
V1233= (long)STREF(unsigned short,(V1122),32); |
5477 |
|
V1223= (long)((long)(V1232)*(V1233))+1;} |
5478 |
goto T2281; |
goto T2281; |
5479 |
T2281:; |
T2281:; |
5480 |
{long V1089; |
{long V1234; |
5481 |
V1089= V1077; |
V1234= V1220; |
5482 |
{long V1090; |
{long V1235; |
5483 |
V1090= V1089; |
V1235= V1234; |
5484 |
V1091= (long)STREF(unsigned short,(V988),4); |
V1236= (long)STREF(unsigned short,(V1122),4); |
5485 |
if((V1091)==(1)){ |
if((V1236)==(1)){ |
5486 |
goto T2303;} |
goto T2303;} |
5487 |
goto T2299; |
goto T2299; |
5488 |
goto T2303; |
goto T2303; |
5489 |
T2303:; |
T2303:; |
5490 |
if(!((V1090)==(0))){ |
if(!((V1235)==(0))){ |
5491 |
goto T2299;}} |
goto T2299;}} |
5492 |
base[3]= VV[156]; |
base[3]= VV[156]; |
5493 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5495 |
vs_top=sup; |
vs_top=sup; |
5496 |
goto T2299; |
goto T2299; |
5497 |
T2299:; |
T2299:; |
5498 |
V1092= (long)STREF(unsigned short,(V988),4); |
V1237= (long)STREF(unsigned short,(V1122),4); |
5499 |
if(!((V1092)==(1))){ |
if(!((V1237)==(1))){ |
5500 |
goto T2308;} |
goto T2308;} |
5501 |
V1093= (long)STREF(unsigned short,(V988),32); |
V1238 = V1234; |
5502 |
V1081= (long)(V1089)*(V1093); |
V1239= (long)STREF(unsigned short,(V1122),32); |
5503 |
|
V1224= (long)(V1238)*(V1239); |
5504 |
goto T2297; |
goto T2297; |
5505 |
goto T2308; |
goto T2308; |
5506 |
T2308:; |
T2308:; |
5507 |
V1094= (long)STREF(unsigned short,(V988),32); |
V1240 = V1234; |
5508 |
V1081= (long)((long)(V1089)*(V1094))+1;} |
V1241= (long)STREF(unsigned short,(V1122),32); |
5509 |
|
V1224= (long)((long)(V1240)*(V1241))+1;} |
5510 |
goto T2297; |
goto T2297; |
5511 |
T2297:; |
T2297:; |
5512 |
V1082= STREF(object,(V988),40); |
V1225= STREF(object,(V1122),40); |
5513 |
{long V1097; |
{long V1244; |
5514 |
long V1098; |
long V1245; |
5515 |
V1097= (long)STREF(unsigned short,(V988),32); |
V1244= (long)STREF(unsigned short,(V1122),32); |
5516 |
V1098= 0; |
V1245= 0; |
5517 |
goto T2318; |
goto T2318; |
5518 |
T2318:; |
T2318:; |
5519 |
if(!((V1098)>=(V1097))){ |
if(!((V1245)>=(V1244))){ |
5520 |
goto T2319;} |
goto T2319;} |
5521 |
base[3]= Cnil; |
base[3]= Cnil; |
5522 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5523 |
goto T2314; |
goto T2314; |
5524 |
goto T2319; |
goto T2319; |
5525 |
T2319:; |
T2319:; |
5526 |
(void)(((V1082))->v.v_self[(long)(V1081)+(V1098)]= (((V1082))->v.v_self[(long)(V1080)+(V1098)])); |
(void)(((V1225))->v.v_self[(long)(V1224)+(V1245)]= (((V1225))->v.v_self[(long)(V1223)+(V1245)])); |
5527 |
(void)(((V1082))->v.v_self[(long)(V1080)+(V1098)]= (Cnil)); |
(void)(((V1225))->v.v_self[(long)(V1223)+(V1245)]= (Cnil)); |
5528 |
V1098= (long)(V1098)+1; |
V1245= (long)(V1245)+1; |
5529 |
goto T2318;} |
goto T2318;} |
5530 |
goto T2314; |
goto T2314; |
5531 |
T2314:; |
T2314:; |
5532 |
{object *V1096=vs_top;object *V1095=vs_base; vs_base=V1096; |
{object *V1243=vs_top;object *V1242=vs_base; vs_base=V1243; |
5533 |
{register object *base0=base; |
{register object *base0=base; |
5534 |
{register object *base=V1096; |
{register object *base=V1243; |
5535 |
register object *sup=vs_base+VM72; |
register object *sup=vs_base+VM72; |
5536 |
base0[0]=base0[0]; |
base0[0]=base0[0]; |
5537 |
base[0]=base[0]; |
base[0]=base[0]; |
5538 |
vs_check; |
vs_check; |
5539 |
vs_top=sup; |
vs_top=sup; |
5540 |
{long V1099; |
{long V1246; |
5541 |
V1099= fix(((V1082))->v.v_self[0]); |
V1246= fix(((V1225))->v.v_self[0]); |
5542 |
if(!((V1099)==(2147483647))){ |
V1247 = (V1225); |
5543 |
|
if(!((V1246)==(2147483647))){ |
5544 |
goto T2331;} |
goto T2331;} |
5545 |
V1100= small_fixnum(1); |
V1248= small_fixnum(1); |
5546 |
goto T2329; |
goto T2329; |
5547 |
goto T2331; |
goto T2331; |
5548 |
T2331:; |
T2331:; |
5549 |
V1100= CMPmake_fixnum((long)(V1099)+1); |
V1248= CMPmake_fixnum((long)(V1246)+1); |
5550 |
goto T2329; |
goto T2329; |
5551 |
T2329:; |
T2329:; |
5552 |
(void)(((V1082))->v.v_self[0]= (V1100));} |
(void)((V1247)->v.v_self[0]= (V1248));} |
5553 |
}} |
}} |
5554 |
vs_base=V1095;vs_top=V1096;} |
vs_base=V1242;vs_top=V1243;} |
5555 |
vs_top=sup;}} |
vs_top=sup;}} |
5556 |
goto T2271; |
goto T2271; |
5557 |
goto T2269; |
goto T2269; |
5558 |
T2269:; |
T2269:; |
5559 |
base[3]= CMPcar((V997)); |
base[3]= CMPcar((V1131)); |
5560 |
base[4]= Ct; |
base[4]= Ct; |
5561 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5562 |
return;}} |
return;}} |
5564 |
} |
} |
5565 |
/* local entry for function DEFAULT-LIMIT-FN */ |
/* local entry for function DEFAULT-LIMIT-FN */ |
5566 |
|
|
5567 |
static object LI86(V1102) |
static object LI86(V1250) |
5568 |
|
|
5569 |
object V1102; |
object V1250; |
5570 |
{ VMB73 VMS73 VMV73 |
{ VMB73 VMS73 VMV73 |
5571 |
goto TTL; |
goto TTL; |
5572 |
TTL:; |
TTL:; |
5573 |
{object V1103= (V1102); |
{object V1251= (V1250); |
5574 |
if(!eql(V1103,VV[164]) |
if(!eql(V1251,VV[164]) |
5575 |
&& !eql(V1103,VV[165]) |
&& !eql(V1251,VV[165]) |
5576 |
&& !eql(V1103,VV[166]))goto T2336; |
&& !eql(V1251,VV[166]))goto T2336; |
5577 |
{long V1104 = 1; |
{long V1252 = 1; |
5578 |
VMR73((object)V1104)} |
VMR73((object)V1252)} |
5579 |
goto T2336; |
goto T2336; |
5580 |
T2336:; |
T2336:; |
5581 |
if(!eql(V1103,VV[167]) |
if(!eql(V1251,VV[167]) |
5582 |
&& !eql(V1103,VV[168]))goto T2337; |
&& !eql(V1251,VV[168]))goto T2337; |
5583 |
{long V1105 = 4; |
{long V1253 = 4; |
5584 |
VMR73((object)V1105)} |
VMR73((object)V1253)} |
5585 |
goto T2337; |
goto T2337; |
5586 |
T2337:; |
T2337:; |
5587 |
{long V1106 = 6; |
{long V1254 = 6; |
5588 |
VMR73((object)V1106)}} |
VMR73((object)V1254)}} |
5589 |
} |
} |
5590 |
/* local entry for function CACHES-TO-ALLOCATE */ |
/* local entry for function CACHES-TO-ALLOCATE */ |
5591 |
|
|
5608 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
5609 |
(void) (*Lnk189)(); |
(void) (*Lnk189)(); |
5610 |
vs_top=sup; |
vs_top=sup; |
5611 |
{object V1107 = vs_base[0]; |
{object V1255 = vs_base[0]; |
5612 |
VMR74(V1107)} |
VMR74(V1255)} |
5613 |
base[0]=base[0]; |
base[0]=base[0]; |
5614 |
return Cnil; |
return Cnil; |
5615 |
} |
} |
5620 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5621 |
register object *sup=base+VM75; VC75 |
register object *sup=base+VM75; VC75 |
5622 |
vs_check; |
vs_check; |
5623 |
{object V1108; |
{object V1256; |
5624 |
object V1109; |
object V1257; |
5625 |
check_arg(2); |
check_arg(2); |
5626 |
V1108=(base[0]); |
V1256=(base[0]); |
5627 |
V1109=(base[1]); |
V1257=(base[1]); |
5628 |
vs_top=sup; |
vs_top=sup; |
5629 |
{object V1110; |
{object V1258; |
5630 |
V1110= list(2,CMPcar((V1109)),(V1108)); |
V1258= list(2,CMPcar((V1257)),(V1256)); |
5631 |
(base0[0]->c.c_car)= make_cons((V1110),(base0[0]->c.c_car)); |
(base0[0]->c.c_car)= make_cons((V1258),(base0[0]->c.c_car)); |
5632 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
5633 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5634 |
return;} |
return;} |
5641 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5642 |
register object *sup=base+VM76; VC76 |
register object *sup=base+VM76; VC76 |
5643 |
vs_check; |
vs_check; |
5644 |
{object V1111; |
{object V1259; |
5645 |
object V1112; |
object V1260; |
5646 |
check_arg(2); |
check_arg(2); |
5647 |
V1111=(base[0]); |
V1259=(base[0]); |
5648 |
V1112=(base[1]); |
V1260=(base[1]); |
5649 |
vs_top=sup; |
vs_top=sup; |
5650 |
goto TTL; |
goto TTL; |
5651 |
TTL:; |
TTL:; |
5652 |
base[2]= (*(LnkLI206))(Cnil,base0[2],(V1111),(V1112)); |
base[2]= (*(LnkLI206))(Cnil,base0[2],(V1259),(V1260)); |
5653 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5654 |
return; |
return; |
5655 |
} |
} |
5661 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5662 |
register object *sup=base+VM77; VC77 |
register object *sup=base+VM77; VC77 |
5663 |
vs_check; |
vs_check; |
5664 |
{object V1113; |
{object V1261; |
5665 |
object V1114; |
object V1262; |
5666 |
check_arg(2); |
check_arg(2); |
5667 |
V1113=(base[0]); |
V1261=(base[0]); |
5668 |
V1114=(base[1]); |
V1262=(base[1]); |
5669 |
vs_top=sup; |
vs_top=sup; |
5670 |
goto TTL; |
goto TTL; |
5671 |
TTL:;{object V1115; |
TTL:;{object V1263; |
5672 |
V1115= (*(LnkLI208))(base0[2],(V1113),(V1114),Ct); |
V1263= (*(LnkLI208))(base0[2],(V1261),(V1262),Ct); |
5673 |
if(V1115==Cnil)goto T2348; |
if(V1263==Cnil)goto T2348; |
5674 |
base0[2]= V1115; |
base0[2]= V1263; |
5675 |
goto T2347; |
goto T2347; |
5676 |
goto T2348; |
goto T2348; |
5677 |
T2348:;} |
T2348:;} |
5678 |
base0[2]= (*(LnkLI206))(Ct,base0[2],(V1113),(V1114)); |
base0[2]= (*(LnkLI206))(Ct,base0[2],(V1261),(V1262)); |
5679 |
goto T2347; |
goto T2347; |
5680 |
T2347:; |
T2347:; |
5681 |
base[2]= base0[2]; |
base[2]= base0[2]; |
5690 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5691 |
register object *sup=base+VM78; VC78 |
register object *sup=base+VM78; VC78 |
5692 |
vs_check; |
vs_check; |
5693 |
{object V1116; |
{object V1264; |
5694 |
check_arg(1); |
check_arg(1); |
5695 |
V1116=(base[0]); |
V1264=(base[0]); |
5696 |
vs_top=sup; |
vs_top=sup; |
5697 |
goto TTL; |
goto TTL; |
5698 |
TTL:; |
TTL:; |
5699 |
if(((*(LnkLI217))(Cnil,base0[2],base0[0],fix((V1116))))!=Cnil){ |
if(((*(LnkLI217))(Cnil,base0[2],base0[0],fix((V1264))))!=Cnil){ |
5700 |
goto T2351;} |
goto T2351;} |
5701 |
{long V1117; |
{long V1265; |
5702 |
V1117= fix((V1116)); |
V1265= fix((V1264)); |
5703 |
{long V1118; |
{long V1266; |
5704 |
V1118= V1117; |
V1266= V1265; |
5705 |
V1119= (long)STREF(unsigned short,base0[1],4); |
V1267= (long)STREF(unsigned short,base0[1],4); |
5706 |
if((V1119)==(1)){ |
if((V1267)==(1)){ |
5707 |
goto T2359;} |
goto T2359;} |
5708 |
goto T2355; |
goto T2355; |
5709 |
goto T2359; |
goto T2359; |
5710 |
T2359:; |
T2359:; |
5711 |
if(!((V1118)==(0))){ |
if(!((V1266)==(0))){ |
5712 |
goto T2355;}} |
goto T2355;}} |
5713 |
base[2]= VV[160]; |
base[2]= VV[160]; |
5714 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5716 |
vs_top=sup; |
vs_top=sup; |
5717 |
goto T2355; |
goto T2355; |
5718 |
T2355:; |
T2355:; |
5719 |
{long V1120; |
{long V1268; |
5720 |
{long V1121; |
{long V1269; |
5721 |
V1121= V1117; |
V1269= V1265; |
5722 |
{long V1122; |
{long V1270; |
5723 |
V1122= V1121; |
V1270= V1269; |
5724 |
V1123= (long)STREF(unsigned short,base0[1],4); |
V1271= (long)STREF(unsigned short,base0[1],4); |
5725 |
if((V1123)==(1)){ |
if((V1271)==(1)){ |
5726 |
goto T2369;} |
goto T2369;} |
5727 |
goto T2365; |
goto T2365; |
5728 |
goto T2369; |
goto T2369; |
5729 |
T2369:; |
T2369:; |
5730 |
if(!((V1122)==(0))){ |
if(!((V1270)==(0))){ |
5731 |
goto T2365;}} |
goto T2365;}} |
5732 |
base[2]= VV[156]; |
base[2]= VV[156]; |
5733 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5735 |
vs_top=sup; |
vs_top=sup; |
5736 |
goto T2365; |
goto T2365; |
5737 |
T2365:; |
T2365:; |
5738 |
V1124= (long)STREF(unsigned short,base0[1],4); |
V1272= (long)STREF(unsigned short,base0[1],4); |
5739 |
if(!((V1124)==(1))){ |
if(!((V1272)==(1))){ |
5740 |
goto T2374;} |
goto T2374;} |
5741 |
V1125= (long)STREF(unsigned short,base0[1],32); |
V1273 = V1269; |
5742 |
V1120= (long)(V1121)*(V1125); |
V1274= (long)STREF(unsigned short,base0[1],32); |
5743 |
|
V1268= (long)(V1273)*(V1274); |
5744 |
goto T2363; |
goto T2363; |
5745 |
goto T2374; |
goto T2374; |
5746 |
T2374:; |
T2374:; |
5747 |
V1126= (long)STREF(unsigned short,base0[1],32); |
V1275 = V1269; |
5748 |
V1120= (long)((long)(V1121)*(V1126))+1;} |
V1276= (long)STREF(unsigned short,base0[1],32); |
5749 |
|
V1268= (long)((long)(V1275)*(V1276))+1;} |
5750 |
goto T2363; |
goto T2363; |
5751 |
T2363:; |
T2363:; |
5752 |
V1127= (long)STREF(unsigned short,base0[1],4); |
V1277= (long)STREF(unsigned short,base0[1],4); |
5753 |
if(!((V1127)==(1))){ |
if(!((V1277)==(1))){ |
5754 |
goto T2380;} |
goto T2380;} |
5755 |
V1128= STREF(object,base0[1],40); |
V1278= STREF(object,base0[1],40); |
5756 |
base[1]= (V1128)->v.v_self[V1120]; |
V1279 = V1268; |
5757 |
|
base[1]= (V1278)->v.v_self[V1279]; |
5758 |
goto T2353; |
goto T2353; |
5759 |
goto T2380; |
goto T2380; |
5760 |
T2380:; |
T2380:; |
5761 |
{object V1129; |
{object V1280; |
5762 |
object V1130; |
object V1281; |
5763 |
base[2]= CMPmake_fixnum((long)STREF(unsigned short,base0[1],4)); |
base[2]= CMPmake_fixnum((long)STREF(unsigned short,base0[1],4)); |
5764 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5765 |
Lmake_list(); |
Lmake_list(); |
5766 |
vs_top=sup; |
vs_top=sup; |
5767 |
V1129= vs_base[0]; |
V1280= vs_base[0]; |
5768 |
V1130= STREF(object,base0[1],40); |
V1281= STREF(object,base0[1],40); |
5769 |
{long V1131; |
{long V1282; |
5770 |
register long V1132; |
register long V1283; |
5771 |
V1131= (long)STREF(unsigned short,base0[1],4); |
V1282= (long)STREF(unsigned short,base0[1],4); |
5772 |
V1132= 0; |
V1283= 0; |
5773 |
goto T2390; |
goto T2390; |
5774 |
T2390:; |
T2390:; |
5775 |
if(!((V1132)>=(V1131))){ |
if(!((V1283)>=(V1282))){ |
5776 |
goto T2391;} |
goto T2391;} |
5777 |
base[1]= (V1129); |
base[1]= (V1280); |
5778 |
goto T2353; |
goto T2353; |
5779 |
goto T2391; |
goto T2391; |
5780 |
T2391:; |
T2391:; |
5781 |
{object V1133; |
{object V1284; |
5782 |
object V1135; |
object V1286; |
5783 |
V1133= CMPmake_fixnum(V1132); |
V1284= CMPmake_fixnum(V1283); |
5784 |
V1135= ((V1130))->v.v_self[(long)(V1120)+(V1132)]; |
V1286= ((V1281))->v.v_self[(long)(V1268)+(V1283)]; |
5785 |
(nthcdr(fix((V1133)),V1129))->c.c_car = (V1135); |
(nthcdr(fix((V1284)),V1280))->c.c_car = (V1286); |
5786 |
(void)(nthcdr(fix((V1133)),V1129));} |
(void)(nthcdr(fix((V1284)),V1280));} |
5787 |
V1132= (long)(V1132)+1; |
V1283= (long)(V1283)+1; |
5788 |
goto T2390;}}}} |
goto T2390;}}}} |
5789 |
goto T2353; |
goto T2353; |
5790 |
T2353:; |
T2353:; |
5791 |
{long V1136; |
{long V1287; |
5792 |
V1136= fix((V1116)); |
V1287= fix((V1264)); |
5793 |
{long V1137; |
{long V1288; |
5794 |
V1137= V1136; |
V1288= V1287; |
5795 |
V1138= (long)STREF(unsigned short,base0[1],4); |
V1289= (long)STREF(unsigned short,base0[1],4); |
5796 |
if((V1138)==(1)){ |
if((V1289)==(1)){ |
5797 |
goto T2407;} |
goto T2407;} |
5798 |
goto T2403; |
goto T2403; |
5799 |
goto T2407; |
goto T2407; |
5800 |
T2407:; |
T2407:; |
5801 |
if(!((V1137)==(0))){ |
if(!((V1288)==(0))){ |
5802 |
goto T2403;}} |
goto T2403;}} |
5803 |
base[3]= VV[161]; |
base[3]= VV[161]; |
5804 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5806 |
vs_top=sup; |
vs_top=sup; |
5807 |
goto T2403; |
goto T2403; |
5808 |
T2403:; |
T2403:; |
5809 |
{long V1139; |
{long V1290; |
5810 |
{long V1140; |
{long V1291; |
5811 |
V1140= V1136; |
V1291= V1287; |
5812 |
{long V1141; |
{long V1292; |
5813 |
V1141= V1140; |
V1292= V1291; |
5814 |
V1142= (long)STREF(unsigned short,base0[1],4); |
V1293= (long)STREF(unsigned short,base0[1],4); |
5815 |
if((V1142)==(1)){ |
if((V1293)==(1)){ |
5816 |
goto T2417;} |
goto T2417;} |
5817 |
goto T2413; |
goto T2413; |
5818 |
goto T2417; |
goto T2417; |
5819 |
T2417:; |
T2417:; |
5820 |
if(!((V1141)==(0))){ |
if(!((V1292)==(0))){ |
5821 |
goto T2413;}} |
goto T2413;}} |
5822 |
base[3]= VV[156]; |
base[3]= VV[156]; |
5823 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5825 |
vs_top=sup; |
vs_top=sup; |
5826 |
goto T2413; |
goto T2413; |
5827 |
T2413:; |
T2413:; |
5828 |
V1143= (long)STREF(unsigned short,base0[1],4); |
V1294= (long)STREF(unsigned short,base0[1],4); |
5829 |
if(!((V1143)==(1))){ |
if(!((V1294)==(1))){ |
5830 |
goto T2422;} |
goto T2422;} |
5831 |
V1144= (long)STREF(unsigned short,base0[1],32); |
V1295 = V1291; |
5832 |
V1139= (long)(V1140)*(V1144); |
V1296= (long)STREF(unsigned short,base0[1],32); |
5833 |
|
V1290= (long)(V1295)*(V1296); |
5834 |
goto T2411; |
goto T2411; |
5835 |
goto T2422; |
goto T2422; |
5836 |
T2422:; |
T2422:; |
5837 |
V1145= (long)STREF(unsigned short,base0[1],32); |
V1297 = V1291; |
5838 |
V1139= (long)((long)(V1140)*(V1145))+1;} |
V1298= (long)STREF(unsigned short,base0[1],32); |
5839 |
|
V1290= (long)((long)(V1297)*(V1298))+1;} |
5840 |
goto T2411; |
goto T2411; |
5841 |
T2411:; |
T2411:; |
5842 |
if((STREF(object,base0[1],8))!=Cnil){ |
if((STREF(object,base0[1],8))!=Cnil){ |
5845 |
goto T2401; |
goto T2401; |
5846 |
goto T2427; |
goto T2427; |
5847 |
T2427:; |
T2427:; |
5848 |
V1146= STREF(object,base0[1],40); |
V1299= STREF(object,base0[1],40); |
5849 |
V1147= (long)STREF(unsigned short,base0[1],4); |
V1300 = V1290; |
5850 |
base[2]= (V1146)->v.v_self[(long)(V1139)+(V1147)];}} |
V1301= (long)STREF(unsigned short,base0[1],4); |
5851 |
|
base[2]= (V1299)->v.v_self[(long)(V1300)+(V1301)];}} |
5852 |
goto T2401; |
goto T2401; |
5853 |
T2401:; |
T2401:; |
5854 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5868 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5869 |
register object *sup=base+VM79; VC79 |
register object *sup=base+VM79; VC79 |
5870 |
vs_check; |
vs_check; |
5871 |
{object V1148; |
{object V1302; |
5872 |
object V1149; |
object V1303; |
5873 |
check_arg(2); |
check_arg(2); |
5874 |
V1148=(base[0]); |
V1302=(base[0]); |
5875 |
V1149=(base[1]); |
V1303=(base[1]); |
5876 |
vs_top=sup; |
vs_top=sup; |
5877 |
goto TTL; |
goto TTL; |
5878 |
TTL:; |
TTL:; |
5879 |
base[2]= (*(LnkLI206))(Cnil,base0[1],(V1148),(V1149)); |
base[2]= (*(LnkLI206))(Cnil,base0[1],(V1302),(V1303)); |
5880 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5881 |
return; |
return; |
5882 |
} |
} |
5888 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5889 |
register object *sup=base+VM80; VC80 |
register object *sup=base+VM80; VC80 |
5890 |
vs_check; |
vs_check; |
5891 |
{object V1150; |
{object V1304; |
5892 |
check_arg(1); |
check_arg(1); |
5893 |
V1150=(base[0]); |
V1304=(base[0]); |
5894 |
vs_top=sup; |
vs_top=sup; |
5895 |
goto TTL; |
goto TTL; |
5896 |
TTL:; |
TTL:; |
5897 |
base[1]= (*(LnkLI217))(Cnil,base0[1],base0[0],fix((V1150))); |
base[1]= (*(LnkLI217))(Cnil,base0[1],base0[0],fix((V1304))); |
5898 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5899 |
return; |
return; |
5900 |
} |
} |
5906 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5907 |
register object *sup=base+VM81; VC81 |
register object *sup=base+VM81; VC81 |
5908 |
vs_check; |
vs_check; |
5909 |
{object V1151; |
{object V1305; |
5910 |
check_arg(1); |
check_arg(1); |
5911 |
V1151=(base[0]); |
V1305=(base[0]); |
5912 |
vs_top=sup; |
vs_top=sup; |
5913 |
goto TTL; |
goto TTL; |
5914 |
TTL:; |
TTL:; |
5915 |
{register object V1152; |
{register object V1306; |
5916 |
if(!(((VV[84]->s.s_dbind))==(VV[85]))){ |
if(!(((VV[84]->s.s_dbind))==(VV[85]))){ |
5917 |
goto T2433;} |
goto T2433;} |
5918 |
base[1]= (V1151); |
base[1]= (V1305); |
5919 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5920 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk219)(Lclptr219); |
5921 |
vs_top=sup; |
vs_top=sup; |
5922 |
V1153= vs_base[0]; |
V1307= vs_base[0]; |
5923 |
V1152= (*(LnkLI218))(V1153); |
V1306= (*(LnkLI218))(V1307); |
5924 |
goto T2431; |
goto T2431; |
5925 |
goto T2433; |
goto T2433; |
5926 |
T2433:; |
T2433:; |
5927 |
V1152= (*(LnkLI218))((V1151)); |
V1306= (*(LnkLI218))((V1305)); |
5928 |
goto T2431; |
goto T2431; |
5929 |
T2431:; |
T2431:; |
5930 |
if(!(((V1151))==((VV[86]->s.s_dbind)))){ |
if(!(((V1305))==((VV[86]->s.s_dbind)))){ |
5931 |
goto T2438;} |
goto T2438;} |
5932 |
base[1]= Ct; |
base[1]= Ct; |
5933 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5934 |
return; |
return; |
5935 |
goto T2438; |
goto T2438; |
5936 |
T2438:; |
T2438:; |
5937 |
base[1]= (V1152); |
base[1]= (V1306); |
5938 |
base[2]= base0[2]; |
base[2]= base0[2]; |
5939 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5940 |
(void) (*Lnk220)(); |
(void) (*Lnk220)(); |
5946 |
return; |
return; |
5947 |
goto T2441; |
goto T2441; |
5948 |
T2441:; |
T2441:; |
5949 |
base[1]= (V1152); |
base[1]= (V1306); |
5950 |
base[2]= base0[3]; |
base[2]= base0[3]; |
5951 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5952 |
(void) (*Lnk220)(); |
(void) (*Lnk220)(); |
5958 |
return; |
return; |
5959 |
goto T2446; |
goto T2446; |
5960 |
T2446:; |
T2446:; |
5961 |
base[1]= (V1152); |
base[1]= (V1306); |
5962 |
base[2]= base0[4]; |
base[2]= base0[4]; |
5963 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5964 |
(void) (*Lnk220)(); |
(void) (*Lnk220)(); |
5970 |
return; |
return; |
5971 |
goto T2451; |
goto T2451; |
5972 |
T2451:; |
T2451:; |
5973 |
base[1]= (V1152); |
base[1]= (V1306); |
5974 |
base[2]= base0[5]; |
base[2]= base0[5]; |
5975 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5976 |
(void) (*Lnk220)(); |
(void) (*Lnk220)(); |
5982 |
return; |
return; |
5983 |
goto T2456; |
goto T2456; |
5984 |
T2456:; |
T2456:; |
5985 |
base[1]= (V1152); |
base[1]= (V1306); |
5986 |
base[2]= base0[1]; |
base[2]= base0[1]; |
5987 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5988 |
(void) (*Lnk220)(); |
(void) (*Lnk220)(); |
5996 |
T2461:; |
T2461:; |
5997 |
base[1]= VV[90]; |
base[1]= VV[90]; |
5998 |
base[2]= base0[0]; |
base[2]= base0[0]; |
5999 |
base[3]= (V1152); |
base[3]= (V1306); |
6000 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
6001 |
Lerror(); |
Lerror(); |
6002 |
return;} |
return;} |
6009 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6010 |
register object *sup=base+VM82; VC82 |
register object *sup=base+VM82; VC82 |
6011 |
vs_check; |
vs_check; |
6012 |
{object V1154; |
{object V1308; |
6013 |
object V1155; |
object V1309; |
6014 |
check_arg(2); |
check_arg(2); |
6015 |
V1154=(base[0]); |
V1308=(base[0]); |
6016 |
V1155=(base[1]); |
V1309=(base[1]); |
6017 |
vs_top=sup; |
vs_top=sup; |
6018 |
{object V1156; |
{object V1310; |
6019 |
V1156= list(2,(V1154),(V1155)); |
V1310= list(2,(V1308),(V1309)); |
6020 |
(base0[0]->c.c_car)= make_cons((V1156),(base0[0]->c.c_car)); |
(base0[0]->c.c_car)= make_cons((V1310),(base0[0]->c.c_car)); |
6021 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
6022 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6023 |
return;} |
return;} |