752 |
goto T314; |
goto T314; |
753 |
T314:; |
T314:; |
754 |
V106= listA(3,VV[28],/* INLINE-ARGS */V101,append(V102,V104)); |
V106= listA(3,VV[28],/* INLINE-ARGS */V101,append(V102,V104)); |
755 |
V107= list(2,VV[30],(V10)); |
V107 = base[2]; |
756 |
|
V108= list(2,VV[30],(V10)); |
757 |
if(((V12))==Cnil){ |
if(((V12))==Cnil){ |
758 |
goto T324;} |
goto T324;} |
759 |
V108= Cnil; |
V109= Cnil; |
760 |
goto T322; |
goto T322; |
761 |
goto T324; |
goto T324; |
762 |
T324:; |
T324:; |
763 |
V108= Cnil; |
V109= Cnil; |
764 |
goto T322; |
goto T322; |
765 |
T322:; |
T322:; |
766 |
V109= list(4,VV[26],/* INLINE-ARGS */V100,/* INLINE-ARGS */V106,listA(7,VV[34],base[2],VV[35],VV[36],VV[37],/* INLINE-ARGS */V107,V108)); |
V110= list(4,VV[26],/* INLINE-ARGS */V100,/* INLINE-ARGS */V106,listA(7,VV[34],V107,VV[35],VV[36],VV[37],/* INLINE-ARGS */V108,V109)); |
767 |
base[5]= base[2]; |
base[5]= base[2]; |
768 |
base[6]= VV[40]; |
base[6]= VV[40]; |
769 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
770 |
Lintern(); |
Lintern(); |
771 |
vs_top=sup; |
vs_top=sup; |
772 |
V110= vs_base[0]; |
V111= vs_base[0]; |
773 |
V111= list(3,VV[38],list(3,VV[39],list(2,VV[30],V110),VV[41]),(V11)); |
V112= list(3,VV[38],list(3,VV[39],list(2,VV[30],V111),VV[41]),(V11)); |
774 |
V112= make_cons(/* INLINE-ARGS */V111,Cnil); |
V113= make_cons(/* INLINE-ARGS */V112,Cnil); |
775 |
V113= list(2,VV[43],list(2,VV[27],base[2])); |
V114= list(2,VV[43],list(2,VV[27],base[2])); |
776 |
V114= make_cons(/* INLINE-ARGS */V113,Cnil); |
V115= make_cons(/* INLINE-ARGS */V114,Cnil); |
777 |
if(((V13))==Cnil){ |
if(((V13))==Cnil){ |
778 |
goto T332;} |
goto T332;} |
779 |
V116= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V13)))); |
V117= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V13)))); |
780 |
base[5]= make_cons(/* INLINE-ARGS */V116,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V117,Cnil); |
781 |
goto T330; |
goto T330; |
782 |
goto T332; |
goto T332; |
783 |
T332:; |
T332:; |
786 |
T330:; |
T330:; |
787 |
if(((V16))==Cnil){ |
if(((V16))==Cnil){ |
788 |
goto T336;} |
goto T336;} |
789 |
{object V117; |
{object V118; |
790 |
object V118= (V16); |
object V119= (V16); |
791 |
if(V118==Cnil){ |
if(V119==Cnil){ |
792 |
base[6]= Cnil; |
base[6]= Cnil; |
793 |
goto T334;} |
goto T334;} |
794 |
base[7]=V117=MMcons(Cnil,Cnil); |
base[7]=V118=MMcons(Cnil,Cnil); |
795 |
goto T338; |
goto T338; |
796 |
T338:; |
T338:; |
797 |
{register object V119; |
{register object V120; |
798 |
V119= (V118->c.c_car); |
V120= (V119->c.c_car); |
799 |
V120= list(3,VV[51],VV[52],CMPcar((V119))); |
V121= list(3,VV[51],VV[52],CMPcar((V120))); |
800 |
V121= list(3,VV[53],VV[52],CMPcar((V119))); |
V122= list(3,VV[53],VV[52],CMPcar((V120))); |
801 |
V122= list(2,VV[48],list(3,VV[49],VV[50],list(4,VV[26],/* INLINE-ARGS */V120,/* INLINE-ARGS */V121,list(5,VV[54],VV[55],VV[56],CMPcar((V119)),VV[57])))); |
V123= list(2,VV[48],list(3,VV[49],VV[50],list(4,VV[26],/* INLINE-ARGS */V121,/* INLINE-ARGS */V122,list(5,VV[54],VV[55],VV[56],CMPcar((V120)),VV[57])))); |
802 |
(V117->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V122,list(2,VV[30],CMPcdr((V119)))));} |
(V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V123,list(2,VV[30],CMPcdr((V120)))));} |
803 |
if((V118=MMcdr(V118))==Cnil){ |
if((V119=MMcdr(V119))==Cnil){ |
804 |
base[6]= base[7]; |
base[6]= base[7]; |
805 |
goto T334;} |
goto T334;} |
806 |
V117=MMcdr(V117)=MMcons(Cnil,Cnil); |
V118=MMcdr(V118)=MMcons(Cnil,Cnil); |
807 |
goto T338;} |
goto T338;} |
808 |
goto T336; |
goto T336; |
809 |
T336:; |
T336:; |
824 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
825 |
L5(base); |
L5(base); |
826 |
vs_top=sup; |
vs_top=sup; |
827 |
V126= vs_base[0]; |
V127= vs_base[0]; |
828 |
{object V124; |
{object V125; |
829 |
object V125= V126; |
object V126= V127; |
830 |
if(V125==Cnil){ |
if(V126==Cnil){ |
831 |
V123= Cnil; |
V124= Cnil; |
832 |
goto T341;} |
goto T341;} |
833 |
base[8]=V124=MMcons(Cnil,Cnil); |
base[8]=V125=MMcons(Cnil,Cnil); |
834 |
goto T349; |
goto T349; |
835 |
T349:; |
T349:; |
836 |
(V124->c.c_car)= coerce_to_string((V125->c.c_car)); |
(V125->c.c_car)= coerce_to_string((V126->c.c_car)); |
837 |
if((V125=MMcdr(V125))==Cnil){ |
if((V126=MMcdr(V126))==Cnil){ |
838 |
V123= base[8]; |
V124= base[8]; |
839 |
goto T341;} |
goto T341;} |
840 |
V124=MMcdr(V124)=MMcons(Cnil,Cnil); |
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
841 |
goto T349;} |
goto T349;} |
842 |
goto T343; |
goto T343; |
843 |
T343:; |
T343:; |
844 |
V123= VV[59]; |
V124= VV[59]; |
845 |
goto T341; |
goto T341; |
846 |
T341:; |
T341:; |
847 |
V127= list(2,VV[58],list(2,VV[30],V123)); |
V128= list(2,VV[58],list(2,VV[30],V124)); |
848 |
if(((V17))==Cnil){ |
if(((V17))==Cnil){ |
849 |
goto T357;} |
goto T357;} |
850 |
{object V129; |
{object V130; |
851 |
object V130= (V17); |
object V131= (V17); |
852 |
if(V130==Cnil){ |
if(V131==Cnil){ |
853 |
base[8]= Cnil; |
base[8]= Cnil; |
854 |
goto T355;} |
goto T355;} |
855 |
base[9]=V129=MMcons(Cnil,Cnil); |
base[9]=V130=MMcons(Cnil,Cnil); |
856 |
goto T359; |
goto T359; |
857 |
T359:; |
T359:; |
858 |
{register object V131; |
{register object V132; |
859 |
V131= (V130->c.c_car); |
V132= (V131->c.c_car); |
860 |
V132= list(3,VV[51],VV[52],CMPcar((V131))); |
V133= list(3,VV[51],VV[52],CMPcar((V132))); |
861 |
V133= list(3,VV[53],VV[52],CMPcar((V131))); |
V134= list(3,VV[53],VV[52],CMPcar((V132))); |
862 |
V134= list(2,VV[48],list(3,VV[49],VV[61],list(4,VV[26],/* INLINE-ARGS */V132,/* INLINE-ARGS */V133,list(5,VV[54],VV[55],VV[62],CMPcar((V131)),VV[63])))); |
V135= list(2,VV[48],list(3,VV[49],VV[61],list(4,VV[26],/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,list(5,VV[54],VV[55],VV[62],CMPcar((V132)),VV[63])))); |
863 |
(V129->c.c_car)= list(2,VV[60],list(3,VV[45],/* INLINE-ARGS */V134,list(2,VV[30],CMPcdr((V131)))));} |
(V130->c.c_car)= list(2,VV[60],list(3,VV[45],/* INLINE-ARGS */V135,list(2,VV[30],CMPcdr((V132)))));} |
864 |
if((V130=MMcdr(V130))==Cnil){ |
if((V131=MMcdr(V131))==Cnil){ |
865 |
base[8]= base[9]; |
base[8]= base[9]; |
866 |
goto T355;} |
goto T355;} |
867 |
V129=MMcdr(V129)=MMcons(Cnil,Cnil); |
V130=MMcdr(V130)=MMcons(Cnil,Cnil); |
868 |
goto T359;} |
goto T359;} |
869 |
goto T357; |
goto T357; |
870 |
T357:; |
T357:; |
873 |
T355:; |
T355:; |
874 |
if(((V14))==Cnil){ |
if(((V14))==Cnil){ |
875 |
goto T363;} |
goto T363;} |
876 |
V135= list(3,VV[45],VV[64],list(2,VV[30],(V14))); |
V136= list(3,VV[45],VV[64],list(2,VV[30],(V14))); |
877 |
base[9]= make_cons(/* INLINE-ARGS */V135,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V136,Cnil); |
878 |
goto T361; |
goto T361; |
879 |
goto T363; |
goto T363; |
880 |
T363:; |
T363:; |
883 |
T361:; |
T361:; |
884 |
if(((V15))==Cnil){ |
if(((V15))==Cnil){ |
885 |
goto T367;} |
goto T367;} |
886 |
V136= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V15)))); |
V137= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V15)))); |
887 |
base[10]= make_cons(/* INLINE-ARGS */V136,Cnil); |
base[10]= make_cons(/* INLINE-ARGS */V137,Cnil); |
888 |
goto T365; |
goto T365; |
889 |
goto T367; |
goto T367; |
890 |
T367:; |
T367:; |
893 |
T365:; |
T365:; |
894 |
if(((V18))==Cnil){ |
if(((V18))==Cnil){ |
895 |
goto T371;} |
goto T371;} |
896 |
V137= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V18))),VV[69]); |
V138= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V18))),VV[69]); |
897 |
base[11]= make_cons(/* INLINE-ARGS */V137,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V138,Cnil); |
898 |
goto T369; |
goto T369; |
899 |
goto T371; |
goto T371; |
900 |
T371:; |
T371:; |
904 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
905 |
Lappend(); |
Lappend(); |
906 |
vs_top=sup; |
vs_top=sup; |
907 |
V128= vs_base[0]; |
V129= vs_base[0]; |
908 |
base[7]= make_cons(/* INLINE-ARGS */V127,V128); |
base[7]= make_cons(/* INLINE-ARGS */V128,V129); |
909 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
910 |
Lappend(); |
Lappend(); |
911 |
vs_top=sup; |
vs_top=sup; |
912 |
V115= vs_base[0]; |
V116= vs_base[0]; |
913 |
V138= listA(3,VV[42],/* INLINE-ARGS */V114,V115); |
V139= listA(3,VV[42],/* INLINE-ARGS */V115,V116); |
914 |
V139= list(2,/* INLINE-ARGS */V138,list(2,VV[27],base[2])); |
V140= list(2,/* INLINE-ARGS */V139,list(2,VV[27],base[2])); |
915 |
base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V109,append(/* INLINE-ARGS */V112,/* INLINE-ARGS */V139)); |
base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V140)); |
916 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
917 |
return;} |
return;} |
918 |
} |
} |
923 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
924 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
925 |
vs_check; |
vs_check; |
926 |
{object V140; |
{object V141; |
927 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
928 |
{object *p=vs_top; |
{object *p=vs_top; |
929 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
930 |
V140=(base[0]); |
V141=(base[0]); |
931 |
vs_top=sup; |
vs_top=sup; |
|
{object V141; |
|
|
V141= Cnil; |
|
932 |
{object V142; |
{object V142; |
|
object V143; |
|
933 |
V142= Cnil; |
V142= Cnil; |
934 |
V143= (V140); |
{object V143; |
935 |
{object V144; |
object V144; |
936 |
V144= CMPcdr((V140)); |
V143= Cnil; |
937 |
{register long V145; |
V144= (V141); |
938 |
V145= 1; |
{object V145; |
939 |
|
V145= CMPcdr((V141)); |
940 |
|
{register long V146; |
941 |
|
V146= 1; |
942 |
goto T377; |
goto T377; |
943 |
T377:; |
T377:; |
944 |
if(((V144))==Cnil){ |
if(((V145))==Cnil){ |
945 |
goto T380;} |
goto T380;} |
946 |
goto T379; |
goto T379; |
947 |
goto T380; |
goto T380; |
949 |
goto T378; |
goto T378; |
950 |
goto T379; |
goto T379; |
951 |
T379:; |
T379:; |
952 |
if(((V143))==Cnil){ |
if(((V144))==Cnil){ |
953 |
goto T383;} |
goto T383;} |
954 |
goto T382; |
goto T382; |
955 |
goto T383; |
goto T383; |
957 |
goto T378; |
goto T378; |
958 |
goto T382; |
goto T382; |
959 |
T382:; |
T382:; |
960 |
{object V146; |
{object V147; |
961 |
V146= CMPcar((V143)); |
V147= CMPcar((V144)); |
962 |
V142= (V146);} |
V143= (V147);} |
963 |
{register object V147; |
{register object V148; |
964 |
register object V148; |
register object V149; |
965 |
V147= Cnil; |
V148= Cnil; |
966 |
V148= (V142); |
V149= (V143); |
967 |
{register object V149; |
{register object V150; |
968 |
V149= Cnil; |
V150= Cnil; |
969 |
goto T390; |
goto T390; |
970 |
T390:; |
T390:; |
971 |
if(((V148))==Cnil){ |
if(((V149))==Cnil){ |
972 |
goto T393;} |
goto T393;} |
973 |
goto T392; |
goto T392; |
974 |
goto T393; |
goto T393; |
976 |
goto T391; |
goto T391; |
977 |
goto T392; |
goto T392; |
978 |
T392:; |
T392:; |
|
{object V150; |
|
|
V150= CMPcar((V148)); |
|
|
V147= (V150);} |
|
979 |
{object V151; |
{object V151; |
980 |
base[1]= (V147); |
V151= CMPcar((V149)); |
981 |
base[2]= (V141); |
V148= (V151);} |
982 |
|
{object V152; |
983 |
|
base[1]= (V148); |
984 |
|
base[2]= (V142); |
985 |
base[3]= VV[4]; |
base[3]= VV[4]; |
986 |
base[4]= (VV[70]->s.s_gfdef); |
base[4]= (VV[70]->s.s_gfdef); |
987 |
base[5]= VV[22]; |
base[5]= VV[22]; |
989 |
vs_top=(vs_base=base+1)+6; |
vs_top=(vs_base=base+1)+6; |
990 |
(void) (*Lnk74)(); |
(void) (*Lnk74)(); |
991 |
vs_top=sup; |
vs_top=sup; |
992 |
V151= vs_base[0]; |
V152= vs_base[0]; |
993 |
V149= (V151);} |
V150= (V152);} |
994 |
V153 = CMPmake_fixnum(V145); |
V154 = CMPmake_fixnum(V146); |
995 |
{register object x= V153,V152= (V149); |
{register object x= V154,V153= (V150); |
996 |
while(V152!=Cnil) |
while(V153!=Cnil) |
997 |
if(eql(x,V152->c.c_car)){ |
if(eql(x,V153->c.c_car)){ |
998 |
goto T407; |
goto T407; |
999 |
}else V152=V152->c.c_cdr;} |
}else V153=V153->c.c_cdr;} |
1000 |
{object V154; |
{object V155; |
1001 |
register object V155; |
register object V156; |
1002 |
V154= Cnil; |
V155= Cnil; |
1003 |
V155= (V144); |
V156= (V145); |
1004 |
{register long V156; |
{register long V157; |
1005 |
{object V157; |
{object V158; |
1006 |
V158 = CMPmake_fixnum(V145); |
V159 = CMPmake_fixnum(V146); |
1007 |
V157= one_plus(V158);{object V159; |
V158= one_plus(V159);{object V160; |
1008 |
V159= (type_of((V157))==t_fixnum?Ct:Cnil); |
V160= (type_of((V158))==t_fixnum?Ct:Cnil); |
1009 |
if(V159==Cnil)goto T413; |
if(V160==Cnil)goto T413; |
1010 |
goto T412; |
goto T412; |
1011 |
goto T413; |
goto T413; |
1012 |
T413:;} |
T413:;} |
1015 |
vs_top=sup; |
vs_top=sup; |
1016 |
goto T412; |
goto T412; |
1017 |
T412:; |
T412:; |
1018 |
V156= fix((V157));} |
V157= fix((V158));} |
1019 |
goto T416; |
goto T416; |
1020 |
T416:; |
T416:; |
1021 |
if(((V155))==Cnil){ |
if(((V156))==Cnil){ |
1022 |
goto T419;} |
goto T419;} |
1023 |
goto T418; |
goto T418; |
1024 |
goto T419; |
goto T419; |
1026 |
goto T417; |
goto T417; |
1027 |
goto T418; |
goto T418; |
1028 |
T418:; |
T418:; |
1029 |
{object V160; |
{object V161; |
1030 |
V160= CMPcar((V155)); |
V161= CMPcar((V156)); |
1031 |
V154= (V160);} |
V155= (V161);} |
1032 |
base[1]= (V147); |
base[1]= (V148); |
1033 |
base[2]= (V154); |
base[2]= (V155); |
1034 |
base[3]= VV[22]; |
base[3]= VV[22]; |
1035 |
base[4]= (VV[73]->s.s_gfdef); |
base[4]= (VV[73]->s.s_gfdef); |
1036 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1038 |
vs_top=sup; |
vs_top=sup; |
1039 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1040 |
goto T424;} |
goto T424;} |
1041 |
if(((V149))==Cnil){ |
if(((V150))==Cnil){ |
1042 |
goto T432;} |
goto T432;} |
1043 |
V161 = CMPmake_fixnum(V156); |
V162 = CMPmake_fixnum(V157); |
1044 |
V162= make_cons(V161,Cnil); |
V163= make_cons(V162,Cnil); |
1045 |
(void)(nconc((V149),/* INLINE-ARGS */V162)); |
(void)(nconc((V150),/* INLINE-ARGS */V163)); |
1046 |
goto T424; |
goto T424; |
1047 |
goto T432; |
goto T432; |
1048 |
T432:; |
T432:; |
1049 |
{object V164; |
{object V165; |
1050 |
V165 = CMPmake_fixnum(V145); |
V166 = CMPmake_fixnum(V146); |
1051 |
V166 = CMPmake_fixnum(V156); |
V167 = CMPmake_fixnum(V157); |
1052 |
V164= list(3,(V147),V165,V166); |
V165= list(3,(V148),V166,V167); |
1053 |
V141= make_cons((V164),(V141)); |
V142= make_cons((V165),(V142)); |
1054 |
V163= (V141);} |
V164= (V142);} |
1055 |
V149= CMPcar(V163); |
V150= CMPcar(V164); |
1056 |
goto T424; |
goto T424; |
1057 |
T424:; |
T424:; |
1058 |
V155= CMPcdr((V155)); |
V156= CMPcdr((V156)); |
1059 |
if(!((V156)<(2147483646))){ |
if(!((V157)<(2147483646))){ |
1060 |
goto T441;} |
goto T441;} |
1061 |
goto T440; |
goto T440; |
1062 |
goto T441; |
goto T441; |
1066 |
vs_top=sup; |
vs_top=sup; |
1067 |
goto T440; |
goto T440; |
1068 |
T440:; |
T440:; |
1069 |
V156= (long)(V156)+(1); |
V157= (long)(V157)+(1); |
1070 |
goto T416; |
goto T416; |
1071 |
goto T417; |
goto T417; |
1072 |
T417:; |
T417:; |
1074 |
goto T407;}} |
goto T407;}} |
1075 |
goto T407; |
goto T407; |
1076 |
T407:; |
T407:; |
1077 |
V148= CMPcdr((V148)); |
V149= CMPcdr((V149)); |
1078 |
goto T390; |
goto T390; |
1079 |
goto T391; |
goto T391; |
1080 |
T391:; |
T391:; |
1082 |
goto T388;}} |
goto T388;}} |
1083 |
goto T388; |
goto T388; |
1084 |
T388:; |
T388:; |
|
V143= CMPcdr((V143)); |
|
1085 |
V144= CMPcdr((V144)); |
V144= CMPcdr((V144)); |
1086 |
if(!((V145)<(2147483646))){ |
V145= CMPcdr((V145)); |
1087 |
|
if(!((V146)<(2147483646))){ |
1088 |
goto T454;} |
goto T454;} |
1089 |
goto T453; |
goto T453; |
1090 |
goto T454; |
goto T454; |
1094 |
vs_top=sup; |
vs_top=sup; |
1095 |
goto T453; |
goto T453; |
1096 |
T453:; |
T453:; |
1097 |
V145= (long)(V145)+(1); |
V146= (long)(V146)+(1); |
1098 |
goto T377; |
goto T377; |
1099 |
goto T378; |
goto T378; |
1100 |
T378:; |
T378:; |
1102 |
goto T373;}}} |
goto T373;}}} |
1103 |
goto T373; |
goto T373; |
1104 |
T373:; |
T373:; |
1105 |
base[1]= (V141); |
base[1]= (V142); |
1106 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1107 |
return;} |
return;} |
1108 |
} |
} |
1114 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1115 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
1116 |
vs_check; |
vs_check; |
1117 |
{object V167; |
{object V168; |
1118 |
object V168; |
object V169; |
1119 |
V167=(base[0]); |
V168=(base[0]); |
1120 |
V168=(base[1]); |
V169=(base[1]); |
1121 |
vs_top=sup; |
vs_top=sup; |
1122 |
if(!(type_of((V168))==t_cons)){ |
if(!(type_of((V169))==t_cons)){ |
1123 |
goto T460;} |
goto T460;} |
1124 |
base[2]= (equal(CMPcar((V168)),(V167))?Ct:Cnil); |
base[2]= (equal(CMPcar((V169)),(V168))?Ct:Cnil); |
1125 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1126 |
return; |
return; |
1127 |
goto T460; |
goto T460; |
1138 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1139 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
1140 |
vs_check; |
vs_check; |
1141 |
{object V169; |
{object V170; |
1142 |
object V170; |
object V171; |
1143 |
V169=(base[0]); |
V170=(base[0]); |
1144 |
V170=(base[1]); |
V171=(base[1]); |
1145 |
vs_top=sup; |
vs_top=sup; |
1146 |
goto TTL; |
goto TTL; |
1147 |
TTL:; |
TTL:; |
1148 |
{register object V171; |
{register object V172; |
|
V171= Cnil; |
|
|
{object V172; |
|
|
register object V173; |
|
|
register object V174; |
|
1149 |
V172= Cnil; |
V172= Cnil; |
1150 |
|
{object V173; |
1151 |
|
register object V174; |
1152 |
|
register object V175; |
1153 |
V173= Cnil; |
V173= Cnil; |
1154 |
V174= Cnil; |
V174= Cnil; |
1155 |
{object V175; |
V175= Cnil; |
1156 |
base[2]= (V169); |
{object V176; |
1157 |
base[3]= (V170); |
base[2]= (V170); |
1158 |
|
base[3]= (V171); |
1159 |
base[4]= VV[22]; |
base[4]= VV[22]; |
1160 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1161 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1162 |
Lmember(); |
Lmember(); |
1163 |
vs_top=sup; |
vs_top=sup; |
1164 |
V175= vs_base[0]; |
V176= vs_base[0]; |
1165 |
V171= (V175);} |
V172= (V176);} |
1166 |
goto T463; |
goto T463; |
1167 |
T463:; |
T463:; |
1168 |
if(((V171))==Cnil){ |
if(((V172))==Cnil){ |
1169 |
goto T472;} |
goto T472;} |
1170 |
goto T471; |
goto T471; |
1171 |
goto T472; |
goto T472; |
1173 |
goto T464; |
goto T464; |
1174 |
goto T471; |
goto T471; |
1175 |
T471:; |
T471:; |
1176 |
if(((V171))==Cnil){ |
if(((V172))==Cnil){ |
1177 |
goto T474;} |
goto T474;} |
1178 |
base[2]= CMPcdr(CMPcar((V171))); |
base[2]= CMPcdr(CMPcar((V172))); |
1179 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1180 |
Lcopy_list(); |
Lcopy_list(); |
1181 |
vs_top=sup; |
vs_top=sup; |
1182 |
V174= vs_base[0]; |
V175= vs_base[0]; |
1183 |
if(((V173))==Cnil){ |
if(((V174))==Cnil){ |
1184 |
goto T481;} |
goto T481;} |
1185 |
{register object V176; |
{register object V177; |
1186 |
register object V177; |
register object V178; |
|
V176= (V173); |
|
1187 |
V177= (V174); |
V177= (V174); |
1188 |
((V176))->c.c_cdr = (V177); |
V178= (V175); |
1189 |
if(((V177))!=Cnil){ |
((V177))->c.c_cdr = (V178); |
1190 |
|
if(((V178))!=Cnil){ |
1191 |
goto T483;}} |
goto T483;}} |
1192 |
goto T474; |
goto T474; |
1193 |
goto T483; |
goto T483; |
1194 |
T483:; |
T483:; |
1195 |
base[2]= CMPcdr((V173)); |
base[2]= CMPcdr((V174)); |
1196 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1197 |
Llast(); |
Llast(); |
1198 |
vs_top=sup; |
vs_top=sup; |
1199 |
V173= vs_base[0]; |
V174= vs_base[0]; |
1200 |
goto T474; |
goto T474; |
1201 |
goto T481; |
goto T481; |
1202 |
T481:; |
T481:; |
1203 |
V172= (V174); |
V173= (V175); |
1204 |
base[2]= (V172); |
base[2]= (V173); |
1205 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1206 |
Llast(); |
Llast(); |
1207 |
vs_top=sup; |
vs_top=sup; |
1208 |
V173= vs_base[0]; |
V174= vs_base[0]; |
1209 |
goto T474; |
goto T474; |
1210 |
T474:; |
T474:; |
1211 |
{register object V178; |
{register object V179; |
1212 |
base[2]= (V169); |
base[2]= (V170); |
1213 |
base[3]= CMPcdr((V171)); |
base[3]= CMPcdr((V172)); |
1214 |
base[4]= VV[22]; |
base[4]= VV[22]; |
1215 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1216 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1217 |
Lmember(); |
Lmember(); |
1218 |
vs_top=sup; |
vs_top=sup; |
1219 |
V178= vs_base[0]; |
V179= vs_base[0]; |
1220 |
V171= (V178);} |
V172= (V179);} |
1221 |
goto T463; |
goto T463; |
1222 |
goto T464; |
goto T464; |
1223 |
T464:; |
T464:; |
1224 |
base[2]= (V172); |
base[2]= (V173); |
1225 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1226 |
return; |
return; |
1227 |
base[2]= Cnil; |
base[2]= Cnil; |
1239 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1240 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
1241 |
vs_check; |
vs_check; |
1242 |
{object V179; |
{object V180; |
1243 |
object V180; |
object V181; |
1244 |
V179=(base[0]); |
V180=(base[0]); |
1245 |
V180=(base[1]); |
V181=(base[1]); |
1246 |
vs_top=sup; |
vs_top=sup; |
1247 |
goto TTL; |
goto TTL; |
1248 |
TTL:; |
TTL:; |
1249 |
{register object V181; |
{register object V182; |
|
V181= Cnil; |
|
|
{object V182; |
|
|
register object V183; |
|
|
register object V184; |
|
1250 |
V182= Cnil; |
V182= Cnil; |
1251 |
|
{object V183; |
1252 |
|
register object V184; |
1253 |
|
register object V185; |
1254 |
V183= Cnil; |
V183= Cnil; |
1255 |
V184= Cnil; |
V184= Cnil; |
1256 |
{object V185; |
V185= Cnil; |
1257 |
base[2]= (V179); |
{object V186; |
1258 |
base[3]= (V180); |
base[2]= (V180); |
1259 |
|
base[3]= (V181); |
1260 |
base[4]= VV[22]; |
base[4]= VV[22]; |
1261 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1262 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1263 |
Lmember(); |
Lmember(); |
1264 |
vs_top=sup; |
vs_top=sup; |
1265 |
V185= vs_base[0]; |
V186= vs_base[0]; |
1266 |
V181= (V185);} |
V182= (V186);} |
1267 |
goto T503; |
goto T503; |
1268 |
T503:; |
T503:; |
1269 |
if(((V181))==Cnil){ |
if(((V182))==Cnil){ |
1270 |
goto T512;} |
goto T512;} |
1271 |
goto T511; |
goto T511; |
1272 |
goto T512; |
goto T512; |
1274 |
goto T504; |
goto T504; |
1275 |
goto T511; |
goto T511; |
1276 |
T511:; |
T511:; |
1277 |
if(((V181))==Cnil){ |
if(((V182))==Cnil){ |
1278 |
goto T514;} |
goto T514;} |
1279 |
V184= CMPcdr(CMPcar((V181))); |
V185= CMPcdr(CMPcar((V182))); |
1280 |
if(((V183))==Cnil){ |
if(((V184))==Cnil){ |
1281 |
goto T520;} |
goto T520;} |
1282 |
{register object V186; |
{register object V187; |
1283 |
register object V187; |
register object V188; |
1284 |
V186= (V183); |
V187= (V184); |
1285 |
V183= make_cons((V184),Cnil); |
V184= make_cons((V185),Cnil); |
1286 |
V187= (V183); |
V188= (V184); |
1287 |
((V186))->c.c_cdr = (V187); |
((V187))->c.c_cdr = (V188); |
1288 |
goto T514;} |
goto T514;} |
1289 |
goto T520; |
goto T520; |
1290 |
T520:; |
T520:; |
1291 |
V183= make_cons((V184),Cnil); |
V184= make_cons((V185),Cnil); |
1292 |
V182= (V183); |
V183= (V184); |
1293 |
goto T514; |
goto T514; |
1294 |
T514:; |
T514:; |
1295 |
{register object V188; |
{register object V189; |
1296 |
base[2]= (V179); |
base[2]= (V180); |
1297 |
base[3]= CMPcdr((V181)); |
base[3]= CMPcdr((V182)); |
1298 |
base[4]= VV[22]; |
base[4]= VV[22]; |
1299 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1300 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1301 |
Lmember(); |
Lmember(); |
1302 |
vs_top=sup; |
vs_top=sup; |
1303 |
V188= vs_base[0]; |
V189= vs_base[0]; |
1304 |
V181= (V188);} |
V182= (V189);} |
1305 |
goto T503; |
goto T503; |
1306 |
goto T504; |
goto T504; |
1307 |
T504:; |
T504:; |
1308 |
base[2]= (V182); |
base[2]= (V183); |
1309 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1310 |
return; |
return; |
1311 |
base[2]= Cnil; |
base[2]= Cnil; |