809 |
goto T236;} |
goto T236;} |
810 |
{object V128; |
{object V128; |
811 |
V128= (*(LnkLI63))(); |
V128= (*(LnkLI63))(); |
812 |
V129= (*(LnkLI60))((base[1]->c.c_car),(V125),(base[4]->c.c_car),(base[5]->c.c_car)); |
V129 = (V126); |
813 |
base[6]= (VFUN_NARGS=4,(*(LnkLI64))((V126),(V127),(V128),/* INLINE-ARGS */V129)); |
V130 = (V127); |
814 |
|
V131 = (V128); |
815 |
|
V132= (*(LnkLI60))((base[1]->c.c_car),(V125),(base[4]->c.c_car),(base[5]->c.c_car)); |
816 |
|
base[6]= (VFUN_NARGS=4,(*(LnkLI64))(V129,V130,V131,/* INLINE-ARGS */V132)); |
817 |
base[7]= make_cons((V128),Cnil); |
base[7]= make_cons((V128),Cnil); |
818 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
819 |
return;} |
return;} |
823 |
goto T244;} |
goto T244;} |
824 |
if(!((CMPcar((V125)))==(VV[21]))){ |
if(!((CMPcar((V125)))==(VV[21]))){ |
825 |
goto T244;} |
goto T244;} |
826 |
{object V130; |
{object V133; |
827 |
object V131; |
object V134; |
828 |
V130= (*(LnkLI63))(); |
V133= (*(LnkLI63))(); |
829 |
base[6]= |
base[6]= |
830 |
make_cclosure_new(LC26,Cnil,base[5],Cdata); |
make_cclosure_new(LC26,Cnil,base[5],Cdata); |
831 |
base[7]= CMPcdr((V125)); |
base[7]= CMPcdr((V125)); |
834 |
vs_top=sup; |
vs_top=sup; |
835 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
836 |
goto T251;} |
goto T251;} |
837 |
V131= VV[2]; |
V134= VV[2]; |
838 |
goto T249; |
goto T249; |
839 |
goto T251; |
goto T251; |
840 |
T251:; |
T251:; |
841 |
V131= Ct; |
V134= Ct; |
842 |
goto T249; |
goto T249; |
843 |
T249:; |
T249:; |
844 |
V132= list(3,VV[25],(V130),Cnil); |
V135= list(3,VV[25],(V133),Cnil); |
845 |
base[6]= list(3,VV[24],/* INLINE-ARGS */V132,(VFUN_NARGS=4,(*(LnkLI64))((V126),(V127),VV[25],(V131)))); |
base[6]= list(3,VV[24],/* INLINE-ARGS */V135,(VFUN_NARGS=4,(*(LnkLI64))((V126),(V127),VV[25],(V134)))); |
846 |
base[7]= make_cons((V130),Cnil); |
base[7]= make_cons((V133),Cnil); |
847 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
848 |
return;} |
return;} |
849 |
goto T244; |
goto T244; |
856 |
} |
} |
857 |
/* local entry for function MEMF-CONSTANT-CONVERTER */ |
/* local entry for function MEMF-CONSTANT-CONVERTER */ |
858 |
|
|
859 |
static object LI15(V135,V136) |
static object LI15(V138,V139) |
860 |
|
|
861 |
register object V135;object V136; |
register object V138;object V139; |
862 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
863 |
goto TTL; |
goto TTL; |
864 |
TTL:; |
TTL:; |
865 |
if(!(type_of((V135))==t_cons)){ |
if(!(type_of((V138))==t_cons)){ |
866 |
goto T259;} |
goto T259;} |
867 |
if(!((CMPcar((V135)))==(VV[0]))){ |
if(!((CMPcar((V138)))==(VV[0]))){ |
868 |
goto T259;} |
goto T259;} |
869 |
V137= (VFUN_NARGS=2,(*(LnkLI47))((V136),(V135))); |
V140= (VFUN_NARGS=2,(*(LnkLI47))((V139),(V138))); |
870 |
V138= make_cons(VV[26],/* INLINE-ARGS */V137); |
V141= make_cons(VV[26],/* INLINE-ARGS */V140); |
871 |
{object V139 = make_cons(/* INLINE-ARGS */V138,Cnil); |
{object V142 = make_cons(/* INLINE-ARGS */V141,Cnil); |
872 |
VMR14(V139)} |
VMR14(V142)} |
873 |
goto T259; |
goto T259; |
874 |
T259:; |
T259:; |
875 |
if(!(type_of((V135))==t_cons)){ |
if(!(type_of((V138))==t_cons)){ |
876 |
goto T264;} |
goto T264;} |
877 |
if(!((CMPcar((V135)))==(VV[21]))){ |
if(!((CMPcar((V138)))==(VV[21]))){ |
878 |
goto T264;} |
goto T264;} |
879 |
{object V141; |
{object V144; |
880 |
object V142= CMPcdr((V135)); |
object V145= CMPcdr((V138)); |
881 |
if(V142==Cnil){ |
if(V145==Cnil){ |
882 |
V140= Cnil; |
V143= Cnil; |
883 |
goto T268;} |
goto T268;} |
884 |
base[0]=V141=MMcons(Cnil,Cnil); |
base[0]=V144=MMcons(Cnil,Cnil); |
885 |
goto T269; |
goto T269; |
886 |
T269:; |
T269:; |
887 |
(V141->c.c_car)= (VFUN_NARGS=2,(*(LnkLI47))((V136),(V142->c.c_car))); |
(V144->c.c_car)= (VFUN_NARGS=2,(*(LnkLI47))((V139),(V145->c.c_car))); |
888 |
if((V142=MMcdr(V142))==Cnil){ |
if((V145=MMcdr(V145))==Cnil){ |
889 |
V140= base[0]; |
V143= base[0]; |
890 |
goto T268;} |
goto T268;} |
891 |
V141=MMcdr(V141)=MMcons(Cnil,Cnil); |
V144=MMcdr(V144)=MMcons(Cnil,Cnil); |
892 |
goto T269;} |
goto T269;} |
893 |
goto T268; |
goto T268; |
894 |
T268:; |
T268:; |
895 |
V144= make_cons(VV[27],V140); |
V147= make_cons(VV[27],V143); |
896 |
{object V145 = make_cons(/* INLINE-ARGS */V144,Cnil); |
{object V148 = make_cons(/* INLINE-ARGS */V147,Cnil); |
897 |
VMR14(V145)} |
VMR14(V148)} |
898 |
goto T264; |
goto T264; |
899 |
T264:; |
T264:; |
900 |
{object V146 = (*(LnkLI66))((V135)); |
{object V149 = (*(LnkLI66))((V138)); |
901 |
VMR14(V146)} |
VMR14(V149)} |
902 |
base[0]=base[0]; |
base[0]=base[0]; |
903 |
return Cnil; |
return Cnil; |
904 |
} |
} |
905 |
/* local entry for function MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL */ |
/* local entry for function MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL */ |
906 |
|
|
907 |
static object LI17(V151,V152,V153,V154) |
static object LI17(V154,V155,V156,V157) |
908 |
|
|
909 |
object V151;object V152;object V153;object V154; |
object V154;object V155;object V156;object V157; |
910 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
911 |
bds_check; |
bds_check; |
912 |
goto TTL; |
goto TTL; |
913 |
TTL:; |
TTL:; |
914 |
base[0]=MMcons((V154),Cnil); |
base[0]=MMcons((V157),Cnil); |
915 |
base[1]=MMcons((V153),base[0]); |
base[1]=MMcons((V156),base[0]); |
916 |
base[2]=MMcons((V151),base[1]); |
base[2]=MMcons((V154),base[1]); |
917 |
{object V155; |
{object V158; |
918 |
object V156; |
object V159; |
919 |
object V157; |
object V160; |
920 |
base[5]= (base[2]->c.c_car); |
base[5]= (base[2]->c.c_car); |
921 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
922 |
(void) (*Lnk58)(); |
(void) (*Lnk58)(); |
923 |
if(vs_base>=vs_top){vs_top=sup;goto T273;} |
if(vs_base>=vs_top){vs_top=sup;goto T273;} |
924 |
V155= vs_base[0]; |
V158= vs_base[0]; |
925 |
vs_base++; |
vs_base++; |
926 |
if(vs_base>=vs_top){vs_top=sup;goto T274;} |
if(vs_base>=vs_top){vs_top=sup;goto T274;} |
927 |
base[3]=MMcons(vs_base[0],base[2]); |
base[3]=MMcons(vs_base[0],base[2]); |
930 |
base[4]=MMcons(vs_base[0],base[3]); |
base[4]=MMcons(vs_base[0],base[3]); |
931 |
vs_base++; |
vs_base++; |
932 |
if(vs_base>=vs_top){vs_top=sup;goto T276;} |
if(vs_base>=vs_top){vs_top=sup;goto T276;} |
933 |
V156= vs_base[0]; |
V159= vs_base[0]; |
934 |
vs_base++; |
vs_base++; |
935 |
if(vs_base>=vs_top){vs_top=sup;goto T277;} |
if(vs_base>=vs_top){vs_top=sup;goto T277;} |
936 |
V157= vs_base[0]; |
V160= vs_base[0]; |
937 |
vs_top=sup; |
vs_top=sup; |
938 |
goto T278; |
goto T278; |
939 |
goto T273; |
goto T273; |
940 |
T273:; |
T273:; |
941 |
V155= Cnil; |
V158= Cnil; |
942 |
goto T274; |
goto T274; |
943 |
T274:; |
T274:; |
944 |
base[3]=MMcons(Cnil,base[2]); |
base[3]=MMcons(Cnil,base[2]); |
947 |
base[4]=MMcons(Cnil,base[3]); |
base[4]=MMcons(Cnil,base[3]); |
948 |
goto T276; |
goto T276; |
949 |
T276:; |
T276:; |
950 |
V156= Cnil; |
V159= Cnil; |
951 |
goto T277; |
goto T277; |
952 |
T277:; |
T277:; |
953 |
V157= Cnil; |
V160= Cnil; |
954 |
goto T278; |
goto T278; |
955 |
T278:; |
T278:; |
956 |
{object V158; |
{object V161; |
957 |
bds_bind(VV[12],(VV[14]->s.s_dbind)); |
bds_bind(VV[12],(VV[14]->s.s_dbind)); |
958 |
if(((*(LnkLI67))((base[2]->c.c_car)))==Cnil){ |
if(((*(LnkLI67))((base[2]->c.c_car)))==Cnil){ |
959 |
goto T281;} |
goto T281;} |
969 |
goto T279; |
goto T279; |
970 |
T279:; |
T279:; |
971 |
base[6]=MMcons(base[6],base[4]); |
base[6]=MMcons(base[6],base[4]); |
972 |
base[7]= make_cons((V155),(base[3]->c.c_car)); |
base[7]= make_cons((V158),(base[3]->c.c_car)); |
973 |
base[7]=MMcons(base[7],base[6]); |
base[7]=MMcons(base[7],base[6]); |
974 |
V158= (VFUN_NARGS=2,(*(LnkLI70))((base[2]->c.c_car),(V152))); |
V161= (VFUN_NARGS=2,(*(LnkLI70))((base[2]->c.c_car),(V155))); |
975 |
base[11]= (V158); |
base[11]= (V161); |
976 |
base[12]= |
base[12]= |
977 |
make_cclosure_new(LC27,Cnil,base[7],Cdata); |
make_cclosure_new(LC27,Cnil,base[7],Cdata); |
978 |
base[13]= |
base[13]= |
996 |
base[10]=MMcons(Cnil,base[9]); |
base[10]=MMcons(Cnil,base[9]); |
997 |
goto T293; |
goto T293; |
998 |
T293:; |
T293:; |
999 |
{object V159 = |
{object V162 = |
1000 |
make_cclosure_new(LC30,Cnil,base[10],Cdata); |
make_cclosure_new(LC30,Cnil,base[10],Cdata); |
1001 |
bds_unwind1; |
bds_unwind1; |
1002 |
VMR15(V159)}}} |
VMR15(V162)}}} |
1003 |
base[0]=base[0]; |
base[0]=base[0]; |
1004 |
return Cnil; |
return Cnil; |
1005 |
} |
} |
1011 |
vs_check; |
vs_check; |
1012 |
check_arg(2); |
check_arg(2); |
1013 |
vs_top=sup; |
vs_top=sup; |
1014 |
{object V160=base[0]->c.c_cdr; |
{object V163=base[0]->c.c_cdr; |
1015 |
base[2]= V160;} |
base[2]= V163;} |
1016 |
base[3]= make_cons(VV[29],base[2]); |
base[3]= make_cons(VV[29],base[2]); |
1017 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1018 |
return; |
return; |
1019 |
} |
} |
1020 |
/* local entry for function MAKE-CALL-METHODS */ |
/* local entry for function MAKE-CALL-METHODS */ |
1021 |
|
|
1022 |
static object LI19(V162) |
static object LI19(V165) |
1023 |
|
|
1024 |
object V162; |
object V165; |
1025 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1026 |
goto TTL; |
goto TTL; |
1027 |
TTL:; |
TTL:; |
1028 |
{object V164; |
{object V167; |
1029 |
object V165= (V162); |
object V168= (V165); |
1030 |
if(V165==Cnil){ |
if(V168==Cnil){ |
1031 |
V163= Cnil; |
V166= Cnil; |
1032 |
goto T294;} |
goto T294;} |
1033 |
base[0]=V164=MMcons(Cnil,Cnil); |
base[0]=V167=MMcons(Cnil,Cnil); |
1034 |
goto T295; |
goto T295; |
1035 |
T295:; |
T295:; |
1036 |
(V164->c.c_car)= list(3,VV[0],(V165->c.c_car),Cnil); |
(V167->c.c_car)= list(3,VV[0],(V168->c.c_car),Cnil); |
1037 |
if((V165=MMcdr(V165))==Cnil){ |
if((V168=MMcdr(V168))==Cnil){ |
1038 |
V163= base[0]; |
V166= base[0]; |
1039 |
goto T294;} |
goto T294;} |
1040 |
V164=MMcdr(V164)=MMcons(Cnil,Cnil); |
V167=MMcdr(V167)=MMcons(Cnil,Cnil); |
1041 |
goto T295;} |
goto T295;} |
1042 |
goto T294; |
goto T294; |
1043 |
T294:; |
T294:; |
1044 |
{object V167 = make_cons(VV[21],V163); |
{object V170 = make_cons(VV[21],V166); |
1045 |
VMR17(V167)} |
VMR17(V170)} |
1046 |
base[0]=base[0]; |
base[0]=base[0]; |
1047 |
return Cnil; |
return Cnil; |
1048 |
} |
} |
1049 |
/* local entry for function STANDARD-COMPUTE-EFFECTIVE-METHOD */ |
/* local entry for function STANDARD-COMPUTE-EFFECTIVE-METHOD */ |
1050 |
|
|
1051 |
static object LI20(V171,V172,V173) |
static object LI20(V174,V175,V176) |
1052 |
|
|
1053 |
object V171;object V172;object V173; |
object V174;object V175;object V176; |
1054 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1055 |
goto TTL; |
goto TTL; |
1056 |
TTL:; |
TTL:; |
1057 |
{register object V174; |
{register object V177; |
1058 |
register object V175; |
register object V178; |
|
register object V176; |
|
|
register object V177; |
|
|
V174= Cnil; |
|
|
V175= Cnil; |
|
|
V176= Cnil; |
|
|
V177= Cnil; |
|
|
{register object V178; |
|
1059 |
register object V179; |
register object V179; |
1060 |
V178= (V173); |
register object V180; |
1061 |
V179= CMPcar((V178)); |
V177= Cnil; |
1062 |
|
V178= Cnil; |
1063 |
|
V179= Cnil; |
1064 |
|
V180= Cnil; |
1065 |
|
{register object V181; |
1066 |
|
register object V182; |
1067 |
|
V181= (V176); |
1068 |
|
V182= CMPcar((V181)); |
1069 |
goto T301; |
goto T301; |
1070 |
T301:; |
T301:; |
1071 |
if(!(((V178))==Cnil)){ |
if(!(((V181))==Cnil)){ |
1072 |
goto T302;} |
goto T302;} |
1073 |
goto T297; |
goto T297; |
1074 |
goto T302; |
goto T302; |
1075 |
T302:; |
T302:; |
1076 |
{register object V180; |
{register object V183; |
1077 |
if(!(type_of((V179))==t_cons||((V179))==Cnil)){ |
if(!(type_of((V182))==t_cons||((V182))==Cnil)){ |
1078 |
goto T309;} |
goto T309;} |
1079 |
V180= (*(LnkLI72))((V179)); |
V183= (*(LnkLI72))((V182)); |
1080 |
goto T307; |
goto T307; |
1081 |
goto T309; |
goto T309; |
1082 |
T309:; |
T309:; |
1083 |
base[1]= (V179); |
base[1]= (V182); |
1084 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1085 |
(void) (*Lnk73)(Lclptr73); |
(void) (*Lnk73)(Lclptr73); |
1086 |
vs_top=sup; |
vs_top=sup; |
1087 |
V180= vs_base[0]; |
V183= vs_base[0]; |
1088 |
goto T307; |
goto T307; |
1089 |
T307:; |
T307:; |
1090 |
{register object x= VV[30],V181= (V180); |
{register object x= VV[30],V184= (V183); |
1091 |
while(V181!=Cnil) |
while(V184!=Cnil) |
1092 |
if(eql(x,V181->c.c_car)){ |
if(eql(x,V184->c.c_car)){ |
1093 |
goto T314; |
goto T314; |
1094 |
}else V181=V181->c.c_cdr; |
}else V184=V184->c.c_cdr; |
1095 |
goto T313;} |
goto T313;} |
1096 |
goto T314; |
goto T314; |
1097 |
T314:; |
T314:; |
1098 |
V174= make_cons(V179,(V174)); |
V177= make_cons(V182,(V177)); |
1099 |
goto T306; |
goto T306; |
1100 |
goto T313; |
goto T313; |
1101 |
T313:; |
T313:; |
1102 |
{register object x= VV[31],V183= (V180); |
{register object x= VV[31],V186= (V183); |
1103 |
while(V183!=Cnil) |
while(V186!=Cnil) |
1104 |
if(eql(x,V183->c.c_car)){ |
if(eql(x,V186->c.c_car)){ |
1105 |
goto T318; |
goto T318; |
1106 |
}else V183=V183->c.c_cdr; |
}else V186=V186->c.c_cdr; |
1107 |
goto T317;} |
goto T317;} |
1108 |
goto T318; |
goto T318; |
1109 |
T318:; |
T318:; |
1110 |
V176= make_cons(V179,(V176)); |
V179= make_cons(V182,(V179)); |
1111 |
goto T306; |
goto T306; |
1112 |
goto T317; |
goto T317; |
1113 |
T317:; |
T317:; |
1114 |
{register object x= VV[32],V185= (V180); |
{register object x= VV[32],V188= (V183); |
1115 |
while(V185!=Cnil) |
while(V188!=Cnil) |
1116 |
if(eql(x,V185->c.c_car)){ |
if(eql(x,V188->c.c_car)){ |
1117 |
goto T322; |
goto T322; |
1118 |
}else V185=V185->c.c_cdr; |
}else V188=V188->c.c_cdr; |
1119 |
goto T321;} |
goto T321;} |
1120 |
goto T322; |
goto T322; |
1121 |
T322:; |
T322:; |
1122 |
V177= make_cons(V179,(V177)); |
V180= make_cons(V182,(V180)); |
1123 |
goto T306; |
goto T306; |
1124 |
goto T321; |
goto T321; |
1125 |
T321:; |
T321:; |
1126 |
V175= make_cons(V179,(V175));} |
V178= make_cons(V182,(V178));} |
1127 |
goto T306; |
goto T306; |
1128 |
T306:; |
T306:; |
1129 |
V178= CMPcdr((V178)); |
V181= CMPcdr((V181)); |
1130 |
V179= CMPcar((V178)); |
V182= CMPcar((V181)); |
1131 |
goto T301;} |
goto T301;} |
1132 |
goto T297; |
goto T297; |
1133 |
T297:; |
T297:; |
|
V174= reverse((V174)); |
|
|
V176= reverse((V176)); |
|
|
V175= reverse((V175)); |
|
1134 |
V177= reverse((V177)); |
V177= reverse((V177)); |
1135 |
if(((V175))!=Cnil){ |
V179= reverse((V179)); |
1136 |
|
V178= reverse((V178)); |
1137 |
|
V180= reverse((V180)); |
1138 |
|
if(((V178))!=Cnil){ |
1139 |
goto T339;} |
goto T339;} |
1140 |
{object V188 = list(3,VV[33],VV[34],list(2,VV[35],(V171))); |
{object V191 = list(3,VV[33],VV[34],list(2,VV[35],(V174))); |
1141 |
VMR18(V188)} |
VMR18(V191)} |
1142 |
goto T339; |
goto T339; |
1143 |
T339:; |
T339:; |
1144 |
if(((V174))!=Cnil){ |
if(((V177))!=Cnil){ |
1145 |
goto T342;} |
goto T342;} |
1146 |
if(((V176))!=Cnil){ |
if(((V179))!=Cnil){ |
1147 |
goto T342;} |
goto T342;} |
1148 |
if(((V177))!=Cnil){ |
if(((V180))!=Cnil){ |
1149 |
goto T342;} |
goto T342;} |
1150 |
{object V189 = list(3,VV[0],CMPcar((V175)),CMPcdr((V175))); |
{object V192 = list(3,VV[0],CMPcar((V178)),CMPcdr((V178))); |
1151 |
VMR18(V189)} |
VMR18(V192)} |
1152 |
goto T342; |
goto T342; |
1153 |
T342:; |
T342:; |
1154 |
{object V190; |
{object V193; |
1155 |
if(((V174))!=Cnil){ |
if(((V177))!=Cnil){ |
1156 |
goto T349;} |
goto T349;} |
1157 |
if(((V176))==Cnil){ |
if(((V179))==Cnil){ |
1158 |
goto T350;} |
goto T350;} |
1159 |
goto T349; |
goto T349; |
1160 |
T349:; |
T349:; |
1161 |
V191= (*(LnkLI74))((V174)); |
V194= (*(LnkLI74))((V177)); |
1162 |
V192= list(3,VV[29],/* INLINE-ARGS */V191,list(3,VV[0],CMPcar((V175)),CMPcdr((V175)))); |
V195= list(3,VV[29],/* INLINE-ARGS */V194,list(3,VV[0],CMPcar((V178)),CMPcdr((V178)))); |
1163 |
V193= reverse((V176)); |
V196= reverse((V179)); |
1164 |
V190= list(3,VV[36],/* INLINE-ARGS */V192,(*(LnkLI74))(/* INLINE-ARGS */V193)); |
V193= list(3,VV[36],/* INLINE-ARGS */V195,(*(LnkLI74))(/* INLINE-ARGS */V196)); |
1165 |
goto T348; |
goto T348; |
1166 |
goto T350; |
goto T350; |
1167 |
T350:; |
T350:; |
1168 |
V190= list(3,VV[0],CMPcar((V175)),CMPcdr((V175))); |
V193= list(3,VV[0],CMPcar((V178)),CMPcdr((V178))); |
1169 |
goto T348; |
goto T348; |
1170 |
T348:; |
T348:; |
1171 |
if(((V177))==Cnil){ |
if(((V180))==Cnil){ |
1172 |
goto T355;} |
goto T355;} |
1173 |
V194= CMPcar((V177)); |
V197= CMPcar((V180)); |
1174 |
V195= CMPcdr((V177)); |
V198= CMPcdr((V180)); |
1175 |
V196= list(2,VV[4],(V190)); |
V199= list(2,VV[4],(V193)); |
1176 |
V197= make_cons(/* INLINE-ARGS */V196,Cnil); |
V200= make_cons(/* INLINE-ARGS */V199,Cnil); |
1177 |
{object V198 = list(3,VV[0],/* INLINE-ARGS */V194,append(/* INLINE-ARGS */V195,/* INLINE-ARGS */V197)); |
{object V201 = list(3,VV[0],/* INLINE-ARGS */V197,append(/* INLINE-ARGS */V198,/* INLINE-ARGS */V200)); |
1178 |
VMR18(V198)} |
VMR18(V201)} |
1179 |
goto T355; |
goto T355; |
1180 |
T355:; |
T355:; |
1181 |
{object V199 = (V190); |
{object V202 = (V193); |
1182 |
VMR18(V199)}}} |
VMR18(V202)}}} |
1183 |
base[0]=base[0]; |
base[0]=base[0]; |
1184 |
return Cnil; |
return Cnil; |
1185 |
} |
} |
1186 |
/* local entry for function COMPUTE-EFFECTIVE-METHOD */ |
/* local entry for function COMPUTE-EFFECTIVE-METHOD */ |
1187 |
|
|
1188 |
static object LI21(V203,V204,V205) |
static object LI21(V206,V207,V208) |
1189 |
|
|
1190 |
object V203;object V204;object V205; |
object V206;object V207;object V208; |
1191 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1192 |
goto TTL; |
goto TTL; |
1193 |
TTL:; |
TTL:; |
1194 |
{object V206 = (*(LnkLI75))((V203),(V204),(V205)); |
{object V209 = (*(LnkLI75))((V206),(V207),(V208)); |
1195 |
VMR19(V206)} |
VMR19(V209)} |
1196 |
return Cnil; |
return Cnil; |
1197 |
} |
} |
1198 |
/* function definition for INVALID-METHOD-ERROR */ |
/* function definition for INVALID-METHOD-ERROR */ |
1201 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1202 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1203 |
vs_check; |
vs_check; |
1204 |
{object V207; |
{object V210; |
1205 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1206 |
{object *p=vs_top; |
{object *p=vs_top; |
1207 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1208 |
V207=(base[0]); |
V210=(base[0]); |
1209 |
vs_top=sup; |
vs_top=sup; |
1210 |
base[1]= (VV[37]->s.s_dbind); |
base[1]= (VV[37]->s.s_dbind); |
1211 |
{object V208; |
{object V211; |
1212 |
V208= (V207); |
V211= (V210); |
1213 |
vs_top=base+2; |
vs_top=base+2; |
1214 |
while(V208!=Cnil) |
while(V211!=Cnil) |
1215 |
{vs_push((V208)->c.c_car);V208=(V208)->c.c_cdr;} |
{vs_push((V211)->c.c_car);V211=(V211)->c.c_cdr;} |
1216 |
vs_base=base+2;} |
vs_base=base+2;} |
1217 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1218 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1227 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1228 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1229 |
vs_check; |
vs_check; |
1230 |
{object V209; |
{object V212; |
1231 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1232 |
{object *p=vs_top; |
{object *p=vs_top; |
1233 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1234 |
V209=(base[0]); |
V212=(base[0]); |
1235 |
vs_top=sup; |
vs_top=sup; |
1236 |
base[1]= (VV[38]->s.s_dbind); |
base[1]= (VV[38]->s.s_dbind); |
1237 |
{object V210; |
{object V213; |
1238 |
V210= (V209); |
V213= (V212); |
1239 |
vs_top=base+2; |
vs_top=base+2; |
1240 |
while(V210!=Cnil) |
while(V213!=Cnil) |
1241 |
{vs_push((V210)->c.c_car);V210=(V210)->c.c_cdr;} |
{vs_push((V213)->c.c_car);V213=(V213)->c.c_cdr;} |
1242 |
vs_base=base+2;} |
vs_base=base+2;} |
1243 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1244 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1254 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1255 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1256 |
vs_check; |
vs_check; |
1257 |
{object V211; |
{object V214; |
1258 |
object V212; |
object V215; |
1259 |
check_arg(2); |
check_arg(2); |
1260 |
V211=(base[0]); |
V214=(base[0]); |
1261 |
V212=(base[1]); |
V215=(base[1]); |
1262 |
vs_top=sup; |
vs_top=sup; |
1263 |
{object V213; |
{object V216; |
1264 |
object V214; |
object V217; |
1265 |
{object V215; |
{object V218; |
1266 |
object V216= (base0[0]->c.c_car); |
object V219= (base0[0]->c.c_car); |
1267 |
if(V216==Cnil){ |
if(V219==Cnil){ |
1268 |
V213= Cnil; |
V216= Cnil; |
1269 |
goto T361;} |
goto T361;} |
1270 |
base[4]=V215=MMcons(Cnil,Cnil); |
base[4]=V218=MMcons(Cnil,Cnil); |
1271 |
goto T362; |
goto T362; |
1272 |
T362:; |
T362:; |
1273 |
{register object V217; |
{register object V220; |
1274 |
V217= (V216->c.c_car); |
V220= (V219->c.c_car); |
1275 |
if(!(type_of((V217))==t_cons)){ |
if(!(type_of((V220))==t_cons)){ |
1276 |
goto T365;} |
goto T365;} |
1277 |
{object V218= CMPcar((V217)); |
{object V221= CMPcar((V220)); |
1278 |
if((V218!= VV[26]))goto T367; |
if((V221!= VV[26]))goto T367; |
1279 |
base[5]= CMPcdr((V217)); |
base[5]= CMPcdr((V220)); |
1280 |
base[6]= (V211); |
base[6]= (V214); |
1281 |
base[7]= (V212); |
base[7]= (V215); |
1282 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1283 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1284 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1285 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1286 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1287 |
vs_top=sup; |
vs_top=sup; |
1288 |
(V215->c.c_car)= vs_base[0]; |
(V218->c.c_car)= vs_base[0]; |
1289 |
goto T363; |
goto T363; |
1290 |
goto T367; |
goto T367; |
1291 |
T367:; |
T367:; |
1292 |
if((V218!= VV[27]))goto T371; |
if((V221!= VV[27]))goto T371; |
1293 |
{object V219; |
{object V222; |
1294 |
object V220= CMPcdr((V217)); |
object V223= CMPcdr((V220)); |
1295 |
if(V220==Cnil){ |
if(V223==Cnil){ |
1296 |
(V215->c.c_car)= Cnil; |
(V218->c.c_car)= Cnil; |
1297 |
goto T363;} |
goto T363;} |
1298 |
base[5]=V219=MMcons(Cnil,Cnil); |
base[5]=V222=MMcons(Cnil,Cnil); |
1299 |
goto T372; |
goto T372; |
1300 |
T372:; |
T372:; |
1301 |
base[6]= (V211); |
base[6]= (V214); |
1302 |
base[7]= (V212); |
base[7]= (V215); |
1303 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1304 |
{object _funobj = (V220->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V223->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1305 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1306 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1307 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1308 |
vs_top=sup; |
vs_top=sup; |
1309 |
(V219->c.c_car)= vs_base[0]; |
(V222->c.c_car)= vs_base[0]; |
1310 |
if((V220=MMcdr(V220))==Cnil){ |
if((V223=MMcdr(V223))==Cnil){ |
1311 |
(V215->c.c_car)= base[5]; |
(V218->c.c_car)= base[5]; |
1312 |
goto T363;} |
goto T363;} |
1313 |
V219=MMcdr(V219)=MMcons(Cnil,Cnil); |
V222=MMcdr(V222)=MMcons(Cnil,Cnil); |
1314 |
goto T372;} |
goto T372;} |
1315 |
goto T371; |
goto T371; |
1316 |
T371:; |
T371:; |
1317 |
(V215->c.c_car)= (V217); |
(V218->c.c_car)= (V220); |
1318 |
goto T363;} |
goto T363;} |
1319 |
goto T365; |
goto T365; |
1320 |
T365:; |
T365:; |
1321 |
(V215->c.c_car)= (V217);} |
(V218->c.c_car)= (V220);} |
1322 |
goto T363; |
goto T363; |
1323 |
T363:; |
T363:; |
1324 |
if((V216=MMcdr(V216))==Cnil){ |
if((V219=MMcdr(V219))==Cnil){ |
1325 |
V213= base[4]; |
V216= base[4]; |
1326 |
goto T361;} |
goto T361;} |
1327 |
V215=MMcdr(V215)=MMcons(Cnil,Cnil); |
V218=MMcdr(V218)=MMcons(Cnil,Cnil); |
1328 |
goto T362;} |
goto T362;} |
1329 |
goto T361; |
goto T361; |
1330 |
T361:; |
T361:; |
1331 |
base[5]= (base0[1]->c.c_car); |
base[5]= (base0[1]->c.c_car); |
1332 |
{object V222; |
{object V225; |
1333 |
V222= (V213); |
V225= (V216); |
1334 |
vs_top=base+6; |
vs_top=base+6; |
1335 |
while(V222!=Cnil) |
while(V225!=Cnil) |
1336 |
{vs_push((V222)->c.c_car);V222=(V222)->c.c_cdr;} |
{vs_push((V225)->c.c_car);V225=(V225)->c.c_cdr;} |
1337 |
vs_base=base+6;} |
vs_base=base+6;} |
1338 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1339 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1345 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1346 |
(void) (*Lnk76)(); |
(void) (*Lnk76)(); |
1347 |
vs_top=sup; |
vs_top=sup; |
1348 |
V214= vs_base[0]; |
V217= vs_base[0]; |
1349 |
base[4]= (VFUN_NARGS=4,(*(LnkLI54))(VV[8],(V214),VV[7],(base0[2]->c.c_car))); |
base[4]= (VFUN_NARGS=4,(*(LnkLI54))(VV[8],(V217),VV[7],(base0[2]->c.c_car))); |
1350 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1351 |
return;} |
return;} |
1352 |
} |
} |
1358 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1359 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
1360 |
vs_check; |
vs_check; |
1361 |
{object V223; |
{object V226; |
1362 |
check_arg(1); |
check_arg(1); |
1363 |
V223=(base[0]); |
V226=(base[0]); |
1364 |
vs_top=sup; |
vs_top=sup; |
1365 |
base[1]= (*(LnkLI77))((V223),(base0[4]->c.c_car)); |
base[1]= (*(LnkLI77))((V226),(base0[4]->c.c_car)); |
1366 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1367 |
return; |
return; |
1368 |
} |
} |
1374 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1375 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
1376 |
vs_check; |
vs_check; |
1377 |
{object V224; |
{object V227; |
1378 |
check_arg(1); |
check_arg(1); |
1379 |
V224=(base[0]); |
V227=(base[0]); |
1380 |
vs_top=sup; |
vs_top=sup; |
1381 |
base[1]= (V224); |
base[1]= (V227); |
1382 |
base[2]= (base0[4]->c.c_car); |
base[2]= (base0[4]->c.c_car); |
1383 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
1384 |
base[4]= (base0[3]->c.c_car); |
base[4]= (base0[3]->c.c_car); |
1396 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1397 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
1398 |
vs_check; |
vs_check; |
1399 |
{object V225; |
{object V228; |
1400 |
check_arg(1); |
check_arg(1); |
1401 |
V225=(base[0]); |
V228=(base[0]); |
1402 |
vs_top=sup; |
vs_top=sup; |
1403 |
base[1]= (*(LnkLI79))((V225),(base0[4]->c.c_car),(base0[5]->c.c_car),(base0[6]->c.c_car)); |
base[1]= (*(LnkLI79))((V228),(base0[4]->c.c_car),(base0[5]->c.c_car),(base0[6]->c.c_car)); |
1404 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1405 |
return; |
return; |
1406 |
} |
} |
1412 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1413 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
1414 |
vs_check; |
vs_check; |
1415 |
{object V226; |
{object V229; |
1416 |
check_arg(1); |
check_arg(1); |
1417 |
V226=(base[0]); |
V229=(base[0]); |
1418 |
vs_top=sup; |
vs_top=sup; |
1419 |
V227= (*(LnkLI60))((base0[2]->c.c_car),(V226),(base0[1]->c.c_car),(base0[0]->c.c_car)); |
V230= (*(LnkLI60))((base0[2]->c.c_car),(V229),(base0[1]->c.c_car),(base0[0]->c.c_car)); |
1420 |
base[1]= ((VV[2])==(/* INLINE-ARGS */V227)?Ct:Cnil); |
base[1]= ((VV[2])==(/* INLINE-ARGS */V230)?Ct:Cnil); |
1421 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1422 |
return; |
return; |
1423 |
} |
} |
1429 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1430 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
1431 |
vs_check; |
vs_check; |
1432 |
{object V228; |
{object V231; |
1433 |
check_arg(1); |
check_arg(1); |
1434 |
V228=(base[0]); |
V231=(base[0]); |
1435 |
vs_top=sup; |
vs_top=sup; |
1436 |
V229= (*(LnkLI60))((base0[0]->c.c_car),(V228),(base0[1]->c.c_car),(base0[2]->c.c_car)); |
V232= (*(LnkLI60))((base0[0]->c.c_car),(V231),(base0[1]->c.c_car),(base0[2]->c.c_car)); |
1437 |
base[1]= ((VV[2])==(/* INLINE-ARGS */V229)?Ct:Cnil); |
base[1]= ((VV[2])==(/* INLINE-ARGS */V232)?Ct:Cnil); |
1438 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1439 |
return; |
return; |
1440 |
} |
} |
1446 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1447 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
1448 |
vs_check; |
vs_check; |
1449 |
{object V230; |
{object V233; |
1450 |
object V231; |
object V234; |
1451 |
check_arg(2); |
check_arg(2); |
1452 |
V230=(base[0]); |
V233=(base[0]); |
1453 |
V231=(base[1]); |
V234=(base[1]); |
1454 |
vs_top=sup; |
vs_top=sup; |
1455 |
base[2]= (base0[3]->c.c_car); |
base[2]= (base0[3]->c.c_car); |
1456 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
1457 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
1458 |
base[5]= (base0[2]->c.c_car); |
base[5]= (base0[2]->c.c_car); |
1459 |
base[6]= (V230); |
base[6]= (V233); |
1460 |
base[7]= (V231); |
base[7]= (V234); |
1461 |
vs_top=(vs_base=base+2)+6; |
vs_top=(vs_base=base+2)+6; |
1462 |
(void) (*Lnk52)(); |
(void) (*Lnk52)(); |
1463 |
return; |
return; |