1140 |
V135= |
V135= |
1141 |
make_cclosure_new(LC21,Cnil,base[0],Cdata); |
make_cclosure_new(LC21,Cnil,base[0],Cdata); |
1142 |
goto T479; |
goto T479; |
1143 |
T479:;{object V152; |
T479:; |
1144 |
V152= get((V132),VV[2],Cnil); |
{object V151;{object V153; |
1145 |
if(V152==Cnil)goto T486; |
V153= get((V132),VV[2],Cnil); |
1146 |
V151= V152; |
if(V153==Cnil)goto T486; |
1147 |
|
V152= V153; |
1148 |
goto T485; |
goto T485; |
1149 |
goto T486; |
goto T486; |
1150 |
T486:;} |
T486:;} |
1151 |
V151= Ct; |
V152= Ct; |
1152 |
goto T485; |
goto T485; |
1153 |
T485:; |
T485:; |
1154 |
if((V135)!=Cnil){ |
if((V135)!=Cnil){ |
1155 |
V153= (V135); |
V154= (V135); |
1156 |
goto T488;} |
goto T488;} |
1157 |
V153= (base[0]->c.c_car); |
V154= (base[0]->c.c_car); |
1158 |
goto T488; |
goto T488; |
1159 |
T488:; |
T488:; |
1160 |
V154= list(6,(V132),(V140),V151,small_fixnum(3),V153,VV[72]); |
V151= list(6,(V132),(V140),V152,small_fixnum(3),V154,VV[71]); |
1161 |
setq(VV[71],make_cons(/* INLINE-ARGS */V154,symbol_value(VV[71]))); |
setq(VV[72],make_cons((V151),symbol_value(VV[72])));} |
1162 |
base[2]= Cnil; |
base[2]= Cnil; |
1163 |
base[3]= VV[73]; |
base[3]= VV[73]; |
1164 |
base[4]= (V137); |
base[4]= (V137); |
1167 |
vs_top=sup; |
vs_top=sup; |
1168 |
V155= vs_base[0];{object V157; |
V155= vs_base[0];{object V157; |
1169 |
V157= get((V132),VV[2],Cnil); |
V157= get((V132),VV[2],Cnil); |
1170 |
if(V157==Cnil)goto T495; |
if(V157==Cnil)goto T496; |
1171 |
V156= V157; |
V156= V157; |
1172 |
goto T494; |
goto T495; |
1173 |
goto T495; |
goto T496; |
1174 |
T495:;} |
T496:;} |
1175 |
V156= Ct; |
V156= Ct; |
1176 |
goto T494; |
goto T495; |
1177 |
T494:; |
T495:; |
1178 |
V136= list(4,(V132),V155,V156,(V140)); |
V136= list(4,(V132),V155,V156,(V140)); |
1179 |
goto T410;} |
goto T410;} |
1180 |
goto T412; |
goto T412; |
1181 |
T412:; |
T412:; |
1182 |
(void)((*(LnkLI136))((V132),(V134))); |
(void)((*(LnkLI136))((V132),(V134))); |
1183 |
if((get((V132),VV[61],Cnil))==Cnil){ |
if((get((V132),VV[61],Cnil))==Cnil){ |
1184 |
goto T501;} |
goto T502;} |
1185 |
V158= VV[61]; |
V158= VV[61]; |
1186 |
goto T499; |
goto T500; |
1187 |
goto T501; |
goto T502; |
1188 |
T501:; |
T502:; |
1189 |
V158= Cnil; |
V158= Cnil; |
1190 |
goto T499; |
goto T500; |
1191 |
T499:; |
T500:; |
1192 |
V136= list(3,(V132),(V137),V158); |
V136= list(3,(V132),(V137),V158); |
1193 |
goto T410; |
goto T410; |
1194 |
T410:; |
T410:; |
1195 |
base[0]= (V136); |
base[0]= V136; |
1196 |
base[1]= symbol_value(VV[65]); |
base[1]= symbol_value(VV[65]); |
1197 |
base[2]= VV[74]; |
base[2]= VV[74]; |
1198 |
base[3]= VV[75]; |
base[3]= VV[75]; |
1200 |
Ladjoin(); |
Ladjoin(); |
1201 |
vs_top=sup; |
vs_top=sup; |
1202 |
setq(VV[65],vs_base[0]); |
setq(VV[65],vs_base[0]); |
1203 |
{object V159 = (V137); |
{object V160 = (V137); |
1204 |
VMR11(V159)}} |
VMR11(V160)}} |
1205 |
base[0]=base[0]; |
base[0]=base[0]; |
1206 |
return Cnil; |
return Cnil; |
1207 |
} |
} |
1211 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1212 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
1213 |
vs_reserve(VM12); |
vs_reserve(VM12); |
1214 |
{object V160; |
{object V161; |
1215 |
check_arg(1); |
check_arg(1); |
1216 |
V160=(base[0]); |
V161=(base[0]); |
1217 |
vs_top=sup; |
vs_top=sup; |
1218 |
goto TTL; |
goto TTL; |
1219 |
TTL:; |
TTL:; |
1220 |
if(!(equal((V160),VV[76]))){ |
if(!(equal((V161),VV[76]))){ |
1221 |
goto T510;} |
goto T511;} |
1222 |
base[1]= VV[77]; |
base[1]= VV[77]; |
1223 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1224 |
return; |
return; |
1225 |
goto T510; |
goto T511; |
1226 |
T510:; |
T511:; |
1227 |
if(!(equal((V160),VV[78]))){ |
if(!(equal((V161),VV[78]))){ |
1228 |
goto T513;} |
goto T514;} |
1229 |
base[1]= VV[79]; |
base[1]= VV[79]; |
1230 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1231 |
return; |
return; |
1232 |
goto T513; |
goto T514; |
1233 |
T513:; |
T514:; |
1234 |
base[1]= (V160); |
base[1]= (V161); |
1235 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1236 |
return; |
return; |
1237 |
} |
} |
1238 |
} |
} |
1239 |
/* local entry for function WT-FUNCTION-LINK */ |
/* local entry for function WT-FUNCTION-LINK */ |
1240 |
|
|
1241 |
static object LI13(V162) |
static object LI13(V163) |
1242 |
|
|
1243 |
register object V162; |
register object V163; |
1244 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1245 |
goto TTL; |
goto TTL; |
1246 |
TTL:; |
TTL:; |
1247 |
{register object V163; |
{register object V164; |
|
register object V164; |
|
1248 |
register object V165; |
register object V165; |
1249 |
object V166; |
register object V166; |
1250 |
V163= car((V162)); |
object V167; |
1251 |
V164= cadr((V162)); |
V164= car((V163)); |
1252 |
V165= caddr((V162)); |
V165= cadr((V163)); |
1253 |
V166= cadddr((V162)); |
V166= caddr((V163)); |
1254 |
if(((V165))!=Cnil){ |
V167= cadddr((V163)); |
1255 |
goto T521;} |
if(((V166))!=Cnil){ |
1256 |
|
goto T522;} |
1257 |
princ_str("\nstatic void LnkT",VV[29]); |
princ_str("\nstatic void LnkT",VV[29]); |
1258 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V165))); |
1259 |
princ_str("(){ call_or_link(VV[",VV[29]); |
princ_str("(){ call_or_link(VV[",VV[29]); |
1260 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V165))); |
1261 |
princ_str("],(void **)&Lnk",VV[29]); |
princ_str("],(void **)&Lnk",VV[29]); |
1262 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V165))); |
1263 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1264 |
goto T519; |
goto T520; |
1265 |
goto T521; |
goto T522; |
1266 |
T521:; |
T522:; |
1267 |
if(!(eql((V165),VV[61]))){ |
if(!(eql((V166),VV[61]))){ |
1268 |
goto T531;} |
goto T532;} |
1269 |
princ_str("\nstatic void LnkT",VV[29]); |
princ_str("\nstatic void LnkT",VV[29]); |
1270 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V165))); |
1271 |
princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]); |
princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]); |
1272 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V165))); |
1273 |
princ_str("],(void **)&Lnk",VV[29]); |
princ_str("],(void **)&Lnk",VV[29]); |
1274 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V165))); |
1275 |
princ_str(",&Lclptr",VV[29]); |
princ_str(",&Lclptr",VV[29]); |
1276 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V165))); |
1277 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1278 |
goto T519; |
goto T520; |
1279 |
goto T531; |
goto T532; |
1280 |
T531:; |
T532:; |
1281 |
princ_str("\nstatic ",VV[29]); |
princ_str("\nstatic ",VV[29]); |
1282 |
base[0]= (*(LnkLI143))((V165)); |
base[0]= (*(LnkLI143))((V166)); |
1283 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1284 |
(void) (*Lnk144)(); |
(void) (*Lnk144)(); |
1285 |
vs_top=sup; |
vs_top=sup; |
1286 |
V167= vs_base[0]; |
V168= vs_base[0]; |
1287 |
(void)((*(LnkLI117))(V167)); |
(void)((*(LnkLI117))(V168)); |
1288 |
princ_str(" LnkT",VV[29]); |
princ_str(" LnkT",VV[29]); |
1289 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V165))); |
1290 |
if(((V166))!=Cnil){ |
if(((V167))!=Cnil){ |
|
goto T549;} |
|
|
if((Ct)==((V165))){ |
|
1291 |
goto T550;} |
goto T550;} |
1292 |
goto T549; |
if((Ct)==((V166))){ |
1293 |
T549:; |
goto T551;} |
1294 |
{object V168; |
goto T550; |
1295 |
{register object x= VV[5],V169= (V166); |
T550:; |
1296 |
while(!endp(V169)) |
{object V169; |
1297 |
if(eql(x,V169->c.c_car)){ |
{register object x= VV[5],V170= (V167); |
1298 |
V168= V169; |
while(!endp(V170)) |
1299 |
goto T554; |
if(eql(x,V170->c.c_car)){ |
1300 |
}else V169=V169->c.c_cdr; |
V169= V170; |
1301 |
V168= Cnil;} |
goto T555; |
1302 |
goto T554; |
}else V170=V170->c.c_cdr; |
1303 |
T554:; |
V169= Cnil;} |
1304 |
|
goto T555; |
1305 |
|
T555:; |
1306 |
princ_str("(va_alist)va_dcl{",VV[29]); |
princ_str("(va_alist)va_dcl{",VV[29]); |
1307 |
base[0]= (*(LnkLI143))((V165)); |
base[0]= (*(LnkLI143))((V166)); |
1308 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1309 |
(void) (*Lnk144)(); |
(void) (*Lnk144)(); |
1310 |
vs_top=sup; |
vs_top=sup; |
1311 |
V170= vs_base[0]; |
V171= vs_base[0]; |
1312 |
(void)((*(LnkLI117))(V170)); |
(void)((*(LnkLI117))(V171)); |
1313 |
princ_str("V1;",VV[29]); |
princ_str("V1;",VV[29]); |
1314 |
princ_str("va_list ap;va_start(ap);V1=call_",VV[29]); |
princ_str("va_list ap;va_start(ap);V1=call_",VV[29]); |
1315 |
if(((V168))==Cnil){ |
if(((V169))==Cnil){ |
1316 |
goto T565;} |
goto T566;} |
1317 |
V171= VV[80]; |
V172= VV[80]; |
1318 |
goto T563; |
goto T564; |
1319 |
goto T565; |
goto T566; |
1320 |
T565:; |
T566:; |
1321 |
V171= VV[81]; |
V172= VV[81]; |
1322 |
goto T563; |
goto T564; |
1323 |
T563:; |
T564:; |
1324 |
(void)((*(LnkLI117))(V171)); |
(void)((*(LnkLI117))(V172)); |
1325 |
princ_str("proc(VV[",VV[29]); |
princ_str("proc(VV[",VV[29]); |
1326 |
V172= (*(LnkLI145))((V163)); |
V173= (*(LnkLI145))((V164)); |
1327 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V172)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V173)); |
1328 |
princ_str("],(void **)&Lnk",VV[29]); |
princ_str("],(void **)&Lnk",VV[29]); |
1329 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V165))); |
1330 |
if((V168)!=Cnil){ |
if((V169)!=Cnil){ |
1331 |
goto T571;} |
goto T572;} |
1332 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1333 |
V173 = make_fixnum((long)(*(LnkLI146))((V166),(V165))); |
V174 = make_fixnum((long)(*(LnkLI146))((V167),(V166))); |
1334 |
(void)((*(LnkLI117))(V173)); |
(void)((*(LnkLI117))(V174)); |
1335 |
goto T571; |
goto T572; |
1336 |
T571:; |
T572:; |
1337 |
princ_str(",ap);va_end(ap);return V1;}",VV[29]); |
princ_str(",ap);va_end(ap);return V1;}",VV[29]); |
1338 |
goto T519;} |
goto T520;} |
1339 |
goto T550; |
goto T551; |
1340 |
T550:; |
T551:; |
1341 |
princ_str("(){return call_proc0(VV[",VV[29]); |
princ_str("(){return call_proc0(VV[",VV[29]); |
1342 |
V174= (*(LnkLI145))((V163)); |
V175= (*(LnkLI145))((V164)); |
1343 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V174)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V175)); |
1344 |
princ_str("],(void **)&Lnk",VV[29]); |
princ_str("],(void **)&Lnk",VV[29]); |
1345 |
(void)((*(LnkLI117))((V164))); |
(void)((*(LnkLI117))((V165))); |
1346 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1347 |
goto T519; |
goto T520; |
1348 |
T519:; |
T520:; |
1349 |
V163= symbol_name((V163)); |
V164= symbol_name((V164)); |
1350 |
if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V163))))==Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V164))))==Cnil){ |
1351 |
goto T582;} |
goto T583;} |
1352 |
V163= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V163))); |
V164= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V164))); |
1353 |
goto T582; |
goto T583; |
1354 |
T582:; |
T583:; |
1355 |
princ_str(" /* ",VV[29]); |
princ_str(" /* ",VV[29]); |
1356 |
(void)((*(LnkLI117))((V163))); |
(void)((*(LnkLI117))((V164))); |
1357 |
princ_str(" */",VV[29]); |
princ_str(" */",VV[29]); |
1358 |
{object V175 = Cnil; |
{object V176 = Cnil; |
1359 |
VMR13(V175)}} |
VMR13(V176)}} |
1360 |
base[0]=base[0]; |
base[0]=base[0]; |
1361 |
return Cnil; |
return Cnil; |
1362 |
} |
} |
1363 |
/* local entry for function WT-FUNCALL-C */ |
/* local entry for function WT-FUNCALL-C */ |
1364 |
|
|
1365 |
static object LI14(V177) |
static object LI14(V178) |
1366 |
|
|
1367 |
register object V177; |
register object V178; |
1368 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1369 |
bds_check; |
bds_check; |
1370 |
goto TTL; |
goto TTL; |
1371 |
TTL:; |
TTL:; |
1372 |
{object V178; |
{object V179; |
1373 |
object V179; |
object V180; |
1374 |
register object V180; |
register object V181; |
1375 |
V178= car((V177)); |
V179= car((V178)); |
1376 |
V179= cdr((V177)); |
V180= cdr((V178)); |
1377 |
V180= Cnil; |
V181= Cnil; |
1378 |
if(!(eql(car((V178)),VV[23]))){ |
if(!(eql(car((V179)),VV[23]))){ |
1379 |
goto T594;} |
goto T595;} |
1380 |
{object V181; |
{object V182; |
1381 |
V181= make_cons(car((V178)),caddr((V178))); |
V182= make_cons(car((V179)),caddr((V179))); |
1382 |
if((symbol_value(VV[83]))==Cnil){ |
if((symbol_value(VV[83]))==Cnil){ |
1383 |
goto T597;} |
goto T598;} |
1384 |
princ_str("\n (type_of(",VV[29]); |
princ_str("\n (type_of(",VV[29]); |
1385 |
base[0]= (V181); |
base[0]= (V182); |
1386 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1387 |
(void) (*Lnk149)(); |
(void) (*Lnk149)(); |
1388 |
vs_top=sup; |
vs_top=sup; |
1389 |
princ_str(")==t_cfun)||FEinvalid_function(",VV[29]); |
princ_str(")==t_cfun)||FEinvalid_function(",VV[29]); |
1390 |
base[0]= (V181); |
base[0]= (V182); |
1391 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1392 |
(void) (*Lnk149)(); |
(void) (*Lnk149)(); |
1393 |
vs_top=sup; |
vs_top=sup; |
1394 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1395 |
goto T597; |
goto T598; |
1396 |
T597:; |
T598:; |
1397 |
(void)((*(LnkLI116))((V179))); |
(void)((*(LnkLI116))((V180))); |
1398 |
princ_str("\n (",VV[29]); |
princ_str("\n (",VV[29]); |
1399 |
base[0]= (V181); |
base[0]= (V182); |
1400 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1401 |
(void) (*Lnk149)(); |
(void) (*Lnk149)(); |
1402 |
vs_top=sup; |
vs_top=sup; |
1403 |
goto T592;} |
goto T593;} |
1404 |
goto T594; |
goto T595; |
1405 |
T594:; |
T595:; |
1406 |
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
1407 |
V180= list(2,VV[33],symbol_value(VV[84])); |
V181= list(2,VV[33],symbol_value(VV[84])); |
1408 |
bds_bind(VV[21],(V180)); |
bds_bind(VV[21],(V181)); |
1409 |
princ_str("\n {object V",VV[29]); |
princ_str("\n {object V",VV[29]); |
1410 |
(void)((*(LnkLI117))(cadr((V180)))); |
(void)((*(LnkLI117))(cadr((V181)))); |
1411 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
1412 |
(void)((*(LnkLI115))(car((V177)))); |
(void)((*(LnkLI115))(car((V178)))); |
1413 |
(void)((*(LnkLI116))(cdr((V177)))); |
(void)((*(LnkLI116))(cdr((V178)))); |
1414 |
princ_str("(V",VV[29]); |
princ_str("(V",VV[29]); |
1415 |
(void)((*(LnkLI117))(cadr((V180)))); |
(void)((*(LnkLI117))(cadr((V181)))); |
1416 |
bds_unwind1; |
bds_unwind1; |
1417 |
goto T592; |
goto T593; |
1418 |
T592:; |
T593:; |
1419 |
princ_str(")->cf.cf_self ();",VV[29]); |
princ_str(")->cf.cf_self ();",VV[29]); |
1420 |
if((V180)==Cnil){ |
if((V181)==Cnil){ |
1421 |
goto T589;} |
goto T590;} |
1422 |
princ_char(125,VV[29]);} |
princ_char(125,VV[29]);} |
1423 |
goto T589; |
goto T590; |
1424 |
T589:; |
T590:; |
1425 |
{object V182 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
{object V183 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1426 |
VMR14(V182)} |
VMR14(V183)} |
1427 |
base[0]=base[0]; |
base[0]=base[0]; |
1428 |
return Cnil; |
return Cnil; |
1429 |
} |
} |
1430 |
/* local entry for function INLINE-PROC */ |
/* local entry for function INLINE-PROC */ |
1431 |
|
|
1432 |
static object LI15(V185,V186) |
static object LI15(V186,V187) |
1433 |
|
|
1434 |
object V185;object V186; |
object V186;object V187; |
1435 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1436 |
goto TTL; |
goto TTL; |
1437 |
TTL:; |
TTL:; |
1438 |
{register object V187; |
{register object V188; |
1439 |
register object V188; |
register object V189; |
1440 |
object V189; |
object V190; |
1441 |
V187= make_fixnum((long)length((V186))); |
V188= make_fixnum((long)length((V187))); |
1442 |
V188= Cnil; |
V189= Cnil; |
1443 |
V189= (*(LnkLI145))((V185)); |
V190= (*(LnkLI145))((V186)); |
1444 |
base[2]= Ct; |
base[2]= Ct; |
1445 |
base[3]= VV[85]; |
base[3]= VV[85]; |
1446 |
base[4]= (V185); |
base[4]= (V186); |
1447 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1448 |
Lformat(); |
Lformat(); |
1449 |
vs_top=sup; |
vs_top=sup; |
1450 |
{object V190; |
{object V191; |
1451 |
{object V191= (V187); |
{object V192= (V188); |
1452 |
if(!eql(V191,VV[86]))goto T635; |
if(!eql(V192,VV[86]))goto T636; |
1453 |
base[2]= Cnil; |
base[2]= Cnil; |
1454 |
base[3]= VV[88]; |
base[3]= VV[88]; |
1455 |
base[4]= (V189); |
base[4]= (V190); |
1456 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1457 |
Lformat(); |
Lformat(); |
1458 |
vs_top=sup; |
vs_top=sup; |
1459 |
V192= vs_base[0]; |
V193= vs_base[0]; |
1460 |
V190= list(5,VV[87],Ct,small_fixnum(3),V192,VV[58]); |
V191= list(5,VV[87],Ct,small_fixnum(3),V193,VV[58]); |
1461 |
goto T634; |
goto T635; |
1462 |
goto T635; |
goto T636; |
1463 |
T635:; |
T636:; |
1464 |
if(!eql(V191,VV[89]))goto T640; |
if(!eql(V192,VV[89]))goto T641; |
1465 |
base[2]= Cnil; |
base[2]= Cnil; |
1466 |
base[3]= VV[91]; |
base[3]= VV[91]; |
1467 |
base[4]= (V189); |
base[4]= (V190); |
1468 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1469 |
Lformat(); |
Lformat(); |
1470 |
vs_top=sup; |
vs_top=sup; |
1471 |
V193= vs_base[0]; |
V194= vs_base[0]; |
1472 |
V190= list(5,VV[90],Ct,small_fixnum(3),V193,VV[58]); |
V191= list(5,VV[90],Ct,small_fixnum(3),V194,VV[58]); |
1473 |
goto T634; |
goto T635; |
1474 |
goto T640; |
goto T641; |
1475 |
T640:; |
T641:; |
1476 |
base[2]= (V187); |
base[2]= (V188); |
1477 |
base[3]= VV[63]; |
base[3]= VV[63]; |
1478 |
base[4]= Ct; |
base[4]= Ct; |
1479 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1480 |
Lmake_list(); |
Lmake_list(); |
1481 |
vs_top=sup; |
vs_top=sup; |
1482 |
V194= vs_base[0]; |
V195= vs_base[0]; |
1483 |
base[2]= Cnil; |
base[2]= Cnil; |
1484 |
base[3]= VV[92]; |
base[3]= VV[92]; |
1485 |
base[4]= (V189); |
base[4]= (V190); |
1486 |
base[5]= (V187); |
base[5]= (V188); |
1487 |
{register object V196; |
{register object V197; |
1488 |
register object V197; |
register object V198; |
1489 |
V196= (V187); |
V197= (V188); |
1490 |
V197= small_fixnum(0); |
V198= small_fixnum(0); |
|
goto T658; |
|
|
T658:; |
|
|
if(!(number_compare((V197),(V196))>=0)){ |
|
|
goto T659;} |
|
|
base[6]= nreverse((V188)); |
|
|
goto T654; |
|
1491 |
goto T659; |
goto T659; |
1492 |
T659:; |
T659:; |
1493 |
V188= make_cons((V197),(V188)); |
if(!(number_compare((V198),(V197))>=0)){ |
1494 |
V197= one_plus((V197)); |
goto T660;} |
1495 |
goto T658;} |
base[6]= nreverse((V189)); |
1496 |
goto T654; |
goto T655; |
1497 |
T654:; |
goto T660; |
1498 |
|
T660:; |
1499 |
|
{register object V199; |
1500 |
|
V199= (V198); |
1501 |
|
V189= make_cons((V199),(V189));} |
1502 |
|
V198= one_plus((V198)); |
1503 |
|
goto T659;} |
1504 |
|
goto T655; |
1505 |
|
T655:; |
1506 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1507 |
Lformat(); |
Lformat(); |
1508 |
vs_top=sup; |
vs_top=sup; |
1509 |
V195= vs_base[0]; |
V196= vs_base[0]; |
1510 |
V190= list(5,V194,Ct,small_fixnum(3),V195,VV[58]);} |
V191= list(5,V195,Ct,small_fixnum(3),V196,VV[58]);} |
1511 |
goto T634; |
goto T635; |
1512 |
T634:; |
T635:; |
1513 |
V198= make_cons((V185),(V190)); |
{object V200; |
1514 |
setq(VV[71],make_cons(/* INLINE-ARGS */V198,symbol_value(VV[71]))); |
V200= make_cons((V186),(V191)); |
1515 |
{object V199 = (V190); |
setq(VV[72],make_cons((V200),symbol_value(VV[72])));} |
1516 |
VMR15(V199)}}} |
{object V201 = (V191); |
1517 |
|
VMR15(V201)}}} |
1518 |
base[0]=base[0]; |
base[0]=base[0]; |
1519 |
return Cnil; |
return Cnil; |
1520 |
} |
} |
1521 |
/* local entry for function WT-SIMPLE-CALL */ |
/* local entry for function WT-SIMPLE-CALL */ |
1522 |
|
|
1523 |
static object LI16(V202,V201,V200,va_alist) |
static object LI16(V204,V203,V202,va_alist) |
1524 |
object V202,V201,V200; |
object V204,V203,V202; |
1525 |
va_dcl |
va_dcl |
1526 |
{ |
{ |
1527 |
va_list ap; |
va_list ap; |
1528 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
1529 |
{object V203; |
{object V205; |
|
object V204; |
|
|
object V205; |
|
1530 |
object V206; |
object V206; |
1531 |
|
object V207; |
1532 |
|
object V208; |
1533 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1534 |
va_start(ap); |
va_start(ap); |
1535 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1536 |
V203= V202; |
V205= V204; |
1537 |
V204= V201; |
V206= V203; |
1538 |
V205= V200; |
V207= V202; |
1539 |
narg = narg - 3; |
narg = narg - 3; |
1540 |
if (narg <= 0) goto T670; |
if (narg <= 0) goto T673; |
1541 |
else { |
else { |
1542 |
V206= va_arg(ap,object);} |
V208= va_arg(ap,object);} |
1543 |
--narg; goto T671; |
--narg; goto T674; |
1544 |
goto T670; |
goto T673; |
1545 |
T670:; |
T673:; |
1546 |
V206= Cnil; |
V208= Cnil; |
1547 |
goto T671; |
goto T674; |
1548 |
T671:; |
T674:; |
1549 |
princ_str("simple_",VV[29]); |
princ_str("simple_",VV[29]); |
1550 |
(void)((*(LnkLI117))((V203))); |
(void)((*(LnkLI117))((V205))); |
1551 |
princ_char(40,VV[29]); |
princ_char(40,VV[29]); |
1552 |
if(((V206))==Cnil){ |
if(((V208))==Cnil){ |
1553 |
goto T677;} |
goto T680;} |
1554 |
princ_str("VV[",VV[29]); |
princ_str("VV[",VV[29]); |
1555 |
(void)((*(LnkLI117))((V206))); |
(void)((*(LnkLI117))((V208))); |
1556 |
princ_str("],",VV[29]); |
princ_str("],",VV[29]); |
1557 |
goto T677; |
goto T680; |
1558 |
T677:; |
T680:; |
1559 |
princ_str("base+",VV[29]); |
princ_str("base+",VV[29]); |
1560 |
(void)((*(LnkLI117))((V204))); |
(void)((*(LnkLI117))((V206))); |
1561 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1562 |
(void)((*(LnkLI117))((V205))); |
(void)((*(LnkLI117))((V207))); |
1563 |
princ_char(41,VV[29]); |
princ_char(41,VV[29]); |
1564 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
1565 |
{object V207 = Ct; |
{object V209 = Ct; |
1566 |
VMR16(V207)} |
VMR16(V209)} |
1567 |
va_end(ap); |
va_end(ap); |
1568 |
return Cnil;} |
return Cnil;} |
1569 |
} |
} |
1570 |
/* local entry for function SAVE-FUNOB */ |
/* local entry for function SAVE-FUNOB */ |
1571 |
|
|
1572 |
static object LI17(V209) |
static object LI17(V211) |
1573 |
|
|
1574 |
register object V209; |
register object V211; |
1575 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1576 |
bds_check; |
bds_check; |
1577 |
goto TTL; |
goto TTL; |
1578 |
TTL:; |
TTL:; |
1579 |
{object V210= car((V209)); |
{object V212= car((V211)); |
1580 |
if((V210!= VV[13]) |
if((V212!= VV[13]) |
1581 |
&& (V210!= VV[150]) |
&& (V212!= VV[150]) |
1582 |
&& (V210!= VV[6]))goto T690; |
&& (V212!= VV[6]))goto T693; |
1583 |
{object V211 = Cnil; |
{object V213 = Cnil; |
1584 |
VMR17(V211)} |
VMR17(V213)} |
1585 |
goto T690; |
goto T693; |
1586 |
T690:; |
T693:; |
1587 |
if((V210!= VV[14]))goto T691; |
if((V212!= VV[14]))goto T694; |
1588 |
if(((*(LnkLI127))(caddr((V209))))==Cnil){ |
if(((*(LnkLI127))(caddr((V211))))==Cnil){ |
1589 |
goto T692;} |
goto T695;} |
1590 |
if((get(caddr((V209)),VV[55],Cnil))!=Cnil){ |
if((get(caddr((V211)),VV[55],Cnil))!=Cnil){ |
1591 |
goto T693;} |
goto T696;} |
1592 |
if((get(caddr((V209)),VV[56],Cnil))!=Cnil){ |
if((get(caddr((V211)),VV[56],Cnil))!=Cnil){ |
1593 |
goto T693;} |
goto T696;} |
1594 |
{register object x= caddr((V209)),V212= symbol_value(VV[93]); |
{register object x= caddr((V211)),V214= symbol_value(VV[93]); |
1595 |
while(!endp(V212)) |
while(!endp(V214)) |
1596 |
if(type_of(V212->c.c_car)==t_cons &&eql(x,V212->c.c_car->c.c_car)){ |
if(type_of(V214->c.c_car)==t_cons &&eql(x,V214->c.c_car->c.c_car)){ |
1597 |
goto T693; |
goto T696; |
1598 |
}else V212=V212->c.c_cdr;} |
}else V214=V214->c.c_cdr;} |
1599 |
goto T692; |
goto T695; |
1600 |
T692:; |
T695:; |
1601 |
{object V213; |
{object V215; |
1602 |
V213= list(2,VV[27],(*(LnkLI114))()); |
V215= list(2,VV[27],(*(LnkLI114))()); |
1603 |
if((symbol_value(VV[83]))==Cnil){ |
if((symbol_value(VV[83]))==Cnil){ |
1604 |
goto T704;} |
goto T707;} |
1605 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1606 |
(void)((*(LnkLI117))((V213))); |
(void)((*(LnkLI117))((V215))); |
1607 |
princ_str("=symbol_function(VV[",VV[29]); |
princ_str("=symbol_function(VV[",VV[29]); |
1608 |
V214= (*(LnkLI140))(caddr((V209))); |
V216= (*(LnkLI140))(caddr((V211))); |
1609 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V214)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V216)); |
1610 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1611 |
goto T702; |
goto T705; |
1612 |
goto T704; |
goto T707; |
1613 |
T704:; |
T707:; |
1614 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1615 |
(void)((*(LnkLI117))((V213))); |
(void)((*(LnkLI117))((V215))); |
1616 |
princ_str("=VV[",VV[29]); |
princ_str("=VV[",VV[29]); |
1617 |
V215= (*(LnkLI140))(caddr((V209))); |
V217= (*(LnkLI140))(caddr((V211))); |
1618 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V215)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V217)); |
1619 |
princ_str("]->s.s_gfdef;",VV[29]); |
princ_str("]->s.s_gfdef;",VV[29]); |
1620 |
goto T702; |
goto T705; |
1621 |
T702:; |
T705:; |
1622 |
{object V216 = (V213); |
{object V218 = (V215); |
1623 |
VMR17(V216)}} |
VMR17(V218)}} |
1624 |
goto T693; |
goto T696; |
1625 |
T693:; |
T696:; |
1626 |
{object V217 = Cnil; |
{object V219 = Cnil; |
1627 |
VMR17(V217)} |
VMR17(V219)} |
1628 |
goto T691; |
goto T694; |
1629 |
T691:; |
T694:; |
1630 |
if((V210!= VV[18]))goto T716; |
if((V212!= VV[18]))goto T719; |
1631 |
{object V218; |
{object V220; |
1632 |
V218= list(2,VV[27],(*(LnkLI114))()); |
V220= list(2,VV[27],(*(LnkLI114))()); |
1633 |
bds_bind(VV[21],(V218)); |
bds_bind(VV[21],(V220)); |
1634 |
(void)((*(LnkLI115))(caddr((V209)))); |
(void)((*(LnkLI115))(caddr((V211)))); |
1635 |
{object V219 = (V218); |
{object V221 = (V220); |
1636 |
bds_unwind1; |
bds_unwind1; |
1637 |
VMR17(V219)}} |
VMR17(V221)}} |
1638 |
goto T716; |
goto T719; |
1639 |
T716:; |
T719:; |
1640 |
{object V220 = (*(LnkLI112))(); |
{object V222 = (*(LnkLI112))(); |
1641 |
VMR17(V220)}} |
VMR17(V222)}} |
1642 |
base[0]=base[0]; |
base[0]=base[0]; |
1643 |
return Cnil; |
return Cnil; |
1644 |
} |
} |
1645 |
/* local entry for function PUSH-ARGS */ |
/* local entry for function PUSH-ARGS */ |
1646 |
|
|
1647 |
static object LI18(V222) |
static object LI18(V224) |
1648 |
|
|
1649 |
object V222; |
object V224; |
1650 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1651 |
bds_check; |
bds_check; |
1652 |
goto TTL; |
goto TTL; |
1653 |
TTL:; |
TTL:; |
1654 |
if(((V222))!=Cnil){ |
if(((V224))!=Cnil){ |
1655 |
goto T720;} |
goto T723;} |
1656 |
princ_str("\n vs_base=vs_top;",VV[29]); |
princ_str("\n vs_base=vs_top;",VV[29]); |
1657 |
{object V223 = Cnil; |
{object V225 = Cnil; |
1658 |
VMR18(V223)} |
VMR18(V225)} |
1659 |
goto T720; |
goto T723; |
1660 |
T720:; |
T723:; |
1661 |
if(!(type_of((V222))==t_cons)){ |
if(!(type_of((V224))==t_cons)){ |
1662 |
goto T724;} |
goto T727;} |
1663 |
{object V224; |
{object V226; |
1664 |
V224= symbol_value(VV[19]); |
V226= symbol_value(VV[19]); |
1665 |
bds_bind(VV[19],symbol_value(VV[19])); |
bds_bind(VV[19],symbol_value(VV[19])); |
1666 |
{register object V225; |
{register object V227; |
1667 |
register object V226; |
register object V228; |
1668 |
V225= (V222); |
V227= (V224); |
1669 |
V226= car((V225)); |
V228= car((V227)); |
1670 |
goto T731; |
goto T734; |
1671 |
T731:; |
T734:; |
1672 |
if(!(endp_prop((V225)))){ |
if(!(endp_prop((V227)))){ |
1673 |
goto T732;} |
goto T735;} |
1674 |
goto T727; |
goto T730; |
1675 |
goto T732; |
goto T735; |
1676 |
T732:; |
T735:; |
1677 |
base[2]= list(2,VV[27],(*(LnkLI114))()); |
base[2]= list(2,VV[27],(*(LnkLI114))()); |
1678 |
bds_bind(VV[21],base[2]); |
bds_bind(VV[21],base[2]); |
1679 |
V227= (*(LnkLI115))((V226)); |
V229= (*(LnkLI115))((V228)); |
1680 |
bds_unwind1; |
bds_unwind1; |
1681 |
V225= cdr((V225)); |
V227= cdr((V227)); |
1682 |
V226= car((V225)); |
V228= car((V227)); |
1683 |
goto T731;} |
goto T734;} |
1684 |
goto T727; |
goto T730; |
1685 |
T727:; |
T730:; |
1686 |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
1687 |
(void)((*(LnkLI117))((V224))); |
(void)((*(LnkLI117))((V226))); |
1688 |
princ_str(")+",VV[29]); |
princ_str(")+",VV[29]); |
1689 |
V228= number_minus((VV[19]->s.s_dbind),(V224)); |
V230= number_minus((VV[19]->s.s_dbind),(V226)); |
1690 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V228)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V230)); |
1691 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
1692 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
1693 |
{object V229 = Ct; |
{object V231 = Ct; |
1694 |
bds_unwind1; |
bds_unwind1; |
1695 |
VMR18(V229)}} |
VMR18(V231)}} |
1696 |
goto T724; |
goto T727; |
1697 |
T724:; |
T727:; |
1698 |
{object V230 = Cnil; |
{object V232 = Cnil; |
1699 |
VMR18(V230)} |
VMR18(V232)} |
1700 |
base[0]=base[0]; |
base[0]=base[0]; |
1701 |
return Cnil; |
return Cnil; |
1702 |
} |
} |
1703 |
/* local entry for function PUSH-ARGS-LISPCALL */ |
/* local entry for function PUSH-ARGS-LISPCALL */ |
1704 |
|
|
1705 |
static object LI19(V232) |
static object LI19(V234) |
1706 |
|
|
1707 |
object V232; |
object V234; |
1708 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1709 |
bds_check; |
bds_check; |
1710 |
goto TTL; |
goto TTL; |
1711 |
TTL:; |
TTL:; |
1712 |
{register object V233; |
{register object V235; |
1713 |
register object V234; |
register object V236; |
1714 |
V233= (V232); |
V235= (V234); |
1715 |
V234= car((V233)); |
V236= car((V235)); |
1716 |
goto T753; |
goto T756; |
1717 |
T753:; |
T756:; |
1718 |
if(!(endp_prop((V233)))){ |
if(!(endp_prop((V235)))){ |
1719 |
goto T754;} |
goto T757;} |
1720 |
{object V235 = Cnil; |
{object V237 = Cnil; |
1721 |
VMR19(V235)} |
VMR19(V237)} |
1722 |
goto T754; |
goto T757; |
1723 |
T754:; |
T757:; |
1724 |
base[1]= list(2,VV[27],(*(LnkLI114))()); |
base[1]= list(2,VV[27],(*(LnkLI114))()); |
1725 |
bds_bind(VV[21],base[1]); |
bds_bind(VV[21],base[1]); |
1726 |
V236= (*(LnkLI115))((V234)); |
V238= (*(LnkLI115))((V236)); |
1727 |
bds_unwind1; |
bds_unwind1; |
1728 |
V233= cdr((V233)); |
V235= cdr((V235)); |
1729 |
V234= car((V233)); |
V236= car((V235)); |
1730 |
goto T753;} |
goto T756;} |
1731 |
base[0]=base[0]; |
base[0]=base[0]; |
1732 |
return Cnil; |
return Cnil; |
1733 |
} |
} |
1734 |
/* local entry for function C2CALL-UNKNOWN-GLOBAL */ |
/* local entry for function C2CALL-UNKNOWN-GLOBAL */ |
1735 |
|
|
1736 |
static object LI20(V241,V242,V243,V244) |
static object LI20(V243,V244,V245,V246) |
1737 |
|
|
1738 |
register object V241;register object V242;register object V243;register object V244; |
register object V243;register object V244;register object V245;register object V246; |
1739 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1740 |
goto TTL; |
goto TTL; |
1741 |
TTL:; |
TTL:; |
1742 |
if((symbol_value(VV[28]))==Cnil){ |
if((symbol_value(VV[28]))==Cnil){ |
1743 |
goto T766;} |
goto T769;} |
1744 |
if(((V243))!=Cnil){ |
if(((V245))!=Cnil){ |
1745 |
goto T768;} |
goto T771;} |
1746 |
V243= list(2,VV[27],(*(LnkLI114))()); |
V245= list(2,VV[27],(*(LnkLI114))()); |
1747 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1748 |
(void)((*(LnkLI117))((V243))); |
(void)((*(LnkLI117))((V245))); |
1749 |
princ_str("=symbol_function(VV[",VV[29]); |
princ_str("=symbol_function(VV[",VV[29]); |
1750 |
V245= (*(LnkLI140))((V241)); |
V247= (*(LnkLI140))((V243)); |
1751 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V245)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V247)); |
1752 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1753 |
goto T768; |
goto T771; |
1754 |
T768:; |
T771:; |
1755 |
(void)((*(LnkLI116))((V242))); |
(void)((*(LnkLI116))((V244))); |
1756 |
princ_str("\n funcall_with_catcher(VV[",VV[29]); |
princ_str("\n funcall_with_catcher(VV[",VV[29]); |
1757 |
V246= (*(LnkLI140))((V241)); |
V248= (*(LnkLI140))((V243)); |
1758 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V246)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V248)); |
1759 |
princ_str("],",VV[29]); |
princ_str("],",VV[29]); |
1760 |
(void)((*(LnkLI117))((V243))); |
(void)((*(LnkLI117))((V245))); |
1761 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1762 |
{object V247 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V241))); |
{object V249 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243))); |
1763 |
VMR20(V247)} |
VMR20(V249)} |
1764 |
goto T766; |
goto T769; |
1765 |
T766:; |
T769:; |
1766 |
if(((V243))==Cnil){ |
if(((V245))==Cnil){ |
1767 |
goto T786;} |
goto T789;} |
1768 |
(void)((*(LnkLI116))((V242))); |
(void)((*(LnkLI116))((V244))); |
1769 |
if(((V244))==Cnil){ |
if(((V246))==Cnil){ |
|
goto T791;} |
|
|
if((symbol_value(VV[83]))==Cnil){ |
|
1770 |
goto T794;} |
goto T794;} |
1771 |
|
if((symbol_value(VV[83]))==Cnil){ |
1772 |
|
goto T797;} |
1773 |
princ_str("\n funcall_no_event(",VV[29]); |
princ_str("\n funcall_no_event(",VV[29]); |
1774 |
(void)((*(LnkLI117))((V243))); |
(void)((*(LnkLI117))((V245))); |
1775 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1776 |
goto T789; |
goto T792; |
1777 |
goto T794; |
goto T797; |
1778 |
T794:; |
T797:; |
1779 |
princ_str("\n CMPfuncall(",VV[29]); |
princ_str("\n CMPfuncall(",VV[29]); |
1780 |
(void)((*(LnkLI117))((V243))); |
(void)((*(LnkLI117))((V245))); |
1781 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1782 |
goto T789; |
goto T792; |
1783 |
goto T791; |
goto T794; |
1784 |
T791:; |
T794:; |
1785 |
princ_str("\n funcall(",VV[29]); |
princ_str("\n funcall(",VV[29]); |
1786 |
(void)((*(LnkLI117))((V243))); |
(void)((*(LnkLI117))((V245))); |
1787 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1788 |
|
goto T792; |
1789 |
|
T792:; |
1790 |
|
{object V250 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1791 |
|
VMR20(V250)} |
1792 |
goto T789; |
goto T789; |
1793 |
T789:; |
T789:; |
1794 |
{object V248 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
if(((*(LnkLI151))((V244)))==Cnil){ |
1795 |
VMR20(V248)} |
goto T809;} |
1796 |
goto T786; |
{object V251; |
1797 |
T786:; |
V251= symbol_value(VV[19]); |
1798 |
if(((*(LnkLI151))((V242)))==Cnil){ |
V245= list(2,VV[27],(*(LnkLI114))()); |
|
goto T806;} |
|
|
{object V249; |
|
|
V249= symbol_value(VV[19]); |
|
|
V243= list(2,VV[27],(*(LnkLI114))()); |
|
1799 |
if((symbol_value(VV[83]))==Cnil){ |
if((symbol_value(VV[83]))==Cnil){ |
1800 |
goto T812;} |
goto T815;} |
1801 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1802 |
(void)((*(LnkLI117))((V243))); |
(void)((*(LnkLI117))((V245))); |
1803 |
princ_str("=symbol_function(VV[",VV[29]); |
princ_str("=symbol_function(VV[",VV[29]); |
1804 |
V250= (*(LnkLI140))((V241)); |
V252= (*(LnkLI140))((V243)); |
1805 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V250)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V252)); |
1806 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1807 |
goto T810; |
goto T813; |
1808 |
goto T812; |
goto T815; |
1809 |
T812:; |
T815:; |
1810 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1811 |
(void)((*(LnkLI117))((V243))); |
(void)((*(LnkLI117))((V245))); |
1812 |
princ_str("=(VV[",VV[29]); |
princ_str("=(VV[",VV[29]); |
1813 |
V251= (*(LnkLI140))((V241)); |
V253= (*(LnkLI140))((V243)); |
1814 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V251)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V253)); |
1815 |
princ_str("]->s.s_gfdef);",VV[29]); |
princ_str("]->s.s_gfdef);",VV[29]); |
1816 |
goto T810; |
goto T813; |
1817 |
T810:; |
T813:; |
1818 |
(void)((*(LnkLI120))((V242))); |
(void)((*(LnkLI120))((V244))); |
1819 |
if((symbol_value(VV[21]))==(VV[94])){ |
if((symbol_value(VV[21]))==(VV[94])){ |
1820 |
goto T825;} |
goto T828;} |
1821 |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
1822 |
goto T826;} |
goto T829;} |
1823 |
goto T825; |
goto T828; |
1824 |
T825:; |
T828:; |
1825 |
princ_str("\n lispcall",VV[29]); |
princ_str("\n lispcall",VV[29]); |
1826 |
if(((V244))==Cnil){ |
if(((V246))==Cnil){ |
1827 |
goto T832;} |
goto T835;} |
1828 |
princ_str("_no_event",VV[29]); |
princ_str("_no_event",VV[29]); |
1829 |
goto T832; |
goto T835; |
1830 |
T832:; |
T835:; |
1831 |
princ_str("(base+",VV[29]); |
princ_str("(base+",VV[29]); |
1832 |
(void)((*(LnkLI117))((V249))); |
(void)((*(LnkLI117))((V251))); |
1833 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1834 |
V252 = make_fixnum((long)length((V242))); |
V254 = make_fixnum((long)length((V244))); |
1835 |
(void)((*(LnkLI117))(V252)); |
(void)((*(LnkLI117))(V254)); |
1836 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1837 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
1838 |
{object V253 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
{object V255 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1839 |
VMR20(V253)} |
VMR20(V255)} |
1840 |
goto T826; |
goto T829; |
1841 |
T826:; |
T829:; |
1842 |
if(((V244))==Cnil){ |
if(((V246))==Cnil){ |
|
goto T846;} |
|
|
V254= VV[96]; |
|
|
goto T844; |
|
|
goto T846; |
|
|
T846:; |
|
|
V254= VV[97]; |
|
|
goto T844; |
|
|
T844:; |
|
|
V255 = make_fixnum((long)length((V242))); |
|
|
V256= list(4,VV[95],V254,(V249),V255); |
|
|
{object V257 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V256)); |
|
|
VMR20(V257)}} |
|
|
goto T806; |
|
|
T806:; |
|
|
{object V258; |
|
|
V258= symbol_value(VV[19]); |
|
|
(void)((*(LnkLI120))((V242))); |
|
|
if((symbol_value(VV[21]))==(VV[94])){ |
|
1843 |
goto T849;} |
goto T849;} |
1844 |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
V256= VV[96]; |
1845 |
goto T850;} |
goto T847; |
1846 |
goto T849; |
goto T849; |
1847 |
T849:; |
T849:; |
1848 |
|
V256= VV[97]; |
1849 |
|
goto T847; |
1850 |
|
T847:; |
1851 |
|
V257 = make_fixnum((long)length((V244))); |
1852 |
|
V258= list(4,VV[95],V256,(V251),V257); |
1853 |
|
{object V259 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V258)); |
1854 |
|
VMR20(V259)}} |
1855 |
|
goto T809; |
1856 |
|
T809:; |
1857 |
|
{object V260; |
1858 |
|
V260= symbol_value(VV[19]); |
1859 |
|
(void)((*(LnkLI120))((V244))); |
1860 |
|
if((symbol_value(VV[21]))==(VV[94])){ |
1861 |
|
goto T852;} |
1862 |
|
if(!((symbol_value(VV[21]))==(VV[59]))){ |
1863 |
|
goto T853;} |
1864 |
|
goto T852; |
1865 |
|
T852:; |
1866 |
princ_str("\n symlispcall",VV[29]); |
princ_str("\n symlispcall",VV[29]); |
1867 |
if(((V244))==Cnil){ |
if(((V246))==Cnil){ |
1868 |
goto T856;} |
goto T859;} |
1869 |
princ_str("_no_event",VV[29]); |
princ_str("_no_event",VV[29]); |
1870 |
goto T856; |
goto T859; |
1871 |
T856:; |
T859:; |
1872 |
princ_str("(VV[",VV[29]); |
princ_str("(VV[",VV[29]); |
1873 |
V259= (*(LnkLI140))((V241)); |
V261= (*(LnkLI140))((V243)); |
1874 |
(void)((*(LnkLI117))(/* INLINE-ARGS */V259)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V261)); |
1875 |
princ_str("],base+",VV[29]); |
princ_str("],base+",VV[29]); |
1876 |
(void)((*(LnkLI117))((V258))); |
(void)((*(LnkLI117))((V260))); |
1877 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1878 |
V260 = make_fixnum((long)length((V242))); |
V262 = make_fixnum((long)length((V244))); |
1879 |
(void)((*(LnkLI117))(V260)); |
(void)((*(LnkLI117))(V262)); |
1880 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1881 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
1882 |
{object V261 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V241))); |
{object V263 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243))); |
1883 |
VMR20(V261)} |
VMR20(V263)} |
1884 |
goto T850; |
goto T853; |
1885 |
T850:; |
T853:; |
1886 |
if(((V244))==Cnil){ |
if(((V246))==Cnil){ |
1887 |
goto T872;} |
goto T875;} |
1888 |
V262= VV[98]; |
V264= VV[98]; |
1889 |
goto T870; |
goto T873; |
1890 |
goto T872; |
goto T875; |
1891 |
T872:; |
T875:; |
1892 |
V262= VV[99]; |
V264= VV[99]; |
1893 |
goto T870; |
goto T873; |
1894 |
T870:; |
T873:; |
1895 |
V263 = make_fixnum((long)length((V242))); |
V265 = make_fixnum((long)length((V244))); |
1896 |
V264= list(5,VV[95],V262,(V258),V263,(*(LnkLI140))((V241))); |
V266= list(5,VV[95],V264,(V260),V265,(*(LnkLI140))((V243))); |
1897 |
{object V265 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V264,Cnil,(V241))); |
{object V267 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V266,Cnil,(V243))); |
1898 |
VMR20(V265)}} |
VMR20(V267)}} |
1899 |
return Cnil; |
return Cnil; |
1900 |
} |
} |
1901 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1905 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1906 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1907 |
vs_reserve(VM21); |
vs_reserve(VM21); |
1908 |
{object V266; |
{object V268; |
1909 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1910 |
{object *p=vs_top; |
{object *p=vs_top; |
1911 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1912 |
V266=(base[0]); |
V268=(base[0]); |
1913 |
vs_top=sup; |
vs_top=sup; |
1914 |
princ_str("(VFUN_NARGS=",VV[29]); |
princ_str("(VFUN_NARGS=",VV[29]); |
1915 |
V267 = make_fixnum((long)length((V266))); |
V269 = make_fixnum((long)length((V268))); |
1916 |
(void)((*(LnkLI117))(V267)); |
(void)((*(LnkLI117))(V269)); |
1917 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1918 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1919 |
base[2]= (V266); |
base[2]= (V268); |
1920 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1921 |
(void) (*Lnk152)(); |
(void) (*Lnk152)(); |
1922 |
vs_top=sup; |
vs_top=sup; |