791 |
if(((V76))!=Cnil){ |
if(((V76))!=Cnil){ |
792 |
goto T354;} |
goto T354;} |
793 |
{object V106; |
{object V106; |
794 |
|
V107 = (V73); |
795 |
if(((V67))==Cnil){ |
if(((V67))==Cnil){ |
796 |
goto T360;} |
goto T360;} |
797 |
V107= list(2,VV[18],(V63)); |
V108= list(2,VV[18],(V63)); |
798 |
goto T358; |
goto T358; |
799 |
goto T360; |
goto T360; |
800 |
T360:; |
T360:; |
801 |
V107= (V63); |
V108= (V63); |
802 |
goto T358; |
goto T358; |
803 |
T358:; |
T358:; |
804 |
V108= list(2,VV[53],list(3,VV[54],VV[55],V107)); |
V109= list(2,VV[53],list(3,VV[54],VV[55],V108)); |
805 |
if(((V76))!=Cnil){ |
if(((V76))!=Cnil){ |
806 |
goto T364;} |
goto T364;} |
807 |
V109= make_cons((V72),Cnil); |
V110= make_cons((V72),Cnil); |
808 |
goto T362; |
goto T362; |
809 |
goto T364; |
goto T364; |
810 |
T364:; |
T364:; |
811 |
V109= Cnil; |
V110= Cnil; |
812 |
goto T362; |
goto T362; |
813 |
T362:; |
T362:; |
814 |
V110= listA(4,VV[52],(V73),/* INLINE-ARGS */V108,V109); |
V111= listA(4,VV[52],V107,/* INLINE-ARGS */V109,V110); |
815 |
{object V112; |
{object V113; |
816 |
if(((V67))==Cnil){ |
if(((V67))==Cnil){ |
817 |
goto T369;} |
goto T369;} |
818 |
V112= list(2,VV[18],(V63)); |
V113= list(2,VV[18],(V63)); |
819 |
goto T367; |
goto T367; |
820 |
goto T369; |
goto T369; |
821 |
T369:; |
T369:; |
822 |
V112= (V63); |
V113= (V63); |
823 |
goto T367; |
goto T367; |
824 |
T367:; |
T367:; |
825 |
if(!(((V66))==(VV[2]))){ |
if(!(((V66))==(VV[2]))){ |
826 |
goto T372;} |
goto T372;} |
827 |
V113= list(2,VV[48],(V65)); |
V114= list(2,VV[48],(V65)); |
828 |
V114= list(2,VV[48],(V64)); |
V115= list(2,VV[48],(V64)); |
829 |
V115= list(2,VV[48],(V62)); |
V116 = (V113); |
830 |
|
V117= list(2,VV[48],(V62)); |
831 |
|
V118 = (V73); |
832 |
if(((V76))!=Cnil){ |
if(((V76))!=Cnil){ |
833 |
goto T376;} |
goto T376;} |
834 |
V116= (V72); |
V119= (V72); |
835 |
goto T374; |
goto T374; |
836 |
goto T376; |
goto T376; |
837 |
T376:; |
T376:; |
838 |
V116= Cnil; |
V119= Cnil; |
839 |
goto T374; |
goto T374; |
840 |
T374:; |
T374:; |
841 |
V111= list(7,VV[56],/* INLINE-ARGS */V113,/* INLINE-ARGS */V114,(V112),/* INLINE-ARGS */V115,(V73),V116); |
V112= list(7,VV[56],/* INLINE-ARGS */V114,/* INLINE-ARGS */V115,V116,/* INLINE-ARGS */V117,V118,V119); |
842 |
goto T366; |
goto T366; |
843 |
goto T372; |
goto T372; |
844 |
T372:; |
T372:; |
845 |
V117= list(2,VV[48],(V65)); |
V120= list(2,VV[48],(V65)); |
846 |
if(((V64))==Cnil){ |
if(((V64))==Cnil){ |
847 |
goto T380;} |
goto T380;} |
848 |
V118= list(2,VV[59],list(2,VV[48],(V64))); |
V121= list(2,VV[59],list(2,VV[48],(V64))); |
849 |
goto T378; |
goto T378; |
850 |
goto T380; |
goto T380; |
851 |
T380:; |
T380:; |
852 |
V118= Cnil; |
V121= Cnil; |
853 |
goto T378; |
goto T378; |
854 |
T378:; |
T378:; |
855 |
V119= list(2,VV[48],(V62)); |
V122 = (V113); |
856 |
|
V123= list(2,VV[48],(V62)); |
857 |
|
V124 = (V73); |
858 |
if(((V76))!=Cnil){ |
if(((V76))!=Cnil){ |
859 |
goto T384;} |
goto T384;} |
860 |
V120= list(2,VV[63],(V72)); |
V125= list(2,VV[63],(V72)); |
861 |
goto T382; |
goto T382; |
862 |
goto T384; |
goto T384; |
863 |
T384:; |
T384:; |
864 |
V120= Cnil; |
V125= Cnil; |
865 |
goto T382; |
goto T382; |
866 |
T382:; |
T382:; |
867 |
V121= listA(7,VV[60],(V112),VV[61],/* INLINE-ARGS */V119,VV[62],(V73),V120); |
V126= listA(7,VV[60],V122,VV[61],/* INLINE-ARGS */V123,VV[62],V124,V125); |
868 |
V111= listA(5,(V66),VV[57],VV[58],/* INLINE-ARGS */V117,append(V118,/* INLINE-ARGS */V121));} |
V112= listA(5,(V66),VV[57],VV[58],/* INLINE-ARGS */V120,append(V121,/* INLINE-ARGS */V126));} |
869 |
goto T366; |
goto T366; |
870 |
T366:; |
T366:; |
871 |
V106= list(3,VV[51],/* INLINE-ARGS */V110,V111); |
V106= list(3,VV[51],/* INLINE-ARGS */V111,V112); |
872 |
(VV[3]->s.s_dbind)= make_cons((V106),(VV[3]->s.s_dbind));} |
(VV[3]->s.s_dbind)= make_cons((V106),(VV[3]->s.s_dbind));} |
873 |
goto T354; |
goto T354; |
874 |
T354:; |
T354:; |
875 |
if(((V74))==Cnil){ |
if(((V74))==Cnil){ |
876 |
goto T387;} |
goto T387;} |
877 |
{object V122; |
{object V127; |
878 |
object V123; |
object V128; |
879 |
base[8]= VV[64]; |
base[8]= VV[64]; |
880 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
881 |
Lgensym(); |
Lgensym(); |
882 |
vs_top=sup; |
vs_top=sup; |
883 |
V122= vs_base[0]; |
V127= vs_base[0]; |
884 |
base[8]= VV[65]; |
base[8]= VV[65]; |
885 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
886 |
Lgensym(); |
Lgensym(); |
887 |
vs_top=sup; |
vs_top=sup; |
888 |
V123= vs_base[0]; |
V128= vs_base[0]; |
889 |
{object V124; |
{object V129; |
890 |
V125= list(2,(V122),(V123)); |
V130= list(2,(V127),(V128)); |
891 |
V126= list(2,VV[48],(V74)); |
V131= list(2,VV[48],(V74)); |
892 |
V127= list(4,VV[67],(V75),/* INLINE-ARGS */V126,list(2,VV[48],(V77))); |
V132= list(4,VV[67],(V75),/* INLINE-ARGS */V131,list(2,VV[48],(V77))); |
893 |
V128= list(2,VV[48],(V65)); |
V133= list(2,VV[48],(V65)); |
894 |
if(((V64))==Cnil){ |
if(((V64))==Cnil){ |
895 |
goto T397;} |
goto T397;} |
896 |
V129= list(2,VV[59],list(2,VV[48],(V64))); |
V134= list(2,VV[59],list(2,VV[48],(V64))); |
897 |
goto T395; |
goto T395; |
898 |
goto T397; |
goto T397; |
899 |
T397:; |
T397:; |
900 |
V129= Cnil; |
V134= Cnil; |
901 |
goto T395; |
goto T395; |
902 |
T395:; |
T395:; |
903 |
V130= list(4,VV[70],(V122),VV[71],(V123)); |
V135= list(4,VV[70],(V127),VV[71],(V128)); |
904 |
V124= list(4,VV[66],/* INLINE-ARGS */V125,/* INLINE-ARGS */V127,list(3,VV[68],(V122),listA(5,(V66),VV[69],VV[58],/* INLINE-ARGS */V128,append(V129,/* INLINE-ARGS */V130)))); |
V129= list(4,VV[66],/* INLINE-ARGS */V130,/* INLINE-ARGS */V132,list(3,VV[68],(V127),listA(5,(V66),VV[69],VV[58],/* INLINE-ARGS */V133,append(V134,/* INLINE-ARGS */V135)))); |
905 |
(VV[3]->s.s_dbind)= make_cons((V124),(VV[3]->s.s_dbind));}} |
(VV[3]->s.s_dbind)= make_cons((V129),(VV[3]->s.s_dbind));}} |
906 |
goto T387; |
goto T387; |
907 |
T387:; |
T387:; |
908 |
base[8]= (V78); |
base[8]= (V78); |
922 |
} |
} |
923 |
/* local entry for function PUSH-SUB-LIST-BINDING */ |
/* local entry for function PUSH-SUB-LIST-BINDING */ |
924 |
|
|
925 |
static object LI9(V137,V138,V139,V140,V141,V142) |
static object LI9(V142,V143,V144,V145,V146,V147) |
926 |
|
|
927 |
object V137;object V138;object V139;object V140;object V141;object V142; |
object V142;object V143;object V144;object V145;object V146;object V147; |
928 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
929 |
goto TTL; |
goto TTL; |
930 |
TTL:; |
TTL:; |
931 |
{register object V143; |
{register object V148; |
932 |
base[0]= VV[72]; |
base[0]= VV[72]; |
933 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
934 |
Lgensym(); |
Lgensym(); |
935 |
vs_top=sup; |
vs_top=sup; |
936 |
V143= vs_base[0]; |
V148= vs_base[0]; |
937 |
{object V144; |
{object V149; |
938 |
V145= list(2,(V143),(V138)); |
V150= list(2,(V148),(V143)); |
939 |
V146= make_cons(/* INLINE-ARGS */V145,Cnil); |
V151= make_cons(/* INLINE-ARGS */V150,Cnil); |
940 |
V147= list(2,VV[75],(V143)); |
V152= list(2,VV[75],(V148)); |
941 |
V148= list(2,VV[48],(V141)); |
V153= list(2,VV[48],(V146)); |
942 |
if(((V140))==Cnil){ |
if(((V145))==Cnil){ |
943 |
goto T411;} |
goto T411;} |
944 |
V149= list(2,VV[59],list(2,VV[48],(V140))); |
V154= list(2,VV[59],list(2,VV[48],(V145))); |
945 |
goto T409; |
goto T409; |
946 |
goto T411; |
goto T411; |
947 |
T411:; |
T411:; |
948 |
V149= Cnil; |
V154= Cnil; |
949 |
goto T409; |
goto T409; |
950 |
T409:; |
T409:; |
951 |
V150= list(4,VV[77],(V143),VV[61],list(2,VV[48],(V139))); |
V155= list(4,VV[77],(V148),VV[61],list(2,VV[48],(V144))); |
952 |
V144= list(2,(V137),list(3,VV[73],/* INLINE-ARGS */V146,list(4,VV[74],/* INLINE-ARGS */V147,(V143),listA(5,(V142),VV[76],VV[58],/* INLINE-ARGS */V148,append(V149,/* INLINE-ARGS */V150))))); |
V149= list(2,(V142),list(3,VV[73],/* INLINE-ARGS */V151,list(4,VV[74],/* INLINE-ARGS */V152,(V148),listA(5,(V147),VV[76],VV[58],/* INLINE-ARGS */V153,append(V154,/* INLINE-ARGS */V155))))); |
953 |
(VV[5]->s.s_dbind)= make_cons((V144),(VV[5]->s.s_dbind)); |
(VV[5]->s.s_dbind)= make_cons((V149),(VV[5]->s.s_dbind)); |
954 |
{object V151 = (VV[5]->s.s_dbind); |
{object V156 = (VV[5]->s.s_dbind); |
955 |
VMR9(V151)}}} |
VMR9(V156)}}} |
956 |
base[0]=base[0]; |
base[0]=base[0]; |
957 |
return Cnil; |
return Cnil; |
958 |
} |
} |
959 |
/* local entry for function PUSH-LET-BINDING */ |
/* local entry for function PUSH-LET-BINDING */ |
960 |
|
|
961 |
static object LI10(object V154,object V153,object V152,object first,...) |
static object LI10(object V159,object V158,object V157,object first,...) |
962 |
{ |
{ |
963 |
va_list ap; |
va_list ap; |
964 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
965 |
{object V155; |
{object V160; |
966 |
object V156; |
object V161; |
967 |
object V157; |
object V162; |
968 |
object V158; |
object V163; |
969 |
object V159; |
object V164; |
970 |
va_start(ap,first); |
va_start(ap,first); |
971 |
V155= V154; |
V160= V159; |
972 |
V156= V153; |
V161= V158; |
973 |
V157= V152; |
V162= V157; |
974 |
narg = narg - 3; |
narg = narg - 3; |
975 |
if (narg <= 0) goto T414; |
if (narg <= 0) goto T414; |
976 |
else { |
else { |
977 |
V158= first;} |
V163= first;} |
978 |
if (--narg <= 0) goto T415; |
if (--narg <= 0) goto T415; |
979 |
else { |
else { |
980 |
V159= va_arg(ap,object);} |
V164= va_arg(ap,object);} |
981 |
--narg; goto T416; |
--narg; goto T416; |
982 |
goto T414; |
goto T414; |
983 |
T414:; |
T414:; |
984 |
V158= Cnil; |
V163= Cnil; |
985 |
goto T415; |
goto T415; |
986 |
T415:; |
T415:; |
987 |
V159= (VV[1]->s.s_dbind); |
V164= (VV[1]->s.s_dbind); |
988 |
goto T416; |
goto T416; |
989 |
T416:; |
T416:; |
990 |
{object V160; |
{object V165; |
991 |
if(((V158))==Cnil){ |
if(((V163))==Cnil){ |
992 |
goto T421;} |
goto T421;} |
993 |
V160= list(2,(V155),list(4,VV[74],(V158),(V156),(V159))); |
V165= list(2,(V160),list(4,VV[74],(V163),(V161),(V164))); |
994 |
goto T419; |
goto T419; |
995 |
goto T421; |
goto T421; |
996 |
T421:; |
T421:; |
997 |
V160= list(2,(V155),(V156)); |
V165= list(2,(V160),(V161)); |
998 |
goto T419; |
goto T419; |
999 |
T419:; |
T419:; |
1000 |
if(((V157))==Cnil){ |
if(((V162))==Cnil){ |
1001 |
goto T424;} |
goto T424;} |
1002 |
(VV[5]->s.s_dbind)= make_cons(V160,(VV[5]->s.s_dbind)); |
(VV[5]->s.s_dbind)= make_cons(V165,(VV[5]->s.s_dbind)); |
1003 |
{object V162 = (VV[5]->s.s_dbind); |
{object V167 = (VV[5]->s.s_dbind); |
1004 |
VMR10(V162)} |
VMR10(V167)} |
1005 |
goto T424; |
goto T424; |
1006 |
T424:; |
T424:; |
1007 |
(VV[4]->s.s_dbind)= make_cons(V160,(VV[4]->s.s_dbind)); |
(VV[4]->s.s_dbind)= make_cons(V165,(VV[4]->s.s_dbind)); |
1008 |
{object V164 = (VV[4]->s.s_dbind); |
{object V169 = (VV[4]->s.s_dbind); |
1009 |
VMR10(V164)}} |
VMR10(V169)}} |
1010 |
va_end(ap); |
va_end(ap); |
1011 |
return Cnil;} |
return Cnil;} |
1012 |
} |
} |
1016 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1017 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
1018 |
vs_check; |
vs_check; |
1019 |
{register object V165; |
{register object V170; |
|
object V166; |
|
|
register object V167; |
|
|
object V168; |
|
|
object V169; |
|
|
object V170; |
|
1020 |
object V171; |
object V171; |
1021 |
object V172; |
register object V172; |
1022 |
V165=(base[0]); |
object V173; |
1023 |
V166=(base[1]); |
object V174; |
1024 |
V167=(base[2]); |
object V175; |
1025 |
V168=(base[3]); |
object V176; |
1026 |
V169=(base[4]); |
object V177; |
1027 |
V170=(base[5]); |
V170=(base[0]); |
1028 |
V171=(base[6]); |
V171=(base[1]); |
1029 |
V172=(base[7]); |
V172=(base[2]); |
1030 |
|
V173=(base[3]); |
1031 |
|
V174=(base[4]); |
1032 |
|
V175=(base[5]); |
1033 |
|
V176=(base[6]); |
1034 |
|
V177=(base[7]); |
1035 |
vs_top=sup; |
vs_top=sup; |
1036 |
goto TTL; |
goto TTL; |
1037 |
TTL:; |
TTL:; |
1038 |
if(((V167))!=Cnil){ |
if(((V172))!=Cnil){ |
1039 |
goto T428;} |
goto T428;} |
1040 |
base[8]= VV[78]; |
base[8]= VV[78]; |
1041 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1042 |
Lgensym(); |
Lgensym(); |
1043 |
vs_top=sup; |
vs_top=sup; |
1044 |
V167= vs_base[0]; |
V172= vs_base[0]; |
1045 |
goto T428; |
goto T428; |
1046 |
T428:; |
T428:; |
1047 |
(void)((VFUN_NARGS=3,(*(LnkLI90))((V167),(V168),Ct))); |
(void)((VFUN_NARGS=3,(*(LnkLI90))((V172),(V173),Ct))); |
1048 |
if(!(type_of((V165))==t_cons)){ |
if(!(type_of((V170))==t_cons)){ |
1049 |
goto T435;} |
goto T435;} |
1050 |
{object V173; |
{object V178; |
1051 |
base[8]= VV[79]; |
base[8]= VV[79]; |
1052 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1053 |
Lgensym(); |
Lgensym(); |
1054 |
vs_top=sup; |
vs_top=sup; |
1055 |
V173= vs_base[0]; |
V178= vs_base[0]; |
1056 |
V174= list(4,VV[74],(V167),(V169),(V166)); |
V179= list(4,VV[74],(V172),(V174),(V171)); |
1057 |
(void)((*(LnkLI92))((V173),/* INLINE-ARGS */V174,(V165),(V170),(V171),(V172))); |
(void)((*(LnkLI92))((V178),/* INLINE-ARGS */V179,(V170),(V175),(V176),(V177))); |
1058 |
base[8]= (V165); |
base[8]= (V170); |
1059 |
base[9]= (V173); |
base[9]= (V178); |
1060 |
base[10]= (V170); |
base[10]= (V175); |
1061 |
base[11]= (V171); |
base[11]= (V176); |
1062 |
base[12]= (V172); |
base[12]= (V177); |
1063 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
1064 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
1065 |
return;} |
return;} |
1066 |
goto T435; |
goto T435; |
1067 |
T435:; |
T435:; |
1068 |
if(!(type_of((V165))==t_symbol)){ |
if(!(type_of((V170))==t_symbol)){ |
1069 |
goto T446;} |
goto T446;} |
1070 |
base[8]= (VFUN_NARGS=5,(*(LnkLI90))((V165),(V169),Cnil,(V167),(V166))); |
base[8]= (VFUN_NARGS=5,(*(LnkLI90))((V170),(V174),Cnil,(V172),(V171))); |
1071 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1072 |
return; |
return; |
1073 |
goto T446; |
goto T446; |
1074 |
T446:; |
T446:; |
1075 |
base[8]= VV[80]; |
base[8]= VV[80]; |
1076 |
base[9]= (V165); |
base[9]= (V170); |
1077 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
1078 |
Lerror(); |
Lerror(); |
1079 |
return; |
return; |
1085 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1086 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
1087 |
vs_check; |
vs_check; |
1088 |
{object V175; |
{object V180; |
1089 |
object V176; |
object V181; |
1090 |
register object V177; |
register object V182; |
1091 |
V175=(base[0]); |
V180=(base[0]); |
1092 |
V176=(base[1]); |
V181=(base[1]); |
1093 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1094 |
if(vs_base>=vs_top){vs_top=sup;goto T450;} |
if(vs_base>=vs_top){vs_top=sup;goto T450;} |
1095 |
V177=(base[2]); |
V182=(base[2]); |
1096 |
vs_top=sup; |
vs_top=sup; |
1097 |
goto T451; |
goto T451; |
1098 |
goto T450; |
goto T450; |
1099 |
T450:; |
T450:; |
1100 |
V177= Ct; |
V182= Ct; |
1101 |
goto T451; |
goto T451; |
1102 |
T451:; |
T451:; |
1103 |
{register object V178; |
{register object V183; |
1104 |
register object V179; |
register object V184; |
1105 |
V178= Cnil; |
V183= Cnil; |
1106 |
V179= Cnil; |
V184= Cnil; |
1107 |
{register object V180; |
{register object V185; |
1108 |
V180= (V175); |
V185= (V180); |
1109 |
goto T454; |
goto T454; |
1110 |
T454:; |
T454:; |
1111 |
if(!(((V180))==Cnil)){ |
if(!(((V185))==Cnil)){ |
1112 |
goto T455;} |
goto T455;} |
1113 |
base[3]= (V180); |
base[3]= (V185); |
1114 |
base[4]= nreverse((V178)); |
base[4]= nreverse((V183)); |
1115 |
base[5]= (V179); |
base[5]= (V184); |
1116 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1117 |
return; |
return; |
1118 |
goto T455; |
goto T455; |
1119 |
T455:; |
T455:; |
1120 |
{register object V181; |
{register object V186; |
1121 |
V181= CMPcar((V180)); |
V186= CMPcar((V185)); |
1122 |
if(!(type_of((V181))==t_string)){ |
if(!(type_of((V186))==t_string)){ |
1123 |
goto T465;} |
goto T465;} |
1124 |
if((CMPcdr((V180)))==Cnil){ |
if((CMPcdr((V185)))==Cnil){ |
1125 |
goto T465;} |
goto T465;} |
1126 |
if(((V177))==Cnil){ |
if(((V182))==Cnil){ |
1127 |
goto T470;} |
goto T470;} |
1128 |
V179= (V181); |
V184= (V186); |
1129 |
V177= Cnil; |
V182= Cnil; |
1130 |
goto T462; |
goto T462; |
1131 |
goto T470; |
goto T470; |
1132 |
T470:; |
T470:; |
1133 |
base[3]= (V180); |
base[3]= (V185); |
1134 |
base[4]= nreverse((V178)); |
base[4]= nreverse((V183)); |
1135 |
base[5]= (V179); |
base[5]= (V184); |
1136 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1137 |
return; |
return; |
1138 |
goto T465; |
goto T465; |
1139 |
T465:; |
T465:; |
1140 |
if(!(type_of((V181))==t_cons)){ |
if(!(type_of((V186))==t_cons)){ |
1141 |
goto T478;} |
goto T478;} |
1142 |
if(type_of(CMPcar((V181)))==t_symbol){ |
if(type_of(CMPcar((V186)))==t_symbol){ |
1143 |
goto T479;} |
goto T479;} |
1144 |
goto T478; |
goto T478; |
1145 |
T478:; |
T478:; |
1146 |
base[3]= (V180); |
base[3]= (V185); |
1147 |
base[4]= nreverse((V178)); |
base[4]= nreverse((V183)); |
1148 |
base[5]= (V179); |
base[5]= (V184); |
1149 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1150 |
return; |
return; |
1151 |
goto T479; |
goto T479; |
1152 |
T479:; |
T479:; |
1153 |
if(!((CMPcar((V181)))==(VV[8]))){ |
if(!((CMPcar((V186)))==(VV[8]))){ |
1154 |
goto T487;} |
goto T487;} |
1155 |
{register object V182; |
{register object V187; |
1156 |
V182= (V181); |
V187= (V186); |
1157 |
V178= make_cons((V182),(V178)); |
V183= make_cons((V187),(V183)); |
1158 |
goto T462;} |
goto T462;} |
1159 |
goto T487; |
goto T487; |
1160 |
T487:; |
T487:; |
1161 |
base[3]= (V180); |
base[3]= (V185); |
1162 |
base[4]= nreverse((V178)); |
base[4]= nreverse((V183)); |
1163 |
base[5]= (V179); |
base[5]= (V184); |
1164 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1165 |
return;} |
return;} |
1166 |
goto T462; |
goto T462; |
1167 |
T462:; |
T462:; |
1168 |
V180= CMPcdr((V180)); |
V185= CMPcdr((V185)); |
1169 |
goto T454;}} |
goto T454;}} |
1170 |
} |
} |
1171 |
} |
} |
1176 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
1177 |
vs_check; |
vs_check; |
1178 |
vs_top=sup; |
vs_top=sup; |
1179 |
{object V183=base[0]->c.c_cdr; |
{object V188=base[0]->c.c_cdr; |
1180 |
base[2]= (V183->c.c_car); |
base[2]= (V188->c.c_car); |
1181 |
V183=V183->c.c_cdr; |
V188=V188->c.c_cdr; |
1182 |
base[3]= (V183->c.c_car); |
base[3]= (V188->c.c_car); |
1183 |
V183=V183->c.c_cdr; |
V188=V188->c.c_cdr; |
1184 |
base[4]= V183;} |
base[4]= V188;} |
1185 |
{object V184; |
{object V189; |
1186 |
base[6]= VV[81]; |
base[6]= VV[81]; |
1187 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1188 |
Lgensym(); |
Lgensym(); |
1189 |
vs_top=sup; |
vs_top=sup; |
1190 |
V184= vs_base[0]; |
V189= vs_base[0]; |
1191 |
{object V185; |
{object V190; |
1192 |
object V186; |
object V191; |
1193 |
base[6]= base[2]; |
base[6]= base[2]; |
1194 |
base[7]= (V184); |
base[7]= (V189); |
1195 |
base[8]= base[4]; |
base[8]= base[4]; |
1196 |
base[9]= Cnil; |
base[9]= Cnil; |
1197 |
base[10]= VV[82]; |
base[10]= VV[82]; |
1202 |
vs_top=(vs_base=base+6)+9; |
vs_top=(vs_base=base+6)+9; |
1203 |
(void) (*Lnk95)(); |
(void) (*Lnk95)(); |
1204 |
if(vs_base>=vs_top){vs_top=sup;goto T509;} |
if(vs_base>=vs_top){vs_top=sup;goto T509;} |
1205 |
V185= vs_base[0]; |
V190= vs_base[0]; |
1206 |
vs_base++; |
vs_base++; |
1207 |
if(vs_base>=vs_top){vs_top=sup;goto T510;} |
if(vs_base>=vs_top){vs_top=sup;goto T510;} |
1208 |
V186= vs_base[0]; |
V191= vs_base[0]; |
1209 |
vs_top=sup; |
vs_top=sup; |
1210 |
goto T511; |
goto T511; |
1211 |
goto T509; |
goto T509; |
1212 |
T509:; |
T509:; |
1213 |
V185= Cnil; |
V190= Cnil; |
1214 |
goto T510; |
goto T510; |
1215 |
T510:; |
T510:; |
1216 |
V186= Cnil; |
V191= Cnil; |
1217 |
goto T511; |
goto T511; |
1218 |
T511:; |
T511:; |
1219 |
V187= list(2,(V184),base[3]); |
V192= list(2,(V189),base[3]); |
1220 |
V188= make_cons(/* INLINE-ARGS */V187,Cnil); |
V193= make_cons(/* INLINE-ARGS */V192,Cnil); |
1221 |
V189= make_cons((V185),Cnil); |
V194= make_cons((V190),Cnil); |
1222 |
base[6]= listA(3,VV[73],/* INLINE-ARGS */V188,append((V186),/* INLINE-ARGS */V189)); |
base[6]= listA(3,VV[73],/* INLINE-ARGS */V193,append((V191),/* INLINE-ARGS */V194)); |
1223 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1224 |
return;}} |
return;}} |
1225 |
} |
} |