807 |
goto T159; |
goto T159; |
808 |
T159:; |
T159:; |
809 |
{object V177; |
{object V177; |
810 |
V178= (VFUN_NARGS=3,(*(LnkLI22))((V175),VV[43],(V176))); |
V178 = (V175); |
811 |
V177= (*(LnkLI2))((V175),Cnil,/* INLINE-ARGS */V178); |
V179= (VFUN_NARGS=3,(*(LnkLI22))((V175),VV[43],(V176))); |
812 |
|
V177= (*(LnkLI2))(V178,Cnil,/* INLINE-ARGS */V179); |
813 |
base[3]= (V174); |
base[3]= (V174); |
814 |
base[4]= VV[44]; |
base[4]= VV[44]; |
815 |
base[5]= (V177); |
base[5]= (V177); |
824 |
{register object *base=vs_base; |
{register object *base=vs_base; |
825 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
826 |
vs_check; |
vs_check; |
827 |
{object V179; |
{object V180; |
|
object V180; |
|
828 |
object V181; |
object V181; |
829 |
|
object V182; |
830 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
831 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
832 |
V179=(base[0]); |
V180=(base[0]); |
833 |
V180=(base[1]); |
V181=(base[1]); |
834 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
835 |
if(vs_base>=vs_top){vs_top=sup;goto T166;} |
if(vs_base>=vs_top){vs_top=sup;goto T166;} |
836 |
V181=(base[2]); |
V182=(base[2]); |
837 |
vs_base++; |
vs_base++; |
838 |
if(vs_base>=vs_top){vs_top=sup;goto T167;} |
if(vs_base>=vs_top){vs_top=sup;goto T167;} |
839 |
base[3]=MMcons(base[3],Cnil); |
base[3]=MMcons(base[3],Cnil); |
841 |
goto T168; |
goto T168; |
842 |
goto T166; |
goto T166; |
843 |
T166:; |
T166:; |
844 |
V181= Cnil; |
V182= Cnil; |
845 |
goto T167; |
goto T167; |
846 |
T167:; |
T167:; |
847 |
base[3]= VV[82]; |
base[3]= VV[82]; |
848 |
base[3]=MMcons(base[3],Cnil); |
base[3]=MMcons(base[3],Cnil); |
849 |
goto T168; |
goto T168; |
850 |
T168:; |
T168:; |
851 |
V182= (*(LnkLI83))((V181)); |
V183 = (V180); |
852 |
if(!(((V179))==(/* INLINE-ARGS */V182))){ |
V184= (*(LnkLI83))((V182)); |
853 |
|
if(!((V183)==(/* INLINE-ARGS */V184))){ |
854 |
goto T172;} |
goto T172;} |
855 |
base[4]= (*(LnkLI84))((V181)); |
base[4]= (*(LnkLI84))((V182)); |
856 |
base[4]=MMcons(base[4],base[3]); |
base[4]=MMcons(base[4],base[3]); |
857 |
{frame_ptr fr; |
{frame_ptr fr; |
858 |
fr=frs_sch_catch((V179)); |
fr=frs_sch_catch((V180)); |
859 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V179)); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V180)); |
860 |
base[5]= (V180); |
base[5]= (V181); |
861 |
base[6]= (V181); |
base[6]= (V182); |
862 |
base[7]= |
base[7]= |
863 |
make_cclosure_new(LC81,Cnil,base[4],Cdata); |
make_cclosure_new(LC81,Cnil,base[4],Cdata); |
864 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
865 |
(void) (*Lnk79)(); |
(void) (*Lnk79)(); |
866 |
unwind(fr,(V179));} |
unwind(fr,(V180));} |
867 |
goto T172; |
goto T172; |
868 |
T172:; |
T172:; |
869 |
base[4]= (V180); |
base[4]= (V181); |
870 |
base[5]= (V181); |
base[5]= (V182); |
871 |
base[6]= (base[3]->c.c_car); |
base[6]= (base[3]->c.c_car); |
872 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
873 |
(void) (*Lnk79)(); |
(void) (*Lnk79)(); |
880 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
881 |
register object *VOL sup=base+VM29; VC29 |
register object *VOL sup=base+VM29; VC29 |
882 |
vs_check; |
vs_check; |
883 |
{VOL object V183; |
{VOL object V185; |
884 |
VOL object V184; |
VOL object V186; |
885 |
VOL object V185; |
VOL object V187; |
886 |
check_arg(3); |
check_arg(3); |
887 |
V183=(base[0]); |
V185=(base[0]); |
888 |
V184=(base[1]); |
V186=(base[1]); |
889 |
V185=(base[2]); |
V187=(base[2]); |
890 |
vs_top=sup; |
vs_top=sup; |
891 |
goto TTL; |
goto TTL; |
892 |
TTL:; |
TTL:; |
893 |
frs_push(FRS_CATCH,(V183)); |
frs_push(FRS_CATCH,(V185)); |
894 |
if(nlj_active) |
if(nlj_active) |
895 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
896 |
return;} |
return;} |
897 |
else{ |
else{ |
898 |
{VOL object V186; |
{VOL object V188; |
899 |
VOL object V187; |
VOL object V189; |
900 |
base[3]= (*(LnkLI84))((V185)); |
base[3]= (*(LnkLI84))((V187)); |
901 |
base[4]= (V183); |
base[4]= (V185); |
902 |
base[5]= (V184); |
base[5]= (V186); |
903 |
base[6]= (V185); |
base[6]= (V187); |
904 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
905 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
906 |
if(vs_base>=vs_top){vs_top=sup;goto T188;} |
if(vs_base>=vs_top){vs_top=sup;goto T188;} |
907 |
V186= vs_base[0]; |
V188= vs_base[0]; |
908 |
vs_base++; |
vs_base++; |
909 |
if(vs_base>=vs_top){vs_top=sup;goto T189;} |
if(vs_base>=vs_top){vs_top=sup;goto T189;} |
910 |
V187= vs_base[0]; |
V189= vs_base[0]; |
911 |
vs_top=sup; |
vs_top=sup; |
912 |
goto T190; |
goto T190; |
913 |
goto T188; |
goto T188; |
914 |
T188:; |
T188:; |
915 |
V186= Cnil; |
V188= Cnil; |
916 |
goto T189; |
goto T189; |
917 |
T189:; |
T189:; |
918 |
V187= Cnil; |
V189= Cnil; |
919 |
goto T190; |
goto T190; |
920 |
T190:; |
T190:; |
921 |
frs_push(FRS_CATCH,(V186)); |
frs_push(FRS_CATCH,(V188)); |
922 |
if(nlj_active) |
if(nlj_active) |
923 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
924 |
frs_pop(); |
frs_pop(); |
925 |
return;} |
return;} |
926 |
else{ |
else{ |
927 |
if(((V187))==Cnil){ |
if(((V189))==Cnil){ |
928 |
goto T193;} |
goto T193;} |
929 |
frs_pop(); |
frs_pop(); |
930 |
frs_pop(); |
frs_pop(); |
931 |
base[3]= (V186); |
base[3]= (V188); |
932 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
933 |
return; |
return; |
934 |
goto T193; |
goto T193; |
935 |
T193:; |
T193:; |
936 |
if(((V183))==((V186))){ |
if(((V185))==((V188))){ |
937 |
goto T196;} |
goto T196;} |
938 |
base[3]= (V186); |
base[3]= (V188); |
939 |
base[4]= (V184); |
base[4]= (V186); |
940 |
base[5]= (V185); |
base[5]= (V187); |
941 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
942 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
943 |
frs_pop(); |
frs_pop(); |
945 |
return; |
return; |
946 |
goto T196; |
goto T196; |
947 |
T196:; |
T196:; |
948 |
if(type_of((V186))==t_cons){ |
if(type_of((V188))==t_cons){ |
949 |
goto T202;} |
goto T202;} |
|
{object V188; |
|
|
V189= (*(LnkLI85))((V186),(V185)); |
|
|
V188= CMPcar(/* INLINE-ARGS */V189); |
|
|
if(((V188))==Cnil){ |
|
|
goto T206;} |
|
950 |
{object V190; |
{object V190; |
951 |
base[3]= CMPcddr((V188)); |
V191= (*(LnkLI85))((V188),(V187)); |
952 |
base[4]= (V184); |
V190= CMPcar(/* INLINE-ARGS */V191); |
953 |
base[5]= (V185); |
if(((V190))==Cnil){ |
954 |
|
goto T206;} |
955 |
|
{object V192; |
956 |
|
base[3]= CMPcddr((V190)); |
957 |
|
base[4]= (V186); |
958 |
|
base[5]= (V187); |
959 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
960 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
961 |
vs_top=sup; |
vs_top=sup; |
962 |
V190= vs_base[0]; |
V192= vs_base[0]; |
963 |
if(!(((V190))==(CMPcddr((V188))))){ |
if(!(((V192))==(CMPcddr((V190))))){ |
964 |
goto T213;} |
goto T213;} |
965 |
if(((VV[42]->s.s_dbind))==Cnil){ |
if(((VV[42]->s.s_dbind))==Cnil){ |
966 |
goto T216;} |
goto T216;} |
967 |
frs_pop(); |
frs_pop(); |
968 |
frs_pop(); |
frs_pop(); |
969 |
base[3]= (V190); |
base[3]= (V192); |
970 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
971 |
return; |
return; |
972 |
goto T216; |
goto T216; |
973 |
T216:; |
T216:; |
974 |
frs_pop(); |
frs_pop(); |
975 |
frs_pop(); |
frs_pop(); |
976 |
base[3]= (V186); |
base[3]= (V188); |
977 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
978 |
return; |
return; |
979 |
goto T213; |
goto T213; |
980 |
T213:; |
T213:; |
981 |
frs_pop(); |
frs_pop(); |
982 |
frs_pop(); |
frs_pop(); |
983 |
base[3]= (V190); |
base[3]= (V192); |
984 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
985 |
return;} |
return;} |
986 |
goto T206; |
goto T206; |
987 |
T206:; |
T206:; |
988 |
frs_pop(); |
frs_pop(); |
989 |
frs_pop(); |
frs_pop(); |
990 |
base[3]= (V186); |
base[3]= (V188); |
991 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
992 |
return;} |
return;} |
993 |
goto T202; |
goto T202; |
994 |
T202:; |
T202:; |
995 |
{register object V191; |
{register object V193; |
996 |
register object V192; |
register object V194; |
997 |
V191= CMPcar((V186)); |
V193= CMPcar((V188)); |
998 |
V192= (*(LnkLI86))((V191)); |
V194= (*(LnkLI86))((V193)); |
999 |
if(((V192))==Cnil){ |
if(((V194))==Cnil){ |
1000 |
goto T221;} |
goto T221;} |
1001 |
if(!(type_of((V192))==t_symbol)){ |
if(!(type_of((V194))==t_symbol)){ |
1002 |
goto T224;} |
goto T224;} |
1003 |
base[5]= (V186); |
base[5]= (V188); |
1004 |
base[6]= (V184); |
base[6]= (V186); |
1005 |
base[7]= (V185); |
base[7]= (V187); |
1006 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1007 |
super_funcall_no_event((V192)); |
super_funcall_no_event((V194)); |
1008 |
frs_pop(); |
frs_pop(); |
1009 |
frs_pop(); |
frs_pop(); |
1010 |
return; |
return; |
1011 |
goto T224; |
goto T224; |
1012 |
T224:; |
T224:; |
1013 |
V193= (*(LnkLI87))((V186),(V192),(V184),(V185)); |
V195= (*(LnkLI87))((V188),(V194),(V186),(V187)); |
1014 |
frs_pop(); |
frs_pop(); |
1015 |
frs_pop(); |
frs_pop(); |
1016 |
base[5]= V193; |
base[5]= V195; |
1017 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1018 |
return; |
return; |
1019 |
goto T221; |
goto T221; |
1020 |
T221:; |
T221:; |
1021 |
{register object V194; |
{register object V196; |
1022 |
object V195; |
object V197; |
1023 |
{object V196; |
{object V198; |
1024 |
V197= (VFUN_NARGS=3,(*(LnkLI22))((V185),VV[45],(V186))); |
V199 = (V187); |
1025 |
V196= (*(LnkLI2))((V185),Cnil,/* INLINE-ARGS */V197); |
V200= (VFUN_NARGS=3,(*(LnkLI22))((V187),VV[45],(V188))); |
1026 |
base[5]= (V186); |
V198= (*(LnkLI2))(V199,Cnil,/* INLINE-ARGS */V200); |
1027 |
base[6]= (V196); |
base[5]= (V188); |
1028 |
|
base[6]= (V198); |
1029 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1030 |
Lmacroexpand_1();} |
Lmacroexpand_1();} |
1031 |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
1032 |
V194= vs_base[0]; |
V196= vs_base[0]; |
1033 |
vs_base++; |
vs_base++; |
1034 |
if(vs_base>=vs_top){vs_top=sup;goto T234;} |
if(vs_base>=vs_top){vs_top=sup;goto T234;} |
1035 |
V195= vs_base[0]; |
V197= vs_base[0]; |
1036 |
vs_top=sup; |
vs_top=sup; |
1037 |
goto T235; |
goto T235; |
1038 |
goto T233; |
goto T233; |
1039 |
T233:; |
T233:; |
1040 |
V194= Cnil; |
V196= Cnil; |
1041 |
goto T234; |
goto T234; |
1042 |
T234:; |
T234:; |
1043 |
V195= Cnil; |
V197= Cnil; |
1044 |
goto T235; |
goto T235; |
1045 |
T235:; |
T235:; |
1046 |
if(((V195))==Cnil){ |
if(((V197))==Cnil){ |
1047 |
goto T237;} |
goto T237;} |
1048 |
{object V198; |
{object V201; |
1049 |
base[5]= (V194); |
base[5]= (V196); |
1050 |
base[6]= (V184); |
base[6]= (V186); |
1051 |
base[7]= (V185); |
base[7]= (V187); |
1052 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1053 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
1054 |
vs_top=sup; |
vs_top=sup; |
1055 |
V198= vs_base[0]; |
V201= vs_base[0]; |
1056 |
if(!(((V198))==((V194)))){ |
if(!(((V201))==((V196)))){ |
1057 |
goto T244;} |
goto T244;} |
1058 |
if(((VV[42]->s.s_dbind))==Cnil){ |
if(((VV[42]->s.s_dbind))==Cnil){ |
1059 |
goto T247;} |
goto T247;} |
1060 |
frs_pop(); |
frs_pop(); |
1061 |
frs_pop(); |
frs_pop(); |
1062 |
base[5]= (V194); |
base[5]= (V196); |
1063 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1064 |
return; |
return; |
1065 |
goto T247; |
goto T247; |
1066 |
T247:; |
T247:; |
1067 |
frs_pop(); |
frs_pop(); |
1068 |
frs_pop(); |
frs_pop(); |
1069 |
base[5]= (V186); |
base[5]= (V188); |
1070 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1071 |
return; |
return; |
1072 |
goto T244; |
goto T244; |
1073 |
T244:; |
T244:; |
1074 |
frs_pop(); |
frs_pop(); |
1075 |
frs_pop(); |
frs_pop(); |
1076 |
base[5]= (V198); |
base[5]= (V201); |
1077 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1078 |
return;} |
return;} |
1079 |
goto T237; |
goto T237; |
1080 |
T237:; |
T237:; |
1081 |
if(!(type_of((V191))==t_symbol)){ |
if(!(type_of((V193))==t_symbol)){ |
1082 |
goto T250;} |
goto T250;} |
1083 |
base[5]= (V191); |
base[5]= (V193); |
1084 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1085 |
Lfboundp(); |
Lfboundp(); |
1086 |
vs_top=sup; |
vs_top=sup; |
1087 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1088 |
goto T250;} |
goto T250;} |
1089 |
base[5]= (V191); |
base[5]= (V193); |
1090 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1091 |
Lspecial_form_p(); |
Lspecial_form_p(); |
1092 |
vs_top=sup; |
vs_top=sup; |
1093 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1094 |
goto T250;} |
goto T250;} |
1095 |
base[5]= VV[46]; |
base[5]= VV[46]; |
1096 |
base[6]= (V191); |
base[6]= (V193); |
1097 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1098 |
Lerror(); |
Lerror(); |
1099 |
frs_pop(); |
frs_pop(); |
1101 |
return; |
return; |
1102 |
goto T250; |
goto T250; |
1103 |
T250:; |
T250:; |
1104 |
V199= (*(LnkLI87))((V194),VV[47],(V184),(V185)); |
V202= (*(LnkLI87))((V196),VV[47],(V186),(V187)); |
1105 |
frs_pop(); |
frs_pop(); |
1106 |
frs_pop(); |
frs_pop(); |
1107 |
base[5]= V199; |
base[5]= V202; |
1108 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1109 |
return;}}}}} |
return;}}}}} |
1110 |
} |
} |
1111 |
} |
} |
1112 |
/* local entry for function WALK-TEMPLATE */ |
/* local entry for function WALK-TEMPLATE */ |
1113 |
|
|
1114 |
static object LI30(V204,V205,V206,V207) |
static object LI30(V207,V208,V209,V210) |
1115 |
|
|
1116 |
register object V204;register object V205;register object V206;register object V207; |
register object V207;register object V208;register object V209;register object V210; |
1117 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1118 |
goto TTL; |
goto TTL; |
1119 |
TTL:; |
TTL:; |
1120 |
if(!(type_of((V205))!=t_cons)){ |
if(!(type_of((V208))!=t_cons)){ |
1121 |
goto T261;} |
goto T261;} |
1122 |
{object V208= (V205); |
{object V211= (V208); |
1123 |
if((V208!= VV[63]) |
if((V211!= VV[63]) |
1124 |
&& (V208!= VV[3]) |
&& (V211!= VV[3]) |
1125 |
&& (V208!= VV[88]) |
&& (V211!= VV[88]) |
1126 |
&& (V208!= VV[89]) |
&& (V211!= VV[89]) |
1127 |
&& (V208!= VV[90]))goto T263; |
&& (V211!= VV[90]))goto T263; |
1128 |
base[0]= (V204); |
base[0]= (V207); |
1129 |
base[1]= VV[44]; |
base[1]= VV[44]; |
1130 |
base[2]= (V207); |
base[2]= (V210); |
1131 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1132 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
1133 |
vs_top=sup; |
vs_top=sup; |
1134 |
{object V209 = vs_base[0]; |
{object V212 = vs_base[0]; |
1135 |
VMR30(V209)} |
VMR30(V212)} |
1136 |
goto T263; |
goto T263; |
1137 |
T263:; |
T263:; |
1138 |
if((V208!= VV[37]) |
if((V211!= VV[37]) |
1139 |
&& (V208!= Cnil))goto T267; |
&& (V211!= Cnil))goto T267; |
1140 |
{object V210 = (V204); |
{object V213 = (V207); |
1141 |
VMR30(V210)} |
VMR30(V213)} |
1142 |
goto T267; |
goto T267; |
1143 |
T267:; |
T267:; |
1144 |
if((V208!= VV[91]))goto T268; |
if((V211!= VV[91]))goto T268; |
1145 |
base[0]= (V204); |
base[0]= (V207); |
1146 |
base[1]= VV[48]; |
base[1]= VV[48]; |
1147 |
base[2]= (V207); |
base[2]= (V210); |
1148 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1149 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
1150 |
vs_top=sup; |
vs_top=sup; |
1151 |
{object V211 = vs_base[0]; |
{object V214 = vs_base[0]; |
1152 |
VMR30(V211)} |
VMR30(V214)} |
1153 |
goto T268; |
goto T268; |
1154 |
T268:; |
T268:; |
1155 |
if((V208!= VV[39]) |
if((V211!= VV[39]) |
1156 |
&& (V208!= VV[92]))goto T272; |
&& (V211!= VV[92]))goto T272; |
1157 |
if(type_of((V204))==t_symbol){ |
if(type_of((V207))==t_symbol){ |
1158 |
goto T273;} |
goto T273;} |
1159 |
if(!(type_of((V204))==t_cons||((V204))==Cnil)){ |
if(!(type_of((V207))==t_cons||((V207))==Cnil)){ |
1160 |
goto T274;} |
goto T274;} |
1161 |
if(!(((long)length((V204)))==(2))){ |
if(!(((long)length((V207)))==(2))){ |
1162 |
goto T274;} |
goto T274;} |
1163 |
if(!((CMPcar((V204)))==(VV[35]))){ |
if(!((CMPcar((V207)))==(VV[35]))){ |
1164 |
goto T274;} |
goto T274;} |
1165 |
goto T273; |
goto T273; |
1166 |
T273:; |
T273:; |
1167 |
{object V212 = (V204); |
{object V215 = (V207); |
1168 |
VMR30(V212)} |
VMR30(V215)} |
1169 |
goto T274; |
goto T274; |
1170 |
T274:; |
T274:; |
1171 |
base[0]= (V204); |
base[0]= (V207); |
1172 |
base[1]= (V206); |
base[1]= (V209); |
1173 |
base[2]= (V207); |
base[2]= (V210); |
1174 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1175 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
1176 |
vs_top=sup; |
vs_top=sup; |
1177 |
{object V213 = vs_base[0]; |
{object V216 = vs_base[0]; |
1178 |
VMR30(V213)} |
VMR30(V216)} |
1179 |
goto T272; |
goto T272; |
1180 |
T272:; |
T272:; |
1181 |
FEerror("The ECASE key value ~s is illegal.",1,V208); |
FEerror("The ECASE key value ~s is illegal.",1,V211); |
1182 |
{object V214 = Cnil; |
{object V217 = Cnil; |
1183 |
VMR30(V214)}} |
VMR30(V217)}} |
1184 |
goto T261; |
goto T261; |
1185 |
T261:; |
T261:; |
1186 |
{object V215= CMPcar((V205)); |
{object V218= CMPcar((V208)); |
1187 |
if((V215!= VV[93]))goto T285; |
if((V218!= VV[93]))goto T285; |
1188 |
V216= CMPcdr((V205)); |
V219 = (V207); |
1189 |
if((CMPcddr((V205)))!=Cnil){ |
V220= CMPcdr((V208)); |
1190 |
|
if((CMPcddr((V208)))!=Cnil){ |
1191 |
goto T288;} |
goto T288;} |
1192 |
V217= Cnil; |
V221= Cnil; |
1193 |
goto T286; |
goto T286; |
1194 |
goto T288; |
goto T288; |
1195 |
T288:; |
T288:; |
1196 |
V218 = CMPmake_fixnum((long)length((V204))); |
V222 = CMPmake_fixnum((long)length((V207))); |
1197 |
V219 = CMPmake_fixnum((long)length(CMPcddr((V205)))); |
V223 = CMPmake_fixnum((long)length(CMPcddr((V208)))); |
1198 |
V220= number_minus(V218,V219); |
V224= number_minus(V222,V223); |
1199 |
V217= nthcdr(fix(/* INLINE-ARGS */V220),(V204)); |
V221= nthcdr(fix(/* INLINE-ARGS */V224),(V207)); |
1200 |
goto T286; |
goto T286; |
1201 |
T286:; |
T286:; |
1202 |
{object V221 = (*(LnkLI94))((V204),/* INLINE-ARGS */V216,V217,(V206),(V207)); |
V225 = (V209); |
1203 |
VMR30(V221)} |
V226 = (V210); |
1204 |
|
{object V227 = (*(LnkLI94))(V219,/* INLINE-ARGS */V220,V221,V225,V226); |
1205 |
|
VMR30(V227)} |
1206 |
goto T285; |
goto T285; |
1207 |
T285:; |
T285:; |
1208 |
if((V215!= VV[57]))goto T290; |
if((V218!= VV[57]))goto T290; |
1209 |
{object V222; |
{object V228; |
1210 |
V222= (V204); |
V228= (V207); |
1211 |
{object V223= CMPcadr((V205)); |
{object V229= CMPcadr((V208)); |
1212 |
if(!(type_of(V223)==t_cons||(V223)==Cnil)){ |
if(!(type_of(V229)==t_cons||(V229)==Cnil)){ |
1213 |
goto T298;}} |
goto T298;}} |
1214 |
base[0]= CMPcadr((V205)); |
base[0]= CMPcadr((V208)); |
1215 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1216 |
Leval(); |
Leval(); |
1217 |
vs_top=sup; |
vs_top=sup; |
1220 |
goto T296; |
goto T296; |
1221 |
goto T298; |
goto T298; |
1222 |
T298:; |
T298:; |
1223 |
base[0]= CMPcadr((V205)); |
base[0]= CMPcadr((V208)); |
1224 |
base[1]= (V204); |
base[1]= (V207); |
1225 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1226 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
1227 |
vs_top=sup; |
vs_top=sup; |
1229 |
goto T295;} |
goto T295;} |
1230 |
goto T296; |
goto T296; |
1231 |
T296:; |
T296:; |
1232 |
V205= CMPcaddr((V205)); |
V208= CMPcaddr((V208)); |
1233 |
goto T293; |
goto T293; |
1234 |
goto T295; |
goto T295; |
1235 |
T295:; |
T295:; |
1236 |
V205= CMPcadddr((V205)); |
V208= CMPcadddr((V208)); |
1237 |
goto T293; |
goto T293; |
1238 |
T293:; |
T293:; |
1239 |
V204= (V222);} |
V207= (V228);} |
1240 |
goto TTL; |
goto TTL; |
1241 |
goto T290; |
goto T290; |
1242 |
T290:; |
T290:; |
1243 |
if((V215!= VV[95]))goto T305; |
if((V218!= VV[95]))goto T305; |
1244 |
V205= CMPcadr((V205)); |
V208= CMPcadr((V208)); |
1245 |
goto TTL; |
goto TTL; |
1246 |
goto T305; |
goto T305; |
1247 |
T305:; |
T305:; |
1248 |
if(!(type_of((V204))!=t_cons)){ |
if(!(type_of((V207))!=t_cons)){ |
1249 |
goto T312;} |
goto T312;} |
1250 |
{object V224 = (V204); |
{object V230 = (V207); |
1251 |
VMR30(V224)} |
VMR30(V230)} |
1252 |
goto T312; |
goto T312; |
1253 |
T312:; |
T312:; |
1254 |
V225= (*(LnkLI87))(CMPcar((V204)),CMPcar((V205)),(V206),(V207)); |
V231 = (V207); |
1255 |
V226= (*(LnkLI87))(CMPcdr((V204)),CMPcdr((V205)),(V206),(V207)); |
V232= (*(LnkLI87))(CMPcar((V207)),CMPcar((V208)),(V209),(V210)); |
1256 |
{object V227 = (*(LnkLI96))((V204),/* INLINE-ARGS */V225,/* INLINE-ARGS */V226); |
V233= (*(LnkLI87))(CMPcdr((V207)),CMPcdr((V208)),(V209),(V210)); |
1257 |
VMR30(V227)}} |
{object V234 = (*(LnkLI96))(V231,/* INLINE-ARGS */V232,/* INLINE-ARGS */V233); |
1258 |
|
VMR30(V234)}} |
1259 |
base[0]=base[0]; |
base[0]=base[0]; |
1260 |
return Cnil; |
return Cnil; |
1261 |
} |
} |
1262 |
/* local entry for function WALK-TEMPLATE-HANDLE-REPEAT */ |
/* local entry for function WALK-TEMPLATE-HANDLE-REPEAT */ |
1263 |
|
|
1264 |
static object LI31(V233,V234,V235,V236,V237) |
static object LI31(V240,V241,V242,V243,V244) |
1265 |
|
|
1266 |
object V233;object V234;object V235;object V236;object V237; |
object V240;object V241;object V242;object V243;object V244; |
1267 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1268 |
goto TTL; |
goto TTL; |
1269 |
TTL:; |
TTL:; |
1270 |
if(!(((V233))==((V235)))){ |
if(!(((V240))==((V242)))){ |
1271 |
goto T315;} |
goto T315;} |
1272 |
{object V238 = (*(LnkLI87))((V233),CMPcdr((V234)),(V236),(V237)); |
{object V245 = (*(LnkLI87))((V240),CMPcdr((V241)),(V243),(V244)); |
1273 |
VMR31(V238)} |
VMR31(V245)} |
1274 |
goto T315; |
goto T315; |
1275 |
T315:; |
T315:; |
1276 |
{object V239 = (*(LnkLI97))((V233),(V234),CMPcar((V234)),(V235),(V236),(V237)); |
{object V246 = (*(LnkLI97))((V240),(V241),CMPcar((V241)),(V242),(V243),(V244)); |
1277 |
VMR31(V239)} |
VMR31(V246)} |
1278 |
return Cnil; |
return Cnil; |
1279 |
} |
} |
1280 |
/* local entry for function WALK-TEMPLATE-HANDLE-REPEAT-1 */ |
/* local entry for function WALK-TEMPLATE-HANDLE-REPEAT-1 */ |
1281 |
|
|
1282 |
static object LI32(V246,V247,V248,V249,V250,V251) |
static object LI32(V253,V254,V255,V256,V257,V258) |
1283 |
|
|
1284 |
register object V246;register object V247;register object V248;register object V249;register object V250;register object V251; |
register object V253;register object V254;register object V255;register object V256;register object V257;register object V258; |
1285 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1286 |
goto TTL; |
goto TTL; |
1287 |
TTL:; |
TTL:; |
1288 |
if(((V246))!=Cnil){ |
if(((V253))!=Cnil){ |
1289 |
goto T318;} |
goto T318;} |
1290 |
{object V252 = Cnil; |
{object V259 = Cnil; |
1291 |
VMR32(V252)} |
VMR32(V259)} |
1292 |
goto T318; |
goto T318; |
1293 |
T318:; |
T318:; |
1294 |
if(!(((V246))==((V249)))){ |
if(!(((V253))==((V256)))){ |
1295 |
goto T321;} |
goto T321;} |
1296 |
if(((V248))!=Cnil){ |
if(((V255))!=Cnil){ |
1297 |
goto T324;} |
goto T324;} |
1298 |
{object V253 = (*(LnkLI87))((V249),CMPcdr((V247)),(V250),(V251)); |
{object V260 = (*(LnkLI87))((V256),CMPcdr((V254)),(V257),(V258)); |
1299 |
VMR32(V253)} |
VMR32(V260)} |
1300 |
goto T324; |
goto T324; |
1301 |
T324:; |
T324:; |
1302 |
base[0]= VV[49]; |
base[0]= VV[49]; |
1303 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1304 |
Lerror(); |
Lerror(); |
1305 |
vs_top=sup; |
vs_top=sup; |
1306 |
{object V254 = vs_base[0]; |
{object V261 = vs_base[0]; |
1307 |
VMR32(V254)} |
VMR32(V261)} |
1308 |
goto T321; |
goto T321; |
1309 |
T321:; |
T321:; |
1310 |
if(((V248))!=Cnil){ |
if(((V255))!=Cnil){ |
1311 |
goto T328;} |
goto T328;} |
1312 |
{object V255; |
{object V262; |
1313 |
V255= (V247); |
V262= (V254); |
1314 |
V248= CMPcar((V247)); |
V255= CMPcar((V254)); |
1315 |
V247= (V255);} |
V254= (V262);} |
1316 |
goto TTL; |
goto TTL; |
1317 |
goto T328; |
goto T328; |
1318 |
T328:; |
T328:; |
1319 |
V256= (*(LnkLI87))(CMPcar((V246)),CMPcar((V248)),(V250),(V251)); |
V263 = (V253); |
1320 |
V257= (*(LnkLI97))(CMPcdr((V246)),(V247),CMPcdr((V248)),(V249),(V250),(V251)); |
V264= (*(LnkLI87))(CMPcar((V253)),CMPcar((V255)),(V257),(V258)); |
1321 |
{object V258 = (*(LnkLI96))((V246),/* INLINE-ARGS */V256,/* INLINE-ARGS */V257); |
V265= (*(LnkLI97))(CMPcdr((V253)),(V254),CMPcdr((V255)),(V256),(V257),(V258)); |
1322 |
VMR32(V258)} |
{object V266 = (*(LnkLI96))(V263,/* INLINE-ARGS */V264,/* INLINE-ARGS */V265); |
1323 |
|
VMR32(V266)} |
1324 |
base[0]=base[0]; |
base[0]=base[0]; |
1325 |
return Cnil; |
return Cnil; |
1326 |
} |
} |
1327 |
/* local entry for function WALK-REPEAT-EVAL */ |
/* local entry for function WALK-REPEAT-EVAL */ |
1328 |
|
|
1329 |
static object LI33(V261,V262) |
static object LI33(V269,V270) |
1330 |
|
|
1331 |
register object V261;object V262; |
register object V269;object V270; |
1332 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1333 |
goto TTL; |
goto TTL; |
1334 |
TTL:; |
TTL:; |
1335 |
if((V261)==Cnil){ |
if((V269)==Cnil){ |
1336 |
{object V263 = Cnil; |
{object V271 = Cnil; |
1337 |
VMR33(V263)}} |
VMR33(V271)}} |
1338 |
base[0]= CMPcar((V261)); |
V272 = (V269); |
1339 |
|
base[0]= CMPcar((V269)); |
1340 |
base[1]= VV[44]; |
base[1]= VV[44]; |
1341 |
base[2]= (V262); |
base[2]= (V270); |
1342 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1343 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
1344 |
vs_top=sup; |
vs_top=sup; |
1345 |
V264= vs_base[0]; |
V273= vs_base[0]; |
1346 |
V265= (*(LnkLI98))(CMPcdr((V261)),(V262)); |
V274= (*(LnkLI98))(CMPcdr((V269)),(V270)); |
1347 |
{object V266 = (*(LnkLI96))((V261),V264,/* INLINE-ARGS */V265); |
{object V275 = (*(LnkLI96))(V272,V273,/* INLINE-ARGS */V274); |
1348 |
VMR33(V266)} |
VMR33(V275)} |
1349 |
base[0]=base[0]; |
base[0]=base[0]; |
1350 |
return Cnil; |
return Cnil; |
1351 |
} |
} |
1352 |
/* local entry for function RECONS */ |
/* local entry for function RECONS */ |
1353 |
|
|
1354 |
static object LI34(V270,V271,V272) |
static object LI34(V279,V280,V281) |
1355 |
|
|
1356 |
object V270;object V271;object V272; |
object V279;object V280;object V281; |
1357 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
1358 |
goto TTL; |
goto TTL; |
1359 |
TTL:; |
TTL:; |
1360 |
if(!((CMPcar((V270)))==((V271)))){ |
if(!((CMPcar((V279)))==((V280)))){ |
1361 |
goto T341;} |
goto T341;} |
1362 |
if((CMPcdr((V270)))==((V272))){ |
if((CMPcdr((V279)))==((V281))){ |
1363 |
goto T342;} |
goto T342;} |
1364 |
goto T341; |
goto T341; |
1365 |
T341:; |
T341:; |
1366 |
{object V273 = make_cons((V271),(V272)); |
{object V282 = make_cons((V280),(V281)); |
1367 |
VMR34(V273)} |
VMR34(V282)} |
1368 |
goto T342; |
goto T342; |
1369 |
T342:; |
T342:; |
1370 |
{object V274 = (V270); |
{object V283 = (V279); |
1371 |
VMR34(V274)} |
VMR34(V283)} |
1372 |
return Cnil; |
return Cnil; |
1373 |
} |
} |
1374 |
/* local entry for function RELIST */ |
/* local entry for function RELIST */ |
1375 |
|
|
1376 |
static object LI35(object V275,object first,...) |
static object LI35(object V284,object first,...) |
1377 |
{ |
{ |
1378 |
va_list ap; |
va_list ap; |
1379 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
1380 |
{object V276; |
{object V285; |
1381 |
object V277; |
object V286; |
1382 |
va_start(ap,first); |
va_start(ap,first); |
1383 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1384 |
V276= V275; |
V285= V284; |
1385 |
narg= narg - 1; |
narg= narg - 1; |
1386 |
V278 = list_vector_new(narg,first,ap); |
V287 = list_vector_new(narg,first,ap); |
1387 |
V277= V278; |
V286= V287; |
1388 |
if(((V277))!=Cnil){ |
if(((V286))!=Cnil){ |
1389 |
goto T347;} |
goto T347;} |
1390 |
{object V279 = Cnil; |
{object V288 = Cnil; |
1391 |
VMR35(V279)} |
VMR35(V288)} |
1392 |
goto T347; |
goto T347; |
1393 |
T347:; |
T347:; |
1394 |
{object V280 = (*(LnkLI99))((V276),(V277),Cnil); |
{object V289 = (*(LnkLI99))((V285),(V286),Cnil); |
1395 |
VMR35(V280)} |
VMR35(V289)} |
1396 |
va_end(ap); |
va_end(ap); |
1397 |
return Cnil;} |
return Cnil;} |
1398 |
} |
} |
1399 |
/* local entry for function RELIST* */ |
/* local entry for function RELIST* */ |
1400 |
|
|
1401 |
static object LI36(object V281,object first,...) |
static object LI36(object V290,object first,...) |
1402 |
{ |
{ |
1403 |
va_list ap; |
va_list ap; |
1404 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
1405 |
{object V282; |
{object V291; |
1406 |
object V283; |
object V292; |
1407 |
va_start(ap,first); |
va_start(ap,first); |
1408 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1409 |
V282= V281; |
V291= V290; |
1410 |
narg= narg - 1; |
narg= narg - 1; |
1411 |
V284 = list_vector_new(narg,first,ap); |
V293 = list_vector_new(narg,first,ap); |
1412 |
V283= V284; |
V292= V293; |
1413 |
{object V285 = (*(LnkLI99))((V282),(V283),Ct); |
{object V294 = (*(LnkLI99))((V291),(V292),Ct); |
1414 |
VMR36(V285)} |
VMR36(V294)} |
1415 |
va_end(ap); |
va_end(ap); |
1416 |
return Cnil;} |
return Cnil;} |
1417 |
} |
} |
1418 |
/* local entry for function RELIST-INTERNAL */ |
/* local entry for function RELIST-INTERNAL */ |
1419 |
|
|
1420 |
static object LI37(V289,V290,V291) |
static object LI37(V298,V299,V300) |
1421 |
|
|
1422 |
object V289;register object V290;object V291; |
object V298;register object V299;object V300; |
1423 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
1424 |
goto TTL; |
goto TTL; |
1425 |
TTL:; |
TTL:; |
1426 |
if((CMPcdr((V290)))!=Cnil){ |
if((CMPcdr((V299)))!=Cnil){ |
1427 |
goto T350;} |
goto T350;} |
1428 |
if(((V291))==Cnil){ |
if(((V300))==Cnil){ |
1429 |
goto T353;} |
goto T353;} |
1430 |
{object V292 = CMPcar((V290)); |
{object V301 = CMPcar((V299)); |
1431 |
VMR37(V292)} |
VMR37(V301)} |
1432 |
goto T353; |
goto T353; |
1433 |
T353:; |
T353:; |
1434 |
{object V293 = (*(LnkLI96))((V289),CMPcar((V290)),Cnil); |
{object V302 = (*(LnkLI96))((V298),CMPcar((V299)),Cnil); |
1435 |
VMR37(V293)} |
VMR37(V302)} |
1436 |
goto T350; |
goto T350; |
1437 |
T350:; |
T350:; |
1438 |
V294= CMPcar((V290)); |
V303 = (V298); |
1439 |
V295= (*(LnkLI99))(CMPcdr((V289)),CMPcdr((V290)),(V291)); |
V304= CMPcar((V299)); |
1440 |
{object V296 = (*(LnkLI96))((V289),/* INLINE-ARGS */V294,/* INLINE-ARGS */V295); |
V305= (*(LnkLI99))(CMPcdr((V298)),CMPcdr((V299)),(V300)); |
1441 |
VMR37(V296)} |
{object V306 = (*(LnkLI96))(V303,/* INLINE-ARGS */V304,/* INLINE-ARGS */V305); |
1442 |
|
VMR37(V306)} |
1443 |
return Cnil; |
return Cnil; |
1444 |
} |
} |
1445 |
/* function definition for WALK-DECLARATIONS */ |
/* function definition for WALK-DECLARATIONS */ |
1448 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1449 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
1450 |
vs_check; |
vs_check; |
1451 |
{object V297; |
{object V307; |
1452 |
object V298; |
object V308; |
1453 |
register object V299; |
register object V309; |
1454 |
object V300; |
object V310; |
1455 |
register object V301; |
register object V311; |
1456 |
object V302; |
object V312; |
1457 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
1458 |
if(vs_top-vs_base>6) too_many_arguments(); |
if(vs_top-vs_base>6) too_many_arguments(); |
1459 |
V297=(base[0]); |
V307=(base[0]); |
1460 |
V298=(base[1]); |
V308=(base[1]); |
1461 |
V299=(base[2]); |
V309=(base[2]); |
1462 |
vs_base=vs_base+3; |
vs_base=vs_base+3; |
1463 |
if(vs_base>=vs_top){vs_top=sup;goto T355;} |
if(vs_base>=vs_top){vs_top=sup;goto T355;} |
1464 |
V300=(base[3]); |
V310=(base[3]); |
1465 |
vs_base++; |
vs_base++; |
1466 |
if(vs_base>=vs_top){vs_top=sup;goto T356;} |
if(vs_base>=vs_top){vs_top=sup;goto T356;} |
1467 |
V301=(base[4]); |
V311=(base[4]); |
1468 |
vs_base++; |
vs_base++; |
1469 |
if(vs_base>=vs_top){vs_top=sup;goto T357;} |
if(vs_base>=vs_top){vs_top=sup;goto T357;} |
1470 |
V302=(base[5]); |
V312=(base[5]); |
1471 |
vs_top=sup; |
vs_top=sup; |
1472 |
goto T358; |
goto T358; |
1473 |
goto T355; |
goto T355; |
1474 |
T355:; |
T355:; |
1475 |
V300= Cnil; |
V310= Cnil; |
1476 |
goto T356; |
goto T356; |
1477 |
T356:; |
T356:; |
1478 |
V301= Cnil; |
V311= Cnil; |
1479 |
goto T357; |
goto T357; |
1480 |
T357:; |
T357:; |
1481 |
V302= Cnil; |
V312= Cnil; |
1482 |
goto T358; |
goto T358; |
1483 |
T358:; |
T358:; |
1484 |
{object V303; |
{object V313; |
1485 |
object V304; |
object V314; |
1486 |
object V305; |
object V315; |
1487 |
V303= CMPcar((V297)); |
V313= CMPcar((V307)); |
1488 |
V304= Cnil; |
V314= Cnil; |
1489 |
V305= Cnil; |
V315= Cnil; |
1490 |
if(!(type_of((V303))==t_string)){ |
if(!(type_of((V313))==t_string)){ |
1491 |
goto T366;} |
goto T366;} |
1492 |
if((CMPcdr((V297)))==Cnil){ |
if((CMPcdr((V307)))==Cnil){ |
1493 |
goto T366;} |
goto T366;} |
1494 |
if(((V300))!=Cnil){ |
if(((V310))!=Cnil){ |
1495 |
goto T366;} |
goto T366;} |
1496 |
if(((V301))!=Cnil){ |
if(((V311))!=Cnil){ |
1497 |
goto T366;} |
goto T366;} |
1498 |
base[7]= CMPcdr((V297)); |
V316 = (V307); |
1499 |
base[8]= (V298); |
V317 = (V313); |
1500 |
base[9]= (V299); |
base[7]= CMPcdr((V307)); |
1501 |
|
base[8]= (V308); |
1502 |
|
base[9]= (V309); |
1503 |
base[10]= Ct; |
base[10]= Ct; |
1504 |
vs_top=(vs_base=base+7)+4; |
vs_top=(vs_base=base+7)+4; |
1505 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
1506 |
vs_top=sup; |
vs_top=sup; |
1507 |
V306= vs_base[0]; |
V318= vs_base[0]; |
1508 |
base[7]= (*(LnkLI96))((V297),(V303),V306); |
base[7]= (*(LnkLI96))(V316,V317,V318); |
1509 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1510 |
return; |
return; |
1511 |
goto T366; |
goto T366; |
1512 |
T366:; |
T366:; |
1513 |
if(!(type_of((V303))==t_cons||((V303))==Cnil)){ |
if(!(type_of((V313))==t_cons||((V313))==Cnil)){ |
1514 |
goto T380;} |
goto T380;} |
1515 |
if(!((CMPcar((V303)))==(VV[50]))){ |
if(!((CMPcar((V313)))==(VV[50]))){ |
1516 |
goto T380;} |
goto T380;} |
1517 |
{register object V307; |
{register object V319; |
1518 |
register object V308; |
register object V320; |
1519 |
V307= CMPcdr((V303)); |
V319= CMPcdr((V313)); |
1520 |
V308= CMPcar((V307)); |
V320= CMPcar((V319)); |
1521 |
goto T388; |
goto T388; |
1522 |
T388:; |
T388:; |
1523 |
if(!(((V307))==Cnil)){ |
if(!(((V319))==Cnil)){ |
1524 |
goto T389;} |
goto T389;} |
1525 |
goto T384; |
goto T384; |
1526 |
goto T389; |
goto T389; |
1527 |
T389:; |
T389:; |
1528 |
{register object V309; |
{register object V321; |
1529 |
register object V310; |
register object V322; |
1530 |
object V311; |
object V323; |
1531 |
V309= CMPcar((V308)); |
V321= CMPcar((V320)); |
1532 |
V310= CMPcadr((V308)); |
V322= CMPcadr((V320)); |
1533 |
V311= CMPcddr((V308)); |
V323= CMPcddr((V320)); |
1534 |
{register object x= (V309),V312= (VV[27]->s.s_dbind); |
{register object x= (V321),V324= (VV[27]->s.s_dbind); |
1535 |
while(V312!=Cnil) |
while(V324!=Cnil) |
1536 |
if(eql(x,V312->c.c_car)){ |
if(eql(x,V324->c.c_car)){ |
1537 |
goto T400; |
goto T400; |
1538 |
}else V312=V312->c.c_cdr; |
}else V324=V324->c.c_cdr; |
1539 |
goto T399;} |
goto T399;} |
1540 |
goto T400; |
goto T400; |
1541 |
T400:;{object V314; |
T400:; |
1542 |
V314= (*(LnkLI74))((V310),(V299)); |
V325 = (V321);{object V327; |
1543 |
if(V314==Cnil)goto T402; |
V327= (*(LnkLI74))((V322),(V309)); |
1544 |
V313= V314; |
if(V327==Cnil)goto T402; |
1545 |
|
V326= V327; |
1546 |
goto T401; |
goto T401; |
1547 |
goto T402; |
goto T402; |
1548 |
T402:;} |
T402:;} |
1549 |
V313= (V310); |
V326= (V322); |
1550 |
goto T401; |
goto T401; |
1551 |
T401:; |
T401:; |
1552 |
V315= listA(3,(V309),V313,(V311)); |
V328 = (V323); |
1553 |
(void)((*(LnkLI101))(/* INLINE-ARGS */V315,(V299))); |
V329= listA(3,V325,V326,V328); |
1554 |
|
(void)((*(LnkLI101))(/* INLINE-ARGS */V329,(V309))); |
1555 |
goto T397; |
goto T397; |
1556 |
goto T399; |
goto T399; |
1557 |
T399:; |
T399:; |
1558 |
(void)((*(LnkLI101))((V308),(V299))); |
(void)((*(LnkLI101))((V320),(V309))); |
1559 |
goto T397; |
goto T397; |
1560 |
T397:; |
T397:; |
1561 |
V301= make_cons(V308,(V301));} |
V311= make_cons(V320,(V311));} |
1562 |
V307= CMPcdr((V307)); |
V319= CMPcdr((V319)); |
1563 |
V308= CMPcar((V307)); |
V320= CMPcar((V319)); |
1564 |
goto T388;} |
goto T388;} |
1565 |
goto T384; |
goto T384; |
1566 |
T384:; |
T384:; |
1567 |
base[7]= CMPcdr((V297)); |
V331 = (V307); |
1568 |
base[8]= (V298); |
V332 = (V313); |
1569 |
base[9]= (V299); |
base[7]= CMPcdr((V307)); |
1570 |
base[10]= (V300); |
base[8]= (V308); |
1571 |
base[11]= (V301); |
base[9]= (V309); |
1572 |
|
base[10]= (V310); |
1573 |
|
base[11]= (V311); |
1574 |
vs_top=(vs_base=base+7)+5; |
vs_top=(vs_base=base+7)+5; |
1575 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
1576 |
vs_top=sup; |
vs_top=sup; |
1577 |
V317= vs_base[0]; |
V333= vs_base[0]; |
1578 |
base[7]= (*(LnkLI96))((V297),(V303),V317); |
base[7]= (*(LnkLI96))(V331,V332,V333); |
1579 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1580 |
return; |
return; |
1581 |
goto T380; |
goto T380; |
1582 |
T380:; |
T380:; |
1583 |
if(((V303))==Cnil){ |
if(((V313))==Cnil){ |
1584 |
goto T417;} |
goto T417;} |
1585 |
if(!(type_of((V303))==t_cons||((V303))==Cnil)){ |
if(!(type_of((V313))==t_cons||((V313))==Cnil)){ |
1586 |
goto T417;} |
goto T417;} |
1587 |
if(((*(LnkLI86))(CMPcar((V303))))!=Cnil){ |
if(((*(LnkLI86))(CMPcar((V313))))!=Cnil){ |
1588 |
goto T417;} |
goto T417;} |
1589 |
base[7]= (V303); |
base[7]= (V313); |
1590 |
base[8]= (V299); |
base[8]= (V309); |
1591 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
1592 |
Lmacroexpand_1(); |
Lmacroexpand_1(); |
1593 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
1594 |
V305= vs_base[0]; |
V315= vs_base[0]; |
1595 |
vs_base++; |
vs_base++; |
1596 |
}else{ |
}else{ |
1597 |
V305= Cnil;} |
V315= Cnil;} |
1598 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
1599 |
V304= vs_base[0]; |
V314= vs_base[0]; |
1600 |
}else{ |
}else{ |
1601 |
V304= Cnil;} |
V314= Cnil;} |
1602 |
vs_top=sup; |
vs_top=sup; |
1603 |
if(((V304))==Cnil){ |
if(((V314))==Cnil){ |
1604 |
goto T417;} |
goto T417;} |
1605 |
base[7]= (*(LnkLI96))((V297),(V305),CMPcdr((V297))); |
base[7]= (*(LnkLI96))((V307),(V315),CMPcdr((V307))); |
1606 |
base[8]= (V298); |
base[8]= (V308); |
1607 |
base[9]= (V299); |
base[9]= (V309); |
1608 |
base[10]= (V300); |
base[10]= (V310); |
1609 |
base[11]= (V301); |
base[11]= (V311); |
1610 |
if((V302)!=Cnil){ |
if((V312)!=Cnil){ |
1611 |
base[12]= (V302); |
base[12]= (V312); |
1612 |
goto T434;} |
goto T434;} |
1613 |
base[12]= (V297); |
base[12]= (V307); |
1614 |
goto T434; |
goto T434; |
1615 |
T434:; |
T434:; |
1616 |
vs_top=(vs_base=base+7)+6; |
vs_top=(vs_base=base+7)+6; |
1618 |
return; |
return; |
1619 |
goto T417; |
goto T417; |
1620 |
T417:; |
T417:; |
1621 |
if((V302)!=Cnil){ |
if((V312)!=Cnil){ |
1622 |
base[7]= (V302); |
base[7]= (V312); |
1623 |
goto T435;} |
goto T435;} |
1624 |
base[7]= (V297); |
base[7]= (V307); |
1625 |
goto T435; |
goto T435; |
1626 |
T435:; |
T435:; |
1627 |
base[8]= (V299); |
base[8]= (V309); |
1628 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
1629 |
super_funcall_no_event((V298)); |
super_funcall_no_event((V308)); |
1630 |
return;} |
return;} |
1631 |
} |
} |
1632 |
} |
} |
1633 |
/* local entry for function WALK-UNEXPECTED-DECLARE */ |
/* local entry for function WALK-UNEXPECTED-DECLARE */ |
1634 |
|
|
1635 |
static object LI39(V321,V322,V323) |
static object LI39(V337,V338,V339) |
1636 |
|
|
1637 |
object V321;object V322;object V323; |
object V337;object V338;object V339; |
1638 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
1639 |
goto TTL; |
goto TTL; |
1640 |
TTL:; |
TTL:; |
1641 |
base[0]= VV[51]; |
base[0]= VV[51]; |
1642 |
base[1]= (V321); |
base[1]= (V337); |
1643 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1644 |
(void) (*Lnk102)(); |
(void) (*Lnk102)(); |
1645 |
vs_top=sup; |
vs_top=sup; |
1646 |
{object V324 = (V321); |
{object V340 = (V337); |
1647 |
VMR39(V324)} |
VMR39(V340)} |
1648 |
base[0]=base[0]; |
base[0]=base[0]; |
1649 |
return Cnil; |
return Cnil; |
1650 |
} |
} |
1651 |
/* local entry for function WALK-ARGLIST */ |
/* local entry for function WALK-ARGLIST */ |
1652 |
|
|
1653 |
static object LI40(object V327,object V326,object V325,object first,...) |
static object LI40(object V343,object V342,object V341,object first,...) |
1654 |
{ |
{ |
1655 |
va_list ap; |
va_list ap; |
1656 |
int narg = VFUN_NARGS; VMB40 VMS40 VMV40 |
int narg = VFUN_NARGS; VMB40 VMS40 VMV40 |
1657 |
{register object V328; |
{register object V344; |
1658 |
object V329; |
object V345; |
1659 |
register object V330; |
register object V346; |
1660 |
object V331; |
object V347; |
1661 |
va_start(ap,first); |
va_start(ap,first); |
1662 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1663 |
V328= V327; |
V344= V343; |
1664 |
V329= V326; |
V345= V342; |
1665 |
V330= V325; |
V346= V341; |
1666 |
narg = narg - 3; |
narg = narg - 3; |
1667 |
if (narg <= 0) goto T440; |
if (narg <= 0) goto T440; |
1668 |
else { |
else { |
1669 |
V331= first;} |
V347= first;} |
1670 |
--narg; goto T441; |
--narg; goto T441; |
1671 |
goto T440; |
goto T440; |
1672 |
T440:; |
T440:; |
1673 |
V331= Cnil; |
V347= Cnil; |
1674 |
goto T441; |
goto T441; |
1675 |
T441:; |
T441:; |
1676 |
{register object V332; |
{register object V348; |
1677 |
V332= Cnil; |
V348= Cnil; |
1678 |
if(((V328))!=Cnil){ |
if(((V344))!=Cnil){ |
1679 |
goto T445;} |
goto T445;} |
1680 |
{object V333 = Cnil; |
{object V349 = Cnil; |
1681 |
VMR40(V333)} |
VMR40(V349)} |
1682 |
goto T445; |
goto T445; |
1683 |
T445:; |
T445:; |
1684 |
V332= CMPcar((V328)); |
V348= CMPcar((V344)); |
1685 |
if(!(type_of((V332))==t_symbol)){ |
V350 = (V348); |
1686 |
goto T448;}{object V334; |
if(!(type_of(V350)==t_symbol)){ |
1687 |
{register object x= (V332),V335= VV[52]; |
goto T448;}{object V351; |
1688 |
while(V335!=Cnil) |
{register object x= (V348),V352= VV[52]; |
1689 |
if(eql(x,V335->c.c_car)){ |
while(V352!=Cnil) |
1690 |
V334= V335; |
if(eql(x,V352->c.c_car)){ |
1691 |
|
V351= V352; |
1692 |
goto T453; |
goto T453; |
1693 |
}else V335=V335->c.c_cdr; |
}else V352=V352->c.c_cdr; |
1694 |
V334= Cnil;} |
V351= Cnil;} |
1695 |
goto T453; |
goto T453; |
1696 |
T453:; |
T453:; |
1697 |
if(V334==Cnil)goto T452; |
if(V351==Cnil)goto T452; |
1698 |
goto T451; |
goto T451; |
1699 |
goto T452; |
goto T452; |
1700 |
T452:;} |
T452:;} |
1701 |
(void)((*(LnkLI103))((V332),(V330))); |
(void)((*(LnkLI103))((V348),(V346))); |
1702 |
goto T451; |
goto T451; |
1703 |
T451:; |
T451:; |
1704 |
V336= CMPcdr((V328)); |
V353 = (V344); |
1705 |
if((V331)==Cnil){ |
V354 = (V348); |
1706 |
V337= Cnil; |
V355= CMPcdr((V344)); |
1707 |
|
V356 = (V345); |
1708 |
|
V357 = (V346); |
1709 |
|
if((V347)==Cnil){ |
1710 |
|
V358= Cnil; |
1711 |
goto T454;} |
goto T454;} |
1712 |
{register object x= (V332),V339= VV[52]; |
{register object x= (V348),V360= VV[52]; |
1713 |
while(V339!=Cnil) |
while(V360!=Cnil) |
1714 |
if(eql(x,V339->c.c_car)){ |
if(eql(x,V360->c.c_car)){ |
1715 |
V338= V339; |
V359= V360; |
1716 |
goto T455; |
goto T455; |
1717 |
}else V339=V339->c.c_cdr; |
}else V360=V360->c.c_cdr; |
1718 |
V338= Cnil;} |
V359= Cnil;} |
1719 |
goto T455; |
goto T455; |
1720 |
T455:; |
T455:; |
1721 |
V337= ((V338)==Cnil?Ct:Cnil); |
V358= ((V359)==Cnil?Ct:Cnil); |
1722 |
goto T454; |
goto T454; |
1723 |
T454:; |
T454:; |
1724 |
V340= (VFUN_NARGS=4,(*(LnkLI104))(/* INLINE-ARGS */V336,(V329),(V330),V337)); |
V361= (VFUN_NARGS=4,(*(LnkLI104))(/* INLINE-ARGS */V355,V356,V357,V358)); |
1725 |
{object V341 = (*(LnkLI96))((V328),(V332),/* INLINE-ARGS */V340); |
{object V362 = (*(LnkLI96))(V353,V354,/* INLINE-ARGS */V361); |
1726 |
VMR40(V341)} |
VMR40(V362)} |
1727 |
goto T448; |
goto T448; |
1728 |
T448:; |
T448:; |
1729 |
if(!(type_of((V332))==t_cons)){ |
if(!(type_of((V348))==t_cons)){ |
1730 |
goto T457;} |
goto T457;} |
1731 |
{object V342; |
{object V363; |
1732 |
if(((V331))==Cnil){ |
V364 = (V344); |
1733 |
|
if(((V347))==Cnil){ |
1734 |
goto T462;} |
goto T462;} |
1735 |
V343= (VFUN_NARGS=4,(*(LnkLI104))((V332),(V329),(V330),(V331))); |
V365= (VFUN_NARGS=4,(*(LnkLI104))((V348),(V345),(V346),(V347))); |
1736 |
goto T460; |
goto T460; |
1737 |
goto T462; |
goto T462; |
1738 |
T462:; |
T462:; |
1739 |
V344= CMPcar((V332)); |
V366 = (V348); |
1740 |
base[0]= CMPcadr((V332)); |
V367= CMPcar((V348)); |
1741 |
|
base[0]= CMPcadr((V348)); |
1742 |
base[1]= VV[44]; |
base[1]= VV[44]; |
1743 |
base[2]= (V330); |
base[2]= (V346); |
1744 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1745 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
1746 |
vs_top=sup; |
vs_top=sup; |
1747 |
V345= vs_base[0]; |
V368= vs_base[0]; |
1748 |
V343= (VFUN_NARGS=4,(*(LnkLI105))((V332),/* INLINE-ARGS */V344,V345,CMPcddr((V332)))); |
V365= (VFUN_NARGS=4,(*(LnkLI105))(V366,/* INLINE-ARGS */V367,V368,CMPcddr((V348)))); |
1749 |
goto T460; |
goto T460; |
1750 |
T460:; |
T460:; |
1751 |
V346= (VFUN_NARGS=4,(*(LnkLI104))(CMPcdr((V328)),(V329),(V330),Cnil)); |
V369= (VFUN_NARGS=4,(*(LnkLI104))(CMPcdr((V344)),(V345),(V346),Cnil)); |
1752 |
V342= (*(LnkLI96))((V328),V343,/* INLINE-ARGS */V346); |
V363= (*(LnkLI96))(V364,V365,/* INLINE-ARGS */V369); |
1753 |
if(!(type_of(CMPcar((V332)))==t_symbol)){ |
if(!(type_of(CMPcar((V348)))==t_symbol)){ |
1754 |
goto T470;} |
goto T470;} |
1755 |
(void)((*(LnkLI103))(CMPcar((V332)),(V330))); |
(void)((*(LnkLI103))(CMPcar((V348)),(V346))); |
1756 |
goto T468; |
goto T468; |
1757 |
goto T470; |
goto T470; |
1758 |
T470:; |
T470:; |
1759 |
(void)((*(LnkLI103))(CMPcadar((V332)),(V330))); |
(void)((*(LnkLI103))(CMPcadar((V348)),(V346))); |
1760 |
goto T468; |
goto T468; |
1761 |
T468:; |
T468:; |
1762 |
if(!((CMPcddr((V332)))==Cnil)){ |
if(!((CMPcddr((V348)))==Cnil)){ |
1763 |
goto T473;} |
goto T473;} |
1764 |
goto T472; |
goto T472; |
1765 |
goto T473; |
goto T473; |
1766 |
T473:; |
T473:; |
1767 |
if(!(((type_of(CMPcaddr((V332)))==t_symbol?Ct:Cnil))==Cnil)){ |
if(!(((type_of(CMPcaddr((V348)))==t_symbol?Ct:Cnil))==Cnil)){ |
1768 |
goto T475;} |
goto T475;} |
1769 |
goto T472; |
goto T472; |
1770 |
goto T475; |
goto T475; |
1771 |
T475:; |
T475:; |
1772 |
(void)((*(LnkLI103))(CMPcaddr((V332)),(V330))); |
(void)((*(LnkLI103))(CMPcaddr((V348)),(V346))); |
1773 |
goto T472; |
goto T472; |
1774 |
T472:; |
T472:; |
1775 |
{object V347 = (V342); |
{object V370 = (V363); |
1776 |
VMR40(V347)}} |
VMR40(V370)}} |
1777 |
goto T457; |
goto T457; |
1778 |
T457:; |
T457:; |
1779 |
base[0]= VV[53]; |
base[0]= VV[53]; |
1780 |
base[1]= (V328); |
base[1]= (V344); |
1781 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1782 |
Lerror(); |
Lerror(); |
1783 |
vs_top=sup; |
vs_top=sup; |
1784 |
{object V348 = vs_base[0]; |
{object V371 = vs_base[0]; |
1785 |
VMR40(V348)}} |
VMR40(V371)}} |
1786 |
va_end(ap); |
va_end(ap); |
1787 |
base[0]=base[0]; |
base[0]=base[0]; |
1788 |
return Cnil;} |
return Cnil;} |
1789 |
} |
} |
1790 |
/* local entry for function WALK-LET */ |
/* local entry for function WALK-LET */ |
1791 |
|
|
1792 |
static object LI41(V352,V353,V354) |
static object LI41(V375,V376,V377) |
1793 |
|
|
1794 |
object V352;object V353;object V354; |
object V375;object V376;object V377; |
1795 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
1796 |
goto TTL; |
goto TTL; |
1797 |
TTL:; |
TTL:; |
1798 |
{object V355 = (*(LnkLI106))((V352),(V353),(V354),Cnil); |
{object V378 = (*(LnkLI106))((V375),(V376),(V377),Cnil); |
1799 |
VMR41(V355)} |
VMR41(V378)} |
1800 |
return Cnil; |
return Cnil; |
1801 |
} |
} |
1802 |
/* local entry for function WALK-LET* */ |
/* local entry for function WALK-LET* */ |
1803 |
|
|
1804 |
static object LI42(V359,V360,V361) |
static object LI42(V382,V383,V384) |
1805 |
|
|
1806 |
object V359;object V360;object V361; |
object V382;object V383;object V384; |
1807 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
1808 |
goto TTL; |
goto TTL; |
1809 |
TTL:; |
TTL:; |
1810 |
{object V362 = (*(LnkLI106))((V359),(V360),(V361),Ct); |
{object V385 = (*(LnkLI106))((V382),(V383),(V384),Ct); |
1811 |
VMR42(V362)} |
VMR42(V385)} |
1812 |
return Cnil; |
return Cnil; |
1813 |
} |
} |
1814 |
/* local entry for function WALK-PROG */ |
/* local entry for function WALK-PROG */ |
1815 |
|
|
1816 |
static object LI43(V366,V367,V368) |
static object LI43(V389,V390,V391) |
1817 |
|
|
1818 |
object V366;object V367;object V368; |
object V389;object V390;object V391; |
1819 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
1820 |
goto TTL; |
goto TTL; |
1821 |
TTL:; |
TTL:; |
1822 |
{object V369 = (*(LnkLI107))((V366),(V367),(V368),Cnil); |
{object V392 = (*(LnkLI107))((V389),(V390),(V391),Cnil); |
1823 |
VMR43(V369)} |
VMR43(V392)} |
1824 |
return Cnil; |
return Cnil; |
1825 |
} |
} |
1826 |
/* local entry for function WALK-PROG* */ |
/* local entry for function WALK-PROG* */ |
1827 |
|
|
1828 |
static object LI44(V373,V374,V375) |
static object LI44(V396,V397,V398) |
1829 |
|
|
1830 |
object V373;object V374;object V375; |
object V396;object V397;object V398; |
1831 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
1832 |
goto TTL; |
goto TTL; |
1833 |
TTL:; |
TTL:; |
1834 |
{object V376 = (*(LnkLI107))((V373),(V374),(V375),Ct); |
{object V399 = (*(LnkLI107))((V396),(V397),(V398),Ct); |
1835 |
VMR44(V376)} |
VMR44(V399)} |
1836 |
return Cnil; |
return Cnil; |
1837 |
} |
} |
1838 |
/* local entry for function WALK-DO */ |
/* local entry for function WALK-DO */ |
1839 |
|
|
1840 |
static object LI45(V380,V381,V382) |
static object LI45(V403,V404,V405) |
1841 |
|
|
1842 |
object V380;object V381;object V382; |
object V403;object V404;object V405; |
1843 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
1844 |
goto TTL; |
goto TTL; |
1845 |
TTL:; |
TTL:; |
1846 |
{object V383 = (*(LnkLI108))((V380),(V381),(V382),Cnil); |
{object V406 = (*(LnkLI108))((V403),(V404),(V405),Cnil); |
1847 |
VMR45(V383)} |
VMR45(V406)} |
1848 |
return Cnil; |
return Cnil; |
1849 |
} |
} |
1850 |
/* local entry for function WALK-DO* */ |
/* local entry for function WALK-DO* */ |
1851 |
|
|
1852 |
static object LI46(V387,V388,V389) |
static object LI46(V410,V411,V412) |
1853 |
|
|
1854 |
object V387;object V388;object V389; |
object V410;object V411;object V412; |
1855 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
1856 |
goto TTL; |
goto TTL; |
1857 |
TTL:; |
TTL:; |
1858 |
{object V390 = (*(LnkLI108))((V387),(V388),(V389),Ct); |
{object V413 = (*(LnkLI108))((V410),(V411),(V412),Ct); |
1859 |
VMR46(V390)} |
VMR46(V413)} |
1860 |
return Cnil; |
return Cnil; |
1861 |
} |
} |
1862 |
/* local entry for function WALK-LETLET* */ |
/* local entry for function WALK-LETLET* */ |
1863 |
|
|
1864 |
static object LI47(V395,V396,V397,V398) |
static object LI47(V418,V419,V420,V421) |
1865 |
|
|
1866 |
register object V395;object V396;object V397;object V398; |
register object V418;object V419;object V420;object V421; |
1867 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
1868 |
goto TTL; |
goto TTL; |
1869 |
TTL:; |
TTL:; |
1870 |
{object V399; |
{object V422; |
1871 |
V400= (VFUN_NARGS=1,(*(LnkLI22))((V397))); |
V423 = (V420); |
1872 |
V399= (*(LnkLI2))((V397),Cnil,/* INLINE-ARGS */V400); |
V424= (VFUN_NARGS=1,(*(LnkLI22))((V420))); |
1873 |
{object V401; |
V422= (*(LnkLI2))(V423,Cnil,/* INLINE-ARGS */V424); |
1874 |
object V402; |
{object V425; |
1875 |
object V403; |
object V426; |
1876 |
object V404; |
object V427; |
1877 |
object V405; |
object V428; |
1878 |
V401= CMPcar((V395)); |
object V429; |
1879 |
V402= CMPcadr((V395)); |
V425= CMPcar((V418)); |
1880 |
V403= CMPcddr((V395)); |
V426= CMPcadr((V418)); |
1881 |
V404= (*(LnkLI109))((V402),(V397),(V399),(V396),(V398)); |
V427= CMPcddr((V418)); |
1882 |
base[5]= (V403); |
V428= (*(LnkLI109))((V426),(V420),(V422),(V419),(V421)); |
1883 |
|
base[5]= (V427); |
1884 |
base[6]= (VV[98]->s.s_gfdef); |
base[6]= (VV[98]->s.s_gfdef); |
1885 |
base[7]= (V399); |
base[7]= (V422); |
1886 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1887 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
1888 |
vs_top=sup; |
vs_top=sup; |
1889 |
V405= vs_base[0]; |
V429= vs_base[0]; |
1890 |
{object V406 = (VFUN_NARGS=4,(*(LnkLI105))((V395),(V401),(V404),(V405))); |
{object V430 = (VFUN_NARGS=4,(*(LnkLI105))((V418),(V425),(V428),(V429))); |
1891 |
VMR47(V406)}}} |
VMR47(V430)}}} |
1892 |
base[0]=base[0]; |
base[0]=base[0]; |
1893 |
return Cnil; |
return Cnil; |
1894 |
} |
} |
1895 |
/* local entry for function WALK-LOCALLY */ |
/* local entry for function WALK-LOCALLY */ |
1896 |
|
|
1897 |
static object LI48(V410,V411,V412) |
static object LI48(V434,V435,V436) |
1898 |
|
|
1899 |
object V410;object V411;object V412; |
object V434;object V435;object V436; |
1900 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
1901 |
goto TTL; |
goto TTL; |
1902 |
TTL:; |
TTL:; |
1903 |
{object V413; |
{object V437; |
1904 |
object V414; |
object V438; |
1905 |
object V415; |
object V439; |
1906 |
V413= CMPcar((V410)); |
V437= CMPcar((V434)); |
1907 |
V414= CMPcdr((V410)); |
V438= CMPcdr((V434)); |
1908 |
base[3]= (V414); |
base[3]= (V438); |
1909 |
base[4]= (VV[98]->s.s_gfdef); |
base[4]= (VV[98]->s.s_gfdef); |
1910 |
base[5]= (V412); |
base[5]= (V436); |
1911 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1912 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
1913 |
vs_top=sup; |
vs_top=sup; |
1914 |
V415= vs_base[0]; |
V439= vs_base[0]; |
1915 |
{object V416 = (VFUN_NARGS=3,(*(LnkLI105))((V410),(V413),(V415))); |
{object V440 = (VFUN_NARGS=3,(*(LnkLI105))((V434),(V437),(V439))); |
1916 |
VMR48(V416)}} |
VMR48(V440)}} |
1917 |
base[0]=base[0]; |
base[0]=base[0]; |
1918 |
return Cnil; |
return Cnil; |
1919 |
} |
} |
1920 |
/* local entry for function WALK-PROGPROG* */ |
/* local entry for function WALK-PROGPROG* */ |
1921 |
|
|
1922 |
static object LI50(V421,V422,V423,V424) |
static object LI50(V445,V446,V447,V448) |
1923 |
|
|
1924 |
register object V421;object V422;object V423;object V424; |
register object V445;object V446;object V447;object V448; |
1925 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
1926 |
goto TTL; |
goto TTL; |
1927 |
TTL:; |
TTL:; |
1928 |
base[0]=MMcons((V422),Cnil); |
base[0]=MMcons((V446),Cnil); |
1929 |
{object V425; |
{object V449; |
1930 |
V426= (VFUN_NARGS=1,(*(LnkLI22))((V423))); |
V450 = (V447); |
1931 |
V425= (*(LnkLI2))((V423),Cnil,/* INLINE-ARGS */V426); |
V451= (VFUN_NARGS=1,(*(LnkLI22))((V447))); |
1932 |
{object V427; |
V449= (*(LnkLI2))(V450,Cnil,/* INLINE-ARGS */V451); |
1933 |
object V428; |
{object V452; |
1934 |
V427= CMPcadr((V421)); |
object V453; |
1935 |
if(type_of((V427))==t_symbol){ |
V452= CMPcadr((V445)); |
1936 |
|
if(type_of((V452))==t_symbol){ |
1937 |
goto T497;} |
goto T497;} |
1938 |
V428= Cnil; |
V453= Cnil; |
1939 |
goto T496; |
goto T496; |
1940 |
goto T497; |
goto T497; |
1941 |
T497:; |
T497:; |
1942 |
V428= (((((V427))==(Cnil)?Ct:Cnil))==Cnil?Ct:Cnil); |
V453= (((((V452))==(Cnil)?Ct:Cnil))==Cnil?Ct:Cnil); |
1943 |
goto T496; |
goto T496; |
1944 |
T496:; |
T496:; |
1945 |
{object V429; |
{object V454; |
1946 |
object V430; |
object V455; |
1947 |
object V431; |
object V456; |
1948 |
object V432; |
object V457; |
1949 |
if(((V428))==Cnil){ |
if(((V453))==Cnil){ |
1950 |
goto T501;} |
goto T501;} |
1951 |
base[3]= CMPcar((V421)); |
base[3]= CMPcar((V445)); |
1952 |
base[4]= CMPcadr((V421)); |
base[4]= CMPcadr((V445)); |
1953 |
base[5]= CMPcaddr((V421)); |
base[5]= CMPcaddr((V445)); |
1954 |
base[6]= CMPcdddr((V421)); |
base[6]= CMPcdddr((V445)); |
1955 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1956 |
goto T499; |
goto T499; |
1957 |
goto T501; |
goto T501; |
1958 |
T501:; |
T501:; |
1959 |
base[3]= CMPcar((V421)); |
base[3]= CMPcar((V445)); |
1960 |
base[4]= Cnil; |
base[4]= Cnil; |
1961 |
base[5]= CMPcadr((V421)); |
base[5]= CMPcadr((V445)); |
1962 |
base[6]= CMPcddr((V421)); |
base[6]= CMPcddr((V445)); |
1963 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1964 |
goto T499; |
goto T499; |
1965 |
T499:; |
T499:; |
1966 |
if(vs_base>=vs_top){vs_top=sup;goto T511;} |
if(vs_base>=vs_top){vs_top=sup;goto T511;} |
1967 |
V429= vs_base[0]; |
V454= vs_base[0]; |
1968 |
vs_base++; |
vs_base++; |
1969 |
if(vs_base>=vs_top){vs_top=sup;goto T512;} |
if(vs_base>=vs_top){vs_top=sup;goto T512;} |
1970 |
V430= vs_base[0]; |
V455= vs_base[0]; |
1971 |
vs_base++; |
vs_base++; |
1972 |
if(vs_base>=vs_top){vs_top=sup;goto T513;} |
if(vs_base>=vs_top){vs_top=sup;goto T513;} |
1973 |
V431= vs_base[0]; |
V456= vs_base[0]; |
1974 |
vs_base++; |
vs_base++; |
1975 |
if(vs_base>=vs_top){vs_top=sup;goto T514;} |
if(vs_base>=vs_top){vs_top=sup;goto T514;} |
1976 |
V432= vs_base[0]; |
V457= vs_base[0]; |
1977 |
vs_top=sup; |
vs_top=sup; |
1978 |
goto T515; |
goto T515; |
1979 |
goto T511; |
goto T511; |
1980 |
T511:; |
T511:; |
1981 |
V429= Cnil; |
V454= Cnil; |
1982 |
goto T512; |
goto T512; |
1983 |
T512:; |
T512:; |
1984 |
V430= Cnil; |
V455= Cnil; |
1985 |
goto T513; |
goto T513; |
1986 |
T513:; |
T513:; |
1987 |
V431= Cnil; |
V456= Cnil; |
1988 |
goto T514; |
goto T514; |
1989 |
T514:; |
T514:; |
1990 |
V432= Cnil; |
V457= Cnil; |
1991 |
goto T515; |
goto T515; |
1992 |
T515:; |
T515:; |
1993 |
{object V433; |
{object V458; |
1994 |
object V434; |
object V459; |
1995 |
V433= (*(LnkLI109))((V431),(V423),(V425),(base[0]->c.c_car),(V424)); |
V458= (*(LnkLI109))((V456),(V447),(V449),(base[0]->c.c_car),(V448)); |
1996 |
base[5]= (V432); |
base[5]= (V457); |
1997 |
base[6]= |
base[6]= |
1998 |
make_cclosure_new(LC82,Cnil,base[0],Cdata); |
make_cclosure_new(LC82,Cnil,base[0],Cdata); |
1999 |
base[7]= (V425); |
base[7]= (V449); |
2000 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2001 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
2002 |
vs_top=sup; |
vs_top=sup; |
2003 |
V434= vs_base[0]; |
V459= vs_base[0]; |
2004 |
if(((V430))==Cnil){ |
if(((V455))==Cnil){ |
2005 |
goto T522;} |
goto T522;} |
2006 |
{object V435 = (VFUN_NARGS=5,(*(LnkLI105))((V421),(V429),(V430),(V433),(V434))); |
{object V460 = (VFUN_NARGS=5,(*(LnkLI105))((V445),(V454),(V455),(V458),(V459))); |
2007 |
VMR49(V435)} |
VMR49(V460)} |
2008 |
goto T522; |
goto T522; |
2009 |
T522:; |
T522:; |
2010 |
{object V436 = (VFUN_NARGS=4,(*(LnkLI105))((V421),(V429),(V433),(V434))); |
{object V461 = (VFUN_NARGS=4,(*(LnkLI105))((V445),(V454),(V458),(V459))); |
2011 |
VMR49(V436)}}}}} |
VMR49(V461)}}}}} |
2012 |
base[0]=base[0]; |
base[0]=base[0]; |
2013 |
return Cnil; |
return Cnil; |
2014 |
} |
} |
2015 |
/* local entry for function WALK-DODO* */ |
/* local entry for function WALK-DODO* */ |
2016 |
|
|
2017 |
static object LI51(V441,V442,V443,V444) |
static object LI51(V466,V467,V468,V469) |
2018 |
|
|
2019 |
register object V441;object V442;object V443;object V444; |
register object V466;object V467;object V468;object V469; |
2020 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
2021 |
goto TTL; |
goto TTL; |
2022 |
TTL:; |
TTL:; |
2023 |
{register object V445; |
{register object V470; |
2024 |
V446= (VFUN_NARGS=1,(*(LnkLI22))((V443))); |
V471 = (V468); |
2025 |
V445= (*(LnkLI2))((V443),Cnil,/* INLINE-ARGS */V446); |
V472= (VFUN_NARGS=1,(*(LnkLI22))((V468))); |
2026 |
{object V447; |
V470= (*(LnkLI2))(V471,Cnil,/* INLINE-ARGS */V472); |
2027 |
object V448; |
{object V473; |
2028 |
object V449; |
object V474; |
2029 |
object V450; |
object V475; |
2030 |
object V451; |
object V476; |
2031 |
object V452; |
object V477; |
2032 |
V447= CMPcar((V441)); |
object V478; |
2033 |
V448= CMPcadr((V441)); |
V473= CMPcar((V466)); |
2034 |
V449= CMPcaddr((V441)); |
V474= CMPcadr((V466)); |
2035 |
V450= CMPcdddr((V441)); |
V475= CMPcaddr((V466)); |
2036 |
V451= (*(LnkLI109))((V448),(V443),(V445),(V442),(V444)); |
V476= CMPcdddr((V466)); |
2037 |
base[6]= (V450); |
V477= (*(LnkLI109))((V474),(V468),(V470),(V467),(V469)); |
2038 |
|
base[6]= (V476); |
2039 |
base[7]= (VV[98]->s.s_gfdef); |
base[7]= (VV[98]->s.s_gfdef); |
2040 |
base[8]= (V445); |
base[8]= (V470); |
2041 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
2042 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
2043 |
vs_top=sup; |
vs_top=sup; |
2044 |
V452= vs_base[0]; |
V478= vs_base[0]; |
2045 |
V453= (*(LnkLI110))((V448),(V451),(V442),(V445)); |
V479 = (V466); |
2046 |
V454= (*(LnkLI87))((V449),VV[54],(V442),(V445)); |
V480 = (V473); |
2047 |
{object V455 = (VFUN_NARGS=5,(*(LnkLI105))((V441),(V447),/* INLINE-ARGS */V453,/* INLINE-ARGS */V454,(V452))); |
V481= (*(LnkLI110))((V474),(V477),(V467),(V470)); |
2048 |
VMR50(V455)}}} |
V482= (*(LnkLI87))((V475),VV[54],(V467),(V470)); |
2049 |
|
V483 = (V478); |
2050 |
|
{object V484 = (VFUN_NARGS=5,(*(LnkLI105))(V479,V480,/* INLINE-ARGS */V481,/* INLINE-ARGS */V482,V483)); |
2051 |
|
VMR50(V484)}}} |
2052 |
base[0]=base[0]; |
base[0]=base[0]; |
2053 |
return Cnil; |
return Cnil; |
2054 |
} |
} |
2058 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2059 |
register object *sup=base+VM51; VC51 |
register object *sup=base+VM51; VC51 |
2060 |
vs_check; |
vs_check; |
2061 |
{object V456; |
{object V485; |
2062 |
object V457; |
object V486; |
2063 |
object V458; |
object V487; |
2064 |
check_arg(3); |
check_arg(3); |
2065 |
V456=(base[0]); |
V485=(base[0]); |
2066 |
V457=(base[1]); |
V486=(base[1]); |
2067 |
V458=(base[2]); |
V487=(base[2]); |
2068 |
vs_top=sup; |
vs_top=sup; |
2069 |
goto TTL; |
goto TTL; |
2070 |
TTL:; |
TTL:; |
2071 |
{object V459; |
{object V488; |
2072 |
object V460; |
object V489; |
2073 |
object V461; |
object V490; |
2074 |
V459= CMPcadr((V456)); |
V488= CMPcadr((V485)); |
2075 |
V460= CMPcaddr((V456)); |
V489= CMPcaddr((V485)); |
2076 |
V461= CMPcdddr((V456)); |
V490= CMPcdddr((V485)); |
2077 |
{object V463; |
{object V492; |
2078 |
object V464= (V460); |
object V493= (V489); |
2079 |
if(V464==Cnil){ |
if(V493==Cnil){ |
2080 |
V462= Cnil; |
V491= Cnil; |
2081 |
goto T538;} |
goto T538;} |
2082 |
base[4]=V463=MMcons(Cnil,Cnil); |
base[4]=V492=MMcons(Cnil,Cnil); |
2083 |
goto T539; |
goto T539; |
2084 |
T539:; |
T539:; |
2085 |
if(!(type_of((V464->c.c_car))==t_cons||((V464->c.c_car))==Cnil)){ |
if(!(type_of((V493->c.c_car))==t_cons||((V493->c.c_car))==Cnil)){ |
2086 |
goto T542;} |
goto T542;} |
2087 |
(V463->c.c_car)= CMPcar((V464->c.c_car)); |
(V492->c.c_car)= CMPcar((V493->c.c_car)); |
2088 |
goto T540; |
goto T540; |
2089 |
goto T542; |
goto T542; |
2090 |
T542:; |
T542:; |
2091 |
(V463->c.c_car)= (V464->c.c_car); |
(V492->c.c_car)= (V493->c.c_car); |
2092 |
goto T540; |
goto T540; |
2093 |
T540:; |
T540:; |
2094 |
if((V464=MMcdr(V464))==Cnil){ |
if((V493=MMcdr(V493))==Cnil){ |
2095 |
V462= base[4]; |
V491= base[4]; |
2096 |
goto T538;} |
goto T538;} |
2097 |
V463=MMcdr(V463)=MMcons(Cnil,Cnil); |
V492=MMcdr(V492)=MMcons(Cnil,Cnil); |
2098 |
goto T539;} |
goto T539;} |
2099 |
goto T538; |
goto T538; |
2100 |
T538:; |
T538:; |
2101 |
V466= list(2,VV[50],make_cons(VV[29],V462)); |
V495= list(2,VV[50],make_cons(VV[29],V491)); |
2102 |
V467= listA(3,VV[56],Cnil,(V461)); |
V496= listA(3,VV[56],Cnil,(V490)); |
2103 |
V468= make_cons(/* INLINE-ARGS */V467,Cnil); |
V497= make_cons(/* INLINE-ARGS */V496,Cnil); |
2104 |
base[3]= list(4,VV[1],Cnil,/* INLINE-ARGS */V466,list(3,VV[55],/* INLINE-ARGS */V468,list(4,VV[57],(V459),list(3,VV[1],(V460),VV[58]),VV[59]))); |
base[3]= list(4,VV[1],Cnil,/* INLINE-ARGS */V495,list(3,VV[55],/* INLINE-ARGS */V497,list(4,VV[57],(V488),list(3,VV[1],(V489),VV[58]),VV[59]))); |
2105 |
base[4]= (V457); |
base[4]= (V486); |
2106 |
base[5]= (V458); |
base[5]= (V487); |
2107 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2108 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
2109 |
return;} |
return;} |
2111 |
} |
} |
2112 |
/* local entry for function WALK-MULTIPLE-VALUE-SETQ */ |
/* local entry for function WALK-MULTIPLE-VALUE-SETQ */ |
2113 |
|
|
2114 |
static object LI54(V472,V473,V474) |
static object LI54(V501,V502,V503) |
2115 |
|
|
2116 |
register object V472;object V473;object V474; |
register object V501;object V502;object V503; |
2117 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
2118 |
goto TTL; |
goto TTL; |
2119 |
TTL:; |
TTL:; |
2120 |
base[0]=MMcons((V474),Cnil); |
base[0]=MMcons((V503),Cnil); |
2121 |
{object V475; |
{object V504; |
2122 |
V475= CMPcadr((V472)); |
V504= CMPcadr((V501)); |
2123 |
base[1]= |
base[1]= |
2124 |
make_cclosure_new(LC83,Cnil,base[0],Cdata); |
make_cclosure_new(LC83,Cnil,base[0],Cdata); |
2125 |
base[2]= (V475); |
base[2]= (V504); |
2126 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2127 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2128 |
vs_top=sup; |
vs_top=sup; |
2129 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2130 |
goto T548;} |
goto T548;} |
2131 |
{object V476; |
{object V505; |
2132 |
object V477; |
object V506; |
2133 |
object V478; |
object V507; |
2134 |
object V479; |
object V508; |
2135 |
{object V480; |
{object V509; |
2136 |
object V481= (V475); |
object V510= (V504); |
2137 |
if(V481==Cnil){ |
if(V510==Cnil){ |
2138 |
V476= Cnil; |
V505= Cnil; |
2139 |
goto T552;} |
goto T552;} |
2140 |
base[5]=V480=MMcons(Cnil,Cnil); |
base[5]=V509=MMcons(Cnil,Cnil); |
2141 |
goto T553; |
goto T553; |
2142 |
T553:; |
T553:; |
2143 |
vs_base=vs_top; |
vs_base=vs_top; |
2144 |
Lgensym(); |
Lgensym(); |
2145 |
vs_top=sup; |
vs_top=sup; |
2146 |
(V480->c.c_car)= vs_base[0]; |
(V509->c.c_car)= vs_base[0]; |
2147 |
if((V481=MMcdr(V481))==Cnil){ |
if((V510=MMcdr(V510))==Cnil){ |
2148 |
V476= base[5]; |
V505= base[5]; |
2149 |
goto T552;} |
goto T552;} |
2150 |
V480=MMcdr(V480)=MMcons(Cnil,Cnil); |
V509=MMcdr(V509)=MMcons(Cnil,Cnil); |
2151 |
goto T553;} |
goto T553;} |
2152 |
goto T552; |
goto T552; |
2153 |
T552:; |
T552:; |
2154 |
{object V483; |
{object V512; |
2155 |
object V484= (V475); |
object V513= (V504); |
2156 |
object V485= (V476); |
object V514= (V505); |
2157 |
if(V484==Cnil||V485==Cnil){ |
if(V513==Cnil||V514==Cnil){ |
2158 |
V477= Cnil; |
V506= Cnil; |
2159 |
goto T555;} |
goto T555;} |
2160 |
base[5]=V483=MMcons(Cnil,Cnil); |
base[5]=V512=MMcons(Cnil,Cnil); |
2161 |
goto T556; |
goto T556; |
2162 |
T556:; |
T556:; |
2163 |
(V483->c.c_car)= list(3,VV[60],(V484->c.c_car),(V485->c.c_car)); |
(V512->c.c_car)= list(3,VV[60],(V513->c.c_car),(V514->c.c_car)); |
2164 |
if((V484=MMcdr(V484))==Cnil||(V485=MMcdr(V485))==Cnil){ |
if((V513=MMcdr(V513))==Cnil||(V514=MMcdr(V514))==Cnil){ |
2165 |
V477= base[5]; |
V506= base[5]; |
2166 |
goto T555;} |
goto T555;} |
2167 |
V483=MMcdr(V483)=MMcons(Cnil,Cnil); |
V512=MMcdr(V512)=MMcons(Cnil,Cnil); |
2168 |
goto T556;} |
goto T556;} |
2169 |
goto T555; |
goto T555; |
2170 |
T555:; |
T555:; |
2171 |
V478= listA(4,VV[61],(V476),CMPcaddr((V472)),(V477)); |
V507= listA(4,VV[61],(V505),CMPcaddr((V501)),(V506)); |
2172 |
base[5]= (V478); |
base[5]= (V507); |
2173 |
base[6]= (V473); |
base[6]= (V502); |
2174 |
base[7]= (base[0]->c.c_car); |
base[7]= (base[0]->c.c_car); |
2175 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2176 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
2177 |
vs_top=sup; |
vs_top=sup; |
2178 |
V479= vs_base[0]; |
V508= vs_base[0]; |
2179 |
if(!(((V479))==((V478)))){ |
if(!(((V508))==((V507)))){ |
2180 |
goto T564;} |
goto T564;} |
2181 |
{object V488 = (V472); |
{object V517 = (V501); |
2182 |
VMR52(V488)} |
VMR52(V517)} |
2183 |
goto T564; |
goto T564; |
2184 |
T564:; |
T564:; |
2185 |
{object V489 = (V479); |
{object V518 = (V508); |
2186 |
VMR52(V489)}} |
VMR52(V518)}} |
2187 |
goto T548; |
goto T548; |
2188 |
T548:; |
T548:; |
2189 |
{object V490 = (*(LnkLI87))((V472),VV[62],(V473),(base[0]->c.c_car)); |
{object V519 = (*(LnkLI87))((V501),VV[62],(V502),(base[0]->c.c_car)); |
2190 |
VMR52(V490)}} |
VMR52(V519)}} |
2191 |
base[0]=base[0]; |
base[0]=base[0]; |
2192 |
return Cnil; |
return Cnil; |
2193 |
} |
} |
2194 |
/* local entry for function WALK-MULTIPLE-VALUE-BIND */ |
/* local entry for function WALK-MULTIPLE-VALUE-BIND */ |
2195 |
|
|
2196 |
static object LI56(V494,V495,V496) |
static object LI56(V523,V524,V525) |
2197 |
|
|
2198 |
register object V494;object V495;object V496; |
register object V523;object V524;object V525; |
2199 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
2200 |
goto TTL; |
goto TTL; |
2201 |
TTL:; |
TTL:; |
2202 |
base[0]=MMcons((V496),Cnil); |
base[0]=MMcons((V525),Cnil); |
2203 |
base[1]=MMcons((V495),base[0]); |
base[1]=MMcons((V524),base[0]); |
2204 |
V497= (VFUN_NARGS=1,(*(LnkLI22))((base[0]->c.c_car))); |
V526 = (base[0]->c.c_car); |
2205 |
base[2]= (*(LnkLI2))((base[0]->c.c_car),Cnil,/* INLINE-ARGS */V497); |
V527= (VFUN_NARGS=1,(*(LnkLI22))((base[0]->c.c_car))); |
2206 |
|
base[2]= (*(LnkLI2))(V526,Cnil,/* INLINE-ARGS */V527); |
2207 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
2208 |
{object V498; |
{object V528; |
2209 |
object V499; |
object V529; |
2210 |
object V500; |
object V530; |
2211 |
object V501; |
object V531; |
2212 |
V498= CMPcar((V494)); |
V528= CMPcar((V523)); |
2213 |
base[4]= CMPcadr((V494)); |
base[4]= CMPcadr((V523)); |
2214 |
base[4]=MMcons(base[4],base[2]); |
base[4]=MMcons(base[4],base[2]); |
2215 |
V499= (*(LnkLI87))(CMPcaddr((V494)),VV[63],(base[1]->c.c_car),(base[0]->c.c_car)); |
V529= (*(LnkLI87))(CMPcaddr((V523)),VV[63],(base[1]->c.c_car),(base[0]->c.c_car)); |
2216 |
V500= CMPcdddr((V494)); |
V530= CMPcdddr((V523)); |
2217 |
base[7]=MMcons(Cnil,base[4]); |
base[7]=MMcons(Cnil,base[4]); |
2218 |
base[9]= (V500); |
base[9]= (V530); |
2219 |
base[10]= |
base[10]= |
2220 |
make_cclosure_new(LC84,Cnil,base[7],Cdata); |
make_cclosure_new(LC84,Cnil,base[7],Cdata); |
2221 |
base[11]= (base[2]->c.c_car); |
base[11]= (base[2]->c.c_car); |
2222 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
2223 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
2224 |
vs_top=sup; |
vs_top=sup; |
2225 |
V501= vs_base[0]; |
V531= vs_base[0]; |
2226 |
{object V502 = (VFUN_NARGS=5,(*(LnkLI105))((V494),(V498),(base[7]->c.c_car),(V499),(V501))); |
{object V532 = (VFUN_NARGS=5,(*(LnkLI105))((V523),(V528),(base[7]->c.c_car),(V529),(V531))); |
2227 |
VMR53(V502)}} |
VMR53(V532)}} |
2228 |
base[0]=base[0]; |
base[0]=base[0]; |
2229 |
return Cnil; |
return Cnil; |
2230 |
} |
} |
2231 |
/* local entry for function WALK-BINDINGS-1 */ |
/* local entry for function WALK-BINDINGS-1 */ |
2232 |
|
|
2233 |
static object LI57(V508,V509,V510,V511,V512) |
static object LI57(V538,V539,V540,V541,V542) |
2234 |
|
|
2235 |
register object V508;object V509;register object V510;object V511;object V512; |
register object V538;object V539;register object V540;object V541;object V542; |
2236 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
2237 |
goto TTL; |
goto TTL; |
2238 |
TTL:; |
TTL:; |
2239 |
if((V508)==Cnil){ |
if((V538)==Cnil){ |
2240 |
{object V513 = Cnil; |
{object V543 = Cnil; |
2241 |
VMR54(V513)}} |
VMR54(V543)}} |
2242 |
{register object V514; |
{register object V544; |
2243 |
V514= CMPcar((V508)); |
V544= CMPcar((V538)); |
2244 |
if(!(type_of((V514))==t_symbol)){ |
V545 = (V538); |
2245 |
|
if(!(type_of((V544))==t_symbol)){ |
2246 |
goto T578;} |
goto T578;} |
2247 |
(void)((*(LnkLI103))((V514),(V510))); |
(void)((*(LnkLI103))((V544),(V540))); |
2248 |
V515= V514; |
V546= V544; |
2249 |
goto T576; |
goto T576; |
2250 |
goto T578; |
goto T578; |
2251 |
T578:; |
T578:; |
2252 |
{object V517; |
{object V548; |
2253 |
V518= CMPcar((V514)); |
V549 = (V544); |
2254 |
base[0]= CMPcadr((V514)); |
V550= CMPcar((V544)); |
2255 |
base[1]= (V511); |
base[0]= CMPcadr((V544)); |
2256 |
if(((V512))==Cnil){ |
base[1]= (V541); |
2257 |
|
if(((V542))==Cnil){ |
2258 |
goto T587;} |
goto T587;} |
2259 |
base[2]= (V510); |
base[2]= (V540); |
2260 |
goto T585; |
goto T585; |
2261 |
goto T587; |
goto T587; |
2262 |
T587:; |
T587:; |
2263 |
base[2]= (V509); |
base[2]= (V539); |
2264 |
goto T585; |
goto T585; |
2265 |
T585:; |
T585:; |
2266 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2267 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
2268 |
vs_top=sup; |
vs_top=sup; |
2269 |
V519= vs_base[0]; |
V551= vs_base[0]; |
2270 |
V517= (VFUN_NARGS=4,(*(LnkLI105))((V514),/* INLINE-ARGS */V518,V519,CMPcddr((V514)))); |
V548= (VFUN_NARGS=4,(*(LnkLI105))(V549,/* INLINE-ARGS */V550,V551,CMPcddr((V544)))); |
2271 |
(void)((*(LnkLI103))(CMPcar((V514)),(V510))); |
(void)((*(LnkLI103))(CMPcar((V544)),(V540))); |
2272 |
V515= (V517);} |
V546= (V548);} |
2273 |
goto T576; |
goto T576; |
2274 |
T576:; |
T576:; |
2275 |
V520= (*(LnkLI109))(CMPcdr((V508)),(V509),(V510),(V511),(V512)); |
V552= (*(LnkLI109))(CMPcdr((V538)),(V539),(V540),(V541),(V542)); |
2276 |
{object V521 = (*(LnkLI96))((V508),V515,/* INLINE-ARGS */V520); |
{object V553 = (*(LnkLI96))(V545,V546,/* INLINE-ARGS */V552); |
2277 |
VMR54(V521)}} |
VMR54(V553)}} |
2278 |
base[0]=base[0]; |
base[0]=base[0]; |
2279 |
return Cnil; |
return Cnil; |
2280 |
} |
} |
2281 |
/* local entry for function WALK-BINDINGS-2 */ |
/* local entry for function WALK-BINDINGS-2 */ |
2282 |
|
|
2283 |
static object LI58(V526,V527,V528,V529) |
static object LI58(V558,V559,V560,V561) |
2284 |
|
|
2285 |
register object V526;object V527;object V528;object V529; |
register object V558;object V559;object V560;object V561; |
2286 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
2287 |
goto TTL; |
goto TTL; |
2288 |
TTL:; |
TTL:; |
2289 |
if((V526)==Cnil){ |
if((V558)==Cnil){ |
2290 |
{object V530 = Cnil; |
{object V562 = Cnil; |
2291 |
VMR55(V530)}} |
VMR55(V562)}} |
2292 |
{register object V531; |
{register object V563; |
2293 |
object V532; |
object V564; |
2294 |
V531= CMPcar((V526)); |
V563= CMPcar((V558)); |
2295 |
V532= CMPcar((V527)); |
V564= CMPcar((V559)); |
2296 |
if(!(type_of((V531))==t_symbol)){ |
V565 = (V558); |
2297 |
|
if(!(type_of((V563))==t_symbol)){ |
2298 |
goto T594;} |
goto T594;} |
2299 |
V533= (V531); |
V566= (V563); |
2300 |
goto T592; |
goto T592; |
2301 |
goto T594; |
goto T594; |
2302 |
T594:; |
T594:; |
2303 |
V534= CMPcar((V532)); |
V567 = (V563); |
2304 |
V535= CMPcadr((V532)); |
V568= CMPcar((V564)); |
2305 |
V536= (*(LnkLI87))(CMPcddr((V531)),VV[64],(V528),(V529)); |
V569= CMPcadr((V564)); |
2306 |
V533= (VFUN_NARGS=4,(*(LnkLI105))((V531),/* INLINE-ARGS */V534,/* INLINE-ARGS */V535,/* INLINE-ARGS */V536)); |
V570= (*(LnkLI87))(CMPcddr((V563)),VV[64],(V560),(V561)); |
2307 |
|
V566= (VFUN_NARGS=4,(*(LnkLI105))(V567,/* INLINE-ARGS */V568,/* INLINE-ARGS */V569,/* INLINE-ARGS */V570)); |
2308 |
goto T592; |
goto T592; |
2309 |
T592:; |
T592:; |
2310 |
V537= (*(LnkLI110))(CMPcdr((V526)),CMPcdr((V527)),(V528),(V529)); |
V571= (*(LnkLI110))(CMPcdr((V558)),CMPcdr((V559)),(V560),(V561)); |
2311 |
{object V538 = (*(LnkLI96))((V526),V533,/* INLINE-ARGS */V537); |
{object V572 = (*(LnkLI96))(V565,V566,/* INLINE-ARGS */V571); |
2312 |
VMR55(V538)}} |
VMR55(V572)}} |
2313 |
return Cnil; |
return Cnil; |
2314 |
} |
} |
2315 |
/* local entry for function WALK-LAMBDA */ |
/* local entry for function WALK-LAMBDA */ |
2316 |
|
|
2317 |
static object LI59(V542,V543,V544) |
static object LI59(V576,V577,V578) |
2318 |
|
|
2319 |
register object V542;object V543;object V544; |
register object V576;object V577;object V578; |
2320 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
2321 |
goto TTL; |
goto TTL; |
2322 |
TTL:; |
TTL:; |
2323 |
{object V545; |
{object V579; |
2324 |
V546= (VFUN_NARGS=1,(*(LnkLI22))((V544))); |
V580 = (V578); |
2325 |
V545= (*(LnkLI2))((V544),Cnil,/* INLINE-ARGS */V546); |
V581= (VFUN_NARGS=1,(*(LnkLI22))((V578))); |
2326 |
{object V547; |
V579= (*(LnkLI2))(V580,Cnil,/* INLINE-ARGS */V581); |
2327 |
object V548; |
{object V582; |
2328 |
object V549; |
object V583; |
2329 |
object V550; |
object V584; |
2330 |
V547= CMPcadr((V542)); |
object V585; |
2331 |
V548= CMPcddr((V542)); |
V582= CMPcadr((V576)); |
2332 |
V549= (VFUN_NARGS=3,(*(LnkLI104))((V547),(V543),(V545))); |
V583= CMPcddr((V576)); |
2333 |
base[4]= (V548); |
V584= (VFUN_NARGS=3,(*(LnkLI104))((V582),(V577),(V579))); |
2334 |
|
base[4]= (V583); |
2335 |
base[5]= (VV[98]->s.s_gfdef); |
base[5]= (VV[98]->s.s_gfdef); |
2336 |
base[6]= (V545); |
base[6]= (V579); |
2337 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2338 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
2339 |
vs_top=sup; |
vs_top=sup; |
2340 |
V550= vs_base[0]; |
V585= vs_base[0]; |
2341 |
{object V551 = (VFUN_NARGS=4,(*(LnkLI105))((V542),CMPcar((V542)),(V549),(V550))); |
{object V586 = (VFUN_NARGS=4,(*(LnkLI105))((V576),CMPcar((V576)),(V584),(V585))); |
2342 |
VMR56(V551)}}} |
VMR56(V586)}}} |
2343 |
base[0]=base[0]; |
base[0]=base[0]; |
2344 |
return Cnil; |
return Cnil; |
2345 |
} |
} |
2346 |
/* local entry for function WALK-NAMED-LAMBDA */ |
/* local entry for function WALK-NAMED-LAMBDA */ |
2347 |
|
|
2348 |
static object LI60(V555,V556,V557) |
static object LI60(V590,V591,V592) |
2349 |
|
|
2350 |
register object V555;object V556;object V557; |
register object V590;object V591;object V592; |
2351 |
{ VMB57 VMS57 VMV57 |
{ VMB57 VMS57 VMV57 |
2352 |
goto TTL; |
goto TTL; |
2353 |
TTL:; |
TTL:; |
2354 |
{object V558; |
{object V593; |
2355 |
V559= (VFUN_NARGS=1,(*(LnkLI22))((V557))); |
V594 = (V592); |
2356 |
V558= (*(LnkLI2))((V557),Cnil,/* INLINE-ARGS */V559); |
V595= (VFUN_NARGS=1,(*(LnkLI22))((V592))); |
2357 |
{object V560; |
V593= (*(LnkLI2))(V594,Cnil,/* INLINE-ARGS */V595); |
2358 |
object V561; |
{object V596; |
2359 |
object V562; |
object V597; |
2360 |
object V563; |
object V598; |
2361 |
object V564; |
object V599; |
2362 |
V560= CMPcadr((V555)); |
object V600; |
2363 |
V561= CMPcaddr((V555)); |
V596= CMPcadr((V590)); |
2364 |
V562= CMPcdddr((V555)); |
V597= CMPcaddr((V590)); |
2365 |
V563= (VFUN_NARGS=3,(*(LnkLI104))((V561),(V556),(V558))); |
V598= CMPcdddr((V590)); |
2366 |
base[5]= (V562); |
V599= (VFUN_NARGS=3,(*(LnkLI104))((V597),(V591),(V593))); |
2367 |
|
base[5]= (V598); |
2368 |
base[6]= (VV[98]->s.s_gfdef); |
base[6]= (VV[98]->s.s_gfdef); |
2369 |
base[7]= (V558); |
base[7]= (V593); |
2370 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2371 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
2372 |
vs_top=sup; |
vs_top=sup; |
2373 |
V564= vs_base[0]; |
V600= vs_base[0]; |
2374 |
{object V565 = (VFUN_NARGS=5,(*(LnkLI105))((V555),CMPcar((V555)),(V560),(V563),(V564))); |
{object V601 = (VFUN_NARGS=5,(*(LnkLI105))((V590),CMPcar((V590)),(V596),(V599),(V600))); |
2375 |
VMR57(V565)}}} |
VMR57(V601)}}} |
2376 |
base[0]=base[0]; |
base[0]=base[0]; |
2377 |
return Cnil; |
return Cnil; |
2378 |
} |
} |
2379 |
/* local entry for function WALK-SETQ */ |
/* local entry for function WALK-SETQ */ |
2380 |
|
|
2381 |
static object LI61(V569,V570,V571) |
static object LI61(V605,V606,V607) |
2382 |
|
|
2383 |
object V569;object V570;object V571; |
object V605;object V606;object V607; |
2384 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
2385 |
goto TTL; |
goto TTL; |
2386 |
TTL:; |
TTL:; |
2387 |
if((CMPcdddr((V569)))==Cnil){ |
if((CMPcdddr((V605)))==Cnil){ |
2388 |
goto T614;} |
goto T614;} |
2389 |
{object V572; |
{object V608; |
2390 |
object V573; |
object V609; |
2391 |
{register object V574; |
{register object V610; |
2392 |
register object V575; |
register object V611; |
2393 |
V575= CMPcdr((V569)); |
V611= CMPcdr((V605)); |
2394 |
V574= Cnil; |
V610= Cnil; |
2395 |
goto T619; |
goto T619; |
2396 |
T619:; |
T619:; |
2397 |
if(((V575))!=Cnil){ |
if(((V611))!=Cnil){ |
2398 |
goto T621;} |
goto T621;} |
2399 |
V572= nreverse((V574)); |
V608= nreverse((V610)); |
2400 |
goto T616; |
goto T616; |
2401 |
goto T621; |
goto T621; |
2402 |
T621:; |
T621:; |
2403 |
{register object V576; |
{register object V612; |
2404 |
register object V577; |
register object V613; |
2405 |
{register object V578; |
{register object V614; |
2406 |
V578= CMPcar((V575)); |
V614= CMPcar((V611)); |
2407 |
V575= CMPcdr((V575)); |
V611= CMPcdr((V611)); |
2408 |
V576= (V578);} |
V612= (V614);} |
2409 |
{register object V579; |
{register object V615; |
2410 |
V579= CMPcar((V575)); |
V615= CMPcar((V611)); |
2411 |
V575= CMPcdr((V575)); |
V611= CMPcdr((V611)); |
2412 |
V577= (V579);} |
V613= (V615);} |
2413 |
{register object V580; |
{register object V616; |
2414 |
V580= list(3,VV[60],(V576),(V577)); |
V616= list(3,VV[60],(V612),(V613)); |
2415 |
V574= make_cons((V580),(V574));}} |
V610= make_cons((V616),(V610));}} |
2416 |
goto T619;} |
goto T619;} |
2417 |
goto T616; |
goto T616; |
2418 |
T616:; |
T616:; |
2419 |
V573= (*(LnkLI98))((V572),(V571)); |
V609= (*(LnkLI98))((V608),(V607)); |
2420 |
if(!(((V572))==((V573)))){ |
if(!(((V608))==((V609)))){ |
2421 |
goto T637;} |
goto T637;} |
2422 |
{object V581 = (V569); |
{object V617 = (V605); |
2423 |
VMR58(V581)} |
VMR58(V617)} |
2424 |
goto T637; |
goto T637; |
2425 |
T637:; |
T637:; |
2426 |
{object V582 = make_cons(VV[65],(V573)); |
{object V618 = make_cons(VV[65],(V609)); |
2427 |
VMR58(V582)}} |
VMR58(V618)}} |
2428 |
goto T614; |
goto T614; |
2429 |
T614:; |
T614:; |
2430 |
{object V583; |
{object V619; |
2431 |
object V584; |
object V620; |
2432 |
object V585; |
object V621; |
2433 |
V583= CMPcadr((V569)); |
V619= CMPcadr((V605)); |
2434 |
V584= CMPcaddr((V569)); |
V620= CMPcaddr((V605)); |
2435 |
V586= (*(LnkLI85))((V583),(V571)); |
V622= (*(LnkLI85))((V619),(V607)); |
2436 |
V585= CMPcar(/* INLINE-ARGS */V586); |
V621= CMPcar(/* INLINE-ARGS */V622); |
2437 |
if(((V585))==Cnil){ |
if(((V621))==Cnil){ |
2438 |
goto T643;} |
goto T643;} |
2439 |
{object V587; |
{object V623; |
2440 |
object V588; |
object V624; |
2441 |
V587= list(3,VV[35],CMPcddr((V585)),(V584)); |
V623= list(3,VV[35],CMPcddr((V621)),(V620)); |
2442 |
base[5]= (V587); |
base[5]= (V623); |
2443 |
base[6]= (V570); |
base[6]= (V606); |
2444 |
base[7]= (V571); |
base[7]= (V607); |
2445 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2446 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
2447 |
vs_top=sup; |
vs_top=sup; |
2448 |
V588= vs_base[0]; |
V624= vs_base[0]; |
2449 |
if(!(((V587))==((V588)))){ |
if(!(((V623))==((V624)))){ |
2450 |
goto T651;} |
goto T651;} |
2451 |
{object V589 = (V569); |
{object V625 = (V605); |
2452 |
VMR58(V589)} |
VMR58(V625)} |
2453 |
goto T651; |
goto T651; |
2454 |
T651:; |
T651:; |
2455 |
{object V590 = (V588); |
{object V626 = (V624); |
2456 |
VMR58(V590)}} |
VMR58(V626)}} |
2457 |
goto T643; |
goto T643; |
2458 |
T643:; |
T643:; |
2459 |
base[3]= (V583); |
V627 = (V605); |
2460 |
|
base[3]= (V619); |
2461 |
base[4]= VV[48]; |
base[4]= VV[48]; |
2462 |
base[5]= (V571); |
base[5]= (V607); |
2463 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2464 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
2465 |
vs_top=sup; |
vs_top=sup; |
2466 |
V591= vs_base[0]; |
V628= vs_base[0]; |
2467 |
base[3]= (V584); |
base[3]= (V620); |
2468 |
base[4]= VV[44]; |
base[4]= VV[44]; |
2469 |
base[5]= (V571); |
base[5]= (V607); |
2470 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2471 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
2472 |
vs_top=sup; |
vs_top=sup; |
2473 |
V592= vs_base[0]; |
V629= vs_base[0]; |
2474 |
{object V593 = (VFUN_NARGS=4,(*(LnkLI112))((V569),VV[60],V591,V592)); |
{object V630 = (VFUN_NARGS=4,(*(LnkLI112))(V627,VV[60],V628,V629)); |
2475 |
VMR58(V593)}} |
VMR58(V630)}} |
2476 |
base[0]=base[0]; |
base[0]=base[0]; |
2477 |
return Cnil; |
return Cnil; |
2478 |
} |
} |
2479 |
/* local entry for function WALK-SYMBOL-MACROLET */ |
/* local entry for function WALK-SYMBOL-MACROLET */ |
2480 |
|
|
2481 |
static object LI62(V597,V598,V599) |
static object LI62(V634,V635,V636) |
2482 |
|
|
2483 |
object V597;object V598;object V599; |
object V634;object V635;object V636; |
2484 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
2485 |
goto TTL; |
goto TTL; |
2486 |
TTL:; |
TTL:; |
2487 |
{object V600; |
{object V637; |
2488 |
V600= CMPcadr((V597)); |
V637= CMPcadr((V634)); |
2489 |
{object V601; |
{object V638; |
2490 |
{object V603; |
V639 = (V636); |
2491 |
object V604= (V600); |
{object V641; |
2492 |
if(V604==Cnil){ |
object V642= (V637); |
2493 |
V602= Cnil; |
if(V642==Cnil){ |
2494 |
|
V640= Cnil; |
2495 |
goto T663;} |
goto T663;} |
2496 |
base[1]=V603=MMcons(Cnil,Cnil); |
base[1]=V641=MMcons(Cnil,Cnil); |
2497 |
goto T664; |
goto T664; |
2498 |
T664:; |
T664:; |
2499 |
(V603->c.c_car)= listA(3,CMPcar((V604->c.c_car)),VV[26],CMPcadr((V604->c.c_car))); |
(V641->c.c_car)= listA(3,CMPcar((V642->c.c_car)),VV[26],CMPcadr((V642->c.c_car))); |
2500 |
if((V604=MMcdr(V604))==Cnil){ |
if((V642=MMcdr(V642))==Cnil){ |
2501 |
V602= base[1]; |
V640= base[1]; |
2502 |
goto T663;} |
goto T663;} |
2503 |
V603=MMcdr(V603)=MMcons(Cnil,Cnil); |
V641=MMcdr(V641)=MMcons(Cnil,Cnil); |
2504 |
goto T664;} |
goto T664;} |
2505 |
goto T663; |
goto T663; |
2506 |
T663:; |
T663:; |
2507 |
V606= (*(LnkLI73))((V599)); |
V644= (*(LnkLI73))((V636)); |
2508 |
V607= append(V602,/* INLINE-ARGS */V606); |
V645= append(V640,/* INLINE-ARGS */V644); |
2509 |
V608= (VFUN_NARGS=3,(*(LnkLI22))((V599),VV[66],/* INLINE-ARGS */V607)); |
V646= (VFUN_NARGS=3,(*(LnkLI22))((V636),VV[66],/* INLINE-ARGS */V645)); |
2510 |
V601= (*(LnkLI2))((V599),Cnil,/* INLINE-ARGS */V608); |
V638= (*(LnkLI2))(V639,Cnil,/* INLINE-ARGS */V646); |
2511 |
V609= (*(LnkLI98))(CMPcddr((V597)),(V601)); |
V647 = (V634); |
2512 |
{object V610 = (VFUN_NARGS=4,(*(LnkLI105))((V597),VV[67],(V600),/* INLINE-ARGS */V609)); |
V648 = (V637); |
2513 |
VMR59(V610)}}} |
V649= (*(LnkLI98))(CMPcddr((V634)),(V638)); |
2514 |
|
{object V650 = (VFUN_NARGS=4,(*(LnkLI105))(V647,VV[67],V648,/* INLINE-ARGS */V649)); |
2515 |
|
VMR59(V650)}}} |
2516 |
base[0]=base[0]; |
base[0]=base[0]; |
2517 |
return Cnil; |
return Cnil; |
2518 |
} |
} |
2519 |
/* local entry for function WALK-TAGBODY */ |
/* local entry for function WALK-TAGBODY */ |
2520 |
|
|
2521 |
static object LI63(V614,V615,V616) |
static object LI63(V654,V655,V656) |
2522 |
|
|
2523 |
object V614;object V615;object V616; |
object V654;object V655;object V656; |
2524 |
{ VMB60 VMS60 VMV60 |
{ VMB60 VMS60 VMV60 |
2525 |
goto TTL; |
goto TTL; |
2526 |
TTL:; |
TTL:; |
2527 |
V617= CMPcar((V614)); |
V657 = (V654); |
2528 |
V618= (*(LnkLI113))(CMPcdr((V614)),(V615),(V616)); |
V658= CMPcar((V654)); |
2529 |
{object V619 = (*(LnkLI96))((V614),/* INLINE-ARGS */V617,/* INLINE-ARGS */V618); |
V659= (*(LnkLI113))(CMPcdr((V654)),(V655),(V656)); |
2530 |
VMR60(V619)} |
{object V660 = (*(LnkLI96))(V657,/* INLINE-ARGS */V658,/* INLINE-ARGS */V659); |
2531 |
|
VMR60(V660)} |
2532 |
return Cnil; |
return Cnil; |
2533 |
} |
} |
2534 |
/* local entry for function WALK-TAGBODY-1 */ |
/* local entry for function WALK-TAGBODY-1 */ |
2535 |
|
|
2536 |
static object LI64(V623,V624,V625) |
static object LI64(V664,V665,V666) |
2537 |
|
|
2538 |
register object V623;object V624;object V625; |
register object V664;object V665;object V666; |
2539 |
{ VMB61 VMS61 VMV61 |
{ VMB61 VMS61 VMV61 |
2540 |
goto TTL; |
goto TTL; |
2541 |
TTL:; |
TTL:; |
2542 |
if((V623)==Cnil){ |
if((V664)==Cnil){ |
2543 |
{object V626 = Cnil; |
{object V667 = Cnil; |
2544 |
VMR61(V626)}} |
VMR61(V667)}} |
2545 |
base[0]= CMPcar((V623)); |
V668 = (V664); |
2546 |
if(!(type_of(CMPcar((V623)))==t_symbol)){ |
base[0]= CMPcar((V664)); |
2547 |
|
if(!(type_of(CMPcar((V664)))==t_symbol)){ |
2548 |
goto T670;} |
goto T670;} |
2549 |
base[1]= VV[37]; |
base[1]= VV[37]; |
2550 |
goto T668; |
goto T668; |
2551 |
goto T670; |
goto T670; |
2552 |
T670:; |
T670:; |
2553 |
base[1]= (V624); |
base[1]= (V665); |
2554 |
goto T668; |
goto T668; |
2555 |
T668:; |
T668:; |
2556 |
base[2]= (V625); |
base[2]= (V666); |
2557 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2558 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
2559 |
vs_top=sup; |
vs_top=sup; |
2560 |
V627= vs_base[0]; |
V669= vs_base[0]; |
2561 |
V628= (*(LnkLI113))(CMPcdr((V623)),(V624),(V625)); |
V670= (*(LnkLI113))(CMPcdr((V664)),(V665),(V666)); |
2562 |
{object V629 = (*(LnkLI96))((V623),V627,/* INLINE-ARGS */V628); |
{object V671 = (*(LnkLI96))(V668,V669,/* INLINE-ARGS */V670); |
2563 |
VMR61(V629)} |
VMR61(V671)} |
2564 |
base[0]=base[0]; |
base[0]=base[0]; |
2565 |
return Cnil; |
return Cnil; |
2566 |
} |
} |
2567 |
/* local entry for function WALK-COMPILER-LET */ |
/* local entry for function WALK-COMPILER-LET */ |
2568 |
|
|
2569 |
static object LI65(V633,V634,V635) |
static object LI65(V675,V676,V677) |
2570 |
|
|
2571 |
object V633;object V634;object V635; |
object V675;object V676;object V677; |
2572 |
{ VMB62 VMS62 VMV62 |
{ VMB62 VMS62 VMV62 |
2573 |
goto TTL; |
goto TTL; |
2574 |
TTL:; |
TTL:; |
2575 |
{register object V636; |
{register object V678; |
2576 |
register object V637; |
register object V679; |
2577 |
V636= Cnil; |
V678= Cnil; |
2578 |
V637= Cnil; |
V679= Cnil; |
2579 |
{register object V638; |
{register object V680; |
2580 |
register object V639; |
register object V681; |
2581 |
V638= CMPcadr((V633)); |
V680= CMPcadr((V675)); |
2582 |
V639= CMPcar((V638)); |
V681= CMPcar((V680)); |
2583 |
goto T677; |
goto T677; |
2584 |
T677:; |
T677:; |
2585 |
if(!(((V638))==Cnil)){ |
if(!(((V680))==Cnil)){ |
2586 |
goto T678;} |
goto T678;} |
2587 |
goto T673; |
goto T673; |
2588 |
goto T678; |
goto T678; |
2589 |
T678:; |
T678:; |
2590 |
if(!(type_of((V639))==t_symbol)){ |
if(!(type_of((V681))==t_symbol)){ |
2591 |
goto T684;} |
goto T684;} |
2592 |
{register object V640; |
{register object V682; |
2593 |
V640= (V639); |
V682= (V681); |
2594 |
V636= make_cons((V640),(V636));} |
V678= make_cons((V682),(V678));} |
2595 |
{register object V641; |
{register object V683; |
2596 |
V641= Cnil; |
V683= Cnil; |
2597 |
V637= make_cons((V641),(V637)); |
V679= make_cons((V683),(V679)); |
2598 |
goto T682;} |
goto T682;} |
2599 |
goto T684; |
goto T684; |
2600 |
T684:; |
T684:; |
2601 |
{register object V642; |
{register object V684; |
2602 |
V642= CMPcar((V639)); |
V684= CMPcar((V681)); |
2603 |
V636= make_cons((V642),(V636));} |
V678= make_cons((V684),(V678));} |
2604 |
{register object V643; |
{register object V685; |
2605 |
base[3]= CMPcadr((V639)); |
base[3]= CMPcadr((V681)); |
2606 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2607 |
Leval(); |
Leval(); |
2608 |
vs_top=sup; |
vs_top=sup; |
2609 |
V643= vs_base[0]; |
V685= vs_base[0]; |
2610 |
V637= make_cons((V643),(V637));} |
V679= make_cons((V685),(V679));} |
2611 |
goto T682; |
goto T682; |
2612 |
T682:; |
T682:; |
2613 |
V638= CMPcdr((V638)); |
V680= CMPcdr((V680)); |
2614 |
V639= CMPcar((V638)); |
V681= CMPcar((V680)); |
2615 |
goto T677;} |
goto T677;} |
2616 |
goto T673; |
goto T673; |
2617 |
T673:; |
T673:; |
2618 |
V644= CMPcar((V633)); |
V686 = (V675); |
2619 |
V645= CMPcadr((V633)); |
V687= CMPcar((V675)); |
2620 |
|
V688= CMPcadr((V675)); |
2621 |
{object symbols,values; |
{object symbols,values; |
2622 |
bds_ptr V647=bds_top; |
bds_ptr V690=bds_top; |
2623 |
base[0]= (V636); |
base[0]= (V678); |
2624 |
symbols= base[0]; |
symbols= base[0]; |
2625 |
base[1]= (V637); |
base[1]= (V679); |
2626 |
values= base[1]; |
values= base[1]; |
2627 |
while(!endp(symbols)){ |
while(!endp(symbols)){ |
2628 |
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
2629 |
else{bds_bind(MMcar(symbols),MMcar(values)); |
else{bds_bind(MMcar(symbols),MMcar(values)); |
2630 |
values=MMcdr(values);} |
values=MMcdr(values);} |
2631 |
symbols=MMcdr(symbols);} |
symbols=MMcdr(symbols);} |
2632 |
V648= (*(LnkLI98))(CMPcddr((V633)),(V635)); |
V691= (*(LnkLI98))(CMPcddr((V675)),(V677)); |
2633 |
bds_unwind(V647); |
bds_unwind(V690); |
2634 |
V646= V648;} |
V689= V691;} |
2635 |
{object V649 = (VFUN_NARGS=4,(*(LnkLI105))((V633),/* INLINE-ARGS */V644,/* INLINE-ARGS */V645,V646)); |
{object V692 = (VFUN_NARGS=4,(*(LnkLI105))(V686,/* INLINE-ARGS */V687,/* INLINE-ARGS */V688,V689)); |
2636 |
VMR62(V649)}} |
VMR62(V692)}} |
2637 |
base[0]=base[0]; |
base[0]=base[0]; |
2638 |
return Cnil; |
return Cnil; |
2639 |
} |
} |
2640 |
/* local entry for function WALK-MACROLET */ |
/* local entry for function WALK-MACROLET */ |
2641 |
|
|
2642 |
static object LI68(V653,V654,V655) |
static object LI68(V696,V697,V698) |
2643 |
|
|
2644 |
object V653;object V654;object V655; |
object V696;object V697;object V698; |
2645 |
{ VMB63 VMS63 VMV63 |
{ VMB63 VMS63 VMV63 |
2646 |
goto TTL; |
goto TTL; |
2647 |
TTL:; |
TTL:; |
2648 |
base[0]= (V654); |
base[0]= (V697); |
2649 |
V656= (*(LnkLI84))((V655)); |
V699= (*(LnkLI84))((V698)); |
2650 |
V657= (VFUN_NARGS=3,(*(LnkLI22))(Cnil,VV[43],/* INLINE-ARGS */V656)); |
V700= (VFUN_NARGS=3,(*(LnkLI22))(Cnil,VV[43],/* INLINE-ARGS */V699)); |
2651 |
base[1]= (*(LnkLI2))(Cnil,Cnil,/* INLINE-ARGS */V657); |
base[1]= (*(LnkLI2))(Cnil,Cnil,/* INLINE-ARGS */V700); |
2652 |
{register object V658; |
{register object V701; |
2653 |
register object V659; |
register object V702; |
2654 |
V658= Cnil; |
V701= Cnil; |
2655 |
V659= Cnil; |
V702= Cnil; |
2656 |
{object V660= CMPcar((V653)); |
{object V703= CMPcar((V696)); |
2657 |
if((V660!= VV[55]) |
if((V703!= VV[55]) |
2658 |
&& (V660!= VV[114]))goto T707; |
&& (V703!= VV[114]))goto T707; |
2659 |
{register object V661; |
{register object V704; |
2660 |
register object V662; |
register object V705; |
2661 |
V661= CMPcadr((V653)); |
V704= CMPcadr((V696)); |
2662 |
V662= CMPcar((V661)); |
V705= CMPcar((V704)); |
2663 |
goto T711; |
goto T711; |
2664 |
T711:; |
T711:; |
2665 |
if(!(((V661))==Cnil)){ |
if(!(((V704))==Cnil)){ |
2666 |
goto T712;} |
goto T712;} |
2667 |
goto T706; |
goto T706; |
2668 |
goto T712; |
goto T712; |
2669 |
T712:; |
T712:; |
2670 |
V658= make_cons(V662,(V658)); |
V701= make_cons(V705,(V701)); |
2671 |
V661= CMPcdr((V661)); |
V704= CMPcdr((V704)); |
2672 |
V662= CMPcar((V661)); |
V705= CMPcar((V704)); |
2673 |
goto T711;} |
goto T711;} |
2674 |
goto T707; |
goto T707; |
2675 |
T707:; |
T707:; |
2676 |
if((V660!= VV[115]))goto T723; |
if((V703!= VV[115]))goto T723; |
2677 |
{register object V664; |
{register object V707; |
2678 |
register object V665; |
register object V708; |
2679 |
V664= CMPcadr((V653)); |
V707= CMPcadr((V696)); |
2680 |
V665= CMPcar((V664)); |
V708= CMPcar((V707)); |
2681 |
goto T727; |
goto T727; |
2682 |
T727:; |
T727:; |
2683 |
if(!(((V664))==Cnil)){ |
if(!(((V707))==Cnil)){ |
2684 |
goto T728;} |
goto T728;} |
2685 |
goto T706; |
goto T706; |
2686 |
goto T728; |
goto T728; |
2687 |
T728:; |
T728:; |
2688 |
{object V666; |
{object V709; |
2689 |
V667= CMPcar((V665)); |
V710= CMPcar((V708)); |
2690 |
V668= CMPcadr((V665)); |
V711= CMPcadr((V708)); |
2691 |
V669= CMPcddr((V665)); |
V712= CMPcddr((V708)); |
2692 |
V670= coerce_to_string(CMPcar((V665))); |
V713= coerce_to_string(CMPcar((V708))); |
2693 |
V666= list(2,/* INLINE-ARGS */V667,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V668,/* INLINE-ARGS */V669,/* INLINE-ARGS */V670))); |
V709= list(2,/* INLINE-ARGS */V710,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V711,/* INLINE-ARGS */V712,/* INLINE-ARGS */V713))); |
2694 |
V659= make_cons((V666),(V659));} |
V702= make_cons((V709),(V702));} |
2695 |
V664= CMPcdr((V664)); |
V707= CMPcdr((V707)); |
2696 |
V665= CMPcar((V664)); |
V708= CMPcar((V707)); |
2697 |
goto T727;} |
goto T727;} |
2698 |
goto T723; |
goto T723; |
2699 |
T723:; |
T723:; |
2700 |
FEerror("The ECASE key value ~s is illegal.",1,V660); |
FEerror("The ECASE key value ~s is illegal.",1,V703); |
2701 |
goto T706;} |
goto T706;} |
2702 |
goto T706; |
goto T706; |
2703 |
T706:; |
T706:; |
2704 |
{object V671; |
{object V714; |
2705 |
V671= (*(LnkLI2))((V655),(V658),(V659)); |
V714= (*(LnkLI2))((V698),(V701),(V702)); |
2706 |
V672= CMPcar((V653)); |
V715 = (V696); |
2707 |
base[2]= CMPcadr((V653)); |
V716= CMPcar((V696)); |
2708 |
|
base[2]= CMPcadr((V696)); |
2709 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2710 |
L69(base); |
L69(base); |
2711 |
vs_top=sup; |
vs_top=sup; |
2712 |
V673= vs_base[0]; |
V717= vs_base[0]; |
2713 |
base[2]= CMPcddr((V653)); |
base[2]= CMPcddr((V696)); |
2714 |
base[3]= (VV[98]->s.s_gfdef); |
base[3]= (VV[98]->s.s_gfdef); |
2715 |
base[4]= (V671); |
base[4]= (V714); |
2716 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2717 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
2718 |
vs_top=sup; |
vs_top=sup; |
2719 |
V674= vs_base[0]; |
V718= vs_base[0]; |
2720 |
{object V675 = (VFUN_NARGS=4,(*(LnkLI105))((V653),/* INLINE-ARGS */V672,V673,V674)); |
{object V719 = (VFUN_NARGS=4,(*(LnkLI105))(V715,/* INLINE-ARGS */V716,V717,V718)); |
2721 |
VMR63(V675)}}} |
VMR63(V719)}}} |
2722 |
base[0]=base[0]; |
base[0]=base[0]; |
2723 |
return Cnil; |
return Cnil; |
2724 |
} |
} |
2725 |
/* local entry for function WALK-FLET */ |
/* local entry for function WALK-FLET */ |
2726 |
|
|
2727 |
static object LI72(V679,V680,V681) |
static object LI72(V723,V724,V725) |
2728 |
|
|
2729 |
object V679;object V680;object V681; |
object V723;object V724;object V725; |
2730 |
{ VMB64 VMS64 VMV64 |
{ VMB64 VMS64 VMV64 |
2731 |
goto TTL; |
goto TTL; |
2732 |
TTL:; |
TTL:; |
2733 |
base[0]= (V681); |
base[0]= (V725); |
2734 |
base[1]= (V680); |
base[1]= (V724); |
2735 |
V682= CMPcar((V679)); |
V726 = (V723); |
2736 |
V683= CMPcdr((V679)); |
V727= CMPcar((V723)); |
2737 |
base[2]= CMPcadr((V679)); |
V728= CMPcdr((V723)); |
2738 |
|
base[2]= CMPcadr((V723)); |
2739 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2740 |
L73(base); |
L73(base); |
2741 |
vs_top=sup; |
vs_top=sup; |
2742 |
V684= vs_base[0]; |
V729= vs_base[0]; |
2743 |
{register object V686; |
{register object V731; |
2744 |
register object V687; |
register object V732; |
2745 |
V686= Cnil; |
V731= Cnil; |
2746 |
V687= Cnil; |
V732= Cnil; |
2747 |
{object V688= CMPcar((V679)); |
{object V733= CMPcar((V723)); |
2748 |
if((V688!= VV[55]) |
if((V733!= VV[55]) |
2749 |
&& (V688!= VV[114]))goto T751; |
&& (V733!= VV[114]))goto T751; |
2750 |
{register object V689; |
{register object V734; |
2751 |
register object V690; |
register object V735; |
2752 |
V689= CMPcadr((V679)); |
V734= CMPcadr((V723)); |
2753 |
V690= CMPcar((V689)); |
V735= CMPcar((V734)); |
2754 |
goto T755; |
goto T755; |
2755 |
T755:; |
T755:; |
2756 |
if(!(((V689))==Cnil)){ |
if(!(((V734))==Cnil)){ |
2757 |
goto T756;} |
goto T756;} |
2758 |
goto T750; |
goto T750; |
2759 |
goto T756; |
goto T756; |
2760 |
T756:; |
T756:; |
2761 |
V686= make_cons(V690,(V686)); |
V731= make_cons(V735,(V731)); |
2762 |
V689= CMPcdr((V689)); |
V734= CMPcdr((V734)); |
2763 |
V690= CMPcar((V689)); |
V735= CMPcar((V734)); |
2764 |
goto T755;} |
goto T755;} |
2765 |
goto T751; |
goto T751; |
2766 |
T751:; |
T751:; |
2767 |
if((V688!= VV[115]))goto T767; |
if((V733!= VV[115]))goto T767; |
2768 |
{register object V692; |
{register object V737; |
2769 |
register object V693; |
register object V738; |
2770 |
V692= CMPcadr((V679)); |
V737= CMPcadr((V723)); |
2771 |
V693= CMPcar((V692)); |
V738= CMPcar((V737)); |
2772 |
goto T771; |
goto T771; |
2773 |
T771:; |
T771:; |
2774 |
if(!(((V692))==Cnil)){ |
if(!(((V737))==Cnil)){ |
2775 |
goto T772;} |
goto T772;} |
2776 |
goto T750; |
goto T750; |
2777 |
goto T772; |
goto T772; |
2778 |
T772:; |
T772:; |
2779 |
{object V694; |
{object V739; |
2780 |
V695= CMPcar((V693)); |
V740= CMPcar((V738)); |
2781 |
V696= CMPcadr((V693)); |
V741= CMPcadr((V738)); |
2782 |
V697= CMPcddr((V693)); |
V742= CMPcddr((V738)); |
2783 |
V698= coerce_to_string(CMPcar((V693))); |
V743= coerce_to_string(CMPcar((V738))); |
2784 |
V694= list(2,/* INLINE-ARGS */V695,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V696,/* INLINE-ARGS */V697,/* INLINE-ARGS */V698))); |
V739= list(2,/* INLINE-ARGS */V740,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V741,/* INLINE-ARGS */V742,/* INLINE-ARGS */V743))); |
2785 |
V687= make_cons((V694),(V687));} |
V732= make_cons((V739),(V732));} |
2786 |
V692= CMPcdr((V692)); |
V737= CMPcdr((V737)); |
2787 |
V693= CMPcar((V692)); |
V738= CMPcar((V737)); |
2788 |
goto T771;} |
goto T771;} |
2789 |
goto T767; |
goto T767; |
2790 |
T767:; |
T767:; |
2791 |
FEerror("The ECASE key value ~s is illegal.",1,V688); |
FEerror("The ECASE key value ~s is illegal.",1,V733); |
2792 |
goto T750;} |
goto T750;} |
2793 |
goto T750; |
goto T750; |
2794 |
T750:; |
T750:; |
2795 |
{object V699; |
{object V744; |
2796 |
V699= (*(LnkLI2))(base[0],(V686),(V687)); |
V744= (*(LnkLI2))(base[0],(V731),(V732)); |
2797 |
base[2]= CMPcddr((V679)); |
base[2]= CMPcddr((V723)); |
2798 |
base[3]= (VV[98]->s.s_gfdef); |
base[3]= (VV[98]->s.s_gfdef); |
2799 |
base[4]= (V699); |
base[4]= (V744); |
2800 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2801 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
2802 |
vs_top=sup; |
vs_top=sup; |
2803 |
V685= vs_base[0];}} |
V730= vs_base[0];}} |
2804 |
V700= (*(LnkLI96))(/* INLINE-ARGS */V683,V684,V685); |
V745= (*(LnkLI96))(/* INLINE-ARGS */V728,V729,V730); |
2805 |
{object V701 = (*(LnkLI96))((V679),/* INLINE-ARGS */V682,/* INLINE-ARGS */V700); |
{object V746 = (*(LnkLI96))(V726,/* INLINE-ARGS */V727,/* INLINE-ARGS */V745); |
2806 |
VMR64(V701)} |
VMR64(V746)} |
2807 |
base[0]=base[0]; |
base[0]=base[0]; |
2808 |
return Cnil; |
return Cnil; |
2809 |
} |
} |
2810 |
/* local entry for function WALK-LABELS */ |
/* local entry for function WALK-LABELS */ |
2811 |
|
|
2812 |
static object LI76(V705,V706,V707) |
static object LI76(V750,V751,V752) |
2813 |
|
|
2814 |
object V705;object V706;object V707; |
object V750;object V751;object V752; |
2815 |
{ VMB65 VMS65 VMV65 |
{ VMB65 VMS65 VMV65 |
2816 |
goto TTL; |
goto TTL; |
2817 |
TTL:; |
TTL:; |
2818 |
base[0]= (V706); |
base[0]= (V751); |
2819 |
{register object V708; |
{register object V753; |
2820 |
register object V709; |
register object V754; |
2821 |
V708= Cnil; |
V753= Cnil; |
2822 |
V709= Cnil; |
V754= Cnil; |
2823 |
{object V710= CMPcar((V705)); |
{object V755= CMPcar((V750)); |
2824 |
if((V710!= VV[55]) |
if((V755!= VV[55]) |
2825 |
&& (V710!= VV[114]))goto T789; |
&& (V755!= VV[114]))goto T789; |
2826 |
{register object V711; |
{register object V756; |
2827 |
register object V712; |
register object V757; |
2828 |
V711= CMPcadr((V705)); |
V756= CMPcadr((V750)); |
2829 |
V712= CMPcar((V711)); |
V757= CMPcar((V756)); |
2830 |
goto T793; |
goto T793; |
2831 |
T793:; |
T793:; |
2832 |
if(!(((V711))==Cnil)){ |
if(!(((V756))==Cnil)){ |
2833 |
goto T794;} |
goto T794;} |
2834 |
goto T788; |
goto T788; |
2835 |
goto T794; |
goto T794; |
2836 |
T794:; |
T794:; |
2837 |
V708= make_cons(V712,(V708)); |
V753= make_cons(V757,(V753)); |
2838 |
V711= CMPcdr((V711)); |
V756= CMPcdr((V756)); |
2839 |
V712= CMPcar((V711)); |
V757= CMPcar((V756)); |
2840 |
goto T793;} |
goto T793;} |
2841 |
goto T789; |
goto T789; |
2842 |
T789:; |
T789:; |
2843 |
if((V710!= VV[115]))goto T805; |
if((V755!= VV[115]))goto T805; |
2844 |
{register object V714; |
{register object V759; |
2845 |
register object V715; |
register object V760; |
2846 |
V714= CMPcadr((V705)); |
V759= CMPcadr((V750)); |
2847 |
V715= CMPcar((V714)); |
V760= CMPcar((V759)); |
2848 |
goto T809; |
goto T809; |
2849 |
T809:; |
T809:; |
2850 |
if(!(((V714))==Cnil)){ |
if(!(((V759))==Cnil)){ |
2851 |
goto T810;} |
goto T810;} |
2852 |
goto T788; |
goto T788; |
2853 |
goto T810; |
goto T810; |
2854 |
T810:; |
T810:; |
2855 |
{object V716; |
{object V761; |
2856 |
V717= CMPcar((V715)); |
V762= CMPcar((V760)); |
2857 |
V718= CMPcadr((V715)); |
V763= CMPcadr((V760)); |
2858 |
V719= CMPcddr((V715)); |
V764= CMPcddr((V760)); |
2859 |
V720= coerce_to_string(CMPcar((V715))); |
V765= coerce_to_string(CMPcar((V760))); |
2860 |
V716= list(2,/* INLINE-ARGS */V717,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V718,/* INLINE-ARGS */V719,/* INLINE-ARGS */V720))); |
V761= list(2,/* INLINE-ARGS */V762,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V763,/* INLINE-ARGS */V764,/* INLINE-ARGS */V765))); |
2861 |
V709= make_cons((V716),(V709));} |
V754= make_cons((V761),(V754));} |
2862 |
V714= CMPcdr((V714)); |
V759= CMPcdr((V759)); |
2863 |
V715= CMPcar((V714)); |
V760= CMPcar((V759)); |
2864 |
goto T809;} |
goto T809;} |
2865 |
goto T805; |
goto T805; |
2866 |
T805:; |
T805:; |
2867 |
FEerror("The ECASE key value ~s is illegal.",1,V710); |
FEerror("The ECASE key value ~s is illegal.",1,V755); |
2868 |
goto T788;} |
goto T788;} |
2869 |
goto T788; |
goto T788; |
2870 |
T788:; |
T788:; |
2871 |
base[1]= (*(LnkLI2))((V707),(V708),(V709)); |
base[1]= (*(LnkLI2))((V752),(V753),(V754)); |
2872 |
V721= CMPcar((V705)); |
V766 = (V750); |
2873 |
V722= CMPcdr((V705)); |
V767= CMPcar((V750)); |
2874 |
base[2]= CMPcadr((V705)); |
V768= CMPcdr((V750)); |
2875 |
|
base[2]= CMPcadr((V750)); |
2876 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2877 |
L77(base); |
L77(base); |
2878 |
vs_top=sup; |
vs_top=sup; |
2879 |
V723= vs_base[0]; |
V769= vs_base[0]; |
2880 |
base[2]= CMPcddr((V705)); |
base[2]= CMPcddr((V750)); |
2881 |
base[3]= (VV[98]->s.s_gfdef); |
base[3]= (VV[98]->s.s_gfdef); |
2882 |
base[4]= base[1]; |
base[4]= base[1]; |
2883 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2884 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
2885 |
vs_top=sup; |
vs_top=sup; |
2886 |
V724= vs_base[0]; |
V770= vs_base[0]; |
2887 |
V725= (*(LnkLI96))(/* INLINE-ARGS */V722,V723,V724); |
V771= (*(LnkLI96))(/* INLINE-ARGS */V768,V769,V770); |
2888 |
{object V726 = (*(LnkLI96))((V705),/* INLINE-ARGS */V721,/* INLINE-ARGS */V725); |
{object V772 = (*(LnkLI96))(V766,/* INLINE-ARGS */V767,/* INLINE-ARGS */V771); |
2889 |
VMR65(V726)}} |
VMR65(V772)}} |
2890 |
base[0]=base[0]; |
base[0]=base[0]; |
2891 |
return Cnil; |
return Cnil; |
2892 |
} |
} |
2893 |
/* local entry for function WALK-IF */ |
/* local entry for function WALK-IF */ |
2894 |
|
|
2895 |
static object LI78(V730,V731,V732) |
static object LI78(V776,V777,V778) |
2896 |
|
|
2897 |
register object V730;object V731;object V732; |
register object V776;object V777;object V778; |
2898 |
{ VMB66 VMS66 VMV66 |
{ VMB66 VMS66 VMV66 |
2899 |
goto TTL; |
goto TTL; |
2900 |
TTL:; |
TTL:; |
2901 |
{object V733; |
{object V779; |
2902 |
object V734; |
object V780; |
2903 |
object V735; |
object V781; |
2904 |
V733= CMPcadr((V730)); |
V779= CMPcadr((V776)); |
2905 |
V734= CMPcaddr((V730)); |
V780= CMPcaddr((V776)); |
2906 |
if((CMPcddddr((V730)))==Cnil){ |
if((CMPcddddr((V776)))==Cnil){ |
2907 |
goto T833;} |
goto T833;} |
2908 |
base[0]= VV[68]; |
base[0]= VV[68]; |
2909 |
base[1]= (V730); |
base[1]= (V776); |
2910 |
base[2]= CMPmake_fixnum((long)length(CMPcdr((V730)))); |
base[2]= CMPmake_fixnum((long)length(CMPcdr((V776)))); |
2911 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2912 |
(void) (*Lnk102)(); |
(void) (*Lnk102)(); |
2913 |
vs_top=sup; |
vs_top=sup; |
2914 |
V735= make_cons(VV[65],CMPcdddr((V730))); |
V781= make_cons(VV[65],CMPcdddr((V776))); |
2915 |
goto T831; |
goto T831; |
2916 |
goto T833; |
goto T833; |
2917 |
T833:; |
T833:; |
2918 |
V735= CMPcadddr((V730)); |
V781= CMPcadddr((V776)); |
2919 |
goto T831; |
goto T831; |
2920 |
T831:; |
T831:; |
2921 |
base[0]= (V733); |
V782 = (V776); |
2922 |
base[1]= (V731); |
base[0]= (V779); |
2923 |
base[2]= (V732); |
base[1]= (V777); |
2924 |
|
base[2]= (V778); |
2925 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2926 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
2927 |
vs_top=sup; |
vs_top=sup; |
2928 |
V736= vs_base[0]; |
V783= vs_base[0]; |
2929 |
base[0]= (V734); |
base[0]= (V780); |
2930 |
base[1]= (V731); |
base[1]= (V777); |
2931 |
base[2]= (V732); |
base[2]= (V778); |
2932 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2933 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
2934 |
vs_top=sup; |
vs_top=sup; |
2935 |
V737= vs_base[0]; |
V784= vs_base[0]; |
2936 |
base[0]= (V735); |
base[0]= (V781); |
2937 |
base[1]= (V731); |
base[1]= (V777); |
2938 |
base[2]= (V732); |
base[2]= (V778); |
2939 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2940 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
2941 |
vs_top=sup; |
vs_top=sup; |
2942 |
V738= vs_base[0]; |
V785= vs_base[0]; |
2943 |
{object V739 = (VFUN_NARGS=5,(*(LnkLI112))((V730),VV[57],V736,V737,V738)); |
{object V786 = (VFUN_NARGS=5,(*(LnkLI112))(V782,VV[57],V783,V784,V785)); |
2944 |
VMR66(V739)}} |
VMR66(V786)}} |
2945 |
base[0]=base[0]; |
base[0]=base[0]; |
2946 |
return Cnil; |
return Cnil; |
2947 |
} |
} |
2952 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2953 |
register object *sup=base+VM67; VC67 |
register object *sup=base+VM67; VC67 |
2954 |
vs_check; |
vs_check; |
2955 |
{object V740; |
{object V787; |
2956 |
check_arg(1); |
check_arg(1); |
2957 |
V740=(base[0]); |
V787=(base[0]); |
2958 |
vs_top=sup; |
vs_top=sup; |
2959 |
goto TTL; |
goto TTL; |
2960 |
TTL:; |
TTL:; |
2961 |
if(((V740))!=Cnil){ |
if(((V787))!=Cnil){ |
2962 |
goto T852;} |
goto T852;} |
2963 |
base[1]= Cnil; |
base[1]= Cnil; |
2964 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2965 |
return; |
return; |
2966 |
goto T852; |
goto T852; |
2967 |
T852:; |
T852:; |
2968 |
V741= (*(LnkLI117))(CMPcar((V740)),base0[0],base0[1]); |
V788 = (V787); |
2969 |
base[1]= CMPcdr((V740)); |
V789= (*(LnkLI117))(CMPcar((V787)),base0[0],base0[1]); |
2970 |
|
base[1]= CMPcdr((V787)); |
2971 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2972 |
L77(base0); |
L77(base0); |
2973 |
vs_top=sup; |
vs_top=sup; |
2974 |
V742= vs_base[0]; |
V790= vs_base[0]; |
2975 |
base[1]= (*(LnkLI96))((V740),/* INLINE-ARGS */V741,V742); |
base[1]= (*(LnkLI96))(V788,/* INLINE-ARGS */V789,V790); |
2976 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2977 |
return; |
return; |
2978 |
} |
} |
2984 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2985 |
register object *sup=base+VM68; VC68 |
register object *sup=base+VM68; VC68 |
2986 |
vs_check; |
vs_check; |
2987 |
{object V743; |
{object V791; |
2988 |
check_arg(1); |
check_arg(1); |
2989 |
V743=(base[0]); |
V791=(base[0]); |
2990 |
vs_top=sup; |
vs_top=sup; |
2991 |
goto TTL; |
goto TTL; |
2992 |
TTL:; |
TTL:; |
2993 |
if(((V743))!=Cnil){ |
if(((V791))!=Cnil){ |
2994 |
goto T857;} |
goto T857;} |
2995 |
base[1]= Cnil; |
base[1]= Cnil; |
2996 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2997 |
return; |
return; |
2998 |
goto T857; |
goto T857; |
2999 |
T857:; |
T857:; |
3000 |
V744= (*(LnkLI117))(CMPcar((V743)),base0[1],base0[0]); |
V792 = (V791); |
3001 |
base[1]= CMPcdr((V743)); |
V793= (*(LnkLI117))(CMPcar((V791)),base0[1],base0[0]); |
3002 |
|
base[1]= CMPcdr((V791)); |
3003 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3004 |
L73(base0); |
L73(base0); |
3005 |
vs_top=sup; |
vs_top=sup; |
3006 |
V745= vs_base[0]; |
V794= vs_base[0]; |
3007 |
base[1]= (*(LnkLI96))((V743),/* INLINE-ARGS */V744,V745); |
base[1]= (*(LnkLI96))(V792,/* INLINE-ARGS */V793,V794); |
3008 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3009 |
return; |
return; |
3010 |
} |
} |
3016 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3017 |
register object *sup=base+VM69; VC69 |
register object *sup=base+VM69; VC69 |
3018 |
vs_check; |
vs_check; |
3019 |
{object V746; |
{object V795; |
3020 |
check_arg(1); |
check_arg(1); |
3021 |
V746=(base[0]); |
V795=(base[0]); |
3022 |
vs_top=sup; |
vs_top=sup; |
3023 |
goto TTL; |
goto TTL; |
3024 |
TTL:; |
TTL:; |
3025 |
if((V746)==Cnil){ |
if((V795)==Cnil){ |
3026 |
base[1]= Cnil; |
base[1]= Cnil; |
3027 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3028 |
return;} |
return;} |
3029 |
{object V747; |
{object V796; |
3030 |
V747= CMPcar((V746)); |
V796= CMPcar((V795)); |
3031 |
V748= CMPcar((V747)); |
V797 = (V795); |
3032 |
V749= (VFUN_NARGS=4,(*(LnkLI104))(CMPcadr((V747)),base0[0],base0[1],Ct)); |
V798 = (V796); |
3033 |
base[1]= CMPcddr((V747)); |
V799= CMPcar((V796)); |
3034 |
|
V800= (VFUN_NARGS=4,(*(LnkLI104))(CMPcadr((V796)),base0[0],base0[1],Ct)); |
3035 |
|
base[1]= CMPcddr((V796)); |
3036 |
base[2]= (VV[98]->s.s_gfdef); |
base[2]= (VV[98]->s.s_gfdef); |
3037 |
base[3]= base0[1]; |
base[3]= base0[1]; |
3038 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3039 |
(void) (*Lnk100)(); |
(void) (*Lnk100)(); |
3040 |
vs_top=sup; |
vs_top=sup; |
3041 |
V750= vs_base[0]; |
V801= vs_base[0]; |
3042 |
V751= (VFUN_NARGS=4,(*(LnkLI105))((V747),/* INLINE-ARGS */V748,/* INLINE-ARGS */V749,V750)); |
V802= (VFUN_NARGS=4,(*(LnkLI105))(V798,/* INLINE-ARGS */V799,/* INLINE-ARGS */V800,V801)); |
3043 |
base[1]= CMPcdr((V746)); |
base[1]= CMPcdr((V795)); |
3044 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3045 |
L69(base0); |
L69(base0); |
3046 |
vs_top=sup; |
vs_top=sup; |
3047 |
V752= vs_base[0]; |
V803= vs_base[0]; |
3048 |
base[1]= (*(LnkLI96))((V746),/* INLINE-ARGS */V751,V752); |
base[1]= (*(LnkLI96))(V797,/* INLINE-ARGS */V802,V803); |
3049 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3050 |
return;} |
return;} |
3051 |
} |
} |
3057 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3058 |
register object *sup=base+VM70; VC70 |
register object *sup=base+VM70; VC70 |
3059 |
vs_check; |
vs_check; |
3060 |
{object V753; |
{object V804; |
3061 |
object V754; |
object V805; |
3062 |
check_arg(2); |
check_arg(2); |
3063 |
V753=(base[0]); |
V804=(base[0]); |
3064 |
V754=(base[1]); |
V805=(base[1]); |
3065 |
vs_top=sup; |
vs_top=sup; |
3066 |
(base0[0]->c.c_car)= (*(LnkLI109))((base0[1]->c.c_car),(base0[4]->c.c_car),(base0[2]->c.c_car),(base0[3]->c.c_car),Cnil); |
(base0[0]->c.c_car)= (*(LnkLI109))((base0[1]->c.c_car),(base0[4]->c.c_car),(base0[2]->c.c_car),(base0[3]->c.c_car),Cnil); |
3067 |
base[2]= (*(LnkLI98))((V753),(V754)); |
base[2]= (*(LnkLI98))((V804),(V805)); |
3068 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3069 |
return; |
return; |
3070 |
} |
} |
3076 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3077 |
register object *sup=base+VM71; VC71 |
register object *sup=base+VM71; VC71 |
3078 |
vs_check; |
vs_check; |
3079 |
{object V755; |
{object V806; |
3080 |
check_arg(1); |
check_arg(1); |
3081 |
V755=(base[0]); |
V806=(base[0]); |
3082 |
vs_top=sup; |
vs_top=sup; |
3083 |
base[1]= (*(LnkLI85))((V755),(base0[0]->c.c_car)); |
base[1]= (*(LnkLI85))((V806),(base0[0]->c.c_car)); |
3084 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3085 |
return; |
return; |
3086 |
} |
} |
3092 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3093 |
register object *sup=base+VM72; VC72 |
register object *sup=base+VM72; VC72 |
3094 |
vs_check; |
vs_check; |
3095 |
{object V756; |
{object V807; |
3096 |
object V757; |
object V808; |
3097 |
check_arg(2); |
check_arg(2); |
3098 |
V756=(base[0]); |
V807=(base[0]); |
3099 |
V757=(base[1]); |
V808=(base[1]); |
3100 |
vs_top=sup; |
vs_top=sup; |
3101 |
base[2]= (*(LnkLI113))((V756),(base0[0]->c.c_car),(V757)); |
base[2]= (*(LnkLI113))((V807),(base0[0]->c.c_car),(V808)); |
3102 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3103 |
return; |
return; |
3104 |
} |
} |
3110 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3111 |
register object *sup=base+VM73; VC73 |
register object *sup=base+VM73; VC73 |
3112 |
vs_check; |
vs_check; |
3113 |
{register object V758; |
{register object V809; |
3114 |
object V759; |
object V810; |
3115 |
register object V760; |
register object V811; |
3116 |
check_arg(3); |
check_arg(3); |
3117 |
V758=(base[0]); |
V809=(base[0]); |
3118 |
V759=(base[1]); |
V810=(base[1]); |
3119 |
V760=(base[2]); |
V811=(base[2]); |
3120 |
vs_top=sup; |
vs_top=sup; |
3121 |
{register object V761; |
{register object V812; |
3122 |
register object V762; |
register object V813; |
3123 |
object V763; |
object V814; |
3124 |
object V764; |
object V815; |
3125 |
V761= Cnil; |
V812= Cnil; |
3126 |
V762= Cnil; |
V813= Cnil; |
3127 |
V763= Cnil; |
V814= Cnil; |
3128 |
V764= Cnil; |
V815= Cnil; |
3129 |
goto T872; |
goto T872; |
3130 |
T872:; |
T872:; |
3131 |
base[3]= (V758); |
base[3]= (V809); |
3132 |
base[4]= (V759); |
base[4]= (V810); |
3133 |
base[5]= (V760); |
base[5]= (V811); |
3134 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3135 |
super_funcall_no_event((base0[1]->c.c_car)); |
super_funcall_no_event((base0[1]->c.c_car)); |
3136 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3137 |
V761= vs_base[0]; |
V812= vs_base[0]; |
3138 |
vs_base++; |
vs_base++; |
3139 |
}else{ |
}else{ |
3140 |
V761= Cnil;} |
V812= Cnil;} |
3141 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3142 |
V762= vs_base[0]; |
V813= vs_base[0]; |
3143 |
}else{ |
}else{ |
3144 |
V762= Cnil;} |
V813= Cnil;} |
3145 |
vs_top=sup; |
vs_top=sup; |
3146 |
if(((V762))==Cnil){ |
if(((V813))==Cnil){ |
3147 |
goto T881;} |
goto T881;} |
3148 |
goto T870; |
goto T870; |
3149 |
goto T881; |
goto T881; |
3150 |
T881:; |
T881:; |
3151 |
{register object V765; |
{register object V816; |
3152 |
V765= (((((V761))==((V758))?Ct:Cnil))==Cnil?Ct:Cnil); |
V816= (((((V812))==((V809))?Ct:Cnil))==Cnil?Ct:Cnil); |
3153 |
if(((V765))==Cnil){ |
if(((V816))==Cnil){ |
3154 |
goto T885;} |
goto T885;} |
3155 |
goto T879; |
goto T879; |
3156 |
goto T885; |
goto T885; |
3157 |
T885:; |
T885:; |
3158 |
if(type_of((V761))==t_cons){ |
if(type_of((V812))==t_cons){ |
3159 |
goto T888;} |
goto T888;} |
3160 |
goto T870; |
goto T870; |
3161 |
goto T888; |
goto T888; |
3162 |
T888:; |
T888:; |
3163 |
if(((*(LnkLI86))(CMPcar((V761))))==Cnil){ |
if(((*(LnkLI86))(CMPcar((V812))))==Cnil){ |
3164 |
goto T891;} |
goto T891;} |
3165 |
goto T870; |
goto T870; |
3166 |
goto T891; |
goto T891; |
3167 |
T891:; |
T891:; |
3168 |
{register object V766; |
{register object V817; |
3169 |
register object V767; |
register object V818; |
3170 |
{register object V768; |
{register object V819; |
3171 |
V769= (VFUN_NARGS=3,(*(LnkLI22))((V760),VV[45],(V761))); |
V820 = (V811); |
3172 |
V768= (*(LnkLI2))((V760),Cnil,/* INLINE-ARGS */V769); |
V821= (VFUN_NARGS=3,(*(LnkLI22))((V811),VV[45],(V812))); |
3173 |
base[3]= (V761); |
V819= (*(LnkLI2))(V820,Cnil,/* INLINE-ARGS */V821); |
3174 |
base[4]= (V768); |
base[3]= (V812); |
3175 |
|
base[4]= (V819); |
3176 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3177 |
Lmacroexpand_1();} |
Lmacroexpand_1();} |
3178 |
if(vs_base>=vs_top){vs_top=sup;goto T897;} |
if(vs_base>=vs_top){vs_top=sup;goto T897;} |
3179 |
V766= vs_base[0]; |
V817= vs_base[0]; |
3180 |
vs_base++; |
vs_base++; |
3181 |
if(vs_base>=vs_top){vs_top=sup;goto T898;} |
if(vs_base>=vs_top){vs_top=sup;goto T898;} |
3182 |
V767= vs_base[0]; |
V818= vs_base[0]; |
3183 |
vs_top=sup; |
vs_top=sup; |
3184 |
goto T899; |
goto T899; |
3185 |
goto T897; |
goto T897; |
3186 |
T897:; |
T897:; |
3187 |
V766= Cnil; |
V817= Cnil; |
3188 |
goto T898; |
goto T898; |
3189 |
T898:; |
T898:; |
3190 |
V767= Cnil; |
V818= Cnil; |
3191 |
goto T899; |
goto T899; |
3192 |
T899:; |
T899:; |
3193 |
if(((V767))==Cnil){ |
if(((V818))==Cnil){ |
3194 |
goto T901;} |
goto T901;} |
3195 |
V761= (V766); |
V812= (V817); |
3196 |
goto T879; |
goto T879; |
3197 |
goto T901; |
goto T901; |
3198 |
T901:; |
T901:; |
3199 |
goto T870;}} |
goto T870;}} |
3200 |
goto T879; |
goto T879; |
3201 |
T879:; |
T879:; |
3202 |
V758= (V761); |
V809= (V812); |
3203 |
goto T872; |
goto T872; |
3204 |
goto T870; |
goto T870; |
3205 |
T870:; |
T870:; |
3206 |
base[3]= (V761); |
base[3]= (V812); |
3207 |
base[4]= (V759); |
base[4]= (V810); |
3208 |
base[5]= (V760); |
base[5]= (V811); |
3209 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3210 |
super_funcall_no_event((base0[0]->c.c_car)); |
super_funcall_no_event((base0[0]->c.c_car)); |
3211 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3212 |
V763= vs_base[0]; |
V814= vs_base[0]; |
3213 |
vs_base++; |
vs_base++; |
3214 |
}else{ |
}else{ |
3215 |
V763= Cnil;} |
V814= Cnil;} |
3216 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3217 |
V764= vs_base[0]; |
V815= vs_base[0]; |
3218 |
}else{ |
}else{ |
3219 |
V764= Cnil;} |
V815= Cnil;} |
3220 |
vs_top=sup; |
vs_top=sup; |
3221 |
base[3]= (V763); |
base[3]= (V814); |
3222 |
if((V762)==Cnil){ |
if((V813)==Cnil){ |
3223 |
base[4]= Cnil; |
base[4]= Cnil; |
3224 |
goto T912;} |
goto T912;} |
3225 |
base[4]= (V764); |
base[4]= (V815); |
3226 |
goto T912; |
goto T912; |
3227 |
T912:; |
T912:; |
3228 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3236 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3237 |
register object *sup=base+VM74; VC74 |
register object *sup=base+VM74; VC74 |
3238 |
vs_check; |
vs_check; |
3239 |
{object V770; |
{object V822; |
3240 |
object V771; |
object V823; |
3241 |
object V772; |
object V824; |
3242 |
check_arg(3); |
check_arg(3); |
3243 |
V770=(base[0]); |
V822=(base[0]); |
3244 |
V771=(base[1]); |
V823=(base[1]); |
3245 |
V772=(base[2]); |
V824=(base[2]); |
3246 |
vs_top=sup; |
vs_top=sup; |
3247 |
base[3]= (V770); |
base[3]= (V822); |
3248 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3249 |
return; |
return; |
3250 |
} |
} |
3256 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3257 |
register object *sup=base+VM75; VC75 |
register object *sup=base+VM75; VC75 |
3258 |
vs_check; |
vs_check; |
3259 |
{object V773; |
{object V825; |
3260 |
object V774; |
object V826; |
3261 |
object V775; |
object V827; |
3262 |
check_arg(3); |
check_arg(3); |
3263 |
V773=(base[0]); |
V825=(base[0]); |
3264 |
V774=(base[1]); |
V826=(base[1]); |
3265 |
V775=(base[2]); |
V827=(base[2]); |
3266 |
vs_top=sup; |
vs_top=sup; |
3267 |
base[3]= (V773); |
base[3]= (V825); |
3268 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3269 |
return; |
return; |
3270 |
} |
} |