2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "pcl_env.h" |
#include "pcl_env.h" |
4 |
void init_pcl_env(){do_init(VV);} |
void init_pcl_env(){do_init(VV);} |
5 |
/* function definition for (DEFGENERIC DESCRIBE-OBJECT)9121 */ |
/* function definition for (DEFGENERIC DESCRIBE-OBJECT)9135 */ |
6 |
|
|
7 |
static void L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
953 |
T391:; |
T391:; |
954 |
V90= Cnil; |
V90= Cnil; |
955 |
V91= Cnil; |
V91= Cnil; |
956 |
{object V93; |
{long V93; |
957 |
object V94; |
long V94; |
958 |
base[1]= (V89); |
base[0]= (V89); |
959 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
960 |
(void) (*Lnk95)(); |
(void) (*Lnk95)(); |
961 |
vs_top=sup; |
vs_top=sup; |
962 |
V93= vs_base[0]; |
V93= fix(vs_base[0]); |
963 |
V94= small_fixnum(0); |
V94= 0; |
964 |
goto T401; |
goto T401; |
965 |
T401:; |
T401:; |
966 |
if(!(number_compare((V94),(V93))>=0)){ |
if(!((V94)>=(V93))){ |
967 |
goto T402;} |
goto T404;} |
968 |
V90= Cnil; |
V90= Cnil; |
969 |
goto T390; |
goto T390; |
970 |
goto T402; |
goto T404; |
971 |
T402:; |
T404:; |
972 |
base[1]= (V89); |
base[0]= (V89); |
973 |
base[2]= (V94); |
base[1]= CMPmake_fixnum(V94); |
974 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+0)+2; |
975 |
siLpackage_external(); |
siLpackage_external(); |
976 |
vs_top=sup; |
vs_top=sup; |
977 |
V91= vs_base[0]; |
V91= vs_base[0]; |
978 |
goto T409; |
goto T402; |
979 |
T409:; |
T402:; |
980 |
if(((V91))!=Cnil){ |
if(((V91))!=Cnil){ |
981 |
goto T414;} |
goto T412;} |
982 |
goto T410; |
goto T403; |
983 |
goto T414; |
goto T412; |
984 |
T414:; |
T412:; |
985 |
V90= CMPcar((V91)); |
V90= CMPcar((V91)); |
986 |
V88= number_plus((V88),small_fixnum(1)); |
V88= number_plus((V88),small_fixnum(1)); |
987 |
V91= CMPcdr((V91)); |
V91= CMPcdr((V91)); |
988 |
goto T409; |
goto T402; |
989 |
goto T410; |
goto T403; |
990 |
T410:; |
T403:; |
991 |
goto T407; |
V94= (long)(V94)+1; |
|
goto T407; |
|
|
T407:; |
|
|
V94= one_plus((V94)); |
|
992 |
goto T401;}} |
goto T401;}} |
993 |
goto T390; |
goto T390; |
994 |
T390:; |
T390:; |
1000 |
Lpackagep(); |
Lpackagep(); |
1001 |
vs_top=sup; |
vs_top=sup; |
1002 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1003 |
goto T429;} |
goto T427;} |
1004 |
V95= V83; |
V95= V83; |
1005 |
|
goto T425; |
1006 |
goto T427; |
goto T427; |
1007 |
goto T429; |
T427:; |
|
T429:; |
|
1008 |
base[0]= coerce_to_string(V83); |
base[0]= coerce_to_string(V83); |
1009 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1010 |
Lfind_package(); |
Lfind_package(); |
1011 |
vs_top=sup; |
vs_top=sup; |
1012 |
V95= vs_base[0]; |
V95= vs_base[0]; |
1013 |
goto T427; |
goto T425; |
1014 |
T427:; |
T425:; |
1015 |
V96= Cnil; |
V96= Cnil; |
1016 |
V97= Cnil; |
V97= Cnil; |
1017 |
{object V99; |
{object V99; |
1023 |
V101= vs_base[0]; |
V101= vs_base[0]; |
1024 |
V99= make_cons((V95),V101); |
V99= make_cons((V95),V101); |
1025 |
V100= CMPcar((V99)); |
V100= CMPcar((V99)); |
1026 |
goto T438; |
goto T436; |
1027 |
T438:; |
T436:; |
1028 |
if(!(((V99))==Cnil)){ |
if(!(((V99))==Cnil)){ |
1029 |
goto T439;} |
goto T437;} |
1030 |
V96= Cnil; |
V96= Cnil; |
1031 |
goto T426; |
goto T424; |
1032 |
goto T439; |
goto T437; |
1033 |
T439:; |
T437:; |
1034 |
{long V102; |
{long V102; |
1035 |
register long V103; |
register long V103; |
1036 |
base[2]= (V100); |
base[2]= (V100); |
1037 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1038 |
(void) (*Lnk95)(); |
(void) (*Lnk95)(); |
1039 |
if(vs_base>=vs_top){vs_top=sup;goto T448;} |
if(vs_base>=vs_top){vs_top=sup;goto T446;} |
1040 |
V102= fix(vs_base[0]); |
V102= fix(vs_base[0]); |
1041 |
vs_base++; |
vs_base++; |
1042 |
if(vs_base>=vs_top){vs_top=sup;goto T449;} |
if(vs_base>=vs_top){vs_top=sup;goto T447;} |
1043 |
V103= fix(vs_base[0]); |
V103= fix(vs_base[0]); |
1044 |
vs_top=sup; |
vs_top=sup; |
|
goto T450; |
|
1045 |
goto T448; |
goto T448; |
1046 |
T448:; |
goto T446; |
1047 |
|
T446:; |
1048 |
V102= fix(Cnil); |
V102= fix(Cnil); |
1049 |
goto T449; |
goto T447; |
1050 |
T449:; |
T447:; |
1051 |
V103= fix(Cnil); |
V103= fix(Cnil); |
1052 |
goto T450; |
goto T448; |
1053 |
T450:; |
T448:; |
1054 |
if(((V95))==((V100))){ |
if(((V95))==((V100))){ |
1055 |
goto T451;} |
goto T449;} |
1056 |
V103= 0; |
V103= 0; |
1057 |
goto T451; |
goto T449; |
1058 |
T451:; |
T449:; |
1059 |
{object V104; |
{long V104; |
1060 |
register object V105; |
register long V105; |
1061 |
V106 = CMPmake_fixnum(V103); |
V104= (long)(V103)+(V102); |
1062 |
V107 = CMPmake_fixnum(V102); |
V105= 0; |
1063 |
V104= number_plus(V106,V107); |
goto T456; |
1064 |
V105= small_fixnum(0); |
T456:; |
1065 |
goto T458; |
if(!((V105)>=(V104))){ |
|
T458:; |
|
|
if(!(number_compare((V105),(V104))>=0)){ |
|
1066 |
goto T459;} |
goto T459;} |
1067 |
goto T445; |
goto T443; |
1068 |
goto T459; |
goto T459; |
1069 |
T459:; |
T459:; |
1070 |
V108 = CMPmake_fixnum(V103); |
if(!((V105)<(V103))){ |
1071 |
if(!(number_compare((V105),V108)<0)){ |
goto T464;} |
1072 |
goto T468;} |
base[2]= (V100); |
1073 |
base[3]= (V100); |
base[3]= CMPmake_fixnum(V105); |
1074 |
base[4]= (V105); |
vs_top=(vs_base=base+2)+2; |
|
vs_top=(vs_base=base+3)+2; |
|
1075 |
siLpackage_internal(); |
siLpackage_internal(); |
1076 |
vs_top=sup; |
vs_top=sup; |
1077 |
V97= vs_base[0]; |
V97= vs_base[0]; |
1078 |
goto T466; |
goto T462; |
1079 |
goto T468; |
goto T464; |
1080 |
T468:; |
T464:; |
1081 |
base[3]= (V100); |
base[2]= (V100); |
1082 |
V109 = CMPmake_fixnum(V103); |
V106 = CMPmake_fixnum(V105); |
1083 |
base[4]= number_minus((V105),V109); |
V107 = CMPmake_fixnum(V103); |
1084 |
vs_top=(vs_base=base+3)+2; |
base[3]= number_minus(V106,V107); |
1085 |
|
vs_top=(vs_base=base+2)+2; |
1086 |
siLpackage_external(); |
siLpackage_external(); |
1087 |
vs_top=sup; |
vs_top=sup; |
1088 |
V97= vs_base[0]; |
V97= vs_base[0]; |
1089 |
goto T466; |
goto T462; |
1090 |
T466:; |
T462:; |
1091 |
goto T464; |
goto T457; |
1092 |
T464:; |
T457:; |
1093 |
if(((V97))!=Cnil){ |
if(((V97))!=Cnil){ |
1094 |
goto T474;} |
goto T470;} |
1095 |
goto T465; |
goto T458; |
1096 |
goto T474; |
goto T470; |
1097 |
T474:; |
T470:; |
1098 |
V96= CMPcar((V97)); |
V96= CMPcar((V97)); |
1099 |
if(((V100))==((V95))){ |
if(((V100))==((V95))){ |
1100 |
goto T480;} |
goto T476;} |
1101 |
base[4]= symbol_name((V96)); |
base[3]= symbol_name((V96)); |
1102 |
base[5]= (V95); |
base[4]= (V95); |
1103 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+3)+2; |
1104 |
Lfind_symbol(); |
Lfind_symbol(); |
1105 |
Llist(); |
Llist(); |
1106 |
vs_top=sup; |
vs_top=sup; |
1107 |
base[3]= vs_base[0]; |
base[2]= vs_base[0]; |
1108 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+2)+1; |
1109 |
Llast(); |
Llast(); |
1110 |
vs_top=sup; |
vs_top=sup; |
1111 |
V110= vs_base[0]; |
V108= vs_base[0]; |
1112 |
if(!((VV[33])==(CMPcar(V110)))){ |
if(!((VV[33])==(CMPcar(V108)))){ |
1113 |
goto T479;} |
goto T475;} |
1114 |
goto T480; |
goto T476; |
1115 |
T480:; |
T476:; |
1116 |
V87= number_plus((V87),small_fixnum(1)); |
V87= number_plus((V87),small_fixnum(1)); |
1117 |
goto T479; |
goto T475; |
1118 |
T479:; |
T475:; |
1119 |
V97= CMPcdr((V97)); |
V97= CMPcdr((V97)); |
1120 |
goto T464; |
goto T457; |
1121 |
goto T465; |
goto T458; |
1122 |
T465:; |
T458:; |
1123 |
goto T462; |
V105= (long)(V105)+1; |
1124 |
goto T462; |
goto T456;}} |
1125 |
T462:; |
goto T443; |
1126 |
V105= one_plus((V105)); |
T443:; |
|
goto T458;}} |
|
|
goto T445; |
|
|
T445:; |
|
1127 |
V99= CMPcdr((V99)); |
V99= CMPcdr((V99)); |
1128 |
V100= CMPcar((V99)); |
V100= CMPcar((V99)); |
1129 |
goto T438;}} |
goto T436;}} |
1130 |
goto T426; |
goto T424; |
1131 |
T426:; |
T424:; |
1132 |
V87= number_minus((V87),(V88)); |
V87= number_minus((V87),(V88)); |
1133 |
base[0]= (V84); |
base[0]= (V84); |
1134 |
base[1]= VV[34]; |
base[1]= VV[34]; |
1138 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
1139 |
Lformat(); |
Lformat(); |
1140 |
vs_top=sup;} |
vs_top=sup;} |
1141 |
{object V111; |
{object V109; |
1142 |
base[0]= (V83); |
base[0]= (V83); |
1143 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1144 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1145 |
vs_top=sup; |
vs_top=sup; |
1146 |
V111= vs_base[0]; |
V109= vs_base[0]; |
1147 |
if(((V111))==Cnil){ |
if(((V109))==Cnil){ |
1148 |
goto T508;} |
goto T504;} |
1149 |
base[0]= (V84); |
base[0]= (V84); |
1150 |
base[1]= VV[35]; |
base[1]= VV[35]; |
1151 |
{object V112; |
{object V110; |
1152 |
object V113= (V111); |
object V111= (V109); |
1153 |
if(V113==Cnil){ |
if(V111==Cnil){ |
1154 |
base[2]= Cnil; |
base[2]= Cnil; |
1155 |
goto T515;} |
goto T511;} |
1156 |
base[3]=V112=MMcons(Cnil,Cnil); |
base[3]=V110=MMcons(Cnil,Cnil); |
1157 |
goto T516; |
goto T512; |
1158 |
T516:; |
T512:; |
1159 |
base[4]= (V113->c.c_car); |
base[4]= (V111->c.c_car); |
1160 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1161 |
Lpackage_name(); |
Lpackage_name(); |
1162 |
vs_top=sup; |
vs_top=sup; |
1163 |
(V112->c.c_car)= vs_base[0]; |
(V110->c.c_car)= vs_base[0]; |
1164 |
if((V113=MMcdr(V113))==Cnil){ |
if((V111=MMcdr(V111))==Cnil){ |
1165 |
base[2]= base[3]; |
base[2]= base[3]; |
1166 |
goto T515;} |
goto T511;} |
1167 |
V112=MMcdr(V112)=MMcons(Cnil,Cnil); |
V110=MMcdr(V110)=MMcons(Cnil,Cnil); |
1168 |
goto T516;} |
goto T512;} |
1169 |
goto T515; |
goto T511; |
1170 |
T515:; |
T511:; |
1171 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1172 |
Lformat(); |
Lformat(); |
1173 |
vs_top=sup;} |
vs_top=sup;} |
1174 |
goto T508; |
goto T504; |
1175 |
T508:; |
T504:; |
1176 |
{object V114; |
{object V112; |
1177 |
base[0]= (V83); |
base[0]= (V83); |
1178 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1179 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1180 |
vs_top=sup; |
vs_top=sup; |
1181 |
V114= vs_base[0]; |
V112= vs_base[0]; |
1182 |
if(((V114))==Cnil){ |
if(((V112))==Cnil){ |
1183 |
goto T522;} |
goto T518;} |
1184 |
base[0]= (V84); |
base[0]= (V84); |
1185 |
base[1]= VV[36]; |
base[1]= VV[36]; |
1186 |
{object V115; |
{object V113; |
1187 |
object V116= (V114); |
object V114= (V112); |
1188 |
if(V116==Cnil){ |
if(V114==Cnil){ |
1189 |
base[2]= Cnil; |
base[2]= Cnil; |
1190 |
goto T526;} |
goto T522;} |
1191 |
base[3]=V115=MMcons(Cnil,Cnil); |
base[3]=V113=MMcons(Cnil,Cnil); |
1192 |
goto T527; |
goto T523; |
1193 |
T527:; |
T523:; |
1194 |
base[4]= (V116->c.c_car); |
base[4]= (V114->c.c_car); |
1195 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1196 |
Lpackage_name(); |
Lpackage_name(); |
1197 |
vs_top=sup; |
vs_top=sup; |
1198 |
(V115->c.c_car)= vs_base[0]; |
(V113->c.c_car)= vs_base[0]; |
1199 |
if((V116=MMcdr(V116))==Cnil){ |
if((V114=MMcdr(V114))==Cnil){ |
1200 |
base[2]= base[3]; |
base[2]= base[3]; |
1201 |
goto T526;} |
goto T522;} |
1202 |
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
V113=MMcdr(V113)=MMcons(Cnil,Cnil); |
1203 |
goto T527;} |
goto T523;} |
1204 |
goto T526; |
goto T522; |
1205 |
T526:; |
T522:; |
1206 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1207 |
Lformat(); |
Lformat(); |
1208 |
vs_top=sup; |
vs_top=sup; |
1209 |
{object V117 = vs_base[0]; |
{object V115 = vs_base[0]; |
1210 |
VMR8(V117)} |
VMR8(V115)} |
1211 |
goto T522; |
goto T518; |
1212 |
T522:; |
T518:; |
1213 |
{object V118 = Cnil; |
{object V116 = Cnil; |
1214 |
VMR8(V118)}} |
VMR8(V116)}} |
1215 |
base[0]=base[0]; |
base[0]=base[0]; |
1216 |
return Cnil; |
return Cnil; |
1217 |
} |
} |
1218 |
/* function definition for Defclass TRACED-METHOD9242 */ |
/* function definition for Defclass TRACED-METHOD9256 */ |
1219 |
|
|
1220 |
static void L12() |
static void L12() |
1221 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1228 |
base[0]= VV[37]; |
base[0]= VV[37]; |
1229 |
base[1]= VV[38]; |
base[1]= VV[38]; |
1230 |
base[2]= VV[39]; |
base[2]= VV[39]; |
1231 |
V119= listA(9,VV[40],VV[41],VV[42],Cnil,VV[43],Cnil,VV[44],VV[45],Cnil); |
V117= listA(9,VV[40],VV[41],VV[42],Cnil,VV[43],Cnil,VV[44],VV[45],Cnil); |
1232 |
V120= listA(9,VV[40],VV[46],VV[42],VV[47],VV[43],Cnil,VV[44],VV[48],Cnil); |
V118= listA(9,VV[40],VV[46],VV[42],VV[47],VV[43],Cnil,VV[44],VV[48],Cnil); |
1233 |
base[4]= VV[49]; |
base[4]= VV[49]; |
1234 |
base[5]= (VV[96]->s.s_gfdef); |
base[5]= (VV[96]->s.s_gfdef); |
1235 |
base[6]= VV[40]; |
base[6]= VV[40]; |
1244 |
vs_top=(vs_base=base+4)+11; |
vs_top=(vs_base=base+4)+11; |
1245 |
LlistA(); |
LlistA(); |
1246 |
vs_top=sup; |
vs_top=sup; |
1247 |
V121= vs_base[0]; |
V119= vs_base[0]; |
1248 |
base[3]= list(3,/* INLINE-ARGS */V119,/* INLINE-ARGS */V120,V121); |
base[3]= list(3,/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119); |
1249 |
base[4]= Cnil; |
base[4]= Cnil; |
1250 |
base[5]= VV[54]; |
base[5]= VV[54]; |
1251 |
symlispcall(VV[97],base+0,6); |
symlispcall(VV[97],base+0,6); |
1257 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1258 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
1259 |
vs_check; |
vs_check; |
1260 |
{object V122; |
{object V120; |
1261 |
object V123; |
object V121; |
1262 |
register object V124; |
register object V122; |
1263 |
check_arg(3); |
check_arg(3); |
1264 |
V122=(base[0]); |
V120=(base[0]); |
1265 |
V123=(base[1]); |
V121=(base[1]); |
1266 |
V124=(base[2]); |
V122=(base[2]); |
1267 |
vs_top=sup; |
vs_top=sup; |
1268 |
goto TTL; |
goto TTL; |
1269 |
TTL:; |
TTL:; |
1270 |
|
{object V124; |
1271 |
|
object V125; |
1272 |
|
V124= CMPcar((V120)); |
1273 |
|
V125= CMPcdr((V120)); |
1274 |
{object V126; |
{object V126; |
1275 |
object V127; |
if(type_of(V122)==t_structure){ |
1276 |
V126= CMPcar((V122)); |
goto T554;} |
1277 |
V127= CMPcdr((V122)); |
goto T552; |
|
{object V128; |
|
|
if(type_of(V124)==t_structure){ |
|
|
goto T558;} |
|
|
goto T556; |
|
|
goto T558; |
|
|
T558:; |
|
|
if(!(((V124)->str.str_def)==(VV[55]))){ |
|
|
goto T556;} |
|
|
V128= STREF(object,(V124),4); |
|
1278 |
goto T554; |
goto T554; |
1279 |
goto T556; |
T554:; |
1280 |
T556:;{object V130; |
if(!(((V122)->str.str_def)==(VV[55]))){ |
1281 |
V130= (VV[19]->s.s_dbind); |
goto T552;} |
1282 |
|
V126= STREF(object,(V122),4); |
1283 |
|
goto T550; |
1284 |
|
goto T552; |
1285 |
|
T552:;{object V128; |
1286 |
|
V128= (VV[19]->s.s_dbind); |
1287 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1288 |
base[4]= (V124); |
base[4]= (V122); |
1289 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1290 |
(void) (*Lnk86)(); |
(void) (*Lnk86)(); |
1291 |
vs_top=sup; |
vs_top=sup; |
1292 |
V131= vs_base[0]; |
V129= vs_base[0]; |
1293 |
if(!((V130)==(CMPcar(V131)))){ |
if(!((V128)==(CMPcar(V129)))){ |
1294 |
goto T561;}} |
goto T557;}} |
1295 |
V128= CMPcar(((V124))->cc.cc_turbo[12]); |
V126= CMPcar(((V122))->cc.cc_turbo[12]); |
1296 |
goto T554; |
goto T550; |
1297 |
goto T561; |
goto T557; |
1298 |
T561:; |
T557:; |
1299 |
V128= Cnil; |
V126= Cnil; |
1300 |
goto T554; |
goto T550; |
1301 |
T554:; |
T550:; |
1302 |
{register object V133; |
{register object V131; |
1303 |
V133= ((V126))->v.v_self[1]; |
V131= ((V124))->v.v_self[1]; |
1304 |
if(!(type_of(V133)==t_fixnum)){ |
if(!(type_of(V131)==t_fixnum)){ |
1305 |
goto T573;} |
goto T569;} |
1306 |
V133= ((V128))->v.v_self[fix((V133))]; |
V131= ((V126))->v.v_self[fix((V131))]; |
1307 |
goto T571; |
goto T567; |
1308 |
goto T573; |
goto T569; |
1309 |
T573:; |
T569:; |
1310 |
V133= VV[56]; |
V131= VV[56]; |
1311 |
goto T571; |
goto T567; |
1312 |
T571:; |
T567:; |
1313 |
if(!(((V133))==(VV[56]))){ |
if(!(((V131))==(VV[56]))){ |
1314 |
goto T576;} |
goto T572;} |
1315 |
base[4]= (V124); |
base[4]= (V122); |
1316 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1317 |
(void) (*Lnk64)(); |
(void) (*Lnk64)(); |
1318 |
vs_top=sup; |
vs_top=sup; |
1319 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1320 |
goto T568; |
goto T564; |
1321 |
goto T576; |
goto T572; |
1322 |
T576:; |
T572:; |
1323 |
base[3]= (V133);} |
base[3]= (V131);} |
1324 |
goto T568; |
goto T564; |
1325 |
T568:; |
T564:; |
1326 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1327 |
(void) (*Lnk98)(Lclptr98); |
(void) (*Lnk98)(Lclptr98); |
1328 |
return;}} |
return;}} |
1334 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1335 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
1336 |
vs_check; |
vs_check; |
1337 |
{object V135; |
{object V133; |
1338 |
object V136; |
object V134; |
1339 |
register object V137; |
register object V135; |
1340 |
check_arg(3); |
check_arg(3); |
1341 |
V135=(base[0]); |
V133=(base[0]); |
1342 |
V136=(base[1]); |
V134=(base[1]); |
1343 |
V137=(base[2]); |
V135=(base[2]); |
1344 |
vs_top=sup; |
vs_top=sup; |
1345 |
goto TTL; |
goto TTL; |
1346 |
TTL:; |
TTL:; |
1347 |
|
{object V137; |
1348 |
|
object V138; |
1349 |
|
V137= CMPcar((V133)); |
1350 |
|
V138= CMPcdr((V133)); |
1351 |
{object V139; |
{object V139; |
1352 |
object V140; |
if(type_of(V135)==t_structure){ |
1353 |
V139= CMPcar((V135)); |
goto T585;} |
1354 |
V140= CMPcdr((V135)); |
goto T583; |
|
{object V141; |
|
|
if(type_of(V137)==t_structure){ |
|
|
goto T589;} |
|
|
goto T587; |
|
|
goto T589; |
|
|
T589:; |
|
|
if(!(((V137)->str.str_def)==(VV[57]))){ |
|
|
goto T587;} |
|
|
V141= STREF(object,(V137),4); |
|
1355 |
goto T585; |
goto T585; |
1356 |
goto T587; |
T585:; |
1357 |
T587:;{object V143; |
if(!(((V135)->str.str_def)==(VV[57]))){ |
1358 |
V143= (VV[19]->s.s_dbind); |
goto T583;} |
1359 |
|
V139= STREF(object,(V135),4); |
1360 |
|
goto T581; |
1361 |
|
goto T583; |
1362 |
|
T583:;{object V141; |
1363 |
|
V141= (VV[19]->s.s_dbind); |
1364 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1365 |
base[4]= (V137); |
base[4]= (V135); |
1366 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1367 |
(void) (*Lnk86)(); |
(void) (*Lnk86)(); |
1368 |
vs_top=sup; |
vs_top=sup; |
1369 |
V144= vs_base[0]; |
V142= vs_base[0]; |
1370 |
if(!((V143)==(CMPcar(V144)))){ |
if(!((V141)==(CMPcar(V142)))){ |
1371 |
goto T592;}} |
goto T588;}} |
1372 |
V141= CMPcar(((V137))->cc.cc_turbo[12]); |
V139= CMPcar(((V135))->cc.cc_turbo[12]); |
1373 |
goto T585; |
goto T581; |
1374 |
goto T592; |
goto T588; |
1375 |
T592:; |
T588:; |
1376 |
V141= Cnil; |
V139= Cnil; |
1377 |
goto T585; |
goto T581; |
1378 |
T585:; |
T581:; |
1379 |
{register object V146; |
{register object V144; |
1380 |
V146= ((V139))->v.v_self[1]; |
V144= ((V137))->v.v_self[1]; |
1381 |
if(!(type_of(V146)==t_fixnum)){ |
if(!(type_of(V144)==t_fixnum)){ |
1382 |
goto T604;} |
goto T600;} |
1383 |
V146= ((V141))->v.v_self[fix((V146))]; |
V144= ((V139))->v.v_self[fix((V144))]; |
1384 |
goto T602; |
goto T598; |
1385 |
goto T604; |
goto T600; |
1386 |
T604:; |
T600:; |
1387 |
V146= VV[56]; |
V144= VV[56]; |
1388 |
goto T602; |
goto T598; |
1389 |
T602:; |
T598:; |
1390 |
if(!(((V146))==(VV[56]))){ |
if(!(((V144))==(VV[56]))){ |
1391 |
goto T607;} |
goto T603;} |
1392 |
base[4]= (V137); |
base[4]= (V135); |
1393 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1394 |
(void) (*Lnk64)(); |
(void) (*Lnk64)(); |
1395 |
vs_top=sup; |
vs_top=sup; |
1396 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1397 |
goto T599; |
goto T595; |
1398 |
goto T607; |
goto T603; |
1399 |
T607:; |
T603:; |
1400 |
base[3]= (V146);} |
base[3]= (V144);} |
1401 |
goto T599; |
goto T595; |
1402 |
T599:; |
T595:; |
1403 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1404 |
(void) (*Lnk99)(Lclptr99); |
(void) (*Lnk99)(Lclptr99); |
1405 |
return;}} |
return;}} |
1411 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1412 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
1413 |
vs_check; |
vs_check; |
1414 |
{object V148; |
{object V146; |
1415 |
object V149; |
object V147; |
1416 |
register object V150; |
register object V148; |
1417 |
check_arg(3); |
check_arg(3); |
1418 |
V148=(base[0]); |
V146=(base[0]); |
1419 |
V149=(base[1]); |
V147=(base[1]); |
1420 |
V150=(base[2]); |
V148=(base[2]); |
1421 |
vs_top=sup; |
vs_top=sup; |
1422 |
goto TTL; |
goto TTL; |
1423 |
TTL:; |
TTL:; |
1424 |
|
{object V150; |
1425 |
|
object V151; |
1426 |
|
V150= CMPcar((V146)); |
1427 |
|
V151= CMPcdr((V146)); |
1428 |
{object V152; |
{object V152; |
1429 |
object V153; |
if(type_of(V148)==t_structure){ |
1430 |
V152= CMPcar((V148)); |
goto T616;} |
1431 |
V153= CMPcdr((V148)); |
goto T614; |
|
{object V154; |
|
|
if(type_of(V150)==t_structure){ |
|
|
goto T620;} |
|
|
goto T618; |
|
|
goto T620; |
|
|
T620:; |
|
|
if(!(((V150)->str.str_def)==(VV[58]))){ |
|
|
goto T618;} |
|
|
V154= STREF(object,(V150),4); |
|
1432 |
goto T616; |
goto T616; |
1433 |
goto T618; |
T616:; |
1434 |
T618:;{object V156; |
if(!(((V148)->str.str_def)==(VV[58]))){ |
1435 |
V156= (VV[19]->s.s_dbind); |
goto T614;} |
1436 |
|
V152= STREF(object,(V148),4); |
1437 |
|
goto T612; |
1438 |
|
goto T614; |
1439 |
|
T614:;{object V154; |
1440 |
|
V154= (VV[19]->s.s_dbind); |
1441 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1442 |
base[4]= (V150); |
base[4]= (V148); |
1443 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1444 |
(void) (*Lnk86)(); |
(void) (*Lnk86)(); |
1445 |
vs_top=sup; |
vs_top=sup; |
1446 |
V157= vs_base[0]; |
V155= vs_base[0]; |
1447 |
if(!((V156)==(CMPcar(V157)))){ |
if(!((V154)==(CMPcar(V155)))){ |
1448 |
goto T623;}} |
goto T619;}} |
1449 |
V154= CMPcar(((V150))->cc.cc_turbo[12]); |
V152= CMPcar(((V148))->cc.cc_turbo[12]); |
1450 |
goto T616; |
goto T612; |
1451 |
goto T623; |
goto T619; |
1452 |
T623:; |
T619:; |
1453 |
V154= Cnil; |
V152= Cnil; |
1454 |
goto T616; |
goto T612; |
1455 |
T616:; |
T612:; |
1456 |
{register object V159; |
{register object V157; |
1457 |
V159= ((V152))->v.v_self[1]; |
V157= ((V150))->v.v_self[1]; |
1458 |
if(!(type_of(V159)==t_fixnum)){ |
if(!(type_of(V157)==t_fixnum)){ |
1459 |
goto T635;} |
goto T631;} |
1460 |
V159= ((V154))->v.v_self[fix((V159))]; |
V157= ((V152))->v.v_self[fix((V157))]; |
1461 |
goto T633; |
goto T629; |
1462 |
goto T635; |
goto T631; |
1463 |
T635:; |
T631:; |
1464 |
V159= VV[56]; |
V157= VV[56]; |
1465 |
goto T633; |
goto T629; |
1466 |
T633:; |
T629:; |
1467 |
if(!(((V159))==(VV[56]))){ |
if(!(((V157))==(VV[56]))){ |
1468 |
goto T638;} |
goto T634;} |
1469 |
base[4]= (V150); |
base[4]= (V148); |
1470 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1471 |
(void) (*Lnk64)(); |
(void) (*Lnk64)(); |
1472 |
vs_top=sup; |
vs_top=sup; |
1473 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1474 |
goto T630; |
goto T626; |
1475 |
goto T638; |
goto T634; |
1476 |
T638:; |
T634:; |
1477 |
base[3]= (V159);} |
base[3]= (V157);} |
1478 |
goto T630; |
goto T626; |
1479 |
T630:; |
T626:; |
1480 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1481 |
(void) (*Lnk81)(Lclptr81); |
(void) (*Lnk81)(Lclptr81); |
1482 |
return;}} |
return;}} |
1488 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1489 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
1490 |
vs_check; |
vs_check; |
1491 |
{object V161; |
{object V159; |
1492 |
object V162; |
object V160; |
1493 |
register object V163; |
register object V161; |
1494 |
check_arg(3); |
check_arg(3); |
1495 |
V161=(base[0]); |
V159=(base[0]); |
1496 |
V162=(base[1]); |
V160=(base[1]); |
1497 |
V163=(base[2]); |
V161=(base[2]); |
1498 |
vs_top=sup; |
vs_top=sup; |
1499 |
goto TTL; |
goto TTL; |
1500 |
TTL:; |
TTL:; |
1501 |
|
{object V163; |
1502 |
|
object V164; |
1503 |
|
V163= CMPcar((V159)); |
1504 |
|
V164= CMPcdr((V159)); |
1505 |
{object V165; |
{object V165; |
1506 |
object V166; |
if(type_of(V161)==t_structure){ |
1507 |
V165= CMPcar((V161)); |
goto T647;} |
1508 |
V166= CMPcdr((V161)); |
goto T645; |
|
{object V167; |
|
|
if(type_of(V163)==t_structure){ |
|
|
goto T651;} |
|
|
goto T649; |
|
|
goto T651; |
|
|
T651:; |
|
|
if(!(((V163)->str.str_def)==(VV[59]))){ |
|
|
goto T649;} |
|
|
V167= STREF(object,(V163),4); |
|
1509 |
goto T647; |
goto T647; |
1510 |
goto T649; |
T647:; |
1511 |
T649:;{object V169; |
if(!(((V161)->str.str_def)==(VV[59]))){ |
1512 |
V169= (VV[19]->s.s_dbind); |
goto T645;} |
1513 |
|
V165= STREF(object,(V161),4); |
1514 |
|
goto T643; |
1515 |
|
goto T645; |
1516 |
|
T645:;{object V167; |
1517 |
|
V167= (VV[19]->s.s_dbind); |
1518 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1519 |
base[4]= (V163); |
base[4]= (V161); |
1520 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1521 |
(void) (*Lnk86)(); |
(void) (*Lnk86)(); |
1522 |
vs_top=sup; |
vs_top=sup; |
1523 |
V170= vs_base[0]; |
V168= vs_base[0]; |
1524 |
if(!((V169)==(CMPcar(V170)))){ |
if(!((V167)==(CMPcar(V168)))){ |
1525 |
goto T654;}} |
goto T650;}} |
1526 |
V167= CMPcar(((V163))->cc.cc_turbo[12]); |
V165= CMPcar(((V161))->cc.cc_turbo[12]); |
1527 |
goto T647; |
goto T643; |
1528 |
goto T654; |
goto T650; |
1529 |
T654:; |
T650:; |
1530 |
V167= Cnil; |
V165= Cnil; |
1531 |
goto T647; |
goto T643; |
1532 |
T647:; |
T643:; |
1533 |
{register object V172; |
{register object V170; |
1534 |
V172= ((V165))->v.v_self[1]; |
V170= ((V163))->v.v_self[1]; |
1535 |
if(!(type_of(V172)==t_fixnum)){ |
if(!(type_of(V170)==t_fixnum)){ |
1536 |
goto T666;} |
goto T662;} |
1537 |
V172= ((V167))->v.v_self[fix((V172))]; |
V170= ((V165))->v.v_self[fix((V170))]; |
1538 |
goto T664; |
goto T660; |
1539 |
goto T666; |
goto T662; |
1540 |
T666:; |
T662:; |
1541 |
V172= VV[56]; |
V170= VV[56]; |
1542 |
goto T664; |
goto T660; |
1543 |
T664:; |
T660:; |
1544 |
if(!(((V172))==(VV[56]))){ |
if(!(((V170))==(VV[56]))){ |
1545 |
goto T669;} |
goto T665;} |
1546 |
base[4]= (V163); |
base[4]= (V161); |
1547 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1548 |
(void) (*Lnk64)(); |
(void) (*Lnk64)(); |
1549 |
vs_top=sup; |
vs_top=sup; |
1550 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1551 |
goto T661; |
goto T657; |
1552 |
goto T669; |
goto T665; |
1553 |
T669:; |
T665:; |
1554 |
base[3]= (V172);} |
base[3]= (V170);} |
1555 |
goto T661; |
goto T657; |
1556 |
T661:; |
T657:; |
1557 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1558 |
(void) (*Lnk100)(Lclptr100); |
(void) (*Lnk100)(Lclptr100); |
1559 |
return;}} |
return;}} |
1561 |
} |
} |
1562 |
/* local entry for function TRACE-METHOD */ |
/* local entry for function TRACE-METHOD */ |
1563 |
|
|
1564 |
static object LI17(object V174,object first,...) |
static object LI17(object V172,object first,...) |
1565 |
{ |
{ |
1566 |
va_list ap; |
va_list ap; |
1567 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
1568 |
{object V175; |
{object V173; |
1569 |
object V176; |
object V174; |
1570 |
va_start(ap,first); |
va_start(ap,first); |
1571 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1572 |
V175= V174; |
V173= V172; |
1573 |
narg= narg - 1; |
narg= narg - 1; |
1574 |
V177 = list_vector_new(narg,first,ap); |
V175 = list_vector_new(narg,first,ap); |
1575 |
V176= V177; |
V174= V175; |
1576 |
{object V178; |
{object V176; |
1577 |
object V179; |
object V177; |
1578 |
object V180; |
object V178; |
1579 |
base[0]= (V175); |
base[0]= (V173); |
1580 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1581 |
(void) (*Lnk101)(); |
(void) (*Lnk101)(); |
1582 |
if(vs_base>=vs_top){vs_top=sup;goto T674;} |
if(vs_base>=vs_top){vs_top=sup;goto T670;} |
1583 |
V178= vs_base[0]; |
V176= vs_base[0]; |
1584 |
vs_base++; |
vs_base++; |
1585 |
if(vs_base>=vs_top){vs_top=sup;goto T675;} |
if(vs_base>=vs_top){vs_top=sup;goto T671;} |
1586 |
V179= vs_base[0]; |
V177= vs_base[0]; |
1587 |
vs_base++; |
vs_base++; |
1588 |
if(vs_base>=vs_top){vs_top=sup;goto T676;} |
if(vs_base>=vs_top){vs_top=sup;goto T672;} |
1589 |
V180= vs_base[0]; |
V178= vs_base[0]; |
1590 |
vs_top=sup; |
vs_top=sup; |
1591 |
goto T677; |
goto T673; |
1592 |
goto T674; |
goto T670; |
1593 |
T674:; |
T670:; |
1594 |
|
V176= Cnil; |
1595 |
|
goto T671; |
1596 |
|
T671:; |
1597 |
|
V177= Cnil; |
1598 |
|
goto T672; |
1599 |
|
T672:; |
1600 |
V178= Cnil; |
V178= Cnil; |
1601 |
goto T675; |
goto T673; |
1602 |
T675:; |
T673:; |
1603 |
V179= Cnil; |
{object V179; |
1604 |
goto T676; |
object V180; |
1605 |
T676:; |
base[2]= (V177); |
|
V180= Cnil; |
|
|
goto T677; |
|
|
T677:; |
|
|
{object V181; |
|
|
object V182; |
|
|
base[2]= (V179); |
|
1606 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1607 |
(void) (*Lnk84)(Lclptr84); |
(void) (*Lnk84)(Lclptr84); |
1608 |
vs_top=sup; |
vs_top=sup; |
1609 |
V183= vs_base[0]; |
V181= vs_base[0]; |
1610 |
V181= (*(LnkLI102))(V183,(V180),(V176)); |
V179= (*(LnkLI102))(V181,(V178),(V174)); |
1611 |
base[2]= VV[37]; |
base[2]= VV[37]; |
1612 |
base[3]= VV[60]; |
base[3]= VV[60]; |
1613 |
base[4]= (V179); |
base[4]= (V177); |
1614 |
base[5]= VV[61]; |
base[5]= VV[61]; |
1615 |
base[6]= (V181); |
base[6]= (V179); |
1616 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1617 |
(void) (*Lnk103)(Lclptr103); |
(void) (*Lnk103)(Lclptr103); |
1618 |
vs_top=sup; |
vs_top=sup; |
1619 |
V182= vs_base[0]; |
V180= vs_base[0]; |
1620 |
base[2]= (V178); |
base[2]= (V176); |
1621 |
base[3]= (V179); |
base[3]= (V177); |
1622 |
(void)simple_symlispcall(VV[104],base+2,2); |
(void)simple_symlispcall(VV[104],base+2,2); |
1623 |
base[2]= (V178); |
base[2]= (V176); |
1624 |
base[3]= (V182); |
base[3]= (V180); |
1625 |
(void)simple_symlispcall(VV[105],base+2,2); |
(void)simple_symlispcall(VV[105],base+2,2); |
1626 |
base[2]= V182; |
base[2]= V180; |
1627 |
base[3]= (VV[62]->s.s_dbind); |
base[3]= (VV[62]->s.s_dbind); |
1628 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1629 |
Ladjoin(); |
Ladjoin(); |
1630 |
vs_top=sup; |
vs_top=sup; |
1631 |
(VV[62]->s.s_dbind)= vs_base[0]; |
(VV[62]->s.s_dbind)= vs_base[0]; |
1632 |
{object V185 = (V182); |
{object V183 = (V180); |
1633 |
VMR14(V185)}}} |
VMR14(V183)}}} |
1634 |
va_end(ap); |
va_end(ap); |
1635 |
base[0]=base[0]; |
base[0]=base[0]; |
1636 |
return Cnil;} |
return Cnil;} |
1641 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1642 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
1643 |
vs_check; |
vs_check; |
1644 |
{object V186; |
{object V184; |
1645 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_top-vs_base>1) too_many_arguments(); |
1646 |
if(vs_base>=vs_top){vs_top=sup;goto T697;} |
if(vs_base>=vs_top){vs_top=sup;goto T693;} |
1647 |
V186=(base[0]); |
V184=(base[0]); |
1648 |
vs_top=sup; |
vs_top=sup; |
1649 |
goto T698; |
goto T694; |
1650 |
goto T697; |
goto T693; |
1651 |
T697:; |
T693:; |
1652 |
V186= Cnil; |
V184= Cnil; |
1653 |
goto T698; |
goto T694; |
1654 |
T698:; |
T694:; |
1655 |
if(((V186))==Cnil){ |
if(((V184))==Cnil){ |
1656 |
goto T701;} |
goto T697;} |
1657 |
{object V187; |
{object V185; |
1658 |
object V188; |
object V186; |
1659 |
base[1]= (V186); |
base[1]= (V184); |
1660 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1661 |
(void) (*Lnk101)(); |
(void) (*Lnk101)(); |
1662 |
if(vs_base>=vs_top){vs_top=sup;goto T705;} |
if(vs_base>=vs_top){vs_top=sup;goto T701;} |
1663 |
V187= vs_base[0]; |
V185= vs_base[0]; |
1664 |
vs_base++; |
vs_base++; |
1665 |
if(vs_base>=vs_top){vs_top=sup;goto T706;} |
if(vs_base>=vs_top){vs_top=sup;goto T702;} |
1666 |
V188= vs_base[0]; |
V186= vs_base[0]; |
1667 |
vs_top=sup; |
vs_top=sup; |
1668 |
goto T707; |
goto T703; |
1669 |
goto T705; |
goto T701; |
1670 |
T705:; |
T701:; |
1671 |
V187= Cnil; |
V185= Cnil; |
1672 |
|
goto T702; |
1673 |
|
T702:; |
1674 |
|
V186= Cnil; |
1675 |
|
goto T703; |
1676 |
|
T703:; |
1677 |
|
{register object x= (V186),V187= (VV[62]->s.s_dbind); |
1678 |
|
while(V187!=Cnil) |
1679 |
|
if(x==(V187->c.c_car)){ |
1680 |
|
goto T706; |
1681 |
|
}else V187=V187->c.c_cdr; |
1682 |
|
goto T705;} |
1683 |
goto T706; |
goto T706; |
1684 |
T706:; |
T706:; |
1685 |
V188= Cnil; |
base[1]= (V186); |
|
goto T707; |
|
|
T707:; |
|
|
{register object x= (V188),V189= (VV[62]->s.s_dbind); |
|
|
while(V189!=Cnil) |
|
|
if(x==(V189->c.c_car)){ |
|
|
goto T710; |
|
|
}else V189=V189->c.c_cdr; |
|
|
goto T709;} |
|
|
goto T710; |
|
|
T710:; |
|
|
base[1]= (V188); |
|
1686 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1687 |
L19(base); |
L19(base); |
1688 |
return; |
return; |
1689 |
goto T709; |
goto T705; |
1690 |
T709:; |
T705:; |
1691 |
base[1]= VV[63]; |
base[1]= VV[63]; |
1692 |
base[2]= (V188); |
base[2]= (V186); |
1693 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1694 |
Lerror(); |
Lerror(); |
1695 |
return;} |
return;} |
1696 |
goto T701; |
goto T697; |
1697 |
T701:; |
T697:; |
1698 |
{register object V190; |
{register object V188; |
1699 |
register object V191; |
register object V189; |
1700 |
V190= (VV[62]->s.s_dbind); |
V188= (VV[62]->s.s_dbind); |
1701 |
V191= CMPcar((V190)); |
V189= CMPcar((V188)); |
1702 |
goto T717; |
goto T713; |
1703 |
T717:; |
T713:; |
1704 |
if(!(((V190))==Cnil)){ |
if(!(((V188))==Cnil)){ |
1705 |
goto T718;} |
goto T714;} |
1706 |
base[2]= Cnil; |
base[2]= Cnil; |
1707 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1708 |
return; |
return; |
1709 |
goto T718; |
goto T714; |
1710 |
T718:; |
T714:; |
1711 |
base[2]= (V191); |
base[2]= (V189); |
1712 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1713 |
L19(base); |
L19(base); |
1714 |
vs_top=sup; |
vs_top=sup; |
1715 |
V190= CMPcdr((V190)); |
V188= CMPcdr((V188)); |
1716 |
V191= CMPcar((V190)); |
V189= CMPcar((V188)); |
1717 |
goto T717;} |
goto T713;} |
1718 |
} |
} |
1719 |
} |
} |
1720 |
/* local entry for function TRACE-METHOD-INTERNAL */ |
/* local entry for function TRACE-METHOD-INTERNAL */ |
1721 |
|
|
1722 |
static object LI20(V195,V196,V197) |
static object LI20(V193,V194,V195) |
1723 |
|
|
1724 |
object V195;register object V196;object V197; |
object V193;register object V194;object V195; |
1725 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1726 |
goto TTL; |
goto TTL; |
1727 |
TTL:; |
TTL:; |
1728 |
base[0]= list(2,VV[65],(V196)); |
base[0]= list(2,VV[65],(V194)); |
1729 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1730 |
Leval(); |
Leval(); |
1731 |
vs_top=sup; |
vs_top=sup; |
1732 |
base[0]= (V196); |
base[0]= (V194); |
1733 |
base[1]= (V195); |
base[1]= (V193); |
1734 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1735 |
siLfset(); |
siLfset(); |
1736 |
vs_top=sup; |
vs_top=sup; |
1737 |
base[0]= listA(3,VV[66],(V196),(V197)); |
base[0]= listA(3,VV[66],(V194),(V195)); |
1738 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1739 |
Leval(); |
Leval(); |
1740 |
vs_top=sup; |
vs_top=sup; |
1741 |
base[0]= (V196); |
base[0]= (V194); |
1742 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1743 |
Lsymbol_function(); |
Lsymbol_function(); |
1744 |
vs_top=sup; |
vs_top=sup; |
1745 |
{object V198 = vs_base[0]; |
{object V196 = vs_base[0]; |
1746 |
VMR16(V198)} |
VMR16(V196)} |
1747 |
base[0]=base[0]; |
base[0]=base[0]; |
1748 |
return Cnil; |
return Cnil; |
1749 |
} |
} |
1755 |
vs_check; |
vs_check; |
1756 |
check_arg(2); |
check_arg(2); |
1757 |
vs_top=sup; |
vs_top=sup; |
1758 |
{object V199=base[0]->c.c_cdr; |
{object V197=base[0]->c.c_cdr; |
1759 |
base[2]= V199;} |
base[2]= V197;} |
1760 |
base[3]= list(2,VV[67],list(2,VV[68],base[2])); |
base[3]= list(2,VV[67],list(2,VV[68],base[2])); |
1761 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1762 |
return; |
return; |
1763 |
} |
} |
1764 |
/* local entry for function UNDEFMETHOD-1 */ |
/* local entry for function UNDEFMETHOD-1 */ |
1765 |
|
|
1766 |
static object LI22(V201) |
static object LI22(V199) |
1767 |
|
|
1768 |
object V201; |
object V199; |
1769 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1770 |
goto TTL; |
goto TTL; |
1771 |
TTL:; |
TTL:; |
1772 |
{object V202; |
{object V200; |
1773 |
object V203; |
object V201; |
1774 |
base[0]= (V201); |
base[0]= (V199); |
1775 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1776 |
(void) (*Lnk101)(); |
(void) (*Lnk101)(); |
1777 |
if(vs_base>=vs_top){vs_top=sup;goto T739;} |
if(vs_base>=vs_top){vs_top=sup;goto T735;} |
1778 |
V202= vs_base[0]; |
V200= vs_base[0]; |
1779 |
vs_base++; |
vs_base++; |
1780 |
if(vs_base>=vs_top){vs_top=sup;goto T740;} |
if(vs_base>=vs_top){vs_top=sup;goto T736;} |
1781 |
V203= vs_base[0]; |
V201= vs_base[0]; |
1782 |
vs_top=sup; |
vs_top=sup; |
1783 |
goto T741; |
goto T737; |
1784 |
|
goto T735; |
1785 |
|
T735:; |
1786 |
|
V200= Cnil; |
1787 |
|
goto T736; |
1788 |
|
T736:; |
1789 |
|
V201= Cnil; |
1790 |
|
goto T737; |
1791 |
|
T737:; |
1792 |
|
if(((V200))==Cnil){ |
1793 |
|
goto T739;} |
1794 |
|
if(((V201))==Cnil){ |
1795 |
|
goto T739;} |
1796 |
|
base[0]= (V200); |
1797 |
|
base[1]= (V201); |
1798 |
|
(void)simple_symlispcall(VV[104],base+0,2); |
1799 |
|
{object V202 = (V201); |
1800 |
|
VMR18(V202)} |
1801 |
goto T739; |
goto T739; |
1802 |
T739:; |
T739:; |
1803 |
V202= Cnil; |
{object V203 = Cnil; |
1804 |
goto T740; |
VMR18(V203)}} |
|
T740:; |
|
|
V203= Cnil; |
|
|
goto T741; |
|
|
T741:; |
|
|
if(((V202))==Cnil){ |
|
|
goto T743;} |
|
|
if(((V203))==Cnil){ |
|
|
goto T743;} |
|
|
base[0]= (V202); |
|
|
base[1]= (V203); |
|
|
(void)simple_symlispcall(VV[104],base+0,2); |
|
|
{object V204 = (V203); |
|
|
VMR18(V204)} |
|
|
goto T743; |
|
|
T743:; |
|
|
{object V205 = Cnil; |
|
|
VMR18(V205)}} |
|
1805 |
base[0]=base[0]; |
base[0]=base[0]; |
1806 |
return Cnil; |
return Cnil; |
1807 |
} |
} |
1812 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1813 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1814 |
vs_check; |
vs_check; |
1815 |
{register object V206; |
{register object V204; |
1816 |
check_arg(1); |
check_arg(1); |
1817 |
V206=(base[0]); |
V204=(base[0]); |
1818 |
vs_top=sup; |
vs_top=sup; |
1819 |
goto TTL; |
goto TTL; |
1820 |
TTL:; |
TTL:; |
1821 |
{object V207; |
{object V205; |
1822 |
base[1]= (V206); |
base[1]= (V204); |
1823 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1824 |
(void) (*Lnk106)(Lclptr106); |
(void) (*Lnk106)(Lclptr106); |
1825 |
vs_top=sup; |
vs_top=sup; |
1826 |
V207= vs_base[0]; |
V205= vs_base[0]; |
1827 |
if(((V207))==Cnil){ |
if(((V205))==Cnil){ |
1828 |
goto T753;} |
goto T749;} |
1829 |
base[1]= (V207); |
base[1]= (V205); |
1830 |
base[2]= (V206); |
base[2]= (V204); |
1831 |
(void)simple_symlispcall(VV[104],base+1,2); |
(void)simple_symlispcall(VV[104],base+1,2); |
1832 |
base[1]=(VV[105]->s.s_gfdef); |
base[1]=(VV[105]->s.s_gfdef); |
1833 |
base[2]= (V207); |
base[2]= (V205); |
1834 |
if(!((VV[64])->s.s_gfdef!=OBJNULL)){ |
if(!((VV[64])->s.s_gfdef!=OBJNULL)){ |
1835 |
goto T762;} |
goto T758;} |
1836 |
base[4]= (V206); |
base[4]= (V204); |
1837 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1838 |
(void) (*Lnk64)(); |
(void) (*Lnk64)(); |
1839 |
vs_top=sup; |
vs_top=sup; |
1840 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1841 |
goto T760; |
goto T756; |
1842 |
goto T762; |
goto T758; |
1843 |
T762:; |
T758:; |
1844 |
base[3]= (*(LnkLI108))(VV[64],VV[41]); |
base[3]= (*(LnkLI108))(VV[64],VV[41]); |
1845 |
goto T760; |
goto T756; |
1846 |
T760:; |
T756:; |
1847 |
(void)simple_lispcall(base+1,2); |
(void)simple_lispcall(base+1,2); |
1848 |
base[1]= (V206); |
base[1]= (V204); |
1849 |
base[2]= (VV[62]->s.s_dbind); |
base[2]= (VV[62]->s.s_dbind); |
1850 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1851 |
(void) (*Lnk109)(); |
(void) (*Lnk109)(); |
1854 |
base[1]= (VV[62]->s.s_dbind); |
base[1]= (VV[62]->s.s_dbind); |
1855 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1856 |
return; |
return; |
1857 |
goto T753; |
goto T749; |
1858 |
T753:; |
T749:; |
1859 |
base[1]= Cnil; |
base[1]= Cnil; |
1860 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1861 |
return;} |
return;} |
1868 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1869 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1870 |
vs_check; |
vs_check; |
1871 |
{object V208; |
{object V206; |
1872 |
check_arg(1); |
check_arg(1); |
1873 |
V208=(base[0]); |
V206=(base[0]); |
1874 |
vs_top=sup; |
vs_top=sup; |
1875 |
goto TTL; |
goto TTL; |
1876 |
TTL:;{object V209; |
TTL:;{object V207; |
1877 |
base[1]= (V208); |
base[1]= (V206); |
1878 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1879 |
(void) (*Lnk89)(Lclptr89); |
(void) (*Lnk89)(Lclptr89); |
1880 |
vs_top=sup; |
vs_top=sup; |
1881 |
V209= vs_base[0]; |
V207= vs_base[0]; |
1882 |
if(V209==Cnil)goto T768; |
if(V207==Cnil)goto T764; |
1883 |
base[1]= V209; |
base[1]= V207; |
1884 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1885 |
return; |
return; |
1886 |
goto T768; |
goto T764; |
1887 |
T768:;} |
T764:;} |
1888 |
base[1]= (V208); |
base[1]= (V206); |
1889 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1890 |
return; |
return; |
1891 |
} |
} |
1897 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1898 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1899 |
vs_check; |
vs_check; |
1900 |
{object V210; |
{object V208; |
1901 |
|
object V209; |
1902 |
|
object V210; |
1903 |
object V211; |
object V211; |
|
object V212; |
|
|
object V213; |
|
1904 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1905 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
1906 |
V210=(base[0]); |
V208=(base[0]); |
1907 |
V211=(base[1]); |
V209=(base[1]); |
1908 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1909 |
if(vs_base>=vs_top){vs_top=sup;goto T771;} |
if(vs_base>=vs_top){vs_top=sup;goto T767;} |
1910 |
V212=(base[2]); |
V210=(base[2]); |
1911 |
V213= Ct; |
V211= Ct; |
1912 |
vs_top=sup; |
vs_top=sup; |
1913 |
goto T772; |
goto T768; |
1914 |
goto T771; |
goto T767; |
1915 |
T771:; |
T767:; |
1916 |
V212= Cnil; |
V210= Cnil; |
1917 |
V213= Cnil; |
V211= Cnil; |
1918 |
goto T772; |
goto T768; |
1919 |
T772:; |
T768:; |
1920 |
if(((V213))==Cnil){ |
if(((V211))==Cnil){ |
1921 |
goto T775;} |
goto T771;} |
1922 |
base[4]= base0[3]; |
base[4]= base0[3]; |
1923 |
base[5]= VV[9]; |
base[5]= VV[9]; |
1924 |
base[6]= (V210); |
base[6]= (V208); |
1925 |
base[7]= (V212); |
base[7]= (V210); |
1926 |
base[8]= number_plus(base0[6],small_fixnum(7)); |
base[8]= number_plus(base0[6],small_fixnum(7)); |
1927 |
base[9]= (V211); |
base[9]= (V209); |
1928 |
vs_top=(vs_base=base+4)+6; |
vs_top=(vs_base=base+4)+6; |
1929 |
Lformat(); |
Lformat(); |
1930 |
return; |
return; |
1931 |
goto T775; |
goto T771; |
1932 |
T775:; |
T771:; |
1933 |
base[4]= base0[3]; |
base[4]= base0[3]; |
1934 |
base[5]= VV[10]; |
base[5]= VV[10]; |
1935 |
base[6]= (V210); |
base[6]= (V208); |
1936 |
base[7]= base0[6]; |
base[7]= base0[6]; |
1937 |
base[8]= (V211); |
base[8]= (V209); |
1938 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1939 |
Lformat(); |
Lformat(); |
1940 |
return; |
return; |
1947 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1948 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1949 |
vs_check; |
vs_check; |
1950 |
{object V214; |
{object V212; |
1951 |
check_arg(1); |
check_arg(1); |
1952 |
V214=(base[0]); |
V212=(base[0]); |
1953 |
vs_top=sup; |
vs_top=sup; |
1954 |
goto TTL; |
goto TTL; |
1955 |
TTL:; |
TTL:; |
1956 |
{object V215= symbol_name((V214)); |
{object V213= symbol_name((V212)); |
1957 |
V216 = CMPmake_fixnum((long)(/* INLINE-ARGS */V215)->v.v_fillp); |
V214 = CMPmake_fixnum((long)(/* INLINE-ARGS */V213)->v.v_fillp); |
1958 |
base0[6]= (number_compare(base0[6],V216)>=0?(base0[6]):V216);} |
base0[6]= (number_compare(base0[6],V214)>=0?(base0[6]):V214);} |
1959 |
base[1]= base0[6]; |
base[1]= base0[6]; |
1960 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1961 |
return; |
return; |