72 |
{register object V8; |
{register object V8; |
73 |
V8= car((V7)); |
V8= car((V7)); |
74 |
V6= (V8);} |
V6= (V8);} |
75 |
V9= symbol_function(VV[64]); |
V9= symbol_function(VV[71]); |
76 |
V10= (VFUN_NARGS=4,(*(LnkLI63))((V6),base[3],VV[4],V9)); |
V10= (VFUN_NARGS=4,(*(LnkLI70))((V6),base[3],VV[4],V9)); |
77 |
if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){ |
if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){ |
78 |
goto T30;} |
goto T30;} |
79 |
base[5]= VV[5]; |
base[5]= VV[5]; |
80 |
base[6]= VV[6]; |
base[6]= VV[6]; |
81 |
base[7]= (V6); |
base[7]= (V6); |
82 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
83 |
(void) (*Lnk65)(); |
(void) (*Lnk72)(); |
84 |
vs_top=sup; |
vs_top=sup; |
85 |
goto T30; |
goto T30; |
86 |
T30:; |
T30:; |
620 |
goto T224; |
goto T224; |
621 |
T224:; |
T224:; |
622 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
623 |
(void) (*Lnk65)(); |
(void) (*Lnk72)(); |
624 |
vs_top=sup; |
vs_top=sup; |
625 |
V62= cdr((V62)); |
V62= cdr((V62)); |
626 |
goto T212; |
goto T212; |
721 |
goto T274; |
goto T274; |
722 |
T274:; |
T274:; |
723 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
724 |
(void) (*Lnk65)(); |
(void) (*Lnk72)(); |
725 |
vs_top=sup; |
vs_top=sup; |
726 |
V90= cdr((V90)); |
V90= cdr((V90)); |
727 |
goto T262; |
goto T262; |
746 |
base[5]= VV[31]; |
base[5]= VV[31]; |
747 |
base[6]= base[3]; |
base[6]= base[3]; |
748 |
base[7]= VV[4]; |
base[7]= VV[4]; |
749 |
base[8]= symbol_function(VV[64]); |
base[8]= symbol_function(VV[71]); |
750 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
751 |
Lmember(); |
Lmember(); |
752 |
vs_top=sup; |
vs_top=sup; |
802 |
base[7]=V118=MMcons(Cnil,Cnil); |
base[7]=V118=MMcons(Cnil,Cnil); |
803 |
goto T334; |
goto T334; |
804 |
T334:; |
T334:; |
805 |
V121= list(2,VV[48],list(3,VV[49],VV[50],list(3,VV[51],VV[52],car((V119->c.c_car))))); |
{register object V120; |
806 |
(V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V121,list(2,VV[30],cdr((V119->c.c_car))))); |
V120= (V119->c.c_car); |
807 |
|
V121= list(3,VV[51],VV[52],car((V120))); |
808 |
|
V122= list(3,VV[53],VV[52],car((V120))); |
809 |
|
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],car((V120)),VV[57])))); |
810 |
|
(V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V123,list(2,VV[30],cdr((V120)))));} |
811 |
V119=MMcdr(V119); |
V119=MMcdr(V119); |
812 |
if(endp(V119)){ |
if(endp(V119)){ |
813 |
base[6]= base[7]; |
base[6]= base[7]; |
833 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
834 |
L5(base); |
L5(base); |
835 |
vs_top=sup; |
vs_top=sup; |
836 |
V125= vs_base[0]; |
V127= vs_base[0]; |
837 |
{object V123; |
{object V125; |
838 |
object V124= V125; |
object V126= V127; |
839 |
if(endp(V124)){ |
if(endp(V126)){ |
840 |
V122= Cnil; |
V124= Cnil; |
841 |
goto T337;} |
goto T337;} |
842 |
base[8]=V123=MMcons(Cnil,Cnil); |
base[8]=V125=MMcons(Cnil,Cnil); |
843 |
goto T345; |
goto T345; |
844 |
T345:; |
T345:; |
845 |
(V123->c.c_car)= coerce_to_string((V124->c.c_car)); |
(V125->c.c_car)= coerce_to_string((V126->c.c_car)); |
846 |
V124=MMcdr(V124); |
V126=MMcdr(V126); |
847 |
if(endp(V124)){ |
if(endp(V126)){ |
848 |
V122= base[8]; |
V124= base[8]; |
849 |
goto T337;} |
goto T337;} |
850 |
V123=MMcdr(V123)=MMcons(Cnil,Cnil); |
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
851 |
goto T345;} |
goto T345;} |
852 |
goto T339; |
goto T339; |
853 |
T339:; |
T339:; |
854 |
V122= VV[54]; |
V124= VV[59]; |
855 |
goto T337; |
goto T337; |
856 |
T337:; |
T337:; |
857 |
V126= list(2,VV[53],list(2,VV[30],V122)); |
V128= list(2,VV[58],list(2,VV[30],V124)); |
858 |
if(((V18))==Cnil){ |
if(((V18))==Cnil){ |
859 |
goto T353;} |
goto T353;} |
860 |
{object V128; |
{object V130; |
861 |
object V129= (V18); |
object V131= (V18); |
862 |
if(endp(V129)){ |
if(endp(V131)){ |
863 |
base[8]= Cnil; |
base[8]= Cnil; |
864 |
goto T351;} |
goto T351;} |
865 |
base[9]=V128=MMcons(Cnil,Cnil); |
base[9]=V130=MMcons(Cnil,Cnil); |
866 |
goto T355; |
goto T355; |
867 |
T355:; |
T355:; |
868 |
V131= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[51],VV[52],car((V129->c.c_car))))); |
{register object V132; |
869 |
(V128->c.c_car)= list(2,VV[55],list(3,VV[45],/* INLINE-ARGS */V131,list(2,VV[30],cdr((V129->c.c_car))))); |
V132= (V131->c.c_car); |
870 |
V129=MMcdr(V129); |
V133= list(3,VV[51],VV[52],car((V132))); |
871 |
if(endp(V129)){ |
V134= list(3,VV[53],VV[52],car((V132))); |
872 |
|
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],car((V132)),VV[63])))); |
873 |
|
(V130->c.c_car)= list(2,VV[60],list(3,VV[45],/* INLINE-ARGS */V135,list(2,VV[30],cdr((V132)))));} |
874 |
|
V131=MMcdr(V131); |
875 |
|
if(endp(V131)){ |
876 |
base[8]= base[9]; |
base[8]= base[9]; |
877 |
goto T351;} |
goto T351;} |
878 |
V128=MMcdr(V128)=MMcons(Cnil,Cnil); |
V130=MMcdr(V130)=MMcons(Cnil,Cnil); |
879 |
goto T355;} |
goto T355;} |
880 |
goto T353; |
goto T353; |
881 |
T353:; |
T353:; |
884 |
T351:; |
T351:; |
885 |
if(((V15))==Cnil){ |
if(((V15))==Cnil){ |
886 |
goto T359;} |
goto T359;} |
887 |
V132= list(3,VV[45],VV[57],list(2,VV[30],(V15))); |
V136= list(3,VV[45],VV[64],list(2,VV[30],(V15))); |
888 |
base[9]= make_cons(/* INLINE-ARGS */V132,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V136,Cnil); |
889 |
goto T357; |
goto T357; |
890 |
goto T359; |
goto T359; |
891 |
T359:; |
T359:; |
894 |
T357:; |
T357:; |
895 |
if(((V16))==Cnil){ |
if(((V16))==Cnil){ |
896 |
goto T363;} |
goto T363;} |
897 |
V133= list(2,VV[58],list(3,VV[45],VV[59],list(2,VV[30],(V16)))); |
V137= list(2,VV[65],list(3,VV[45],VV[66],list(2,VV[30],(V16)))); |
898 |
base[10]= make_cons(/* INLINE-ARGS */V133,Cnil); |
base[10]= make_cons(/* INLINE-ARGS */V137,Cnil); |
899 |
goto T361; |
goto T361; |
900 |
goto T363; |
goto T363; |
901 |
T363:; |
T363:; |
904 |
T361:; |
T361:; |
905 |
if(((V19))==Cnil){ |
if(((V19))==Cnil){ |
906 |
goto T367;} |
goto T367;} |
907 |
V134= list(3,VV[60],list(2,VV[61],list(2,VV[30],(V19))),VV[62]); |
V138= list(3,VV[67],list(2,VV[68],list(2,VV[30],(V19))),VV[69]); |
908 |
base[11]= make_cons(/* INLINE-ARGS */V134,Cnil); |
base[11]= make_cons(/* INLINE-ARGS */V138,Cnil); |
909 |
goto T365; |
goto T365; |
910 |
goto T367; |
goto T367; |
911 |
T367:; |
T367:; |
915 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
916 |
Lappend(); |
Lappend(); |
917 |
vs_top=sup; |
vs_top=sup; |
918 |
V127= vs_base[0]; |
V129= vs_base[0]; |
919 |
base[7]= make_cons(/* INLINE-ARGS */V126,V127); |
base[7]= make_cons(/* INLINE-ARGS */V128,V129); |
920 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
921 |
Lappend(); |
Lappend(); |
922 |
vs_top=sup; |
vs_top=sup; |
923 |
V116= vs_base[0]; |
V116= vs_base[0]; |
924 |
V135= listA(3,VV[42],/* INLINE-ARGS */V115,V116); |
V139= listA(3,VV[42],/* INLINE-ARGS */V115,V116); |
925 |
V136= list(2,/* INLINE-ARGS */V135,list(2,VV[27],base[2])); |
V140= list(2,/* INLINE-ARGS */V139,list(2,VV[27],base[2])); |
926 |
base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V136)); |
base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V140)); |
927 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
928 |
return;} |
return;} |
929 |
} |
} |
934 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
935 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
936 |
vs_reserve(VM2); |
vs_reserve(VM2); |
937 |
{object V137; |
{object V141; |
938 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
939 |
{object *p=vs_top; |
{object *p=vs_top; |
940 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
941 |
V137=(base[0]); |
V141=(base[0]); |
942 |
vs_top=sup; |
vs_top=sup; |
943 |
{object V138; |
{object V142; |
944 |
V138= Cnil; |
V142= Cnil; |
945 |
{object V139; |
{object V143; |
946 |
object V140; |
object V144; |
947 |
V139= Cnil; |
V143= Cnil; |
948 |
V140= (V137); |
V144= (V141); |
949 |
{object V141; |
{object V145; |
950 |
V141= cdr((V137)); |
V145= cdr((V141)); |
951 |
{register long V142; |
{register long V146; |
952 |
V142= 1; |
V146= 1; |
953 |
goto T373; |
goto T373; |
954 |
T373:; |
T373:; |
955 |
if(((V141))==Cnil){ |
if(((V145))==Cnil){ |
956 |
goto T376;} |
goto T376;} |
957 |
goto T375; |
goto T375; |
958 |
goto T376; |
goto T376; |
960 |
goto T374; |
goto T374; |
961 |
goto T375; |
goto T375; |
962 |
T375:; |
T375:; |
963 |
if(((V140))==Cnil){ |
if(((V144))==Cnil){ |
964 |
goto T379;} |
goto T379;} |
965 |
goto T378; |
goto T378; |
966 |
goto T379; |
goto T379; |
968 |
goto T374; |
goto T374; |
969 |
goto T378; |
goto T378; |
970 |
T378:; |
T378:; |
971 |
{object V143; |
{object V147; |
972 |
V143= car((V140)); |
V147= car((V144)); |
973 |
V139= (V143);} |
V143= (V147);} |
974 |
{register object V144; |
{register object V148; |
975 |
register object V145; |
register object V149; |
976 |
V144= Cnil; |
V148= Cnil; |
977 |
V145= (V139); |
V149= (V143); |
978 |
{register object V146; |
{register object V150; |
979 |
V146= Cnil; |
V150= Cnil; |
980 |
goto T386; |
goto T386; |
981 |
T386:; |
T386:; |
982 |
if(((V145))==Cnil){ |
if(((V149))==Cnil){ |
983 |
goto T389;} |
goto T389;} |
984 |
goto T388; |
goto T388; |
985 |
goto T389; |
goto T389; |
987 |
goto T387; |
goto T387; |
988 |
goto T388; |
goto T388; |
989 |
T388:; |
T388:; |
990 |
{object V147; |
{object V151; |
991 |
V147= car((V145)); |
V151= car((V149)); |
992 |
V144= (V147);} |
V148= (V151);} |
993 |
{object V148; |
{object V152; |
994 |
V149= symbol_function(VV[64]); |
V153= symbol_function(VV[71]); |
995 |
V150= symbol_function(VV[67]); |
V154= symbol_function(VV[74]); |
996 |
V148= (VFUN_NARGS=6,(*(LnkLI66))((V144),(V138),VV[4],V149,VV[22],V150)); |
V152= (VFUN_NARGS=6,(*(LnkLI73))((V148),(V142),VV[4],V153,VV[22],V154)); |
997 |
V146= (V148);} |
V150= (V152);} |
998 |
V152 = make_fixnum(V142); |
V156 = make_fixnum(V146); |
999 |
{register object x= V152,V151= (V146); |
{register object x= V156,V155= (V150); |
1000 |
while(!endp(V151)) |
while(!endp(V155)) |
1001 |
if(eql(x,V151->c.c_car)){ |
if(eql(x,V155->c.c_car)){ |
1002 |
goto T399; |
goto T399; |
1003 |
}else V151=V151->c.c_cdr;} |
}else V155=V155->c.c_cdr;} |
1004 |
{object V153; |
{object V157; |
1005 |
register object V154; |
register object V158; |
1006 |
V153= Cnil; |
V157= Cnil; |
1007 |
V154= (V141); |
V158= (V145); |
1008 |
{register long V155; |
{register long V159; |
1009 |
{object V156; |
{object V160; |
1010 |
V157 = make_fixnum(V142); |
V161 = make_fixnum(V146); |
1011 |
V156= one_plus(V157);{object V158; |
V160= one_plus(V161);{object V162; |
1012 |
V158= (type_of((V156))==t_fixnum?Ct:Cnil); |
V162= (type_of((V160))==t_fixnum?Ct:Cnil); |
1013 |
if(V158==Cnil)goto T405; |
if(V162==Cnil)goto T405; |
1014 |
goto T404; |
goto T404; |
1015 |
goto T405; |
goto T405; |
1016 |
T405:;} |
T405:;} |
1017 |
(void)((*(LnkLI68))()); |
(void)((*(LnkLI75))()); |
1018 |
goto T404; |
goto T404; |
1019 |
T404:; |
T404:; |
1020 |
V155= fix((V156));} |
V159= fix((V160));} |
1021 |
goto T408; |
goto T408; |
1022 |
T408:; |
T408:; |
1023 |
if(((V154))==Cnil){ |
if(((V158))==Cnil){ |
1024 |
goto T411;} |
goto T411;} |
1025 |
goto T410; |
goto T410; |
1026 |
goto T411; |
goto T411; |
1028 |
goto T409; |
goto T409; |
1029 |
goto T410; |
goto T410; |
1030 |
T410:; |
T410:; |
1031 |
{object V159; |
{object V163; |
1032 |
V159= car((V154)); |
V163= car((V158)); |
1033 |
V153= (V159);} |
V157= (V163);} |
1034 |
base[1]= (V144); |
base[1]= (V148); |
1035 |
base[2]= (V153); |
base[2]= (V157); |
1036 |
base[3]= VV[22]; |
base[3]= VV[22]; |
1037 |
base[4]= symbol_function(VV[67]); |
base[4]= symbol_function(VV[74]); |
1038 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1039 |
Lmember(); |
Lmember(); |
1040 |
vs_top=sup; |
vs_top=sup; |
1041 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1042 |
goto T416;} |
goto T416;} |
1043 |
if(((V146))==Cnil){ |
if(((V150))==Cnil){ |
1044 |
goto T424;} |
goto T424;} |
1045 |
V160 = make_fixnum(V155); |
V164 = make_fixnum(V159); |
1046 |
V161= make_cons(V160,Cnil); |
V165= make_cons(V164,Cnil); |
1047 |
(void)(nconc((V146),/* INLINE-ARGS */V161)); |
(void)(nconc((V150),/* INLINE-ARGS */V165)); |
1048 |
goto T416; |
goto T416; |
1049 |
goto T424; |
goto T424; |
1050 |
T424:; |
T424:; |
1051 |
{object V163; |
{object V167; |
1052 |
V164 = make_fixnum(V142); |
V168 = make_fixnum(V146); |
1053 |
V165 = make_fixnum(V155); |
V169 = make_fixnum(V159); |
1054 |
V163= list(3,(V144),V164,V165); |
V167= list(3,(V148),V168,V169); |
1055 |
V138= make_cons((V163),(V138)); |
V142= make_cons((V167),(V142)); |
1056 |
V162= (V138);} |
V166= (V142);} |
1057 |
V146= car(V162); |
V150= car(V166); |
1058 |
goto T416; |
goto T416; |
1059 |
T416:; |
T416:; |
1060 |
V154= cdr((V154)); |
V158= cdr((V158)); |
1061 |
if(!((V155)<(2147483646))){ |
if(!((V159)<(2147483646))){ |
1062 |
goto T433;} |
goto T433;} |
1063 |
goto T432; |
goto T432; |
1064 |
goto T433; |
goto T433; |
1065 |
T433:; |
T433:; |
1066 |
(void)((*(LnkLI68))()); |
(void)((*(LnkLI75))()); |
1067 |
goto T432; |
goto T432; |
1068 |
T432:; |
T432:; |
1069 |
V155= (long)(V155)+(1); |
V159= (long)(V159)+(1); |
1070 |
goto T408; |
goto T408; |
1071 |
goto T409; |
goto T409; |
1072 |
T409:; |
T409:; |
1074 |
goto T399;}} |
goto T399;}} |
1075 |
goto T399; |
goto T399; |
1076 |
T399:; |
T399:; |
1077 |
V145= cdr((V145)); |
V149= cdr((V149)); |
1078 |
goto T386; |
goto T386; |
1079 |
goto T387; |
goto T387; |
1080 |
T387:; |
T387:; |
1082 |
goto T384;}} |
goto T384;}} |
1083 |
goto T384; |
goto T384; |
1084 |
T384:; |
T384:; |
1085 |
V140= cdr((V140)); |
V144= cdr((V144)); |
1086 |
V141= cdr((V141)); |
V145= cdr((V145)); |
1087 |
if(!((V142)<(2147483646))){ |
if(!((V146)<(2147483646))){ |
1088 |
goto T446;} |
goto T446;} |
1089 |
goto T445; |
goto T445; |
1090 |
goto T446; |
goto T446; |
1091 |
T446:; |
T446:; |
1092 |
(void)((*(LnkLI68))()); |
(void)((*(LnkLI75))()); |
1093 |
goto T445; |
goto T445; |
1094 |
T445:; |
T445:; |
1095 |
V142= (long)(V142)+(1); |
V146= (long)(V146)+(1); |
1096 |
goto T373; |
goto T373; |
1097 |
goto T374; |
goto T374; |
1098 |
T374:; |
T374:; |
1100 |
goto T369;}}} |
goto T369;}}} |
1101 |
goto T369; |
goto T369; |
1102 |
T369:; |
T369:; |
1103 |
base[1]= (V138); |
base[1]= (V142); |
1104 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1105 |
return;} |
return;} |
1106 |
} |
} |
1112 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1113 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
1114 |
vs_reserve(VM3); |
vs_reserve(VM3); |
1115 |
{object V166; |
{object V170; |
1116 |
object V167; |
object V171; |
1117 |
check_arg(2); |
check_arg(2); |
1118 |
V166=(base[0]); |
V170=(base[0]); |
1119 |
V167=(base[1]); |
V171=(base[1]); |
1120 |
vs_top=sup; |
vs_top=sup; |
1121 |
if(!(type_of((V167))==t_cons)){ |
if(!(type_of((V171))==t_cons)){ |
1122 |
goto T452;} |
goto T452;} |
1123 |
base[2]= (equal(car((V167)),(V166))?Ct:Cnil); |
base[2]= (equal(car((V171)),(V170))?Ct:Cnil); |
1124 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1125 |
return; |
return; |
1126 |
goto T452; |
goto T452; |
1137 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1138 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
1139 |
vs_reserve(VM4); |
vs_reserve(VM4); |
1140 |
{object V168; |
{object V172; |
1141 |
object V169; |
object V173; |
1142 |
check_arg(2); |
check_arg(2); |
1143 |
V168=(base[0]); |
V172=(base[0]); |
1144 |
V169=(base[1]); |
V173=(base[1]); |
1145 |
vs_top=sup; |
vs_top=sup; |
1146 |
goto TTL; |
goto TTL; |
1147 |
TTL:; |
TTL:; |
1148 |
{register object V170; |
{register object V174; |
1149 |
V170= Cnil; |
V174= Cnil; |
1150 |
{object V171; |
{object V175; |
1151 |
register object V172; |
register object V176; |
1152 |
register object V173; |
register object V177; |
1153 |
V171= Cnil; |
V175= Cnil; |
1154 |
V172= Cnil; |
V176= Cnil; |
1155 |
V173= Cnil; |
V177= Cnil; |
1156 |
{object V174; |
{object V178; |
1157 |
base[2]= (V168); |
base[2]= (V172); |
1158 |
base[3]= (V169); |
base[3]= (V173); |
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 |
V174= vs_base[0]; |
V178= vs_base[0]; |
1165 |
V170= (V174);} |
V174= (V178);} |
1166 |
goto T455; |
goto T455; |
1167 |
T455:; |
T455:; |
1168 |
if(((V170))==Cnil){ |
if(((V174))==Cnil){ |
1169 |
goto T464;} |
goto T464;} |
1170 |
goto T463; |
goto T463; |
1171 |
goto T464; |
goto T464; |
1173 |
goto T456; |
goto T456; |
1174 |
goto T463; |
goto T463; |
1175 |
T463:; |
T463:; |
1176 |
if(((V170))==Cnil){ |
if(((V174))==Cnil){ |
1177 |
goto T466;} |
goto T466;} |
1178 |
base[2]= cdr(car((V170))); |
base[2]= cdr(car((V174))); |
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 |
V173= vs_base[0]; |
V177= vs_base[0]; |
1183 |
if(((V172))==Cnil){ |
if(((V176))==Cnil){ |
1184 |
goto T473;} |
goto T473;} |
1185 |
{register object V175; |
{register object V179; |
1186 |
register object V176; |
register object V180; |
1187 |
V175= (V172); |
V179= (V176); |
1188 |
V176= (V173); |
V180= (V177); |
1189 |
if(type_of((V175))!=t_cons)FEwrong_type_argument(Scons,(V175)); |
if(type_of((V179))!=t_cons)FEwrong_type_argument(Scons,(V179)); |
1190 |
((V175))->c.c_cdr = (V176); |
((V179))->c.c_cdr = (V180); |
1191 |
if(((V176))!=Cnil){ |
if(((V180))!=Cnil){ |
1192 |
goto T475;}} |
goto T475;}} |
1193 |
goto T466; |
goto T466; |
1194 |
goto T475; |
goto T475; |
1195 |
T475:; |
T475:; |
1196 |
base[2]= cdr((V172)); |
base[2]= cdr((V176)); |
1197 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1198 |
Llast(); |
Llast(); |
1199 |
vs_top=sup; |
vs_top=sup; |
1200 |
V172= vs_base[0]; |
V176= vs_base[0]; |
1201 |
goto T466; |
goto T466; |
1202 |
goto T473; |
goto T473; |
1203 |
T473:; |
T473:; |
1204 |
V171= (V173); |
V175= (V177); |
1205 |
base[2]= (V171); |
base[2]= (V175); |
1206 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1207 |
Llast(); |
Llast(); |
1208 |
vs_top=sup; |
vs_top=sup; |
1209 |
V172= vs_base[0]; |
V176= vs_base[0]; |
1210 |
goto T466; |
goto T466; |
1211 |
T466:; |
T466:; |
1212 |
{register object V177; |
{register object V181; |
1213 |
base[2]= (V168); |
base[2]= (V172); |
1214 |
base[3]= cdr((V170)); |
base[3]= cdr((V174)); |
1215 |
base[4]= VV[22]; |
base[4]= VV[22]; |
1216 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1217 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1218 |
Lmember(); |
Lmember(); |
1219 |
vs_top=sup; |
vs_top=sup; |
1220 |
V177= vs_base[0]; |
V181= vs_base[0]; |
1221 |
V170= (V177);} |
V174= (V181);} |
1222 |
goto T455; |
goto T455; |
1223 |
goto T456; |
goto T456; |
1224 |
T456:; |
T456:; |
1225 |
base[2]= (V171); |
base[2]= (V175); |
1226 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1227 |
return; |
return; |
1228 |
base[2]= Cnil; |
base[2]= Cnil; |
1240 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1241 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
1242 |
vs_reserve(VM5); |
vs_reserve(VM5); |
1243 |
{object V178; |
{object V182; |
1244 |
object V179; |
object V183; |
1245 |
check_arg(2); |
check_arg(2); |
1246 |
V178=(base[0]); |
V182=(base[0]); |
1247 |
V179=(base[1]); |
V183=(base[1]); |
1248 |
vs_top=sup; |
vs_top=sup; |
1249 |
goto TTL; |
goto TTL; |
1250 |
TTL:; |
TTL:; |
1251 |
{register object V180; |
{register object V184; |
1252 |
V180= Cnil; |
V184= Cnil; |
1253 |
{object V181; |
{object V185; |
1254 |
register object V182; |
register object V186; |
1255 |
register object V183; |
register object V187; |
1256 |
V181= Cnil; |
V185= Cnil; |
1257 |
V182= Cnil; |
V186= Cnil; |
1258 |
V183= Cnil; |
V187= Cnil; |
1259 |
{object V184; |
{object V188; |
1260 |
base[2]= (V178); |
base[2]= (V182); |
1261 |
base[3]= (V179); |
base[3]= (V183); |
1262 |
base[4]= VV[22]; |
base[4]= VV[22]; |
1263 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1264 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1265 |
Lmember(); |
Lmember(); |
1266 |
vs_top=sup; |
vs_top=sup; |
1267 |
V184= vs_base[0]; |
V188= vs_base[0]; |
1268 |
V180= (V184);} |
V184= (V188);} |
1269 |
goto T495; |
goto T495; |
1270 |
T495:; |
T495:; |
1271 |
if(((V180))==Cnil){ |
if(((V184))==Cnil){ |
1272 |
goto T504;} |
goto T504;} |
1273 |
goto T503; |
goto T503; |
1274 |
goto T504; |
goto T504; |
1276 |
goto T496; |
goto T496; |
1277 |
goto T503; |
goto T503; |
1278 |
T503:; |
T503:; |
1279 |
if(((V180))==Cnil){ |
if(((V184))==Cnil){ |
1280 |
goto T506;} |
goto T506;} |
1281 |
V183= cdr(car((V180))); |
V187= cdr(car((V184))); |
1282 |
if(((V182))==Cnil){ |
if(((V186))==Cnil){ |
1283 |
goto T512;} |
goto T512;} |
1284 |
{register object V185; |
{register object V189; |
1285 |
register object V186; |
register object V190; |
1286 |
V185= (V182); |
V189= (V186); |
1287 |
V182= make_cons((V183),Cnil); |
V186= make_cons((V187),Cnil); |
1288 |
V186= (V182); |
V190= (V186); |
1289 |
if(type_of((V185))!=t_cons)FEwrong_type_argument(Scons,(V185)); |
if(type_of((V189))!=t_cons)FEwrong_type_argument(Scons,(V189)); |
1290 |
((V185))->c.c_cdr = (V186); |
((V189))->c.c_cdr = (V190); |
1291 |
goto T506;} |
goto T506;} |
1292 |
goto T512; |
goto T512; |
1293 |
T512:; |
T512:; |
1294 |
V182= make_cons((V183),Cnil); |
V186= make_cons((V187),Cnil); |
1295 |
V181= (V182); |
V185= (V186); |
1296 |
goto T506; |
goto T506; |
1297 |
T506:; |
T506:; |
1298 |
{register object V187; |
{register object V191; |
1299 |
base[2]= (V178); |
base[2]= (V182); |
1300 |
base[3]= cdr((V180)); |
base[3]= cdr((V184)); |
1301 |
base[4]= VV[22]; |
base[4]= VV[22]; |
1302 |
base[5]= (base0[4]->c.c_car); |
base[5]= (base0[4]->c.c_car); |
1303 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1304 |
Lmember(); |
Lmember(); |
1305 |
vs_top=sup; |
vs_top=sup; |
1306 |
V187= vs_base[0]; |
V191= vs_base[0]; |
1307 |
V180= (V187);} |
V184= (V191);} |
1308 |
goto T495; |
goto T495; |
1309 |
goto T496; |
goto T496; |
1310 |
T496:; |
T496:; |
1311 |
base[2]= (V181); |
base[2]= (V185); |
1312 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1313 |
return; |
return; |
1314 |
base[2]= Cnil; |
base[2]= Cnil; |
1319 |
return;}} |
return;}} |
1320 |
} |
} |
1321 |
} |
} |
1322 |
static object LnkTLI68(){return call_proc0(VV[68],(void **)&LnkLI68);} /* TYPE-ERROR */ |
static object LnkTLI75(){return call_proc0(VV[75],(void **)&LnkLI75);} /* TYPE-ERROR */ |
1323 |
static object LnkTLI66(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[66],(void **)&LnkLI66,ap);va_end(ap);return V1;} /* FIND */ |
static object LnkTLI73(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[73],(void **)&LnkLI73,ap);va_end(ap);return V1;} /* FIND */ |
1324 |
static void LnkT65(){ call_or_link(VV[65],(void **)&Lnk65);} /* SPECIFIC-ERROR */ |
static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* SPECIFIC-ERROR */ |
1325 |
static object LnkTLI63(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[63],(void **)&LnkLI63,ap);va_end(ap);return V1;} /* COUNT */ |
static object LnkTLI70(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[70],(void **)&LnkLI70,ap);va_end(ap);return V1;} /* COUNT */ |
1326 |
|
|
1327 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1328 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |