910 |
siLfset(); |
siLfset(); |
911 |
vs_top=sup; |
vs_top=sup; |
912 |
(void)((*(LnkLI73))((V164))); |
(void)((*(LnkLI73))((V164))); |
913 |
|
V168 = (V166); |
914 |
|
V169 = (V164); |
915 |
if(((V167))==Cnil){ |
if(((V167))==Cnil){ |
916 |
goto T155;} |
goto T155;} |
917 |
V168= Cnil; |
V170= Cnil; |
918 |
goto T154; |
goto T154; |
919 |
goto T155; |
goto T155; |
920 |
T155:; |
T155:; |
921 |
V168= (V163); |
V170= (V163); |
922 |
goto T154; |
goto T154; |
923 |
T154:; |
T154:; |
924 |
V169= list(3,(V166),(V164),V168); |
V171= list(3,V168,V169,V170); |
925 |
(V153->c.c_cdr)= make_cons(/* INLINE-ARGS */V169,Cnil); |
(V153->c.c_cdr)= make_cons(/* INLINE-ARGS */V171,Cnil); |
926 |
goto T124;}} |
goto T124;}} |
927 |
goto T126; |
goto T126; |
928 |
T126:; |
T126:; |
932 |
while(MMcdr(V153)!=Cnil)V153=MMcdr(V153); |
while(MMcdr(V153)!=Cnil)V153=MMcdr(V153); |
933 |
if((V154=MMcdr(V154))==Cnil){ |
if((V154=MMcdr(V154))==Cnil){ |
934 |
base[1]=base[1]->c.c_cdr; |
base[1]=base[1]->c.c_cdr; |
935 |
{object V170 = base[1]; |
{object V172 = base[1]; |
936 |
VMR27(V170)}} |
VMR27(V172)}} |
937 |
goto T117;} |
goto T117;} |
938 |
base[0]=base[0]; |
base[0]=base[0]; |
939 |
return Cnil; |
return Cnil; |
940 |
} |
} |
941 |
/* local entry for function STRUCTURE-SLOTD-NAME */ |
/* local entry for function STRUCTURE-SLOTD-NAME */ |
942 |
|
|
943 |
static object LI32(V172) |
static object LI32(V174) |
944 |
|
|
945 |
object V172; |
object V174; |
946 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
947 |
goto TTL; |
goto TTL; |
948 |
TTL:; |
TTL:; |
949 |
{object V173 = CMPcar((V172)); |
{object V175 = CMPcar((V174)); |
950 |
VMR28(V173)} |
VMR28(V175)} |
951 |
return Cnil; |
return Cnil; |
952 |
} |
} |
953 |
/* local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
/* local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
954 |
|
|
955 |
static object LI33(V175) |
static object LI33(V177) |
956 |
|
|
957 |
object V175; |
object V177; |
958 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
959 |
goto TTL; |
goto TTL; |
960 |
TTL:; |
TTL:; |
961 |
{object V176 = CMPcadr((V175)); |
{object V178 = CMPcadr((V177)); |
962 |
VMR29(V176)} |
VMR29(V178)} |
963 |
return Cnil; |
return Cnil; |
964 |
} |
} |
965 |
/* local entry for function STRUCTURE-SLOTD-READER-FUNCTION */ |
/* local entry for function STRUCTURE-SLOTD-READER-FUNCTION */ |
966 |
|
|
967 |
static object LI34(V178) |
static object LI34(V180) |
968 |
|
|
969 |
object V178; |
object V180; |
970 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
971 |
goto TTL; |
goto TTL; |
972 |
TTL:; |
TTL:; |
973 |
{object V179 = CMPcaddr((V178)); |
{object V181 = CMPcaddr((V180)); |
974 |
VMR30(V179)} |
VMR30(V181)} |
975 |
return Cnil; |
return Cnil; |
976 |
} |
} |
977 |
/* local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION */ |
/* local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION */ |
978 |
|
|
979 |
static object LI35(V181) |
static object LI35(V183) |
980 |
|
|
981 |
object V181; |
object V183; |
982 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
983 |
goto TTL; |
goto TTL; |
984 |
TTL:; |
TTL:; |
985 |
{object V182 = CMPcadddr((V181)); |
{object V184 = CMPcadddr((V183)); |
986 |
VMR31(V182)} |
VMR31(V184)} |
987 |
return Cnil; |
return Cnil; |
988 |
} |
} |
989 |
/* local entry for function RENEW-SYS-FILES */ |
/* local entry for function RENEW-SYS-FILES */ |
1054 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1055 |
Lformat(); |
Lformat(); |
1056 |
vs_top=sup; |
vs_top=sup; |
|
{object V184; |
|
|
register object V185; |
|
|
V184= Cnil; |
|
|
V185= Cnil; |
|
1057 |
{object V186; |
{object V186; |
1058 |
register object V187; |
register object V187; |
1059 |
register object V188; |
V186= Cnil; |
1060 |
{object V189; |
V187= Cnil; |
1061 |
|
{object V188; |
1062 |
|
register object V189; |
1063 |
|
register object V190; |
1064 |
|
{object V191; |
1065 |
base[2]= VV[55]; |
base[2]= VV[55]; |
1066 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1067 |
Lfind_package(); |
Lfind_package(); |
1068 |
vs_top=sup; |
vs_top=sup; |
1069 |
V189= vs_base[0]; |
V191= vs_base[0]; |
1070 |
base[2]= (V189); |
base[2]= (V191); |
1071 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1072 |
Lpackagep(); |
Lpackagep(); |
1073 |
vs_top=sup; |
vs_top=sup; |
1074 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1075 |
goto T191;} |
goto T191;} |
1076 |
base[2]= coerce_to_string((V189)); |
base[2]= coerce_to_string((V191)); |
1077 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1078 |
Lfind_package(); |
Lfind_package(); |
1079 |
vs_top=sup; |
vs_top=sup; |
1080 |
V189= vs_base[0]; |
V191= vs_base[0]; |
1081 |
if(((V189))!=Cnil){ |
if(((V191))!=Cnil){ |
1082 |
goto T191;} |
goto T191;} |
1083 |
base[2]= VV[56]; |
base[2]= VV[56]; |
1084 |
base[3]= VV[57]; |
base[3]= VV[57]; |
1092 |
vs_top=sup; |
vs_top=sup; |
1093 |
goto T191; |
goto T191; |
1094 |
T191:; |
T191:; |
1095 |
V186= (V189);} |
V188= (V191);} |
1096 |
V187= Cnil; |
V189= Cnil; |
1097 |
V188= Cnil; |
V190= Cnil; |
1098 |
{object V190; |
{object V192; |
1099 |
register object V191; |
register object V193; |
1100 |
base[4]= (V186); |
V194 = (V188); |
1101 |
|
base[4]= (V188); |
1102 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1103 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1104 |
vs_top=sup; |
vs_top=sup; |
1105 |
V192= vs_base[0]; |
V195= vs_base[0]; |
1106 |
V190= make_cons((V186),V192); |
V192= make_cons(V194,V195); |
1107 |
V191= CMPcar((V190)); |
V193= CMPcar((V192)); |
1108 |
goto T208; |
goto T208; |
1109 |
T208:; |
T208:; |
1110 |
if(!(((V190))==Cnil)){ |
if(!(((V192))==Cnil)){ |
1111 |
goto T209;} |
goto T209;} |
1112 |
V187= Cnil; |
V189= Cnil; |
1113 |
goto T187; |
goto T187; |
1114 |
goto T209; |
goto T209; |
1115 |
T209:; |
T209:; |
1116 |
{long V193; |
{long V196; |
1117 |
register long V194; |
register long V197; |
1118 |
base[4]= (V191); |
base[4]= (V193); |
1119 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1120 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
1121 |
if(vs_base>=vs_top){vs_top=sup;goto T218;} |
if(vs_base>=vs_top){vs_top=sup;goto T218;} |
1122 |
V193= fix(vs_base[0]); |
V196= fix(vs_base[0]); |
1123 |
vs_base++; |
vs_base++; |
1124 |
if(vs_base>=vs_top){vs_top=sup;goto T219;} |
if(vs_base>=vs_top){vs_top=sup;goto T219;} |
1125 |
V194= fix(vs_base[0]); |
V197= fix(vs_base[0]); |
1126 |
vs_top=sup; |
vs_top=sup; |
1127 |
goto T220; |
goto T220; |
1128 |
goto T218; |
goto T218; |
1129 |
T218:; |
T218:; |
1130 |
V193= fix(Cnil); |
V196= fix(Cnil); |
1131 |
goto T219; |
goto T219; |
1132 |
T219:; |
T219:; |
1133 |
V194= fix(Cnil); |
V197= fix(Cnil); |
1134 |
goto T220; |
goto T220; |
1135 |
T220:; |
T220:; |
1136 |
if(((V186))==((V191))){ |
if(((V188))==((V193))){ |
1137 |
goto T221;} |
goto T221;} |
1138 |
V194= 0; |
V197= 0; |
1139 |
goto T221; |
goto T221; |
1140 |
T221:; |
T221:; |
1141 |
{long V195; |
{long V198; |
1142 |
register long V196; |
register long V199; |
1143 |
V195= (long)(V194)+(V193); |
V198= (long)(V197)+(V196); |
1144 |
V196= 0; |
V199= 0; |
1145 |
goto T228; |
goto T228; |
1146 |
T228:; |
T228:; |
1147 |
if(!((V196)>=(V195))){ |
if(!((V199)>=(V198))){ |
1148 |
goto T231;} |
goto T231;} |
1149 |
goto T215; |
goto T215; |
1150 |
goto T231; |
goto T231; |
1151 |
T231:; |
T231:; |
1152 |
if(!((V196)<(V194))){ |
if(!((V199)<(V197))){ |
1153 |
goto T236;} |
goto T236;} |
1154 |
base[4]= (V191); |
base[4]= (V193); |
1155 |
base[5]= CMPmake_fixnum(V196); |
base[5]= CMPmake_fixnum(V199); |
1156 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1157 |
siLpackage_internal(); |
siLpackage_internal(); |
1158 |
vs_top=sup; |
vs_top=sup; |
1159 |
V188= vs_base[0]; |
V190= vs_base[0]; |
1160 |
goto T234; |
goto T234; |
1161 |
goto T236; |
goto T236; |
1162 |
T236:; |
T236:; |
1163 |
base[4]= (V191); |
base[4]= (V193); |
1164 |
V197 = CMPmake_fixnum(V196); |
V200 = CMPmake_fixnum(V199); |
1165 |
V198 = CMPmake_fixnum(V194); |
V201 = CMPmake_fixnum(V197); |
1166 |
base[5]= number_minus(V197,V198); |
base[5]= number_minus(V200,V201); |
1167 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1168 |
siLpackage_external(); |
siLpackage_external(); |
1169 |
vs_top=sup; |
vs_top=sup; |
1170 |
V188= vs_base[0]; |
V190= vs_base[0]; |
1171 |
goto T234; |
goto T234; |
1172 |
T234:; |
T234:; |
1173 |
goto T229; |
goto T229; |
1174 |
T229:; |
T229:; |
1175 |
if(((V188))!=Cnil){ |
if(((V190))!=Cnil){ |
1176 |
goto T242;} |
goto T242;} |
1177 |
goto T230; |
goto T230; |
1178 |
goto T242; |
goto T242; |
1179 |
T242:; |
T242:; |
1180 |
V187= CMPcar((V188)); |
V189= CMPcar((V190)); |
1181 |
if(((V191))==((V186))){ |
if(((V193))==((V188))){ |
1182 |
goto T248;} |
goto T248;} |
1183 |
base[5]= symbol_name((V187)); |
base[5]= symbol_name((V189)); |
1184 |
base[6]= (V186); |
base[6]= (V188); |
1185 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1186 |
Lfind_symbol(); |
Lfind_symbol(); |
1187 |
Llist(); |
Llist(); |
1190 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1191 |
Llast(); |
Llast(); |
1192 |
vs_top=sup; |
vs_top=sup; |
1193 |
V199= vs_base[0]; |
V202= vs_base[0]; |
1194 |
if(!((VV[58])==(CMPcar(V199)))){ |
if(!((VV[58])==(CMPcar(V202)))){ |
1195 |
goto T247;} |
goto T247;} |
1196 |
goto T248; |
goto T248; |
1197 |
T248:; |
T248:; |
1198 |
{object V200 =((V187))->s.s_plist; |
{object V203 =((V189))->s.s_plist; |
1199 |
object ind= VV[22]; |
object ind= VV[22]; |
1200 |
while(V200!=Cnil){ |
while(V203!=Cnil){ |
1201 |
if(V200->c.c_car==ind){ |
if(V203->c.c_car==ind){ |
1202 |
if(((V200->c.c_cdr->c.c_car))==Cnil){ |
if(((V203->c.c_cdr->c.c_car))==Cnil){ |
1203 |
goto T257;} |
goto T257;} |
1204 |
goto T259; |
goto T259; |
1205 |
}else V200=V200->c.c_cdr->c.c_cdr;} |
}else V203=V203->c.c_cdr->c.c_cdr;} |
1206 |
goto T257;} |
goto T257;} |
1207 |
goto T259; |
goto T259; |
1208 |
T259:; |
T259:; |
1209 |
if(((V185))==Cnil){ |
if(((V187))==Cnil){ |
1210 |
goto T261;} |
goto T261;} |
1211 |
{object V201; |
{object V204; |
1212 |
object V202; |
object V205; |
1213 |
V201= (V185); |
V204= (V187); |
1214 |
V185= make_cons((V187),Cnil); |
V187= make_cons((V189),Cnil); |
1215 |
V202= (V185); |
V205= (V187); |
1216 |
((V201))->c.c_cdr = (V202); |
((V204))->c.c_cdr = (V205); |
1217 |
goto T257;} |
goto T257;} |
1218 |
goto T261; |
goto T261; |
1219 |
T261:; |
T261:; |
1220 |
V185= make_cons((V187),Cnil); |
V187= make_cons((V189),Cnil); |
1221 |
V184= (V185); |
V186= (V187); |
1222 |
goto T257; |
goto T257; |
1223 |
T257:; |
T257:; |
1224 |
goto T247; |
goto T247; |
1225 |
T247:; |
T247:; |
1226 |
V188= CMPcdr((V188)); |
V190= CMPcdr((V190)); |
1227 |
goto T229; |
goto T229; |
1228 |
goto T230; |
goto T230; |
1229 |
T230:; |
T230:; |
1230 |
V196= (long)(V196)+1; |
V199= (long)(V199)+1; |
1231 |
goto T228;}} |
goto T228;}} |
1232 |
goto T215; |
goto T215; |
1233 |
T215:; |
T215:; |
1234 |
V190= CMPcdr((V190)); |
V192= CMPcdr((V192)); |
1235 |
V191= CMPcar((V190)); |
V193= CMPcar((V192)); |
1236 |
goto T208;}} |
goto T208;}} |
1237 |
goto T187; |
goto T187; |
1238 |
T187:; |
T187:; |
1239 |
V183= (V184); |
V185= (V186); |
1240 |
goto T186; |
goto T186; |
1241 |
V183= Cnil; |
V185= Cnil; |
1242 |
goto T186; |
goto T186; |
1243 |
V183= Cnil;} |
V185= Cnil;} |
1244 |
goto T186; |
goto T186; |
1245 |
T186:; |
T186:; |
1246 |
V203= list(3,VV[53],list(2,VV[54],list(2,VV[31],V183)),VV[59]); |
V206= list(3,VV[53],list(2,VV[54],list(2,VV[31],V185)),VV[59]); |
1247 |
(void)(print(/* INLINE-ARGS */V203,base[0])); |
(void)(print(/* INLINE-ARGS */V206,base[0])); |
1248 |
base[2]= base[0]; |
base[2]= base[0]; |
1249 |
base[3]= VV[60]; |
base[3]= VV[60]; |
1250 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1267 |
for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[1];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
1268 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1269 |
vs_top=sup; |
vs_top=sup; |
1270 |
{object V204 = vs_base[0]; |
{object V207 = vs_base[0]; |
1271 |
VMR32(V204)}}} |
VMR32(V207)}}} |
1272 |
base[0]=base[0]; |
base[0]=base[0]; |
1273 |
return Cnil; |
return Cnil; |
1274 |
} |
} |
1279 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1280 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM33; VC33 |
1281 |
vs_check; |
vs_check; |
1282 |
{object V205; |
{object V208; |
1283 |
object V206; |
object V209; |
1284 |
check_arg(2); |
check_arg(2); |
1285 |
V205=(base[0]); |
V208=(base[0]); |
1286 |
V206=(base[1]); |
V209=(base[1]); |
1287 |
vs_top=sup; |
vs_top=sup; |
1288 |
base[2]= (V206); |
base[2]= (V209); |
1289 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
1290 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
1291 |
base[5]= (V205); |
base[5]= (V208); |
1292 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1293 |
siLstructure_set(); |
siLstructure_set(); |
1294 |
return; |
return; |
1301 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1302 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
1303 |
vs_check; |
vs_check; |
1304 |
{object V207; |
{object V210; |
1305 |
check_arg(1); |
check_arg(1); |
1306 |
V207=(base[0]); |
V210=(base[0]); |
1307 |
vs_top=sup; |
vs_top=sup; |
1308 |
base[1]= (V207); |
base[1]= (V210); |
1309 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
1310 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1311 |
(void) (*Lnk79)(); |
(void) (*Lnk79)(); |
1319 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1320 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
1321 |
vs_check; |
vs_check; |
1322 |
{object V208; |
{object V211; |
1323 |
check_arg(1); |
check_arg(1); |
1324 |
V208=(base[0]); |
V211=(base[0]); |
1325 |
vs_top=sup; |
vs_top=sup; |
1326 |
base[1]= (((V208))==(Ct)?Ct:Cnil); |
base[1]= (((V211))==(Ct)?Ct:Cnil); |
1327 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1328 |
return; |
return; |
1329 |
} |
} |