211 |
Lcopy_list(); |
Lcopy_list(); |
212 |
vs_top=sup; |
vs_top=sup; |
213 |
V23= vs_base[0]; |
V23= vs_base[0]; |
214 |
|
V24 = (V19); |
215 |
if(((V20))!=Cnil){ |
if(((V20))!=Cnil){ |
216 |
goto T79;} |
goto T79;} |
217 |
V24= VV[11]; |
V25= VV[11]; |
218 |
goto T77; |
goto T77; |
219 |
goto T79; |
goto T79; |
220 |
T79:; |
T79:; |
221 |
V24= Cnil; |
V25= Cnil; |
222 |
goto T77; |
goto T77; |
223 |
T77:; |
T77:; |
224 |
V22= list(4,V23,(V19),V24,(V20)); |
V26 = (V20); |
225 |
|
V22= list(4,V23,V24,V25,V26); |
226 |
if(((V13))==Cnil){ |
if(((V13))==Cnil){ |
227 |
goto T82;} |
goto T82;} |
228 |
{object V27; |
{object V29; |
229 |
V27= make_cons(V22,CMPcdr(V13)); |
V29= make_cons(V22,CMPcdr(V13)); |
230 |
(V13)->c.c_cdr = (V27); |
(V13)->c.c_cdr = (V29); |
231 |
goto T73;} |
goto T73;} |
232 |
goto T82; |
goto T82; |
233 |
T82:; |
T82:; |
234 |
{object V28; |
{object V30; |
235 |
V28= list(2,(V6),(V22)); |
V30= list(2,(V6),(V22)); |
236 |
(VV[4]->s.s_dbind)= make_cons((V28),(VV[4]->s.s_dbind));}} |
(VV[4]->s.s_dbind)= make_cons((V30),(VV[4]->s.s_dbind));}} |
237 |
goto T73; |
goto T73; |
238 |
T73:; |
T73:; |
239 |
base[4]= (V19); |
base[4]= (V19); |
244 |
} |
} |
245 |
/* local entry for function LOAD-PRECOMPILED-DFUN-CONSTRUCTOR */ |
/* local entry for function LOAD-PRECOMPILED-DFUN-CONSTRUCTOR */ |
246 |
|
|
247 |
static object LI3(V33,V34,V35,V36) |
static object LI3(V35,V36,V37,V38) |
248 |
|
|
249 |
object V33;object V34;object V35;object V36; |
object V35;object V36;object V37;object V38; |
250 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
251 |
goto TTL; |
goto TTL; |
252 |
TTL:; |
TTL:; |
253 |
{object V37; |
{object V39; |
254 |
register object V38; |
register object V40; |
255 |
{register object x= (V33),V39= (VV[4]->s.s_dbind); |
{register object x= (V35),V41= (VV[4]->s.s_dbind); |
256 |
while(V39!=Cnil) |
while(V41!=Cnil) |
257 |
if(EQ(x,V39->c.c_car->c.c_car) &&V39->c.c_car != Cnil){ |
if(EQ(x,V41->c.c_car->c.c_car) &&V41->c.c_car != Cnil){ |
258 |
V37= (V39->c.c_car); |
V39= (V41->c.c_car); |
259 |
goto T90; |
goto T90; |
260 |
}else V39=V39->c.c_cdr; |
}else V41=V41->c.c_cdr; |
261 |
V37= Cnil;} |
V39= Cnil;} |
262 |
goto T90; |
goto T90; |
263 |
T90:; |
T90:; |
264 |
{register object x= (V34),V40= CMPcdr((V37)); |
{register object x= (V36),V42= CMPcdr((V39)); |
265 |
while(V40!=Cnil) |
while(V42!=Cnil) |
266 |
if(equal(x,V40->c.c_car->c.c_car) &&V40->c.c_car != Cnil){ |
if(equal(x,V42->c.c_car->c.c_car) &&V42->c.c_car != Cnil){ |
267 |
V38= (V40->c.c_car); |
V40= (V42->c.c_car); |
268 |
goto T91; |
goto T91; |
269 |
}else V40=V40->c.c_cdr; |
}else V42=V42->c.c_cdr; |
270 |
V38= Cnil;} |
V40= Cnil;} |
271 |
goto T91; |
goto T91; |
272 |
T91:; |
T91:; |
273 |
if(((V38))==Cnil){ |
if(((V40))==Cnil){ |
274 |
goto T93;} |
goto T93;} |
275 |
if((CMPcadddr((V38)))==Cnil){ |
if((CMPcadddr((V40)))==Cnil){ |
276 |
goto T96;} |
goto T96;} |
277 |
{object V41; |
{object V43; |
278 |
register object V42; |
register object V44; |
279 |
object V43; |
object V45; |
280 |
{object V44= (V33); |
{object V46= (V35); |
281 |
if((V44!= VV[61]))goto T99; |
if((V46!= VV[61]))goto T99; |
282 |
V41= VV[12]; |
V43= VV[12]; |
283 |
goto T98; |
goto T98; |
284 |
goto T99; |
goto T99; |
285 |
T99:; |
T99:; |
286 |
if((V44!= VV[68]))goto T100; |
if((V46!= VV[68]))goto T100; |
287 |
V41= VV[13]; |
V43= VV[13]; |
288 |
goto T98; |
goto T98; |
289 |
goto T100; |
goto T100; |
290 |
T100:; |
T100:; |
291 |
if((V44!= VV[69]))goto T101; |
if((V46!= VV[69]))goto T101; |
292 |
V41= VV[14]; |
V43= VV[14]; |
293 |
goto T98; |
goto T98; |
294 |
goto T101; |
goto T101; |
295 |
T101:; |
T101:; |
296 |
if((V44!= VV[60]))goto T102; |
if((V46!= VV[60]))goto T102; |
297 |
V41= VV[15]; |
V43= VV[15]; |
298 |
goto T98; |
goto T98; |
299 |
goto T102; |
goto T102; |
300 |
T102:; |
T102:; |
301 |
V41= Cnil;} |
V43= Cnil;} |
302 |
goto T98; |
goto T98; |
303 |
T98:; |
T98:; |
304 |
V42= CMPcar((V34)); |
V44= CMPcar((V36)); |
305 |
if(((V41))==Cnil){ |
if(((V43))==Cnil){ |
306 |
goto T106;} |
goto T106;} |
307 |
V43= (*(LnkLI160))((V41)); |
V45= (*(LnkLI160))((V43)); |
308 |
goto T104; |
goto T104; |
309 |
goto T106; |
goto T106; |
310 |
T106:; |
T106:; |
311 |
V43= Cnil; |
V45= Cnil; |
312 |
goto T104; |
goto T104; |
313 |
T104:; |
T104:; |
314 |
{register object V45; |
{register object V47; |
315 |
register object V46; |
register object V48; |
316 |
V45= (V43); |
V47= (V45); |
317 |
V46= CMPcar((V45)); |
V48= CMPcar((V47)); |
318 |
goto T112; |
goto T112; |
319 |
T112:; |
T112:; |
320 |
if(!(((V45))==Cnil)){ |
if(!(((V47))==Cnil)){ |
321 |
goto T113;} |
goto T113;} |
322 |
goto T108; |
goto T108; |
323 |
goto T113; |
goto T113; |
324 |
T113:; |
T113:; |
325 |
base[6]= (V46); |
base[6]= (V48); |
326 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
327 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk161)(Lclptr161); |
328 |
vs_top=sup; |
vs_top=sup; |
329 |
V47= vs_base[0]; |
V49= vs_base[0]; |
330 |
if(!(equal((V42),STREF(object,V47,8)))){ |
if(!(equal((V44),STREF(object,V49,8)))){ |
331 |
goto T117;} |
goto T117;} |
332 |
{register object V48; |
{register object V50; |
333 |
base[6]= (V46); |
base[6]= (V48); |
334 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
335 |
(void) (*Lnk162)(Lclptr162); |
(void) (*Lnk162)(Lclptr162); |
336 |
vs_top=sup; |
vs_top=sup; |
337 |
V48= vs_base[0]; |
V50= vs_base[0]; |
338 |
if(((((V48))==(VV[17])?Ct:Cnil))==Cnil){ |
if(((((V50))==(VV[17])?Ct:Cnil))==Cnil){ |
339 |
goto T126;} |
goto T126;} |
340 |
goto T117; |
goto T117; |
341 |
goto T126; |
goto T126; |
342 |
T126:; |
T126:; |
343 |
if(((equal((V48),VV[18])?Ct:Cnil))==Cnil){ |
if(((equal((V50),VV[18])?Ct:Cnil))==Cnil){ |
344 |
goto T128;} |
goto T128;} |
345 |
goto T117; |
goto T117; |
346 |
goto T128; |
goto T128; |
347 |
T128:; |
T128:; |
348 |
if(!(((((V48))==(VV[19])?Ct:Cnil))==Cnil)){ |
if(!(((((V50))==(VV[19])?Ct:Cnil))==Cnil)){ |
349 |
goto T117;}} |
goto T117;}} |
350 |
(void)((VFUN_NARGS=1,(*(LnkLI49))((V46)))); |
(void)((VFUN_NARGS=1,(*(LnkLI49))((V48)))); |
351 |
goto T117; |
goto T117; |
352 |
T117:; |
T117:; |
353 |
V45= CMPcdr((V45)); |
V47= CMPcdr((V47)); |
354 |
V46= CMPcar((V45)); |
V48= CMPcar((V47)); |
355 |
goto T112;} |
goto T112;} |
356 |
goto T108; |
goto T108; |
357 |
T108:; |
T108:; |
358 |
(CMPcdr(V38))->c.c_car = V36; |
(CMPcdr(V40))->c.c_car = V38; |
359 |
(void)(CMPcdr(V38)); |
(void)(CMPcdr(V40)); |
360 |
(CMPcddr(V38))->c.c_car = V35; |
(CMPcddr(V40))->c.c_car = V37; |
361 |
(void)(CMPcddr(V38)); |
(void)(CMPcddr(V40)); |
362 |
(CMPcdddr(V38))->c.c_car = Cnil; |
(CMPcdddr(V40))->c.c_car = Cnil; |
363 |
(void)(CMPcdddr(V38)); |
(void)(CMPcdddr(V40)); |
364 |
{object V55 = Cnil; |
{object V57 = Cnil; |
365 |
VMR3(V55)}} |
VMR3(V57)}} |
366 |
goto T96; |
goto T96; |
367 |
T96:; |
T96:; |
368 |
{object V56 = Cnil; |
{object V58 = Cnil; |
369 |
VMR3(V56)} |
VMR3(V58)} |
370 |
goto T93; |
goto T93; |
371 |
T93:; |
T93:; |
372 |
{object V57; |
{object V59; |
373 |
V57= list(4,(V34),(V36),(V35),Cnil); |
V59= list(4,(V36),(V38),(V37),Cnil); |
374 |
if(((V37))==Cnil){ |
if(((V39))==Cnil){ |
375 |
goto T142;} |
goto T142;} |
376 |
{object V60; |
{object V62; |
377 |
V60= make_cons(V57,CMPcdr(V37)); |
V62= make_cons(V59,CMPcdr(V39)); |
378 |
(V37)->c.c_cdr = (V60); |
(V39)->c.c_cdr = (V62); |
379 |
{object V61 = (V60); |
{object V63 = (V62); |
380 |
VMR3(V61)}} |
VMR3(V63)}} |
381 |
goto T142; |
goto T142; |
382 |
T142:; |
T142:; |
383 |
{object V62; |
{object V64; |
384 |
V62= list(2,(V33),(V57)); |
V64= list(2,(V35),(V59)); |
385 |
(VV[4]->s.s_dbind)= make_cons((V62),(VV[4]->s.s_dbind)); |
(VV[4]->s.s_dbind)= make_cons((V64),(VV[4]->s.s_dbind)); |
386 |
{object V63 = (VV[4]->s.s_dbind); |
{object V65 = (VV[4]->s.s_dbind); |
387 |
VMR3(V63)}}}} |
VMR3(V65)}}}} |
388 |
base[0]=base[0]; |
base[0]=base[0]; |
389 |
return Cnil; |
return Cnil; |
390 |
} |
} |
397 |
bds_check; |
bds_check; |
398 |
check_arg(2); |
check_arg(2); |
399 |
vs_top=sup; |
vs_top=sup; |
400 |
{object V64=base[0]->c.c_cdr; |
{object V66=base[0]->c.c_cdr; |
401 |
if(endp(V64)){ |
if(endp(V66)){ |
402 |
base[2]= Cnil; |
base[2]= Cnil; |
403 |
} else { |
} else { |
404 |
base[2]= (V64->c.c_car); |
base[2]= (V66->c.c_car); |
405 |
V64=V64->c.c_cdr;} |
V66=V66->c.c_cdr;} |
406 |
if(!endp(V64))invalid_macro_call();} |
if(!endp(V66))invalid_macro_call();} |
407 |
bds_bind(VV[20],Ct); |
bds_bind(VV[20],Ct); |
|
{register object V66; |
|
|
register object V67; |
|
|
V66= Cnil; |
|
|
V67= Cnil; |
|
408 |
{register object V68; |
{register object V68; |
409 |
register object V69; |
register object V69; |
410 |
V68= (VV[4]->s.s_dbind); |
V68= Cnil; |
411 |
V69= CMPcar((V68)); |
V69= Cnil; |
412 |
|
{register object V70; |
413 |
|
register object V71; |
414 |
|
V70= (VV[4]->s.s_dbind); |
415 |
|
V71= CMPcar((V70)); |
416 |
goto T156; |
goto T156; |
417 |
T156:; |
T156:; |
418 |
if(!(((V68))==Cnil)){ |
if(!(((V70))==Cnil)){ |
419 |
goto T157;} |
goto T157;} |
420 |
goto T152; |
goto T152; |
421 |
goto T157; |
goto T157; |
422 |
T157:; |
T157:; |
423 |
{register object V70; |
{register object V72; |
424 |
register object V71; |
register object V73; |
425 |
V70= CMPcdr((V69)); |
V72= CMPcdr((V71)); |
426 |
V71= CMPcar((V70)); |
V73= CMPcar((V72)); |
427 |
goto T165; |
goto T165; |
428 |
T165:; |
T165:; |
429 |
if(!(((V70))==Cnil)){ |
if(!(((V72))==Cnil)){ |
430 |
goto T166;} |
goto T166;} |
431 |
goto T161; |
goto T161; |
432 |
goto T166; |
goto T166; |
433 |
T166:; |
T166:; |
434 |
if((CMPcaddr((V71)))==Cnil){ |
if((CMPcaddr((V73)))==Cnil){ |
435 |
goto T171;} |
goto T171;} |
436 |
if(!((CMPcaddr((V71)))==(base[2]))){ |
if(!((CMPcaddr((V73)))==(base[2]))){ |
437 |
goto T170;} |
goto T170;} |
438 |
goto T171; |
goto T171; |
439 |
T171:; |
T171:; |
440 |
if((base[2])==Cnil){ |
if((base[2])==Cnil){ |
441 |
goto T175;} |
goto T175;} |
442 |
{register object V72; |
{register object V74; |
443 |
register object V73; |
register object V75; |
444 |
V72= (V71); |
V74= (V73); |
445 |
V73= base[2]; |
V75= base[2]; |
446 |
(CMPcddr((V72)))->c.c_car = (V73); |
(CMPcddr((V74)))->c.c_car = (V75); |
447 |
(void)(CMPcddr((V72)));} |
(void)(CMPcddr((V74)));} |
448 |
goto T175; |
goto T175; |
449 |
T175:; |
T175:; |
450 |
{register object V74; |
{register object V76; |
451 |
V75= list(2,VV[22],CMPcar((V69))); |
V77= list(2,VV[22],CMPcar((V71))); |
452 |
V76= list(2,VV[25],CMPcar((V69))); |
V78= list(2,VV[25],CMPcar((V71))); |
453 |
V77= list(2,VV[25],CMPcar((V71))); |
V79= list(2,VV[25],CMPcar((V73))); |
454 |
V78= list(2,VV[25],base[2]); |
V80= list(2,VV[25],base[2]); |
455 |
base[8]= CMPcar((V69)); |
base[8]= CMPcar((V71)); |
456 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
457 |
Lsymbol_function(); |
Lsymbol_function(); |
458 |
vs_top=sup; |
vs_top=sup; |
459 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
460 |
{object V80; |
{object V82; |
461 |
V80= CMPcar((V71)); |
V82= CMPcar((V73)); |
462 |
vs_top=base+8; |
vs_top=base+8; |
463 |
while(V80!=Cnil) |
while(V82!=Cnil) |
464 |
{vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;} |
{vs_push((V82)->c.c_car);V82=(V82)->c.c_cdr;} |
465 |
vs_base=base+8;} |
vs_base=base+8;} |
466 |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
467 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
468 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
469 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
470 |
vs_top=sup; |
vs_top=sup; |
471 |
V79= vs_base[0]; |
V81= vs_base[0]; |
472 |
V81= list(5,VV[24],/* INLINE-ARGS */V76,/* INLINE-ARGS */V77,/* INLINE-ARGS */V78,V79); |
V83= list(5,VV[24],/* INLINE-ARGS */V78,/* INLINE-ARGS */V79,/* INLINE-ARGS */V80,V81); |
473 |
V74= (*(LnkLI163))(/* INLINE-ARGS */V75,VV[23],/* INLINE-ARGS */V81); |
V76= (*(LnkLI163))(/* INLINE-ARGS */V77,VV[23],/* INLINE-ARGS */V83); |
474 |
if(((V66))!=Cnil){ |
if(((V68))!=Cnil){ |
475 |
goto T187;} |
goto T187;} |
476 |
V67= make_cons((V74),Cnil); |
V69= make_cons((V76),Cnil); |
477 |
V66= (V67); |
V68= (V69); |
478 |
goto T170; |
goto T170; |
479 |
goto T187; |
goto T187; |
480 |
T187:; |
T187:; |
481 |
V83= make_cons((V74),Cnil); |
V85= make_cons((V76),Cnil); |
482 |
((V67))->c.c_cdr = /* INLINE-ARGS */V83; |
((V69))->c.c_cdr = /* INLINE-ARGS */V85; |
483 |
V82= (V67); |
V84= (V69); |
484 |
V67= CMPcdr(V82);} |
V69= CMPcdr(V84);} |
485 |
goto T170; |
goto T170; |
486 |
T170:; |
T170:; |
487 |
V70= CMPcdr((V70)); |
V72= CMPcdr((V72)); |
488 |
V71= CMPcar((V70)); |
V73= CMPcar((V72)); |
489 |
goto T165;} |
goto T165;} |
490 |
goto T161; |
goto T161; |
491 |
T161:; |
T161:; |
492 |
V68= CMPcdr((V68)); |
V70= CMPcdr((V70)); |
493 |
V69= CMPcar((V68)); |
V71= CMPcar((V70)); |
494 |
goto T156;} |
goto T156;} |
495 |
goto T152; |
goto T152; |
496 |
T152:; |
T152:; |
497 |
V65= (V66);} |
V67= (V68);} |
498 |
base[4]= make_cons(VV[21],V65); |
base[4]= make_cons(VV[21],V67); |
499 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
500 |
bds_unwind1; |
bds_unwind1; |
501 |
return; |
return; |
506 |
{ |
{ |
507 |
va_list ap; |
va_list ap; |
508 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
509 |
{object V84; |
{object V86; |
510 |
va_start(ap,first); |
va_start(ap,first); |
511 |
narg= narg - 0; |
narg= narg - 0; |
512 |
{ |
{ |
513 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI5key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI5key,first,ap); |
514 |
V84=(Vcs[0]); |
V86=(Vcs[0]); |
515 |
base[0]= VV[26]; |
base[0]= VV[26]; |
516 |
base[1]= (V84); |
base[1]= (V86); |
517 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
518 |
siLmake_structure(); |
siLmake_structure(); |
519 |
vs_top=sup; |
vs_top=sup; |
520 |
{object V85 = vs_base[0]; |
{object V87 = vs_base[0]; |
521 |
VMR5(V85)} |
VMR5(V87)} |
522 |
va_end(ap); |
va_end(ap); |
523 |
base[0]=base[0]; |
base[0]=base[0]; |
524 |
return Cnil;} |
return Cnil;} |
525 |
}} |
}} |
526 |
/* local entry for function PRINT-DFUN-INFO */ |
/* local entry for function PRINT-DFUN-INFO */ |
527 |
|
|
528 |
static object LI6(V89,V90,V91) |
static object LI6(V91,V92,V93) |
529 |
|
|
530 |
object V89;register object V90;object V91; |
object V91;register object V92;object V93; |
531 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
532 |
goto TTL; |
goto TTL; |
533 |
TTL:; |
TTL:; |
534 |
base[0]= (V90); |
base[0]= (V92); |
535 |
base[1]= VV[27]; |
base[1]= VV[27]; |
536 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
537 |
Lformat(); |
Lformat(); |
538 |
vs_top=sup; |
vs_top=sup; |
539 |
base[0]= (V90); |
base[0]= (V92); |
540 |
base[1]= VV[28]; |
base[1]= VV[28]; |
541 |
base[3]= (V89); |
base[3]= (V91); |
542 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
543 |
Ltype_of(); |
Ltype_of(); |
544 |
vs_top=sup; |
vs_top=sup; |
546 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
547 |
Lformat(); |
Lformat(); |
548 |
vs_top=sup; |
vs_top=sup; |
549 |
base[0]= (V90); |
base[0]= (V92); |
550 |
base[1]= VV[29]; |
base[1]= VV[29]; |
551 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
552 |
Lformat(); |
Lformat(); |
553 |
vs_top=sup; |
vs_top=sup; |
554 |
(void)((*(LnkLI165))((V89),(V90))); |
(void)((*(LnkLI165))((V91),(V92))); |
555 |
base[0]= (V90); |
base[0]= (V92); |
556 |
base[1]= VV[30]; |
base[1]= VV[30]; |
557 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
558 |
Lformat(); |
Lformat(); |
559 |
vs_top=sup; |
vs_top=sup; |
560 |
{object V92 = vs_base[0]; |
{object V94 = vs_base[0]; |
561 |
VMR6(V92)} |
VMR6(V94)} |
562 |
base[0]=base[0]; |
base[0]=base[0]; |
563 |
return Cnil; |
return Cnil; |
564 |
} |
} |
568 |
{ |
{ |
569 |
va_list ap; |
va_list ap; |
570 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
571 |
{object V93; |
{object V95; |
572 |
va_start(ap,first); |
va_start(ap,first); |
573 |
narg= narg - 0; |
narg= narg - 0; |
574 |
{ |
{ |
575 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI7key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI7key,first,ap); |
576 |
V93=(Vcs[0]); |
V95=(Vcs[0]); |
577 |
base[0]= VV[31]; |
base[0]= VV[31]; |
578 |
base[1]= (V93); |
base[1]= (V95); |
579 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
580 |
siLmake_structure(); |
siLmake_structure(); |
581 |
vs_top=sup; |
vs_top=sup; |
582 |
{object V94 = vs_base[0]; |
{object V96 = vs_base[0]; |
583 |
VMR7(V94)} |
VMR7(V96)} |
584 |
va_end(ap); |
va_end(ap); |
585 |
base[0]=base[0]; |
base[0]=base[0]; |
586 |
return Cnil;} |
return Cnil;} |
597 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
598 |
siLmake_structure(); |
siLmake_structure(); |
599 |
vs_top=sup; |
vs_top=sup; |
600 |
{object V96 = vs_base[0]; |
{object V98 = vs_base[0]; |
601 |
VMR8(V96)} |
VMR8(V98)} |
602 |
base[0]=base[0]; |
base[0]=base[0]; |
603 |
return Cnil; |
return Cnil; |
604 |
} |
} |
608 |
{ |
{ |
609 |
va_list ap; |
va_list ap; |
610 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
611 |
{object V97; |
{object V99; |
612 |
va_start(ap,first); |
va_start(ap,first); |
613 |
narg= narg - 0; |
narg= narg - 0; |
614 |
{ |
{ |
615 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI9key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI9key,first,ap); |
616 |
V97=(Vcs[0]); |
V99=(Vcs[0]); |
617 |
base[0]= VV[32]; |
base[0]= VV[32]; |
618 |
base[1]= (V97); |
base[1]= (V99); |
619 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
620 |
siLmake_structure(); |
siLmake_structure(); |
621 |
vs_top=sup; |
vs_top=sup; |
622 |
{object V98 = vs_base[0]; |
{object V100 = vs_base[0]; |
623 |
VMR9(V98)} |
VMR9(V100)} |
624 |
va_end(ap); |
va_end(ap); |
625 |
base[0]=base[0]; |
base[0]=base[0]; |
626 |
return Cnil;} |
return Cnil;} |
637 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
638 |
siLmake_structure(); |
siLmake_structure(); |
639 |
vs_top=sup; |
vs_top=sup; |
640 |
{object V100 = vs_base[0]; |
{object V102 = vs_base[0]; |
641 |
VMR10(V100)} |
VMR10(V102)} |
642 |
base[0]=base[0]; |
base[0]=base[0]; |
643 |
return Cnil; |
return Cnil; |
644 |
} |
} |
648 |
{ |
{ |
649 |
va_list ap; |
va_list ap; |
650 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
651 |
{object V101; |
{object V103; |
652 |
va_start(ap,first); |
va_start(ap,first); |
653 |
narg= narg - 0; |
narg= narg - 0; |
654 |
{ |
{ |
655 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI11key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI11key,first,ap); |
656 |
V101=(Vcs[0]); |
V103=(Vcs[0]); |
657 |
base[0]= VV[33]; |
base[0]= VV[33]; |
658 |
base[1]= (V101); |
base[1]= (V103); |
659 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
660 |
siLmake_structure(); |
siLmake_structure(); |
661 |
vs_top=sup; |
vs_top=sup; |
662 |
{object V102 = vs_base[0]; |
{object V104 = vs_base[0]; |
663 |
VMR11(V102)} |
VMR11(V104)} |
664 |
va_end(ap); |
va_end(ap); |
665 |
base[0]=base[0]; |
base[0]=base[0]; |
666 |
return Cnil;} |
return Cnil;} |
677 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
678 |
siLmake_structure(); |
siLmake_structure(); |
679 |
vs_top=sup; |
vs_top=sup; |
680 |
{object V104 = vs_base[0]; |
{object V106 = vs_base[0]; |
681 |
VMR12(V104)} |
VMR12(V106)} |
682 |
base[0]=base[0]; |
base[0]=base[0]; |
683 |
return Cnil; |
return Cnil; |
684 |
} |
} |
688 |
{ |
{ |
689 |
va_list ap; |
va_list ap; |
690 |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
691 |
{object V105; |
{object V107; |
692 |
va_start(ap,first); |
va_start(ap,first); |
693 |
narg= narg - 0; |
narg= narg - 0; |
694 |
{ |
{ |
695 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI13key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI13key,first,ap); |
696 |
V105=(Vcs[0]); |
V107=(Vcs[0]); |
697 |
base[0]= VV[34]; |
base[0]= VV[34]; |
698 |
base[1]= (V105); |
base[1]= (V107); |
699 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
700 |
siLmake_structure(); |
siLmake_structure(); |
701 |
vs_top=sup; |
vs_top=sup; |
702 |
{object V106 = vs_base[0]; |
{object V108 = vs_base[0]; |
703 |
VMR13(V106)} |
VMR13(V108)} |
704 |
va_end(ap); |
va_end(ap); |
705 |
base[0]=base[0]; |
base[0]=base[0]; |
706 |
return Cnil;} |
return Cnil;} |
717 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
718 |
siLmake_structure(); |
siLmake_structure(); |
719 |
vs_top=sup; |
vs_top=sup; |
720 |
{object V108 = vs_base[0]; |
{object V110 = vs_base[0]; |
721 |
VMR14(V108)} |
VMR14(V110)} |
722 |
base[0]=base[0]; |
base[0]=base[0]; |
723 |
return Cnil; |
return Cnil; |
724 |
} |
} |
728 |
{ |
{ |
729 |
va_list ap; |
va_list ap; |
730 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
731 |
{object V109; |
{object V111; |
732 |
va_start(ap,first); |
va_start(ap,first); |
733 |
narg= narg - 0; |
narg= narg - 0; |
734 |
{ |
{ |
735 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI15key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI15key,first,ap); |
736 |
V109=(Vcs[0]); |
V111=(Vcs[0]); |
737 |
base[0]= VV[15]; |
base[0]= VV[15]; |
738 |
base[1]= (V109); |
base[1]= (V111); |
739 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
740 |
siLmake_structure(); |
siLmake_structure(); |
741 |
vs_top=sup; |
vs_top=sup; |
742 |
{object V110 = vs_base[0]; |
{object V112 = vs_base[0]; |
743 |
VMR15(V110)} |
VMR15(V112)} |
744 |
va_end(ap); |
va_end(ap); |
745 |
base[0]=base[0]; |
base[0]=base[0]; |
746 |
return Cnil;} |
return Cnil;} |
757 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
758 |
siLmake_structure(); |
siLmake_structure(); |
759 |
vs_top=sup; |
vs_top=sup; |
760 |
{object V112 = vs_base[0]; |
{object V114 = vs_base[0]; |
761 |
VMR16(V112)} |
VMR16(V114)} |
762 |
base[0]=base[0]; |
base[0]=base[0]; |
763 |
return Cnil; |
return Cnil; |
764 |
} |
} |
768 |
{ |
{ |
769 |
va_list ap; |
va_list ap; |
770 |
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
771 |
{object V113; |
{object V115; |
772 |
object V114; |
object V116; |
773 |
va_start(ap,first); |
va_start(ap,first); |
774 |
narg= narg - 0; |
narg= narg - 0; |
775 |
{ |
{ |
776 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI17key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI17key,first,ap); |
777 |
V113=(Vcs[0]); |
V115=(Vcs[0]); |
778 |
V114=(Vcs[1]); |
V116=(Vcs[1]); |
779 |
base[0]= VV[35]; |
base[0]= VV[35]; |
780 |
base[1]= (V113); |
base[1]= (V115); |
781 |
base[2]= (V114); |
base[2]= (V116); |
782 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
783 |
siLmake_structure(); |
siLmake_structure(); |
784 |
vs_top=sup; |
vs_top=sup; |
785 |
{object V115 = vs_base[0]; |
{object V117 = vs_base[0]; |
786 |
VMR17(V115)} |
VMR17(V117)} |
787 |
va_end(ap); |
va_end(ap); |
788 |
base[0]=base[0]; |
base[0]=base[0]; |
789 |
return Cnil;} |
return Cnil;} |
796 |
vs_check; |
vs_check; |
797 |
check_arg(2); |
check_arg(2); |
798 |
vs_top=sup; |
vs_top=sup; |
799 |
{object V116=base[0]->c.c_cdr; |
{object V118=base[0]->c.c_cdr; |
800 |
if(endp(V116))invalid_macro_call(); |
if(endp(V118))invalid_macro_call(); |
801 |
base[2]= (V116->c.c_car); |
base[2]= (V118->c.c_car); |
802 |
V116=V116->c.c_cdr; |
V118=V118->c.c_cdr; |
803 |
if(!endp(V116))invalid_macro_call();} |
if(!endp(V118))invalid_macro_call();} |
804 |
base[3]= list(2,VV[36],base[2]); |
base[3]= list(2,VV[36],base[2]); |
805 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
806 |
return; |
return; |
811 |
{ |
{ |
812 |
va_list ap; |
va_list ap; |
813 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
814 |
{object V117; |
{object V119; |
815 |
object V118; |
object V120; |
816 |
object V119; |
object V121; |
817 |
va_start(ap,first); |
va_start(ap,first); |
818 |
narg= narg - 0; |
narg= narg - 0; |
819 |
{ |
{ |
820 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI19key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI19key,first,ap); |
821 |
V117=(Vcs[0]); |
V119=(Vcs[0]); |
822 |
V118=(Vcs[1]); |
V120=(Vcs[1]); |
823 |
V119=(Vcs[2]); |
V121=(Vcs[2]); |
824 |
base[0]= VV[37]; |
base[0]= VV[37]; |
825 |
base[1]= (V117); |
base[1]= (V119); |
826 |
base[2]= (V118); |
base[2]= (V120); |
827 |
base[3]= (V119); |
base[3]= (V121); |
828 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
829 |
siLmake_structure(); |
siLmake_structure(); |
830 |
vs_top=sup; |
vs_top=sup; |
831 |
{object V120 = vs_base[0]; |
{object V122 = vs_base[0]; |
832 |
VMR19(V120)} |
VMR19(V122)} |
833 |
va_end(ap); |
va_end(ap); |
834 |
base[0]=base[0]; |
base[0]=base[0]; |
835 |
return Cnil;} |
return Cnil;} |
842 |
vs_check; |
vs_check; |
843 |
check_arg(2); |
check_arg(2); |
844 |
vs_top=sup; |
vs_top=sup; |
845 |
{object V121=base[0]->c.c_cdr; |
{object V123=base[0]->c.c_cdr; |
846 |
if(endp(V121))invalid_macro_call(); |
if(endp(V123))invalid_macro_call(); |
847 |
base[2]= (V121->c.c_car); |
base[2]= (V123->c.c_car); |
848 |
V121=V121->c.c_cdr; |
V123=V123->c.c_cdr; |
849 |
if(!endp(V121))invalid_macro_call();} |
if(!endp(V123))invalid_macro_call();} |
850 |
base[3]= list(2,VV[38],base[2]); |
base[3]= list(2,VV[38],base[2]); |
851 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
852 |
return; |
return; |
857 |
{ |
{ |
858 |
va_list ap; |
va_list ap; |
859 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
860 |
{object V122; |
{object V124; |
861 |
object V123; |
object V125; |
862 |
va_start(ap,first); |
va_start(ap,first); |
863 |
narg= narg - 0; |
narg= narg - 0; |
864 |
{ |
{ |
865 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI21key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI21key,first,ap); |
866 |
V122=(Vcs[0]); |
V124=(Vcs[0]); |
867 |
V123=(Vcs[1]); |
V125=(Vcs[1]); |
868 |
base[0]= VV[39]; |
base[0]= VV[39]; |
869 |
base[1]= (V122); |
base[1]= (V124); |
870 |
base[2]= (V123); |
base[2]= (V125); |
871 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
872 |
siLmake_structure(); |
siLmake_structure(); |
873 |
vs_top=sup; |
vs_top=sup; |
874 |
{object V124 = vs_base[0]; |
{object V126 = vs_base[0]; |
875 |
VMR21(V124)} |
VMR21(V126)} |
876 |
va_end(ap); |
va_end(ap); |
877 |
base[0]=base[0]; |
base[0]=base[0]; |
878 |
return Cnil;} |
return Cnil;} |
879 |
}} |
}} |
880 |
/* local entry for function N-N-DFUN-INFO */ |
/* local entry for function N-N-DFUN-INFO */ |
881 |
|
|
882 |
static object LI22(V127,V128) |
static object LI22(V129,V130) |
883 |
|
|
884 |
object V127;object V128; |
object V129;object V130; |
885 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
886 |
goto TTL; |
goto TTL; |
887 |
TTL:; |
TTL:; |
888 |
base[0]= VV[39]; |
base[0]= VV[39]; |
889 |
base[1]= (V128); |
base[1]= (V130); |
890 |
base[2]= (V127); |
base[2]= (V129); |
891 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
892 |
siLmake_structure(); |
siLmake_structure(); |
893 |
vs_top=sup; |
vs_top=sup; |
894 |
{object V129 = vs_base[0]; |
{object V131 = vs_base[0]; |
895 |
VMR22(V129)} |
VMR22(V131)} |
896 |
base[0]=base[0]; |
base[0]=base[0]; |
897 |
return Cnil; |
return Cnil; |
898 |
} |
} |
902 |
{ |
{ |
903 |
va_list ap; |
va_list ap; |
904 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
905 |
{object V130; |
{object V132; |
|
object V131; |
|
|
object V132; |
|
906 |
object V133; |
object V133; |
907 |
|
object V134; |
908 |
|
object V135; |
909 |
va_start(ap,first); |
va_start(ap,first); |
910 |
narg= narg - 0; |
narg= narg - 0; |
911 |
{ |
{ |
912 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap); |
913 |
V130=(Vcs[0]); |
V132=(Vcs[0]); |
914 |
V131=(Vcs[1]); |
V133=(Vcs[1]); |
915 |
V132=(Vcs[2]); |
V134=(Vcs[2]); |
916 |
V133=(Vcs[3]); |
V135=(Vcs[3]); |
917 |
base[0]= VV[40]; |
base[0]= VV[40]; |
918 |
base[1]= (V130); |
base[1]= (V132); |
919 |
base[2]= (V131); |
base[2]= (V133); |
920 |
base[3]= (V132); |
base[3]= (V134); |
921 |
base[4]= (V133); |
base[4]= (V135); |
922 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
923 |
siLmake_structure(); |
siLmake_structure(); |
924 |
vs_top=sup; |
vs_top=sup; |
925 |
{object V134 = vs_base[0]; |
{object V136 = vs_base[0]; |
926 |
VMR23(V134)} |
VMR23(V136)} |
927 |
va_end(ap); |
va_end(ap); |
928 |
base[0]=base[0]; |
base[0]=base[0]; |
929 |
return Cnil;} |
return Cnil;} |
930 |
}} |
}} |
931 |
/* local entry for function ONE-CLASS-DFUN-INFO */ |
/* local entry for function ONE-CLASS-DFUN-INFO */ |
932 |
|
|
933 |
static object LI24(V138,V139,V140) |
static object LI24(V140,V141,V142) |
934 |
|
|
935 |
object V138;object V139;object V140; |
object V140;object V141;object V142; |
936 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
937 |
goto TTL; |
goto TTL; |
938 |
TTL:; |
TTL:; |
939 |
base[0]= VV[40]; |
base[0]= VV[40]; |
940 |
base[1]= Cnil; |
base[1]= Cnil; |
941 |
base[2]= (V138); |
base[2]= (V140); |
942 |
base[3]= (V139); |
base[3]= (V141); |
943 |
base[4]= (V140); |
base[4]= (V142); |
944 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
945 |
siLmake_structure(); |
siLmake_structure(); |
946 |
vs_top=sup; |
vs_top=sup; |
947 |
{object V142 = vs_base[0]; |
{object V144 = vs_base[0]; |
948 |
VMR24(V142)} |
VMR24(V144)} |
949 |
base[0]=base[0]; |
base[0]=base[0]; |
950 |
return Cnil; |
return Cnil; |
951 |
} |
} |
957 |
vs_check; |
vs_check; |
958 |
check_arg(2); |
check_arg(2); |
959 |
vs_top=sup; |
vs_top=sup; |
960 |
{object V143=base[0]->c.c_cdr; |
{object V145=base[0]->c.c_cdr; |
961 |
if(endp(V143))invalid_macro_call(); |
if(endp(V145))invalid_macro_call(); |
962 |
base[2]= (V143->c.c_car); |
base[2]= (V145->c.c_car); |
963 |
V143=V143->c.c_cdr; |
V145=V145->c.c_cdr; |
964 |
if(!endp(V143))invalid_macro_call();} |
if(!endp(V145))invalid_macro_call();} |
965 |
base[3]= list(2,VV[41],base[2]); |
base[3]= list(2,VV[41],base[2]); |
966 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
967 |
return; |
return; |
972 |
{ |
{ |
973 |
va_list ap; |
va_list ap; |
974 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
975 |
{object V144; |
{object V146; |
|
object V145; |
|
|
object V146; |
|
976 |
object V147; |
object V147; |
977 |
object V148; |
object V148; |
978 |
|
object V149; |
979 |
|
object V150; |
980 |
va_start(ap,first); |
va_start(ap,first); |
981 |
narg= narg - 0; |
narg= narg - 0; |
982 |
{ |
{ |
983 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap); |
984 |
V144=(Vcs[0]); |
V146=(Vcs[0]); |
985 |
V145=(Vcs[1]); |
V147=(Vcs[1]); |
986 |
V146=(Vcs[2]); |
V148=(Vcs[2]); |
987 |
V147=(Vcs[3]); |
V149=(Vcs[3]); |
988 |
V148=(Vcs[4]); |
V150=(Vcs[4]); |
989 |
base[0]= VV[42]; |
base[0]= VV[42]; |
990 |
base[1]= (V144); |
base[1]= (V146); |
991 |
base[2]= (V145); |
base[2]= (V147); |
992 |
base[3]= (V146); |
base[3]= (V148); |
993 |
base[4]= (V147); |
base[4]= (V149); |
994 |
base[5]= (V148); |
base[5]= (V150); |
995 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
996 |
siLmake_structure(); |
siLmake_structure(); |
997 |
vs_top=sup; |
vs_top=sup; |
998 |
{object V149 = vs_base[0]; |
{object V151 = vs_base[0]; |
999 |
VMR26(V149)} |
VMR26(V151)} |
1000 |
va_end(ap); |
va_end(ap); |
1001 |
base[0]=base[0]; |
base[0]=base[0]; |
1002 |
return Cnil;} |
return Cnil;} |
1003 |
}} |
}} |
1004 |
/* local entry for function TWO-CLASS-DFUN-INFO */ |
/* local entry for function TWO-CLASS-DFUN-INFO */ |
1005 |
|
|
1006 |
static object LI27(V154,V155,V156,V157) |
static object LI27(V156,V157,V158,V159) |
1007 |
|
|
1008 |
object V154;object V155;object V156;object V157; |
object V156;object V157;object V158;object V159; |
1009 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1010 |
goto TTL; |
goto TTL; |
1011 |
TTL:; |
TTL:; |
1012 |
base[0]= VV[42]; |
base[0]= VV[42]; |
1013 |
base[1]= Cnil; |
base[1]= Cnil; |
1014 |
base[2]= (V154); |
base[2]= (V156); |
1015 |
base[3]= (V155); |
base[3]= (V157); |
1016 |
base[4]= (V156); |
base[4]= (V158); |
1017 |
base[5]= (V157); |
base[5]= (V159); |
1018 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
1019 |
siLmake_structure(); |
siLmake_structure(); |
1020 |
vs_top=sup; |
vs_top=sup; |
1021 |
{object V159 = vs_base[0]; |
{object V161 = vs_base[0]; |
1022 |
VMR27(V159)} |
VMR27(V161)} |
1023 |
base[0]=base[0]; |
base[0]=base[0]; |
1024 |
return Cnil; |
return Cnil; |
1025 |
} |
} |
1031 |
vs_check; |
vs_check; |
1032 |
check_arg(2); |
check_arg(2); |
1033 |
vs_top=sup; |
vs_top=sup; |
1034 |
{object V160=base[0]->c.c_cdr; |
{object V162=base[0]->c.c_cdr; |
1035 |
if(endp(V160))invalid_macro_call(); |
if(endp(V162))invalid_macro_call(); |
1036 |
base[2]= (V160->c.c_car); |
base[2]= (V162->c.c_car); |
1037 |
V160=V160->c.c_cdr; |
V162=V162->c.c_cdr; |
1038 |
if(!endp(V160))invalid_macro_call();} |
if(!endp(V162))invalid_macro_call();} |
1039 |
base[3]= list(2,VV[43],base[2]); |
base[3]= list(2,VV[43],base[2]); |
1040 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1041 |
return; |
return; |
1046 |
{ |
{ |
1047 |
va_list ap; |
va_list ap; |
1048 |
int narg = VFUN_NARGS; VMB29 VMS29 VMV29 |
int narg = VFUN_NARGS; VMB29 VMS29 VMV29 |
1049 |
{object V161; |
{object V163; |
1050 |
object V162; |
object V164; |
1051 |
object V163; |
object V165; |
1052 |
va_start(ap,first); |
va_start(ap,first); |
1053 |
narg= narg - 0; |
narg= narg - 0; |
1054 |
{ |
{ |
1055 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI29key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI29key,first,ap); |
1056 |
V161=(Vcs[0]); |
V163=(Vcs[0]); |
1057 |
V162=(Vcs[1]); |
V164=(Vcs[1]); |
1058 |
V163=(Vcs[2]); |
V165=(Vcs[2]); |
1059 |
base[0]= VV[44]; |
base[0]= VV[44]; |
1060 |
base[1]= (V161); |
base[1]= (V163); |
1061 |
base[2]= (V162); |
base[2]= (V164); |
1062 |
base[3]= (V163); |
base[3]= (V165); |
1063 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1064 |
siLmake_structure(); |
siLmake_structure(); |
1065 |
vs_top=sup; |
vs_top=sup; |
1066 |
{object V164 = vs_base[0]; |
{object V166 = vs_base[0]; |
1067 |
VMR29(V164)} |
VMR29(V166)} |
1068 |
va_end(ap); |
va_end(ap); |
1069 |
base[0]=base[0]; |
base[0]=base[0]; |
1070 |
return Cnil;} |
return Cnil;} |
1071 |
}} |
}} |
1072 |
/* local entry for function ONE-INDEX-DFUN-INFO */ |
/* local entry for function ONE-INDEX-DFUN-INFO */ |
1073 |
|
|
1074 |
static object LI30(V168,V169,V170) |
static object LI30(V170,V171,V172) |
1075 |
|
|
1076 |
object V168;object V169;object V170; |
object V170;object V171;object V172; |
1077 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1078 |
goto TTL; |
goto TTL; |
1079 |
TTL:; |
TTL:; |
1080 |
base[0]= VV[44]; |
base[0]= VV[44]; |
1081 |
base[1]= (V170); |
base[1]= (V172); |
1082 |
base[2]= (V168); |
base[2]= (V170); |
1083 |
base[3]= (V169); |
base[3]= (V171); |
1084 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1085 |
siLmake_structure(); |
siLmake_structure(); |
1086 |
vs_top=sup; |
vs_top=sup; |
1087 |
{object V171 = vs_base[0]; |
{object V173 = vs_base[0]; |
1088 |
VMR30(V171)} |
VMR30(V173)} |
1089 |
base[0]=base[0]; |
base[0]=base[0]; |
1090 |
return Cnil; |
return Cnil; |
1091 |
} |
} |
1095 |
{ |
{ |
1096 |
va_list ap; |
va_list ap; |
1097 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
1098 |
{object V172; |
{object V174; |
1099 |
object V173; |
object V175; |
1100 |
va_start(ap,first); |
va_start(ap,first); |
1101 |
narg= narg - 0; |
narg= narg - 0; |
1102 |
{ |
{ |
1103 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI31key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI31key,first,ap); |
1104 |
V172=(Vcs[0]); |
V174=(Vcs[0]); |
1105 |
V173=(Vcs[1]); |
V175=(Vcs[1]); |
1106 |
base[0]= VV[12]; |
base[0]= VV[12]; |
1107 |
base[1]= (V172); |
base[1]= (V174); |
1108 |
base[2]= (V173); |
base[2]= (V175); |
1109 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1110 |
siLmake_structure(); |
siLmake_structure(); |
1111 |
vs_top=sup; |
vs_top=sup; |
1112 |
{object V174 = vs_base[0]; |
{object V176 = vs_base[0]; |
1113 |
VMR31(V174)} |
VMR31(V176)} |
1114 |
va_end(ap); |
va_end(ap); |
1115 |
base[0]=base[0]; |
base[0]=base[0]; |
1116 |
return Cnil;} |
return Cnil;} |
1117 |
}} |
}} |
1118 |
/* local entry for function CHECKING-DFUN-INFO */ |
/* local entry for function CHECKING-DFUN-INFO */ |
1119 |
|
|
1120 |
static object LI32(V177,V178) |
static object LI32(V179,V180) |
1121 |
|
|
1122 |
object V177;object V178; |
object V179;object V180; |
1123 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1124 |
goto TTL; |
goto TTL; |
1125 |
TTL:; |
TTL:; |
1126 |
base[0]= VV[12]; |
base[0]= VV[12]; |
1127 |
base[1]= (V178); |
base[1]= (V180); |
1128 |
base[2]= (V177); |
base[2]= (V179); |
1129 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1130 |
siLmake_structure(); |
siLmake_structure(); |
1131 |
vs_top=sup; |
vs_top=sup; |
1132 |
{object V179 = vs_base[0]; |
{object V181 = vs_base[0]; |
1133 |
VMR32(V179)} |
VMR32(V181)} |
1134 |
base[0]=base[0]; |
base[0]=base[0]; |
1135 |
return Cnil; |
return Cnil; |
1136 |
} |
} |
1142 |
vs_check; |
vs_check; |
1143 |
check_arg(2); |
check_arg(2); |
1144 |
vs_top=sup; |
vs_top=sup; |
1145 |
{object V180=base[0]->c.c_cdr; |
{object V182=base[0]->c.c_cdr; |
1146 |
if(endp(V180))invalid_macro_call(); |
if(endp(V182))invalid_macro_call(); |
1147 |
base[2]= (V180->c.c_car); |
base[2]= (V182->c.c_car); |
1148 |
V180=V180->c.c_cdr; |
V182=V182->c.c_cdr; |
1149 |
if(!endp(V180))invalid_macro_call();} |
if(!endp(V182))invalid_macro_call();} |
1150 |
base[3]= list(2,VV[45],base[2]); |
base[3]= list(2,VV[45],base[2]); |
1151 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1152 |
return; |
return; |
1157 |
{ |
{ |
1158 |
va_list ap; |
va_list ap; |
1159 |
int narg = VFUN_NARGS; VMB34 VMS34 VMV34 |
int narg = VFUN_NARGS; VMB34 VMS34 VMV34 |
1160 |
{object V181; |
{object V183; |
1161 |
va_start(ap,first); |
va_start(ap,first); |
1162 |
narg= narg - 0; |
narg= narg - 0; |
1163 |
{ |
{ |
1164 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI34key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI34key,first,ap); |
1165 |
V181=(Vcs[0]); |
V183=(Vcs[0]); |
1166 |
base[0]= VV[13]; |
base[0]= VV[13]; |
1167 |
base[1]= (V181); |
base[1]= (V183); |
1168 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1169 |
siLmake_structure(); |
siLmake_structure(); |
1170 |
vs_top=sup; |
vs_top=sup; |
1171 |
{object V182 = vs_base[0]; |
{object V184 = vs_base[0]; |
1172 |
VMR34(V182)} |
VMR34(V184)} |
1173 |
va_end(ap); |
va_end(ap); |
1174 |
base[0]=base[0]; |
base[0]=base[0]; |
1175 |
return Cnil;} |
return Cnil;} |
1176 |
}} |
}} |
1177 |
/* local entry for function CACHING-DFUN-INFO */ |
/* local entry for function CACHING-DFUN-INFO */ |
1178 |
|
|
1179 |
static object LI35(V184) |
static object LI35(V186) |
1180 |
|
|
1181 |
object V184; |
object V186; |
1182 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
1183 |
goto TTL; |
goto TTL; |
1184 |
TTL:; |
TTL:; |
1185 |
base[0]= VV[13]; |
base[0]= VV[13]; |
1186 |
base[1]= (V184); |
base[1]= (V186); |
1187 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1188 |
siLmake_structure(); |
siLmake_structure(); |
1189 |
vs_top=sup; |
vs_top=sup; |
1190 |
{object V185 = vs_base[0]; |
{object V187 = vs_base[0]; |
1191 |
VMR35(V185)} |
VMR35(V187)} |
1192 |
base[0]=base[0]; |
base[0]=base[0]; |
1193 |
return Cnil; |
return Cnil; |
1194 |
} |
} |
1198 |
{ |
{ |
1199 |
va_list ap; |
va_list ap; |
1200 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
1201 |
{object V186; |
{object V188; |
1202 |
va_start(ap,first); |
va_start(ap,first); |
1203 |
narg= narg - 0; |
narg= narg - 0; |
1204 |
{ |
{ |
1205 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI36key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI36key,first,ap); |
1206 |
V186=(Vcs[0]); |
V188=(Vcs[0]); |
1207 |
base[0]= VV[14]; |
base[0]= VV[14]; |
1208 |
base[1]= (V186); |
base[1]= (V188); |
1209 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1210 |
siLmake_structure(); |
siLmake_structure(); |
1211 |
vs_top=sup; |
vs_top=sup; |
1212 |
{object V187 = vs_base[0]; |
{object V189 = vs_base[0]; |
1213 |
VMR36(V187)} |
VMR36(V189)} |
1214 |
va_end(ap); |
va_end(ap); |
1215 |
base[0]=base[0]; |
base[0]=base[0]; |
1216 |
return Cnil;} |
return Cnil;} |
1217 |
}} |
}} |
1218 |
/* local entry for function CONSTANT-VALUE-DFUN-INFO */ |
/* local entry for function CONSTANT-VALUE-DFUN-INFO */ |
1219 |
|
|
1220 |
static object LI37(V189) |
static object LI37(V191) |
1221 |
|
|
1222 |
object V189; |
object V191; |
1223 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
1224 |
goto TTL; |
goto TTL; |
1225 |
TTL:; |
TTL:; |
1226 |
base[0]= VV[14]; |
base[0]= VV[14]; |
1227 |
base[1]= (V189); |
base[1]= (V191); |
1228 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1229 |
siLmake_structure(); |
siLmake_structure(); |
1230 |
vs_top=sup; |
vs_top=sup; |
1231 |
{object V190 = vs_base[0]; |
{object V192 = vs_base[0]; |
1232 |
VMR37(V190)} |
VMR37(V192)} |
1233 |
base[0]=base[0]; |
base[0]=base[0]; |
1234 |
return Cnil; |
return Cnil; |
1235 |
} |
} |
1241 |
vs_check; |
vs_check; |
1242 |
check_arg(2); |
check_arg(2); |
1243 |
vs_top=sup; |
vs_top=sup; |
1244 |
{object V191=base[0]->c.c_cdr; |
{object V193=base[0]->c.c_cdr; |
1245 |
if(endp(V191))invalid_macro_call(); |
if(endp(V193))invalid_macro_call(); |
1246 |
base[2]= (V191->c.c_car); |
base[2]= (V193->c.c_car); |
1247 |
V191=V191->c.c_cdr; |
V193=V193->c.c_cdr; |
1248 |
if(endp(V191))invalid_macro_call(); |
if(endp(V193))invalid_macro_call(); |
1249 |
base[3]= (V191->c.c_car); |
base[3]= (V193->c.c_car); |
1250 |
V191=V191->c.c_cdr; |
V193=V193->c.c_cdr; |
1251 |
base[4]= V191;} |
base[4]= V193;} |
1252 |
V192= listA(4,VV[48],base[3],base[2],base[4]); |
V194= listA(4,VV[48],base[3],base[2],base[4]); |
1253 |
base[5]= list(4,VV[46],VV[47],/* INLINE-ARGS */V192,listA(3,VV[49],base[2],VV[50])); |
base[5]= list(4,VV[46],VV[47],/* INLINE-ARGS */V194,listA(3,VV[49],base[2],VV[50])); |
1254 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1255 |
return; |
return; |
1256 |
} |
} |
1257 |
/* local entry for function ACCESSOR-MISS-FUNCTION */ |
/* local entry for function ACCESSOR-MISS-FUNCTION */ |
1258 |
|
|
1259 |
static object LI40(V195,V196) |
static object LI40(V197,V198) |
1260 |
|
|
1261 |
object V195;object V196; |
object V197;object V198; |
1262 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
1263 |
goto TTL; |
goto TTL; |
1264 |
TTL:; |
TTL:; |
1265 |
base[0]=MMcons((V196),Cnil); |
base[0]=MMcons((V198),Cnil); |
1266 |
base[1]=MMcons((V195),base[0]); |
base[1]=MMcons((V197),base[0]); |
1267 |
{object V197= STREF(object,(base[0]->c.c_car),4); |
{object V199= STREF(object,(base[0]->c.c_car),4); |
1268 |
if((V197!= VV[51]))goto T296; |
if((V199!= VV[51]))goto T296; |
1269 |
{object V198 = |
{object V200 = |
1270 |
make_cclosure_new(LC139,Cnil,base[1],Cdata); |
make_cclosure_new(LC139,Cnil,base[1],Cdata); |
1271 |
VMR39(V198)} |
VMR39(V200)} |
1272 |
goto T296; |
goto T296; |
1273 |
T296:; |
T296:; |
1274 |
if((V197!= VV[123]))goto T297; |
if((V199!= VV[123]))goto T297; |
1275 |
{object V199 = |
{object V201 = |
1276 |
make_cclosure_new(LC140,Cnil,base[1],Cdata); |
make_cclosure_new(LC140,Cnil,base[1],Cdata); |
1277 |
VMR39(V199)} |
VMR39(V201)} |
1278 |
goto T297; |
goto T297; |
1279 |
T297:; |
T297:; |
1280 |
FEerror("The ECASE key value ~s is illegal.",1,V197); |
FEerror("The ECASE key value ~s is illegal.",1,V199); |
1281 |
{object V200 = Cnil; |
{object V202 = Cnil; |
1282 |
VMR39(V200)}} |
VMR39(V202)}} |
1283 |
base[0]=base[0]; |
base[0]=base[0]; |
1284 |
return Cnil; |
return Cnil; |
1285 |
} |
} |
1289 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1290 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
1291 |
vs_check; |
vs_check; |
1292 |
{object V201; |
{object V203; |
|
object V202; |
|
|
object V203; |
|
1293 |
object V204; |
object V204; |
1294 |
|
object V205; |
1295 |
|
object V206; |
1296 |
check_arg(4); |
check_arg(4); |
1297 |
V201=(base[0]); |
V203=(base[0]); |
1298 |
V202=(base[1]); |
V204=(base[1]); |
1299 |
V203=(base[2]); |
V205=(base[2]); |
1300 |
V204=(base[3]); |
V206=(base[3]); |
1301 |
vs_top=sup; |
vs_top=sup; |
1302 |
goto TTL; |
goto TTL; |
1303 |
TTL:; |
TTL:; |
1304 |
{object V205; |
{object V207; |
1305 |
object V206; |
object V208; |
1306 |
if(!(((V202))==(VV[51]))){ |
if(!(((V204))==(VV[51]))){ |
1307 |
goto T300;} |
goto T300;} |
1308 |
V205= VV[52]; |
V207= VV[52]; |
1309 |
goto T298; |
goto T298; |
1310 |
goto T300; |
goto T300; |
1311 |
T300:; |
T300:; |
1312 |
V205= VV[53]; |
V207= VV[53]; |
1313 |
goto T298; |
goto T298; |
1314 |
T298:; |
T298:; |
1315 |
V206= (*(LnkLI171))((V202),(V204),(V203)); |
V208= (*(LnkLI171))((V204),(V206),(V205)); |
1316 |
base[6]= (V205); |
base[6]= (V207); |
1317 |
base[7]= (type_of((V204))==t_cons?Ct:Cnil); |
base[7]= (type_of((V206))==t_cons?Ct:Cnil); |
1318 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1319 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
1320 |
vs_top=sup; |
vs_top=sup; |
1321 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1322 |
base[6]= (V203); |
base[6]= (V205); |
1323 |
base[7]= (V204); |
base[7]= (V206); |
1324 |
base[8]= (*(LnkLI173))((V201),(V206)); |
base[8]= (*(LnkLI173))((V203),(V208)); |
1325 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1326 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1327 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1330 |
vs_top=sup; |
vs_top=sup; |
1331 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1332 |
base[5]= Cnil; |
base[5]= Cnil; |
1333 |
base[6]= (V206); |
base[6]= (V208); |
1334 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1335 |
return;} |
return;} |
1336 |
} |
} |
1341 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1342 |
register object *sup=base+VM41; VC41 |
register object *sup=base+VM41; VC41 |
1343 |
vs_check; |
vs_check; |
1344 |
{object V207; |
{object V209; |
|
object V208; |
|
|
object V209; |
|
1345 |
object V210; |
object V210; |
1346 |
object V211; |
object V211; |
1347 |
|
object V212; |
1348 |
|
object V213; |
1349 |
check_arg(5); |
check_arg(5); |
1350 |
V207=(base[0]); |
V209=(base[0]); |
1351 |
V208=(base[1]); |
V210=(base[1]); |
1352 |
V209=(base[2]); |
V211=(base[2]); |
1353 |
V210=(base[3]); |
V212=(base[3]); |
1354 |
V211=(base[4]); |
V213=(base[4]); |
1355 |
vs_top=sup; |
vs_top=sup; |
1356 |
goto TTL; |
goto TTL; |
1357 |
TTL:; |
TTL:; |
1358 |
{object V212; |
{object V214; |
1359 |
object V213; |
object V215; |
1360 |
if(!(((V208))==(VV[51]))){ |
if(!(((V210))==(VV[51]))){ |
1361 |
goto T314;} |
goto T314;} |
1362 |
V212= VV[54]; |
V214= VV[54]; |
1363 |
goto T312; |
goto T312; |
1364 |
goto T314; |
goto T314; |
1365 |
T314:; |
T314:; |
1366 |
V212= VV[55]; |
V214= VV[55]; |
1367 |
goto T312; |
goto T312; |
1368 |
T312:; |
T312:; |
1369 |
V213= (*(LnkLI174))((V208),(V211),(V209),(V210)); |
V215= (*(LnkLI174))((V210),(V213),(V211),(V212)); |
1370 |
base[7]= (V212); |
base[7]= (V214); |
1371 |
base[8]= (type_of((V211))==t_cons?Ct:Cnil); |
base[8]= (type_of((V213))==t_cons?Ct:Cnil); |
1372 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
1373 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
1374 |
vs_top=sup; |
vs_top=sup; |
1375 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1376 |
base[7]= (V209); |
base[7]= (V211); |
1377 |
base[8]= (V210); |
base[8]= (V212); |
1378 |
base[9]= (V211); |
base[9]= (V213); |
1379 |
base[10]= (*(LnkLI173))((V207),(V213)); |
base[10]= (*(LnkLI173))((V209),(V215)); |
1380 |
vs_top=(vs_base=base+7)+4; |
vs_top=(vs_base=base+7)+4; |
1381 |
{object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1382 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1385 |
vs_top=sup; |
vs_top=sup; |
1386 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1387 |
base[6]= Cnil; |
base[6]= Cnil; |
1388 |
base[7]= (V213); |
base[7]= (V215); |
1389 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1390 |
return;} |
return;} |
1391 |
} |
} |
1396 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1397 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM42; VC42 |
1398 |
vs_check; |
vs_check; |
1399 |
{object V214; |
{object V216; |
|
object V215; |
|
|
object V216; |
|
1400 |
object V217; |
object V217; |
1401 |
|
object V218; |
1402 |
|
object V219; |
1403 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
1404 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
1405 |
V214=(base[0]); |
V216=(base[0]); |
1406 |
V215=(base[1]); |
V217=(base[1]); |
1407 |
V216=(base[2]); |
V218=(base[2]); |
1408 |
vs_base=vs_base+3; |
vs_base=vs_base+3; |
1409 |
if(vs_base>=vs_top){vs_top=sup;goto T327;} |
if(vs_base>=vs_top){vs_top=sup;goto T327;} |
1410 |
V217=(base[3]); |
V219=(base[3]); |
1411 |
vs_top=sup; |
vs_top=sup; |
1412 |
goto T328; |
goto T328; |
1413 |
goto T327; |
goto T327; |
1414 |
T327:; |
T327:; |
1415 |
V217= Cnil; |
V219= Cnil; |
1416 |
goto T328; |
goto T328; |
1417 |
T328:; |
T328:; |
1418 |
{object V218; |
{object V220; |
1419 |
object V219; |
object V221; |
1420 |
object V220; |
object V222; |
1421 |
if(!(((V215))==(VV[51]))){ |
if(!(((V217))==(VV[51]))){ |
1422 |
goto T332;} |
goto T332;} |
1423 |
V218= VV[56]; |
V220= VV[56]; |
1424 |
goto T330; |
goto T330; |
1425 |
goto T332; |
goto T332; |
1426 |
T332:; |
T332:; |
1427 |
V218= VV[57]; |
V220= VV[57]; |
1428 |
goto T330; |
goto T330; |
1429 |
T330:; |
T330:; |
1430 |
if((V217)!=Cnil){ |
if((V219)!=Cnil){ |
1431 |
V219= (V217); |
V221= (V219); |
1432 |
goto T334;} |
goto T334;} |
1433 |
V221= (VV[176]->s.s_gfdef); |
V223= (VV[176]->s.s_gfdef); |
1434 |
V219= (*(LnkLI175))(small_fixnum(1),Cnil,V221,4); |
V221= (*(LnkLI175))(small_fixnum(1),Cnil,V223,4); |
1435 |
goto T334; |
goto T334; |
1436 |
T334:; |
T334:; |
1437 |
V220= (*(LnkLI37))((V215),(V216),(V219)); |
V222= (*(LnkLI37))((V217),(V218),(V221)); |
1438 |
base[9]= (V218); |
base[9]= (V220); |
1439 |
base[10]= (type_of((V216))==t_cons?Ct:Cnil); |
base[10]= (type_of((V218))==t_cons?Ct:Cnil); |
1440 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
1441 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
1442 |
vs_top=sup; |
vs_top=sup; |
1443 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
1444 |
base[9]= (V219); |
base[9]= (V221); |
1445 |
base[10]= (V216); |
base[10]= (V218); |
1446 |
base[11]= (*(LnkLI173))((V214),(V220)); |
base[11]= (*(LnkLI173))((V216),(V222)); |
1447 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
1448 |
{object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1449 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1451 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1452 |
vs_top=sup; |
vs_top=sup; |
1453 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1454 |
base[8]= (V219); |
base[8]= (V221); |
1455 |
base[9]= (V220); |
base[9]= (V222); |
1456 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1457 |
return;} |
return;} |
1458 |
} |
} |
1463 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1464 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM43; VC43 |
1465 |
vs_check; |
vs_check; |
1466 |
{object V222; |
{object V224; |
|
object V223; |
|
|
object V224; |
|
1467 |
object V225; |
object V225; |
1468 |
|
object V226; |
1469 |
|
object V227; |
1470 |
check_arg(4); |
check_arg(4); |
1471 |
V222=(base[0]); |
V224=(base[0]); |
1472 |
V223=(base[1]); |
V225=(base[1]); |
1473 |
V224=(base[2]); |
V226=(base[2]); |
1474 |
V225=(base[3]); |
V227=(base[3]); |
1475 |
vs_top=sup; |
vs_top=sup; |
1476 |
goto TTL; |
goto TTL; |
1477 |
TTL:; |
TTL:; |
1478 |
{object V226; |
{object V228; |
1479 |
V227= (VV[176]->s.s_gfdef); |
V229 = (V227); |
1480 |
V226= (VFUN_NARGS=4,(*(LnkLI177))((V225),Cnil,small_fixnum(1),V227)); |
V230= (VV[176]->s.s_gfdef); |
1481 |
base[4]= (V222); |
V228= (VFUN_NARGS=4,(*(LnkLI177))(V229,Cnil,small_fixnum(1),V230)); |
1482 |
base[5]= (V223); |
base[4]= (V224); |
1483 |
base[6]= (V224); |
base[5]= (V225); |
1484 |
base[7]= (V226); |
base[6]= (V226); |
1485 |
|
base[7]= (V228); |
1486 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1487 |
(void) (*Lnk178)(); |
(void) (*Lnk178)(); |
1488 |
return;} |
return;} |
1490 |
} |
} |
1491 |
/* local entry for function ONE-INDEX-LIMIT-FN */ |
/* local entry for function ONE-INDEX-LIMIT-FN */ |
1492 |
|
|
1493 |
static object LI45(V229) |
static object LI45(V232) |
1494 |
|
|
1495 |
object V229; |
object V232; |
1496 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
1497 |
goto TTL; |
goto TTL; |
1498 |
TTL:; |
TTL:; |
1499 |
{long V230 = (long)(*(LnkLI179))((V229)); |
{long V233 = (long)(*(LnkLI179))((V232)); |
1500 |
VMR44((object)V230)} |
VMR44((object)V233)} |
1501 |
} |
} |
1502 |
/* function definition for MAKE-N-N-ACCESSOR-DFUN */ |
/* function definition for MAKE-N-N-ACCESSOR-DFUN */ |
1503 |
|
|
1505 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1506 |
register object *sup=base+VM45; VC45 |
register object *sup=base+VM45; VC45 |
1507 |
vs_check; |
vs_check; |
1508 |
{object V231; |
{object V234; |
1509 |
object V232; |
object V235; |
1510 |
object V233; |
object V236; |
1511 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1512 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
1513 |
V231=(base[0]); |
V234=(base[0]); |
1514 |
V232=(base[1]); |
V235=(base[1]); |
1515 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1516 |
if(vs_base>=vs_top){vs_top=sup;goto T352;} |
if(vs_base>=vs_top){vs_top=sup;goto T352;} |
1517 |
V233=(base[2]); |
V236=(base[2]); |
1518 |
vs_top=sup; |
vs_top=sup; |
1519 |
goto T353; |
goto T353; |
1520 |
goto T352; |
goto T352; |
1521 |
T352:; |
T352:; |
1522 |
V233= Cnil; |
V236= Cnil; |
1523 |
goto T353; |
goto T353; |
1524 |
T353:; |
T353:; |
1525 |
{object V234; |
{object V237; |
1526 |
object V235; |
object V238; |
1527 |
object V236; |
object V239; |
1528 |
if(!(((V232))==(VV[51]))){ |
if(!(((V235))==(VV[51]))){ |
1529 |
goto T357;} |
goto T357;} |
1530 |
V234= VV[58]; |
V237= VV[58]; |
1531 |
goto T355; |
goto T355; |
1532 |
goto T357; |
goto T357; |
1533 |
T357:; |
T357:; |
1534 |
V234= VV[59]; |
V237= VV[59]; |
1535 |
goto T355; |
goto T355; |
1536 |
T355:; |
T355:; |
1537 |
if((V233)!=Cnil){ |
if((V236)!=Cnil){ |
1538 |
V235= (V233); |
V238= (V236); |
1539 |
goto T359;} |
goto T359;} |
1540 |
V237= (VV[180]->s.s_gfdef); |
V240= (VV[180]->s.s_gfdef); |
1541 |
V235= (*(LnkLI175))(small_fixnum(1),Ct,V237,2); |
V238= (*(LnkLI175))(small_fixnum(1),Ct,V240,2); |
1542 |
goto T359; |
goto T359; |
1543 |
T359:; |
T359:; |
1544 |
V236= (*(LnkLI181))((V232),(V235)); |
V239= (*(LnkLI181))((V235),(V238)); |
1545 |
base[8]= (V234); |
base[8]= (V237); |
1546 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1547 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
1548 |
vs_top=sup; |
vs_top=sup; |
1549 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1550 |
base[8]= (V235); |
base[8]= (V238); |
1551 |
base[9]= (*(LnkLI173))((V231),(V236)); |
base[9]= (*(LnkLI173))((V234),(V239)); |
1552 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
1553 |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1554 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1556 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1557 |
vs_top=sup; |
vs_top=sup; |
1558 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1559 |
base[7]= (V235); |
base[7]= (V238); |
1560 |
base[8]= (V236); |
base[8]= (V239); |
1561 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1562 |
return;} |
return;} |
1563 |
} |
} |
1568 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1569 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
1570 |
vs_check; |
vs_check; |
1571 |
{object V238; |
{object V241; |
1572 |
object V239; |
object V242; |
1573 |
object V240; |
object V243; |
1574 |
check_arg(3); |
check_arg(3); |
1575 |
V238=(base[0]); |
V241=(base[0]); |
1576 |
V239=(base[1]); |
V242=(base[1]); |
1577 |
V240=(base[2]); |
V243=(base[2]); |
1578 |
vs_top=sup; |
vs_top=sup; |
1579 |
goto TTL; |
goto TTL; |
1580 |
TTL:; |
TTL:; |
1581 |
{object V241; |
{object V244; |
1582 |
V242= (VV[180]->s.s_gfdef); |
V245 = (V243); |
1583 |
V241= (VFUN_NARGS=4,(*(LnkLI177))((V240),Ct,small_fixnum(1),V242)); |
V246= (VV[180]->s.s_gfdef); |
1584 |
base[3]= (V238); |
V244= (VFUN_NARGS=4,(*(LnkLI177))(V245,Ct,small_fixnum(1),V246)); |
1585 |
base[4]= (V239); |
base[3]= (V241); |
1586 |
base[5]= (V241); |
base[4]= (V242); |
1587 |
|
base[5]= (V244); |
1588 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1589 |
(void) (*Lnk182)(); |
(void) (*Lnk182)(); |
1590 |
return;} |
return;} |
1592 |
} |
} |
1593 |
/* local entry for function N-N-ACCESSORS-LIMIT-FN */ |
/* local entry for function N-N-ACCESSORS-LIMIT-FN */ |
1594 |
|
|
1595 |
static object LI48(V244) |
static object LI48(V248) |
1596 |
|
|
1597 |
object V244; |
object V248; |
1598 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
1599 |
goto TTL; |
goto TTL; |
1600 |
TTL:; |
TTL:; |
1601 |
{long V245 = (long)(*(LnkLI179))((V244)); |
{long V249 = (long)(*(LnkLI179))((V248)); |
1602 |
VMR47((object)V245)} |
VMR47((object)V249)} |
1603 |
} |
} |
1604 |
/* function definition for MAKE-CHECKING-DFUN */ |
/* function definition for MAKE-CHECKING-DFUN */ |
1605 |
|
|
1607 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1608 |
register object *sup=base+VM48; VC48 |
register object *sup=base+VM48; VC48 |
1609 |
vs_check; |
vs_check; |
1610 |
{object V246; |
{object V250; |
1611 |
object V247; |
object V251; |
1612 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1613 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
1614 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
1615 |
V246=(base[1]); |
V250=(base[1]); |
1616 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1617 |
if(vs_base>=vs_top){vs_top=sup;goto T374;} |
if(vs_base>=vs_top){vs_top=sup;goto T374;} |
1618 |
V247=(base[2]); |
V251=(base[2]); |
1619 |
vs_top=sup; |
vs_top=sup; |
1620 |
goto T375; |
goto T375; |
1621 |
goto T374; |
goto T374; |
1622 |
T374:; |
T374:; |
1623 |
V247= Cnil; |
V251= Cnil; |
1624 |
goto T375; |
goto T375; |
1625 |
T375:; |
T375:; |
1626 |
if(((V247))!=Cnil){ |
if(((V251))!=Cnil){ |
1627 |
goto T377;} |
goto T377;} |
1628 |
if(((*(LnkLI183))((base[0]->c.c_car)))==Cnil){ |
if(((*(LnkLI183))((base[0]->c.c_car)))==Cnil){ |
1629 |
goto T380;} |
goto T380;} |
1641 |
return; |
return; |
1642 |
goto T377; |
goto T377; |
1643 |
T377:; |
T377:; |
1644 |
{object V248; |
{object V252; |
1645 |
object V249; |
object V253; |
1646 |
object V250; |
object V254; |
1647 |
object V251; |
object V255; |
1648 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
1649 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1650 |
(void) (*Lnk187)(); |
(void) (*Lnk187)(); |
1651 |
if(vs_base>=vs_top){vs_top=sup;goto T389;} |
if(vs_base>=vs_top){vs_top=sup;goto T389;} |
1652 |
V248= vs_base[0]; |
V252= vs_base[0]; |
1653 |
vs_base++; |
vs_base++; |
1654 |
if(vs_base>=vs_top){vs_top=sup;goto T390;} |
if(vs_base>=vs_top){vs_top=sup;goto T390;} |
1655 |
V249= vs_base[0]; |
V253= vs_base[0]; |
1656 |
vs_base++; |
vs_base++; |
1657 |
if(vs_base>=vs_top){vs_top=sup;goto T391;} |
if(vs_base>=vs_top){vs_top=sup;goto T391;} |
1658 |
V250= vs_base[0]; |
V254= vs_base[0]; |
1659 |
vs_base++; |
vs_base++; |
1660 |
if(vs_base>=vs_top){vs_top=sup;goto T392;} |
if(vs_base>=vs_top){vs_top=sup;goto T392;} |
1661 |
V251= vs_base[0]; |
V255= vs_base[0]; |
1662 |
vs_top=sup; |
vs_top=sup; |
1663 |
goto T393; |
goto T393; |
1664 |
goto T389; |
goto T389; |
1665 |
T389:; |
T389:; |
1666 |
V248= Cnil; |
V252= Cnil; |
1667 |
goto T390; |
goto T390; |
1668 |
T390:; |
T390:; |
1669 |
V249= Cnil; |
V253= Cnil; |
1670 |
goto T391; |
goto T391; |
1671 |
T391:; |
T391:; |
1672 |
V250= Cnil; |
V254= Cnil; |
1673 |
goto T392; |
goto T392; |
1674 |
T392:; |
T392:; |
1675 |
V251= Cnil; |
V255= Cnil; |
1676 |
goto T393; |
goto T393; |
1677 |
T393:; |
T393:; |
1678 |
base[3]= |
base[3]= |
1679 |
make_cclosure_new(LC141,Cnil,base[0],Cdata); |
make_cclosure_new(LC141,Cnil,base[0],Cdata); |
1680 |
base[4]= (V250); |
base[4]= (V254); |
1681 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1682 |
(void) (*Lnk188)(); |
(void) (*Lnk188)(); |
1683 |
vs_top=sup; |
vs_top=sup; |
1684 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1685 |
goto T395;} |
goto T395;} |
1686 |
{object V252; |
{object V256; |
1687 |
V252= (*(LnkLI189))(); |
V256= (*(LnkLI189))(); |
1688 |
base[5]= VV[60]; |
base[5]= VV[60]; |
1689 |
base[6]= (V250); |
base[6]= (V254); |
1690 |
base[7]= (V249); |
base[7]= (V253); |
1691 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1692 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
1693 |
vs_top=sup; |
vs_top=sup; |
1694 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1695 |
base[5]= (V246); |
base[5]= (V250); |
1696 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1697 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1698 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1701 |
vs_top=sup; |
vs_top=sup; |
1702 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1703 |
base[4]= Cnil; |
base[4]= Cnil; |
1704 |
base[5]= (V252); |
base[5]= (V256); |
1705 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1706 |
return;} |
return;} |
1707 |
goto T395; |
goto T395; |
1708 |
T395:; |
T395:; |
1709 |
{object V253; |
{object V257; |
1710 |
if((V247)!=Cnil){ |
if((V251)!=Cnil){ |
1711 |
V253= (V247); |
V257= (V251); |
1712 |
goto T408;} |
goto T408;} |
1713 |
V254= (VV[190]->s.s_gfdef); |
V258 = (V255); |
1714 |
V253= (*(LnkLI175))((V251),Cnil,V254,2); |
V259= (VV[190]->s.s_gfdef); |
1715 |
|
V257= (*(LnkLI175))(V258,Cnil,V259,2); |
1716 |
goto T408; |
goto T408; |
1717 |
T408:; |
T408:; |
1718 |
base[4]= (*(LnkLI191))((V246),(V253)); |
base[4]= (*(LnkLI191))((V250),(V257)); |
1719 |
base[4]=MMcons(base[4],base[0]); |
base[4]=MMcons(base[4],base[0]); |
1720 |
base[7]= VV[61]; |
base[7]= VV[61]; |
1721 |
base[8]= (V250); |
base[8]= (V254); |
1722 |
base[9]= (V249); |
base[9]= (V253); |
1723 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1724 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
1725 |
vs_top=sup; |
vs_top=sup; |
1726 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1727 |
base[7]= (V253); |
base[7]= (V257); |
1728 |
base[8]= (V246); |
base[8]= (V250); |
1729 |
base[9]= |
base[9]= |
1730 |
make_cclosure_new(LC142,Cnil,base[4],Cdata); |
make_cclosure_new(LC142,Cnil,base[4],Cdata); |
1731 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1735 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1736 |
vs_top=sup; |
vs_top=sup; |
1737 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1738 |
base[6]= (V253); |
base[6]= (V257); |
1739 |
base[7]= (base[4]->c.c_car); |
base[7]= (base[4]->c.c_car); |
1740 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1741 |
return;}} |
return;}} |
1747 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1748 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM49; VC49 |
1749 |
vs_check; |
vs_check; |
1750 |
{object V255; |
{object V260; |
1751 |
object V256; |
object V261; |
1752 |
object V257; |
object V262; |
1753 |
check_arg(4); |
check_arg(4); |
1754 |
V255=(base[0]); |
V260=(base[0]); |
1755 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
1756 |
V256=(base[2]); |
V261=(base[2]); |
1757 |
V257=(base[3]); |
V262=(base[3]); |
1758 |
vs_top=sup; |
vs_top=sup; |
1759 |
{object V258; |
{object V263; |
1760 |
base[4]= (V255); |
base[4]= (V260); |
1761 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1762 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk161)(Lclptr161); |
1763 |
vs_top=sup; |
vs_top=sup; |
1764 |
V259= vs_base[0]; |
V264= vs_base[0]; |
1765 |
V258= STREF(object,V259,8); |
V263= STREF(object,V264,8); |
1766 |
base[4]= |
base[4]= |
1767 |
make_cclosure_new(LC143,Cnil,base[1],Cdata); |
make_cclosure_new(LC143,Cnil,base[1],Cdata); |
1768 |
base[5]= (V258); |
base[5]= (V263); |
1769 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1770 |
(void) (*Lnk188)(); |
(void) (*Lnk188)(); |
1771 |
vs_top=sup; |
vs_top=sup; |
1779 |
return; |
return; |
1780 |
goto T425; |
goto T425; |
1781 |
T425:; |
T425:; |
1782 |
{object V260; |
{object V265; |
1783 |
V261= (VV[190]->s.s_gfdef); |
V266 = (V260); |
1784 |
V260= (*(LnkLI192))((V255),Cnil,V261,(V256),(V257)); |
V267= (VV[190]->s.s_gfdef); |
1785 |
base[4]= (V255); |
V268 = (V261); |
1786 |
|
V269 = (V262); |
1787 |
|
V265= (*(LnkLI192))(V266,Cnil,V267,V268,V269); |
1788 |
|
base[4]= (V260); |
1789 |
base[5]= (base[1]->c.c_car); |
base[5]= (base[1]->c.c_car); |
1790 |
base[6]= (V260); |
base[6]= (V265); |
1791 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1792 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
1793 |
return;}} |
return;}} |
1795 |
} |
} |
1796 |
/* local entry for function USE-DEFAULT-METHOD-ONLY-DFUN-P */ |
/* local entry for function USE-DEFAULT-METHOD-ONLY-DFUN-P */ |
1797 |
|
|
1798 |
static object LI51(V263) |
static object LI51(V271) |
1799 |
|
|
1800 |
object V263; |
object V271; |
1801 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
1802 |
goto TTL; |
goto TTL; |
1803 |
TTL:; |
TTL:; |
1804 |
{object V264; |
{object V272; |
1805 |
object V265; |
object V273; |
1806 |
object V266; |
object V274; |
1807 |
object V267; |
object V275; |
1808 |
base[0]= (V263); |
base[0]= (V271); |
1809 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1810 |
(void) (*Lnk187)(); |
(void) (*Lnk187)(); |
1811 |
if(vs_base>=vs_top){vs_top=sup;goto T439;} |
if(vs_base>=vs_top){vs_top=sup;goto T439;} |
1812 |
V264= vs_base[0]; |
V272= vs_base[0]; |
1813 |
vs_base++; |
vs_base++; |
1814 |
if(vs_base>=vs_top){vs_top=sup;goto T440;} |
if(vs_base>=vs_top){vs_top=sup;goto T440;} |
1815 |
V265= vs_base[0]; |
V273= vs_base[0]; |
1816 |
vs_base++; |
vs_base++; |
1817 |
if(vs_base>=vs_top){vs_top=sup;goto T441;} |
if(vs_base>=vs_top){vs_top=sup;goto T441;} |
1818 |
V266= vs_base[0]; |
V274= vs_base[0]; |
1819 |
vs_base++; |
vs_base++; |
1820 |
if(vs_base>=vs_top){vs_top=sup;goto T442;} |
if(vs_base>=vs_top){vs_top=sup;goto T442;} |
1821 |
V267= vs_base[0]; |
V275= vs_base[0]; |
1822 |
vs_top=sup; |
vs_top=sup; |
1823 |
goto T443; |
goto T443; |
1824 |
goto T439; |
goto T439; |
1825 |
T439:; |
T439:; |
1826 |
V264= Cnil; |
V272= Cnil; |
1827 |
goto T440; |
goto T440; |
1828 |
T440:; |
T440:; |
1829 |
V265= Cnil; |
V273= Cnil; |
1830 |
goto T441; |
goto T441; |
1831 |
T441:; |
T441:; |
1832 |
V266= Cnil; |
V274= Cnil; |
1833 |
goto T442; |
goto T442; |
1834 |
T442:; |
T442:; |
1835 |
V267= Cnil; |
V275= Cnil; |
1836 |
goto T443; |
goto T443; |
1837 |
T443:; |
T443:; |
1838 |
base[0]= VV[194]; |
base[0]= VV[194]; |
1839 |
base[1]= (V266); |
base[1]= (V274); |
1840 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1841 |
(void) (*Lnk188)(); |
(void) (*Lnk188)(); |
1842 |
vs_top=sup; |
vs_top=sup; |
1843 |
{object V268 = vs_base[0]; |
{object V276 = vs_base[0]; |
1844 |
VMR50(V268)}} |
VMR50(V276)}} |
1845 |
base[0]=base[0]; |
base[0]=base[0]; |
1846 |
return Cnil; |
return Cnil; |
1847 |
} |
} |
1848 |
/* local entry for function USE-CACHING-DFUN-P */ |
/* local entry for function USE-CACHING-DFUN-P */ |
1849 |
|
|
1850 |
static object LI52(V270) |
static object LI52(V278) |
1851 |
|
|
1852 |
register object V270; |
register object V278; |
1853 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
1854 |
goto TTL; |
goto TTL; |
1855 |
TTL:; |
TTL:; |
1856 |
base[0]= VV[195]; |
base[0]= VV[195]; |
1857 |
if(((*(LnkLI196))((V270)))==Cnil){ |
if(((*(LnkLI196))((V278)))==Cnil){ |
1858 |
goto T449;} |
goto T449;} |
1859 |
if(type_of(V270)==t_structure){ |
if(type_of(V278)==t_structure){ |
1860 |
goto T455;} |
goto T455;} |
1861 |
goto T453; |
goto T453; |
1862 |
goto T455; |
goto T455; |
1863 |
T455:; |
T455:; |
1864 |
if(!(((V270)->str.str_def)==(VV[63]))){ |
if(!(((V278)->str.str_def)==(VV[63]))){ |
1865 |
goto T453;} |
goto T453;} |
1866 |
V271= STREF(object,(V270),4); |
V279= STREF(object,(V278),4); |
1867 |
goto T451; |
goto T451; |
1868 |
goto T453; |
goto T453; |
1869 |
T453:;{object V273; |
T453:;{object V281; |
1870 |
V273= (VV[65]->s.s_dbind); |
V281= (VV[65]->s.s_dbind); |
1871 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
1872 |
base[3]= (V270); |
base[3]= (V278); |
1873 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1874 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
1875 |
vs_top=sup; |
vs_top=sup; |
1876 |
V274= vs_base[0]; |
V282= vs_base[0]; |
1877 |
if(!((V273)==(CMPcar(V274)))){ |
if(!((V281)==(CMPcar(V282)))){ |
1878 |
goto T458;}} |
goto T458;}} |
1879 |
V271= CMPcar(((V270))->cc.cc_turbo[12]); |
V279= CMPcar(((V278))->cc.cc_turbo[12]); |
1880 |
goto T451; |
goto T451; |
1881 |
goto T458; |
goto T458; |
1882 |
T458:; |
T458:; |
1884 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1885 |
Lerror(); |
Lerror(); |
1886 |
vs_top=sup; |
vs_top=sup; |
1887 |
V271= vs_base[0]; |
V279= vs_base[0]; |
1888 |
goto T451; |
goto T451; |
1889 |
T451:; |
T451:; |
1890 |
base[1]= (V271)->v.v_self[fix((VV[67]->s.s_dbind))]; |
V283 = (VV[67]->s.s_dbind); |
1891 |
|
base[1]= (V279)->v.v_self[fix(V283)]; |
1892 |
goto T447; |
goto T447; |
1893 |
goto T449; |
goto T449; |
1894 |
T449:; |
T449:; |
1895 |
base[2]= (V270); |
base[2]= (V278); |
1896 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1897 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk199)(Lclptr199); |
1898 |
vs_top=sup; |
vs_top=sup; |
1902 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1903 |
(void) (*Lnk200)(); |
(void) (*Lnk200)(); |
1904 |
vs_top=sup; |
vs_top=sup; |
1905 |
{object V275 = vs_base[0]; |
{object V284 = vs_base[0]; |
1906 |
VMR51(V275)} |
VMR51(V284)} |
1907 |
base[0]=base[0]; |
base[0]=base[0]; |
1908 |
return Cnil; |
return Cnil; |
1909 |
} |
} |
1910 |
/* local entry for function CHECKING-LIMIT-FN */ |
/* local entry for function CHECKING-LIMIT-FN */ |
1911 |
|
|
1912 |
static object LI53(V277) |
static object LI53(V286) |
1913 |
|
|
1914 |
object V277; |
object V286; |
1915 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
1916 |
goto TTL; |
goto TTL; |
1917 |
TTL:; |
TTL:; |
1918 |
{long V278 = (long)(*(LnkLI179))((V277)); |
{long V287 = (long)(*(LnkLI179))((V286)); |
1919 |
VMR52((object)V278)} |
VMR52((object)V287)} |
1920 |
} |
} |
1921 |
/* function definition for MAKE-CACHING-DFUN */ |
/* function definition for MAKE-CACHING-DFUN */ |
1922 |
|
|
1924 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1925 |
register object *sup=base+VM53; VC53 |
register object *sup=base+VM53; VC53 |
1926 |
vs_check; |
vs_check; |
1927 |
{object V279; |
{object V288; |
1928 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
1929 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
1930 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
1931 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1932 |
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
1933 |
V279=(base[1]); |
V288=(base[1]); |
1934 |
vs_top=sup; |
vs_top=sup; |
1935 |
goto T466; |
goto T466; |
1936 |
goto T465; |
goto T465; |
1937 |
T465:; |
T465:; |
1938 |
V279= Cnil; |
V288= Cnil; |
1939 |
goto T466; |
goto T466; |
1940 |
T466:; |
T466:; |
1941 |
if(((V279))!=Cnil){ |
if(((V288))!=Cnil){ |
1942 |
goto T468;} |
goto T468;} |
1943 |
if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){ |
1944 |
goto T471;} |
goto T471;} |
1956 |
return; |
return; |
1957 |
goto T468; |
goto T468; |
1958 |
T468:; |
T468:; |
1959 |
{object V280; |
{object V289; |
1960 |
object V281; |
object V290; |
1961 |
object V282; |
object V291; |
1962 |
object V283; |
object V292; |
1963 |
base[2]= (base[0]->c.c_car); |
base[2]= (base[0]->c.c_car); |
1964 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1965 |
(void) (*Lnk187)(); |
(void) (*Lnk187)(); |
1966 |
if(vs_base>=vs_top){vs_top=sup;goto T480;} |
if(vs_base>=vs_top){vs_top=sup;goto T480;} |
1967 |
V280= vs_base[0]; |
V289= vs_base[0]; |
1968 |
vs_base++; |
vs_base++; |
1969 |
if(vs_base>=vs_top){vs_top=sup;goto T481;} |
if(vs_base>=vs_top){vs_top=sup;goto T481;} |
1970 |
V281= vs_base[0]; |
V290= vs_base[0]; |
1971 |
vs_base++; |
vs_base++; |
1972 |
if(vs_base>=vs_top){vs_top=sup;goto T482;} |
if(vs_base>=vs_top){vs_top=sup;goto T482;} |
1973 |
V282= vs_base[0]; |
V291= vs_base[0]; |
1974 |
vs_base++; |
vs_base++; |
1975 |
if(vs_base>=vs_top){vs_top=sup;goto T483;} |
if(vs_base>=vs_top){vs_top=sup;goto T483;} |
1976 |
V283= vs_base[0]; |
V292= vs_base[0]; |
1977 |
vs_top=sup; |
vs_top=sup; |
1978 |
goto T484; |
goto T484; |
1979 |
goto T480; |
goto T480; |
1980 |
T480:; |
T480:; |
1981 |
V280= Cnil; |
V289= Cnil; |
1982 |
goto T481; |
goto T481; |
1983 |
T481:; |
T481:; |
1984 |
V281= Cnil; |
V290= Cnil; |
1985 |
goto T482; |
goto T482; |
1986 |
T482:; |
T482:; |
1987 |
V282= Cnil; |
V291= Cnil; |
1988 |
goto T483; |
goto T483; |
1989 |
T483:; |
T483:; |
1990 |
V283= Cnil; |
V292= Cnil; |
1991 |
goto T484; |
goto T484; |
1992 |
T484:; |
T484:; |
1993 |
{object V284; |
{object V293; |
1994 |
if((V279)!=Cnil){ |
if((V288)!=Cnil){ |
1995 |
V284= (V279); |
V293= (V288); |
1996 |
goto T485;} |
goto T485;} |
1997 |
V285= (VV[203]->s.s_gfdef); |
V294 = (V292); |
1998 |
V284= (*(LnkLI175))((V283),Ct,V285,2); |
V295= (VV[203]->s.s_gfdef); |
1999 |
|
V293= (*(LnkLI175))(V294,Ct,V295,2); |
2000 |
goto T485; |
goto T485; |
2001 |
T485:; |
T485:; |
2002 |
base[3]= (*(LnkLI204))((V284)); |
base[3]= (*(LnkLI204))((V293)); |
2003 |
base[3]=MMcons(base[3],base[0]); |
base[3]=MMcons(base[3],base[0]); |
2004 |
base[6]= VV[68]; |
base[6]= VV[68]; |
2005 |
base[7]= (V282); |
base[7]= (V291); |
2006 |
base[8]= (V281); |
base[8]= (V290); |
2007 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
2008 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
2009 |
vs_top=sup; |
vs_top=sup; |
2010 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
2011 |
base[6]= (V284); |
base[6]= (V293); |
2012 |
base[7]= |
base[7]= |
2013 |
make_cclosure_new(LC147,Cnil,base[3],Cdata); |
make_cclosure_new(LC147,Cnil,base[3],Cdata); |
2014 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2018 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2019 |
vs_top=sup; |
vs_top=sup; |
2020 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2021 |
base[5]= (V284); |
base[5]= (V293); |
2022 |
base[6]= (base[3]->c.c_car); |
base[6]= (base[3]->c.c_car); |
2023 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2024 |
return;}} |
return;}} |
2030 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2031 |
register object *sup=base+VM54; VC54 |
register object *sup=base+VM54; VC54 |
2032 |
vs_check; |
vs_check; |
2033 |
{object V286; |
{object V296; |
2034 |
object V287; |
object V297; |
2035 |
object V288; |
object V298; |
2036 |
check_arg(3); |
check_arg(3); |
2037 |
V286=(base[0]); |
V296=(base[0]); |
2038 |
V287=(base[1]); |
V297=(base[1]); |
2039 |
V288=(base[2]); |
V298=(base[2]); |
2040 |
vs_top=sup; |
vs_top=sup; |
2041 |
goto TTL; |
goto TTL; |
2042 |
TTL:; |
TTL:; |
2043 |
{object V289; |
{object V299; |
2044 |
V290= (VV[203]->s.s_gfdef); |
V300 = (V296); |
2045 |
V289= (*(LnkLI192))((V286),Ct,V290,(V287),(V288)); |
V301= (VV[203]->s.s_gfdef); |
2046 |
base[3]= (V286); |
V302 = (V297); |
2047 |
base[4]= (V289); |
V303 = (V298); |
2048 |
|
V299= (*(LnkLI192))(V300,Ct,V301,V302,V303); |
2049 |
|
base[3]= (V296); |
2050 |
|
base[4]= (V299); |
2051 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2052 |
(void) (*Lnk184)(); |
(void) (*Lnk184)(); |
2053 |
return;} |
return;} |
2055 |
} |
} |
2056 |
/* local entry for function CACHING-LIMIT-FN */ |
/* local entry for function CACHING-LIMIT-FN */ |
2057 |
|
|
2058 |
static object LI56(V292) |
static object LI56(V305) |
2059 |
|
|
2060 |
object V292; |
object V305; |
2061 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
2062 |
goto TTL; |
goto TTL; |
2063 |
TTL:; |
TTL:; |
2064 |
{long V293 = (long)(*(LnkLI179))((V292)); |
{long V306 = (long)(*(LnkLI179))((V305)); |
2065 |
VMR55((object)V293)} |
VMR55((object)V306)} |
2066 |
} |
} |
2067 |
/* function definition for INSURE-DFUN */ |
/* function definition for INSURE-DFUN */ |
2068 |
|
|
2070 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2071 |
register object *sup=base+VM56; VC56 |
register object *sup=base+VM56; VC56 |
2072 |
vs_check; |
vs_check; |
2073 |
{object V294; |
{object V307; |
2074 |
object V295; |
object V308; |
2075 |
check_arg(2); |
check_arg(2); |
2076 |
V294=(base[0]); |
V307=(base[0]); |
2077 |
V295=(base[1]); |
V308=(base[1]); |
2078 |
vs_top=sup; |
vs_top=sup; |
2079 |
goto TTL; |
goto TTL; |
2080 |
TTL:; |
TTL:; |
2081 |
{object V296; |
{object V309; |
2082 |
object V297; |
object V310; |
2083 |
register object V298; |
register object V311; |
2084 |
object V299; |
object V312; |
2085 |
base[2]= (V294); |
base[2]= (V307); |
2086 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2087 |
(void) (*Lnk187)(); |
(void) (*Lnk187)(); |
2088 |
if(vs_base>=vs_top){vs_top=sup;goto T503;} |
if(vs_base>=vs_top){vs_top=sup;goto T503;} |
2089 |
V296= vs_base[0]; |
V309= vs_base[0]; |
2090 |
vs_base++; |
vs_base++; |
2091 |
if(vs_base>=vs_top){vs_top=sup;goto T504;} |
if(vs_base>=vs_top){vs_top=sup;goto T504;} |
2092 |
V297= vs_base[0]; |
V310= vs_base[0]; |
2093 |
vs_base++; |
vs_base++; |
2094 |
if(vs_base>=vs_top){vs_top=sup;goto T505;} |
if(vs_base>=vs_top){vs_top=sup;goto T505;} |
2095 |
V298= vs_base[0]; |
V311= vs_base[0]; |
2096 |
vs_base++; |
vs_base++; |
2097 |
if(vs_base>=vs_top){vs_top=sup;goto T506;} |
if(vs_base>=vs_top){vs_top=sup;goto T506;} |
2098 |
V299= vs_base[0]; |
V312= vs_base[0]; |
2099 |
vs_top=sup; |
vs_top=sup; |
2100 |
goto T507; |
goto T507; |
2101 |
goto T503; |
goto T503; |
2102 |
T503:; |
T503:; |
2103 |
V296= Cnil; |
V309= Cnil; |
2104 |
goto T504; |
goto T504; |
2105 |
T504:; |
T504:; |
2106 |
V297= Cnil; |
V310= Cnil; |
2107 |
goto T505; |
goto T505; |
2108 |
T505:; |
T505:; |
2109 |
V298= Cnil; |
V311= Cnil; |
2110 |
goto T506; |
goto T506; |
2111 |
T506:; |
T506:; |
2112 |
V299= Cnil; |
V312= Cnil; |
2113 |
goto T507; |
goto T507; |
2114 |
T507:; |
T507:; |
2115 |
if(((V298))==Cnil){ |
if(((V311))==Cnil){ |
2116 |
goto T508;} |
goto T508;} |
2117 |
if((CMPcar((V298)))==Cnil){ |
if((CMPcar((V311)))==Cnil){ |
2118 |
goto T509;} |
goto T509;} |
2119 |
goto T508; |
goto T508; |
2120 |
T508:; |
T508:; |
2121 |
if(((VFUN_NARGS=1,(*(LnkLI201))((V294))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI201))((V307))))==Cnil){ |
2122 |
goto T514;} |
goto T514;} |
2123 |
base[2]= VV[69]; |
base[2]= VV[69]; |
2124 |
base[3]= (V298); |
base[3]= (V311); |
2125 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2126 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
2127 |
return; |
return; |
2128 |
goto T514; |
goto T514; |
2129 |
T514:; |
T514:; |
2130 |
if(((V295))==Cnil){ |
if(((V308))==Cnil){ |
2131 |
goto T519;} |
goto T519;} |
2132 |
base[2]= VV[68]; |
base[2]= VV[68]; |
2133 |
base[3]= (V298); |
base[3]= (V311); |
2134 |
base[4]= (V297); |
base[4]= (V310); |
2135 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2136 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
2137 |
return; |
return; |
2138 |
goto T519; |
goto T519; |
2139 |
T519:; |
T519:; |
2140 |
{register object V300; |
{register object V313; |
2141 |
register object V301; |
register object V314; |
2142 |
V300= (V298); |
V313= (V311); |
2143 |
V301= CMPcar((V300)); |
V314= CMPcar((V313)); |
2144 |
goto T530; |
goto T530; |
2145 |
T530:; |
T530:; |
2146 |
if(!(((V300))==Cnil)){ |
if(!(((V313))==Cnil)){ |
2147 |
goto T531;} |
goto T531;} |
2148 |
goto T526; |
goto T526; |
2149 |
goto T531; |
goto T531; |
2150 |
T531:; |
T531:; |
2151 |
if(((V301))==(Ct)){ |
if(((V314))==(Ct)){ |
2152 |
goto T535;} |
goto T535;} |
2153 |
goto T525; |
goto T525; |
2154 |
goto T535; |
goto T535; |
2155 |
T535:; |
T535:; |
2156 |
V300= CMPcdr((V300)); |
V313= CMPcdr((V313)); |
2157 |
V301= CMPcar((V300)); |
V314= CMPcar((V313)); |
2158 |
goto T530;} |
goto T530;} |
2159 |
goto T526; |
goto T526; |
2160 |
T526:; |
T526:; |
2161 |
base[2]= VV[60]; |
base[2]= VV[60]; |
2162 |
base[3]= (V298); |
base[3]= (V311); |
2163 |
base[4]= (V297); |
base[4]= (V310); |
2164 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2165 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
2166 |
return; |
return; |
2167 |
goto T525; |
goto T525; |
2168 |
T525:; |
T525:; |
2169 |
base[2]= VV[61]; |
base[2]= VV[61]; |
2170 |
base[3]= (V298); |
base[3]= (V311); |
2171 |
base[4]= (V297); |
base[4]= (V310); |
2172 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2173 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
2174 |
return; |
return; |
2181 |
} |
} |
2182 |
/* local entry for function USE-CONSTANT-VALUE-DFUN-P */ |
/* local entry for function USE-CONSTANT-VALUE-DFUN-P */ |
2183 |
|
|
2184 |
static object LI58(object V302,object first,...) |
static object LI58(object V315,object first,...) |
2185 |
{ |
{ |
2186 |
va_list ap; |
va_list ap; |
2187 |
int narg = VFUN_NARGS; VMB57 VMS57 VMV57 |
int narg = VFUN_NARGS; VMB57 VMS57 VMV57 |
2188 |
{register object V303; |
{register object V316; |
2189 |
va_start(ap,first); |
va_start(ap,first); |
2190 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2191 |
V303= V302; |
V316= V315; |
2192 |
narg = narg - 1; |
narg = narg - 1; |
2193 |
if (narg <= 0) goto T549; |
if (narg <= 0) goto T549; |
2194 |
else { |
else { |
2200 |
Vcs[1]=MMcons(Vcs[1],Cnil); |
Vcs[1]=MMcons(Vcs[1],Cnil); |
2201 |
goto T550; |
goto T550; |
2202 |
T550:; |
T550:; |
2203 |
{object V304; |
{object V317; |
2204 |
object V305; |
object V318; |
2205 |
object V306; |
object V319; |
2206 |
object V307; |
object V320; |
2207 |
base[0]= (V303); |
base[0]= (V316); |
2208 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2209 |
(void) (*Lnk187)(); |
(void) (*Lnk187)(); |
2210 |
if(vs_base>=vs_top){vs_top=sup;goto T554;} |
if(vs_base>=vs_top){vs_top=sup;goto T554;} |
2211 |
V304= vs_base[0]; |
V317= vs_base[0]; |
2212 |
vs_base++; |
vs_base++; |
2213 |
if(vs_base>=vs_top){vs_top=sup;goto T555;} |
if(vs_base>=vs_top){vs_top=sup;goto T555;} |
2214 |
V305= vs_base[0]; |
V318= vs_base[0]; |
2215 |
vs_base++; |
vs_base++; |
2216 |
if(vs_base>=vs_top){vs_top=sup;goto T556;} |
if(vs_base>=vs_top){vs_top=sup;goto T556;} |
2217 |
V306= vs_base[0]; |
V319= vs_base[0]; |
2218 |
vs_base++; |
vs_base++; |
2219 |
if(vs_base>=vs_top){vs_top=sup;goto T557;} |
if(vs_base>=vs_top){vs_top=sup;goto T557;} |
2220 |
V307= vs_base[0]; |
V320= vs_base[0]; |
2221 |
vs_top=sup; |
vs_top=sup; |
2222 |
goto T558; |
goto T558; |
2223 |
goto T554; |
goto T554; |
2224 |
T554:; |
T554:; |
2225 |
V304= Cnil; |
V317= Cnil; |
2226 |
goto T555; |
goto T555; |
2227 |
T555:; |
T555:; |
2228 |
V305= Cnil; |
V318= Cnil; |
2229 |
goto T556; |
goto T556; |
2230 |
T556:; |
T556:; |
2231 |
V306= Cnil; |
V319= Cnil; |
2232 |
goto T557; |
goto T557; |
2233 |
T557:; |
T557:; |
2234 |
V307= Cnil; |
V320= Cnil; |
2235 |
goto T558; |
goto T558; |
2236 |
T558:; |
T558:; |
2237 |
{object V308; |
{object V321; |
2238 |
base[0]= (*(LnkLI196))((V303)); |
base[0]= (*(LnkLI196))((V316)); |
2239 |
base[0]=MMcons(base[0],Vcs[1]); |
base[0]=MMcons(base[0],Vcs[1]); |
2240 |
if(((base[0]->c.c_car))==Cnil){ |
if(((base[0]->c.c_car))==Cnil){ |
2241 |
goto T562;} |
goto T562;} |
2242 |
if(type_of(V303)==t_structure){ |
if(type_of(V316)==t_structure){ |
2243 |
goto T568;} |
goto T568;} |
2244 |
goto T566; |
goto T566; |
2245 |
goto T568; |
goto T568; |
2246 |
T568:; |
T568:; |
2247 |
if(!(((V303)->str.str_def)==(VV[70]))){ |
if(!(((V316)->str.str_def)==(VV[70]))){ |
2248 |
goto T566;} |
goto T566;} |
2249 |
V309= STREF(object,(V303),4); |
V322= STREF(object,(V316),4); |
2250 |
goto T564; |
goto T564; |
2251 |
goto T566; |
goto T566; |
2252 |
T566:;{object V311; |
T566:;{object V324; |
2253 |
V311= (VV[65]->s.s_dbind); |
V324= (VV[65]->s.s_dbind); |
2254 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
2255 |
base[4]= (V303); |
base[4]= (V316); |
2256 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2257 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
2258 |
vs_top=sup; |
vs_top=sup; |
2259 |
V312= vs_base[0]; |
V325= vs_base[0]; |
2260 |
if(!((V311)==(CMPcar(V312)))){ |
if(!((V324)==(CMPcar(V325)))){ |
2261 |
goto T571;}} |
goto T571;}} |
2262 |
V309= CMPcar(((V303))->cc.cc_turbo[12]); |
V322= CMPcar(((V316))->cc.cc_turbo[12]); |
2263 |
goto T564; |
goto T564; |
2264 |
goto T571; |
goto T571; |
2265 |
T571:; |
T571:; |
2267 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2268 |
Lerror(); |
Lerror(); |
2269 |
vs_top=sup; |
vs_top=sup; |
2270 |
V309= vs_base[0]; |
V322= vs_base[0]; |
2271 |
goto T564; |
goto T564; |
2272 |
T564:; |
T564:; |
2273 |
V308= (V309)->v.v_self[fix((VV[67]->s.s_dbind))]; |
V326 = (VV[67]->s.s_dbind); |
2274 |
|
V321= (V322)->v.v_self[fix(V326)]; |
2275 |
goto T560; |
goto T560; |
2276 |
goto T562; |
goto T562; |
2277 |
T562:; |
T562:; |
2278 |
base[3]= (V303); |
base[3]= (V316); |
2279 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2280 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk199)(Lclptr199); |
2281 |
vs_top=sup; |
vs_top=sup; |
2282 |
V308= vs_base[0]; |
V321= vs_base[0]; |
2283 |
goto T560; |
goto T560; |
2284 |
T560:; |
T560:; |
2285 |
base[2]=MMcons(VV[71],base[0]); |
base[2]=MMcons(VV[71],base[0]); |
2286 |
if(((V305))==Cnil){ |
if(((V318))==Cnil){ |
2287 |
goto T578;} |
goto T578;} |
2288 |
{object V313 = Cnil; |
{object V327 = Cnil; |
2289 |
VMR57(V313)} |
VMR57(V327)} |
2290 |
goto T578; |
goto T578; |
2291 |
T578:; |
T578:; |
2292 |
if(!(((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil)){ |
if(!(((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil)){ |
2294 |
goto T580; |
goto T580; |
2295 |
goto T582; |
goto T582; |
2296 |
T582:; |
T582:; |
2297 |
if(((*(LnkLI205))((V303)))!=Cnil){ |
if(((*(LnkLI205))((V316)))!=Cnil){ |
2298 |
goto T580;} |
goto T580;} |
2299 |
{object V314 = Cnil; |
{object V328 = Cnil; |
2300 |
VMR57(V314)} |
VMR57(V328)} |
2301 |
goto T580; |
goto T580; |
2302 |
T580:; |
T580:; |
2303 |
base[3]= |
base[3]= |
2304 |
make_cclosure_new(LC148,Cnil,base[2],Cdata); |
make_cclosure_new(LC148,Cnil,base[2],Cdata); |
2305 |
base[4]= (V308); |
base[4]= (V321); |
2306 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2307 |
(void) (*Lnk206)(); |
(void) (*Lnk206)(); |
2308 |
vs_top=sup; |
vs_top=sup; |
2309 |
{object V315 = vs_base[0]; |
{object V329 = vs_base[0]; |
2310 |
VMR57(V315)}}} |
VMR57(V329)}}} |
2311 |
va_end(ap); |
va_end(ap); |
2312 |
base[0]=base[0]; |
base[0]=base[0]; |
2313 |
return Cnil;} |
return Cnil;} |
2318 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2319 |
register object *sup=base+VM58; VC58 |
register object *sup=base+VM58; VC58 |
2320 |
vs_check; |
vs_check; |
2321 |
{object V316; |
{object V330; |
2322 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
2323 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
2324 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
2325 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
2326 |
if(vs_base>=vs_top){vs_top=sup;goto T586;} |
if(vs_base>=vs_top){vs_top=sup;goto T586;} |
2327 |
V316=(base[1]); |
V330=(base[1]); |
2328 |
vs_top=sup; |
vs_top=sup; |
2329 |
goto T587; |
goto T587; |
2330 |
goto T586; |
goto T586; |
2331 |
T586:; |
T586:; |
2332 |
V316= Cnil; |
V330= Cnil; |
2333 |
goto T587; |
goto T587; |
2334 |
T587:; |
T587:; |
2335 |
{object V317; |
{object V331; |
2336 |
object V318; |
object V332; |
2337 |
object V319; |
object V333; |
2338 |
object V320; |
object V334; |
2339 |
base[2]= (base[0]->c.c_car); |
base[2]= (base[0]->c.c_car); |
2340 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2341 |
(void) (*Lnk187)(); |
(void) (*Lnk187)(); |
2342 |
if(vs_base>=vs_top){vs_top=sup;goto T591;} |
if(vs_base>=vs_top){vs_top=sup;goto T591;} |
2343 |
V317= vs_base[0]; |
V331= vs_base[0]; |
2344 |
vs_base++; |
vs_base++; |
2345 |
if(vs_base>=vs_top){vs_top=sup;goto T592;} |
if(vs_base>=vs_top){vs_top=sup;goto T592;} |
2346 |
V318= vs_base[0]; |
V332= vs_base[0]; |
2347 |
vs_base++; |
vs_base++; |
2348 |
if(vs_base>=vs_top){vs_top=sup;goto T593;} |
if(vs_base>=vs_top){vs_top=sup;goto T593;} |
2349 |
V319= vs_base[0]; |
V333= vs_base[0]; |
2350 |
vs_base++; |
vs_base++; |
2351 |
if(vs_base>=vs_top){vs_top=sup;goto T594;} |
if(vs_base>=vs_top){vs_top=sup;goto T594;} |
2352 |
V320= vs_base[0]; |
V334= vs_base[0]; |
2353 |
vs_top=sup; |
vs_top=sup; |
2354 |
goto T595; |
goto T595; |
2355 |
goto T591; |
goto T591; |
2356 |
T591:; |
T591:; |
2357 |
V317= Cnil; |
V331= Cnil; |
2358 |
goto T592; |
goto T592; |
2359 |
T592:; |
T592:; |
2360 |
V318= Cnil; |
V332= Cnil; |
2361 |
goto T593; |
goto T593; |
2362 |
T593:; |
T593:; |
2363 |
V319= Cnil; |
V333= Cnil; |
2364 |
goto T594; |
goto T594; |
2365 |
T594:; |
T594:; |
2366 |
V320= Cnil; |
V334= Cnil; |
2367 |
goto T595; |
goto T595; |
2368 |
T595:; |
T595:; |
2369 |
{object V321; |
{object V335; |
2370 |
if((V316)!=Cnil){ |
if((V330)!=Cnil){ |
2371 |
V321= (V316); |
V335= (V330); |
2372 |
goto T596;} |
goto T596;} |
2373 |
V322= (VV[203]->s.s_gfdef); |
V336 = (V334); |
2374 |
V321= (*(LnkLI175))((V320),Ct,V322,2); |
V337= (VV[203]->s.s_gfdef); |
2375 |
|
V335= (*(LnkLI175))(V336,Ct,V337,2); |
2376 |
goto T596; |
goto T596; |
2377 |
T596:; |
T596:; |
2378 |
base[3]= (*(LnkLI207))((V321)); |
base[3]= (*(LnkLI207))((V335)); |
2379 |
base[3]=MMcons(base[3],base[0]); |
base[3]=MMcons(base[3],base[0]); |
2380 |
base[6]= VV[69]; |
base[6]= VV[69]; |
2381 |
base[7]= (V319); |
base[7]= (V333); |
2382 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2383 |
(void) (*Lnk172)(); |
(void) (*Lnk172)(); |
2384 |
vs_top=sup; |
vs_top=sup; |
2385 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
2386 |
base[6]= (V321); |
base[6]= (V335); |
2387 |
base[7]= |
base[7]= |
2388 |
make_cclosure_new(LC149,Cnil,base[3],Cdata); |
make_cclosure_new(LC149,Cnil,base[3],Cdata); |
2389 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2393 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2394 |
vs_top=sup; |
vs_top=sup; |
2395 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2396 |
base[5]= (V321); |
base[5]= (V335); |
2397 |
base[6]= (base[3]->c.c_car); |
base[6]= (base[3]->c.c_car); |
2398 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2399 |
return;}} |
return;}} |
2405 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2406 |
register object *sup=base+VM59; VC59 |
register object *sup=base+VM59; VC59 |
2407 |
vs_check; |
vs_check; |
2408 |
{object V323; |
{object V338; |
2409 |
object V324; |
object V339; |
2410 |
object V325; |
object V340; |
2411 |
check_arg(3); |
check_arg(3); |
2412 |
V323=(base[0]); |
V338=(base[0]); |
2413 |
V324=(base[1]); |
V339=(base[1]); |
2414 |
V325=(base[2]); |
V340=(base[2]); |
2415 |
vs_top=sup; |
vs_top=sup; |
2416 |
goto TTL; |
goto TTL; |
2417 |
TTL:; |
TTL:; |
2418 |
{object V326; |
{object V341; |
2419 |
V327= (VV[203]->s.s_gfdef); |
V342 = (V338); |
2420 |
V326= (*(LnkLI192))((V323),VV[74],V327,(V324),(V325)); |
V343= (VV[203]->s.s_gfdef); |
2421 |
base[3]= (V323); |
V344 = (V339); |
2422 |
base[4]= (V326); |
V345 = (V340); |
2423 |
|
V341= (*(LnkLI192))(V342,VV[74],V343,V344,V345); |
2424 |
|
base[3]= (V338); |
2425 |
|
base[4]= (V341); |
2426 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2427 |
(void) (*Lnk202)(); |
(void) (*Lnk202)(); |
2428 |
return;} |
return;} |
2430 |
} |
} |
2431 |
/* local entry for function USE-DISPATCH-DFUN-P */ |
/* local entry for function USE-DISPATCH-DFUN-P */ |
2432 |
|
|
2433 |
static object LI61(object V328,object first,...) |
static object LI61(object V346,object first,...) |
2434 |
{ |
{ |
2435 |
va_list ap; |
va_list ap; |
2436 |
int narg = VFUN_NARGS; VMB60 VMS60 VMV60 |
int narg = VFUN_NARGS; VMB60 VMS60 VMV60 |
2437 |
{object V329; |
{object V347; |
2438 |
object V330; |
object V348; |
2439 |
va_start(ap,first); |
va_start(ap,first); |
2440 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2441 |
V329= V328; |
V347= V346; |
2442 |
narg = narg - 1; |
narg = narg - 1; |
2443 |
if (narg <= 0) goto T611; |
if (narg <= 0) goto T611; |
2444 |
else { |
else { |
2445 |
V330= first;} |
V348= first;} |
2446 |
--narg; goto T612; |
--narg; goto T612; |
2447 |
goto T611; |
goto T611; |
2448 |
T611:; |
T611:; |
2449 |
V330= (*(LnkLI183))((V329)); |
V348= (*(LnkLI183))((V347)); |
2450 |
goto T612; |
goto T612; |
2451 |
T612:; |
T612:; |
2452 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
2453 |
goto T615;} |
goto T615;} |
2454 |
if(((V330))!=Cnil){ |
if(((V348))!=Cnil){ |
2455 |
goto T618;} |
goto T618;} |
2456 |
{object V331; |
{object V349; |
2457 |
V331= (*(LnkLI208))((V329)); |
V349= (*(LnkLI208))((V347)); |
2458 |
base[0]= (V329); |
base[0]= (V347); |
2459 |
base[1]= (V331); |
base[1]= (V349); |
2460 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2461 |
(void) (*Lnk209)(); |
(void) (*Lnk209)(); |
2462 |
vs_top=sup; |
vs_top=sup; |
2463 |
V332= vs_base[0]; |
V350= vs_base[0]; |
2464 |
{object V333 = (number_compare(V332,(V331))<0?Ct:Cnil); |
V351 = (V349); |
2465 |
VMR60(V333)}} |
{object V352 = (number_compare(V350,V351)<0?Ct:Cnil); |
2466 |
|
VMR60(V352)}} |
2467 |
goto T618; |
goto T618; |
2468 |
T618:; |
T618:; |
2469 |
{object V334 = Cnil; |
{object V353 = Cnil; |
2470 |
VMR60(V334)} |
VMR60(V353)} |
2471 |
goto T615; |
goto T615; |
2472 |
T615:; |
T615:; |
2473 |
{object V335 = Cnil; |
{object V354 = Cnil; |
2474 |
VMR60(V335)} |
VMR60(V354)} |
2475 |
va_end(ap); |
va_end(ap); |
2476 |
base[0]=base[0]; |
base[0]=base[0]; |
2477 |
return Cnil;} |
return Cnil;} |
2478 |
} |
} |
2479 |
/* local entry for function SHOW-DFUN-COSTS */ |
/* local entry for function SHOW-DFUN-COSTS */ |
2480 |
|
|
2481 |
static object LI62(V337) |
static object LI62(V356) |
2482 |
|
|
2483 |
register object V337; |
register object V356; |
2484 |
{ VMB61 VMS61 VMV61 |
{ VMB61 VMS61 VMV61 |
2485 |
goto TTL; |
goto TTL; |
2486 |
TTL:; |
TTL:; |
2487 |
if(type_of((V337))==t_symbol){ |
if(type_of((V356))==t_symbol){ |
2488 |
goto T625;} |
goto T625;} |
2489 |
if(!(type_of((V337))==t_cons)){ |
if(!(type_of((V356))==t_cons)){ |
2490 |
goto T624;} |
goto T624;} |
2491 |
goto T625; |
goto T625; |
2492 |
T625:; |
T625:; |
2493 |
V337= (*(LnkLI210))((V337)); |
V356= (*(LnkLI210))((V356)); |
2494 |
goto T624; |
goto T624; |
2495 |
T624:; |
T624:; |
2496 |
base[0]= Ct; |
base[0]= Ct; |
2497 |
base[1]= VV[75]; |
base[1]= VV[75]; |
2498 |
base[3]= (V337); |
base[3]= (V356); |
2499 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2500 |
(void) (*Lnk162)(Lclptr162); |
(void) (*Lnk162)(Lclptr162); |
2501 |
vs_top=sup; |
vs_top=sup; |
2502 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
2503 |
base[3]= (*(LnkLI208))((V337)); |
base[3]= (*(LnkLI208))((V356)); |
2504 |
base[5]= (V337); |
base[5]= (V356); |
2505 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2506 |
(void) (*Lnk209)(); |
(void) (*Lnk209)(); |
2507 |
vs_top=sup; |
vs_top=sup; |
2509 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
2510 |
Lformat(); |
Lformat(); |
2511 |
vs_top=sup; |
vs_top=sup; |
2512 |
{object V338 = vs_base[0]; |
{object V357 = vs_base[0]; |
2513 |
VMR61(V338)} |
VMR61(V357)} |
2514 |
base[0]=base[0]; |
base[0]=base[0]; |
2515 |
return Cnil; |
return Cnil; |
2516 |
} |
} |
2520 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
2521 |
register object *VOL sup=base+VM62; VC62 |
register object *VOL sup=base+VM62; VC62 |
2522 |
vs_check; |
vs_check; |
2523 |
{VOL object V339; |
{VOL object V358; |
2524 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
2525 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
2526 |
V339=(base[0]); |
V358=(base[0]); |
2527 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
2528 |
if(vs_base>=vs_top){vs_top=sup;goto T637;} |
if(vs_base>=vs_top){vs_top=sup;goto T637;} |
2529 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
2542 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
2543 |
return;} |
return;} |
2544 |
else{ |
else{ |
2545 |
base[3]= (V339); |
base[3]= (V358); |
2546 |
base[5]= (V339); |
base[5]= (V358); |
2547 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2548 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk199)(Lclptr199); |
2549 |
vs_top=sup; |
vs_top=sup; |
2563 |
} |
} |
2564 |
/* local entry for function CACHING-DFUN-COST */ |
/* local entry for function CACHING-DFUN-COST */ |
2565 |
|
|
2566 |
static object LI64(V341) |
static object LI64(V360) |
2567 |
|
|
2568 |
object V341; |
object V360; |
2569 |
{ VMB63 VMS63 VMV63 |
{ VMB63 VMS63 VMV63 |
2570 |
goto TTL; |
goto TTL; |
2571 |
TTL:; |
TTL:; |
2572 |
{object V342; |
{object V361; |
2573 |
object V343; |
object V362; |
2574 |
base[2]= (V341); |
base[2]= (V360); |
2575 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2576 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk161)(Lclptr161); |
2577 |
vs_top=sup; |
vs_top=sup; |
2578 |
V342= vs_base[0]; |
V361= vs_base[0]; |
2579 |
V343= CMPmake_fixnum((long)length(STREF(object,(V342),8))); |
V362= CMPmake_fixnum((long)length(STREF(object,(V361),8))); |
2580 |
base[2]= (VV[81]->s.s_dbind); |
base[2]= (VV[81]->s.s_dbind); |
2581 |
base[3]= number_times((VV[82]->s.s_dbind),(V343)); |
base[3]= number_times((VV[82]->s.s_dbind),(V362)); |
2582 |
base[5]= (V341); |
base[5]= (V360); |
2583 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2584 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk199)(Lclptr199); |
2585 |
vs_top=sup; |
vs_top=sup; |
2586 |
V344= vs_base[0]; |
V363= vs_base[0]; |
2587 |
if(((*(LnkLI213))(V344))==Cnil){ |
if(((*(LnkLI213))(V363))==Cnil){ |
2588 |
goto T654;} |
goto T654;} |
2589 |
base[4]= (VV[83]->s.s_dbind); |
base[4]= (VV[83]->s.s_dbind); |
2590 |
goto T652; |
goto T652; |
2596 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2597 |
Lplus(); |
Lplus(); |
2598 |
vs_top=sup; |
vs_top=sup; |
2599 |
{object V345 = vs_base[0]; |
{object V364 = vs_base[0]; |
2600 |
VMR63(V345)}} |
VMR63(V364)}} |
2601 |
base[0]=base[0]; |
base[0]=base[0]; |
2602 |
return Cnil; |
return Cnil; |
2603 |
} |
} |
2607 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2608 |
register object *sup=base+VM64; VC64 |
register object *sup=base+VM64; VC64 |
2609 |
vs_check; |
vs_check; |
2610 |
{object V346; |
{object V365; |
2611 |
check_arg(1); |
check_arg(1); |
2612 |
V346=(base[0]); |
V365=(base[0]); |
2613 |
vs_top=sup; |
vs_top=sup; |
2614 |
goto TTL; |
goto TTL; |
2615 |
TTL:; |
TTL:; |
2616 |
base[2]= (V346); |
base[2]= (V365); |
2617 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2618 |
(void) (*Lnk214)(); |
(void) (*Lnk214)(); |
2619 |
vs_top=sup; |
vs_top=sup; |
2630 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2631 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM65; VC65 |
2632 |
vs_check; |
vs_check; |
2633 |
{object V347; |
{object V366; |
2634 |
check_arg(1); |
check_arg(1); |
2635 |
V347=(base[0]); |
V366=(base[0]); |
2636 |
vs_top=sup; |
vs_top=sup; |
2637 |
goto TTL; |
goto TTL; |
2638 |
TTL:; |
TTL:; |
2639 |
{object V348; |
{object V367; |
2640 |
base[1]= (V347); |
base[1]= (V366); |
2641 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2642 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk199)(Lclptr199); |
2643 |
vs_top=sup; |
vs_top=sup; |
2644 |
V348= vs_base[0]; |
V367= vs_base[0]; |
2645 |
base[1]= (VFUN_NARGS=8,(*(LnkLI216))((V347),(V348),Cnil,Cnil,Cnil,Cnil,Cnil,Ct)); |
base[1]= (VFUN_NARGS=8,(*(LnkLI216))((V366),(V367),Cnil,Cnil,Cnil,Cnil,Cnil,Ct)); |
2646 |
base[2]= Cnil; |
base[2]= Cnil; |
2647 |
base[3]= Cnil; |
base[3]= Cnil; |
2648 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2659 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2660 |
register object *sup=base+VM66; VC66 |
register object *sup=base+VM66; VC66 |
2661 |
vs_check; |
vs_check; |
2662 |
{object V349; |
{object V368; |
2663 |
check_arg(1); |
check_arg(1); |
2664 |
V349=(base[0]); |
V368=(base[0]); |
2665 |
vs_top=sup; |
vs_top=sup; |
2666 |
goto TTL; |
goto TTL; |
2667 |
TTL:; |
TTL:; |
2668 |
base[1]= (V349); |
base[1]= (V368); |
2669 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2670 |
(void) (*Lnk186)(); |
(void) (*Lnk186)(); |
2671 |
return; |
return; |
2678 |
{ VMB67 VMS67 VMV67 |
{ VMB67 VMS67 VMV67 |
2679 |
goto TTL; |
goto TTL; |
2680 |
TTL:; |
TTL:; |
2681 |
{register object V350; |
{register object V369; |
2682 |
register object V351; |
register object V370; |
2683 |
V350= (*(LnkLI160))(VV[84]); |
V369= (*(LnkLI160))(VV[84]); |
2684 |
V351= CMPcar((V350)); |
V370= CMPcar((V369)); |
2685 |
goto T671; |
goto T671; |
2686 |
T671:; |
T671:; |
2687 |
if(!(((V350))==Cnil)){ |
if(!(((V369))==Cnil)){ |
2688 |
goto T672;} |
goto T672;} |
2689 |
{object V352 = Cnil; |
{object V371 = Cnil; |
2690 |
VMR67(V352)} |
VMR67(V371)} |
2691 |
goto T672; |
goto T672; |
2692 |
T672:; |
T672:; |
2693 |
{register object V353; |
{register object V372; |
2694 |
register object V354; |
register object V373; |
2695 |
register object V355; |
register object V374; |
2696 |
base[2]= (V351); |
base[2]= (V370); |
2697 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2698 |
(void) (*Lnk186)(); |
(void) (*Lnk186)(); |
2699 |
if(vs_base>=vs_top){vs_top=sup;goto T679;} |
if(vs_base>=vs_top){vs_top=sup;goto T679;} |
2700 |
V353= vs_base[0]; |
V372= vs_base[0]; |
2701 |
vs_base++; |
vs_base++; |
2702 |
if(vs_base>=vs_top){vs_top=sup;goto T680;} |
if(vs_base>=vs_top){vs_top=sup;goto T680;} |
2703 |
V354= vs_base[0]; |
V373= vs_base[0]; |
2704 |
vs_base++; |
vs_base++; |
2705 |
if(vs_base>=vs_top){vs_top=sup;goto T681;} |
if(vs_base>=vs_top){vs_top=sup;goto T681;} |
2706 |
V355= vs_base[0]; |
V374= vs_base[0]; |
2707 |
vs_top=sup; |
vs_top=sup; |
2708 |
goto T682; |
goto T682; |
2709 |
goto T679; |
goto T679; |
2710 |
T679:; |
T679:; |
2711 |
V353= Cnil; |
V372= Cnil; |
2712 |
goto T680; |
goto T680; |
2713 |
T680:; |
T680:; |
2714 |
V354= Cnil; |
V373= Cnil; |
2715 |
goto T681; |
goto T681; |
2716 |
T681:; |
T681:; |
2717 |
V355= Cnil; |
V374= Cnil; |
2718 |
goto T682; |
goto T682; |
2719 |
T682:; |
T682:; |
2720 |
(void)((VFUN_NARGS=4,(*(LnkLI49))((V351),(V353),(V354),(V355))));} |
(void)((VFUN_NARGS=4,(*(LnkLI49))((V370),(V372),(V373),(V374))));} |
2721 |
V350= CMPcdr((V350)); |
V369= CMPcdr((V369)); |
2722 |
V351= CMPcar((V350)); |
V370= CMPcar((V369)); |
2723 |
goto T671;} |
goto T671;} |
2724 |
base[0]=base[0]; |
base[0]=base[0]; |
2725 |
return Cnil; |
return Cnil; |
2726 |
} |
} |
2727 |
/* local entry for function FILL-DFUN-CACHE */ |
/* local entry for function FILL-DFUN-CACHE */ |
2728 |
|
|
2729 |
static object LI69(object V359,object V358,object V357,object V356,object first,...) |
static object LI69(object V378,object V377,object V376,object V375,object first,...) |
2730 |
{ |
{ |
2731 |
va_list ap; |
va_list ap; |
2732 |
int narg = VFUN_NARGS; VMB68 VMS68 VMV68 |
int narg = VFUN_NARGS; VMB68 VMS68 VMV68 |
2733 |
{object V360; |
{object V379; |
2734 |
object V361; |
object V380; |
2735 |
object V362; |
object V381; |
2736 |
object V363; |
object V382; |
2737 |
object V364; |
object V383; |
2738 |
va_start(ap,first); |
va_start(ap,first); |
2739 |
if(narg <4) too_few_arguments(); |
if(narg <4) too_few_arguments(); |
2740 |
V360= V359; |
V379= V378; |
2741 |
V361= V358; |
V380= V377; |
2742 |
V362= V357; |
V381= V376; |
2743 |
V363= V356; |
V382= V375; |
2744 |
narg = narg - 4; |
narg = narg - 4; |
2745 |
if (narg <= 0) goto T688; |
if (narg <= 0) goto T688; |
2746 |
else { |
else { |
2747 |
V364= first;} |
V383= first;} |
2748 |
--narg; goto T689; |
--narg; goto T689; |
2749 |
goto T688; |
goto T688; |
2750 |
T688:; |
T688:; |
2751 |
V364= Cnil; |
V383= Cnil; |
2752 |
goto T689; |
goto T689; |
2753 |
T689:; |
T689:; |
2754 |
if((V364)!=Cnil){ |
if((V383)!=Cnil){ |
2755 |
base[0]= (V364); |
base[0]= (V383); |
2756 |
goto T691;} |
goto T691;} |
2757 |
base[1]= (V360); |
base[1]= (V379); |
2758 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2759 |
Lhash_table_count(); |
Lhash_table_count(); |
2760 |
vs_top=sup; |
vs_top=sup; |
2761 |
V365= vs_base[0]; |
V384= vs_base[0]; |
2762 |
{long V366= fix(number_plus(V365,small_fixnum(3))); |
{long V385= fix(number_plus(V384,small_fixnum(3))); |
2763 |
base[0]= (*(LnkLI175))((V362),(V361),(V363),/* INLINE-ARGS */V366);} |
base[0]= (*(LnkLI175))((V381),(V380),(V382),/* INLINE-ARGS */V385);} |
2764 |
goto T691; |
goto T691; |
2765 |
T691:; |
T691:; |
2766 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
2767 |
base[1]= |
base[1]= |
2768 |
make_cclosure_new(LC152,Cnil,base[0],Cdata); |
make_cclosure_new(LC152,Cnil,base[0],Cdata); |
2769 |
base[2]= (V360); |
base[2]= (V379); |
2770 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2771 |
Lmaphash(); |
Lmaphash(); |
2772 |
vs_top=sup; |
vs_top=sup; |
2773 |
{object V367 = (base[0]->c.c_car); |
{object V386 = (base[0]->c.c_car); |
2774 |
VMR68(V367)} |
VMR68(V386)} |
2775 |
va_end(ap); |
va_end(ap); |
2776 |
base[0]=base[0]; |
base[0]=base[0]; |
2777 |
return Cnil;} |
return Cnil;} |
2778 |
} |
} |
2779 |
/* local entry for function MAKE-FINAL-ORDINARY-DFUN-INTERNAL */ |
/* local entry for function MAKE-FINAL-ORDINARY-DFUN-INTERNAL */ |
2780 |
|
|
2781 |
static object LI70(V373,V374,V375,V376,V377) |
static object LI70(V392,V393,V394,V395,V396) |
2782 |
|
|
2783 |
register object V373;register object V374;object V375;object V376;object V377; |
register object V392;register object V393;object V394;object V395;object V396; |
2784 |
{ VMB69 VMS69 VMV69 |
{ VMB69 VMS69 VMV69 |
2785 |
goto TTL; |
goto TTL; |
2786 |
TTL:; |
TTL:; |
2787 |
{object V378; |
{object V397; |
2788 |
object V379; |
object V398; |
2789 |
object V380; |
object V399; |
2790 |
object V381; |
object V400; |
2791 |
base[4]= (V373); |
base[4]= (V392); |
2792 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2793 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk161)(Lclptr161); |
2794 |
vs_top=sup; |
vs_top=sup; |
2795 |
V378= vs_base[0]; |
V397= vs_base[0]; |
2796 |
V379= (*(LnkLI217))((V378)); |
V398= (*(LnkLI217))((V397)); |
2797 |
if((V377)==Cnil){ |
if((V396)==Cnil){ |
2798 |
V380= Cnil; |
V399= Cnil; |
2799 |
goto T700;} |
goto T700;} |
2800 |
base[4]= (*(LnkLI218))((V373)); |
base[4]= (*(LnkLI218))((V392)); |
2801 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2802 |
Ltype_of(); |
Ltype_of(); |
2803 |
vs_top=sup; |
vs_top=sup; |
2804 |
V382= vs_base[0]; |
V401= vs_base[0]; |
2805 |
if(!(((V374))==(Ct))){ |
if(!(((V393))==(Ct))){ |
2806 |
goto T707;} |
goto T707;} |
2807 |
V383= VV[13]; |
V402= VV[13]; |
2808 |
goto T705; |
goto T705; |
2809 |
goto T707; |
goto T707; |
2810 |
T707:; |
T707:; |
2811 |
if(!(((V374))==(VV[74]))){ |
if(!(((V393))==(VV[74]))){ |
2812 |
goto T710;} |
goto T710;} |
2813 |
V383= VV[14]; |
V402= VV[14]; |
2814 |
goto T705; |
goto T705; |
2815 |
goto T710; |
goto T710; |
2816 |
T710:; |
T710:; |
2817 |
if(((V374))!=Cnil){ |
if(((V393))!=Cnil){ |
2818 |
goto T713;} |
goto T713;} |
2819 |
V383= VV[12]; |
V402= VV[12]; |
2820 |
goto T705; |
goto T705; |
2821 |
goto T713; |
goto T713; |
2822 |
T713:; |
T713:; |
2823 |
V383= Cnil; |
V402= Cnil; |
2824 |
goto T705; |
goto T705; |
2825 |
T705:; |
T705:; |
2826 |
if(equal(V382,V383)){ |
if(equal(V401,V402)){ |
2827 |
goto T701;} |
goto T701;} |
2828 |
V380= Cnil; |
V399= Cnil; |
2829 |
goto T700; |
goto T700; |
2830 |
goto T701; |
goto T701; |
2831 |
T701:; |
T701:; |
2832 |
V380= (V377); |
V399= (V396); |
2833 |
goto T700; |
goto T700; |
2834 |
T700:; |
T700:; |
2835 |
if(((V380))==Cnil){ |
if(((V399))==Cnil){ |
2836 |
goto T717;} |
goto T717;} |
2837 |
V384= (*(LnkLI220))((V373)); |
V403= (*(LnkLI220))((V392)); |
2838 |
V381= (*(LnkLI219))(/* INLINE-ARGS */V384); |
V400= (*(LnkLI219))(/* INLINE-ARGS */V403); |
2839 |
goto T715; |
goto T715; |
2840 |
goto T717; |
goto T717; |
2841 |
T717:; |
T717:; |
2842 |
V381= (*(LnkLI175))((V379),(((((V374))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(V375),4); |
V400= (*(LnkLI175))((V398),(((((V393))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(V394),4); |
2843 |
goto T715; |
goto T715; |
2844 |
T715:; |
T715:; |
2845 |
{object V385 = (*(LnkLI221))((V373),(V374),(V381),(V376),(V380)); |
{object V404 = (*(LnkLI221))((V392),(V393),(V400),(V395),(V399)); |
2846 |
VMR69(V385)}} |
VMR69(V404)}} |
2847 |
base[0]=base[0]; |
base[0]=base[0]; |
2848 |
return Cnil; |
return Cnil; |
2849 |
} |
} |
2855 |
vs_check; |
vs_check; |
2856 |
check_arg(2); |
check_arg(2); |
2857 |
vs_top=sup; |
vs_top=sup; |
2858 |
{object V386=base[0]->c.c_cdr; |
{object V405=base[0]->c.c_cdr; |
2859 |
if(endp(V386))invalid_macro_call(); |
if(endp(V405))invalid_macro_call(); |
2860 |
{object V387= (V386->c.c_car); |
{object V406= (V405->c.c_car); |
2861 |
if(endp(V387))invalid_macro_call(); |
if(endp(V406))invalid_macro_call(); |
2862 |
base[2]= (V387->c.c_car); |
base[2]= (V406->c.c_car); |
2863 |
V387=V387->c.c_cdr; |
V406=V406->c.c_cdr; |
2864 |
if(endp(V387))invalid_macro_call(); |
if(endp(V406))invalid_macro_call(); |
2865 |
base[3]= (V387->c.c_car); |
base[3]= (V406->c.c_car); |
2866 |
V387=V387->c.c_cdr; |
V406=V406->c.c_cdr; |
2867 |
if(endp(V387))invalid_macro_call(); |
if(endp(V406))invalid_macro_call(); |
2868 |
base[4]= (V387->c.c_car); |
base[4]= (V406->c.c_car); |
2869 |
V387=V387->c.c_cdr; |
V406=V406->c.c_cdr; |
2870 |
if(endp(V387))invalid_macro_call(); |
if(endp(V406))invalid_macro_call(); |
2871 |
base[5]= (V387->c.c_car); |
base[5]= (V406->c.c_car); |
2872 |
V387=V387->c.c_cdr; |
V406=V406->c.c_cdr; |
2873 |
if(endp(V387))invalid_macro_call(); |
if(endp(V406))invalid_macro_call(); |
2874 |
base[6]= (V387->c.c_car); |
base[6]= (V406->c.c_car); |
2875 |
V387=V387->c.c_cdr; |
V406=V406->c.c_cdr; |
2876 |
if(endp(V387)){ |
if(endp(V406)){ |
2877 |
base[7]= Cnil; |
base[7]= Cnil; |
2878 |
} else { |
} else { |
2879 |
base[7]= (V387->c.c_car); |
base[7]= (V406->c.c_car); |
2880 |
V387=V387->c.c_cdr;} |
V406=V406->c.c_cdr;} |
2881 |
if(endp(V387)){ |
if(endp(V406)){ |
2882 |
base[8]= Cnil; |
base[8]= Cnil; |
2883 |
} else { |
} else { |
2884 |
base[8]= (V387->c.c_car); |
base[8]= (V406->c.c_car); |
2885 |
V387=V387->c.c_cdr;} |
V406=V406->c.c_cdr;} |
2886 |
if(endp(V387)){ |
if(endp(V406)){ |
2887 |
base[9]= Cnil; |
base[9]= Cnil; |
2888 |
} else { |
} else { |
2889 |
base[9]= (V387->c.c_car); |
base[9]= (V406->c.c_car); |
2890 |
V387=V387->c.c_cdr;} |
V406=V406->c.c_cdr;} |
2891 |
if(endp(V387)){ |
if(endp(V406)){ |
2892 |
base[10]= Cnil; |
base[10]= Cnil; |
2893 |
} else { |
} else { |
2894 |
base[10]= (V387->c.c_car); |
base[10]= (V406->c.c_car); |
2895 |
V387=V387->c.c_cdr;} |
V406=V406->c.c_cdr;} |
2896 |
if(!endp(V387))invalid_macro_call();} |
if(!endp(V406))invalid_macro_call();} |
2897 |
V386=V386->c.c_cdr; |
V405=V405->c.c_cdr; |
2898 |
base[11]= V386;} |
base[11]= V405;} |
2899 |
if((base[10])!=Cnil){ |
if((base[10])!=Cnil){ |
2900 |
goto T723;} |
goto T723;} |
2901 |
vs_base=vs_top; |
vs_base=vs_top; |
2904 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
2905 |
goto T723; |
goto T723; |
2906 |
T723:; |
T723:; |
2907 |
|
V407 = base[6]; |
2908 |
|
V408 = base[10]; |
2909 |
|
V409 = base[4]; |
2910 |
|
V410 = base[5]; |
2911 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
2912 |
goto T729;} |
goto T729;} |
2913 |
V388= list(2,base[7],base[8]); |
V411= list(2,base[7],base[8]); |
2914 |
goto T727; |
goto T727; |
2915 |
goto T729; |
goto T729; |
2916 |
T729:; |
T729:; |
2917 |
V388= Cnil; |
V411= Cnil; |
2918 |
goto T727; |
goto T727; |
2919 |
T727:; |
T727:; |
2920 |
V389= listA(5,base[6],base[10],base[4],base[5],V388); |
V412= listA(5,V407,V408,V409,V410,V411); |
2921 |
if((base[9])==Cnil){ |
if((base[9])==Cnil){ |
2922 |
goto T733;} |
goto T733;} |
2923 |
V390= VV[13]; |
V413= VV[13]; |
2924 |
goto T731; |
goto T731; |
2925 |
goto T733; |
goto T733; |
2926 |
T733:; |
T733:; |
2927 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
2928 |
goto T736;} |
goto T736;} |
2929 |
V390= VV[86]; |
V413= VV[86]; |
2930 |
goto T731; |
goto T731; |
2931 |
goto T736; |
goto T736; |
2932 |
T736:; |
T736:; |
2933 |
V390= VV[12]; |
V413= VV[12]; |
2934 |
goto T731; |
goto T731; |
2935 |
T731:; |
T731:; |
2936 |
V391= list(4,VV[85],base[2],base[3],list(2,VV[25],V390)); |
V414= list(4,VV[85],base[2],base[3],list(2,VV[25],V413)); |
2937 |
V392= list(3,VV[88],base[10],list(2,VV[89],list(3,VV[90],base[2],VV[91]))); |
V415= list(3,VV[88],base[10],list(2,VV[89],list(3,VV[90],base[2],VV[91]))); |
2938 |
V393= list(2,VV[91],list(3,VV[93],base[2],VV[91])); |
V416= list(2,VV[91],list(3,VV[93],base[2],VV[91])); |
2939 |
V394= list(3,VV[87],/* INLINE-ARGS */V392,listA(3,VV[92],make_cons(/* INLINE-ARGS */V393,Cnil),base[11])); |
V417= list(3,VV[87],/* INLINE-ARGS */V415,listA(3,VV[92],make_cons(/* INLINE-ARGS */V416,Cnil),base[11])); |
2940 |
base[12]= list(5,VV[46],/* INLINE-ARGS */V389,/* INLINE-ARGS */V391,/* INLINE-ARGS */V394,list(3,VV[94],base[6],base[3])); |
base[12]= list(5,VV[46],/* INLINE-ARGS */V412,/* INLINE-ARGS */V414,/* INLINE-ARGS */V417,list(3,VV[94],base[6],base[3])); |
2941 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2942 |
return; |
return; |
2943 |
} |
} |
2944 |
/* local entry for function MAKE-INITIAL-DFUN */ |
/* local entry for function MAKE-INITIAL-DFUN */ |
2945 |
|
|
2946 |
static object LI73(V396) |
static object LI73(V419) |
2947 |
|
|
2948 |
object V396; |
object V419; |
2949 |
{ VMB71 VMS71 VMV71 |
{ VMB71 VMS71 VMV71 |
2950 |
goto TTL; |
goto TTL; |
2951 |
TTL:; |
TTL:; |
2952 |
base[0]=MMcons((V396),Cnil); |
base[0]=MMcons((V419),Cnil); |
2953 |
{object V397; |
{object V420; |
2954 |
V397= |
V420= |
2955 |
make_cclosure_new(LC153,Cnil,base[0],Cdata); |
make_cclosure_new(LC153,Cnil,base[0],Cdata); |
2956 |
{object V398; |
{object V421; |
2957 |
object V399; |
object V422; |
2958 |
object V400; |
object V423; |
2959 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
2960 |
goto T741;} |
goto T741;} |
2961 |
if(((*(LnkLI205))((base[0]->c.c_car)))==Cnil){ |
if(((*(LnkLI205))((base[0]->c.c_car)))==Cnil){ |
2962 |
goto T741;} |
goto T741;} |
2963 |
{object V401; |
{object V424; |
2964 |
object V402; |
object V425; |
2965 |
V401= (*(LnkLI183))((base[0]->c.c_car)); |
V424= (*(LnkLI183))((base[0]->c.c_car)); |
2966 |
V402= (VFUN_NARGS=3,(*(LnkLI222))((base[0]->c.c_car),(V401),(((VV[95]->s.s_dbind))==Cnil?Ct:Cnil))); |
V425= (VFUN_NARGS=3,(*(LnkLI222))((base[0]->c.c_car),(V424),(((VV[95]->s.s_dbind))==Cnil?Ct:Cnil))); |
2967 |
if(((VV[95]->s.s_dbind))==Cnil){ |
if(((VV[95]->s.s_dbind))==Cnil){ |
2968 |
goto T748;} |
goto T748;} |
2969 |
if(((VFUN_NARGS=2,(*(LnkLI185))((base[0]->c.c_car),(V401))))==Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI185))((base[0]->c.c_car),(V424))))==Cnil){ |
2970 |
goto T751;} |
goto T751;} |
2971 |
base[3]= (V397); |
base[3]= (V420); |
2972 |
base[4]= Cnil; |
base[4]= Cnil; |
2973 |
base[5]= (*(LnkLI223))(); |
base[5]= (*(LnkLI223))(); |
2974 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2976 |
goto T751; |
goto T751; |
2977 |
T751:; |
T751:; |
2978 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
2979 |
base[4]= (V401); |
base[4]= (V424); |
2980 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2981 |
(void) (*Lnk224)(); |
(void) (*Lnk224)(); |
2982 |
vs_top=sup; |
vs_top=sup; |
2983 |
base[3]= (V397); |
base[3]= (V420); |
2984 |
base[4]= Cnil; |
base[4]= Cnil; |
2985 |
base[5]= (*(LnkLI225))(); |
base[5]= (*(LnkLI225))(); |
2986 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2988 |
goto T748; |
goto T748; |
2989 |
T748:; |
T748:; |
2990 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
2991 |
base[4]= (V402); |
base[4]= (V425); |
2992 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2993 |
(void) (*Lnk226)(); |
(void) (*Lnk226)(); |
2994 |
goto T739;} |
goto T739;} |
2995 |
goto T741; |
goto T741; |
2996 |
T741:; |
T741:; |
2997 |
{object V403; |
{object V426; |
2998 |
object V404; |
object V427; |
2999 |
if(((*(LnkLI196))((base[0]->c.c_car)))==Cnil){ |
if(((*(LnkLI196))((base[0]->c.c_car)))==Cnil){ |
3000 |
goto T766;} |
goto T766;} |
3001 |
{object V406; |
{object V429; |
3002 |
V406= (base[0]->c.c_car); |
V429= (base[0]->c.c_car); |
3003 |
if(type_of((V406))==t_structure){ |
if(type_of((V429))==t_structure){ |
3004 |
goto T772;} |
goto T772;} |
3005 |
goto T770; |
goto T770; |
3006 |
goto T772; |
goto T772; |
3007 |
T772:; |
T772:; |
3008 |
if(!((((V406))->str.str_def)==(VV[99]))){ |
if(!((((V429))->str.str_def)==(VV[99]))){ |
3009 |
goto T770;}} |
goto T770;}} |
3010 |
V405= STREF(object,(base[0]->c.c_car),4); |
V428= STREF(object,(base[0]->c.c_car),4); |
3011 |
goto T768; |
goto T768; |
3012 |
goto T770; |
goto T770; |
3013 |
T770:;{object V407; |
T770:;{object V430; |
3014 |
V407= (VV[65]->s.s_dbind); |
V430= (VV[65]->s.s_dbind); |
3015 |
base[1]= small_fixnum(14); |
base[1]= small_fixnum(14); |
3016 |
base[2]= (base[0]->c.c_car); |
base[2]= (base[0]->c.c_car); |
3017 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3018 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
3019 |
vs_top=sup; |
vs_top=sup; |
3020 |
V408= vs_base[0]; |
V431= vs_base[0]; |
3021 |
if(!((V407)==(CMPcar(V408)))){ |
if(!((V430)==(CMPcar(V431)))){ |
3022 |
goto T775;}} |
goto T775;}} |
3023 |
V405= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]); |
V428= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]); |
3024 |
goto T768; |
goto T768; |
3025 |
goto T775; |
goto T775; |
3026 |
T775:; |
T775:; |
3028 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3029 |
Lerror(); |
Lerror(); |
3030 |
vs_top=sup; |
vs_top=sup; |
3031 |
V405= vs_base[0]; |
V428= vs_base[0]; |
3032 |
goto T768; |
goto T768; |
3033 |
T768:; |
T768:; |
3034 |
V403= (V405)->v.v_self[fix((VV[97]->s.s_dbind))]; |
V432 = (VV[97]->s.s_dbind); |
3035 |
|
V426= (V428)->v.v_self[fix(V432)]; |
3036 |
goto T764; |
goto T764; |
3037 |
goto T766; |
goto T766; |
3038 |
T766:; |
T766:; |
3040 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3041 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk161)(Lclptr161); |
3042 |
vs_top=sup; |
vs_top=sup; |
3043 |
V403= vs_base[0]; |
V426= vs_base[0]; |
3044 |
goto T764; |
goto T764; |
3045 |
T764:; |
T764:; |
3046 |
V404= Cnil; |
V427= Cnil; |
3047 |
if((STREF(object,(V403),28))==Cnil){ |
if((STREF(object,(V426),28))==Cnil){ |
3048 |
goto T783;} |
goto T783;} |
3049 |
V404= (*(LnkLI227))((base[0]->c.c_car)); |
V427= (*(LnkLI227))((base[0]->c.c_car)); |
3050 |
if(((V404))==Cnil){ |
if(((V427))==Cnil){ |
3051 |
goto T783;} |
goto T783;} |
3052 |
if(((VV[98]->s.s_dbind))==Cnil){ |
if(((VV[98]->s.s_dbind))==Cnil){ |
3053 |
goto T789;} |
goto T789;} |
3054 |
base[1]= (*(LnkLI228))((base[0]->c.c_car),(V404)); |
base[1]= (*(LnkLI228))((base[0]->c.c_car),(V427)); |
3055 |
base[2]= Cnil; |
base[2]= Cnil; |
3056 |
base[3]= Cnil; |
base[3]= Cnil; |
3057 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3059 |
goto T789; |
goto T789; |
3060 |
T789:; |
T789:; |
3061 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
3062 |
base[2]= (V404); |
base[2]= (V427); |
3063 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3064 |
(void) (*Lnk229)(); |
(void) (*Lnk229)(); |
3065 |
goto T739; |
goto T739; |
3066 |
goto T783; |
goto T783; |
3067 |
T783:; |
T783:; |
3068 |
base[1]= (V397); |
base[1]= (V420); |
3069 |
base[2]= Cnil; |
base[2]= Cnil; |
3070 |
base[3]= (*(LnkLI225))(); |
base[3]= (*(LnkLI225))(); |
3071 |
vs_top=(vs_base=base+1)+3;} |
vs_top=(vs_base=base+1)+3;} |
3072 |
goto T739; |
goto T739; |
3073 |
T739:; |
T739:; |
3074 |
if(vs_base>=vs_top){vs_top=sup;goto T799;} |
if(vs_base>=vs_top){vs_top=sup;goto T799;} |
3075 |
V398= vs_base[0]; |
V421= vs_base[0]; |
3076 |
vs_base++; |
vs_base++; |
3077 |
if(vs_base>=vs_top){vs_top=sup;goto T800;} |
if(vs_base>=vs_top){vs_top=sup;goto T800;} |
3078 |
V399= vs_base[0]; |
V422= vs_base[0]; |
3079 |
vs_base++; |
vs_base++; |
3080 |
if(vs_base>=vs_top){vs_top=sup;goto T801;} |
if(vs_base>=vs_top){vs_top=sup;goto T801;} |
3081 |
V400= vs_base[0]; |
V423= vs_base[0]; |
3082 |
vs_top=sup; |
vs_top=sup; |
3083 |
goto T802; |
goto T802; |
3084 |
goto T799; |
goto T799; |
3085 |
T799:; |
T799:; |
3086 |
V398= Cnil; |
V421= Cnil; |
3087 |
goto T800; |
goto T800; |
3088 |
T800:; |
T800:; |
3089 |
V399= Cnil; |
V422= Cnil; |
3090 |
goto T801; |
goto T801; |
3091 |
T801:; |
T801:; |
3092 |
V400= Cnil; |
V423= Cnil; |
3093 |
goto T802; |
goto T802; |
3094 |
T802:; |
T802:; |
3095 |
{object V409 = (VFUN_NARGS=4,(*(LnkLI230))((base[0]->c.c_car),(V398),(V399),(V400))); |
{object V433 = (VFUN_NARGS=4,(*(LnkLI230))((base[0]->c.c_car),(V421),(V422),(V423))); |
3096 |
VMR71(V409)}}} |
VMR71(V433)}}} |
3097 |
base[0]=base[0]; |
base[0]=base[0]; |
3098 |
return Cnil; |
return Cnil; |
3099 |
} |
} |
3100 |
/* local entry for function MAKE-EARLY-ACCESSOR */ |
/* local entry for function MAKE-EARLY-ACCESSOR */ |
3101 |
|
|
3102 |
static object LI74(V412,V413) |
static object LI74(V436,V437) |
3103 |
|
|
3104 |
register object V412;object V413; |
register object V436;object V437; |
3105 |
{ VMB72 VMS72 VMV72 |
{ VMB72 VMS72 VMV72 |
3106 |
goto TTL; |
goto TTL; |
3107 |
TTL:; |
TTL:; |
3108 |
{object V414; |
{object V438; |
3109 |
if(type_of(V412)==t_structure){ |
if(type_of(V436)==t_structure){ |
3110 |
goto T808;} |
goto T808;} |
3111 |
goto T806; |
goto T806; |
3112 |
goto T808; |
goto T808; |
3113 |
T808:; |
T808:; |
3114 |
if(!(((V412)->str.str_def)==(VV[100]))){ |
if(!(((V436)->str.str_def)==(VV[100]))){ |
3115 |
goto T806;} |
goto T806;} |
3116 |
V415= STREF(object,(V412),4); |
V439= STREF(object,(V436),4); |
3117 |
goto T804; |
goto T804; |
3118 |
goto T806; |
goto T806; |
3119 |
T806:;{object V417; |
T806:;{object V441; |
3120 |
V417= (VV[65]->s.s_dbind); |
V441= (VV[65]->s.s_dbind); |
3121 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
3122 |
base[3]= (V412); |
base[3]= (V436); |
3123 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3124 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
3125 |
vs_top=sup; |
vs_top=sup; |
3126 |
V418= vs_base[0]; |
V442= vs_base[0]; |
3127 |
if(!((V417)==(CMPcar(V418)))){ |
if(!((V441)==(CMPcar(V442)))){ |
3128 |
goto T811;}} |
goto T811;}} |
3129 |
V415= CMPcar(((V412))->cc.cc_turbo[12]); |
V439= CMPcar(((V436))->cc.cc_turbo[12]); |
3130 |
goto T804; |
goto T804; |
3131 |
goto T811; |
goto T811; |
3132 |
T811:; |
T811:; |
3134 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3135 |
Lerror(); |
Lerror(); |
3136 |
vs_top=sup; |
vs_top=sup; |
3137 |
V415= vs_base[0]; |
V439= vs_base[0]; |
3138 |
goto T804; |
goto T804; |
3139 |
T804:; |
T804:; |
3140 |
V414= (V415)->v.v_self[fix((VV[67]->s.s_dbind))]; |
V443 = (VV[67]->s.s_dbind); |
3141 |
base[2]= CMPcar((V414)); |
V438= (V439)->v.v_self[fix(V443)]; |
3142 |
|
base[2]= CMPcar((V438)); |
3143 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3144 |
(void) (*Lnk231)(); |
(void) (*Lnk231)(); |
3145 |
vs_top=sup; |
vs_top=sup; |
3146 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3147 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
3148 |
{object V419= (V413); |
{object V444= (V437); |
3149 |
if((V419!= VV[51]))goto T819; |
if((V444!= VV[51]))goto T819; |
3150 |
{object V420 = |
{object V445 = |
3151 |
make_cclosure_new(LC154,Cnil,base[1],Cdata); |
make_cclosure_new(LC154,Cnil,base[1],Cdata); |
3152 |
VMR72(V420)} |
VMR72(V445)} |
3153 |
goto T819; |
goto T819; |
3154 |
T819:; |
T819:; |
3155 |
if((V419!= VV[123]))goto T820; |
if((V444!= VV[123]))goto T820; |
3156 |
{object V421 = |
{object V446 = |
3157 |
make_cclosure_new(LC155,Cnil,base[1],Cdata); |
make_cclosure_new(LC155,Cnil,base[1],Cdata); |
3158 |
VMR72(V421)} |
VMR72(V446)} |
3159 |
goto T820; |
goto T820; |
3160 |
T820:; |
T820:; |
3161 |
FEerror("The ECASE key value ~s is illegal.",1,V419); |
FEerror("The ECASE key value ~s is illegal.",1,V444); |
3162 |
{object V422 = Cnil; |
{object V447 = Cnil; |
3163 |
VMR72(V422)}}} |
VMR72(V447)}}} |
3164 |
base[0]=base[0]; |
base[0]=base[0]; |
3165 |
return Cnil; |
return Cnil; |
3166 |
} |
} |
3171 |
register object *sup=base+VM73; VC73 |
register object *sup=base+VM73; VC73 |
3172 |
vs_check; |
vs_check; |
3173 |
bds_check; |
bds_check; |
3174 |
{register object V423; |
{register object V448; |
3175 |
object V424; |
object V449; |
3176 |
check_arg(2); |
check_arg(2); |
3177 |
V423=(base[0]); |
V448=(base[0]); |
3178 |
V424=(base[1]); |
V449=(base[1]); |
3179 |
vs_top=sup; |
vs_top=sup; |
3180 |
goto TTL; |
goto TTL; |
3181 |
TTL:; |
TTL:; |
3182 |
{object V425; |
{object V450; |
3183 |
object V426; |
object V451; |
3184 |
object V427; |
object V452; |
3185 |
object V428; |
object V453; |
3186 |
object V429; |
object V454; |
3187 |
object V430; |
object V455; |
3188 |
base[2]= (V423); |
base[2]= (V448); |
3189 |
base[3]= (V424); |
base[3]= (V449); |
3190 |
base[4]= VV[86]; |
base[4]= VV[86]; |
3191 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
3192 |
(void) (*Lnk85)(); |
(void) (*Lnk85)(); |
3193 |
if(vs_base>=vs_top){vs_top=sup;goto T825;} |
if(vs_base>=vs_top){vs_top=sup;goto T825;} |
3194 |
V425= vs_base[0]; |
V450= vs_base[0]; |
3195 |
vs_base++; |
vs_base++; |
3196 |
if(vs_base>=vs_top){vs_top=sup;goto T826;} |
if(vs_base>=vs_top){vs_top=sup;goto T826;} |
3197 |
V426= vs_base[0]; |
V451= vs_base[0]; |
3198 |
vs_base++; |
vs_base++; |
3199 |
if(vs_base>=vs_top){vs_top=sup;goto T827;} |
if(vs_base>=vs_top){vs_top=sup;goto T827;} |
3200 |
V427= vs_base[0]; |
V452= vs_base[0]; |
3201 |
vs_base++; |
vs_base++; |
3202 |
if(vs_base>=vs_top){vs_top=sup;goto T828;} |
if(vs_base>=vs_top){vs_top=sup;goto T828;} |
3203 |
V428= vs_base[0]; |
V453= vs_base[0]; |
3204 |
vs_base++; |
vs_base++; |
3205 |
if(vs_base>=vs_top){vs_top=sup;goto T829;} |
if(vs_base>=vs_top){vs_top=sup;goto T829;} |
3206 |
V429= vs_base[0]; |
V454= vs_base[0]; |
3207 |
vs_base++; |
vs_base++; |
3208 |
if(vs_base>=vs_top){vs_top=sup;goto T830;} |
if(vs_base>=vs_top){vs_top=sup;goto T830;} |
3209 |
V430= vs_base[0]; |
V455= vs_base[0]; |
3210 |
vs_top=sup; |
vs_top=sup; |
3211 |
goto T831; |
goto T831; |
3212 |
goto T825; |
goto T825; |
3213 |
T825:; |
T825:; |
3214 |
V425= Cnil; |
V450= Cnil; |
3215 |
goto T826; |
goto T826; |
3216 |
T826:; |
T826:; |
3217 |
V426= Cnil; |
V451= Cnil; |
3218 |
goto T827; |
goto T827; |
3219 |
T827:; |
T827:; |
3220 |
V427= Cnil; |
V452= Cnil; |
3221 |
goto T828; |
goto T828; |
3222 |
T828:; |
T828:; |
3223 |
V428= Cnil; |
V453= Cnil; |
3224 |
goto T829; |
goto T829; |
3225 |
T829:; |
T829:; |
3226 |
V429= Cnil; |
V454= Cnil; |
3227 |
goto T830; |
goto T830; |
3228 |
T830:; |
T830:; |
3229 |
V430= Cnil; |
V455= Cnil; |
3230 |
goto T831; |
goto T831; |
3231 |
T831:; |
T831:; |
3232 |
if(((V426))==Cnil){ |
if(((V451))==Cnil){ |
3233 |
goto T832;} |
goto T832;} |
3234 |
{register object x= (V423),V431= (VV[91]->s.s_dbind); |
{register object x= (V448),V456= (VV[91]->s.s_dbind); |
3235 |
while(V431!=Cnil) |
while(V456!=Cnil) |
3236 |
if(x==(V431->c.c_car)){ |
if(x==(V456->c.c_car)){ |
3237 |
goto T832; |
goto T832; |
3238 |
}else V431=V431->c.c_cdr;} |
}else V456=V456->c.c_cdr;} |
3239 |
base[2]= make_cons((V423),(VV[91]->s.s_dbind)); |
base[2]= make_cons((V448),(VV[91]->s.s_dbind)); |
3240 |
bds_bind(VV[91],base[2]); |
bds_bind(VV[91],base[2]); |
3241 |
if((V428)==Cnil){ |
if((V453)==Cnil){ |
3242 |
goto T839;} |
goto T839;} |
3243 |
bds_unwind1; |
bds_unwind1; |
3244 |
goto T832; |
goto T832; |
3245 |
goto T839; |
goto T839; |
3246 |
T839:; |
T839:; |
3247 |
if(((V429))==Cnil){ |
if(((V454))==Cnil){ |
3248 |
goto T842;} |
goto T842;} |
3249 |
if(((V430))==Cnil){ |
if(((V455))==Cnil){ |
3250 |
goto T842;} |
goto T842;} |
3251 |
{object V433; |
{object V458; |
3252 |
object V434; |
object V459; |
3253 |
object V435; |
object V460; |
3254 |
base[3]= (V423); |
base[3]= (V448); |
3255 |
base[4]= (V429); |
base[4]= (V454); |
3256 |
base[5]= (V427); |
base[5]= (V452); |
3257 |
base[6]= (V430); |
base[6]= (V455); |
3258 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3259 |
(void) (*Lnk232)(); |
(void) (*Lnk232)(); |
3260 |
if(vs_base>=vs_top){vs_top=sup;goto T851;} |
if(vs_base>=vs_top){vs_top=sup;goto T851;} |
3261 |
V433= vs_base[0]; |
V458= vs_base[0]; |
3262 |
vs_base++; |
vs_base++; |
3263 |
if(vs_base>=vs_top){vs_top=sup;goto T852;} |
if(vs_base>=vs_top){vs_top=sup;goto T852;} |
3264 |
V434= vs_base[0]; |
V459= vs_base[0]; |
3265 |
vs_base++; |
vs_base++; |
3266 |
if(vs_base>=vs_top){vs_top=sup;goto T853;} |
if(vs_base>=vs_top){vs_top=sup;goto T853;} |
3267 |
V435= vs_base[0]; |
V460= vs_base[0]; |
3268 |
vs_top=sup; |
vs_top=sup; |
3269 |
goto T854; |
goto T854; |
3270 |
goto T851; |
goto T851; |
3271 |
T851:; |
T851:; |
3272 |
V433= Cnil; |
V458= Cnil; |
3273 |
goto T852; |
goto T852; |
3274 |
T852:; |
T852:; |
3275 |
V434= Cnil; |
V459= Cnil; |
3276 |
goto T853; |
goto T853; |
3277 |
T853:; |
T853:; |
3278 |
V435= Cnil; |
V460= Cnil; |
3279 |
goto T854; |
goto T854; |
3280 |
T854:; |
T854:; |
3281 |
V436= (VFUN_NARGS=4,(*(LnkLI49))((V423),(V433),(V434),(V435))); |
V461= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V458),(V459),(V460))); |
3282 |
bds_unwind1; |
bds_unwind1; |
3283 |
goto T832;} |
goto T832;} |
3284 |
goto T842; |
goto T842; |
3285 |
T842:; |
T842:; |
3286 |
if(((*(LnkLI183))((V423)))==Cnil){ |
if(((*(LnkLI183))((V448)))==Cnil){ |
3287 |
goto T856;} |
goto T856;} |
3288 |
{object V437; |
{object V462; |
3289 |
object V438; |
object V463; |
3290 |
object V439; |
object V464; |
3291 |
base[3]= (V423); |
base[3]= (V448); |
3292 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3293 |
(void) (*Lnk184)(); |
(void) (*Lnk184)(); |
3294 |
if(vs_base>=vs_top){vs_top=sup;goto T860;} |
if(vs_base>=vs_top){vs_top=sup;goto T860;} |
3295 |
V437= vs_base[0]; |
V462= vs_base[0]; |
3296 |
vs_base++; |
vs_base++; |
3297 |
if(vs_base>=vs_top){vs_top=sup;goto T861;} |
if(vs_base>=vs_top){vs_top=sup;goto T861;} |
3298 |
V438= vs_base[0]; |
V463= vs_base[0]; |
3299 |
vs_base++; |
vs_base++; |
3300 |
if(vs_base>=vs_top){vs_top=sup;goto T862;} |
if(vs_base>=vs_top){vs_top=sup;goto T862;} |
3301 |
V439= vs_base[0]; |
V464= vs_base[0]; |
3302 |
vs_top=sup; |
vs_top=sup; |
3303 |
goto T863; |
goto T863; |
3304 |
goto T860; |
goto T860; |
3305 |
T860:; |
T860:; |
3306 |
V437= Cnil; |
V462= Cnil; |
3307 |
goto T861; |
goto T861; |
3308 |
T861:; |
T861:; |
3309 |
V438= Cnil; |
V463= Cnil; |
3310 |
goto T862; |
goto T862; |
3311 |
T862:; |
T862:; |
3312 |
V439= Cnil; |
V464= Cnil; |
3313 |
goto T863; |
goto T863; |
3314 |
T863:; |
T863:; |
3315 |
V440= (VFUN_NARGS=4,(*(LnkLI49))((V423),(V437),(V438),(V439))); |
V465= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V462),(V463),(V464))); |
3316 |
bds_unwind1; |
bds_unwind1; |
3317 |
goto T832;} |
goto T832;} |
3318 |
goto T856; |
goto T856; |
3319 |
T856:; |
T856:; |
3320 |
{object V441; |
{object V466; |
3321 |
object V442; |
object V467; |
3322 |
object V443; |
object V468; |
3323 |
base[3]= (V423); |
base[3]= (V448); |
3324 |
base[5]= (V423); |
base[5]= (V448); |
3325 |
base[6]= (V424); |
base[6]= (V449); |
3326 |
base[7]= VV[12]; |
base[7]= VV[12]; |
3327 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
3328 |
(void) (*Lnk85)(); |
(void) (*Lnk85)(); |
3331 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3332 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
3333 |
if(vs_base>=vs_top){vs_top=sup;goto T870;} |
if(vs_base>=vs_top){vs_top=sup;goto T870;} |
3334 |
V441= vs_base[0]; |
V466= vs_base[0]; |
3335 |
vs_base++; |
vs_base++; |
3336 |
if(vs_base>=vs_top){vs_top=sup;goto T871;} |
if(vs_base>=vs_top){vs_top=sup;goto T871;} |
3337 |
V442= vs_base[0]; |
V467= vs_base[0]; |
3338 |
vs_base++; |
vs_base++; |
3339 |
if(vs_base>=vs_top){vs_top=sup;goto T872;} |
if(vs_base>=vs_top){vs_top=sup;goto T872;} |
3340 |
V443= vs_base[0]; |
V468= vs_base[0]; |
3341 |
vs_top=sup; |
vs_top=sup; |
3342 |
goto T873; |
goto T873; |
3343 |
goto T870; |
goto T870; |
3344 |
T870:; |
T870:; |
3345 |
V441= Cnil; |
V466= Cnil; |
3346 |
goto T871; |
goto T871; |
3347 |
T871:; |
T871:; |
3348 |
V442= Cnil; |
V467= Cnil; |
3349 |
goto T872; |
goto T872; |
3350 |
T872:; |
T872:; |
3351 |
V443= Cnil; |
V468= Cnil; |
3352 |
goto T873; |
goto T873; |
3353 |
T873:; |
T873:; |
3354 |
V444= (VFUN_NARGS=4,(*(LnkLI49))((V423),(V441),(V442),(V443))); |
V469= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V466),(V467),(V468))); |
3355 |
bds_unwind1;} |
bds_unwind1;} |
3356 |
goto T832; |
goto T832; |
3357 |
T832:; |
T832:; |
3358 |
base[2]= (V425); |
base[2]= (V450); |
3359 |
base[3]= (V424); |
base[3]= (V449); |
3360 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3361 |
(void) (*Lnk94)(); |
(void) (*Lnk94)(); |
3362 |
return;} |
return;} |
3364 |
} |
} |
3365 |
/* local entry for function MAKE-FINAL-DFUN */ |
/* local entry for function MAKE-FINAL-DFUN */ |
3366 |
|
|
3367 |
static object LI76(object V445,object first,...) |
static object LI76(object V470,object first,...) |
3368 |
{ |
{ |
3369 |
va_list ap; |
va_list ap; |
3370 |
int narg = VFUN_NARGS; VMB74 VMS74 VMV74 |
int narg = VFUN_NARGS; VMB74 VMS74 VMV74 |
3371 |
{object V446; |
{object V471; |
3372 |
object V447; |
object V472; |
3373 |
va_start(ap,first); |
va_start(ap,first); |
3374 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
3375 |
V446= V445; |
V471= V470; |
3376 |
narg = narg - 1; |
narg = narg - 1; |
3377 |
if (narg <= 0) goto T876; |
if (narg <= 0) goto T876; |
3378 |
else { |
else { |
3379 |
V447= first;} |
V472= first;} |
3380 |
--narg; goto T877; |
--narg; goto T877; |
3381 |
goto T876; |
goto T876; |
3382 |
T876:; |
T876:; |
3383 |
V447= Cnil; |
V472= Cnil; |
3384 |
goto T877; |
goto T877; |
3385 |
T877:; |
T877:; |
3386 |
{object V448; |
{object V473; |
3387 |
object V449; |
object V474; |
3388 |
object V450; |
object V475; |
3389 |
base[0]= (V446); |
base[0]= (V471); |
3390 |
base[1]= (V447); |
base[1]= (V472); |
3391 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3392 |
(void) (*Lnk226)(); |
(void) (*Lnk226)(); |
3393 |
if(vs_base>=vs_top){vs_top=sup;goto T882;} |
if(vs_base>=vs_top){vs_top=sup;goto T882;} |
3394 |
V448= vs_base[0]; |
V473= vs_base[0]; |
3395 |
vs_base++; |
vs_base++; |
3396 |
if(vs_base>=vs_top){vs_top=sup;goto T883;} |
if(vs_base>=vs_top){vs_top=sup;goto T883;} |
3397 |
V449= vs_base[0]; |
V474= vs_base[0]; |
3398 |
vs_base++; |
vs_base++; |
3399 |
if(vs_base>=vs_top){vs_top=sup;goto T884;} |
if(vs_base>=vs_top){vs_top=sup;goto T884;} |
3400 |
V450= vs_base[0]; |
V475= vs_base[0]; |
3401 |
vs_top=sup; |
vs_top=sup; |
3402 |
goto T885; |
goto T885; |
3403 |
goto T882; |
goto T882; |
3404 |
T882:; |
T882:; |
3405 |
V448= Cnil; |
V473= Cnil; |
3406 |
goto T883; |
goto T883; |
3407 |
T883:; |
T883:; |
3408 |
V449= Cnil; |
V474= Cnil; |
3409 |
goto T884; |
goto T884; |
3410 |
T884:; |
T884:; |
3411 |
V450= Cnil; |
V475= Cnil; |
3412 |
goto T885; |
goto T885; |
3413 |
T885:; |
T885:; |
3414 |
{object V451 = (VFUN_NARGS=4,(*(LnkLI230))((V446),(V448),(V449),(V450))); |
{object V476 = (VFUN_NARGS=4,(*(LnkLI230))((V471),(V473),(V474),(V475))); |
3415 |
VMR74(V451)}} |
VMR74(V476)}} |
3416 |
va_end(ap); |
va_end(ap); |
3417 |
base[0]=base[0]; |
base[0]=base[0]; |
3418 |
return Cnil;} |
return Cnil;} |
3425 |
vs_check; |
vs_check; |
3426 |
check_arg(2); |
check_arg(2); |
3427 |
vs_top=sup; |
vs_top=sup; |
3428 |
{object V452=base[0]->c.c_cdr; |
{object V477=base[0]->c.c_cdr; |
3429 |
if(endp(V452))invalid_macro_call(); |
if(endp(V477))invalid_macro_call(); |
3430 |
{object V453= (V452->c.c_car); |
{object V478= (V477->c.c_car); |
3431 |
if(endp(V453))invalid_macro_call(); |
if(endp(V478))invalid_macro_call(); |
3432 |
base[2]= (V453->c.c_car); |
base[2]= (V478->c.c_car); |
3433 |
V453=V453->c.c_cdr; |
V478=V478->c.c_cdr; |
3434 |
if(endp(V453))invalid_macro_call(); |
if(endp(V478))invalid_macro_call(); |
3435 |
base[3]= (V453->c.c_car); |
base[3]= (V478->c.c_car); |
3436 |
V453=V453->c.c_cdr; |
V478=V478->c.c_cdr; |
3437 |
if(!endp(V453))invalid_macro_call();} |
if(!endp(V478))invalid_macro_call();} |
3438 |
V452=V452->c.c_cdr; |
V477=V477->c.c_cdr; |
3439 |
base[4]= V452;} |
base[4]= V477;} |
3440 |
V454= list(2,VV[106],list(3,VV[107],list(2,VV[25],base[3]),VV[108])); |
V479= list(2,VV[106],list(3,VV[107],list(2,VV[25],base[3]),VV[108])); |
3441 |
V455= list(2,/* INLINE-ARGS */V454,list(2,base[2],list(4,VV[109],VV[110],VV[111],list(3,VV[112],VV[113],list(2,VV[25],base[3]))))); |
V480= list(2,/* INLINE-ARGS */V479,list(2,base[2],list(4,VV[109],VV[110],VV[111],list(3,VV[112],VV[113],list(2,VV[25],base[3]))))); |
3442 |
V456= make_cons(VV[21],base[4]); |
V481= make_cons(VV[21],base[4]); |
3443 |
V457= list(2,VV[115],base[2]); |
V482= list(2,VV[115],base[2]); |
3444 |
base[5]= list(3,VV[105],/* INLINE-ARGS */V455,list(4,VV[114],/* INLINE-ARGS */V456,/* INLINE-ARGS */V457,list(3,VV[116],base[2],VV[117]))); |
base[5]= list(3,VV[105],/* INLINE-ARGS */V480,list(4,VV[114],/* INLINE-ARGS */V481,/* INLINE-ARGS */V482,list(3,VV[116],base[2],VV[117]))); |
3445 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3446 |
return; |
return; |
3447 |
} |
} |
3453 |
vs_check; |
vs_check; |
3454 |
check_arg(2); |
check_arg(2); |
3455 |
vs_top=sup; |
vs_top=sup; |
3456 |
{object V458=base[0]->c.c_cdr; |
{object V483=base[0]->c.c_cdr; |
3457 |
if(endp(V458))invalid_macro_call(); |
if(endp(V483))invalid_macro_call(); |
3458 |
{object V459= (V458->c.c_car); |
{object V484= (V483->c.c_car); |
3459 |
if(endp(V459))invalid_macro_call(); |
if(endp(V484))invalid_macro_call(); |
3460 |
base[2]= (V459->c.c_car); |
base[2]= (V484->c.c_car); |
3461 |
V459=V459->c.c_cdr; |
V484=V484->c.c_cdr; |
3462 |
if(!endp(V459))invalid_macro_call();} |
if(!endp(V484))invalid_macro_call();} |
3463 |
V458=V458->c.c_cdr; |
V483=V483->c.c_cdr; |
3464 |
base[3]= V458;} |
base[3]= V483;} |
3465 |
base[4]= listA(3,VV[118],list(2,base[2],VV[119]),base[3]); |
base[4]= listA(3,VV[118],list(2,base[2],VV[119]),base[3]); |
3466 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3467 |
return; |
return; |
3468 |
} |
} |
3469 |
/* local entry for function FINAL-ACCESSOR-DFUN-TYPE */ |
/* local entry for function FINAL-ACCESSOR-DFUN-TYPE */ |
3470 |
|
|
3471 |
static object LI79(V461) |
static object LI79(V486) |
3472 |
|
|
3473 |
register object V461; |
register object V486; |
3474 |
{ VMB77 VMS77 VMV77 |
{ VMB77 VMS77 VMV77 |
3475 |
goto TTL; |
goto TTL; |
3476 |
TTL:; |
TTL:; |
3477 |
{object V462; |
{object V487; |
3478 |
if(((*(LnkLI196))((V461)))==Cnil){ |
if(((*(LnkLI196))((V486)))==Cnil){ |
3479 |
goto T888;} |
goto T888;} |
3480 |
if(type_of(V461)==t_structure){ |
if(type_of(V486)==t_structure){ |
3481 |
goto T894;} |
goto T894;} |
3482 |
goto T892; |
goto T892; |
3483 |
goto T894; |
goto T894; |
3484 |
T894:; |
T894:; |
3485 |
if(!(((V461)->str.str_def)==(VV[120]))){ |
if(!(((V486)->str.str_def)==(VV[120]))){ |
3486 |
goto T892;} |
goto T892;} |
3487 |
V463= STREF(object,(V461),4); |
V488= STREF(object,(V486),4); |
3488 |
goto T890; |
goto T890; |
3489 |
goto T892; |
goto T892; |
3490 |
T892:;{object V465; |
T892:;{object V490; |
3491 |
V465= (VV[65]->s.s_dbind); |
V490= (VV[65]->s.s_dbind); |
3492 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3493 |
base[1]= (V461); |
base[1]= (V486); |
3494 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3495 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
3496 |
vs_top=sup; |
vs_top=sup; |
3497 |
V466= vs_base[0]; |
V491= vs_base[0]; |
3498 |
if(!((V465)==(CMPcar(V466)))){ |
if(!((V490)==(CMPcar(V491)))){ |
3499 |
goto T897;}} |
goto T897;}} |
3500 |
V463= CMPcar(((V461))->cc.cc_turbo[12]); |
V488= CMPcar(((V486))->cc.cc_turbo[12]); |
3501 |
goto T890; |
goto T890; |
3502 |
goto T897; |
goto T897; |
3503 |
T897:; |
T897:; |
3505 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3506 |
Lerror(); |
Lerror(); |
3507 |
vs_top=sup; |
vs_top=sup; |
3508 |
V463= vs_base[0]; |
V488= vs_base[0]; |
3509 |
goto T890; |
goto T890; |
3510 |
T890:; |
T890:; |
3511 |
V462= (V463)->v.v_self[fix((VV[67]->s.s_dbind))]; |
V492 = (VV[67]->s.s_dbind); |
3512 |
|
V487= (V488)->v.v_self[fix(V492)]; |
3513 |
goto T886; |
goto T886; |
3514 |
goto T888; |
goto T888; |
3515 |
T888:; |
T888:; |
3516 |
base[0]= (V461); |
base[0]= (V486); |
3517 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3518 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk199)(Lclptr199); |
3519 |
vs_top=sup; |
vs_top=sup; |
3520 |
V462= vs_base[0]; |
V487= vs_base[0]; |
3521 |
goto T886; |
goto T886; |
3522 |
T886:; |
T886:; |
3523 |
base[0]= VV[233]; |
base[0]= VV[233]; |
3524 |
base[1]= (V462); |
base[1]= (V487); |
3525 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3526 |
(void) (*Lnk188)(); |
(void) (*Lnk188)(); |
3527 |
vs_top=sup; |
vs_top=sup; |
3528 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3529 |
goto T905;} |
goto T905;} |
3530 |
{object V467 = VV[51]; |
{object V493 = VV[51]; |
3531 |
VMR77(V467)} |
VMR77(V493)} |
3532 |
goto T905; |
goto T905; |
3533 |
T905:; |
T905:; |
3534 |
base[0]= VV[234]; |
base[0]= VV[234]; |
3535 |
base[1]= (V462); |
base[1]= (V487); |
3536 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3537 |
(void) (*Lnk188)(); |
(void) (*Lnk188)(); |
3538 |
vs_top=sup; |
vs_top=sup; |
3539 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3540 |
goto T910;} |
goto T910;} |
3541 |
{object V468 = VV[123]; |
{object V494 = VV[123]; |
3542 |
VMR77(V468)} |
VMR77(V494)} |
3543 |
goto T910; |
goto T910; |
3544 |
T910:; |
T910:; |
3545 |
{object V469 = Cnil; |
{object V495 = Cnil; |
3546 |
VMR77(V469)}} |
VMR77(V495)}} |
3547 |
base[0]=base[0]; |
base[0]=base[0]; |
3548 |
return Cnil; |
return Cnil; |
3549 |
} |
} |
3553 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3554 |
register object *sup=base+VM78; VC78 |
register object *sup=base+VM78; VC78 |
3555 |
vs_check; |
vs_check; |
3556 |
{register object V470; |
{register object V496; |
3557 |
register object V471; |
register object V497; |
3558 |
object V472; |
object V498; |
3559 |
object V473; |
object V499; |
3560 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3561 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
3562 |
V470=(base[0]); |
V496=(base[0]); |
3563 |
V471=(base[1]); |
V497=(base[1]); |
3564 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
3565 |
if(vs_base>=vs_top){vs_top=sup;goto T914;} |
if(vs_base>=vs_top){vs_top=sup;goto T914;} |
3566 |
V472=(base[2]); |
V498=(base[2]); |
3567 |
vs_base++; |
vs_base++; |
3568 |
if(vs_base>=vs_top){vs_top=sup;goto T915;} |
if(vs_base>=vs_top){vs_top=sup;goto T915;} |
3569 |
V473=(base[3]); |
V499=(base[3]); |
3570 |
vs_top=sup; |
vs_top=sup; |
3571 |
goto T916; |
goto T916; |
3572 |
goto T914; |
goto T914; |
3573 |
T914:; |
T914:; |
3574 |
V472= Cnil; |
V498= Cnil; |
3575 |
goto T915; |
goto T915; |
3576 |
T915:; |
T915:; |
3577 |
V473= Cnil; |
V499= Cnil; |
3578 |
goto T916; |
goto T916; |
3579 |
T916:; |
T916:; |
3580 |
{object V474; |
{object V500; |
3581 |
object V475; |
object V501; |
3582 |
{register object x= VV[119],V476= (VV[108]->s.s_dbind); |
{register object x= VV[119],V502= (VV[108]->s.s_dbind); |
3583 |
while(V476!=Cnil) |
while(V502!=Cnil) |
3584 |
if(eql(x,V476->c.c_car->c.c_car) &&V476->c.c_car != Cnil){ |
if(eql(x,V502->c.c_car->c.c_car) &&V502->c.c_car != Cnil){ |
3585 |
V474= (V476->c.c_car); |
V500= (V502->c.c_car); |
3586 |
goto T919; |
goto T919; |
3587 |
}else V476=V476->c.c_cdr; |
}else V502=V502->c.c_cdr; |
3588 |
V474= Cnil;} |
V500= Cnil;} |
3589 |
goto T919; |
goto T919; |
3590 |
T919:; |
T919:; |
3591 |
if((CMPcdr((V474)))==Cnil){ |
if((CMPcdr((V500)))==Cnil){ |
3592 |
goto T922;} |
goto T922;} |
3593 |
{object V478; |
{object V504; |
3594 |
V478= CMPcdr(CMPcdr(V474)); |
V504= CMPcdr(CMPcdr(V500)); |
3595 |
{object V479; |
{object V505; |
3596 |
V479= CMPcar(CMPcdr(V474)); |
V505= CMPcar(CMPcdr(V500)); |
3597 |
(V474)->c.c_cdr = (V478); |
(V500)->c.c_cdr = (V504); |
3598 |
V475= (V479); |
V501= (V505); |
3599 |
goto T920;}} |
goto T920;}} |
3600 |
goto T922; |
goto T922; |
3601 |
T922:; |
T922:; |
3604 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
3605 |
Lmake_hash_table(); |
Lmake_hash_table(); |
3606 |
vs_top=sup; |
vs_top=sup; |
3607 |
V475= vs_base[0]; |
V501= vs_base[0]; |
3608 |
goto T920; |
goto T920; |
3609 |
T920:; |
T920:; |
3610 |
{object V482; |
{object V508; |
3611 |
register object V483; |
register object V509; |
3612 |
object V484; |
object V510; |
3613 |
object V485; |
object V511; |
3614 |
object V486; |
object V512; |
3615 |
object V487; |
object V513; |
3616 |
base[6]= (V470); |
base[6]= (V496); |
3617 |
base[7]= (V471); |
base[7]= (V497); |
3618 |
base[8]= (V475); |
base[8]= (V501); |
3619 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3620 |
(void) (*Lnk235)(); |
(void) (*Lnk235)(); |
3621 |
if(vs_base>=vs_top){vs_top=sup;goto T935;} |
if(vs_base>=vs_top){vs_top=sup;goto T935;} |
3622 |
V482= vs_base[0]; |
V508= vs_base[0]; |
3623 |
vs_base++; |
vs_base++; |
3624 |
if(vs_base>=vs_top){vs_top=sup;goto T936;} |
if(vs_base>=vs_top){vs_top=sup;goto T936;} |
3625 |
V483= vs_base[0]; |
V509= vs_base[0]; |
3626 |
vs_base++; |
vs_base++; |
3627 |
if(vs_base>=vs_top){vs_top=sup;goto T937;} |
if(vs_base>=vs_top){vs_top=sup;goto T937;} |
3628 |
V484= vs_base[0]; |
V510= vs_base[0]; |
3629 |
vs_base++; |
vs_base++; |
3630 |
if(vs_base>=vs_top){vs_top=sup;goto T938;} |
if(vs_base>=vs_top){vs_top=sup;goto T938;} |
3631 |
V485= vs_base[0]; |
V511= vs_base[0]; |
3632 |
vs_base++; |
vs_base++; |
3633 |
if(vs_base>=vs_top){vs_top=sup;goto T939;} |
if(vs_base>=vs_top){vs_top=sup;goto T939;} |
3634 |
V486= vs_base[0]; |
V512= vs_base[0]; |
3635 |
vs_base++; |
vs_base++; |
3636 |
if(vs_base>=vs_top){vs_top=sup;goto T940;} |
if(vs_base>=vs_top){vs_top=sup;goto T940;} |
3637 |
V487= vs_base[0]; |
V513= vs_base[0]; |
3638 |
vs_top=sup; |
vs_top=sup; |
3639 |
goto T941; |
goto T941; |
3640 |
goto T935; |
goto T935; |
3641 |
T935:; |
T935:; |
3642 |
V482= Cnil; |
V508= Cnil; |
3643 |
goto T936; |
goto T936; |
3644 |
T936:; |
T936:; |
3645 |
V483= Cnil; |
V509= Cnil; |
3646 |
goto T937; |
goto T937; |
3647 |
T937:; |
T937:; |
3648 |
V484= Cnil; |
V510= Cnil; |
3649 |
goto T938; |
goto T938; |
3650 |
T938:; |
T938:; |
3651 |
V485= Cnil; |
V511= Cnil; |
3652 |
goto T939; |
goto T939; |
3653 |
T939:; |
T939:; |
3654 |
V486= Cnil; |
V512= Cnil; |
3655 |
goto T940; |
goto T940; |
3656 |
T940:; |
T940:; |
3657 |
V487= Cnil; |
V513= Cnil; |
3658 |
goto T941; |
goto T941; |
3659 |
T941:; |
T941:; |
3660 |
if(((V482))==Cnil){ |
if(((V508))==Cnil){ |
3661 |
goto T943;} |
goto T943;} |
3662 |
if(!(number_compare((V486),small_fixnum(1))==0)){ |
if(!(number_compare((V512),small_fixnum(1))==0)){ |
3663 |
goto T946;} |
goto T946;} |
3664 |
{object V488; |
{object V514; |
3665 |
base[6]= (V484); |
base[6]= (V510); |
3666 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3667 |
(void) (*Lnk236)(Lclptr236); |
(void) (*Lnk236)(Lclptr236); |
3668 |
vs_top=sup; |
vs_top=sup; |
3669 |
V488= vs_base[0]; |
V514= vs_base[0]; |
3670 |
base[6]= (V470); |
base[6]= (V496); |
3671 |
base[7]= (V471); |
base[7]= (V497); |
3672 |
base[8]= (V488); |
base[8]= (V514); |
3673 |
base[9]= (V483); |
base[9]= (V509); |
3674 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
3675 |
(void) (*Lnk232)(); |
(void) (*Lnk232)(); |
3676 |
goto T930;} |
goto T930;} |
3677 |
goto T946; |
goto T946; |
3678 |
T946:; |
T946:; |
3679 |
if(!(number_compare((V486),small_fixnum(2))==0)){ |
if(!(number_compare((V512),small_fixnum(2))==0)){ |
3680 |
goto T955;} |
goto T955;} |
3681 |
if(type_of((V483))==t_fixnum||type_of((V483))==t_bignum){ |
if(type_of((V509))==t_fixnum||type_of((V509))==t_bignum){ |
3682 |
goto T954;} |
goto T954;} |
3683 |
if(!(type_of((V483))==t_cons)){ |
if(!(type_of((V509))==t_cons)){ |
3684 |
goto T955;} |
goto T955;} |
3685 |
goto T954; |
goto T954; |
3686 |
T954:; |
T954:; |
3687 |
{object V489; |
{object V515; |
3688 |
object V490; |
object V516; |
3689 |
base[6]= (V484); |
base[6]= (V510); |
3690 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3691 |
(void) (*Lnk236)(Lclptr236); |
(void) (*Lnk236)(Lclptr236); |
3692 |
vs_top=sup; |
vs_top=sup; |
3693 |
V489= vs_base[0]; |
V515= vs_base[0]; |
3694 |
base[6]= (V485); |
base[6]= (V511); |
3695 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3696 |
(void) (*Lnk236)(Lclptr236); |
(void) (*Lnk236)(Lclptr236); |
3697 |
vs_top=sup; |
vs_top=sup; |
3698 |
V490= vs_base[0]; |
V516= vs_base[0]; |
3699 |
base[6]= (V470); |
base[6]= (V496); |
3700 |
base[7]= (V471); |
base[7]= (V497); |
3701 |
base[8]= (V489); |
base[8]= (V515); |
3702 |
base[9]= (V490); |
base[9]= (V516); |
3703 |
base[10]= (V483); |
base[10]= (V509); |
3704 |
vs_top=(vs_base=base+6)+5; |
vs_top=(vs_base=base+6)+5; |
3705 |
(void) (*Lnk237)(); |
(void) (*Lnk237)(); |
3706 |
goto T930;} |
goto T930;} |
3707 |
goto T955; |
goto T955; |
3708 |
T955:; |
T955:; |
3709 |
if(type_of((V483))==t_fixnum||type_of((V483))==t_bignum){ |
if(type_of((V509))==t_fixnum||type_of((V509))==t_bignum){ |
3710 |
goto T970;} |
goto T970;} |
3711 |
if(!(type_of((V483))==t_cons)){ |
if(!(type_of((V509))==t_cons)){ |
3712 |
goto T971;} |
goto T971;} |
3713 |
goto T970; |
goto T970; |
3714 |
T970:; |
T970:; |
3715 |
base[6]= (V470); |
base[6]= (V496); |
3716 |
base[7]= (V471); |
base[7]= (V497); |
3717 |
base[8]= (V483); |
base[8]= (V509); |
3718 |
base[9]= (V482); |
base[9]= (V508); |
3719 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
3720 |
(void) (*Lnk238)(); |
(void) (*Lnk238)(); |
3721 |
goto T930; |
goto T930; |
3722 |
goto T971; |
goto T971; |
3723 |
T971:; |
T971:; |
3724 |
if(((V487))==Cnil){ |
if(((V513))==Cnil){ |
3725 |
goto T980;} |
goto T980;} |
3726 |
base[6]= (V470); |
base[6]= (V496); |
3727 |
base[7]= (V471); |
base[7]= (V497); |
3728 |
base[8]= (V482); |
base[8]= (V508); |
3729 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3730 |
(void) (*Lnk239)(); |
(void) (*Lnk239)(); |
3731 |
goto T930; |
goto T930; |
3732 |
goto T980; |
goto T980; |
3733 |
T980:; |
T980:; |
3734 |
base[6]= (V470); |
base[6]= (V496); |
3735 |
base[7]= (V472); |
base[7]= (V498); |
3736 |
base[8]= (V473); |
base[8]= (V499); |
3737 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3738 |
(void) (*Lnk240)(); |
(void) (*Lnk240)(); |
3739 |
goto T930; |
goto T930; |
3740 |
goto T943; |
goto T943; |
3741 |
T943:; |
T943:; |
3742 |
base[6]= (V470); |
base[6]= (V496); |
3743 |
base[7]= (V472); |
base[7]= (V498); |
3744 |
base[8]= (V473); |
base[8]= (V499); |
3745 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3746 |
(void) (*Lnk240)();} |
(void) (*Lnk240)();} |
3747 |
goto T930; |
goto T930; |
3748 |
T930:; |
T930:; |
3749 |
{object *V481=vs_top;object *V480=vs_base; vs_base=V481; |
{object *V507=vs_top;object *V506=vs_base; vs_base=V507; |
3750 |
{register object *base0=base; |
{register object *base0=base; |
3751 |
{register object *base=V481; |
{register object *base=V507; |
3752 |
register object *sup=vs_base+VM79; |
register object *sup=vs_base+VM79; |
3753 |
base0[0]=base0[0]; |
base0[0]=base0[0]; |
3754 |
base[0]=base[0]; |
base[0]=base[0]; |
3755 |
vs_check; |
vs_check; |
3756 |
vs_top=sup; |
vs_top=sup; |
3757 |
base[0]= (V475); |
base[0]= (V501); |
3758 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3759 |
Lclrhash(); |
Lclrhash(); |
3760 |
vs_top=sup; |
vs_top=sup; |
3761 |
}} |
}} |
3762 |
{register object *base0=base; |
{register object *base0=base; |
3763 |
{register object *base=V481; |
{register object *base=V507; |
3764 |
register object *sup=vs_base+VM80; |
register object *sup=vs_base+VM80; |
3765 |
base0[0]=base0[0]; |
base0[0]=base0[0]; |
3766 |
base[0]=base[0]; |
base[0]=base[0]; |
3767 |
vs_check; |
vs_check; |
3768 |
vs_top=sup; |
vs_top=sup; |
3769 |
{object V493; |
{object V519; |
3770 |
V493= make_cons(V475,CMPcdr(V474)); |
V519= make_cons(V501,CMPcdr(V500)); |
3771 |
(V474)->c.c_cdr = (V493);} |
(V500)->c.c_cdr = (V519);} |
3772 |
}} |
}} |
3773 |
vs_base=V480;vs_top=V481;} |
vs_base=V506;vs_top=V507;} |
3774 |
return;} |
return;} |
3775 |
} |
} |
3776 |
} |
} |
3781 |
register object *sup=base+VM81; VC81 |
register object *sup=base+VM81; VC81 |
3782 |
vs_check; |
vs_check; |
3783 |
bds_check; |
bds_check; |
3784 |
{register object V494; |
{register object V520; |
3785 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
3786 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
3787 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
3788 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
3789 |
if(vs_base>=vs_top){vs_top=sup;goto T996;} |
if(vs_base>=vs_top){vs_top=sup;goto T996;} |
3790 |
V494=(base[1]); |
V520=(base[1]); |
3791 |
vs_top=sup; |
vs_top=sup; |
3792 |
goto T997; |
goto T997; |
3793 |
goto T996; |
goto T996; |
3794 |
T996:; |
T996:; |
3795 |
V494= Cnil; |
V520= Cnil; |
3796 |
goto T997; |
goto T997; |
3797 |
T997:; |
T997:; |
3798 |
{register object V495; |
{register object V521; |
3799 |
object V496; |
object V522; |
3800 |
register object V497; |
register object V523; |
3801 |
object V498; |
object V524; |
3802 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3803 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3804 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk199)(Lclptr199); |
3805 |
vs_top=sup; |
vs_top=sup; |
3806 |
V495= vs_base[0]; |
V521= vs_base[0]; |
3807 |
V496= Cnil; |
V522= Cnil; |
3808 |
V497= (VV[124]->s.s_dbind); |
V523= (VV[124]->s.s_dbind); |
3809 |
bds_bind(VV[124],Cnil); |
bds_bind(VV[124],Cnil); |
3810 |
base[3]=MMcons(Cnil,base[0]); |
base[3]=MMcons(Cnil,base[0]); |
3811 |
V498= Cnil; |
V524= Cnil; |
3812 |
if(((V495))!=Cnil){ |
if(((V521))!=Cnil){ |
3813 |
goto T1002;} |
goto T1002;} |
3814 |
base[4]= |
base[4]= |
3815 |
make_cclosure_new(LC158,Cnil,base[3],Cdata); |
make_cclosure_new(LC158,Cnil,base[3],Cdata); |
3820 |
return; |
return; |
3821 |
goto T1002; |
goto T1002; |
3822 |
T1002:; |
T1002:; |
3823 |
V496= (*(LnkLI227))((base[0]->c.c_car)); |
V522= (*(LnkLI227))((base[0]->c.c_car)); |
3824 |
if(((V496))==Cnil){ |
if(((V522))==Cnil){ |
3825 |
goto T1008;} |
goto T1008;} |
3826 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3827 |
base[5]= (V496); |
base[5]= (V522); |
3828 |
base[6]= (V494); |
base[6]= (V520); |
3829 |
base[7]= (V497); |
base[7]= (V523); |
3830 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
3831 |
(void) (*Lnk229)(); |
(void) (*Lnk229)(); |
3832 |
bds_unwind1; |
bds_unwind1; |
3835 |
T1008:; |
T1008:; |
3836 |
base[4]= |
base[4]= |
3837 |
make_cclosure_new(LC159,Cnil,base[3],Cdata); |
make_cclosure_new(LC159,Cnil,base[3],Cdata); |
3838 |
base[6]= CMPcar((V495)); |
base[6]= CMPcar((V521)); |
3839 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3840 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk242)(Lclptr242); |
3841 |
vs_top=sup; |
vs_top=sup; |
3848 |
goto T1017;} |
goto T1017;} |
3849 |
base[4]= |
base[4]= |
3850 |
make_cclosure_new(LC160,Cnil,base[3],Cdata); |
make_cclosure_new(LC160,Cnil,base[3],Cdata); |
3851 |
base[5]= (V495); |
base[5]= (V521); |
3852 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3853 |
(void) (*Lnk188)(); |
(void) (*Lnk188)(); |
3854 |
vs_top=sup; |
vs_top=sup; |
3855 |
V498= vs_base[0]; |
V524= vs_base[0]; |
3856 |
if(((V498))!=Cnil){ |
if(((V524))!=Cnil){ |
3857 |
goto T1016;} |
goto T1016;} |
3858 |
goto T1017; |
goto T1017; |
3859 |
T1017:; |
T1017:; |
3860 |
if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){ |
3861 |
goto T1016;} |
goto T1016;} |
3862 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3863 |
base[5]= (V494); |
base[5]= (V520); |
3864 |
base[6]= (V497); |
base[6]= (V523); |
3865 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3866 |
(void) (*Lnk243)(); |
(void) (*Lnk243)(); |
3867 |
bds_unwind1; |
bds_unwind1; |
3877 |
return; |
return; |
3878 |
goto T1033; |
goto T1033; |
3879 |
T1033:; |
T1033:; |
3880 |
if(((V498))==Cnil){ |
if(((V524))==Cnil){ |
3881 |
goto T1037;} |
goto T1037;} |
3882 |
if(((*(LnkLI183))((base[0]->c.c_car)))!=Cnil){ |
if(((*(LnkLI183))((base[0]->c.c_car)))!=Cnil){ |
3883 |
goto T1037;} |
goto T1037;} |
3884 |
{object V499; |
{object V525; |
3885 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3886 |
base[5]= (V495); |
base[5]= (V521); |
3887 |
base[6]= Cnil; |
base[6]= Cnil; |
3888 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3889 |
(void) (*Lnk245)(); |
(void) (*Lnk245)(); |
3890 |
vs_top=sup; |
vs_top=sup; |
3891 |
V499= vs_base[0]; |
V525= vs_base[0]; |
3892 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3893 |
base[5]= (V499); |
base[5]= (V525); |
3894 |
base[6]= (V494); |
base[6]= (V520); |
3895 |
base[7]= (V497); |
base[7]= (V523); |
3896 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
3897 |
(void) (*Lnk246)(); |
(void) (*Lnk246)(); |
3898 |
bds_unwind1; |
bds_unwind1; |
3900 |
goto T1037; |
goto T1037; |
3901 |
T1037:; |
T1037:; |
3902 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3903 |
base[5]= (V494); |
base[5]= (V520); |
3904 |
base[6]= (V497); |
base[6]= (V523); |
3905 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3906 |
(void) (*Lnk240)(); |
(void) (*Lnk240)(); |
3907 |
bds_unwind1; |
bds_unwind1; |
3915 |
register object *sup=base+VM82; VC82 |
register object *sup=base+VM82; VC82 |
3916 |
vs_check; |
vs_check; |
3917 |
bds_check; |
bds_check; |
3918 |
{object V500; |
{object V526; |
3919 |
register object V501; |
register object V527; |
3920 |
register object V502; |
register object V528; |
3921 |
check_arg(4); |
check_arg(4); |
3922 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
3923 |
V500=(base[1]); |
V526=(base[1]); |
3924 |
V501=(base[2]); |
V527=(base[2]); |
3925 |
V502=(base[3]); |
V528=(base[3]); |
3926 |
vs_top=sup; |
vs_top=sup; |
3927 |
{object V503; |
{object V529; |
3928 |
object V504; |
object V530; |
3929 |
register object V505; |
register object V531; |
3930 |
register object V506; |
register object V532; |
3931 |
object V507; |
object V533; |
3932 |
object V508; |
object V534; |
3933 |
base[8]= (V502); |
base[8]= (V528); |
3934 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
3935 |
Ltype_of(); |
Ltype_of(); |
3936 |
vs_top=sup; |
vs_top=sup; |
3937 |
V503= vs_base[0]; |
V529= vs_base[0]; |
3938 |
V504= STREF(object,(V502),4); |
V530= STREF(object,(V528),4); |
3939 |
V505= Cnil; |
V531= Cnil; |
3940 |
V506= Cnil; |
V532= Cnil; |
3941 |
V507= Cnil; |
V533= Cnil; |
3942 |
base[6]= Cnil; |
base[6]= Cnil; |
3943 |
{object V509= (V504); |
{object V535= (V530); |
3944 |
if((V509!= VV[51]))goto T1059; |
if((V535!= VV[51]))goto T1059; |
3945 |
V508= make_cons((V501),Cnil); |
V534= make_cons((V527),Cnil); |
3946 |
goto T1058; |
goto T1058; |
3947 |
goto T1059; |
goto T1059; |
3948 |
T1059:; |
T1059:; |
3949 |
if((V509!= VV[123]))goto T1060; |
if((V535!= VV[123]))goto T1060; |
3950 |
V508= list(2,(V500),(V501)); |
V534= list(2,(V526),(V527)); |
3951 |
goto T1058; |
goto T1058; |
3952 |
goto T1060; |
goto T1060; |
3953 |
T1060:; |
T1060:; |
3954 |
FEerror("The ECASE key value ~s is illegal.",1,V509); |
FEerror("The ECASE key value ~s is illegal.",1,V535); |
3955 |
V508= Cnil; |
V534= Cnil; |
3956 |
goto T1058;} |
goto T1058;} |
3957 |
goto T1058; |
goto T1058; |
3958 |
T1058:; |
T1058:; |
3959 |
{object V510; |
{object V536; |
3960 |
object V511; |
object V537; |
3961 |
base[12]= (base[0]->c.c_car); |
base[12]= (base[0]->c.c_car); |
3962 |
base[13]= (V508); |
base[13]= (V534); |
3963 |
base[14]= VV[86]; |
base[14]= VV[86]; |
3964 |
vs_top=(vs_base=base+12)+3; |
vs_top=(vs_base=base+12)+3; |
3965 |
(void) (*Lnk85)(); |
(void) (*Lnk85)(); |
3967 |
base[8]=MMcons(vs_base[0],base[0]); |
base[8]=MMcons(vs_base[0],base[0]); |
3968 |
vs_base++; |
vs_base++; |
3969 |
if(vs_base>=vs_top){vs_top=sup;goto T1066;} |
if(vs_base>=vs_top){vs_top=sup;goto T1066;} |
3970 |
V510= vs_base[0]; |
V536= vs_base[0]; |
3971 |
vs_base++; |
vs_base++; |
3972 |
if(vs_base>=vs_top){vs_top=sup;goto T1067;} |
if(vs_base>=vs_top){vs_top=sup;goto T1067;} |
3973 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
3974 |
vs_base++; |
vs_base++; |
3975 |
if(vs_base>=vs_top){vs_top=sup;goto T1068;} |
if(vs_base>=vs_top){vs_top=sup;goto T1068;} |
3976 |
V511= vs_base[0]; |
V537= vs_base[0]; |
3977 |
vs_base++; |
vs_base++; |
3978 |
if(vs_base>=vs_top){vs_top=sup;goto T1069;} |
if(vs_base>=vs_top){vs_top=sup;goto T1069;} |
3979 |
base[10]=MMcons(vs_base[0],base[8]); |
base[10]=MMcons(vs_base[0],base[8]); |
3987 |
base[8]=MMcons(Cnil,base[0]); |
base[8]=MMcons(Cnil,base[0]); |
3988 |
goto T1066; |
goto T1066; |
3989 |
T1066:; |
T1066:; |
3990 |
V510= Cnil; |
V536= Cnil; |
3991 |
goto T1067; |
goto T1067; |
3992 |
T1067:; |
T1067:; |
3993 |
base[9]= Cnil; |
base[9]= Cnil; |
3994 |
goto T1068; |
goto T1068; |
3995 |
T1068:; |
T1068:; |
3996 |
V511= Cnil; |
V537= Cnil; |
3997 |
goto T1069; |
goto T1069; |
3998 |
T1069:; |
T1069:; |
3999 |
base[10]=MMcons(Cnil,base[8]); |
base[10]=MMcons(Cnil,base[8]); |
4002 |
base[11]=MMcons(Cnil,base[10]); |
base[11]=MMcons(Cnil,base[10]); |
4003 |
goto T1071; |
goto T1071; |
4004 |
T1071:; |
T1071:; |
4005 |
if(((V510))==Cnil){ |
if(((V536))==Cnil){ |
4006 |
goto T1072;} |
goto T1072;} |
4007 |
{register object x= (base[0]->c.c_car),V512= (VV[91]->s.s_dbind); |
{register object x= (base[0]->c.c_car),V538= (VV[91]->s.s_dbind); |
4008 |
while(V512!=Cnil) |
while(V538!=Cnil) |
4009 |
if(x==(V512->c.c_car)){ |
if(x==(V538->c.c_car)){ |
4010 |
goto T1072; |
goto T1072; |
4011 |
}else V512=V512->c.c_cdr;} |
}else V538=V538->c.c_cdr;} |
4012 |
base[12]= make_cons((base[0]->c.c_car),(VV[91]->s.s_dbind)); |
base[12]= make_cons((base[0]->c.c_car),(VV[91]->s.s_dbind)); |
4013 |
bds_bind(VV[91],base[12]); |
bds_bind(VV[91],base[12]); |
4014 |
base[13]=make_cclosure_new(LC84,Cnil,base[11],Cdata); |
base[13]=make_cclosure_new(LC84,Cnil,base[11],Cdata); |
4024 |
goto T1072; |
goto T1072; |
4025 |
goto T1079; |
goto T1079; |
4026 |
T1079:; |
T1079:; |
4027 |
{object V513; |
{object V539; |
4028 |
if((V511)!=Cnil){ |
if((V537)!=Cnil){ |
4029 |
V513= (V511); |
V539= (V537); |
4030 |
goto T1081;} |
goto T1081;} |
4031 |
V513= (((base[11]->c.c_car))==Cnil?Ct:Cnil); |
V539= (((base[11]->c.c_car))==Cnil?Ct:Cnil); |
4032 |
goto T1081; |
goto T1081; |
4033 |
T1081:; |
T1081:; |
4034 |
if(((V513))==Cnil){ |
if(((V539))==Cnil){ |
4035 |
goto T1083;} |
goto T1083;} |
4036 |
bds_unwind1; |
bds_unwind1; |
4037 |
goto T1072; |
goto T1072; |
4038 |
goto T1083; |
goto T1083; |
4039 |
T1083:; |
T1083:; |
4040 |
if(type_of(V501)==t_structure){ |
if(type_of(V527)==t_structure){ |
4041 |
goto T1089;} |
goto T1089;} |
4042 |
goto T1088; |
goto T1088; |
4043 |
goto T1089; |
goto T1089; |
4044 |
T1089:; |
T1089:; |
4045 |
if(((V501)->str.str_def)==(VV[126])){ |
if(((V527)->str.str_def)==(VV[126])){ |
4046 |
goto T1086;} |
goto T1086;} |
4047 |
goto T1088; |
goto T1088; |
4048 |
T1088:;{object V515; |
T1088:;{object V541; |
4049 |
V515= (VV[65]->s.s_dbind); |
V541= (VV[65]->s.s_dbind); |
4050 |
base[15]= small_fixnum(14); |
base[15]= small_fixnum(14); |
4051 |
base[16]= (V501); |
base[16]= (V527); |
4052 |
vs_top=(vs_base=base+15)+2; |
vs_top=(vs_base=base+15)+2; |
4053 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
4054 |
vs_top=sup; |
vs_top=sup; |
4055 |
V516= vs_base[0]; |
V542= vs_base[0]; |
4056 |
if((V515)==(CMPcar(V516))){ |
if((V541)==(CMPcar(V542))){ |
4057 |
goto T1086;}} |
goto T1086;}} |
4058 |
vs_base=vs_top; |
vs_base=vs_top; |
4059 |
L86(base); |
L86(base); |
4062 |
goto T1072; |
goto T1072; |
4063 |
goto T1086; |
goto T1086; |
4064 |
T1086:; |
T1086:; |
4065 |
if(((((base[10]->c.c_car))==((V504))?Ct:Cnil))==Cnil){ |
if(((((base[10]->c.c_car))==((V530))?Ct:Cnil))==Cnil){ |
4066 |
goto T1095;} |
goto T1095;} |
4067 |
if(!(type_of(base[9])==t_cons||(base[9])==Cnil)){ |
if(!(type_of(base[9])==t_cons||(base[9])==Cnil)){ |
4068 |
goto T1096;} |
goto T1096;} |
4075 |
goto T1072; |
goto T1072; |
4076 |
goto T1096; |
goto T1096; |
4077 |
T1096:; |
T1096:; |
4078 |
{object V517= (V503); |
{object V543= (V529); |
4079 |
if((V517!= VV[40]))goto T1100; |
if((V543!= VV[40]))goto T1100; |
4080 |
V505= STREF(object,(V502),8); |
V531= STREF(object,(V528),8); |
4081 |
V506= STREF(object,(V502),12); |
V532= STREF(object,(V528),12); |
4082 |
if(((V506))==(base[9])){ |
if(((V532))==(base[9])){ |
4083 |
bds_unwind1; |
bds_unwind1; |
4084 |
goto T1072;} |
goto T1072;} |
4085 |
if(!(eql((base[11]->c.c_car),(V505)))){ |
if(!(eql((base[11]->c.c_car),(V531)))){ |
4086 |
goto T1108;} |
goto T1108;} |
4087 |
base[15]= (base[11]->c.c_car); |
base[15]= (base[11]->c.c_car); |
4088 |
base[16]= (V506); |
base[16]= (V532); |
4089 |
base[17]= base[9]; |
base[17]= base[9]; |
4090 |
vs_top=(vs_base=base+15)+3; |
vs_top=(vs_base=base+15)+3; |
4091 |
L83(base); |
L83(base); |
4101 |
goto T1072; |
goto T1072; |
4102 |
goto T1100; |
goto T1100; |
4103 |
T1100:; |
T1100:; |
4104 |
if((V517!= VV[42]))goto T1113; |
if((V543!= VV[42]))goto T1113; |
4105 |
V505= STREF(object,(V502),8); |
V531= STREF(object,(V528),8); |
4106 |
V506= STREF(object,(V502),12); |
V532= STREF(object,(V528),12); |
4107 |
V507= STREF(object,(V502),16); |
V533= STREF(object,(V528),16); |
4108 |
if(((V506))==(base[9])){ |
if(((V532))==(base[9])){ |
4109 |
bds_unwind1; |
bds_unwind1; |
4110 |
goto T1072;} |
goto T1072;} |
4111 |
if(((V507))==(base[9])){ |
if(((V533))==(base[9])){ |
4112 |
bds_unwind1; |
bds_unwind1; |
4113 |
goto T1072;} |
goto T1072;} |
4114 |
if(!(eql((base[11]->c.c_car),(V505)))){ |
if(!(eql((base[11]->c.c_car),(V531)))){ |
4115 |
goto T1125;} |
goto T1125;} |
4116 |
base[15]= (base[11]->c.c_car); |
base[15]= (base[11]->c.c_car); |
4117 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
4128 |
goto T1072; |
goto T1072; |
4129 |
goto T1113; |
goto T1113; |
4130 |
T1113:; |
T1113:; |
4131 |
if((V517!= VV[44]))goto T1128; |
if((V543!= VV[44]))goto T1128; |
4132 |
V505= STREF(object,(V502),8); |
V531= STREF(object,(V528),8); |
4133 |
base[6]= STREF(object,(V502),0); |
base[6]= STREF(object,(V528),0); |
4134 |
if(!(eql((base[11]->c.c_car),(V505)))){ |
if(!(eql((base[11]->c.c_car),(V531)))){ |
4135 |
goto T1134;} |
goto T1134;} |
4136 |
base[15]= |
base[15]= |
4137 |
make_cclosure_new(LC161,Cnil,base[14],Cdata); |
make_cclosure_new(LC161,Cnil,base[14],Cdata); |
4149 |
goto T1072; |
goto T1072; |
4150 |
goto T1128; |
goto T1128; |
4151 |
T1128:; |
T1128:; |
4152 |
if((V517!= VV[39]))goto T1137; |
if((V543!= VV[39]))goto T1137; |
4153 |
base[6]= STREF(object,(V502),0); |
base[6]= STREF(object,(V528),0); |
4154 |
if(!(type_of((base[11]->c.c_car))==t_cons)){ |
if(!(type_of((base[11]->c.c_car))==t_cons)){ |
4155 |
goto T1141;} |
goto T1141;} |
4156 |
vs_base=vs_top; |
vs_base=vs_top; |
4168 |
goto T1072; |
goto T1072; |
4169 |
goto T1137; |
goto T1137; |
4170 |
T1137:; |
T1137:; |
4171 |
FEerror("The ECASE key value ~s is illegal.",1,V517); |
FEerror("The ECASE key value ~s is illegal.",1,V543); |
4172 |
bds_unwind1; |
bds_unwind1; |
4173 |
goto T1072;}} |
goto T1072;}} |
4174 |
goto T1072; |
goto T1072; |
4175 |
T1072:; |
T1072:; |
4176 |
base[12]= (base[8]->c.c_car); |
base[12]= (base[8]->c.c_car); |
4177 |
base[13]= (V508); |
base[13]= (V534); |
4178 |
vs_top=(vs_base=base+12)+2; |
vs_top=(vs_base=base+12)+2; |
4179 |
(void) (*Lnk94)(); |
(void) (*Lnk94)(); |
4180 |
return;}} |
return;}} |
4187 |
register object *sup=base+VM83; VC83 |
register object *sup=base+VM83; VC83 |
4188 |
vs_check; |
vs_check; |
4189 |
bds_check; |
bds_check; |
4190 |
{register object V518; |
{register object V544; |
4191 |
object V519; |
object V545; |
4192 |
object V520; |
object V546; |
4193 |
check_arg(3); |
check_arg(3); |
4194 |
V518=(base[0]); |
V544=(base[0]); |
4195 |
V519=(base[1]); |
V545=(base[1]); |
4196 |
V520=(base[2]); |
V546=(base[2]); |
4197 |
vs_top=sup; |
vs_top=sup; |
4198 |
goto TTL; |
goto TTL; |
4199 |
TTL:; |
TTL:; |
4200 |
{object V521; |
{object V547; |
4201 |
object V522; |
object V548; |
4202 |
V521= STREF(object,(V520),4); |
V547= STREF(object,(V546),4); |
4203 |
V522= STREF(object,(V520),0); |
V548= STREF(object,(V546),0); |
4204 |
{object V523; |
{object V549; |
4205 |
object V524; |
object V550; |
4206 |
object V525; |
object V551; |
4207 |
object V526; |
object V552; |
4208 |
base[3]= (V518); |
base[3]= (V544); |
4209 |
base[4]= (V519); |
base[4]= (V545); |
4210 |
base[5]= VV[12]; |
base[5]= VV[12]; |
4211 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4212 |
(void) (*Lnk85)(); |
(void) (*Lnk85)(); |
4213 |
if(vs_base>=vs_top){vs_top=sup;goto T1152;} |
if(vs_base>=vs_top){vs_top=sup;goto T1152;} |
4214 |
V523= vs_base[0]; |
V549= vs_base[0]; |
4215 |
vs_base++; |
vs_base++; |
4216 |
if(vs_base>=vs_top){vs_top=sup;goto T1153;} |
if(vs_base>=vs_top){vs_top=sup;goto T1153;} |
4217 |
V524= vs_base[0]; |
V550= vs_base[0]; |
4218 |
vs_base++; |
vs_base++; |
4219 |
if(vs_base>=vs_top){vs_top=sup;goto T1154;} |
if(vs_base>=vs_top){vs_top=sup;goto T1154;} |
4220 |
V525= vs_base[0]; |
V551= vs_base[0]; |
4221 |
vs_base++; |
vs_base++; |
4222 |
if(vs_base>=vs_top){vs_top=sup;goto T1155;} |
if(vs_base>=vs_top){vs_top=sup;goto T1155;} |
4223 |
V526= vs_base[0]; |
V552= vs_base[0]; |
4224 |
vs_top=sup; |
vs_top=sup; |
4225 |
goto T1156; |
goto T1156; |
4226 |
goto T1152; |
goto T1152; |
4227 |
T1152:; |
T1152:; |
4228 |
V523= Cnil; |
V549= Cnil; |
4229 |
goto T1153; |
goto T1153; |
4230 |
T1153:; |
T1153:; |
4231 |
V524= Cnil; |
V550= Cnil; |
4232 |
goto T1154; |
goto T1154; |
4233 |
T1154:; |
T1154:; |
4234 |
V525= Cnil; |
V551= Cnil; |
4235 |
goto T1155; |
goto T1155; |
4236 |
T1155:; |
T1155:; |
4237 |
V526= Cnil; |
V552= Cnil; |
4238 |
goto T1156; |
goto T1156; |
4239 |
T1156:; |
T1156:; |
4240 |
if(((V524))==Cnil){ |
if(((V550))==Cnil){ |
4241 |
goto T1157;} |
goto T1157;} |
4242 |
{register object x= (V518),V527= (VV[91]->s.s_dbind); |
{register object x= (V544),V553= (VV[91]->s.s_dbind); |
4243 |
while(V527!=Cnil) |
while(V553!=Cnil) |
4244 |
if(x==(V527->c.c_car)){ |
if(x==(V553->c.c_car)){ |
4245 |
goto T1157; |
goto T1157; |
4246 |
}else V527=V527->c.c_cdr;} |
}else V553=V553->c.c_cdr;} |
4247 |
base[3]= make_cons((V518),(VV[91]->s.s_dbind)); |
base[3]= make_cons((V544),(VV[91]->s.s_dbind)); |
4248 |
bds_bind(VV[91],base[3]); |
bds_bind(VV[91],base[3]); |
4249 |
if((V526)==Cnil){ |
if((V552)==Cnil){ |
4250 |
goto T1164;} |
goto T1164;} |
4251 |
bds_unwind1; |
bds_unwind1; |
4252 |
goto T1157; |
goto T1157; |
4253 |
goto T1164; |
goto T1164; |
4254 |
T1164:; |
T1164:; |
4255 |
if(!(((V521))==((V523)))){ |
if(!(((V547))==((V549)))){ |
4256 |
goto T1167;} |
goto T1167;} |
4257 |
{object V529; |
{object V555; |
4258 |
V529= (VFUN_NARGS=3,(*(LnkLI247))((V522),(V525),Cnil)); |
V555= (VFUN_NARGS=3,(*(LnkLI247))((V548),(V551),Cnil)); |
4259 |
if(((V529))==((V522))){ |
if(((V555))==((V548))){ |
4260 |
bds_unwind1; |
bds_unwind1; |
4261 |
goto T1157;} |
goto T1157;} |
4262 |
{object V530; |
{object V556; |
4263 |
object V531; |
object V557; |
4264 |
object V532; |
object V558; |
4265 |
base[4]= (V518); |
base[4]= (V544); |
4266 |
base[5]= (V523); |
base[5]= (V549); |
4267 |
base[6]= (V529); |
base[6]= (V555); |
4268 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4269 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
4270 |
if(vs_base>=vs_top){vs_top=sup;goto T1176;} |
if(vs_base>=vs_top){vs_top=sup;goto T1176;} |
4271 |
V530= vs_base[0]; |
V556= vs_base[0]; |
4272 |
vs_base++; |
vs_base++; |
4273 |
if(vs_base>=vs_top){vs_top=sup;goto T1177;} |
if(vs_base>=vs_top){vs_top=sup;goto T1177;} |
4274 |
V531= vs_base[0]; |
V557= vs_base[0]; |
4275 |
vs_base++; |
vs_base++; |
4276 |
if(vs_base>=vs_top){vs_top=sup;goto T1178;} |
if(vs_base>=vs_top){vs_top=sup;goto T1178;} |
4277 |
V532= vs_base[0]; |
V558= vs_base[0]; |
4278 |
vs_top=sup; |
vs_top=sup; |
4279 |
goto T1179; |
goto T1179; |
4280 |
goto T1176; |
goto T1176; |
4281 |
T1176:; |
T1176:; |
4282 |
V530= Cnil; |
V556= Cnil; |
4283 |
goto T1177; |
goto T1177; |
4284 |
T1177:; |
T1177:; |
4285 |
V531= Cnil; |
V557= Cnil; |
4286 |
goto T1178; |
goto T1178; |
4287 |
T1178:; |
T1178:; |
4288 |
V532= Cnil; |
V558= Cnil; |
4289 |
goto T1179; |
goto T1179; |
4290 |
T1179:; |
T1179:; |
4291 |
V533= (VFUN_NARGS=4,(*(LnkLI49))((V518),(V530),(V531),(V532))); |
V559= (VFUN_NARGS=4,(*(LnkLI49))((V544),(V556),(V557),(V558))); |
4292 |
bds_unwind1; |
bds_unwind1; |
4293 |
goto T1157;}} |
goto T1157;}} |
4294 |
goto T1167; |
goto T1167; |
4295 |
T1167:; |
T1167:; |
4296 |
{object V534; |
{object V560; |
4297 |
object V535; |
object V561; |
4298 |
object V536; |
object V562; |
4299 |
base[4]= (V518); |
base[4]= (V544); |
4300 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4301 |
(void) (*Lnk184)(); |
(void) (*Lnk184)(); |
4302 |
if(vs_base>=vs_top){vs_top=sup;goto T1182;} |
if(vs_base>=vs_top){vs_top=sup;goto T1182;} |
4303 |
V534= vs_base[0]; |
V560= vs_base[0]; |
4304 |
vs_base++; |
vs_base++; |
4305 |
if(vs_base>=vs_top){vs_top=sup;goto T1183;} |
if(vs_base>=vs_top){vs_top=sup;goto T1183;} |
4306 |
V535= vs_base[0]; |
V561= vs_base[0]; |
4307 |
vs_base++; |
vs_base++; |
4308 |
if(vs_base>=vs_top){vs_top=sup;goto T1184;} |
if(vs_base>=vs_top){vs_top=sup;goto T1184;} |
4309 |
V536= vs_base[0]; |
V562= vs_base[0]; |
4310 |
vs_top=sup; |
vs_top=sup; |
4311 |
goto T1185; |
goto T1185; |
4312 |
goto T1182; |
goto T1182; |
4313 |
T1182:; |
T1182:; |
4314 |
V534= Cnil; |
V560= Cnil; |
4315 |
goto T1183; |
goto T1183; |
4316 |
T1183:; |
T1183:; |
4317 |
V535= Cnil; |
V561= Cnil; |
4318 |
goto T1184; |
goto T1184; |
4319 |
T1184:; |
T1184:; |
4320 |
V536= Cnil; |
V562= Cnil; |
4321 |
goto T1185; |
goto T1185; |
4322 |
T1185:; |
T1185:; |
4323 |
V537= (VFUN_NARGS=4,(*(LnkLI49))((V518),(V534),(V535),(V536))); |
V563= (VFUN_NARGS=4,(*(LnkLI49))((V544),(V560),(V561),(V562))); |
4324 |
bds_unwind1;} |
bds_unwind1;} |
4325 |
goto T1157; |
goto T1157; |
4326 |
T1157:; |
T1157:; |
4327 |
base[3]= (V523); |
base[3]= (V549); |
4328 |
base[4]= (V519); |
base[4]= (V545); |
4329 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4330 |
(void) (*Lnk94)(); |
(void) (*Lnk94)(); |
4331 |
return;}} |
return;}} |
4338 |
register object *sup=base+VM84; VC84 |
register object *sup=base+VM84; VC84 |
4339 |
vs_check; |
vs_check; |
4340 |
bds_check; |
bds_check; |
4341 |
{register object V538; |
{register object V564; |
4342 |
object V539; |
object V565; |
4343 |
object V540; |
object V566; |
4344 |
check_arg(3); |
check_arg(3); |
4345 |
V538=(base[0]); |
V564=(base[0]); |
4346 |
V539=(base[1]); |
V565=(base[1]); |
4347 |
V540=(base[2]); |
V566=(base[2]); |
4348 |
vs_top=sup; |
vs_top=sup; |
4349 |
goto TTL; |
goto TTL; |
4350 |
TTL:; |
TTL:; |
4351 |
{object V541; |
{object V567; |
4352 |
V541= STREF(object,(V540),0); |
V567= STREF(object,(V566),0); |
4353 |
{object V542; |
{object V568; |
4354 |
object V543; |
object V569; |
4355 |
object V544; |
object V570; |
4356 |
object V545; |
object V571; |
4357 |
base[3]= (V538); |
base[3]= (V564); |
4358 |
base[4]= (V539); |
base[4]= (V565); |
4359 |
base[5]= VV[13]; |
base[5]= VV[13]; |
4360 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4361 |
(void) (*Lnk85)(); |
(void) (*Lnk85)(); |
4362 |
if(vs_base>=vs_top){vs_top=sup;goto T1193;} |
if(vs_base>=vs_top){vs_top=sup;goto T1193;} |
4363 |
V542= vs_base[0]; |
V568= vs_base[0]; |
4364 |
vs_base++; |
vs_base++; |
4365 |
if(vs_base>=vs_top){vs_top=sup;goto T1194;} |
if(vs_base>=vs_top){vs_top=sup;goto T1194;} |
4366 |
V543= vs_base[0]; |
V569= vs_base[0]; |
4367 |
vs_base++; |
vs_base++; |
4368 |
if(vs_base>=vs_top){vs_top=sup;goto T1195;} |
if(vs_base>=vs_top){vs_top=sup;goto T1195;} |
4369 |
V544= vs_base[0]; |
V570= vs_base[0]; |
4370 |
vs_base++; |
vs_base++; |
4371 |
if(vs_base>=vs_top){vs_top=sup;goto T1196;} |
if(vs_base>=vs_top){vs_top=sup;goto T1196;} |
4372 |
V545= vs_base[0]; |
V571= vs_base[0]; |
4373 |
vs_top=sup; |
vs_top=sup; |
4374 |
goto T1197; |
goto T1197; |
4375 |
goto T1193; |
goto T1193; |
4376 |
T1193:; |
T1193:; |
4377 |
V542= Cnil; |
V568= Cnil; |
4378 |
goto T1194; |
goto T1194; |
4379 |
T1194:; |
T1194:; |
4380 |
V543= Cnil; |
V569= Cnil; |
4381 |
goto T1195; |
goto T1195; |
4382 |
T1195:; |
T1195:; |
4383 |
V544= Cnil; |
V570= Cnil; |
4384 |
goto T1196; |
goto T1196; |
4385 |
T1196:; |
T1196:; |
4386 |
V545= Cnil; |
V571= Cnil; |
4387 |
goto T1197; |
goto T1197; |
4388 |
T1197:; |
T1197:; |
4389 |
if(((V543))==Cnil){ |
if(((V569))==Cnil){ |
4390 |
goto T1198;} |
goto T1198;} |
4391 |
{register object x= (V538),V546= (VV[91]->s.s_dbind); |
{register object x= (V564),V572= (VV[91]->s.s_dbind); |
4392 |
while(V546!=Cnil) |
while(V572!=Cnil) |
4393 |
if(x==(V546->c.c_car)){ |
if(x==(V572->c.c_car)){ |
4394 |
goto T1198; |
goto T1198; |
4395 |
}else V546=V546->c.c_cdr;} |
}else V572=V572->c.c_cdr;} |
4396 |
base[3]= make_cons((V538),(VV[91]->s.s_dbind)); |
base[3]= make_cons((V564),(VV[91]->s.s_dbind)); |
4397 |
bds_bind(VV[91],base[3]); |
bds_bind(VV[91],base[3]); |
4398 |
if((V545)==Cnil){ |
if((V571)==Cnil){ |
4399 |
goto T1205;} |
goto T1205;} |
4400 |
bds_unwind1; |
bds_unwind1; |
4401 |
goto T1198; |
goto T1198; |
4402 |
goto T1205; |
goto T1205; |
4403 |
T1205:; |
T1205:; |
4404 |
{object V548; |
{object V574; |
4405 |
V548= (VFUN_NARGS=3,(*(LnkLI247))((V541),(V544),(V542))); |
V574= (VFUN_NARGS=3,(*(LnkLI247))((V567),(V570),(V568))); |
4406 |
if(((V548))==((V541))){ |
if(((V574))==((V567))){ |
4407 |
bds_unwind1; |
bds_unwind1; |
4408 |
goto T1198;} |
goto T1198;} |
4409 |
{object V549; |
{object V575; |
4410 |
object V550; |
object V576; |
4411 |
object V551; |
object V577; |
4412 |
base[4]= (V538); |
base[4]= (V564); |
4413 |
base[5]= (V548); |
base[5]= (V574); |
4414 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4415 |
(void) (*Lnk184)(); |
(void) (*Lnk184)(); |
4416 |
if(vs_base>=vs_top){vs_top=sup;goto T1213;} |
if(vs_base>=vs_top){vs_top=sup;goto T1213;} |
4417 |
V549= vs_base[0]; |
V575= vs_base[0]; |
4418 |
vs_base++; |
vs_base++; |
4419 |
if(vs_base>=vs_top){vs_top=sup;goto T1214;} |
if(vs_base>=vs_top){vs_top=sup;goto T1214;} |
4420 |
V550= vs_base[0]; |
V576= vs_base[0]; |
4421 |
vs_base++; |
vs_base++; |
4422 |
if(vs_base>=vs_top){vs_top=sup;goto T1215;} |
if(vs_base>=vs_top){vs_top=sup;goto T1215;} |
4423 |
V551= vs_base[0]; |
V577= vs_base[0]; |
4424 |
vs_top=sup; |
vs_top=sup; |
4425 |
goto T1216; |
goto T1216; |
4426 |
goto T1213; |
goto T1213; |
4427 |
T1213:; |
T1213:; |
4428 |
V549= Cnil; |
V575= Cnil; |
4429 |
goto T1214; |
goto T1214; |
4430 |
T1214:; |
T1214:; |
4431 |
V550= Cnil; |
V576= Cnil; |
4432 |
goto T1215; |
goto T1215; |
4433 |
T1215:; |
T1215:; |
4434 |
V551= Cnil; |
V577= Cnil; |
4435 |
goto T1216; |
goto T1216; |
4436 |
T1216:; |
T1216:; |
4437 |
V552= (VFUN_NARGS=4,(*(LnkLI49))((V538),(V549),(V550),(V551))); |
V578= (VFUN_NARGS=4,(*(LnkLI49))((V564),(V575),(V576),(V577))); |
4438 |
bds_unwind1;}} |
bds_unwind1;}} |
4439 |
goto T1198; |
goto T1198; |
4440 |
T1198:; |
T1198:; |
4441 |
base[3]= (V542); |
base[3]= (V568); |
4442 |
base[4]= (V539); |
base[4]= (V565); |
4443 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4444 |
(void) (*Lnk94)(); |
(void) (*Lnk94)(); |
4445 |
return;}} |
return;}} |
4452 |
register object *sup=base+VM85; VC85 |
register object *sup=base+VM85; VC85 |
4453 |
vs_check; |
vs_check; |
4454 |
bds_check; |
bds_check; |
4455 |
{register object V553; |
{register object V579; |
4456 |
object V554; |
object V580; |
4457 |
object V555; |
object V581; |
4458 |
check_arg(3); |
check_arg(3); |
4459 |
V553=(base[0]); |
V579=(base[0]); |
4460 |
V554=(base[1]); |
V580=(base[1]); |
4461 |
V555=(base[2]); |
V581=(base[2]); |
4462 |
vs_top=sup; |
vs_top=sup; |
4463 |
goto TTL; |
goto TTL; |
4464 |
TTL:; |
TTL:; |
4465 |
{object V556; |
{object V582; |
4466 |
V556= STREF(object,(V555),0); |
V582= STREF(object,(V581),0); |
4467 |
{register object V557; |
{register object V583; |
4468 |
object V558; |
object V584; |
4469 |
object V559; |
object V585; |
4470 |
object V560; |
object V586; |
4471 |
base[3]= (V553); |
base[3]= (V579); |
4472 |
base[4]= (V554); |
base[4]= (V580); |
4473 |
base[5]= VV[13]; |
base[5]= VV[13]; |
4474 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4475 |
(void) (*Lnk85)(); |
(void) (*Lnk85)(); |
4476 |
if(vs_base>=vs_top){vs_top=sup;goto T1224;} |
if(vs_base>=vs_top){vs_top=sup;goto T1224;} |
4477 |
V557= vs_base[0]; |
V583= vs_base[0]; |
4478 |
vs_base++; |
vs_base++; |
4479 |
if(vs_base>=vs_top){vs_top=sup;goto T1225;} |
if(vs_base>=vs_top){vs_top=sup;goto T1225;} |
4480 |
V558= vs_base[0]; |
V584= vs_base[0]; |
4481 |
vs_base++; |
vs_base++; |
4482 |
if(vs_base>=vs_top){vs_top=sup;goto T1226;} |
if(vs_base>=vs_top){vs_top=sup;goto T1226;} |
4483 |
V559= vs_base[0]; |
V585= vs_base[0]; |
4484 |
vs_base++; |
vs_base++; |
4485 |
if(vs_base>=vs_top){vs_top=sup;goto T1227;} |
if(vs_base>=vs_top){vs_top=sup;goto T1227;} |
4486 |
V560= vs_base[0]; |
V586= vs_base[0]; |
4487 |
vs_top=sup; |
vs_top=sup; |
4488 |
goto T1228; |
goto T1228; |
4489 |
goto T1224; |
goto T1224; |
4490 |
T1224:; |
T1224:; |
4491 |
V557= Cnil; |
V583= Cnil; |
4492 |
goto T1225; |
goto T1225; |
4493 |
T1225:; |
T1225:; |
4494 |
V558= Cnil; |
V584= Cnil; |
4495 |
goto T1226; |
goto T1226; |
4496 |
T1226:; |
T1226:; |
4497 |
V559= Cnil; |
V585= Cnil; |
4498 |
goto T1227; |
goto T1227; |
4499 |
T1227:; |
T1227:; |
4500 |
V560= Cnil; |
V586= Cnil; |
4501 |
goto T1228; |
goto T1228; |
4502 |
T1228:; |
T1228:; |
4503 |
if(((V558))==Cnil){ |
if(((V584))==Cnil){ |
4504 |
goto T1229;} |
goto T1229;} |
4505 |
{register object x= (V553),V561= (VV[91]->s.s_dbind); |
{register object x= (V579),V587= (VV[91]->s.s_dbind); |
4506 |
while(V561!=Cnil) |
while(V587!=Cnil) |
4507 |
if(x==(V561->c.c_car)){ |
if(x==(V587->c.c_car)){ |
4508 |
goto T1229; |
goto T1229; |
4509 |
}else V561=V561->c.c_cdr;} |
}else V587=V587->c.c_cdr;} |
4510 |
base[3]= make_cons((V553),(VV[91]->s.s_dbind)); |
base[3]= make_cons((V579),(VV[91]->s.s_dbind)); |
4511 |
bds_bind(VV[91],base[3]); |
bds_bind(VV[91],base[3]); |
4512 |
if((V560)==Cnil){ |
if((V586)==Cnil){ |
4513 |
goto T1236;} |
goto T1236;} |
4514 |
bds_unwind1; |
bds_unwind1; |
4515 |
goto T1229; |
goto T1229; |
4516 |
goto T1236; |
goto T1236; |
4517 |
T1236:; |
T1236:; |
4518 |
{object V563; |
{object V589; |
4519 |
object V564; |
object V590; |
4520 |
object V565; |
object V591; |
4521 |
{register object V566; |
{register object V592; |
4522 |
V566= (V557); |
V592= (V583); |
4523 |
base[7]= (V566); |
base[7]= (V592); |
4524 |
base[8]= VV[127]; |
base[8]= VV[127]; |
4525 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
4526 |
(void) (*Lnk248)(); |
(void) (*Lnk248)(); |
4527 |
vs_top=sup; |
vs_top=sup; |
4528 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4529 |
goto T1240;} |
goto T1240;} |
4530 |
V563= STREF(object,(V557),0); |
V589= STREF(object,(V583),0); |
4531 |
goto T1238; |
goto T1238; |
4532 |
goto T1240; |
goto T1240; |
4533 |
T1240:; |
T1240:; |
4534 |
base[7]= (V566); |
base[7]= (V592); |
4535 |
base[8]= VV[128]; |
base[8]= VV[128]; |
4536 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
4537 |
(void) (*Lnk248)(); |
(void) (*Lnk248)(); |
4538 |
vs_top=sup; |
vs_top=sup; |
4539 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4540 |
goto T1245;} |
goto T1245;} |
4541 |
V563= STREF(object,(V557),0); |
V589= STREF(object,(V583),0); |
4542 |
goto T1238; |
goto T1238; |
4543 |
goto T1245; |
goto T1245; |
4544 |
T1245:; |
T1245:; |
4545 |
V563= Cnil;} |
V589= Cnil;} |
4546 |
goto T1238; |
goto T1238; |
4547 |
T1238:; |
T1238:; |
4548 |
V564= (VFUN_NARGS=2,(*(LnkLI249))((V563),VV[74])); |
V590= (VFUN_NARGS=2,(*(LnkLI249))((V589),VV[74])); |
4549 |
V565= (VFUN_NARGS=3,(*(LnkLI247))((V556),(V559),(V564))); |
V591= (VFUN_NARGS=3,(*(LnkLI247))((V582),(V585),(V590))); |
4550 |
if(((V565))==((V556))){ |
if(((V591))==((V582))){ |
4551 |
bds_unwind1; |
bds_unwind1; |
4552 |
goto T1229;} |
goto T1229;} |
4553 |
{object V567; |
{object V593; |
4554 |
object V568; |
object V594; |
4555 |
object V569; |
object V595; |
4556 |
base[7]= (V553); |
base[7]= (V579); |
4557 |
base[8]= (V565); |
base[8]= (V591); |
4558 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
4559 |
(void) (*Lnk202)(); |
(void) (*Lnk202)(); |
4560 |
if(vs_base>=vs_top){vs_top=sup;goto T1256;} |
if(vs_base>=vs_top){vs_top=sup;goto T1256;} |
4561 |
V567= vs_base[0]; |
V593= vs_base[0]; |
4562 |
vs_base++; |
vs_base++; |
4563 |
if(vs_base>=vs_top){vs_top=sup;goto T1257;} |
if(vs_base>=vs_top){vs_top=sup;goto T1257;} |
4564 |
V568= vs_base[0]; |
V594= vs_base[0]; |
4565 |
vs_base++; |
vs_base++; |
4566 |
if(vs_base>=vs_top){vs_top=sup;goto T1258;} |
if(vs_base>=vs_top){vs_top=sup;goto T1258;} |
4567 |
V569= vs_base[0]; |
V595= vs_base[0]; |
4568 |
vs_top=sup; |
vs_top=sup; |
4569 |
goto T1259; |
goto T1259; |
4570 |
goto T1256; |
goto T1256; |
4571 |
T1256:; |
T1256:; |
4572 |
V567= Cnil; |
V593= Cnil; |
4573 |
goto T1257; |
goto T1257; |
4574 |
T1257:; |
T1257:; |
4575 |
V568= Cnil; |
V594= Cnil; |
4576 |
goto T1258; |
goto T1258; |
4577 |
T1258:; |
T1258:; |
4578 |
V569= Cnil; |
V595= Cnil; |
4579 |
goto T1259; |
goto T1259; |
4580 |
T1259:; |
T1259:; |
4581 |
V570= (VFUN_NARGS=4,(*(LnkLI49))((V553),(V567),(V568),(V569))); |
V596= (VFUN_NARGS=4,(*(LnkLI49))((V579),(V593),(V594),(V595))); |
4582 |
bds_unwind1;}} |
bds_unwind1;}} |
4583 |
goto T1229; |
goto T1229; |
4584 |
T1229:; |
T1229:; |
4585 |
base[3]= (V557); |
base[3]= (V583); |
4586 |
base[4]= (V554); |
base[4]= (V580); |
4587 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4588 |
(void) (*Lnk94)(); |
(void) (*Lnk94)(); |
4589 |
return;}} |
return;}} |
4595 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4596 |
register object *sup=base+VM86; VC86 |
register object *sup=base+VM86; VC86 |
4597 |
vs_check; |
vs_check; |
4598 |
{object V571; |
{object V597; |
4599 |
object V572; |
object V598; |
4600 |
object V573; |
object V599; |
4601 |
check_arg(3); |
check_arg(3); |
4602 |
V571=(base[0]); |
V597=(base[0]); |
4603 |
V572=(base[1]); |
V598=(base[1]); |
4604 |
V573=(base[2]); |
V599=(base[2]); |
4605 |
vs_top=sup; |
vs_top=sup; |
4606 |
goto TTL; |
goto TTL; |
4607 |
TTL:; |
TTL:; |
4608 |
if(((*(LnkLI196))((V571)))==Cnil){ |
if(((*(LnkLI196))((V597)))==Cnil){ |
4609 |
goto T1266;} |
goto T1266;} |
4610 |
if(type_of(V571)==t_structure){ |
if(type_of(V597)==t_structure){ |
4611 |
goto T1272;} |
goto T1272;} |
4612 |
goto T1270; |
goto T1270; |
4613 |
goto T1272; |
goto T1272; |
4614 |
T1272:; |
T1272:; |
4615 |
if(!(((V571)->str.str_def)==(VV[129]))){ |
if(!(((V597)->str.str_def)==(VV[129]))){ |
4616 |
goto T1270;} |
goto T1270;} |
4617 |
V574= STREF(object,(V571),4); |
V600= STREF(object,(V597),4); |
4618 |
goto T1268; |
goto T1268; |
4619 |
goto T1270; |
goto T1270; |
4620 |
T1270:;{object V576; |
T1270:;{object V602; |
4621 |
V576= (VV[65]->s.s_dbind); |
V602= (VV[65]->s.s_dbind); |
4622 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
4623 |
base[4]= (V571); |
base[4]= (V597); |
4624 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4625 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
4626 |
vs_top=sup; |
vs_top=sup; |
4627 |
V577= vs_base[0]; |
V603= vs_base[0]; |
4628 |
if(!((V576)==(CMPcar(V577)))){ |
if(!((V602)==(CMPcar(V603)))){ |
4629 |
goto T1275;}} |
goto T1275;}} |
4630 |
V574= CMPcar(((V571))->cc.cc_turbo[12]); |
V600= CMPcar(((V597))->cc.cc_turbo[12]); |
4631 |
goto T1268; |
goto T1268; |
4632 |
goto T1275; |
goto T1275; |
4633 |
T1275:; |
T1275:; |
4635 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4636 |
Lerror(); |
Lerror(); |
4637 |
vs_top=sup; |
vs_top=sup; |
4638 |
V574= vs_base[0]; |
V600= vs_base[0]; |
4639 |
goto T1268; |
goto T1268; |
4640 |
T1268:; |
T1268:; |
4641 |
if(((V574)->v.v_self[fix((VV[67]->s.s_dbind))])!=Cnil){ |
V604 = (VV[67]->s.s_dbind); |
4642 |
|
if(((V600)->v.v_self[fix(V604)])!=Cnil){ |
4643 |
goto T1263;} |
goto T1263;} |
4644 |
goto T1264; |
goto T1264; |
4645 |
goto T1266; |
goto T1266; |
4646 |
T1266:; |
T1266:; |
4647 |
base[3]= (V571); |
base[3]= (V597); |
4648 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4649 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk199)(Lclptr199); |
4650 |
vs_top=sup; |
vs_top=sup; |
4653 |
goto T1264; |
goto T1264; |
4654 |
T1264:; |
T1264:; |
4655 |
base[3]=VV[250]->s.s_gfdef; |
base[3]=VV[250]->s.s_gfdef; |
4656 |
base[4]= (V571); |
base[4]= (V597); |
4657 |
{object V578; |
{object V605; |
4658 |
V578= (V572); |
V605= (V598); |
4659 |
vs_top=base+5; |
vs_top=base+5; |
4660 |
while(V578!=Cnil) |
while(V605!=Cnil) |
4661 |
{vs_push((V578)->c.c_car);V578=(V578)->c.c_cdr;} |
{vs_push((V605)->c.c_car);V605=(V605)->c.c_cdr;} |
4662 |
vs_base=base+4;} |
vs_base=base+4;} |
4663 |
(void) (*Lnk250)(Lclptr250); |
(void) (*Lnk250)(Lclptr250); |
4664 |
return; |
return; |
4665 |
goto T1263; |
goto T1263; |
4666 |
T1263:; |
T1263:; |
4667 |
{object V579; |
{object V606; |
4668 |
object V580; |
object V607; |
4669 |
object V581; |
object V608; |
4670 |
object V582; |
object V609; |
4671 |
object V583; |
object V610; |
4672 |
base[3]= (V571); |
base[3]= (V597); |
4673 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4674 |
(void) (*Lnk187)(); |
(void) (*Lnk187)(); |
4675 |
if(vs_base>=vs_top){vs_top=sup;goto T1286;} |
if(vs_base>=vs_top){vs_top=sup;goto T1286;} |
4676 |
V579= vs_base[0]; |
V606= vs_base[0]; |
4677 |
vs_base++; |
vs_base++; |
4678 |
if(vs_base>=vs_top){vs_top=sup;goto T1287;} |
if(vs_base>=vs_top){vs_top=sup;goto T1287;} |
4679 |
V580= vs_base[0]; |
V607= vs_base[0]; |
4680 |
vs_base++; |
vs_base++; |
4681 |
if(vs_base>=vs_top){vs_top=sup;goto T1288;} |
if(vs_base>=vs_top){vs_top=sup;goto T1288;} |
4682 |
V581= vs_base[0]; |
V608= vs_base[0]; |
4683 |
vs_base++; |
vs_base++; |
4684 |
if(vs_base>=vs_top){vs_top=sup;goto T1289;} |
if(vs_base>=vs_top){vs_top=sup;goto T1289;} |
4685 |
V582= vs_base[0]; |
V609= vs_base[0]; |
4686 |
vs_base++; |
vs_base++; |
4687 |
if(vs_base>=vs_top){vs_top=sup;goto T1290;} |
if(vs_base>=vs_top){vs_top=sup;goto T1290;} |
4688 |
V583= vs_base[0]; |
V610= vs_base[0]; |
4689 |
vs_top=sup; |
vs_top=sup; |
4690 |
goto T1291; |
goto T1291; |
4691 |
goto T1286; |
goto T1286; |
4692 |
T1286:; |
T1286:; |
4693 |
V579= Cnil; |
V606= Cnil; |
4694 |
goto T1287; |
goto T1287; |
4695 |
T1287:; |
T1287:; |
4696 |
V580= Cnil; |
V607= Cnil; |
4697 |
goto T1288; |
goto T1288; |
4698 |
T1288:; |
T1288:; |
4699 |
V581= Cnil; |
V608= Cnil; |
4700 |
goto T1289; |
goto T1289; |
4701 |
T1289:; |
T1289:; |
4702 |
V582= Cnil; |
V609= Cnil; |
4703 |
goto T1290; |
goto T1290; |
4704 |
T1290:; |
T1290:; |
4705 |
V583= Cnil; |
V610= Cnil; |
4706 |
goto T1291; |
goto T1291; |
4707 |
T1291:; |
T1291:; |
4708 |
{register object V584; |
{register object V611; |
4709 |
object V585; |
object V612; |
4710 |
object V586; |
object V613; |
4711 |
register object V587; |
register object V614; |
4712 |
register object V588; |
register object V615; |
4713 |
object V589; |
object V616; |
4714 |
object V590; |
object V617; |
4715 |
object V591; |
object V618; |
4716 |
V584= (V572); |
V611= (V598); |
4717 |
V585= Cnil; |
V612= Cnil; |
4718 |
V586= Cnil; |
V613= Cnil; |
4719 |
V587= Cnil; |
V614= Cnil; |
4720 |
V588= Cnil; |
V615= Cnil; |
4721 |
V589= Cnil; |
V616= Cnil; |
4722 |
V590= Cnil; |
V617= Cnil; |
4723 |
V591= Cnil; |
V618= Cnil; |
4724 |
{register object V592; |
{register object V619; |
4725 |
object V593; |
object V620; |
4726 |
V592= (V581); |
V619= (V608); |
4727 |
V593= CMPcar((V592)); |
V620= CMPcar((V619)); |
4728 |
goto T1304; |
goto T1304; |
4729 |
T1304:; |
T1304:; |
4730 |
if(!(((V592))==Cnil)){ |
if(!(((V619))==Cnil)){ |
4731 |
goto T1305;} |
goto T1305;} |
4732 |
goto T1300; |
goto T1300; |
4733 |
goto T1305; |
goto T1305; |
4734 |
T1305:; |
T1305:; |
4735 |
if(((V584))!=Cnil){ |
if(((V611))!=Cnil){ |
4736 |
goto T1309;} |
goto T1309;} |
4737 |
V586= Ct; |
V613= Ct; |
4738 |
goto T1300; |
goto T1300; |
4739 |
goto T1309; |
goto T1309; |
4740 |
T1309:; |
T1309:; |
4741 |
{object V594; |
{object V621; |
4742 |
register object V595; |
register object V622; |
4743 |
register object V596; |
register object V623; |
4744 |
object V597; |
object V624; |
4745 |
{object V598; |
{object V625; |
4746 |
V598= CMPcar((V584)); |
V625= CMPcar((V611)); |
4747 |
V584= CMPcdr((V584)); |
V611= CMPcdr((V611)); |
4748 |
V594= (V598);} |
V621= (V625);} |
4749 |
V595= Cnil; |
V622= Cnil; |
4750 |
V596= (VV[125]->s.s_dbind); |
V623= (VV[125]->s.s_dbind); |
4751 |
V597= Ct; |
V624= Ct; |
4752 |
if(((V593))==(Ct)){ |
if(((V620))==(Ct)){ |
4753 |
goto T1322;} |
goto T1322;} |
4754 |
V595= (*(LnkLI251))((V594)); |
V622= (*(LnkLI251))((V621)); |
4755 |
if(!((((((V595))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
if(!((((((V622))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4756 |
goto T1327;} |
goto T1327;} |
4757 |
V585= Ct; |
V612= Ct; |
4758 |
V595= (*(LnkLI252))((V594)); |
V622= (*(LnkLI252))((V621)); |
4759 |
goto T1327; |
goto T1327; |
4760 |
T1327:; |
T1327:; |
4761 |
if(((V587))!=Cnil){ |
if(((V614))!=Cnil){ |
4762 |
goto T1335;} |
goto T1335;} |
4763 |
V587= (V595); |
V614= (V622); |
4764 |
goto T1333; |
goto T1333; |
4765 |
goto T1335; |
goto T1335; |
4766 |
T1335:; |
T1335:; |
4767 |
if(type_of((V587))==t_cons){ |
if(type_of((V614))==t_cons){ |
4768 |
goto T1339;} |
goto T1339;} |
4769 |
V588= make_cons((V595),Cnil); |
V615= make_cons((V622),Cnil); |
4770 |
V587= make_cons((V587),(V588)); |
V614= make_cons((V614),(V615)); |
4771 |
goto T1333; |
goto T1333; |
4772 |
goto T1339; |
goto T1339; |
4773 |
T1339:; |
T1339:; |
4774 |
{object V599; |
{object V626; |
4775 |
V599= make_cons((V595),Cnil); |
V626= make_cons((V622),Cnil); |
4776 |
(V588)->c.c_cdr = V599; |
(V615)->c.c_cdr = V626; |
4777 |
V588= (V599);} |
V615= (V626);} |
4778 |
goto T1333; |
goto T1333; |
4779 |
T1333:; |
T1333:; |
4780 |
V596= ((V595))->v.v_self[11]; |
V623= ((V622))->v.v_self[11]; |
4781 |
V597= list(2,VV[130],(V596)); |
V624= list(2,VV[130],(V623)); |
4782 |
goto T1322; |
goto T1322; |
4783 |
T1322:; |
T1322:; |
4784 |
V589= make_cons(V595,(V589)); |
V616= make_cons(V622,(V616)); |
4785 |
V591= make_cons(V596,(V591)); |
V618= make_cons(V623,(V618)); |
4786 |
V590= make_cons(V597,(V590));} |
V617= make_cons(V624,(V617));} |
4787 |
V592= CMPcdr((V592)); |
V619= CMPcdr((V619)); |
4788 |
V593= CMPcar((V592)); |
V620= CMPcar((V619)); |
4789 |
goto T1304;} |
goto T1304;} |
4790 |
goto T1300; |
goto T1300; |
4791 |
T1300:; |
T1300:; |
4792 |
if(((V586))==Cnil){ |
if(((V613))==Cnil){ |
4793 |
goto T1362;} |
goto T1362;} |
4794 |
base[3]= VV[131]; |
base[3]= VV[131]; |
4795 |
base[4]= (V571); |
base[4]= (V597); |
4796 |
base[5]= CMPmake_fixnum((long)length((V581))); |
base[5]= CMPmake_fixnum((long)length((V608))); |
4797 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4798 |
Lerror(); |
Lerror(); |
4799 |
return; |
return; |
4800 |
goto T1362; |
goto T1362; |
4801 |
T1362:; |
T1362:; |
4802 |
{object V605; |
{object V632; |
4803 |
object V606; |
object V633; |
4804 |
object V607; |
object V634; |
4805 |
V605= nreverse((V589)); |
V632= nreverse((V616)); |
4806 |
V606= nreverse((V591)); |
V633= nreverse((V618)); |
4807 |
{object V608; |
{object V635; |
4808 |
object V609= (V606); |
object V636= (V633); |
4809 |
if(V609==Cnil){ |
if(V636==Cnil){ |
4810 |
V607= Cnil; |
V634= Cnil; |
4811 |
goto T1369;} |
goto T1369;} |
4812 |
base[6]=V608=MMcons(Cnil,Cnil); |
base[6]=V635=MMcons(Cnil,Cnil); |
4813 |
goto T1370; |
goto T1370; |
4814 |
T1370:; |
T1370:; |
4815 |
(V608->c.c_car)= list(2,VV[130],(V609->c.c_car)); |
(V635->c.c_car)= list(2,VV[130],(V636->c.c_car)); |
4816 |
if((V609=MMcdr(V609))==Cnil){ |
if((V636=MMcdr(V636))==Cnil){ |
4817 |
V607= base[6]; |
V634= base[6]; |
4818 |
goto T1369;} |
goto T1369;} |
4819 |
V608=MMcdr(V608)=MMcons(Cnil,Cnil); |
V635=MMcdr(V635)=MMcons(Cnil,Cnil); |
4820 |
goto T1370;} |
goto T1370;} |
4821 |
goto T1369; |
goto T1369; |
4822 |
T1369:; |
T1369:; |
4823 |
{object V611; |
{object V638; |
4824 |
object V612; |
object V639; |
4825 |
object V613; |
object V640; |
4826 |
object V614; |
object V641; |
4827 |
base[6]= (V571); |
base[6]= (V597); |
4828 |
base[7]= (V583); |
base[7]= (V610); |
4829 |
base[8]= (V605); |
base[8]= (V632); |
4830 |
base[9]= (V606); |
base[9]= (V633); |
4831 |
base[10]= (V607); |
base[10]= (V634); |
4832 |
base[11]= (V573); |
base[11]= (V599); |
4833 |
vs_top=(vs_base=base+6)+6; |
vs_top=(vs_base=base+6)+6; |
4834 |
(void) (*Lnk253)(); |
(void) (*Lnk253)(); |
4835 |
if(vs_base>=vs_top){vs_top=sup;goto T1379;} |
if(vs_base>=vs_top){vs_top=sup;goto T1379;} |
4836 |
V611= vs_base[0]; |
V638= vs_base[0]; |
4837 |
vs_base++; |
vs_base++; |
4838 |
if(vs_base>=vs_top){vs_top=sup;goto T1380;} |
if(vs_base>=vs_top){vs_top=sup;goto T1380;} |
4839 |
V612= vs_base[0]; |
V639= vs_base[0]; |
4840 |
vs_base++; |
vs_base++; |
4841 |
if(vs_base>=vs_top){vs_top=sup;goto T1381;} |
if(vs_base>=vs_top){vs_top=sup;goto T1381;} |
4842 |
V613= vs_base[0]; |
V640= vs_base[0]; |
4843 |
vs_base++; |
vs_base++; |
4844 |
if(vs_base>=vs_top){vs_top=sup;goto T1382;} |
if(vs_base>=vs_top){vs_top=sup;goto T1382;} |
4845 |
V614= vs_base[0]; |
V641= vs_base[0]; |
4846 |
vs_top=sup; |
vs_top=sup; |
4847 |
goto T1383; |
goto T1383; |
4848 |
goto T1379; |
goto T1379; |
4849 |
T1379:; |
T1379:; |
4850 |
V611= Cnil; |
V638= Cnil; |
4851 |
goto T1380; |
goto T1380; |
4852 |
T1380:; |
T1380:; |
4853 |
V612= Cnil; |
V639= Cnil; |
4854 |
goto T1381; |
goto T1381; |
4855 |
T1381:; |
T1381:; |
4856 |
V613= Cnil; |
V640= Cnil; |
4857 |
goto T1382; |
goto T1382; |
4858 |
T1382:; |
T1382:; |
4859 |
V614= Cnil; |
V641= Cnil; |
4860 |
goto T1383; |
goto T1383; |
4861 |
T1383:; |
T1383:; |
4862 |
base[6]= (V611); |
base[6]= (V638); |
4863 |
base[7]= (V612); |
base[7]= (V639); |
4864 |
base[8]= (V587); |
base[8]= (V614); |
4865 |
base[9]= (V585); |
base[9]= (V612); |
4866 |
base[10]= (V613); |
base[10]= (V640); |
4867 |
base[11]= (V614); |
base[11]= (V641); |
4868 |
vs_top=(vs_base=base+6)+6; |
vs_top=(vs_base=base+6)+6; |
4869 |
return;}}}} |
return;}}}} |
4870 |
} |
} |
4875 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4876 |
register object *sup=base+VM87; VC87 |
register object *sup=base+VM87; VC87 |
4877 |
vs_check; |
vs_check; |
4878 |
{register object V615; |
{register object V642; |
4879 |
object V616; |
object V643; |
4880 |
object V617; |
object V644; |
4881 |
object V618; |
object V645; |
4882 |
object V619; |
object V646; |
4883 |
object V620; |
object V647; |
4884 |
check_arg(6); |
check_arg(6); |
4885 |
V615=(base[0]); |
V642=(base[0]); |
4886 |
V616=(base[1]); |
V643=(base[1]); |
4887 |
V617=(base[2]); |
V644=(base[2]); |
4888 |
V618=(base[3]); |
V645=(base[3]); |
4889 |
V619=(base[4]); |
V646=(base[4]); |
4890 |
V620=(base[5]); |
V647=(base[5]); |
4891 |
vs_top=sup; |
vs_top=sup; |
4892 |
goto TTL; |
goto TTL; |
4893 |
TTL:; |
TTL:; |
4894 |
{object V621; |
{object V648; |
4895 |
object V622; |
object V649; |
4896 |
object V623; |
object V650; |
4897 |
V621= (((V620))==(VV[86])?Ct:Cnil); |
V648= (((V647))==(VV[86])?Ct:Cnil); |
4898 |
if(!(((V620))==(VV[13]))){ |
if(!(((V647))==(VV[13]))){ |
4899 |
goto T1392;} |
goto T1392;} |
4900 |
V622= Ct; |
V649= Ct; |
4901 |
goto T1391; |
goto T1391; |
4902 |
goto T1392; |
goto T1392; |
4903 |
T1392:; |
T1392:; |
4904 |
V622= (((V620))==(VV[86])?Ct:Cnil); |
V649= (((V647))==(VV[86])?Ct:Cnil); |
4905 |
goto T1391; |
goto T1391; |
4906 |
T1391:; |
T1391:; |
4907 |
if(!(((V616))==Cnil)){ |
if(!(((V643))==Cnil)){ |
4908 |
goto T1395;} |
goto T1395;} |
4909 |
V623= Ct; |
V650= Ct; |
4910 |
goto T1394; |
goto T1394; |
4911 |
goto T1395; |
goto T1395; |
4912 |
T1395:; |
T1395:; |
4913 |
V623= STREF(object,(V616),36); |
V650= STREF(object,(V643),36); |
4914 |
goto T1394; |
goto T1394; |
4915 |
T1394:; |
T1394:; |
4916 |
{register object V624; |
{register object V651; |
4917 |
object V625; |
object V652; |
4918 |
if(((V623))==Cnil){ |
if(((V650))==Cnil){ |
4919 |
goto T1399;} |
goto T1399;} |
4920 |
base[9]= (V615); |
base[9]= (V642); |
4921 |
base[10]= (V619); |
base[10]= (V646); |
4922 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
4923 |
(void) (*Lnk254)(); |
(void) (*Lnk254)(); |
4924 |
goto T1397; |
goto T1397; |
4925 |
goto T1399; |
goto T1399; |
4926 |
T1399:; |
T1399:; |
4927 |
base[9]= (V615); |
base[9]= (V642); |
4928 |
base[10]= (V618); |
base[10]= (V645); |
4929 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
4930 |
(void) (*Lnk255)(Lclptr255); |
(void) (*Lnk255)(Lclptr255); |
4931 |
goto T1397; |
goto T1397; |
4932 |
T1397:; |
T1397:; |
4933 |
if(vs_base>=vs_top){vs_top=sup;goto T1405;} |
if(vs_base>=vs_top){vs_top=sup;goto T1405;} |
4934 |
V624= vs_base[0]; |
V651= vs_base[0]; |
4935 |
vs_base++; |
vs_base++; |
4936 |
if(vs_base>=vs_top){vs_top=sup;goto T1406;} |
if(vs_base>=vs_top){vs_top=sup;goto T1406;} |
4937 |
V625= vs_base[0]; |
V652= vs_base[0]; |
4938 |
vs_top=sup; |
vs_top=sup; |
4939 |
goto T1407; |
goto T1407; |
4940 |
goto T1405; |
goto T1405; |
4941 |
T1405:; |
T1405:; |
4942 |
V624= Cnil; |
V651= Cnil; |
4943 |
goto T1406; |
goto T1406; |
4944 |
T1406:; |
T1406:; |
4945 |
V625= Cnil; |
V652= Cnil; |
4946 |
goto T1407; |
goto T1407; |
4947 |
T1407:; |
T1407:; |
4948 |
{object V626; |
{object V653; |
4949 |
if(((V623))!=Cnil){ |
if(((V650))!=Cnil){ |
4950 |
goto T1409;} |
goto T1409;} |
4951 |
if(((V625))==Cnil){ |
if(((V652))==Cnil){ |
4952 |
goto T1410;} |
goto T1410;} |
4953 |
goto T1409; |
goto T1409; |
4954 |
T1409:; |
T1409:; |
4955 |
if((V622)==Cnil){ |
V654 = (V642); |
4956 |
V627= Cnil; |
V655 = (V651); |
4957 |
|
V656 = (V646); |
4958 |
|
if((V649)==Cnil){ |
4959 |
|
V657= Cnil; |
4960 |
goto T1414;} |
goto T1414;} |
4961 |
V627= (V617); |
V657= (V644); |
4962 |
goto T1414; |
goto T1414; |
4963 |
T1414:; |
T1414:; |
4964 |
V628= (VFUN_NARGS=6,(*(LnkLI216))((V615),(V624),(V619),Cnil,V627,(V625))); |
V658 = (V652); |
4965 |
if((V622)==Cnil){ |
V659= (VFUN_NARGS=6,(*(LnkLI216))(V654,V655,V656,Cnil,V657,V658)); |
4966 |
V629= Cnil; |
if((V649)==Cnil){ |
4967 |
|
V660= Cnil; |
4968 |
goto T1415;} |
goto T1415;} |
4969 |
V629= (V617); |
V660= (V644); |
4970 |
goto T1415; |
goto T1415; |
4971 |
T1415:; |
T1415:; |
4972 |
V626= ( |
V653= ( |
4973 |
V630 = /* INLINE-ARGS */V628, |
V661 = /* INLINE-ARGS */V659, |
4974 |
(type_of(V630) == t_sfun ?(*((V630)->sfn.sfn_self)): |
(type_of(V661) == t_sfun ?(*((V661)->sfn.sfn_self)): |
4975 |
(fcall.argd=2,type_of(V630)==t_vfun) ? |
(fcall.argd=2,type_of(V661)==t_vfun) ? |
4976 |
(*((V630)->sfn.sfn_self)): |
(*((V661)->sfn.sfn_self)): |
4977 |
(fcall.fun=(V630),fcalln))(Cnil,V629)); |
(fcall.fun=(V661),fcalln))(Cnil,V660)); |
4978 |
goto T1408; |
goto T1408; |
4979 |
goto T1410; |
goto T1410; |
4980 |
T1410:; |
T1410:; |
4981 |
V626= (*(LnkLI256))((V615)); |
V653= (*(LnkLI256))((V642)); |
4982 |
goto T1408; |
goto T1408; |
4983 |
T1408:; |
T1408:; |
4984 |
{object V631; |
{object V662; |
4985 |
object V632; |
object V663; |
4986 |
if((V621)==Cnil){ |
if((V648)==Cnil){ |
4987 |
base[9]= Cnil; |
base[9]= Cnil; |
4988 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
4989 |
goto T1416;} |
goto T1416;} |
4990 |
if((V625)==Cnil){ |
if((V652)==Cnil){ |
4991 |
base[9]= Cnil; |
base[9]= Cnil; |
4992 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
4993 |
goto T1416;} |
goto T1416;} |
4994 |
if((V624)==Cnil){ |
if((V651)==Cnil){ |
4995 |
base[9]= Cnil; |
base[9]= Cnil; |
4996 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
4997 |
goto T1416;} |
goto T1416;} |
4998 |
base[9]= (V615); |
base[9]= (V642); |
4999 |
base[10]= (V616); |
base[10]= (V643); |
5000 |
base[11]= (V618); |
base[11]= (V645); |
5001 |
base[12]= (V624); |
base[12]= (V651); |
5002 |
vs_top=(vs_base=base+9)+4; |
vs_top=(vs_base=base+9)+4; |
5003 |
(void) (*Lnk257)(); |
(void) (*Lnk257)(); |
5004 |
goto T1416; |
goto T1416; |
5005 |
T1416:; |
T1416:; |
5006 |
if(vs_base>=vs_top){vs_top=sup;goto T1421;} |
if(vs_base>=vs_top){vs_top=sup;goto T1421;} |
5007 |
V631= vs_base[0]; |
V662= vs_base[0]; |
5008 |
vs_base++; |
vs_base++; |
5009 |
if(vs_base>=vs_top){vs_top=sup;goto T1422;} |
if(vs_base>=vs_top){vs_top=sup;goto T1422;} |
5010 |
V632= vs_base[0]; |
V663= vs_base[0]; |
5011 |
vs_top=sup; |
vs_top=sup; |
5012 |
goto T1423; |
goto T1423; |
5013 |
goto T1421; |
goto T1421; |
5014 |
T1421:; |
T1421:; |
5015 |
V631= Cnil; |
V662= Cnil; |
5016 |
goto T1422; |
goto T1422; |
5017 |
T1422:; |
T1422:; |
5018 |
V632= Cnil; |
V663= Cnil; |
5019 |
goto T1423; |
goto T1423; |
5020 |
T1423:; |
T1423:; |
5021 |
if(!(type_of((V631))==t_fixnum||type_of((V631))==t_bignum)){ |
if(!(type_of((V662))==t_fixnum||type_of((V662))==t_bignum)){ |
5022 |
goto T1426;} |
goto T1426;} |
5023 |
base[9]= (V631); |
base[9]= (V662); |
5024 |
goto T1424; |
goto T1424; |
5025 |
goto T1426; |
goto T1426; |
5026 |
T1426:; |
T1426:; |
5027 |
base[9]= (V626); |
base[9]= (V653); |
5028 |
goto T1424; |
goto T1424; |
5029 |
T1424:; |
T1424:; |
5030 |
base[10]= (V624); |
base[10]= (V651); |
5031 |
base[11]= (V632); |
base[11]= (V663); |
5032 |
base[12]= (V631); |
base[12]= (V662); |
5033 |
vs_top=(vs_base=base+9)+4; |
vs_top=(vs_base=base+9)+4; |
5034 |
return;}}}} |
return;}}}} |
5035 |
} |
} |
5040 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5041 |
register object *sup=base+VM88; VC88 |
register object *sup=base+VM88; VC88 |
5042 |
vs_check; |
vs_check; |
5043 |
{object V633; |
{object V664; |
5044 |
object V634; |
object V665; |
5045 |
object V635; |
object V666; |
5046 |
object V636; |
object V667; |
5047 |
check_arg(4); |
check_arg(4); |
5048 |
V633=(base[0]); |
V664=(base[0]); |
5049 |
V634=(base[1]); |
V665=(base[1]); |
5050 |
V635=(base[2]); |
V666=(base[2]); |
5051 |
V636=(base[3]); |
V667=(base[3]); |
5052 |
vs_top=sup; |
vs_top=sup; |
5053 |
goto TTL; |
goto TTL; |
5054 |
TTL:; |
TTL:; |
5055 |
{object V637; |
{object V668; |
5056 |
object V638; |
object V669; |
5057 |
V637= STREF(object,(V634),24); |
V668= STREF(object,(V665),24); |
5058 |
{object V639= (V637); |
{object V670= (V668); |
5059 |
if((V639!= VV[51]))goto T1433; |
if((V670!= VV[51]))goto T1433; |
5060 |
V638= CMPcar((V635)); |
V669= CMPcar((V666)); |
5061 |
goto T1432; |
goto T1432; |
5062 |
goto T1433; |
goto T1433; |
5063 |
T1433:; |
T1433:; |
5064 |
if((V639!= VV[123]))goto T1434; |
if((V670!= VV[123]))goto T1434; |
5065 |
V638= CMPcadr((V635)); |
V669= CMPcadr((V666)); |
5066 |
goto T1432; |
goto T1432; |
5067 |
goto T1434; |
goto T1434; |
5068 |
T1434:; |
T1434:; |
5069 |
if((V639!= VV[258]))goto T1435; |
if((V670!= VV[258]))goto T1435; |
5070 |
V638= CMPcar((V635)); |
V669= CMPcar((V666)); |
5071 |
goto T1432; |
goto T1432; |
5072 |
goto T1435; |
goto T1435; |
5073 |
T1435:; |
T1435:; |
5074 |
V638= Cnil;} |
V669= Cnil;} |
5075 |
goto T1432; |
goto T1432; |
5076 |
T1432:; |
T1432:; |
5077 |
base[6]= (V637); |
base[6]= (V668); |
5078 |
base[7]= (V638); |
base[7]= (V669); |
5079 |
base[8]= (V636); |
base[8]= (V667); |
5080 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
5081 |
(void) (*Lnk259)(); |
(void) (*Lnk259)(); |
5082 |
return;} |
return;} |
5088 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5089 |
register object *sup=base+VM89; VC89 |
register object *sup=base+VM89; VC89 |
5090 |
vs_check; |
vs_check; |
5091 |
{object V640; |
{object V671; |
5092 |
object V641; |
object V672; |
5093 |
object V642; |
object V673; |
5094 |
check_arg(3); |
check_arg(3); |
5095 |
V640=(base[0]); |
V671=(base[0]); |
5096 |
V641=(base[1]); |
V672=(base[1]); |
5097 |
V642=(base[2]); |
V673=(base[2]); |
5098 |
vs_top=sup; |
vs_top=sup; |
5099 |
goto TTL; |
goto TTL; |
5100 |
TTL:; |
TTL:; |
5101 |
{object V643; |
{object V674; |
5102 |
object V644; |
object V675; |
5103 |
object V645; |
object V676; |
5104 |
V643= list(2,VV[130],(V642)); |
V674= list(2,VV[130],(V673)); |
5105 |
if(!(((V641))==(VV[123]))){ |
if(!(((V672))==(VV[123]))){ |
5106 |
goto T1442;} |
goto T1442;} |
5107 |
V644= list(2,Ct,(V643)); |
V675= list(2,Ct,(V674)); |
5108 |
goto T1440; |
goto T1440; |
5109 |
goto T1442; |
goto T1442; |
5110 |
T1442:; |
T1442:; |
5111 |
V644= make_cons((V643),Cnil); |
V675= make_cons((V674),Cnil); |
5112 |
goto T1440; |
goto T1440; |
5113 |
T1440:; |
T1440:; |
5114 |
base[6]= (V640); |
base[6]= (V671); |
5115 |
base[7]= (V644); |
base[7]= (V675); |
5116 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
5117 |
(void) (*Lnk254)(); |
(void) (*Lnk254)(); |
5118 |
vs_top=sup; |
vs_top=sup; |
5119 |
V645= vs_base[0]; |
V676= vs_base[0]; |
5120 |
base[6]= (V641); |
base[6]= (V672); |
5121 |
base[7]= (V642); |
base[7]= (V673); |
5122 |
base[8]= (V645); |
base[8]= (V676); |
5123 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
5124 |
(void) (*Lnk259)(); |
(void) (*Lnk259)(); |
5125 |
return;} |
return;} |
5131 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5132 |
register object *sup=base+VM90; VC90 |
register object *sup=base+VM90; VC90 |
5133 |
vs_check; |
vs_check; |
5134 |
{object V646; |
{object V677; |
5135 |
object V647; |
object V678; |
5136 |
object V648; |
object V679; |
5137 |
check_arg(3); |
check_arg(3); |
5138 |
V646=(base[0]); |
V677=(base[0]); |
5139 |
V647=(base[1]); |
V678=(base[1]); |
5140 |
V648=(base[2]); |
V679=(base[2]); |
5141 |
vs_top=sup; |
vs_top=sup; |
5142 |
goto TTL; |
goto TTL; |
5143 |
TTL:; |
TTL:; |
5144 |
{register object V649; |
{register object V680; |
5145 |
register object V650; |
register object V681; |
5146 |
V649= (V648); |
V680= (V679); |
5147 |
V650= CMPcar((V649)); |
V681= CMPcar((V680)); |
5148 |
goto T1454; |
goto T1454; |
5149 |
T1454:; |
T1454:; |
5150 |
if(!(((V649))==Cnil)){ |
if(!(((V680))==Cnil)){ |
5151 |
goto T1455;} |
goto T1455;} |
5152 |
goto T1450; |
goto T1450; |
5153 |
goto T1455; |
goto T1455; |
5154 |
T1455:; |
T1455:; |
5155 |
if(!(type_of((V650))==t_cons)){ |
if(!(type_of((V681))==t_cons)){ |
5156 |
goto T1463;} |
goto T1463;} |
5157 |
if(((*(LnkLI260))((V650)))==Cnil){ |
if(((*(LnkLI260))((V681)))==Cnil){ |
5158 |
goto T1459;} |
goto T1459;} |
5159 |
goto T1461; |
goto T1461; |
5160 |
goto T1463; |
goto T1463; |
5161 |
T1463:; |
T1463:; |
5162 |
base[4]= (V650); |
base[4]= (V681); |
5163 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5164 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk261)(Lclptr261); |
5165 |
vs_top=sup; |
vs_top=sup; |
5173 |
return; |
return; |
5174 |
goto T1459; |
goto T1459; |
5175 |
T1459:; |
T1459:; |
5176 |
V649= CMPcdr((V649)); |
V680= CMPcdr((V680)); |
5177 |
V650= CMPcar((V649)); |
V681= CMPcar((V680)); |
5178 |
goto T1454;} |
goto T1454;} |
5179 |
goto T1450; |
goto T1450; |
5180 |
T1450:; |
T1450:; |
5181 |
{object V651; |
{object V682; |
5182 |
object V652; |
object V683; |
5183 |
register object V653; |
register object V684; |
5184 |
object V654; |
object V685; |
5185 |
V651= CMPcar((V648)); |
V682= CMPcar((V679)); |
5186 |
V652= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil); |
V683= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil); |
5187 |
if(((V647))==Cnil){ |
if(((V678))==Cnil){ |
5188 |
goto T1477;} |
goto T1477;} |
5189 |
if(!(type_of((V651))==t_cons)){ |
if(!(type_of((V682))==t_cons)){ |
5190 |
goto T1480;} |
goto T1480;} |
5191 |
if(((*(LnkLI262))((V651)))!=Cnil){ |
if(((*(LnkLI262))((V682)))!=Cnil){ |
5192 |
goto T1482;} |
goto T1482;} |
5193 |
V653= Cnil; |
V684= Cnil; |
5194 |
goto T1475; |
goto T1475; |
5195 |
goto T1482; |
goto T1482; |
5196 |
T1482:; |
T1482:; |
5197 |
base[7]= (V651); |
base[7]= (V682); |
5198 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
5199 |
(void) (*Lnk231)(); |
(void) (*Lnk231)(); |
5200 |
vs_top=sup; |
vs_top=sup; |
5201 |
V653= vs_base[0]; |
V684= vs_base[0]; |
5202 |
goto T1475; |
goto T1475; |
5203 |
goto T1480; |
goto T1480; |
5204 |
T1480:;{object V656; |
T1480:;{object V687; |
5205 |
V656= (VV[132]->s.s_dbind); |
V687= (VV[132]->s.s_dbind); |
5206 |
if(((V652))==Cnil){ |
if(((V683))==Cnil){ |
5207 |
goto T1489;} |
goto T1489;} |
5208 |
V657= (*(LnkLI263))((V647)); |
V688= (*(LnkLI263))((V678)); |
5209 |
goto T1487; |
goto T1487; |
5210 |
goto T1489; |
goto T1489; |
5211 |
T1489:; |
T1489:; |
5212 |
base[7]= (V647); |
base[7]= (V678); |
5213 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
5214 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
5215 |
vs_top=sup; |
vs_top=sup; |
5216 |
V657= vs_base[0]; |
V688= vs_base[0]; |
5217 |
goto T1487; |
goto T1487; |
5218 |
T1487:; |
T1487:; |
5219 |
{register object x= V656,V655= V657; |
{register object x= V687,V686= V688; |
5220 |
while(V655!=Cnil) |
while(V686!=Cnil) |
5221 |
if(eql(x,V655->c.c_car)){ |
if(eql(x,V686->c.c_car)){ |
5222 |
goto T1485; |
goto T1485; |
5223 |
}else V655=V655->c.c_cdr;}} |
}else V686=V686->c.c_cdr;}} |
5224 |
V653= Cnil; |
V684= Cnil; |
5225 |
goto T1475; |
goto T1475; |
5226 |
goto T1485; |
goto T1485; |
5227 |
T1485:; |
T1485:; |
5228 |
if(((V652))==Cnil){ |
if(((V683))==Cnil){ |
5229 |
goto T1495;}{object V658; |
goto T1495;}{object V689; |
5230 |
V658= (VV[133]->s.s_dbind); |
V689= (VV[133]->s.s_dbind); |
5231 |
V659= (*(LnkLI265))((V651)); |
V690= (*(LnkLI265))((V682)); |
5232 |
if((((V658)==(/* INLINE-ARGS */V659)?Ct:Cnil))==Cnil){ |
if((((V689)==(/* INLINE-ARGS */V690)?Ct:Cnil))==Cnil){ |
5233 |
goto T1492;} |
goto T1492;} |
5234 |
goto T1493;} |
goto T1493;} |
5235 |
goto T1495; |
goto T1495; |
5236 |
T1495:; |
T1495:; |
5237 |
base[7]= (V651); |
base[7]= (V682); |
5238 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
5239 |
(void) (*Lnk266)(Lclptr266); |
(void) (*Lnk266)(Lclptr266); |
5240 |
vs_top=sup; |
vs_top=sup; |
5242 |
goto T1492;} |
goto T1492;} |
5243 |
goto T1493; |
goto T1493; |
5244 |
T1493:; |
T1493:; |
5245 |
V653= Cnil; |
V684= Cnil; |
5246 |
goto T1475; |
goto T1475; |
5247 |
goto T1492; |
goto T1492; |
5248 |
T1492:; |
T1492:; |
5249 |
if(((V652))==Cnil){ |
if(((V683))==Cnil){ |
5250 |
goto T1499;} |
goto T1499;} |
5251 |
V653= (*(LnkLI267))((V651)); |
V684= (*(LnkLI267))((V682)); |
5252 |
goto T1475; |
goto T1475; |
5253 |
goto T1499; |
goto T1499; |
5254 |
T1499:; |
T1499:; |
5255 |
base[7]= (V651); |
base[7]= (V682); |
5256 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
5257 |
(void) (*Lnk268)(Lclptr268); |
(void) (*Lnk268)(Lclptr268); |
5258 |
vs_top=sup; |
vs_top=sup; |
5259 |
V653= vs_base[0]; |
V684= vs_base[0]; |
5260 |
goto T1475; |
goto T1475; |
5261 |
goto T1477; |
goto T1477; |
5262 |
T1477:; |
T1477:; |
5263 |
V653= Cnil; |
V684= Cnil; |
5264 |
goto T1475; |
goto T1475; |
5265 |
T1475:; |
T1475:; |
5266 |
if((V647)==Cnil){ |
if((V678)==Cnil){ |
5267 |
V654= Cnil; |
V685= Cnil; |
5268 |
goto T1502;} |
goto T1502;} |
5269 |
if(((V652))==Cnil){ |
if(((V683))==Cnil){ |
5270 |
goto T1504;} |
goto T1504;} |
5271 |
{register object V660; |
{register object V691; |
5272 |
register object V661; |
register object V692; |
5273 |
V660= (*(LnkLI269))((V647)); |
V691= (*(LnkLI269))((V678)); |
5274 |
V661= CMPcar((V660)); |
V692= CMPcar((V691)); |
5275 |
goto T1509; |
goto T1509; |
5276 |
T1509:; |
T1509:; |
5277 |
if(!(((V660))==Cnil)){ |
if(!(((V691))==Cnil)){ |
5278 |
goto T1510;} |
goto T1510;} |
5279 |
V654= Cnil; |
V685= Cnil; |
5280 |
goto T1502; |
goto T1502; |
5281 |
goto T1510; |
goto T1510; |
5282 |
T1510:; |
T1510:; |
5283 |
V662= (*(LnkLI270))((V661)); |
V693 = (V684); |
5284 |
if(!(eql((V653),/* INLINE-ARGS */V662))){ |
V694= (*(LnkLI270))((V692)); |
5285 |
|
if(!(eql(V693,/* INLINE-ARGS */V694))){ |
5286 |
goto T1514;} |
goto T1514;} |
5287 |
V654= (V661); |
V685= (V692); |
5288 |
goto T1502; |
goto T1502; |
5289 |
goto T1514; |
goto T1514; |
5290 |
T1514:; |
T1514:; |
5291 |
V660= CMPcdr((V660)); |
V691= CMPcdr((V691)); |
5292 |
V661= CMPcar((V660)); |
V692= CMPcar((V691)); |
5293 |
goto T1509;} |
goto T1509;} |
5294 |
goto T1504; |
goto T1504; |
5295 |
T1504:; |
T1504:; |
5296 |
V654= (*(LnkLI271))((V647),(V653)); |
V685= (*(LnkLI271))((V678),(V684)); |
5297 |
goto T1502; |
goto T1502; |
5298 |
T1502:; |
T1502:; |
5299 |
if(((V654))==Cnil){ |
if(((V685))==Cnil){ |
5300 |
goto T1523;} |
goto T1523;} |
5301 |
if(((V652))!=Cnil){ |
if(((V683))!=Cnil){ |
5302 |
goto T1522;} |
goto T1522;} |
5303 |
base[7]= (V654); |
base[7]= (V685); |
5304 |
base[8]= (V646); |
base[8]= (V677); |
5305 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
5306 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk272)(Lclptr272); |
5307 |
vs_top=sup; |
vs_top=sup; |
5309 |
goto T1523;} |
goto T1523;} |
5310 |
goto T1522; |
goto T1522; |
5311 |
T1522:; |
T1522:; |
5312 |
if(((V652))==Cnil){ |
if(((V683))==Cnil){ |
5313 |
goto T1533;} |
goto T1533;} |
5314 |
base[7]= (*(LnkLI273))((V654)); |
base[7]= (*(LnkLI273))((V685)); |
5315 |
goto T1531; |
goto T1531; |
5316 |
goto T1533; |
goto T1533; |
5317 |
T1533:; |
T1533:; |
5318 |
base[8]= (V654); |
base[8]= (V685); |
5319 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
5320 |
(void) (*Lnk274)(Lclptr274); |
(void) (*Lnk274)(Lclptr274); |
5321 |
vs_top=sup; |
vs_top=sup; |
5322 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
5323 |
goto T1531; |
goto T1531; |
5324 |
T1531:; |
T1531:; |
5325 |
base[8]= (V646); |
base[8]= (V677); |
5326 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
5327 |
return; |
return; |
5328 |
goto T1523; |
goto T1523; |
5338 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
5339 |
register object *VOL sup=base+VM91; VC91 |
register object *VOL sup=base+VM91; VC91 |
5340 |
vs_check; |
vs_check; |
5341 |
{VOL object V663; |
{VOL object V695; |
5342 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
5343 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
5344 |
V663=(base[0]); |
V695=(base[0]); |
5345 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
5346 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
5347 |
if(vs_base>=vs_top){vs_top=sup;goto T1537;} |
if(vs_base>=vs_top){vs_top=sup;goto T1537;} |
5371 |
(base[2]->c.c_car)= vs_base[0]; |
(base[2]->c.c_car)= vs_base[0]; |
5372 |
goto T1540; |
goto T1540; |
5373 |
T1540:; |
T1540:; |
5374 |
{object V664; |
{object V696; |
5375 |
if(((*(LnkLI196))((V663)))==Cnil){ |
if(((*(LnkLI196))((V695)))==Cnil){ |
5376 |
goto T1548;} |
goto T1548;} |
5377 |
if(type_of(V663)==t_structure){ |
if(type_of(V695)==t_structure){ |
5378 |
goto T1554;} |
goto T1554;} |
5379 |
goto T1552; |
goto T1552; |
5380 |
goto T1554; |
goto T1554; |
5381 |
T1554:; |
T1554:; |
5382 |
if(!(((V663)->str.str_def)==(VV[134]))){ |
if(!(((V695)->str.str_def)==(VV[134]))){ |
5383 |
goto T1552;} |
goto T1552;} |
5384 |
V665= STREF(object,(V663),4); |
V697= STREF(object,(V695),4); |
5385 |
goto T1550; |
goto T1550; |
5386 |
goto T1552; |
goto T1552; |
5387 |
T1552:;{object V667; |
T1552:;{object V699; |
5388 |
V667= (VV[65]->s.s_dbind); |
V699= (VV[65]->s.s_dbind); |
5389 |
base[10]= small_fixnum(14); |
base[10]= small_fixnum(14); |
5390 |
base[11]= (V663); |
base[11]= (V695); |
5391 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5392 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
5393 |
vs_top=sup; |
vs_top=sup; |
5394 |
V668= vs_base[0]; |
V700= vs_base[0]; |
5395 |
if(!((V667)==(CMPcar(V668)))){ |
if(!((V699)==(CMPcar(V700)))){ |
5396 |
goto T1557;}} |
goto T1557;}} |
5397 |
V665= CMPcar(((V663))->cc.cc_turbo[12]); |
V697= CMPcar(((V695))->cc.cc_turbo[12]); |
5398 |
goto T1550; |
goto T1550; |
5399 |
goto T1557; |
goto T1557; |
5400 |
T1557:; |
T1557:; |
5402 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5403 |
Lerror(); |
Lerror(); |
5404 |
vs_top=sup; |
vs_top=sup; |
5405 |
V665= vs_base[0]; |
V697= vs_base[0]; |
5406 |
goto T1550; |
goto T1550; |
5407 |
T1550:; |
T1550:; |
5408 |
V664= (V665)->v.v_self[fix((VV[67]->s.s_dbind))]; |
V701 = (VV[67]->s.s_dbind); |
5409 |
|
V696= (V697)->v.v_self[fix(V701)]; |
5410 |
goto T1546; |
goto T1546; |
5411 |
goto T1548; |
goto T1548; |
5412 |
T1548:; |
T1548:; |
5413 |
base[10]= (V663); |
base[10]= (V695); |
5414 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5415 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk199)(Lclptr199); |
5416 |
vs_top=sup; |
vs_top=sup; |
5417 |
V664= vs_base[0]; |
V696= vs_base[0]; |
5418 |
goto T1546; |
goto T1546; |
5419 |
T1546:; |
T1546:; |
5420 |
base[6]= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil); |
base[6]= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil); |
5424 |
base[7]=MMcons(Cnil,base[6]); |
base[7]=MMcons(Cnil,base[6]); |
5425 |
base[8]=MMcons(Cnil,base[7]); |
base[8]=MMcons(Cnil,base[7]); |
5426 |
base[9]=MMcons(small_fixnum(0),base[8]); |
base[9]=MMcons(small_fixnum(0),base[8]); |
5427 |
{register object V669; |
{register object V702; |
5428 |
register object V670; |
register object V703; |
5429 |
V669= (V664); |
V702= (V696); |
5430 |
V670= CMPcar((V669)); |
V703= CMPcar((V702)); |
5431 |
goto T1569; |
goto T1569; |
5432 |
T1569:; |
T1569:; |
5433 |
if(!(((V669))==Cnil)){ |
if(!(((V702))==Cnil)){ |
5434 |
goto T1570;} |
goto T1570;} |
5435 |
goto T1565; |
goto T1565; |
5436 |
goto T1570; |
goto T1570; |
5437 |
T1570:; |
T1570:; |
5438 |
{object V671; |
{object V704; |
5439 |
register object V672; |
register object V705; |
5440 |
object V673; |
object V706; |
5441 |
if(!(type_of((V670))==t_cons)){ |
if(!(type_of((V703))==t_cons)){ |
5442 |
goto T1577;} |
goto T1577;} |
5443 |
V671= (VFUN_NARGS=2,(*(LnkLI275))((V670),Ct)); |
V704= (VFUN_NARGS=2,(*(LnkLI275))((V703),Ct)); |
5444 |
goto T1575; |
goto T1575; |
5445 |
goto T1577; |
goto T1577; |
5446 |
T1577:; |
T1577:; |
5447 |
base[16]= (V670); |
base[16]= (V703); |
5448 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
5449 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk242)(Lclptr242); |
5450 |
vs_top=sup; |
vs_top=sup; |
5451 |
V671= vs_base[0]; |
V704= vs_base[0]; |
5452 |
goto T1575; |
goto T1575; |
5453 |
T1575:; |
T1575:; |
5454 |
if(!(((base[1]->c.c_car))==(VV[51]))){ |
if(!(((base[1]->c.c_car))==(VV[51]))){ |
5455 |
goto T1582;} |
goto T1582;} |
5456 |
base[12]= CMPcar((V671)); |
base[12]= CMPcar((V704)); |
5457 |
goto T1580; |
goto T1580; |
5458 |
goto T1582; |
goto T1582; |
5459 |
T1582:; |
T1582:; |
5460 |
base[12]= CMPcadr((V671)); |
base[12]= CMPcadr((V704)); |
5461 |
goto T1580; |
goto T1580; |
5462 |
T1580:; |
T1580:; |
5463 |
base[12]=MMcons(base[12],base[9]); |
base[12]=MMcons(base[12],base[9]); |
5464 |
if(((base[6]->c.c_car))==Cnil){ |
if(((base[6]->c.c_car))==Cnil){ |
5465 |
goto T1586;} |
goto T1586;} |
5466 |
V672= (*(LnkLI263))((base[12]->c.c_car)); |
V705= (*(LnkLI263))((base[12]->c.c_car)); |
5467 |
goto T1584; |
goto T1584; |
5468 |
goto T1586; |
goto T1586; |
5469 |
T1586:; |
T1586:; |
5473 |
vs_top=sup; |
vs_top=sup; |
5474 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5475 |
goto T1588;} |
goto T1588;} |
5476 |
V672= Cnil; |
V705= Cnil; |
5477 |
goto T1584; |
goto T1584; |
5478 |
goto T1588; |
goto T1588; |
5479 |
T1588:; |
T1588:; |
5481 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
5482 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
5483 |
vs_top=sup; |
vs_top=sup; |
5484 |
V672= vs_base[0]; |
V705= vs_base[0]; |
5485 |
goto T1584; |
goto T1584; |
5486 |
T1584:; |
T1584:; |
5487 |
{register object x= (VV[132]->s.s_dbind),V674= (V672); |
{register object x= (VV[132]->s.s_dbind),V707= (V705); |
5488 |
while(V674!=Cnil) |
while(V707!=Cnil) |
5489 |
if(eql(x,V674->c.c_car)){ |
if(eql(x,V707->c.c_car)){ |
5490 |
base[14]= V674; |
base[14]= V707; |
5491 |
goto T1592; |
goto T1592; |
5492 |
}else V674=V674->c.c_cdr; |
}else V707=V707->c.c_cdr; |
5493 |
base[14]= Cnil;} |
base[14]= Cnil;} |
5494 |
goto T1592; |
goto T1592; |
5495 |
T1592:; |
T1592:; |
5496 |
base[14]=MMcons(base[14],base[12]); |
base[14]=MMcons(base[14],base[12]); |
5497 |
if(!(type_of((V670))==t_cons)){ |
if(!(type_of((V703))==t_cons)){ |
5498 |
goto T1595;} |
goto T1595;} |
5499 |
if(((*(LnkLI262))((V670)))!=Cnil){ |
if(((*(LnkLI262))((V703)))!=Cnil){ |
5500 |
goto T1597;} |
goto T1597;} |
5501 |
V673= Cnil; |
V706= Cnil; |
5502 |
goto T1593; |
goto T1593; |
5503 |
goto T1597; |
goto T1597; |
5504 |
T1597:; |
T1597:; |
5505 |
base[16]= (V670); |
base[16]= (V703); |
5506 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
5507 |
(void) (*Lnk231)(); |
(void) (*Lnk231)(); |
5508 |
vs_top=sup; |
vs_top=sup; |
5509 |
V673= vs_base[0]; |
V706= vs_base[0]; |
5510 |
goto T1593; |
goto T1593; |
5511 |
goto T1595; |
goto T1595; |
5512 |
T1595:; |
T1595:; |
5513 |
base[16]= (V670); |
base[16]= (V703); |
5514 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
5515 |
(void) (*Lnk268)(Lclptr268); |
(void) (*Lnk268)(Lclptr268); |
5516 |
vs_top=sup; |
vs_top=sup; |
5517 |
V673= vs_base[0]; |
V706= vs_base[0]; |
5518 |
goto T1593; |
goto T1593; |
5519 |
T1593:; |
T1593:; |
5520 |
if(((V672))==Cnil){ |
if(((V705))==Cnil){ |
5521 |
goto T1602;} |
goto T1602;} |
5522 |
{register object x= (VV[135]->s.s_dbind),V675= (V672); |
{register object x= (VV[135]->s.s_dbind),V708= (V705); |
5523 |
while(V675!=Cnil) |
while(V708!=Cnil) |
5524 |
if(eql(x,V675->c.c_car)){ |
if(eql(x,V708->c.c_car)){ |
5525 |
goto T1605; |
goto T1605; |
5526 |
}else V675=V675->c.c_cdr; |
}else V708=V708->c.c_cdr; |
5527 |
goto T1601;} |
goto T1601;} |
5528 |
goto T1605; |
goto T1605; |
5529 |
T1605:; |
T1605:; |
5537 |
T1601:; |
T1601:; |
5538 |
base[16]= |
base[16]= |
5539 |
make_cclosure_new(LC162,Cnil,base[14],Cdata); |
make_cclosure_new(LC162,Cnil,base[14],Cdata); |
5540 |
base[18]= (V673); |
base[18]= (V706); |
5541 |
base[19]= (VV[136]->s.s_dbind); |
base[19]= (VV[136]->s.s_dbind); |
5542 |
vs_top=(vs_base=base+18)+2; |
vs_top=(vs_base=base+18)+2; |
5543 |
Lgethash(); |
Lgethash(); |
5546 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
5547 |
Lmaphash(); |
Lmaphash(); |
5548 |
vs_top=sup;} |
vs_top=sup;} |
5549 |
V669= CMPcdr((V669)); |
V702= CMPcdr((V702)); |
5550 |
V670= CMPcar((V669)); |
V703= CMPcar((V702)); |
5551 |
goto T1569;} |
goto T1569;} |
5552 |
goto T1565; |
goto T1565; |
5553 |
T1565:; |
T1565:; |
5575 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5576 |
register object *sup=base+VM92; VC92 |
register object *sup=base+VM92; VC92 |
5577 |
vs_check; |
vs_check; |
5578 |
{object V676; |
{object V709; |
5579 |
object V677; |
object V710; |
5580 |
check_arg(2); |
check_arg(2); |
5581 |
V676=(base[0]); |
V709=(base[0]); |
5582 |
V677=(base[1]); |
V710=(base[1]); |
5583 |
vs_top=sup; |
vs_top=sup; |
5584 |
goto TTL; |
goto TTL; |
5585 |
TTL:; |
TTL:; |
5586 |
{object V678; |
{object V711; |
5587 |
object V679; |
object V712; |
5588 |
V678= Ct; |
V711= Ct; |
5589 |
V679= Cnil; |
V712= Cnil; |
5590 |
{register object V680; |
{register object V713; |
5591 |
register object V681; |
register object V714; |
5592 |
if(((*(LnkLI196))((V676)))==Cnil){ |
if(((*(LnkLI196))((V709)))==Cnil){ |
5593 |
goto T1627;} |
goto T1627;} |
5594 |
if(type_of(V676)==t_structure){ |
if(type_of(V709)==t_structure){ |
5595 |
goto T1633;} |
goto T1633;} |
5596 |
goto T1631; |
goto T1631; |
5597 |
goto T1633; |
goto T1633; |
5598 |
T1633:; |
T1633:; |
5599 |
if(!(((V676)->str.str_def)==(VV[138]))){ |
if(!(((V709)->str.str_def)==(VV[138]))){ |
5600 |
goto T1631;} |
goto T1631;} |
5601 |
V682= STREF(object,(V676),4); |
V715= STREF(object,(V709),4); |
5602 |
goto T1629; |
goto T1629; |
5603 |
goto T1631; |
goto T1631; |
5604 |
T1631:;{object V684; |
T1631:;{object V717; |
5605 |
V684= (VV[65]->s.s_dbind); |
V717= (VV[65]->s.s_dbind); |
5606 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
5607 |
base[5]= (V676); |
base[5]= (V709); |
5608 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5609 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
5610 |
vs_top=sup; |
vs_top=sup; |
5611 |
V685= vs_base[0]; |
V718= vs_base[0]; |
5612 |
if(!((V684)==(CMPcar(V685)))){ |
if(!((V717)==(CMPcar(V718)))){ |
5613 |
goto T1636;}} |
goto T1636;}} |
5614 |
V682= CMPcar(((V676))->cc.cc_turbo[12]); |
V715= CMPcar(((V709))->cc.cc_turbo[12]); |
5615 |
goto T1629; |
goto T1629; |
5616 |
goto T1636; |
goto T1636; |
5617 |
T1636:; |
T1636:; |
5619 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5620 |
Lerror(); |
Lerror(); |
5621 |
vs_top=sup; |
vs_top=sup; |
5622 |
V682= vs_base[0]; |
V715= vs_base[0]; |
5623 |
goto T1629; |
goto T1629; |
5624 |
T1629:; |
T1629:; |
5625 |
V680= (V682)->v.v_self[fix((VV[67]->s.s_dbind))]; |
V719 = (VV[67]->s.s_dbind); |
5626 |
|
V713= (V715)->v.v_self[fix(V719)]; |
5627 |
goto T1625; |
goto T1625; |
5628 |
goto T1627; |
goto T1627; |
5629 |
T1627:; |
T1627:; |
5630 |
base[4]= (V676); |
base[4]= (V709); |
5631 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5632 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk199)(Lclptr199); |
5633 |
vs_top=sup; |
vs_top=sup; |
5634 |
V680= vs_base[0]; |
V713= vs_base[0]; |
5635 |
goto T1625; |
goto T1625; |
5636 |
T1625:; |
T1625:; |
5637 |
V681= CMPcar((V680)); |
V714= CMPcar((V713)); |
5638 |
goto T1645; |
goto T1645; |
5639 |
T1645:; |
T1645:; |
5640 |
if(!(((V680))==Cnil)){ |
if(!(((V713))==Cnil)){ |
5641 |
goto T1646;} |
goto T1646;} |
5642 |
goto T1624; |
goto T1624; |
5643 |
goto T1646; |
goto T1646; |
5644 |
T1646:; |
T1646:; |
5645 |
{object V686; |
{object V720; |
5646 |
register object V687; |
register object V721; |
5647 |
register object V688; |
register object V722; |
5648 |
register object V689; |
register object V723; |
5649 |
if(!(type_of((V681))==t_cons)){ |
if(!(type_of((V714))==t_cons)){ |
5650 |
goto T1653;} |
goto T1653;} |
5651 |
V686= (VFUN_NARGS=2,(*(LnkLI275))((V681),Ct)); |
V720= (VFUN_NARGS=2,(*(LnkLI275))((V714),Ct)); |
5652 |
goto T1651; |
goto T1651; |
5653 |
goto T1653; |
goto T1653; |
5654 |
T1653:; |
T1653:; |
5655 |
base[4]= (V681); |
base[4]= (V714); |
5656 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5657 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk242)(Lclptr242); |
5658 |
vs_top=sup; |
vs_top=sup; |
5659 |
V686= vs_base[0]; |
V720= vs_base[0]; |
5660 |
goto T1651; |
goto T1651; |
5661 |
T1651:; |
T1651:; |
5662 |
V687= (V677); |
V721= (V710); |
5663 |
V688= Ct; |
V722= Ct; |
5664 |
V689= Ct; |
V723= Ct; |
5665 |
{register object V690; |
{register object V724; |
5666 |
register object V691; |
register object V725; |
5667 |
V690= (V686); |
V724= (V720); |
5668 |
V691= CMPcar((V690)); |
V725= CMPcar((V724)); |
5669 |
goto T1660; |
goto T1660; |
5670 |
T1660:; |
T1660:; |
5671 |
if(!(((V690))==Cnil)){ |
if(!(((V724))==Cnil)){ |
5672 |
goto T1661;} |
goto T1661;} |
5673 |
goto T1656; |
goto T1656; |
5674 |
goto T1661; |
goto T1661; |
5675 |
T1661:; |
T1661:; |
5676 |
{object V692; |
{object V726; |
5677 |
object V693; |
object V727; |
5678 |
base[5]= (V691); |
base[5]= (V725); |
5679 |
{object V694; |
{object V728; |
5680 |
V694= CMPcar((V687)); |
V728= CMPcar((V721)); |
5681 |
V687= CMPcdr((V687)); |
V721= CMPcdr((V721)); |
5682 |
base[6]= (V694);} |
base[6]= (V728);} |
5683 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
5684 |
(void) (*Lnk146)(); |
(void) (*Lnk146)(); |
5685 |
if(vs_base>=vs_top){vs_top=sup;goto T1672;} |
if(vs_base>=vs_top){vs_top=sup;goto T1672;} |
5686 |
V692= vs_base[0]; |
V726= vs_base[0]; |
5687 |
vs_base++; |
vs_base++; |
5688 |
if(vs_base>=vs_top){vs_top=sup;goto T1673;} |
if(vs_base>=vs_top){vs_top=sup;goto T1673;} |
5689 |
V693= vs_base[0]; |
V727= vs_base[0]; |
5690 |
vs_top=sup; |
vs_top=sup; |
5691 |
goto T1674; |
goto T1674; |
5692 |
goto T1672; |
goto T1672; |
5693 |
T1672:; |
T1672:; |
5694 |
V692= Cnil; |
V726= Cnil; |
5695 |
goto T1673; |
goto T1673; |
5696 |
T1673:; |
T1673:; |
5697 |
V693= Cnil; |
V727= Cnil; |
5698 |
goto T1674; |
goto T1674; |
5699 |
T1674:; |
T1674:; |
5700 |
if(((V692))!=Cnil){ |
if(((V726))!=Cnil){ |
5701 |
goto T1675;} |
goto T1675;} |
5702 |
V689= Cnil; |
V723= Cnil; |
5703 |
goto T1675; |
goto T1675; |
5704 |
T1675:; |
T1675:; |
5705 |
if(((V693))!=Cnil){ |
if(((V727))!=Cnil){ |
5706 |
goto T1665;} |
goto T1665;} |
5707 |
V688= Cnil; |
V722= Cnil; |
5708 |
goto T1656;} |
goto T1656;} |
5709 |
goto T1665; |
goto T1665; |
5710 |
T1665:; |
T1665:; |
5711 |
V690= CMPcdr((V690)); |
V724= CMPcdr((V724)); |
5712 |
V691= CMPcar((V690)); |
V725= CMPcar((V724)); |
5713 |
goto T1660;} |
goto T1660;} |
5714 |
goto T1656; |
goto T1656; |
5715 |
T1656:; |
T1656:; |
5716 |
if(((V688))==Cnil){ |
if(((V722))==Cnil){ |
5717 |
goto T1650;} |
goto T1650;} |
5718 |
if(((V689))!=Cnil){ |
if(((V723))!=Cnil){ |
5719 |
goto T1690;} |
goto T1690;} |
5720 |
V678= Cnil; |
V711= Cnil; |
5721 |
goto T1690; |
goto T1690; |
5722 |
T1690:; |
T1690:; |
5723 |
V679= make_cons(V681,(V679));} |
V712= make_cons(V714,(V712));} |
5724 |
goto T1650; |
goto T1650; |
5725 |
T1650:; |
T1650:; |
5726 |
V680= CMPcdr((V680)); |
V713= CMPcdr((V713)); |
5727 |
V681= CMPcar((V680)); |
V714= CMPcar((V713)); |
5728 |
goto T1645;} |
goto T1645;} |
5729 |
goto T1624; |
goto T1624; |
5730 |
T1624:; |
T1624:; |
5731 |
{object V696; |
{object V730; |
5732 |
if(((*(LnkLI196))((V676)))==Cnil){ |
if(((*(LnkLI196))((V709)))==Cnil){ |
5733 |
goto T1703;} |
goto T1703;} |
5734 |
if(type_of(V676)==t_structure){ |
if(type_of(V709)==t_structure){ |
5735 |
goto T1709;} |
goto T1709;} |
5736 |
goto T1707; |
goto T1707; |
5737 |
goto T1709; |
goto T1709; |
5738 |
T1709:; |
T1709:; |
5739 |
if(!(((V676)->str.str_def)==(VV[139]))){ |
if(!(((V709)->str.str_def)==(VV[139]))){ |
5740 |
goto T1707;} |
goto T1707;} |
5741 |
V698= STREF(object,(V676),4); |
V732= STREF(object,(V709),4); |
5742 |
goto T1705; |
goto T1705; |
5743 |
goto T1707; |
goto T1707; |
5744 |
T1707:;{object V700; |
T1707:;{object V734; |
5745 |
V700= (VV[65]->s.s_dbind); |
V734= (VV[65]->s.s_dbind); |
5746 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
5747 |
base[3]= (V676); |
base[3]= (V709); |
5748 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
5749 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
5750 |
vs_top=sup; |
vs_top=sup; |
5751 |
V701= vs_base[0]; |
V735= vs_base[0]; |
5752 |
if(!((V700)==(CMPcar(V701)))){ |
if(!((V734)==(CMPcar(V735)))){ |
5753 |
goto T1712;}} |
goto T1712;}} |
5754 |
V698= CMPcar(((V676))->cc.cc_turbo[12]); |
V732= CMPcar(((V709))->cc.cc_turbo[12]); |
5755 |
goto T1705; |
goto T1705; |
5756 |
goto T1712; |
goto T1712; |
5757 |
T1712:; |
T1712:; |
5759 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5760 |
Lerror(); |
Lerror(); |
5761 |
vs_top=sup; |
vs_top=sup; |
5762 |
V698= vs_base[0]; |
V732= vs_base[0]; |
5763 |
goto T1705; |
goto T1705; |
5764 |
T1705:; |
T1705:; |
5765 |
V697= (V698)->v.v_self[fix((VV[97]->s.s_dbind))]; |
V736 = (VV[97]->s.s_dbind); |
5766 |
|
V731= (V732)->v.v_self[fix(V736)]; |
5767 |
goto T1701; |
goto T1701; |
5768 |
goto T1703; |
goto T1703; |
5769 |
T1703:; |
T1703:; |
5770 |
base[2]= (V676); |
base[2]= (V709); |
5771 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5772 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk161)(Lclptr161); |
5773 |
vs_top=sup; |
vs_top=sup; |
5774 |
V697= vs_base[0]; |
V731= vs_base[0]; |
5775 |
goto T1701; |
goto T1701; |
5776 |
T1701:; |
T1701:; |
5777 |
V696= STREF(object,V697,4); |
V730= STREF(object,V731,4); |
5778 |
V702= nreverse((V679)); |
V737 = (V730); |
5779 |
base[2]= (*(LnkLI277))((V696),/* INLINE-ARGS */V702,(V677)); |
V738= nreverse((V712)); |
5780 |
base[3]= (V678); |
V739 = (V710); |
5781 |
|
base[2]= (*(LnkLI277))(V737,/* INLINE-ARGS */V738,V739); |
5782 |
|
base[3]= (V711); |
5783 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
5784 |
return;}} |
return;}} |
5785 |
} |
} |
5786 |
} |
} |
5787 |
/* local entry for function SORT-APPLICABLE-METHODS */ |
/* local entry for function SORT-APPLICABLE-METHODS */ |
5788 |
|
|
5789 |
static object LI99(V706,V707,V708) |
static object LI99(V743,V744,V745) |
5790 |
|
|
5791 |
object V706;object V707;object V708; |
object V743;object V744;object V745; |
5792 |
{ VMB93 VMS93 VMV93 |
{ VMB93 VMS93 VMV93 |
5793 |
goto TTL; |
goto TTL; |
5794 |
TTL:; |
TTL:; |
5795 |
base[0]=MMcons((V708),Cnil); |
base[0]=MMcons((V745),Cnil); |
5796 |
V709= |
V746 = (V744); |
5797 |
|
V747 = (V743); |
5798 |
|
V748= |
5799 |
make_cclosure_new(LC164,Cnil,base[0],Cdata); |
make_cclosure_new(LC164,Cnil,base[0],Cdata); |
5800 |
{object V710 = (*(LnkLI278))((V707),(V706),V709); |
{object V749 = (*(LnkLI278))(V746,V747,V748); |
5801 |
VMR93(V710)} |
VMR93(V749)} |
5802 |
base[0]=base[0]; |
base[0]=base[0]; |
5803 |
return Cnil; |
return Cnil; |
5804 |
} |
} |
5805 |
/* local entry for function SORT-METHODS */ |
/* local entry for function SORT-METHODS */ |
5806 |
|
|
5807 |
static object LI102(V714,V715,V716) |
static object LI102(V753,V754,V755) |
5808 |
|
|
5809 |
object V714;object V715;object V716; |
object V753;object V754;object V755; |
5810 |
{ VMB94 VMS94 VMV94 |
{ VMB94 VMS94 VMV94 |
5811 |
goto TTL; |
goto TTL; |
5812 |
TTL:; |
TTL:; |
5813 |
base[0]=MMcons((V716),Cnil); |
base[0]=MMcons((V755),Cnil); |
5814 |
base[1]=MMcons((V715),base[0]); |
base[1]=MMcons((V754),base[0]); |
5815 |
base[2]=make_cclosure_new(LC103,Cnil,base[1],Cdata); |
base[2]=make_cclosure_new(LC103,Cnil,base[1],Cdata); |
5816 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
5817 |
base[3]= (V714); |
base[3]= (V753); |
5818 |
base[4]= (base[2]->c.c_car); |
base[4]= (base[2]->c.c_car); |
5819 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5820 |
(void) (*Lnk279)(); |
(void) (*Lnk279)(); |
5821 |
vs_top=sup; |
vs_top=sup; |
5822 |
{object V717 = vs_base[0]; |
{object V756 = vs_base[0]; |
5823 |
VMR94(V717)} |
VMR94(V756)} |
5824 |
base[0]=base[0]; |
base[0]=base[0]; |
5825 |
return Cnil; |
return Cnil; |
5826 |
} |
} |
5830 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5831 |
register object *sup=base+VM95; VC95 |
register object *sup=base+VM95; VC95 |
5832 |
vs_check; |
vs_check; |
5833 |
{register object V718; |
{register object V757; |
5834 |
register object V719; |
register object V758; |
5835 |
object V720; |
object V759; |
5836 |
object V721; |
object V760; |
5837 |
check_arg(4); |
check_arg(4); |
5838 |
V718=(base[0]); |
V757=(base[0]); |
5839 |
V719=(base[1]); |
V758=(base[1]); |
5840 |
V720=(base[2]); |
V759=(base[2]); |
5841 |
V721=(base[3]); |
V760=(base[3]); |
5842 |
vs_top=sup; |
vs_top=sup; |
5843 |
goto TTL; |
goto TTL; |
5844 |
TTL:; |
TTL:; |
5845 |
{object V722; |
{object V761; |
5846 |
register object V723; |
register object V762; |
5847 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
5848 |
goto T1726;} |
goto T1726;} |
5849 |
base[4]= (V718); |
base[4]= (V757); |
5850 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5851 |
(void) (*Lnk280)(Lclptr280); |
(void) (*Lnk280)(Lclptr280); |
5852 |
vs_top=sup; |
vs_top=sup; |
5853 |
V722= vs_base[0]; |
V761= vs_base[0]; |
5854 |
goto T1724; |
goto T1724; |
5855 |
goto T1726; |
goto T1726; |
5856 |
T1726:; |
T1726:; |
5857 |
if(type_of(V718)==t_structure){ |
if(type_of(V757)==t_structure){ |
5858 |
goto T1733;} |
goto T1733;} |
5859 |
goto T1731; |
goto T1731; |
5860 |
goto T1733; |
goto T1733; |
5861 |
T1733:; |
T1733:; |
5862 |
if(!(((V718)->str.str_def)==(VV[140]))){ |
if(!(((V757)->str.str_def)==(VV[140]))){ |
5863 |
goto T1731;} |
goto T1731;} |
5864 |
V724= STREF(object,(V718),4); |
V763= STREF(object,(V757),4); |
5865 |
goto T1729; |
goto T1729; |
5866 |
goto T1731; |
goto T1731; |
5867 |
T1731:;{object V726; |
T1731:;{object V765; |
5868 |
V726= (VV[65]->s.s_dbind); |
V765= (VV[65]->s.s_dbind); |
5869 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
5870 |
base[5]= (V718); |
base[5]= (V757); |
5871 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5872 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
5873 |
vs_top=sup; |
vs_top=sup; |
5874 |
V727= vs_base[0]; |
V766= vs_base[0]; |
5875 |
if(!((V726)==(CMPcar(V727)))){ |
if(!((V765)==(CMPcar(V766)))){ |
5876 |
goto T1736;}} |
goto T1736;}} |
5877 |
V724= CMPcar(((V718))->cc.cc_turbo[12]); |
V763= CMPcar(((V757))->cc.cc_turbo[12]); |
5878 |
goto T1729; |
goto T1729; |
5879 |
goto T1736; |
goto T1736; |
5880 |
T1736:; |
T1736:; |
5882 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5883 |
Lerror(); |
Lerror(); |
5884 |
vs_top=sup; |
vs_top=sup; |
5885 |
V724= vs_base[0]; |
V763= vs_base[0]; |
5886 |
goto T1729; |
goto T1729; |
5887 |
T1729:; |
T1729:; |
5888 |
V728= (*(LnkLI281))(VV[141],VV[142]); |
V767= (*(LnkLI281))(VV[141],VV[142]); |
5889 |
V722= (V724)->v.v_self[fix(/* INLINE-ARGS */V728)]; |
V761= (V763)->v.v_self[fix(/* INLINE-ARGS */V767)]; |
5890 |
goto T1724; |
goto T1724; |
5891 |
T1724:; |
T1724:; |
5892 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
5893 |
goto T1744;} |
goto T1744;} |
5894 |
base[4]= (V719); |
base[4]= (V758); |
5895 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5896 |
(void) (*Lnk280)(Lclptr280); |
(void) (*Lnk280)(Lclptr280); |
5897 |
vs_top=sup; |
vs_top=sup; |
5898 |
V723= vs_base[0]; |
V762= vs_base[0]; |
5899 |
goto T1742; |
goto T1742; |
5900 |
goto T1744; |
goto T1744; |
5901 |
T1744:; |
T1744:; |
5902 |
if(type_of(V719)==t_structure){ |
if(type_of(V758)==t_structure){ |
5903 |
goto T1751;} |
goto T1751;} |
5904 |
goto T1749; |
goto T1749; |
5905 |
goto T1751; |
goto T1751; |
5906 |
T1751:; |
T1751:; |
5907 |
if(!(((V719)->str.str_def)==(VV[143]))){ |
if(!(((V758)->str.str_def)==(VV[143]))){ |
5908 |
goto T1749;} |
goto T1749;} |
5909 |
V729= STREF(object,(V719),4); |
V768= STREF(object,(V758),4); |
5910 |
goto T1747; |
goto T1747; |
5911 |
goto T1749; |
goto T1749; |
5912 |
T1749:;{object V731; |
T1749:;{object V770; |
5913 |
V731= (VV[65]->s.s_dbind); |
V770= (VV[65]->s.s_dbind); |
5914 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
5915 |
base[5]= (V719); |
base[5]= (V758); |
5916 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5917 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
5918 |
vs_top=sup; |
vs_top=sup; |
5919 |
V732= vs_base[0]; |
V771= vs_base[0]; |
5920 |
if(!((V731)==(CMPcar(V732)))){ |
if(!((V770)==(CMPcar(V771)))){ |
5921 |
goto T1754;}} |
goto T1754;}} |
5922 |
V729= CMPcar(((V719))->cc.cc_turbo[12]); |
V768= CMPcar(((V758))->cc.cc_turbo[12]); |
5923 |
goto T1747; |
goto T1747; |
5924 |
goto T1754; |
goto T1754; |
5925 |
T1754:; |
T1754:; |
5927 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5928 |
Lerror(); |
Lerror(); |
5929 |
vs_top=sup; |
vs_top=sup; |
5930 |
V729= vs_base[0]; |
V768= vs_base[0]; |
5931 |
goto T1747; |
goto T1747; |
5932 |
T1747:; |
T1747:; |
5933 |
V733= (*(LnkLI281))(VV[141],VV[142]); |
V772= (*(LnkLI281))(VV[141],VV[142]); |
5934 |
V723= (V729)->v.v_self[fix(/* INLINE-ARGS */V733)]; |
V762= (V768)->v.v_self[fix(/* INLINE-ARGS */V772)]; |
5935 |
goto T1742; |
goto T1742; |
5936 |
T1742:; |
T1742:; |
5937 |
if(!(((V718))==((V719)))){ |
if(!(((V757))==((V758)))){ |
5938 |
goto T1761;} |
goto T1761;} |
5939 |
base[4]= Cnil; |
base[4]= Cnil; |
5940 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5941 |
return; |
return; |
5942 |
goto T1761; |
goto T1761; |
5943 |
T1761:; |
T1761:; |
5944 |
if(!(type_of((V722))!=t_cons)){ |
if(!(type_of((V761))!=t_cons)){ |
5945 |
goto T1764;} |
goto T1764;} |
5946 |
base[4]= (V719); |
base[4]= (V758); |
5947 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5948 |
return; |
return; |
5949 |
goto T1764; |
goto T1764; |
5950 |
T1764:; |
T1764:; |
5951 |
if(!(type_of((V723))!=t_cons)){ |
if(!(type_of((V762))!=t_cons)){ |
5952 |
goto T1767;} |
goto T1767;} |
5953 |
base[4]= (V718); |
base[4]= (V757); |
5954 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5955 |
return; |
return; |
5956 |
goto T1767; |
goto T1767; |
5957 |
T1767:; |
T1767:; |
5958 |
{object V734= CMPcar((V722)); |
{object V773= CMPcar((V761)); |
5959 |
if((V734!= VV[10]))goto T1769; |
if((V773!= VV[10]))goto T1769; |
5960 |
{object V735= CMPcar((V723)); |
{object V774= CMPcar((V762)); |
5961 |
if((V735!= VV[10]))goto T1770; |
if((V774!= VV[10]))goto T1770; |
5962 |
base[4]= (V718); |
base[4]= (V757); |
5963 |
base[5]= (V719); |
base[5]= (V758); |
5964 |
base[6]= (V720); |
base[6]= (V759); |
5965 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
5966 |
{object _funobj = (V721);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V760);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5967 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5968 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5969 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5970 |
return; |
return; |
5971 |
goto T1770; |
goto T1770; |
5972 |
T1770:; |
T1770:; |
5973 |
base[4]= (V719); |
base[4]= (V758); |
5974 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5975 |
return;} |
return;} |
5976 |
goto T1769; |
goto T1769; |
5977 |
T1769:; |
T1769:; |
5978 |
if((V734!= VV[282]))goto T1774; |
if((V773!= VV[282]))goto T1774; |
5979 |
{object V736= CMPcar((V723)); |
{object V775= CMPcar((V762)); |
5980 |
if((V736!= VV[10]))goto T1775; |
if((V775!= VV[10]))goto T1775; |
5981 |
base[4]= (V718); |
base[4]= (V757); |
5982 |
base[5]= (V719); |
base[5]= (V758); |
5983 |
base[6]= (V720); |
base[6]= (V759); |
5984 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
5985 |
{object _funobj = (V721);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V760);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5986 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5987 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5988 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5989 |
return; |
return; |
5990 |
goto T1775; |
goto T1775; |
5991 |
T1775:; |
T1775:; |
5992 |
base[4]= (V719); |
base[4]= (V758); |
5993 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5994 |
return;} |
return;} |
5995 |
goto T1774; |
goto T1774; |
5996 |
T1774:; |
T1774:; |
5997 |
if((V734!= VV[130]))goto T1779; |
if((V773!= VV[130]))goto T1779; |
5998 |
{object V737= CMPcar((V723)); |
{object V776= CMPcar((V762)); |
5999 |
if((V737!= VV[147]))goto T1780; |
if((V776!= VV[147]))goto T1780; |
6000 |
base[4]= (V719); |
base[4]= (V758); |
6001 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6002 |
return; |
return; |
6003 |
goto T1780; |
goto T1780; |
6004 |
T1780:; |
T1780:; |
6005 |
if((V737!= VV[130]))goto T1781; |
if((V776!= VV[130]))goto T1781; |
6006 |
base[4]= Cnil; |
base[4]= Cnil; |
6007 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6008 |
return; |
return; |
6009 |
goto T1781; |
goto T1781; |
6010 |
T1781:; |
T1781:; |
6011 |
if((V737!= VV[10]))goto T1782; |
if((V776!= VV[10]))goto T1782; |
6012 |
base[4]= (V722); |
base[4]= (V761); |
6013 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6014 |
return; |
return; |
6015 |
goto T1782; |
goto T1782; |
6019 |
return;} |
return;} |
6020 |
goto T1779; |
goto T1779; |
6021 |
T1779:; |
T1779:; |
6022 |
if((V734!= VV[147]))goto T1783; |
if((V773!= VV[147]))goto T1783; |
6023 |
{object V738= CMPcar((V723)); |
{object V777= CMPcar((V762)); |
6024 |
if((V738!= VV[147]))goto T1784; |
if((V777!= VV[147]))goto T1784; |
6025 |
base[4]= Cnil; |
base[4]= Cnil; |
6026 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6027 |
return; |
return; |
6028 |
goto T1784; |
goto T1784; |
6029 |
T1784:; |
T1784:; |
6030 |
base[4]= (V718); |
base[4]= (V757); |
6031 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6032 |
return;} |
return;} |
6033 |
goto T1783; |
goto T1783; |
6039 |
} |
} |
6040 |
/* local entry for function MAP-ALL-ORDERS */ |
/* local entry for function MAP-ALL-ORDERS */ |
6041 |
|
|
6042 |
static object LI105(V742,V743,V744) |
static object LI105(V781,V782,V783) |
6043 |
|
|
6044 |
object V742;object V743;object V744; |
object V781;object V782;object V783; |
6045 |
{ VMB96 VMS96 VMV96 |
{ VMB96 VMS96 VMV96 |
6046 |
goto TTL; |
goto TTL; |
6047 |
TTL:; |
TTL:; |
6050 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
6051 |
goto T1786; |
goto T1786; |
6052 |
T1786:; |
T1786:; |
6053 |
V745= (base[1]->c.c_car); |
V784 = (V783); |
6054 |
V746= (*(LnkLI278))((V742),(V743),V745); |
V785 = (V781); |
6055 |
|
V786 = (V782); |
6056 |
|
V787= (base[1]->c.c_car); |
6057 |
|
V788= (*(LnkLI278))(V785,V786,V787); |
6058 |
(void)(( |
(void)(( |
6059 |
(type_of((V744)) == t_sfun ?(*(((V744))->sfn.sfn_self)): |
V789 = V784, |
6060 |
(fcall.argd=1,type_of((V744))==t_vfun) ? |
(type_of(V789) == t_sfun ?(*((V789)->sfn.sfn_self)): |
6061 |
(*(((V744))->sfn.sfn_self)): |
(fcall.argd=1,type_of(V789)==t_vfun) ? |
6062 |
(fcall.fun=((V744)),fcalln))(/* INLINE-ARGS */V746))); |
(*((V789)->sfn.sfn_self)): |
6063 |
{register object V747; |
(fcall.fun=(V789),fcalln))(/* INLINE-ARGS */V788))); |
6064 |
register object V748; |
{register object V790; |
6065 |
V747= (base[0]->c.c_car); |
register object V791; |
6066 |
V748= CMPcar((V747)); |
V790= (base[0]->c.c_car); |
6067 |
|
V791= CMPcar((V790)); |
6068 |
goto T1795; |
goto T1795; |
6069 |
T1795:; |
T1795:; |
6070 |
if(!(((V747))==Cnil)){ |
if(!(((V790))==Cnil)){ |
6071 |
goto T1796;} |
goto T1796;} |
6072 |
goto T1791; |
goto T1791; |
6073 |
goto T1796; |
goto T1796; |
6074 |
T1796:; |
T1796:; |
6075 |
if((CMPcaddr((V748)))!=Cnil){ |
if((CMPcaddr((V791)))!=Cnil){ |
6076 |
goto T1800;} |
goto T1800;} |
6077 |
{register object V749; |
{register object V792; |
6078 |
register object V750; |
register object V793; |
6079 |
register object V751; |
register object V794; |
6080 |
register object V752; |
register object V795; |
6081 |
V749= (V748); |
V792= (V791); |
6082 |
V750= (V748); |
V793= (V791); |
6083 |
V751= CMPcadr((V750)); |
V794= CMPcadr((V793)); |
6084 |
V752= CMPcar((V749)); |
V795= CMPcar((V792)); |
6085 |
((V749))->c.c_car = (V751); |
((V792))->c.c_car = (V794); |
6086 |
(CMPcdr((V750)))->c.c_car = (V752); |
(CMPcdr((V793)))->c.c_car = (V795); |
6087 |
(void)(CMPcdr((V750)));} |
(void)(CMPcdr((V793)));} |
6088 |
{register object V754; |
{register object V797; |
6089 |
V754= Ct; |
V797= Ct; |
6090 |
(CMPcddr(V748))->c.c_car = (V754); |
(CMPcddr(V791))->c.c_car = (V797); |
6091 |
(void)(CMPcddr(V748)); |
(void)(CMPcddr(V791)); |
6092 |
if(((V754))!=Cnil){ |
if(((V797))!=Cnil){ |
6093 |
goto T1787;} |
goto T1787;} |
6094 |
goto T1791;} |
goto T1791;} |
6095 |
goto T1800; |
goto T1800; |
6096 |
T1800:; |
T1800:; |
6097 |
V747= CMPcdr((V747)); |
V790= CMPcdr((V790)); |
6098 |
V748= CMPcar((V747)); |
V791= CMPcar((V790)); |
6099 |
goto T1795;} |
goto T1795;} |
6100 |
goto T1791; |
goto T1791; |
6101 |
T1791:; |
T1791:; |
6102 |
{object V755 = Cnil; |
{object V798 = Cnil; |
6103 |
VMR96(V755)} |
VMR96(V798)} |
6104 |
goto T1787; |
goto T1787; |
6105 |
T1787:; |
T1787:; |
6106 |
goto T1786; |
goto T1786; |
6109 |
} |
} |
6110 |
/* local entry for function CLASS-MIGHT-PRECEDE-P */ |
/* local entry for function CLASS-MIGHT-PRECEDE-P */ |
6111 |
|
|
6112 |
static object LI107(V758,V759) |
static object LI107(V801,V802) |
6113 |
|
|
6114 |
object V758;object V759; |
object V801;object V802; |
6115 |
{ VMB97 VMS97 VMV97 |
{ VMB97 VMS97 VMV97 |
6116 |
goto TTL; |
goto TTL; |
6117 |
TTL:; |
TTL:; |
6118 |
if(((VV[144]->s.s_dbind))!=Cnil){ |
if(((VV[144]->s.s_dbind))!=Cnil){ |
6119 |
goto T1821;} |
goto T1821;} |
6120 |
base[0]= (V759); |
base[0]= (V802); |
6121 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6122 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
6123 |
vs_top=sup; |
vs_top=sup; |
6124 |
V762= vs_base[0]; |
V805= vs_base[0]; |
6125 |
{register object x= (V758),V761= CMPcdr(V762); |
{register object x= (V801),V804= CMPcdr(V805); |
6126 |
while(V761!=Cnil) |
while(V804!=Cnil) |
6127 |
if(eql(x,V761->c.c_car)){ |
if(eql(x,V804->c.c_car)){ |
6128 |
V760= V761; |
V803= V804; |
6129 |
goto T1823; |
goto T1823; |
6130 |
}else V761=V761->c.c_cdr; |
}else V804=V804->c.c_cdr; |
6131 |
V760= Cnil;} |
V803= Cnil;} |
6132 |
goto T1823; |
goto T1823; |
6133 |
T1823:; |
T1823:; |
6134 |
{object V763 = ((V760)==Cnil?Ct:Cnil); |
{object V806 = ((V803)==Cnil?Ct:Cnil); |
6135 |
VMR97(V763)} |
VMR97(V806)} |
6136 |
goto T1821; |
goto T1821; |
6137 |
T1821:; |
T1821:; |
6138 |
{object V764 = (*(LnkLI283))((V758),(V759)); |
{object V807 = (*(LnkLI283))((V801),(V802)); |
6139 |
VMR97(V764)} |
VMR97(V807)} |
6140 |
base[0]=base[0]; |
base[0]=base[0]; |
6141 |
return Cnil; |
return Cnil; |
6142 |
} |
} |
6143 |
/* local entry for function COMPUTE-PRECEDENCE */ |
/* local entry for function COMPUTE-PRECEDENCE */ |
6144 |
|
|
6145 |
static object LI108(V768,V769,V770) |
static object LI108(V811,V812,V813) |
6146 |
|
|
6147 |
object V768;register object V769;object V770; |
object V811;register object V812;object V813; |
6148 |
{ VMB98 VMS98 VMV98 |
{ VMB98 VMS98 VMV98 |
6149 |
goto TTL; |
goto TTL; |
6150 |
TTL:; |
TTL:; |
6151 |
if(((V770))!=Cnil){ |
if(((V813))!=Cnil){ |
6152 |
goto T1827;} |
goto T1827;} |
6153 |
{register object V771; |
{register object V814; |
6154 |
V771= Cnil; |
V814= Cnil; |
6155 |
{register long V772; |
{register long V815; |
6156 |
register long V773; |
register long V816; |
6157 |
V772= fix((V769)); |
V815= fix((V812)); |
6158 |
V773= 0; |
V816= 0; |
6159 |
goto T1832; |
goto T1832; |
6160 |
T1832:; |
T1832:; |
6161 |
if(!((V773)>=(V772))){ |
if(!((V816)>=(V815))){ |
6162 |
goto T1833;} |
goto T1833;} |
6163 |
{object V774 = (V771); |
{object V817 = (V814); |
6164 |
VMR98(V774)} |
VMR98(V817)} |
6165 |
goto T1833; |
goto T1833; |
6166 |
T1833:; |
T1833:; |
6167 |
{register object V775; |
{register object V818; |
6168 |
V776= one_minus((V769)); |
V819= one_minus((V812)); |
6169 |
V777 = CMPmake_fixnum(V773); |
V820 = CMPmake_fixnum(V816); |
6170 |
V775= number_minus(/* INLINE-ARGS */V776,V777); |
V818= number_minus(/* INLINE-ARGS */V819,V820); |
6171 |
V771= make_cons((V775),(V771));} |
V814= make_cons((V818),(V814));} |
6172 |
V773= (long)(V773)+1; |
V816= (long)(V816)+1; |
6173 |
goto T1832;}} |
goto T1832;}} |
6174 |
goto T1827; |
goto T1827; |
6175 |
T1827:; |
T1827:; |
6176 |
{object V778; |
{object V821; |
6177 |
object V779= (V770); |
object V822= (V813); |
6178 |
if(V779==Cnil){ |
if(V822==Cnil){ |
6179 |
{object V780 = Cnil; |
{object V823 = Cnil; |
6180 |
VMR98(V780)}} |
VMR98(V823)}} |
6181 |
base[0]=V778=MMcons(Cnil,Cnil); |
base[0]=V821=MMcons(Cnil,Cnil); |
6182 |
goto T1842; |
goto T1842; |
6183 |
T1842:; |
T1842:; |
6184 |
base[1]= (V779->c.c_car); |
base[1]= (V822->c.c_car); |
6185 |
base[2]= (V768); |
base[2]= (V811); |
6186 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6187 |
(void) (*Lnk284)(); |
(void) (*Lnk284)(); |
6188 |
vs_top=sup; |
vs_top=sup; |
6189 |
(V778->c.c_car)= vs_base[0]; |
(V821->c.c_car)= vs_base[0]; |
6190 |
if((V779=MMcdr(V779))==Cnil){ |
if((V822=MMcdr(V822))==Cnil){ |
6191 |
{object V782 = base[0]; |
{object V825 = base[0]; |
6192 |
VMR98(V782)}} |
VMR98(V825)}} |
6193 |
V778=MMcdr(V778)=MMcons(Cnil,Cnil); |
V821=MMcdr(V821)=MMcons(Cnil,Cnil); |
6194 |
goto T1842;} |
goto T1842;} |
6195 |
base[0]=base[0]; |
base[0]=base[0]; |
6196 |
return Cnil; |
return Cnil; |
6201 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6202 |
register object *sup=base+VM99; VC99 |
register object *sup=base+VM99; VC99 |
6203 |
vs_check; |
vs_check; |
6204 |
{object V783; |
{object V826; |
6205 |
object V784; |
object V827; |
6206 |
check_arg(2); |
check_arg(2); |
6207 |
V783=(base[0]); |
V826=(base[0]); |
6208 |
V784=(base[1]); |
V827=(base[1]); |
6209 |
vs_top=sup; |
vs_top=sup; |
6210 |
goto TTL; |
goto TTL; |
6211 |
TTL:; |
TTL:; |
6212 |
{register object V785; |
{register object V828; |
6213 |
register object V786; |
register object V829; |
6214 |
V785= Cnil; |
V828= Cnil; |
6215 |
V786= Ct; |
V829= Ct; |
6216 |
{register object V787; |
{register object V830; |
6217 |
register object V788; |
register object V831; |
6218 |
V787= CMPcdr((V784)); |
V830= CMPcdr((V827)); |
6219 |
V788= CMPcar((V787)); |
V831= CMPcar((V830)); |
6220 |
goto T1850; |
goto T1850; |
6221 |
T1850:; |
T1850:; |
6222 |
if(!(((V787))==Cnil)){ |
if(!(((V830))==Cnil)){ |
6223 |
goto T1851;} |
goto T1851;} |
6224 |
goto T1846; |
goto T1846; |
6225 |
goto T1851; |
goto T1851; |
6226 |
T1851:; |
T1851:; |
6227 |
{register object V789; |
{register object V832; |
6228 |
register object V790; |
register object V833; |
6229 |
base[4]= (V783); |
base[4]= (V826); |
6230 |
base[5]= (V788); |
base[5]= (V831); |
6231 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
6232 |
(void) (*Lnk146)(); |
(void) (*Lnk146)(); |
6233 |
if(vs_base>=vs_top){vs_top=sup;goto T1859;} |
if(vs_base>=vs_top){vs_top=sup;goto T1859;} |
6234 |
V789= vs_base[0]; |
V832= vs_base[0]; |
6235 |
vs_base++; |
vs_base++; |
6236 |
if(vs_base>=vs_top){vs_top=sup;goto T1860;} |
if(vs_base>=vs_top){vs_top=sup;goto T1860;} |
6237 |
V790= vs_base[0]; |
V833= vs_base[0]; |
6238 |
vs_top=sup; |
vs_top=sup; |
6239 |
goto T1861; |
goto T1861; |
6240 |
goto T1859; |
goto T1859; |
6241 |
T1859:; |
T1859:; |
6242 |
V789= Cnil; |
V832= Cnil; |
6243 |
goto T1860; |
goto T1860; |
6244 |
T1860:; |
T1860:; |
6245 |
V790= Cnil; |
V833= Cnil; |
6246 |
goto T1861; |
goto T1861; |
6247 |
T1861:; |
T1861:; |
6248 |
if(((V789))==Cnil){ |
if(((V832))==Cnil){ |
6249 |
goto T1862;} |
goto T1862;} |
6250 |
V785= Ct; |
V828= Ct; |
6251 |
goto T1846; |
goto T1846; |
6252 |
goto T1862; |
goto T1862; |
6253 |
T1862:; |
T1862:; |
6254 |
if(((V790))!=Cnil){ |
if(((V833))!=Cnil){ |
6255 |
goto T1855;} |
goto T1855;} |
6256 |
V786= Cnil; |
V829= Cnil; |
6257 |
goto T1846;} |
goto T1846;} |
6258 |
goto T1855; |
goto T1855; |
6259 |
T1855:; |
T1855:; |
6260 |
V787= CMPcdr((V787)); |
V830= CMPcdr((V830)); |
6261 |
V788= CMPcar((V787)); |
V831= CMPcar((V830)); |
6262 |
goto T1850;} |
goto T1850;} |
6263 |
goto T1846; |
goto T1846; |
6264 |
T1846:; |
T1846:; |
6265 |
base[2]= (V785); |
base[2]= (V828); |
6266 |
base[3]= (V786); |
base[3]= (V829); |
6267 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6268 |
return;} |
return;} |
6269 |
} |
} |
6274 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6275 |
register object *sup=base+VM100; VC100 |
register object *sup=base+VM100; VC100 |
6276 |
vs_check; |
vs_check; |
6277 |
{register object V791; |
{register object V834; |
6278 |
object V792; |
object V835; |
6279 |
check_arg(2); |
check_arg(2); |
6280 |
V791=(base[0]); |
V834=(base[0]); |
6281 |
V792=(base[1]); |
V835=(base[1]); |
6282 |
vs_top=sup; |
vs_top=sup; |
6283 |
goto TTL; |
goto TTL; |
6284 |
TTL:; |
TTL:; |
6285 |
{register object V793; |
{register object V836; |
6286 |
V793= CMPcadr((V792)); |
V836= CMPcadr((V835)); |
6287 |
base[2]= Cnil; |
base[2]= Cnil; |
6288 |
{object V794= CMPcar((V793)); |
{object V837= CMPcar((V836)); |
6289 |
if((V794!= VV[10]))goto T1879; |
if((V837!= VV[10]))goto T1879; |
6290 |
base[3]= (*(LnkLI285))((V791),(V793)); |
base[3]= (*(LnkLI285))((V834),(V836)); |
6291 |
goto T1878; |
goto T1878; |
6292 |
goto T1879; |
goto T1879; |
6293 |
T1879:; |
T1879:; |
6294 |
if((V794!= VV[130]))goto T1880; |
if((V837!= VV[130]))goto T1880; |
6295 |
base[3]= (*(LnkLI286))((V791),(V793)); |
base[3]= (*(LnkLI286))((V834),(V836)); |
6296 |
goto T1878; |
goto T1878; |
6297 |
goto T1880; |
goto T1880; |
6298 |
T1880:; |
T1880:; |
6299 |
if((V794!= VV[282]))goto T1881; |
if((V837!= VV[282]))goto T1881; |
6300 |
base[3]= (*(LnkLI287))((V791),(V793)); |
base[3]= (*(LnkLI287))((V834),(V836)); |
6301 |
goto T1878; |
goto T1878; |
6302 |
goto T1881; |
goto T1881; |
6303 |
T1881:; |
T1881:; |
6304 |
if((V794!= VV[147]))goto T1882; |
if((V837!= VV[147]))goto T1882; |
6305 |
base[3]= (*(LnkLI288))((V791),(V793)); |
base[3]= (*(LnkLI288))((V834),(V836)); |
6306 |
goto T1878; |
goto T1878; |
6307 |
goto T1882; |
goto T1882; |
6308 |
T1882:; |
T1882:; |
6309 |
base[4]= VV[145]; |
base[4]= VV[145]; |
6310 |
base[5]= VV[146]; |
base[5]= VV[146]; |
6311 |
base[6]= (V792); |
base[6]= (V835); |
6312 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
6313 |
Lerror(); |
Lerror(); |
6314 |
vs_top=sup; |
vs_top=sup; |
6321 |
} |
} |
6322 |
/* local entry for function SAUT-NOT-CLASS */ |
/* local entry for function SAUT-NOT-CLASS */ |
6323 |
|
|
6324 |
static object LI111(V797,V798) |
static object LI111(V840,V841) |
6325 |
|
|
6326 |
object V797;object V798; |
object V840;object V841; |
6327 |
{ VMB101 VMS101 VMV101 |
{ VMB101 VMS101 VMV101 |
6328 |
goto TTL; |
goto TTL; |
6329 |
TTL:; |
TTL:; |
6330 |
{object V799; |
{object V842; |
6331 |
object V800; |
object V843; |
6332 |
V799= (*(LnkLI289))((V797)); |
V842= (*(LnkLI289))((V840)); |
6333 |
base[2]= (V799); |
base[2]= (V842); |
6334 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6335 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
6336 |
vs_top=sup; |
vs_top=sup; |
6337 |
V800= vs_base[0]; |
V843= vs_base[0]; |
6338 |
{register object x= CMPcadr((V798)),V802= (V800); |
{register object x= CMPcadr((V841)),V845= (V843); |
6339 |
while(V802!=Cnil) |
while(V845!=Cnil) |
6340 |
if(x==(V802->c.c_car)){ |
if(x==(V845->c.c_car)){ |
6341 |
V801= V802; |
V844= V845; |
6342 |
goto T1889; |
goto T1889; |
6343 |
}else V802=V802->c.c_cdr; |
}else V845=V845->c.c_cdr; |
6344 |
V801= Cnil;} |
V844= Cnil;} |
6345 |
goto T1889; |
goto T1889; |
6346 |
T1889:; |
T1889:; |
6347 |
{object V803 = ((V801)==Cnil?Ct:Cnil); |
{object V846 = ((V844)==Cnil?Ct:Cnil); |
6348 |
VMR101(V803)}} |
VMR101(V846)}} |
6349 |
base[0]=base[0]; |
base[0]=base[0]; |
6350 |
return Cnil; |
return Cnil; |
6351 |
} |
} |
6352 |
/* local entry for function SAUT-NOT-PROTOTYPE */ |
/* local entry for function SAUT-NOT-PROTOTYPE */ |
6353 |
|
|
6354 |
static object LI112(V806,V807) |
static object LI112(V849,V850) |
6355 |
|
|
6356 |
register object V806;object V807; |
register object V849;object V850; |
6357 |
{ VMB102 VMS102 VMV102 |
{ VMB102 VMS102 VMV102 |
6358 |
goto TTL; |
goto TTL; |
6359 |
TTL:; |
TTL:; |
6360 |
{object V808; |
{object V851; |
6361 |
object V809; |
object V852; |
6362 |
{object V810= CMPcar((V806)); |
{object V853= CMPcar((V849)); |
6363 |
if((V810!= VV[147]))goto T1891; |
if((V853!= VV[147]))goto T1891; |
6364 |
V808= (*(LnkLI290))(CMPcadr((V806))); |
V851= (*(LnkLI290))(CMPcadr((V849))); |
6365 |
goto T1890; |
goto T1890; |
6366 |
goto T1891; |
goto T1891; |
6367 |
T1891:; |
T1891:; |
6368 |
if((V810!= VV[130]))goto T1892; |
if((V853!= VV[130]))goto T1892; |
6369 |
V808= CMPcadr((V806)); |
V851= CMPcadr((V849)); |
6370 |
goto T1890; |
goto T1890; |
6371 |
goto T1892; |
goto T1892; |
6372 |
T1892:; |
T1892:; |
6373 |
if((V810!= VV[282]))goto T1893; |
if((V853!= VV[282]))goto T1893; |
6374 |
V808= CMPcadr((V806)); |
V851= CMPcadr((V849)); |
6375 |
goto T1890; |
goto T1890; |
6376 |
goto T1893; |
goto T1893; |
6377 |
T1893:; |
T1893:; |
6378 |
if((V810!= VV[10]))goto T1894; |
if((V853!= VV[10]))goto T1894; |
6379 |
V808= CMPcadr((V806)); |
V851= CMPcadr((V849)); |
6380 |
goto T1890; |
goto T1890; |
6381 |
goto T1894; |
goto T1894; |
6382 |
T1894:; |
T1894:; |
6383 |
V808= Cnil;} |
V851= Cnil;} |
6384 |
goto T1890; |
goto T1890; |
6385 |
T1890:; |
T1890:; |
6386 |
base[2]= (V808); |
base[2]= (V851); |
6387 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6388 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
6389 |
vs_top=sup; |
vs_top=sup; |
6390 |
V809= vs_base[0]; |
V852= vs_base[0]; |
6391 |
{register object x= CMPcadr((V807)),V812= (V809); |
{register object x= CMPcadr((V850)),V855= (V852); |
6392 |
while(V812!=Cnil) |
while(V855!=Cnil) |
6393 |
if(x==(V812->c.c_car)){ |
if(x==(V855->c.c_car)){ |
6394 |
V811= V812; |
V854= V855; |
6395 |
goto T1897; |
goto T1897; |
6396 |
}else V812=V812->c.c_cdr; |
}else V855=V855->c.c_cdr; |
6397 |
V811= Cnil;} |
V854= Cnil;} |
6398 |
goto T1897; |
goto T1897; |
6399 |
T1897:; |
T1897:; |
6400 |
{object V813 = ((V811)==Cnil?Ct:Cnil); |
{object V856 = ((V854)==Cnil?Ct:Cnil); |
6401 |
VMR102(V813)}} |
VMR102(V856)}} |
6402 |
base[0]=base[0]; |
base[0]=base[0]; |
6403 |
return Cnil; |
return Cnil; |
6404 |
} |
} |
6405 |
/* local entry for function SAUT-NOT-CLASS-EQ */ |
/* local entry for function SAUT-NOT-CLASS-EQ */ |
6406 |
|
|
6407 |
static object LI113(V816,V817) |
static object LI113(V859,V860) |
6408 |
|
|
6409 |
object V816;object V817; |
object V859;object V860; |
6410 |
{ VMB103 VMS103 VMV103 |
{ VMB103 VMS103 VMV103 |
6411 |
goto TTL; |
goto TTL; |
6412 |
TTL:; |
TTL:; |
6413 |
{object V818; |
{object V861; |
6414 |
{object V819= CMPcar((V816)); |
{object V862= CMPcar((V859)); |
6415 |
if((V819!= VV[147]))goto T1899; |
if((V862!= VV[147]))goto T1899; |
6416 |
V818= (*(LnkLI290))(CMPcadr((V816))); |
V861= (*(LnkLI290))(CMPcadr((V859))); |
6417 |
goto T1898; |
goto T1898; |
6418 |
goto T1899; |
goto T1899; |
6419 |
T1899:; |
T1899:; |
6420 |
if((V819!= VV[130]))goto T1900; |
if((V862!= VV[130]))goto T1900; |
6421 |
V818= CMPcadr((V816)); |
V861= CMPcadr((V859)); |
6422 |
goto T1898; |
goto T1898; |
6423 |
goto T1900; |
goto T1900; |
6424 |
T1900:; |
T1900:; |
6425 |
V818= Cnil;} |
V861= Cnil;} |
6426 |
goto T1898; |
goto T1898; |
6427 |
T1898:; |
T1898:; |
6428 |
{object V820 = (((((V818))==(CMPcadr((V817)))?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V863 = (((((V861))==(CMPcadr((V860)))?Ct:Cnil))==Cnil?Ct:Cnil); |
6429 |
VMR103(V820)}} |
VMR103(V863)}} |
6430 |
return Cnil; |
return Cnil; |
6431 |
} |
} |
6432 |
/* local entry for function SAUT-NOT-EQL */ |
/* local entry for function SAUT-NOT-EQL */ |
6433 |
|
|
6434 |
static object LI114(V823,V824) |
static object LI114(V866,V867) |
6435 |
|
|
6436 |
object V823;object V824; |
object V866;object V867; |
6437 |
{ VMB104 VMS104 VMV104 |
{ VMB104 VMS104 VMV104 |
6438 |
goto TTL; |
goto TTL; |
6439 |
TTL:; |
TTL:; |
6440 |
{object V825= CMPcar((V823)); |
{object V868= CMPcar((V866)); |
6441 |
if((V825!= VV[147]))goto T1901; |
if((V868!= VV[147]))goto T1901; |
6442 |
{object V826 = (((eql(CMPcadr((V823)),CMPcadr((V824)))?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V869 = (((eql(CMPcadr((V866)),CMPcadr((V867)))?Ct:Cnil))==Cnil?Ct:Cnil); |
6443 |
VMR104(V826)} |
VMR104(V869)} |
6444 |
goto T1901; |
goto T1901; |
6445 |
T1901:; |
T1901:; |
6446 |
{object V827 = Ct; |
{object V870 = Ct; |
6447 |
VMR104(V827)}} |
VMR104(V870)}} |
6448 |
return Cnil; |
return Cnil; |
6449 |
} |
} |
6450 |
/* function definition for CLASS-APPLICABLE-USING-CLASS-P */ |
/* function definition for CLASS-APPLICABLE-USING-CLASS-P */ |
6453 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6454 |
register object *sup=base+VM105; VC105 |
register object *sup=base+VM105; VC105 |
6455 |
vs_check; |
vs_check; |
6456 |
{object V828; |
{object V871; |
6457 |
register object V829; |
register object V872; |
6458 |
check_arg(2); |
check_arg(2); |
6459 |
V828=(base[0]); |
V871=(base[0]); |
6460 |
V829=(base[1]); |
V872=(base[1]); |
6461 |
vs_top=sup; |
vs_top=sup; |
6462 |
goto TTL; |
goto TTL; |
6463 |
TTL:; |
TTL:; |
6464 |
{object V830; |
{object V873; |
6465 |
|
V875 = (V871); |
6466 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
6467 |
goto T1905;} |
goto T1905;} |
6468 |
base[2]= (V829); |
base[2]= (V872); |
6469 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6470 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
6471 |
vs_top=sup; |
vs_top=sup; |
6472 |
V832= vs_base[0]; |
V876= vs_base[0]; |
6473 |
goto T1903; |
goto T1903; |
6474 |
goto T1905; |
goto T1905; |
6475 |
T1905:; |
T1905:; |
6476 |
V832= (*(LnkLI263))((V829)); |
V876= (*(LnkLI263))((V872)); |
6477 |
goto T1903; |
goto T1903; |
6478 |
T1903:; |
T1903:; |
6479 |
{register object x= (V828),V831= V832; |
{register object x= V875,V874= V876; |
6480 |
while(V831!=Cnil) |
while(V874!=Cnil) |
6481 |
if(x==(V831->c.c_car)){ |
if(x==(V874->c.c_car)){ |
6482 |
V830= V831; |
V873= V874; |
6483 |
goto T1902; |
goto T1902; |
6484 |
}else V831=V831->c.c_cdr; |
}else V874=V874->c.c_cdr; |
6485 |
V830= Cnil;} |
V873= Cnil;} |
6486 |
goto T1902; |
goto T1902; |
6487 |
T1902:; |
T1902:; |
6488 |
base[2]= (V830); |
base[2]= (V873); |
6489 |
if((V830)!=Cnil){ |
if((V873)!=Cnil){ |
6490 |
base[3]= (V830); |
base[3]= (V873); |
6491 |
goto T1909;} |
goto T1909;} |
6492 |
if(((VV[144]->s.s_dbind))!=Cnil){ |
if(((VV[144]->s.s_dbind))!=Cnil){ |
6493 |
goto T1911;} |
goto T1911;} |
6494 |
base[3]= (*(LnkLI291))((V828),(V829)); |
base[3]= (*(LnkLI291))((V871),(V872)); |
6495 |
goto T1909; |
goto T1909; |
6496 |
goto T1911; |
goto T1911; |
6497 |
T1911:; |
T1911:; |
6498 |
base[3]= (*(LnkLI292))((V828),(V829)); |
base[3]= (*(LnkLI292))((V871),(V872)); |
6499 |
goto T1909; |
goto T1909; |
6500 |
T1909:; |
T1909:; |
6501 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6504 |
} |
} |
6505 |
/* local entry for function CLASSES-HAVE-COMMON-SUBCLASS-P */ |
/* local entry for function CLASSES-HAVE-COMMON-SUBCLASS-P */ |
6506 |
|
|
6507 |
static object LI116(V835,V836) |
static object LI116(V879,V880) |
6508 |
|
|
6509 |
object V835;register object V836; |
object V879;register object V880; |
6510 |
{ VMB106 VMS106 VMV106 |
{ VMB106 VMS106 VMV106 |
6511 |
goto TTL; |
goto TTL; |
6512 |
TTL:; |
TTL:; |
6513 |
if(!(((V835))==((V836)))){ |
if(!(((V879))==((V880)))){ |
6514 |
goto T1913;} |
goto T1913;} |
6515 |
{object V837 = Ct; |
{object V881 = Ct; |
6516 |
VMR106(V837)} |
VMR106(V881)} |
6517 |
goto T1913; |
goto T1913; |
6518 |
T1913:; |
T1913:; |
6519 |
{object V838; |
{object V882; |
6520 |
base[0]= (V835); |
base[0]= (V879); |
6521 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6522 |
(void) (*Lnk293)(Lclptr293); |
(void) (*Lnk293)(Lclptr293); |
6523 |
vs_top=sup; |
vs_top=sup; |
6524 |
V838= vs_base[0];{object V839; |
V882= vs_base[0];{object V883; |
6525 |
{register object x= (V836),V840= (V838); |
{register object x= (V880),V884= (V882); |
6526 |
while(V840!=Cnil) |
while(V884!=Cnil) |
6527 |
if(x==(V840->c.c_car)){ |
if(x==(V884->c.c_car)){ |
6528 |
V839= V840; |
V883= V884; |
6529 |
goto T1918; |
goto T1918; |
6530 |
}else V840=V840->c.c_cdr; |
}else V884=V884->c.c_cdr; |
6531 |
V839= Cnil;} |
V883= Cnil;} |
6532 |
goto T1918; |
goto T1918; |
6533 |
T1918:; |
T1918:; |
6534 |
if(V839==Cnil)goto T1917; |
if(V883==Cnil)goto T1917; |
6535 |
{object V841 = V839; |
{object V885 = V883; |
6536 |
VMR106(V841)} |
VMR106(V885)} |
6537 |
goto T1917; |
goto T1917; |
6538 |
T1917:;} |
T1917:;} |
6539 |
{register object V842; |
{register object V886; |
6540 |
register object V843; |
register object V887; |
6541 |
V842= (V838); |
V886= (V882); |
6542 |
V843= CMPcar((V842)); |
V887= CMPcar((V886)); |
6543 |
goto T1922; |
goto T1922; |
6544 |
T1922:; |
T1922:; |
6545 |
if(!(((V842))==Cnil)){ |
if(!(((V886))==Cnil)){ |
6546 |
goto T1923;} |
goto T1923;} |
6547 |
{object V844 = Cnil; |
{object V888 = Cnil; |
6548 |
VMR106(V844)} |
VMR106(V888)} |
6549 |
goto T1923; |
goto T1923; |
6550 |
T1923:; |
T1923:; |
6551 |
if(((*(LnkLI292))((V843),(V836)))==Cnil){ |
if(((*(LnkLI292))((V887),(V880)))==Cnil){ |
6552 |
goto T1927;} |
goto T1927;} |
6553 |
{object V845 = Ct; |
{object V889 = Ct; |
6554 |
VMR106(V845)} |
VMR106(V889)} |
6555 |
goto T1927; |
goto T1927; |
6556 |
T1927:; |
T1927:; |
6557 |
V842= CMPcdr((V842)); |
V886= CMPcdr((V886)); |
6558 |
V843= CMPcar((V842)); |
V887= CMPcar((V886)); |
6559 |
goto T1922;}} |
goto T1922;}} |
6560 |
base[0]=base[0]; |
base[0]=base[0]; |
6561 |
return Cnil; |
return Cnil; |
6566 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6567 |
register object *sup=base+VM107; VC107 |
register object *sup=base+VM107; VC107 |
6568 |
vs_check; |
vs_check; |
6569 |
{object V846; |
{object V890; |
6570 |
object V847; |
object V891; |
6571 |
check_arg(2); |
check_arg(2); |
6572 |
V846=(base[0]); |
V890=(base[0]); |
6573 |
V847=(base[1]); |
V891=(base[1]); |
6574 |
vs_top=sup; |
vs_top=sup; |
6575 |
goto TTL; |
goto TTL; |
6576 |
TTL:; |
TTL:; |
6577 |
{object V848= CMPcar((V846)); |
{object V892= CMPcar((V890)); |
6578 |
if((V848!= VV[10]))goto T1935; |
if((V892!= VV[10]))goto T1935; |
6579 |
base[2]= CMPcadr((V846)); |
base[2]= CMPcadr((V890)); |
6580 |
base[3]= CMPcadr((V847)); |
base[3]= CMPcadr((V891)); |
6581 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6582 |
(void) (*Lnk294)(); |
(void) (*Lnk294)(); |
6583 |
return; |
return; |
6584 |
goto T1935; |
goto T1935; |
6585 |
T1935:; |
T1935:; |
6586 |
base[2]= Cnil; |
base[2]= Cnil; |
6587 |
{object V849; |
{object V893; |
6588 |
V849= (*(LnkLI289))((V846)); |
V893= (*(LnkLI289))((V890)); |
6589 |
V851= CMPcadr((V847)); |
V895= CMPcadr((V891)); |
6590 |
base[4]= (V849); |
base[4]= (V893); |
6591 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6592 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
6593 |
vs_top=sup; |
vs_top=sup; |
6594 |
V852= vs_base[0]; |
V896= vs_base[0]; |
6595 |
{register object x= /* INLINE-ARGS */V851,V850= V852; |
{register object x= /* INLINE-ARGS */V895,V894= V896; |
6596 |
while(V850!=Cnil) |
while(V894!=Cnil) |
6597 |
if(x==(V850->c.c_car)){ |
if(x==(V894->c.c_car)){ |
6598 |
base[3]= V850; |
base[3]= V894; |
6599 |
goto T1939; |
goto T1939; |
6600 |
}else V850=V850->c.c_cdr; |
}else V894=V894->c.c_cdr; |
6601 |
base[3]= Cnil;}} |
base[3]= Cnil;}} |
6602 |
goto T1939; |
goto T1939; |
6603 |
T1939:; |
T1939:; |
6611 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6612 |
register object *sup=base+VM108; VC108 |
register object *sup=base+VM108; VC108 |
6613 |
vs_check; |
vs_check; |
6614 |
{register object V853; |
{register object V897; |
6615 |
register object V854; |
register object V898; |
6616 |
check_arg(2); |
check_arg(2); |
6617 |
V853=(base[0]); |
V897=(base[0]); |
6618 |
V854=(base[1]); |
V898=(base[1]); |
6619 |
vs_top=sup; |
vs_top=sup; |
6620 |
goto TTL; |
goto TTL; |
6621 |
TTL:; |
TTL:; |
6622 |
if(!((CMPcar((V853)))==(VV[147]))){ |
if(!((CMPcar((V897)))==(VV[147]))){ |
6623 |
goto T1944;} |
goto T1944;} |
6624 |
base[2]= Cnil; |
base[2]= Cnil; |
6625 |
V855= (*(LnkLI290))(CMPcadr((V853))); |
V899= (*(LnkLI290))(CMPcadr((V897))); |
6626 |
base[3]= ((/* INLINE-ARGS */V855)==(CMPcadr((V854)))?Ct:Cnil); |
base[3]= ((/* INLINE-ARGS */V899)==(CMPcadr((V898)))?Ct:Cnil); |
6627 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6628 |
return; |
return; |
6629 |
goto T1944; |
goto T1944; |
6630 |
T1944:; |
T1944:; |
6631 |
{object V856; |
{object V900; |
6632 |
{object V857= CMPcar((V853)); |
{object V901= CMPcar((V897)); |
6633 |
if((V857!= VV[130]))goto T1949; |
if((V901!= VV[130]))goto T1949; |
6634 |
V856= ((CMPcadr((V853)))==(CMPcadr((V854)))?Ct:Cnil); |
V900= ((CMPcadr((V897)))==(CMPcadr((V898)))?Ct:Cnil); |
6635 |
goto T1948; |
goto T1948; |
6636 |
goto T1949; |
goto T1949; |
6637 |
T1949:; |
T1949:; |
6638 |
if((V857!= VV[10]))goto T1950; |
if((V901!= VV[10]))goto T1950; |
6639 |
if(!((CMPcadr((V853)))==(CMPcadr((V854))))){ |
if(!((CMPcadr((V897)))==(CMPcadr((V898))))){ |
6640 |
goto T1951;} |
goto T1951;} |
6641 |
V856= Ct; |
V900= Ct; |
6642 |
goto T1948; |
goto T1948; |
6643 |
goto T1951; |
goto T1951; |
6644 |
T1951:; |
T1951:; |
6645 |
V859= CMPcadr((V853)); |
V903= CMPcadr((V897)); |
6646 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
6647 |
goto T1955;} |
goto T1955;} |
6648 |
base[2]= CMPcadr((V854)); |
base[2]= CMPcadr((V898)); |
6649 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6650 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
6651 |
vs_top=sup; |
vs_top=sup; |
6652 |
V860= vs_base[0]; |
V904= vs_base[0]; |
6653 |
goto T1953; |
goto T1953; |
6654 |
goto T1955; |
goto T1955; |
6655 |
T1955:; |
T1955:; |
6656 |
V860= (*(LnkLI263))(CMPcadr((V854))); |
V904= (*(LnkLI263))(CMPcadr((V898))); |
6657 |
goto T1953; |
goto T1953; |
6658 |
T1953:; |
T1953:; |
6659 |
{register object x= /* INLINE-ARGS */V859,V858= V860; |
{register object x= /* INLINE-ARGS */V903,V902= V904; |
6660 |
while(V858!=Cnil) |
while(V902!=Cnil) |
6661 |
if(x==(V858->c.c_car)){ |
if(x==(V902->c.c_car)){ |
6662 |
V856= V858; |
V900= V902; |
6663 |
goto T1948; |
goto T1948; |
6664 |
}else V858=V858->c.c_cdr; |
}else V902=V902->c.c_cdr; |
6665 |
V856= Cnil; |
V900= Cnil; |
6666 |
goto T1948;} |
goto T1948;} |
6667 |
goto T1950; |
goto T1950; |
6668 |
T1950:; |
T1950:; |
6669 |
V856= Cnil;} |
V900= Cnil;} |
6670 |
goto T1948; |
goto T1948; |
6671 |
T1948:; |
T1948:; |
6672 |
base[2]= (V856); |
base[2]= (V900); |
6673 |
base[3]= (V856); |
base[3]= (V900); |
6674 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6675 |
return;} |
return;} |
6676 |
} |
} |
6681 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6682 |
register object *sup=base+VM109; VC109 |
register object *sup=base+VM109; VC109 |
6683 |
vs_check; |
vs_check; |
6684 |
{object V861; |
{object V905; |
6685 |
object V862; |
object V906; |
6686 |
check_arg(2); |
check_arg(2); |
6687 |
V861=(base[0]); |
V905=(base[0]); |
6688 |
V862=(base[1]); |
V906=(base[1]); |
6689 |
vs_top=sup; |
vs_top=sup; |
6690 |
goto TTL; |
goto TTL; |
6691 |
TTL:; |
TTL:; |
6701 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6702 |
register object *sup=base+VM110; VC110 |
register object *sup=base+VM110; VC110 |
6703 |
vs_check; |
vs_check; |
6704 |
{register object V863; |
{register object V907; |
6705 |
object V864; |
object V908; |
6706 |
check_arg(2); |
check_arg(2); |
6707 |
V863=(base[0]); |
V907=(base[0]); |
6708 |
V864=(base[1]); |
V908=(base[1]); |
6709 |
vs_top=sup; |
vs_top=sup; |
6710 |
goto TTL; |
goto TTL; |
6711 |
TTL:; |
TTL:; |
6712 |
{object V865; |
{object V909; |
6713 |
{object V866= CMPcar((V863)); |
{object V910= CMPcar((V907)); |
6714 |
if((V866!= VV[147]))goto T1963; |
if((V910!= VV[147]))goto T1963; |
6715 |
V865= (eql(CMPcadr((V863)),CMPcadr((V864)))?Ct:Cnil); |
V909= (eql(CMPcadr((V907)),CMPcadr((V908)))?Ct:Cnil); |
6716 |
goto T1962; |
goto T1962; |
6717 |
goto T1963; |
goto T1963; |
6718 |
T1963:; |
T1963:; |
6719 |
if((V866!= VV[130]))goto T1964; |
if((V910!= VV[130]))goto T1964; |
6720 |
V867= CMPcadr((V863)); |
V911= CMPcadr((V907)); |
6721 |
V868= (*(LnkLI290))(CMPcadr((V864))); |
V912= (*(LnkLI290))(CMPcadr((V908))); |
6722 |
V865= ((/* INLINE-ARGS */V867)==(/* INLINE-ARGS */V868)?Ct:Cnil); |
V909= ((/* INLINE-ARGS */V911)==(/* INLINE-ARGS */V912)?Ct:Cnil); |
6723 |
goto T1962; |
goto T1962; |
6724 |
goto T1964; |
goto T1964; |
6725 |
T1964:; |
T1964:; |
6726 |
if((V866!= VV[10]))goto T1965; |
if((V910!= VV[10]))goto T1965; |
6727 |
V870= CMPcadr((V863)); |
V914= CMPcadr((V907)); |
6728 |
{object V872; |
{object V916; |
6729 |
V872= (*(LnkLI290))(CMPcadr((V864))); |
V916= (*(LnkLI290))(CMPcadr((V908))); |
6730 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
6731 |
goto T1969;} |
goto T1969;} |
6732 |
base[2]= (V872); |
base[2]= (V916); |
6733 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6734 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
6735 |
vs_top=sup; |
vs_top=sup; |
6736 |
V871= vs_base[0]; |
V915= vs_base[0]; |
6737 |
goto T1966; |
goto T1966; |
6738 |
goto T1969; |
goto T1969; |
6739 |
T1969:; |
T1969:; |
6740 |
V871= (*(LnkLI263))((V872));} |
V915= (*(LnkLI263))((V916));} |
6741 |
goto T1966; |
goto T1966; |
6742 |
T1966:; |
T1966:; |
6743 |
{register object x= /* INLINE-ARGS */V870,V869= V871; |
{register object x= /* INLINE-ARGS */V914,V913= V915; |
6744 |
while(V869!=Cnil) |
while(V913!=Cnil) |
6745 |
if(x==(V869->c.c_car)){ |
if(x==(V913->c.c_car)){ |
6746 |
V865= V869; |
V909= V913; |
6747 |
goto T1962; |
goto T1962; |
6748 |
}else V869=V869->c.c_cdr; |
}else V913=V913->c.c_cdr; |
6749 |
V865= Cnil; |
V909= Cnil; |
6750 |
goto T1962;} |
goto T1962;} |
6751 |
goto T1965; |
goto T1965; |
6752 |
T1965:; |
T1965:; |
6753 |
V865= Cnil;} |
V909= Cnil;} |
6754 |
goto T1962; |
goto T1962; |
6755 |
T1962:; |
T1962:; |
6756 |
base[2]= (V865); |
base[2]= (V909); |
6757 |
base[3]= (V865); |
base[3]= (V909); |
6758 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6759 |
return;} |
return;} |
6760 |
} |
} |
6765 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6766 |
register object *sup=base+VM111; VC111 |
register object *sup=base+VM111; VC111 |
6767 |
vs_check; |
vs_check; |
6768 |
{register object V873; |
{register object V917; |
6769 |
register object V874; |
register object V918; |
6770 |
check_arg(2); |
check_arg(2); |
6771 |
V873=(base[0]); |
V917=(base[0]); |
6772 |
V874=(base[1]); |
V918=(base[1]); |
6773 |
vs_top=sup; |
vs_top=sup; |
6774 |
goto TTL; |
goto TTL; |
6775 |
TTL:; |
TTL:; |
6776 |
base[2]= (V873); |
base[2]= (V917); |
6777 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6778 |
(void) (*Lnk295)(); |
(void) (*Lnk295)(); |
6779 |
vs_top=sup; |
vs_top=sup; |
6780 |
V873= vs_base[0]; |
V917= vs_base[0]; |
6781 |
if(!(((V873))==(Ct))){ |
if(!(((V917))==(Ct))){ |
6782 |
goto T1977;} |
goto T1977;} |
6783 |
base[2]= Ct; |
base[2]= Ct; |
6784 |
base[3]= Ct; |
base[3]= Ct; |
6786 |
return; |
return; |
6787 |
goto T1977; |
goto T1977; |
6788 |
T1977:; |
T1977:; |
6789 |
if(type_of((V874))!=t_cons){ |
if(type_of((V918))!=t_cons){ |
6790 |
goto T1982;} |
goto T1982;} |
6791 |
if(!((CMPcar((V874)))==(Ct))){ |
if(!((CMPcar((V918)))==(Ct))){ |
6792 |
goto T1983;} |
goto T1983;} |
6793 |
goto T1982; |
goto T1982; |
6794 |
T1982:; |
T1982:; |
6798 |
return; |
return; |
6799 |
goto T1983; |
goto T1983; |
6800 |
T1983:; |
T1983:; |
6801 |
{object V875= CMPcar((V874)); |
{object V919= CMPcar((V918)); |
6802 |
if((V875!= VV[88]))goto T1989; |
if((V919!= VV[88]))goto T1989; |
6803 |
base[2]= (V873); |
base[2]= (V917); |
6804 |
base[3]= (V874); |
base[3]= (V918); |
6805 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6806 |
(void) (*Lnk296)(); |
(void) (*Lnk296)(); |
6807 |
return; |
return; |
6808 |
goto T1989; |
goto T1989; |
6809 |
T1989:; |
T1989:; |
6810 |
if((V875!= VV[89]))goto T1992; |
if((V919!= VV[89]))goto T1992; |
6811 |
base[2]= (V873); |
base[2]= (V917); |
6812 |
base[3]= (V874); |
base[3]= (V918); |
6813 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6814 |
(void) (*Lnk297)(); |
(void) (*Lnk297)(); |
6815 |
return; |
return; |
6816 |
goto T1992; |
goto T1992; |
6817 |
T1992:; |
T1992:; |
6818 |
if((V875!= VV[10]))goto T1995; |
if((V919!= VV[10]))goto T1995; |
6819 |
base[2]= (V873); |
base[2]= (V917); |
6820 |
base[3]= (V874); |
base[3]= (V918); |
6821 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6822 |
(void) (*Lnk298)(); |
(void) (*Lnk298)(); |
6823 |
return; |
return; |
6824 |
goto T1995; |
goto T1995; |
6825 |
T1995:; |
T1995:; |
6826 |
if((V875!= VV[282]))goto T1998; |
if((V919!= VV[282]))goto T1998; |
6827 |
base[2]= (V873); |
base[2]= (V917); |
6828 |
base[3]= (V874); |
base[3]= (V918); |
6829 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6830 |
(void) (*Lnk299)(); |
(void) (*Lnk299)(); |
6831 |
return; |
return; |
6832 |
goto T1998; |
goto T1998; |
6833 |
T1998:; |
T1998:; |
6834 |
if((V875!= VV[130]))goto T2001; |
if((V919!= VV[130]))goto T2001; |
6835 |
base[2]= (V873); |
base[2]= (V917); |
6836 |
base[3]= (V874); |
base[3]= (V918); |
6837 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6838 |
(void) (*Lnk300)(); |
(void) (*Lnk300)(); |
6839 |
return; |
return; |
6840 |
goto T2001; |
goto T2001; |
6841 |
T2001:; |
T2001:; |
6842 |
if((V875!= VV[147]))goto T2004; |
if((V919!= VV[147]))goto T2004; |
6843 |
base[2]= (V873); |
base[2]= (V917); |
6844 |
base[3]= (V874); |
base[3]= (V918); |
6845 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6846 |
(void) (*Lnk301)(); |
(void) (*Lnk301)(); |
6847 |
return; |
return; |
6849 |
T2004:; |
T2004:; |
6850 |
base[2]= VV[148]; |
base[2]= VV[148]; |
6851 |
base[3]= VV[146]; |
base[3]= VV[146]; |
6852 |
base[4]= (V874); |
base[4]= (V918); |
6853 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
6854 |
Lerror(); |
Lerror(); |
6855 |
return;} |
return;} |
6861 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6862 |
register object *sup=base+VM112; VC112 |
register object *sup=base+VM112; VC112 |
6863 |
vs_check; |
vs_check; |
6864 |
{object V876; |
{object V920; |
6865 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
6866 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
6867 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
6868 |
if(vs_base>=vs_top){vs_top=sup;goto T2010;} |
if(vs_base>=vs_top){vs_top=sup;goto T2010;} |
6869 |
V876=(base[1]); |
V920=(base[1]); |
6870 |
vs_top=sup; |
vs_top=sup; |
6871 |
goto T2011; |
goto T2011; |
6872 |
goto T2010; |
goto T2010; |
6873 |
T2010:; |
T2010:; |
6874 |
V876= Ct; |
V920= Ct; |
6875 |
goto T2011; |
goto T2011; |
6876 |
T2011:; |
T2011:; |
6877 |
if(!(((VV[72]->s.s_dbind))==(VV[149]))){ |
if(!(((VV[72]->s.s_dbind))==(VV[149]))){ |
6883 |
base[2]= (((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil); |
base[2]= (((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil); |
6884 |
goto T2013; |
goto T2013; |
6885 |
T2013:; |
T2013:; |
6886 |
if(!(type_of((V876))==t_symbol)){ |
if(!(type_of((V920))==t_symbol)){ |
6887 |
goto T2018;} |
goto T2018;} |
6888 |
base[3]= (VFUN_NARGS=1,(*(LnkLI302))((V876))); |
base[3]= (VFUN_NARGS=1,(*(LnkLI302))((V920))); |
6889 |
goto T2016; |
goto T2016; |
6890 |
goto T2018; |
goto T2018; |
6891 |
T2018:; |
T2018:; |
6892 |
base[3]= (V876); |
base[3]= (V920); |
6893 |
goto T2016; |
goto T2016; |
6894 |
T2016:; |
T2016:; |
6895 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6903 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6904 |
register object *sup=base+VM113; VC113 |
register object *sup=base+VM113; VC113 |
6905 |
vs_check; |
vs_check; |
6906 |
{object V877; |
{object V921; |
6907 |
object V878; |
object V922; |
6908 |
object V879; |
object V923; |
6909 |
object V880; |
object V924; |
6910 |
object V881; |
object V925; |
6911 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
6912 |
if(vs_top-vs_base>5) too_many_arguments(); |
if(vs_top-vs_base>5) too_many_arguments(); |
6913 |
V877=(base[0]); |
V921=(base[0]); |
6914 |
V878=(base[1]); |
V922=(base[1]); |
6915 |
V879=(base[2]); |
V923=(base[2]); |
6916 |
vs_base=vs_base+3; |
vs_base=vs_base+3; |
6917 |
if(vs_base>=vs_top){vs_top=sup;goto T2020;} |
if(vs_base>=vs_top){vs_top=sup;goto T2020;} |
6918 |
V880=(base[3]); |
V924=(base[3]); |
6919 |
vs_base++; |
vs_base++; |
6920 |
if(vs_base>=vs_top){vs_top=sup;goto T2021;} |
if(vs_base>=vs_top){vs_top=sup;goto T2021;} |
6921 |
V881=(base[4]); |
V925=(base[4]); |
6922 |
vs_top=sup; |
vs_top=sup; |
6923 |
goto T2022; |
goto T2022; |
6924 |
goto T2020; |
goto T2020; |
6925 |
T2020:; |
T2020:; |
6926 |
V880= Cnil; |
V924= Cnil; |
6927 |
goto T2021; |
goto T2021; |
6928 |
T2021:; |
T2021:; |
6929 |
V881= Cnil; |
V925= Cnil; |
6930 |
goto T2022; |
goto T2022; |
6931 |
T2022:; |
T2022:; |
6932 |
V882= (((((V880))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
V926= (((((V924))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
6933 |
V883= (((((V881))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
V927= (((((V925))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
6934 |
V884= (*(LnkLI213))((V878)); |
V928= (*(LnkLI213))((V922)); |
6935 |
base[5]= (VFUN_NARGS=6,(*(LnkLI216))((V877),(V878),(V879),/* INLINE-ARGS */V882,/* INLINE-ARGS */V883,((/* INLINE-ARGS */V884)==Cnil?Ct:Cnil))); |
base[5]= (VFUN_NARGS=6,(*(LnkLI216))((V921),(V922),(V923),/* INLINE-ARGS */V926,/* INLINE-ARGS */V927,((/* INLINE-ARGS */V928)==Cnil?Ct:Cnil))); |
6936 |
base[6]= (V880); |
base[6]= (V924); |
6937 |
base[7]= (V881); |
base[7]= (V925); |
6938 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
6939 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
6940 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6945 |
} |
} |
6946 |
/* local entry for function GET-SECONDARY-DISPATCH-FUNCTION1 */ |
/* local entry for function GET-SECONDARY-DISPATCH-FUNCTION1 */ |
6947 |
|
|
6948 |
static object LI125(object V889,object V888,object V887,object V886,object V885,object first,...) |
static object LI125(object V933,object V932,object V931,object V930,object V929,object first,...) |
6949 |
{ |
{ |
6950 |
va_list ap; |
va_list ap; |
6951 |
int narg = VFUN_NARGS; VMB114 VMS114 VMV114 |
int narg = VFUN_NARGS; VMB114 VMS114 VMV114 |
6952 |
{register object V890; |
{register object V934; |
6953 |
object V891; |
object V935; |
6954 |
register object V892; |
register object V936; |
6955 |
register object V893; |
register object V937; |
6956 |
register object V894; |
register object V938; |
6957 |
object V895; |
object V939; |
6958 |
register object V896; |
register object V940; |
6959 |
va_start(ap,first); |
va_start(ap,first); |
6960 |
if(narg <5) too_few_arguments(); |
if(narg <5) too_few_arguments(); |
6961 |
Vcs[0]=MMcons(V889,Cnil); |
Vcs[0]=MMcons(V933,Cnil); |
6962 |
V890= V888; |
V934= V932; |
6963 |
V891= V887; |
V935= V931; |
6964 |
V892= V886; |
V936= V930; |
6965 |
V893= V885; |
V937= V929; |
6966 |
narg = narg - 5; |
narg = narg - 5; |
6967 |
if (narg <= 0) goto T2028; |
if (narg <= 0) goto T2028; |
6968 |
else { |
else { |
6969 |
V894= first;} |
V938= first;} |
6970 |
if (--narg <= 0) goto T2029; |
if (--narg <= 0) goto T2029; |
6971 |
else { |
else { |
6972 |
V895= va_arg(ap,object);} |
V939= va_arg(ap,object);} |
6973 |
if (--narg <= 0) goto T2030; |
if (--narg <= 0) goto T2030; |
6974 |
else { |
else { |
6975 |
V896= va_arg(ap,object);} |
V940= va_arg(ap,object);} |
6976 |
--narg; goto T2031; |
--narg; goto T2031; |
6977 |
goto T2028; |
goto T2028; |
6978 |
T2028:; |
T2028:; |
6979 |
V894= Cnil; |
V938= Cnil; |
6980 |
goto T2029; |
goto T2029; |
6981 |
T2029:; |
T2029:; |
6982 |
V895= Ct; |
V939= Ct; |
6983 |
goto T2030; |
goto T2030; |
6984 |
T2030:; |
T2030:; |
6985 |
V896= Cnil; |
V940= Cnil; |
6986 |
goto T2031; |
goto T2031; |
6987 |
T2031:; |
T2031:; |
6988 |
if(((V890))!=Cnil){ |
if(((V934))!=Cnil){ |
6989 |
goto T2036;} |
goto T2036;} |
6990 |
if(((V896))==Cnil){ |
if(((V940))==Cnil){ |
6991 |
goto T2039;} |
goto T2039;} |
6992 |
{object V897 = |
{object V941 = |
6993 |
make_cclosure_new(LC165,Cnil,Vcs[0],Cdata); |
make_cclosure_new(LC165,Cnil,Vcs[0],Cdata); |
6994 |
VMR114(V897)} |
VMR114(V941)} |
6995 |
goto T2039; |
goto T2039; |
6996 |
T2039:; |
T2039:; |
6997 |
{object V898 = |
{object V942 = |
6998 |
make_cclosure_new(LC166,Cnil,Vcs[0],Cdata); |
make_cclosure_new(LC166,Cnil,Vcs[0],Cdata); |
6999 |
VMR114(V898)} |
VMR114(V942)} |
7000 |
goto T2036; |
goto T2036; |
7001 |
T2036:; |
T2036:; |
7002 |
{object V899; |
{object V943; |
7003 |
register object V900; |
register object V944; |
7004 |
V899= CMPcar((V890));{object V901; |
V943= CMPcar((V934));{object V945; |
7005 |
base[2]= (V899); |
base[2]= (V943); |
7006 |
base[3]= (VV[150]->s.s_dbind); |
base[3]= (VV[150]->s.s_dbind); |
7007 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7008 |
Lgethash(); |
Lgethash(); |
7009 |
vs_top=sup; |
vs_top=sup; |
7010 |
V901= vs_base[0]; |
V945= vs_base[0]; |
7011 |
if(V901==Cnil)goto T2043; |
if(V945==Cnil)goto T2043; |
7012 |
V900= V901; |
V944= V945; |
7013 |
goto T2042; |
goto T2042; |
7014 |
goto T2043; |
goto T2043; |
7015 |
T2043:;} |
T2043:;} |
7016 |
{object V903; |
{object V947; |
7017 |
object V904; |
object V948; |
7018 |
V903= (VV[150]->s.s_dbind); |
V947= (VV[150]->s.s_dbind); |
7019 |
V904= make_cons(Cnil,Cnil); |
V948= make_cons(Cnil,Cnil); |
7020 |
base[3]= V899; |
base[3]= V943; |
7021 |
base[4]= (V903); |
base[4]= (V947); |
7022 |
base[5]= (V904); |
base[5]= (V948); |
7023 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
7024 |
siLhash_set(); |
siLhash_set(); |
7025 |
vs_top=sup; |
vs_top=sup; |
7026 |
V900= vs_base[0];} |
V944= vs_base[0];} |
7027 |
goto T2042; |
goto T2042; |
7028 |
T2042:; |
T2042:; |
7029 |
if((CMPcdr((V890)))!=Cnil){ |
if((CMPcdr((V934)))!=Cnil){ |
7030 |
goto T2053;} |
goto T2053;} |
7031 |
if(((V894))==Cnil){ |
if(((V938))==Cnil){ |
7032 |
goto T2053;} |
goto T2053;} |
7033 |
if(((V892))!=Cnil){ |
if(((V936))!=Cnil){ |
7034 |
goto T2053;} |
goto T2053;} |
7035 |
if(((V893))==Cnil){ |
if(((V937))==Cnil){ |
7036 |
goto T2053;} |
goto T2053;} |
7037 |
if(((V896))!=Cnil){ |
if(((V940))!=Cnil){ |
7038 |
goto T2053;}{object V905; |
goto T2053;}{object V949; |
7039 |
V905= CMPcar((V900)); |
V949= CMPcar((V944)); |
7040 |
if(V905==Cnil)goto T2063; |
if(V949==Cnil)goto T2063; |
7041 |
{object V906 = V905; |
{object V950 = V949; |
7042 |
VMR114(V906)} |
VMR114(V950)} |
7043 |
goto T2063; |
goto T2063; |
7044 |
T2063:;} |
T2063:;} |
7045 |
{object V908; |
{object V952; |
7046 |
V908= (*(LnkLI303))((Vcs[0]->c.c_car),(V890),(V891),(V892),(V893),(V894),(V895),(V896)); |
V952= (*(LnkLI303))((Vcs[0]->c.c_car),(V934),(V935),(V936),(V937),(V938),(V939),(V940)); |
7047 |
(V900)->c.c_car = (V908); |
(V944)->c.c_car = (V952); |
7048 |
{object V909 = (V908); |
{object V953 = (V952); |
7049 |
VMR114(V909)}} |
VMR114(V953)}} |
7050 |
goto T2053; |
goto T2053; |
7051 |
T2053:; |
T2053:; |
7052 |
{object V910; |
{object V954; |
7053 |
if(((V894))==Cnil){ |
V955 = (V934); |
7054 |
|
if(((V938))==Cnil){ |
7055 |
goto T2070;} |
goto T2070;} |
7056 |
V911= VV[151]; |
V956= VV[151]; |
7057 |
goto T2068; |
goto T2068; |
7058 |
goto T2070; |
goto T2070; |
7059 |
T2070:; |
T2070:; |
7060 |
V911= (V891); |
V956= (V935); |
7061 |
goto T2068; |
goto T2068; |
7062 |
T2068:; |
T2068:; |
7063 |
V910= list(5,(V890),V911,(V892),(V893),(V896));{object V912; |
V957 = (V936); |
7064 |
{register object x= (V910),V914= CMPcdr((V900)); |
V958 = (V937); |
7065 |
while(V914!=Cnil) |
V959 = (V940); |
7066 |
if(equal(x,V914->c.c_car->c.c_car) &&V914->c.c_car != Cnil){ |
V954= list(5,V955,V956,V957,V958,V959);{object V960; |
7067 |
V913= (V914->c.c_car); |
{register object x= (V954),V962= CMPcdr((V944)); |
7068 |
|
while(V962!=Cnil) |
7069 |
|
if(equal(x,V962->c.c_car->c.c_car) &&V962->c.c_car != Cnil){ |
7070 |
|
V961= (V962->c.c_car); |
7071 |
goto T2074; |
goto T2074; |
7072 |
}else V914=V914->c.c_cdr; |
}else V962=V962->c.c_cdr; |
7073 |
V913= Cnil;} |
V961= Cnil;} |
7074 |
goto T2074; |
goto T2074; |
7075 |
T2074:; |
T2074:; |
7076 |
V912= CMPcdr(V913); |
V960= CMPcdr(V961); |
7077 |
if(V912==Cnil)goto T2072; |
if(V960==Cnil)goto T2072; |
7078 |
{object V915 = V912; |
{object V963 = V960; |
7079 |
VMR114(V915)} |
VMR114(V963)} |
7080 |
goto T2072; |
goto T2072; |
7081 |
T2072:;} |
T2072:;} |
7082 |
{object V916; |
{object V964; |
7083 |
V916= (*(LnkLI303))((Vcs[0]->c.c_car),(V890),(V891),(V892),(V893),(V894),(V895),(V896)); |
V964= (*(LnkLI303))((Vcs[0]->c.c_car),(V934),(V935),(V936),(V937),(V938),(V939),(V940)); |
7084 |
{object V917; |
{object V965; |
7085 |
object V919; |
object V967; |
7086 |
V917= make_cons((V910),(V916)); |
V965= make_cons((V954),(V964)); |
7087 |
V919= make_cons((V917),CMPcdr(V900)); |
V967= make_cons((V965),CMPcdr(V944)); |
7088 |
(V900)->c.c_cdr = (V919);} |
(V944)->c.c_cdr = (V967);} |
7089 |
{object V920 = (V916); |
{object V968 = (V964); |
7090 |
VMR114(V920)}}}} |
VMR114(V968)}}}} |
7091 |
va_end(ap); |
va_end(ap); |
7092 |
base[0]=base[0]; |
base[0]=base[0]; |
7093 |
return Cnil;} |
return Cnil;} |
7094 |
} |
} |
7095 |
/* local entry for function GET-SECONDARY-DISPATCH-FUNCTION2 */ |
/* local entry for function GET-SECONDARY-DISPATCH-FUNCTION2 */ |
7096 |
|
|
7097 |
static object LI126(V929,V930,V931,V932,V933,V934,V935,V936) |
static object LI126(V977,V978,V979,V980,V981,V982,V983,V984) |
7098 |
|
|
7099 |
register object V929;object V930;object V931;object V932;object V933;object V934;object V935;object V936; |
register object V977;object V978;object V979;object V980;object V981;object V982;object V983;object V984; |
7100 |
{ VMB115 VMS115 VMV115 |
{ VMB115 VMS115 VMV115 |
7101 |
goto TTL; |
goto TTL; |
7102 |
TTL:; |
TTL:; |
7103 |
if(((V934))==Cnil){ |
if(((V982))==Cnil){ |
7104 |
goto T2081;} |
goto T2081;} |
7105 |
if(((V935))==Cnil){ |
if(((V983))==Cnil){ |
7106 |
goto T2081;} |
goto T2081;} |
7107 |
if(((V936))!=Cnil){ |
if(((V984))!=Cnil){ |
7108 |
goto T2081;} |
goto T2081;} |
7109 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
7110 |
goto T2088;} |
goto T2088;} |
7111 |
{object V937; |
{object V985; |
7112 |
object V938; |
object V986; |
7113 |
base[2]= (V929); |
base[2]= (V977); |
7114 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7115 |
(void) (*Lnk304)(Lclptr304); |
(void) (*Lnk304)(Lclptr304); |
7116 |
vs_top=sup; |
vs_top=sup; |
7117 |
V937= vs_base[0]; |
V985= vs_base[0]; |
7118 |
V938= (*(LnkLI305))((V929),(V937),(V930)); |
V986= (*(LnkLI305))((V977),(V985),(V978)); |
7119 |
{object V939 = (*(LnkLI306))((V929),(V938),(V932),(V933)); |
{object V987 = (*(LnkLI306))((V977),(V986),(V980),(V981)); |
7120 |
VMR115(V939)}} |
VMR115(V987)}} |
7121 |
goto T2088; |
goto T2088; |
7122 |
T2088:; |
T2088:; |
7123 |
{object V940; |
{object V988; |
7124 |
V940= (*(LnkLI307))((V929),Cnil,(V930)); |
V988= (*(LnkLI307))((V977),Cnil,(V978)); |
7125 |
{object V941 = (*(LnkLI306))((V929),(V940),(V932),(V933)); |
{object V989 = (*(LnkLI306))((V977),(V988),(V980),(V981)); |
7126 |
VMR115(V941)}} |
VMR115(V989)}} |
7127 |
goto T2081; |
goto T2081; |
7128 |
T2081:; |
T2081:; |
7129 |
{object V942; |
{object V990; |
7130 |
base[0]= (V929); |
base[0]= (V977); |
7131 |
base[1]= (V930); |
base[1]= (V978); |
7132 |
base[2]= (V931); |
base[2]= (V979); |
7133 |
base[3]= (V935); |
base[3]= (V983); |
7134 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
7135 |
(void) (*Lnk308)(); |
(void) (*Lnk308)(); |
7136 |
vs_top=sup; |
vs_top=sup; |
7137 |
V942= vs_base[0]; |
V990= vs_base[0]; |
7138 |
{object V943 = (VFUN_NARGS=3,(*(LnkLI309))((V929),(V942),(V936))); |
{object V991 = (VFUN_NARGS=3,(*(LnkLI309))((V977),(V990),(V984))); |
7139 |
VMR115(V943)}} |
VMR115(V991)}} |
7140 |
base[0]=base[0]; |
base[0]=base[0]; |
7141 |
return Cnil; |
return Cnil; |
7142 |
} |
} |
7146 |
{register object *base=vs_base; |
{register object *base=vs_base; |
7147 |
register object *sup=base+VM116; VC116 |
register object *sup=base+VM116; VC116 |
7148 |
vs_check; |
vs_check; |
7149 |
{object V944; |
{object V992; |
7150 |
object V945; |
object V993; |
7151 |
object V946; |
object V994; |
7152 |
object V947; |
object V995; |
7153 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
7154 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
7155 |
V944=(base[0]); |
V992=(base[0]); |
7156 |
V945=(base[1]); |
V993=(base[1]); |
7157 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
7158 |
if(vs_base>=vs_top){vs_top=sup;goto T2099;} |
if(vs_base>=vs_top){vs_top=sup;goto T2099;} |
7159 |
V946=(base[2]); |
V994=(base[2]); |
7160 |
vs_base++; |
vs_base++; |
7161 |
if(vs_base>=vs_top){vs_top=sup;goto T2100;} |
if(vs_base>=vs_top){vs_top=sup;goto T2100;} |
7162 |
V947=(base[3]); |
V995=(base[3]); |
7163 |
vs_top=sup; |
vs_top=sup; |
7164 |
goto T2101; |
goto T2101; |
7165 |
goto T2099; |
goto T2099; |
7166 |
T2099:; |
T2099:; |
7167 |
V946= Cnil; |
V994= Cnil; |
7168 |
goto T2100; |
goto T2100; |
7169 |
T2100:; |
T2100:; |
7170 |
V947= Cnil; |
V995= Cnil; |
7171 |
goto T2101; |
goto T2101; |
7172 |
T2101:; |
T2101:; |
7173 |
base[4]= (VFUN_NARGS=6,(*(LnkLI216))((V944),(V945),Cnil,(((((V946))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(((((V947))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),Ct)); |
base[4]= (VFUN_NARGS=6,(*(LnkLI216))((V992),(V993),Cnil,(((((V994))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(((((V995))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),Ct)); |
7174 |
base[5]= (V946); |
base[5]= (V994); |
7175 |
base[6]= (V947); |
base[6]= (V995); |
7176 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
7177 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
7178 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
7183 |
} |
} |
7184 |
/* local entry for function GET-EFFECTIVE-METHOD-FUNCTION1 */ |
/* local entry for function GET-EFFECTIVE-METHOD-FUNCTION1 */ |
7185 |
|
|
7186 |
static object LI128(object V949,object V948,object first,...) |
static object LI128(object V997,object V996,object first,...) |
7187 |
{ |
{ |
7188 |
va_list ap; |
va_list ap; |
7189 |
int narg = VFUN_NARGS; VMB117 VMS117 VMV117 |
int narg = VFUN_NARGS; VMB117 VMS117 VMV117 |
7190 |
{object V950; |
{object V998; |
7191 |
object V951; |
object V999; |
7192 |
object V952; |
object V1000; |
7193 |
va_start(ap,first); |
va_start(ap,first); |
7194 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
7195 |
V950= V949; |
V998= V997; |
7196 |
V951= V948; |
V999= V996; |
7197 |
narg = narg - 2; |
narg = narg - 2; |
7198 |
if (narg <= 0) goto T2107; |
if (narg <= 0) goto T2107; |
7199 |
else { |
else { |
7200 |
V952= first;} |
V1000= first;} |
7201 |
--narg; goto T2108; |
--narg; goto T2108; |
7202 |
goto T2107; |
goto T2107; |
7203 |
T2107:; |
T2107:; |
7204 |
V952= Ct; |
V1000= Ct; |
7205 |
goto T2108; |
goto T2108; |
7206 |
T2108:; |
T2108:; |
7207 |
{object V953 = (VFUN_NARGS=7,(*(LnkLI216))((V950),(V951),Cnil,Cnil,Cnil,Ct,(V952))); |
{object V1001 = (VFUN_NARGS=7,(*(LnkLI216))((V998),(V999),Cnil,Cnil,Cnil,Ct,(V1000))); |
7208 |
VMR117(V953)} |
VMR117(V1001)} |
7209 |
va_end(ap); |
va_end(ap); |
7210 |
return Cnil;} |
return Cnil;} |
7211 |
} |
} |
7212 |
/* local entry for function METHODS-CONTAIN-EQL-SPECIALIZER-P */ |
/* local entry for function METHODS-CONTAIN-EQL-SPECIALIZER-P */ |
7213 |
|
|
7214 |
static object LI129(V955) |
static object LI129(V1003) |
7215 |
|
|
7216 |
object V955; |
object V1003; |
7217 |
{ VMB118 VMS118 VMV118 |
{ VMB118 VMS118 VMV118 |
7218 |
goto TTL; |
goto TTL; |
7219 |
TTL:; |
TTL:; |
7220 |
if(((VV[72]->s.s_dbind))==(VV[73])){ |
if(((VV[72]->s.s_dbind))==(VV[73])){ |
7221 |
goto T2110;} |
goto T2110;} |
7222 |
{object V956 = Cnil; |
{object V1004 = Cnil; |
7223 |
VMR118(V956)} |
VMR118(V1004)} |
7224 |
goto T2110; |
goto T2110; |
7225 |
T2110:; |
T2110:; |
7226 |
{register object V957; |
{register object V1005; |
7227 |
register object V958; |
register object V1006; |
7228 |
V957= (V955); |
V1005= (V1003); |
7229 |
V958= CMPcar((V957)); |
V1006= CMPcar((V1005)); |
7230 |
goto T2115; |
goto T2115; |
7231 |
T2115:; |
T2115:; |
7232 |
if(!(((V957))==Cnil)){ |
if(!(((V1005))==Cnil)){ |
7233 |
goto T2116;} |
goto T2116;} |
7234 |
{object V959 = Cnil; |
{object V1007 = Cnil; |
7235 |
VMR118(V959)} |
VMR118(V1007)} |
7236 |
goto T2116; |
goto T2116; |
7237 |
T2116:; |
T2116:; |
7238 |
{register object V960; |
{register object V1008; |
7239 |
register object V961; |
register object V1009; |
7240 |
base[3]= (V958); |
base[3]= (V1006); |
7241 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7242 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk242)(Lclptr242); |
7243 |
vs_top=sup; |
vs_top=sup; |
7244 |
V960= vs_base[0]; |
V1008= vs_base[0]; |
7245 |
V961= CMPcar((V960)); |
V1009= CMPcar((V1008)); |
7246 |
goto T2127; |
goto T2127; |
7247 |
T2127:; |
T2127:; |
7248 |
if(!(((V960))==Cnil)){ |
if(!(((V1008))==Cnil)){ |
7249 |
goto T2128;} |
goto T2128;} |
7250 |
goto T2120; |
goto T2120; |
7251 |
goto T2128; |
goto T2128; |
7252 |
T2128:; |
T2128:; |
7253 |
base[3]= (V961); |
base[3]= (V1009); |
7254 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7255 |
(void) (*Lnk310)(Lclptr310); |
(void) (*Lnk310)(Lclptr310); |
7256 |
vs_top=sup; |
vs_top=sup; |
7259 |
goto T2122; |
goto T2122; |
7260 |
goto T2132; |
goto T2132; |
7261 |
T2132:; |
T2132:; |
7262 |
V960= CMPcdr((V960)); |
V1008= CMPcdr((V1008)); |
7263 |
V961= CMPcar((V960)); |
V1009= CMPcar((V1008)); |
7264 |
goto T2127;} |
goto T2127;} |
7265 |
goto T2122; |
goto T2122; |
7266 |
T2122:; |
T2122:; |
7267 |
{object V962 = Ct; |
{object V1010 = Ct; |
7268 |
VMR118(V962)} |
VMR118(V1010)} |
7269 |
goto T2120; |
goto T2120; |
7270 |
T2120:; |
T2120:; |
7271 |
V957= CMPcdr((V957)); |
V1005= CMPcdr((V1005)); |
7272 |
V958= CMPcar((V957)); |
V1006= CMPcar((V1005)); |
7273 |
goto T2115;} |
goto T2115;} |
7274 |
base[0]=base[0]; |
base[0]=base[0]; |
7275 |
return Cnil; |
return Cnil; |
7276 |
} |
} |
7277 |
/* local entry for function UPDATE-DFUN */ |
/* local entry for function UPDATE-DFUN */ |
7278 |
|
|
7279 |
static object LI130(object V963,object first,...) |
static object LI130(object V1011,object first,...) |
7280 |
{ |
{ |
7281 |
va_list ap; |
va_list ap; |
7282 |
int narg = VFUN_NARGS; VMB119 VMS119 VMV119 |
int narg = VFUN_NARGS; VMB119 VMS119 VMV119 |
7283 |
{register object V964; |
{register object V1012; |
7284 |
object V965; |
object V1013; |
7285 |
object V966; |
object V1014; |
7286 |
object V967; |
object V1015; |
7287 |
va_start(ap,first); |
va_start(ap,first); |
7288 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
7289 |
V964= V963; |
V1012= V1011; |
7290 |
narg = narg - 1; |
narg = narg - 1; |
7291 |
if (narg <= 0) goto T2146; |
if (narg <= 0) goto T2146; |
7292 |
else { |
else { |
7293 |
V965= first;} |
V1013= first;} |
7294 |
if (--narg <= 0) goto T2147; |
if (--narg <= 0) goto T2147; |
7295 |
else { |
else { |
7296 |
V966= va_arg(ap,object);} |
V1014= va_arg(ap,object);} |
7297 |
if (--narg <= 0) goto T2148; |
if (--narg <= 0) goto T2148; |
7298 |
else { |
else { |
7299 |
V967= va_arg(ap,object);} |
V1015= va_arg(ap,object);} |
7300 |
--narg; goto T2149; |
--narg; goto T2149; |
7301 |
goto T2146; |
goto T2146; |
7302 |
T2146:; |
T2146:; |
7303 |
V965= Cnil; |
V1013= Cnil; |
7304 |
goto T2147; |
goto T2147; |
7305 |
T2147:; |
T2147:; |
7306 |
V966= Cnil; |
V1014= Cnil; |
7307 |
goto T2148; |
goto T2148; |
7308 |
T2148:; |
T2148:; |
7309 |
V967= Cnil; |
V1015= Cnil; |
7310 |
goto T2149; |
goto T2149; |
7311 |
T2149:; |
T2149:; |
7312 |
{object V968; |
{object V1016; |
7313 |
object V969; |
object V1017; |
7314 |
object V970; |
object V1018; |
7315 |
V968= (*(LnkLI196))((V964)); |
V1016= (*(LnkLI196))((V1012)); |
7316 |
if(((V968))==Cnil){ |
if(((V1016))==Cnil){ |
7317 |
goto T2156;} |
goto T2156;} |
7318 |
V969= (*(LnkLI311))((V964)); |
V1017= (*(LnkLI311))((V1012)); |
7319 |
goto T2154; |
goto T2154; |
7320 |
goto T2156; |
goto T2156; |
7321 |
T2156:; |
T2156:; |
7322 |
base[3]= (V964); |
base[3]= (V1012); |
7323 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7324 |
(void) (*Lnk162)(Lclptr162); |
(void) (*Lnk162)(Lclptr162); |
7325 |
vs_top=sup; |
vs_top=sup; |
7326 |
V969= vs_base[0]; |
V1017= vs_base[0]; |
7327 |
goto T2154; |
goto T2154; |
7328 |
T2154:; |
T2154:; |
7329 |
V970= (*(LnkLI220))((V964)); |
V1018= (*(LnkLI220))((V1012)); |
7330 |
(void)((VFUN_NARGS=4,(*(LnkLI230))((V964),(V965),(V966),(V967)))); |
(void)((VFUN_NARGS=4,(*(LnkLI230))((V1012),(V1013),(V1014),(V1015)))); |
7331 |
{register object V971; |
{register object V1019; |
7332 |
object V972; |
object V1020; |
7333 |
if(((V968))==Cnil){ |
if(((V1016))==Cnil){ |
7334 |
goto T2163;} |
goto T2163;} |
7335 |
if((V965)!=Cnil){ |
if((V1013)!=Cnil){ |
7336 |
V971= (V965); |
V1019= (V1013); |
7337 |
goto T2161;} |
goto T2161;} |
7338 |
V971= (*(LnkLI312))((V964)); |
V1019= (*(LnkLI312))((V1012)); |
7339 |
goto T2161; |
goto T2161; |
7340 |
goto T2163; |
goto T2163; |
7341 |
T2163:; |
T2163:; |
7342 |
base[5]= (V964); |
base[5]= (V1012); |
7343 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
7344 |
(void) (*Lnk313)(Lclptr313); |
(void) (*Lnk313)(Lclptr313); |
7345 |
vs_top=sup; |
vs_top=sup; |
7346 |
V971= vs_base[0]; |
V1019= vs_base[0]; |
7347 |
goto T2161; |
goto T2161; |
7348 |
T2161:; |
T2161:; |
7349 |
V972= (*(LnkLI218))((V964)); |
V1020= (*(LnkLI218))((V1012)); |
7350 |
base[5]= (V972); |
base[5]= (V1020); |
7351 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
7352 |
Ltype_of(); |
Ltype_of(); |
7353 |
vs_top=sup; |
vs_top=sup; |
7354 |
V973= vs_base[0]; |
V1021= vs_base[0]; |
7355 |
if((VV[15])==(V973)){ |
if((VV[15])==(V1021)){ |
7356 |
goto T2167;} |
goto T2167;} |
7357 |
base[5]= (V971); |
V1022 = (V1012); |
7358 |
base[6]= (V969); |
base[5]= (V1019); |
7359 |
|
base[6]= (V1017); |
7360 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
7361 |
(void) (*Lnk315)(); |
(void) (*Lnk315)(); |
7362 |
vs_top=sup; |
vs_top=sup; |
7363 |
V974= vs_base[0]; |
V1023= vs_base[0]; |
7364 |
V971= (*(LnkLI314))((V964),V974); |
V1019= (*(LnkLI314))(V1022,V1023); |
7365 |
goto T2167; |
goto T2167; |
7366 |
T2167:; |
T2167:; |
7367 |
(void)((*(LnkLI316))((V964),(V971))); |
(void)((*(LnkLI316))((V1012),(V1019))); |
7368 |
if(((V970))==Cnil){ |
if(((V1018))==Cnil){ |
7369 |
goto T2177;} |
goto T2177;} |
7370 |
if(((V970))==((V966))){ |
if(((V1018))==((V1014))){ |
7371 |
goto T2177;} |
goto T2177;} |
7372 |
(void)((*(LnkLI317))((V970))); |
(void)((*(LnkLI317))((V1018))); |
7373 |
goto T2177; |
goto T2177; |
7374 |
T2177:; |
T2177:; |
7375 |
{object V975 = (V971); |
{object V1024 = (V1019); |
7376 |
VMR119(V975)}}} |
VMR119(V1024)}}} |
7377 |
va_end(ap); |
va_end(ap); |
7378 |
base[0]=base[0]; |
base[0]=base[0]; |
7379 |
return Cnil;} |
return Cnil;} |
7380 |
} |
} |
7381 |
/* local entry for function LIST-DFUN */ |
/* local entry for function LIST-DFUN */ |
7382 |
|
|
7383 |
static object LI131(V977) |
static object LI131(V1026) |
7384 |
|
|
7385 |
object V977; |
object V1026; |
7386 |
{ VMB120 VMS120 VMV120 |
{ VMB120 VMS120 VMV120 |
7387 |
goto TTL; |
goto TTL; |
7388 |
TTL:; |
TTL:; |
7389 |
{object V978; |
{object V1027; |
7390 |
object V979; |
object V1028; |
7391 |
base[2]= (*(LnkLI218))((V977)); |
base[2]= (*(LnkLI218))((V1026)); |
7392 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7393 |
Ltype_of(); |
Ltype_of(); |
7394 |
vs_top=sup; |
vs_top=sup; |
7395 |
V978= vs_base[0]; |
V1027= vs_base[0]; |
7396 |
{register object x= (V978),V980= (VV[152]->s.s_dbind); |
{register object x= (V1027),V1029= (VV[152]->s.s_dbind); |
7397 |
while(V980!=Cnil) |
while(V1029!=Cnil) |
7398 |
if(EQ(x,V980->c.c_car->c.c_car) &&V980->c.c_car != Cnil){ |
if(EQ(x,V1029->c.c_car->c.c_car) &&V1029->c.c_car != Cnil){ |
7399 |
V979= (V980->c.c_car); |
V1028= (V1029->c.c_car); |
7400 |
goto T2184; |
goto T2184; |
7401 |
}else V980=V980->c.c_cdr; |
}else V1029=V1029->c.c_cdr; |
7402 |
V979= Cnil;} |
V1028= Cnil;} |
7403 |
goto T2184; |
goto T2184; |
7404 |
T2184:; |
T2184:; |
7405 |
if(((V979))!=Cnil){ |
if(((V1028))!=Cnil){ |
7406 |
goto T2185;} |
goto T2185;} |
7407 |
{object V981; |
{object V1030; |
7408 |
V979= make_cons((V978),Cnil); |
V1028= make_cons((V1027),Cnil); |
7409 |
V981= (V979); |
V1030= (V1028); |
7410 |
(VV[152]->s.s_dbind)= make_cons((V981),(VV[152]->s.s_dbind));} |
(VV[152]->s.s_dbind)= make_cons((V1030),(VV[152]->s.s_dbind));} |
7411 |
goto T2185; |
goto T2185; |
7412 |
T2185:; |
T2185:; |
7413 |
{object V982; |
{object V1031; |
7414 |
object V984; |
object V1033; |
7415 |
base[4]= (V977); |
base[4]= (V1026); |
7416 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7417 |
(void) (*Lnk162)(Lclptr162); |
(void) (*Lnk162)(Lclptr162); |
7418 |
vs_top=sup; |
vs_top=sup; |
7419 |
V982= vs_base[0]; |
V1031= vs_base[0]; |
7420 |
V984= make_cons((V982),CMPcdr(V979)); |
V1033= make_cons((V1031),CMPcdr(V1028)); |
7421 |
(V979)->c.c_cdr = (V984); |
(V1028)->c.c_cdr = (V1033); |
7422 |
{object V985 = (V984); |
{object V1034 = (V1033); |
7423 |
VMR120(V985)}}} |
VMR120(V1034)}}} |
7424 |
base[0]=base[0]; |
base[0]=base[0]; |
7425 |
return Cnil; |
return Cnil; |
7426 |
} |
} |
7432 |
goto TTL; |
goto TTL; |
7433 |
TTL:; |
TTL:; |
7434 |
(VV[152]->s.s_dbind)= Cnil; |
(VV[152]->s.s_dbind)= Cnil; |
7435 |
V986= (VV[319]->s.s_gfdef); |
V1035= (VV[319]->s.s_gfdef); |
7436 |
(void)((*(LnkLI318))(V986)); |
(void)((*(LnkLI318))(V1035)); |
7437 |
{object V987 = (VV[152]->s.s_dbind); |
{object V1036 = (VV[152]->s.s_dbind); |
7438 |
VMR121(V987)} |
VMR121(V1036)} |
7439 |
return Cnil; |
return Cnil; |
7440 |
} |
} |
7441 |
/* local entry for function LIST-LARGE-CACHE */ |
/* local entry for function LIST-LARGE-CACHE */ |
7442 |
|
|
7443 |
static object LI133(V989) |
static object LI133(V1038) |
7444 |
|
|
7445 |
object V989; |
object V1038; |
7446 |
{ VMB122 VMS122 VMV122 |
{ VMB122 VMS122 VMV122 |
7447 |
goto TTL; |
goto TTL; |
7448 |
TTL:; |
TTL:; |
7449 |
{object V990; |
{object V1039; |
7450 |
object V991; |
object V1040; |
7451 |
base[2]= (*(LnkLI218))((V989)); |
base[2]= (*(LnkLI218))((V1038)); |
7452 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7453 |
Ltype_of(); |
Ltype_of(); |
7454 |
vs_top=sup; |
vs_top=sup; |
7455 |
V990= vs_base[0]; |
V1039= vs_base[0]; |
7456 |
V991= (*(LnkLI220))((V989)); |
V1040= (*(LnkLI220))((V1038)); |
7457 |
if(((V991))==Cnil){ |
if(((V1040))==Cnil){ |
7458 |
goto T2203;} |
goto T2203;} |
7459 |
{object V992; |
{object V1041; |
7460 |
V992= CMPmake_fixnum((long)STREF(fixnum,(V991),28)); |
V1041= CMPmake_fixnum((long)STREF(fixnum,(V1040),28)); |
7461 |
if(!(number_compare((V992),(VV[154]->s.s_dbind))>=0)){ |
if(!(number_compare((V1041),(VV[154]->s.s_dbind))>=0)){ |
7462 |
goto T2207;} |
goto T2207;} |
7463 |
{object V993; |
{object V1042; |
7464 |
{register object x= (V992),V994= (VV[152]->s.s_dbind); |
{register object x= (V1041),V1043= (VV[152]->s.s_dbind); |
7465 |
while(V994!=Cnil) |
while(V1043!=Cnil) |
7466 |
if(eql(x,V994->c.c_car->c.c_car) &&V994->c.c_car != Cnil){ |
if(eql(x,V1043->c.c_car->c.c_car) &&V1043->c.c_car != Cnil){ |
7467 |
V993= (V994->c.c_car); |
V1042= (V1043->c.c_car); |
7468 |
goto T2209; |
goto T2209; |
7469 |
}else V994=V994->c.c_cdr; |
}else V1043=V1043->c.c_cdr; |
7470 |
V993= Cnil;} |
V1042= Cnil;} |
7471 |
goto T2209; |
goto T2209; |
7472 |
T2209:; |
T2209:; |
7473 |
if(((V993))!=Cnil){ |
if(((V1042))!=Cnil){ |
7474 |
goto T2210;} |
goto T2210;} |
7475 |
{object V995; |
{object V1044; |
7476 |
V993= make_cons((V992),Cnil); |
V1042= make_cons((V1041),Cnil); |
7477 |
V995= (V993); |
V1044= (V1042); |
7478 |
(VV[152]->s.s_dbind)= make_cons((V995),(VV[152]->s.s_dbind));} |
(VV[152]->s.s_dbind)= make_cons((V1044),(VV[152]->s.s_dbind));} |
7479 |
goto T2210; |
goto T2210; |
7480 |
T2210:; |
T2210:; |
7481 |
{object V996; |
{object V1045; |
7482 |
object V998; |
object V1047; |
7483 |
{object V999; |
{object V1048; |
7484 |
base[4]= (V989); |
base[4]= (V1038); |
7485 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7486 |
(void) (*Lnk162)(Lclptr162); |
(void) (*Lnk162)(Lclptr162); |
7487 |
vs_top=sup; |
vs_top=sup; |
7488 |
V999= vs_base[0]; |
V1048= vs_base[0]; |
7489 |
if(!(((V990))==(VV[13]))){ |
if(!(((V1039))==(VV[13]))){ |
7490 |
goto T2220;} |
goto T2220;} |
7491 |
V996= (V999); |
V1045= (V1048); |
7492 |
goto T2216; |
goto T2216; |
7493 |
goto T2220; |
goto T2220; |
7494 |
T2220:; |
T2220:; |
7495 |
V996= list(2,(V999),(V990));} |
V1045= list(2,(V1048),(V1039));} |
7496 |
goto T2216; |
goto T2216; |
7497 |
T2216:; |
T2216:; |
7498 |
V998= make_cons((V996),CMPcdr(V993)); |
V1047= make_cons((V1045),CMPcdr(V1042)); |
7499 |
(V993)->c.c_cdr = (V998); |
(V1042)->c.c_cdr = (V1047); |
7500 |
{object V1000 = (V998); |
{object V1049 = (V1047); |
7501 |
VMR122(V1000)}}} |
VMR122(V1049)}}} |
7502 |
goto T2207; |
goto T2207; |
7503 |
T2207:; |
T2207:; |
7504 |
{object V1001 = Cnil; |
{object V1050 = Cnil; |
7505 |
VMR122(V1001)}} |
VMR122(V1050)}} |
7506 |
goto T2203; |
goto T2203; |
7507 |
T2203:; |
T2203:; |
7508 |
{object V1002 = Cnil; |
{object V1051 = Cnil; |
7509 |
VMR122(V1002)}} |
VMR122(V1051)}} |
7510 |
base[0]=base[0]; |
base[0]=base[0]; |
7511 |
return Cnil; |
return Cnil; |
7512 |
} |
} |
7528 |
goto T2225; |
goto T2225; |
7529 |
T2225:; |
T2225:; |
7530 |
(VV[152]->s.s_dbind)= Cnil; |
(VV[152]->s.s_dbind)= Cnil; |
7531 |
V1003= (VV[320]->s.s_gfdef); |
V1052= (VV[320]->s.s_gfdef); |
7532 |
(void)((*(LnkLI318))(V1003)); |
(void)((*(LnkLI318))(V1052)); |
7533 |
base[1]= (VV[152]->s.s_dbind); |
base[1]= (VV[152]->s.s_dbind); |
7534 |
base[2]= (VV[321]->s.s_gfdef); |
base[2]= (VV[321]->s.s_gfdef); |
7535 |
base[3]= VV[155]; |
base[3]= VV[155]; |
7540 |
(VV[152]->s.s_dbind)= vs_base[0]; |
(VV[152]->s.s_dbind)= vs_base[0]; |
7541 |
base[1]= (VV[152]->s.s_dbind); |
base[1]= (VV[152]->s.s_dbind); |
7542 |
{ |
{ |
7543 |
object V1004= base[1]; |
object V1053= base[1]; |
7544 |
if(V1004==Cnil){ |
if(V1053==Cnil){ |
7545 |
goto T2237;} |
goto T2237;} |
7546 |
goto T2238; |
goto T2238; |
7547 |
T2238:; |
T2238:; |
7548 |
(void)(print((V1004->c.c_car),Cnil)); |
(void)(print((V1053->c.c_car),Cnil)); |
7549 |
if((V1004=MMcdr(V1004))==Cnil){ |
if((V1053=MMcdr(V1053))==Cnil){ |
7550 |
goto T2237;} |
goto T2237;} |
7551 |
goto T2238;} |
goto T2238;} |
7552 |
goto T2237; |
goto T2237; |
7558 |
} |
} |
7559 |
/* local entry for function COUNT-DFUN */ |
/* local entry for function COUNT-DFUN */ |
7560 |
|
|
7561 |
static object LI135(V1006) |
static object LI135(V1055) |
7562 |
|
|
7563 |
object V1006; |
object V1055; |
7564 |
{ VMB124 VMS124 VMV124 |
{ VMB124 VMS124 VMV124 |
7565 |
goto TTL; |
goto TTL; |
7566 |
TTL:; |
TTL:; |
7567 |
{object V1007; |
{object V1056; |
7568 |
object V1008; |
object V1057; |
7569 |
register object V1009; |
register object V1058; |
7570 |
base[3]= (*(LnkLI218))((V1006)); |
base[3]= (*(LnkLI218))((V1055)); |
7571 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7572 |
Ltype_of(); |
Ltype_of(); |
7573 |
vs_top=sup; |
vs_top=sup; |
7574 |
V1007= vs_base[0]; |
V1056= vs_base[0]; |
7575 |
V1008= (*(LnkLI220))((V1006)); |
V1057= (*(LnkLI220))((V1055)); |
7576 |
{register object x= (V1007),V1010= (VV[156]->s.s_dbind); |
{register object x= (V1056),V1059= (VV[156]->s.s_dbind); |
7577 |
while(V1010!=Cnil) |
while(V1059!=Cnil) |
7578 |
if(EQ(x,V1010->c.c_car->c.c_car) &&V1010->c.c_car != Cnil){ |
if(EQ(x,V1059->c.c_car->c.c_car) &&V1059->c.c_car != Cnil){ |
7579 |
V1009= (V1010->c.c_car); |
V1058= (V1059->c.c_car); |
7580 |
goto T2243; |
goto T2243; |
7581 |
}else V1010=V1010->c.c_cdr; |
}else V1059=V1059->c.c_cdr; |
7582 |
V1009= Cnil;} |
V1058= Cnil;} |
7583 |
goto T2243; |
goto T2243; |
7584 |
T2243:; |
T2243:; |
7585 |
if(((V1009))!=Cnil){ |
if(((V1058))!=Cnil){ |
7586 |
goto T2244;} |
goto T2244;} |
7587 |
{object V1011; |
{object V1060; |
7588 |
V1009= list(3,(V1007),small_fixnum(0),Cnil); |
V1058= list(3,(V1056),small_fixnum(0),Cnil); |
7589 |
V1011= (V1009); |
V1060= (V1058); |
7590 |
(VV[156]->s.s_dbind)= make_cons((V1011),(VV[156]->s.s_dbind));} |
(VV[156]->s.s_dbind)= make_cons((V1060),(VV[156]->s.s_dbind));} |
7591 |
goto T2244; |
goto T2244; |
7592 |
T2244:; |
T2244:; |
7593 |
{object V1013; |
{object V1062; |
7594 |
V1013= number_plus(CMPcadr(V1009),small_fixnum(1)); |
V1062= number_plus(CMPcadr(V1058),small_fixnum(1)); |
7595 |
(CMPcdr(V1009))->c.c_car = (V1013); |
(CMPcdr(V1058))->c.c_car = (V1062); |
7596 |
(void)(CMPcdr(V1009));} |
(void)(CMPcdr(V1058));} |
7597 |
if(((V1008))==Cnil){ |
if(((V1057))==Cnil){ |
7598 |
goto T2254;} |
goto T2254;} |
7599 |
{object V1014; |
{object V1063; |
7600 |
object V1015; |
object V1064; |
7601 |
V1014= CMPmake_fixnum((long)STREF(fixnum,(V1008),28)); |
V1063= CMPmake_fixnum((long)STREF(fixnum,(V1057),28)); |
7602 |
{register object x= (V1014),V1016= CMPcaddr((V1009)); |
{register object x= (V1063),V1065= CMPcaddr((V1058)); |
7603 |
while(V1016!=Cnil) |
while(V1065!=Cnil) |
7604 |
if(eql(x,V1016->c.c_car->c.c_car) &&V1016->c.c_car != Cnil){ |
if(eql(x,V1065->c.c_car->c.c_car) &&V1065->c.c_car != Cnil){ |
7605 |
V1015= (V1016->c.c_car); |
V1064= (V1065->c.c_car); |
7606 |
goto T2257; |
goto T2257; |
7607 |
}else V1016=V1016->c.c_cdr; |
}else V1065=V1065->c.c_cdr; |
7608 |
V1015= Cnil;} |
V1064= Cnil;} |
7609 |
goto T2257; |
goto T2257; |
7610 |
T2257:; |
T2257:; |
7611 |
if(((V1015))!=Cnil){ |
if(((V1064))!=Cnil){ |
7612 |
goto T2258;} |
goto T2258;} |
7613 |
{object V1017; |
{object V1066; |
7614 |
object V1019; |
object V1068; |
7615 |
V1015= make_cons((V1014),small_fixnum(0)); |
V1064= make_cons((V1063),small_fixnum(0)); |
7616 |
V1017= (V1015); |
V1066= (V1064); |
7617 |
V1019= make_cons((V1017),CMPcaddr(V1009)); |
V1068= make_cons((V1066),CMPcaddr(V1058)); |
7618 |
(CMPcddr(V1009))->c.c_car = (V1019); |
(CMPcddr(V1058))->c.c_car = (V1068); |
7619 |
(void)(CMPcddr(V1009));} |
(void)(CMPcddr(V1058));} |
7620 |
goto T2258; |
goto T2258; |
7621 |
T2258:; |
T2258:; |
7622 |
{object V1021; |
{object V1070; |
7623 |
V1021= number_plus(CMPcdr(V1015),small_fixnum(1)); |
V1070= number_plus(CMPcdr(V1064),small_fixnum(1)); |
7624 |
(V1015)->c.c_cdr = (V1021); |
(V1064)->c.c_cdr = (V1070); |
7625 |
{object V1022 = (V1021); |
{object V1071 = (V1070); |
7626 |
VMR124(V1022)}}} |
VMR124(V1071)}}} |
7627 |
goto T2254; |
goto T2254; |
7628 |
T2254:; |
T2254:; |
7629 |
{object V1023 = Cnil; |
{object V1072 = Cnil; |
7630 |
VMR124(V1023)}} |
VMR124(V1072)}} |
7631 |
base[0]=base[0]; |
base[0]=base[0]; |
7632 |
return Cnil; |
return Cnil; |
7633 |
} |
} |
7641 |
vs_top=sup; |
vs_top=sup; |
7642 |
goto TTL; |
goto TTL; |
7643 |
TTL:; |
TTL:; |
7644 |
{object V1024; |
{object V1073; |
7645 |
object V1025= VV[157]; |
object V1074= VV[157]; |
7646 |
if(V1025==Cnil){ |
if(V1074==Cnil){ |
7647 |
(VV[156]->s.s_dbind)= Cnil; |
(VV[156]->s.s_dbind)= Cnil; |
7648 |
goto T2268;} |
goto T2268;} |
7649 |
base[0]=V1024=MMcons(Cnil,Cnil); |
base[0]=V1073=MMcons(Cnil,Cnil); |
7650 |
goto T2269; |
goto T2269; |
7651 |
T2269:; |
T2269:; |
7652 |
(V1024->c.c_car)= list(3,(V1025->c.c_car),small_fixnum(0),Cnil); |
(V1073->c.c_car)= list(3,(V1074->c.c_car),small_fixnum(0),Cnil); |
7653 |
if((V1025=MMcdr(V1025))==Cnil){ |
if((V1074=MMcdr(V1074))==Cnil){ |
7654 |
(VV[156]->s.s_dbind)= base[0]; |
(VV[156]->s.s_dbind)= base[0]; |
7655 |
goto T2268;} |
goto T2268;} |
7656 |
V1024=MMcdr(V1024)=MMcons(Cnil,Cnil); |
V1073=MMcdr(V1073)=MMcons(Cnil,Cnil); |
7657 |
goto T2269;} |
goto T2269;} |
7658 |
goto T2268; |
goto T2268; |
7659 |
T2268:; |
T2268:; |
7660 |
V1027= (VV[324]->s.s_gfdef); |
V1076= (VV[324]->s.s_gfdef); |
7661 |
(void)((*(LnkLI318))(V1027)); |
(void)((*(LnkLI318))(V1076)); |
7662 |
base[0]= (VV[156]->s.s_dbind); |
base[0]= (VV[156]->s.s_dbind); |
7663 |
{ |
{ |
7664 |
object V1028= base[0]; |
object V1077= base[0]; |
7665 |
if(V1028==Cnil){ |
if(V1077==Cnil){ |
7666 |
goto T2273;} |
goto T2273;} |
7667 |
goto T2274; |
goto T2274; |
7668 |
T2274:; |
T2274:; |
7669 |
{object V1031; |
{object V1080; |
7670 |
base[2]= CMPcaddr((V1028->c.c_car)); |
base[2]= CMPcaddr((V1077->c.c_car)); |
7671 |
base[3]= (VV[321]->s.s_gfdef); |
base[3]= (VV[321]->s.s_gfdef); |
7672 |
base[4]= VV[155]; |
base[4]= VV[155]; |
7673 |
base[5]= (VV[322]->s.s_gfdef); |
base[5]= (VV[322]->s.s_gfdef); |
7674 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
7675 |
(void) (*Lnk323)(); |
(void) (*Lnk323)(); |
7676 |
vs_top=sup; |
vs_top=sup; |
7677 |
V1031= vs_base[0]; |
V1080= vs_base[0]; |
7678 |
(CMPcddr((V1028->c.c_car)))->c.c_car = (V1031); |
(CMPcddr((V1077->c.c_car)))->c.c_car = (V1080); |
7679 |
(void)(CMPcddr((V1028->c.c_car)));} |
(void)(CMPcddr((V1077->c.c_car)));} |
7680 |
if((V1028=MMcdr(V1028))==Cnil){ |
if((V1077=MMcdr(V1077))==Cnil){ |
7681 |
goto T2273;} |
goto T2273;} |
7682 |
goto T2274;} |
goto T2274;} |
7683 |
goto T2273; |
goto T2273; |
7684 |
T2273:; |
T2273:; |
7685 |
base[0]= (VV[156]->s.s_dbind); |
base[0]= (VV[156]->s.s_dbind); |
7686 |
{ |
{ |
7687 |
object V1032= base[0]; |
object V1081= base[0]; |
7688 |
if(V1032==Cnil){ |
if(V1081==Cnil){ |
7689 |
goto T2282;} |
goto T2282;} |
7690 |
goto T2283; |
goto T2283; |
7691 |
T2283:; |
T2283:; |
7692 |
base[1]= Ct; |
base[1]= Ct; |
7693 |
base[2]= VV[158]; |
base[2]= VV[158]; |
7694 |
base[3]= CMPcadr((V1032->c.c_car)); |
base[3]= CMPcadr((V1081->c.c_car)); |
7695 |
base[4]= CMPcar((V1032->c.c_car)); |
base[4]= CMPcar((V1081->c.c_car)); |
7696 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
7697 |
Lformat(); |
Lformat(); |
7698 |
vs_top=sup; |
vs_top=sup; |
7699 |
base[1]= Ct; |
base[1]= Ct; |
7700 |
base[2]= VV[159]; |
base[2]= VV[159]; |
7701 |
base[3]= CMPcaddr((V1032->c.c_car)); |
base[3]= CMPcaddr((V1081->c.c_car)); |
7702 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
7703 |
Lformat(); |
Lformat(); |
7704 |
vs_top=sup; |
vs_top=sup; |
7705 |
if((V1032=MMcdr(V1032))==Cnil){ |
if((V1081=MMcdr(V1081))==Cnil){ |
7706 |
goto T2282;} |
goto T2282;} |
7707 |
goto T2283;} |
goto T2283;} |
7708 |
goto T2282; |
goto T2282; |
7713 |
} |
} |
7714 |
/* local entry for function GFS-OF-TYPE */ |
/* local entry for function GFS-OF-TYPE */ |
7715 |
|
|
7716 |
static object LI138(V1035) |
static object LI138(V1084) |
7717 |
|
|
7718 |
object V1035; |
object V1084; |
7719 |
{ VMB126 VMS126 VMV126 |
{ VMB126 VMS126 VMV126 |
7720 |
goto TTL; |
goto TTL; |
7721 |
TTL:; |
TTL:; |
7722 |
base[0]=MMcons((V1035),Cnil); |
base[0]=MMcons((V1084),Cnil); |
7723 |
if(type_of((base[0]->c.c_car))==t_cons){ |
if(type_of((base[0]->c.c_car))==t_cons){ |
7724 |
goto T2293;} |
goto T2293;} |
7725 |
(base[0]->c.c_car)= make_cons((base[0]->c.c_car),Cnil); |
(base[0]->c.c_car)= make_cons((base[0]->c.c_car),Cnil); |
7726 |
goto T2293; |
goto T2293; |
7727 |
T2293:; |
T2293:; |
7728 |
base[1]=MMcons(Cnil,base[0]); |
base[1]=MMcons(Cnil,base[0]); |
7729 |
V1036= |
V1085= |
7730 |
make_cclosure_new(LC167,Cnil,base[1],Cdata); |
make_cclosure_new(LC167,Cnil,base[1],Cdata); |
7731 |
(void)((*(LnkLI318))(V1036)); |
(void)((*(LnkLI318))(V1085)); |
7732 |
{object V1037 = (base[1]->c.c_car); |
{object V1086 = (base[1]->c.c_car); |
7733 |
VMR126(V1037)} |
VMR126(V1086)} |
7734 |
base[0]=base[0]; |
base[0]=base[0]; |
7735 |
return Cnil; |
return Cnil; |
7736 |
} |
} |
7741 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7742 |
register object *sup=base+VM127; VC127 |
register object *sup=base+VM127; VC127 |
7743 |
vs_check; |
vs_check; |
7744 |
{object V1038; |
{object V1087; |
7745 |
check_arg(1); |
check_arg(1); |
7746 |
V1038=(base[0]); |
V1087=(base[0]); |
7747 |
vs_top=sup; |
vs_top=sup; |
7748 |
base[1]= (*(LnkLI218))((V1038)); |
base[1]= (*(LnkLI218))((V1087)); |
7749 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7750 |
Ltype_of(); |
Ltype_of(); |
7751 |
vs_top=sup; |
vs_top=sup; |
7752 |
V1040= vs_base[0]; |
V1089= vs_base[0]; |
7753 |
{register object x= V1040,V1039= (base0[1]->c.c_car); |
V1090 = (base0[1]->c.c_car); |
7754 |
while(V1039!=Cnil) |
{register object x= V1089,V1088= V1090; |
7755 |
if(x==(V1039->c.c_car)){ |
while(V1088!=Cnil) |
7756 |
|
if(x==(V1088->c.c_car)){ |
7757 |
goto T2301; |
goto T2301; |
7758 |
}else V1039=V1039->c.c_cdr; |
}else V1088=V1088->c.c_cdr; |
7759 |
goto T2300;} |
goto T2300;} |
7760 |
goto T2301; |
goto T2301; |
7761 |
T2301:; |
T2301:; |
7762 |
(base0[0]->c.c_car)= make_cons(V1038,(base0[0]->c.c_car)); |
(base0[0]->c.c_car)= make_cons(V1087,(base0[0]->c.c_car)); |
7763 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
7764 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7765 |
return; |
return; |
7777 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7778 |
register object *sup=base+VM128; VC128 |
register object *sup=base+VM128; VC128 |
7779 |
vs_check; |
vs_check; |
7780 |
{object V1042; |
{object V1092; |
7781 |
object V1043; |
object V1093; |
7782 |
check_arg(2); |
check_arg(2); |
7783 |
V1042=(base[0]); |
V1092=(base[0]); |
7784 |
V1043=(base[1]); |
V1093=(base[1]); |
7785 |
vs_top=sup; |
vs_top=sup; |
7786 |
base[2]= |
base[2]= |
7787 |
make_cclosure_new(LC168,Cnil,base0[0],Cdata); |
make_cclosure_new(LC168,Cnil,base0[0],Cdata); |
7796 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7797 |
register object *sup=base+VM129; VC129 |
register object *sup=base+VM129; VC129 |
7798 |
vs_check; |
vs_check; |
7799 |
{object V1044; |
{object V1094; |
7800 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
7801 |
{object *p=vs_top; |
{object *p=vs_top; |
7802 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
7803 |
V1044=(base[0]); |
V1094=(base[0]); |
7804 |
vs_top=sup; |
vs_top=sup; |
7805 |
base[1]=VV[250]->s.s_gfdef; |
base[1]=VV[250]->s.s_gfdef; |
7806 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
7807 |
{object V1045; |
{object V1095; |
7808 |
V1045= (V1044); |
V1095= (V1094); |
7809 |
vs_top=base+3; |
vs_top=base+3; |
7810 |
while(V1045!=Cnil) |
while(V1095!=Cnil) |
7811 |
{vs_push((V1045)->c.c_car);V1045=(V1045)->c.c_cdr;} |
{vs_push((V1095)->c.c_car);V1095=(V1095)->c.c_cdr;} |
7812 |
vs_base=base+2;} |
vs_base=base+2;} |
7813 |
(void) (*Lnk250)(Lclptr250); |
(void) (*Lnk250)(Lclptr250); |
7814 |
return; |
return; |
7821 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7822 |
register object *sup=base+VM130; VC130 |
register object *sup=base+VM130; VC130 |
7823 |
vs_check; |
vs_check; |
7824 |
{object V1046; |
{object V1096; |
7825 |
object V1047; |
object V1097; |
7826 |
check_arg(2); |
check_arg(2); |
7827 |
V1046=(base[0]); |
V1096=(base[0]); |
7828 |
V1047=(base[1]); |
V1097=(base[1]); |
7829 |
vs_top=sup; |
vs_top=sup; |
7830 |
base[2]= |
base[2]= |
7831 |
make_cclosure_new(LC169,Cnil,base0[0],Cdata); |
make_cclosure_new(LC169,Cnil,base0[0],Cdata); |
7840 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7841 |
register object *sup=base+VM131; VC131 |
register object *sup=base+VM131; VC131 |
7842 |
vs_check; |
vs_check; |
7843 |
{object V1048; |
{object V1098; |
7844 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
7845 |
{object *p=vs_top; |
{object *p=vs_top; |
7846 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
7847 |
V1048=(base[0]); |
V1098=(base[0]); |
7848 |
vs_top=sup; |
vs_top=sup; |
7849 |
base[1]=VV[250]->s.s_gfdef; |
base[1]=VV[250]->s.s_gfdef; |
7850 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
7851 |
{object V1049; |
{object V1099; |
7852 |
V1049= (V1048); |
V1099= (V1098); |
7853 |
vs_top=base+3; |
vs_top=base+3; |
7854 |
while(V1049!=Cnil) |
while(V1099!=Cnil) |
7855 |
{vs_push((V1049)->c.c_car);V1049=(V1049)->c.c_cdr;} |
{vs_push((V1099)->c.c_car);V1099=(V1099)->c.c_cdr;} |
7856 |
vs_base=base+2;} |
vs_base=base+2;} |
7857 |
(void) (*Lnk250)(Lclptr250); |
(void) (*Lnk250)(Lclptr250); |
7858 |
return; |
return; |
7865 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7866 |
register object *sup=base+VM132; VC132 |
register object *sup=base+VM132; VC132 |
7867 |
vs_check; |
vs_check; |
7868 |
{object V1050; |
{object V1100; |
7869 |
check_arg(1); |
check_arg(1); |
7870 |
V1050=(base[0]); |
V1100=(base[0]); |
7871 |
vs_top=sup; |
vs_top=sup; |
7872 |
goto TTL; |
goto TTL; |
7873 |
TTL:; |
TTL:; |
7874 |
if((base0[2])==Cnil){ |
if((base0[2])==Cnil){ |
7875 |
goto T2313;} |
goto T2313;} |
7876 |
base[1]= (V1050); |
base[1]= (V1100); |
7877 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7878 |
(void) (*Lnk293)(Lclptr293); |
(void) (*Lnk293)(Lclptr293); |
7879 |
vs_top=sup; |
vs_top=sup; |
7880 |
V1052= vs_base[0]; |
V1102= vs_base[0]; |
7881 |
goto T2311; |
goto T2311; |
7882 |
goto T2313; |
goto T2313; |
7883 |
T2313:; |
T2313:; |
7884 |
V1052= (*(LnkLI325))((V1050)); |
V1102= (*(LnkLI325))((V1100)); |
7885 |
goto T2311; |
goto T2311; |
7886 |
T2311:; |
T2311:; |
7887 |
{ |
{ |
7888 |
object V1051= V1052; |
object V1101= V1102; |
7889 |
if(V1051==Cnil){ |
if(V1101==Cnil){ |
7890 |
goto T2309;} |
goto T2309;} |
7891 |
goto T2310; |
goto T2310; |
7892 |
T2310:; |
T2310:; |
7893 |
base[1]= (V1051->c.c_car); |
base[1]= (V1101->c.c_car); |
7894 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7895 |
L123(base0); |
L123(base0); |
7896 |
vs_top=sup; |
vs_top=sup; |
7897 |
if((V1051=MMcdr(V1051))==Cnil){ |
if((V1101=MMcdr(V1101))==Cnil){ |
7898 |
goto T2309;} |
goto T2309;} |
7899 |
goto T2310;} |
goto T2310;} |
7900 |
goto T2309; |
goto T2309; |
7901 |
T2309:; |
T2309:; |
7902 |
base[1]= (V1050); |
base[1]= (V1100); |
7903 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7904 |
{object _funobj = base0[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base0[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
7905 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
7915 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7916 |
register object *sup=base+VM133; VC133 |
register object *sup=base+VM133; VC133 |
7917 |
vs_check; |
vs_check; |
7918 |
{object V1053; |
{object V1103; |
7919 |
object V1054; |
object V1104; |
7920 |
object V1055; |
object V1105; |
7921 |
check_arg(3); |
check_arg(3); |
7922 |
V1053=(base[0]); |
V1103=(base[0]); |
7923 |
V1054=(base[1]); |
V1104=(base[1]); |
7924 |
V1055=(base[2]); |
V1105=(base[2]); |
7925 |
vs_top=sup; |
vs_top=sup; |
7926 |
{object V1056; |
{object V1106; |
7927 |
V1056= Cnil; |
V1106= Cnil; |
7928 |
{object V1057; |
{object V1107; |
7929 |
register object V1058; |
register object V1108; |
7930 |
V1057= (base0[0]->c.c_car); |
V1107= (base0[0]->c.c_car); |
7931 |
V1058= CMPcar((V1057)); |
V1108= CMPcar((V1107)); |
7932 |
goto T2323; |
goto T2323; |
7933 |
T2323:; |
T2323:; |
7934 |
if(!(((V1057))==Cnil)){ |
if(!(((V1107))==Cnil)){ |
7935 |
goto T2324;} |
goto T2324;} |
7936 |
goto T2319; |
goto T2319; |
7937 |
goto T2324; |
goto T2324; |
7938 |
T2324:; |
T2324:; |
7939 |
if(!((CMPcar((V1058)))==((V1053)))){ |
if(!((CMPcar((V1108)))==((V1103)))){ |
7940 |
goto T2330;} |
goto T2330;} |
7941 |
if((CMPcadr((V1058)))==((V1054))){ |
if((CMPcadr((V1108)))==((V1104))){ |
7942 |
goto T2329;} |
goto T2329;} |
7943 |
goto T2330; |
goto T2330; |
7944 |
T2330:; |
T2330:; |
7945 |
if(!((CMPcar((V1058)))==((V1054)))){ |
if(!((CMPcar((V1108)))==((V1104)))){ |
7946 |
goto T2328;} |
goto T2328;} |
7947 |
if(!((CMPcadr((V1058)))==((V1053)))){ |
if(!((CMPcadr((V1108)))==((V1103)))){ |
7948 |
goto T2328;} |
goto T2328;} |
7949 |
goto T2329; |
goto T2329; |
7950 |
T2329:; |
T2329:; |
7951 |
V1056= (V1058); |
V1106= (V1108); |
7952 |
goto T2319; |
goto T2319; |
7953 |
goto T2328; |
goto T2328; |
7954 |
T2328:; |
T2328:; |
7955 |
V1057= CMPcdr((V1057)); |
V1107= CMPcdr((V1107)); |
7956 |
V1058= CMPcar((V1057)); |
V1108= CMPcar((V1107)); |
7957 |
goto T2323;} |
goto T2323;} |
7958 |
goto T2319; |
goto T2319; |
7959 |
T2319:; |
T2319:; |
7960 |
if(((V1056))!=Cnil){ |
if(((V1106))!=Cnil){ |
7961 |
goto T2343;} |
goto T2343;} |
7962 |
if(((*(LnkLI326))((V1053),(V1054)))==Cnil){ |
if(((*(LnkLI326))((V1103),(V1104)))==Cnil){ |
7963 |
goto T2349;} |
goto T2349;} |
7964 |
if(((*(LnkLI326))((V1054),(V1053)))==Cnil){ |
if(((*(LnkLI326))((V1104),(V1103)))==Cnil){ |
7965 |
goto T2352;} |
goto T2352;} |
7966 |
V1056= list(4,(V1053),(V1054),Cnil,Ct); |
V1106= list(4,(V1103),(V1104),Cnil,Ct); |
7967 |
goto T2347; |
goto T2347; |
7968 |
goto T2352; |
goto T2352; |
7969 |
T2352:; |
T2352:; |
7970 |
V1056= list(3,(V1053),(V1054),Ct); |
V1106= list(3,(V1103),(V1104),Ct); |
7971 |
goto T2347; |
goto T2347; |
7972 |
goto T2349; |
goto T2349; |
7973 |
T2349:; |
T2349:; |
7974 |
if(((*(LnkLI326))((V1054),(V1053)))==Cnil){ |
if(((*(LnkLI326))((V1104),(V1103)))==Cnil){ |
7975 |
goto T2355;} |
goto T2355;} |
7976 |
V1056= list(3,(V1054),(V1053),Ct); |
V1106= list(3,(V1104),(V1103),Ct); |
7977 |
goto T2347; |
goto T2347; |
7978 |
goto T2355; |
goto T2355; |
7979 |
T2355:; |
T2355:; |
7980 |
{object V1059; |
{object V1109; |
7981 |
object V1060; |
object V1110; |
7982 |
base[3]= (V1053); |
base[3]= (V1103); |
7983 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7984 |
(void) (*Lnk327)(Lclptr327); |
(void) (*Lnk327)(Lclptr327); |
7985 |
vs_top=sup; |
vs_top=sup; |
7986 |
V1059= vs_base[0]; |
V1109= vs_base[0]; |
7987 |
base[3]= (V1054); |
base[3]= (V1104); |
7988 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7989 |
(void) (*Lnk327)(Lclptr327); |
(void) (*Lnk327)(Lclptr327); |
7990 |
vs_top=sup; |
vs_top=sup; |
7991 |
V1060= vs_base[0]; |
V1110= vs_base[0]; |
7992 |
if(((V1059))==Cnil){ |
if(((V1109))==Cnil){ |
7993 |
goto T2362;} |
goto T2362;} |
7994 |
if(((V1060))==Cnil){ |
if(((V1110))==Cnil){ |
7995 |
goto T2362;} |
goto T2362;} |
7996 |
if(!(type_of((V1059))==t_symbol)){ |
if(!(type_of((V1109))==t_symbol)){ |
7997 |
goto T2362;} |
goto T2362;} |
7998 |
if(!(type_of((V1060))==t_symbol)){ |
if(!(type_of((V1110))==t_symbol)){ |
7999 |
goto T2362;} |
goto T2362;} |
8000 |
base[3]= symbol_name((V1059)); |
base[3]= symbol_name((V1109)); |
8001 |
base[4]= symbol_name((V1060)); |
base[4]= symbol_name((V1110)); |
8002 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
8003 |
Lstring_l(); |
Lstring_l(); |
8004 |
vs_top=sup; |
vs_top=sup; |
8005 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8006 |
goto T2362;} |
goto T2362;} |
8007 |
V1056= list(3,(V1053),(V1054),Ct); |
V1106= list(3,(V1103),(V1104),Ct); |
8008 |
goto T2347; |
goto T2347; |
8009 |
goto T2362; |
goto T2362; |
8010 |
T2362:; |
T2362:; |
8011 |
V1056= list(3,(V1054),(V1053),Ct);} |
V1106= list(3,(V1104),(V1103),Ct);} |
8012 |
goto T2347; |
goto T2347; |
8013 |
T2347:; |
T2347:; |
8014 |
(base0[0]->c.c_car)= make_cons(V1056,(base0[0]->c.c_car)); |
(base0[0]->c.c_car)= make_cons(V1106,(base0[0]->c.c_car)); |
8015 |
goto T2343; |
goto T2343; |
8016 |
T2343:; |
T2343:; |
8017 |
base[3]= CMPcar((V1056)); |
base[3]= CMPcar((V1106)); |
8018 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8019 |
return;} |
return;} |
8020 |
} |
} |
8026 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8027 |
register object *sup=base+VM134; VC134 |
register object *sup=base+VM134; VC134 |
8028 |
vs_check; |
vs_check; |
8029 |
{register object V1062; |
{register object V1112; |
8030 |
register object V1063; |
register object V1113; |
8031 |
check_arg(2); |
check_arg(2); |
8032 |
V1062=(base[0]); |
V1112=(base[0]); |
8033 |
V1063=(base[1]); |
V1113=(base[1]); |
8034 |
vs_top=sup; |
vs_top=sup; |
8035 |
{register object V1064; |
{register object V1114; |
8036 |
register object V1065; |
register object V1115; |
8037 |
V1064= (base0[0]->c.c_car); |
V1114= (base0[0]->c.c_car); |
8038 |
V1065= CMPcar((V1064)); |
V1115= CMPcar((V1114)); |
8039 |
goto T2378; |
goto T2378; |
8040 |
T2378:; |
T2378:; |
8041 |
if(!(((V1064))==Cnil)){ |
if(!(((V1114))==Cnil)){ |
8042 |
goto T2379;} |
goto T2379;} |
8043 |
base[3]= Cnil; |
base[3]= Cnil; |
8044 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8045 |
return; |
return; |
8046 |
goto T2379; |
goto T2379; |
8047 |
T2379:; |
T2379:; |
8048 |
{register object V1066; |
{register object V1116; |
8049 |
object V1067; |
object V1117; |
8050 |
register object V1068; |
register object V1118; |
8051 |
if(!(type_of((V1062))==t_cons||((V1062))==Cnil)){ |
V1119 = (V1115); |
8052 |
|
if(!(type_of((V1112))==t_cons||((V1112))==Cnil)){ |
8053 |
goto T2387;} |
goto T2387;} |
8054 |
V1069= (VFUN_NARGS=2,(*(LnkLI275))((V1062),Ct)); |
V1120= (VFUN_NARGS=2,(*(LnkLI275))((V1112),Ct)); |
8055 |
goto T2385; |
goto T2385; |
8056 |
goto T2387; |
goto T2387; |
8057 |
T2387:; |
T2387:; |
8058 |
base[6]= (V1062); |
base[6]= (V1112); |
8059 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
8060 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk242)(Lclptr242); |
8061 |
vs_top=sup; |
vs_top=sup; |
8062 |
V1069= vs_base[0]; |
V1120= vs_base[0]; |
8063 |
goto T2385; |
goto T2385; |
8064 |
T2385:; |
T2385:; |
8065 |
V1066= nth(fix((V1065)),V1069); |
V1116= nth(fix(V1119),V1120); |
8066 |
if(!(type_of((V1063))==t_cons||((V1063))==Cnil)){ |
V1121 = (V1115); |
8067 |
|
if(!(type_of((V1113))==t_cons||((V1113))==Cnil)){ |
8068 |
goto T2393;} |
goto T2393;} |
8069 |
V1070= (VFUN_NARGS=2,(*(LnkLI275))((V1063),Ct)); |
V1122= (VFUN_NARGS=2,(*(LnkLI275))((V1113),Ct)); |
8070 |
goto T2391; |
goto T2391; |
8071 |
goto T2393; |
goto T2393; |
8072 |
T2393:; |
T2393:; |
8073 |
base[6]= (V1063); |
base[6]= (V1113); |
8074 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
8075 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk242)(Lclptr242); |
8076 |
vs_top=sup; |
vs_top=sup; |
8077 |
V1070= vs_base[0]; |
V1122= vs_base[0]; |
8078 |
goto T2391; |
goto T2391; |
8079 |
T2391:; |
T2391:; |
8080 |
V1067= nth(fix((V1065)),V1070); |
V1117= nth(fix(V1121),V1122); |
8081 |
base[6]= (V1066); |
base[6]= (V1116); |
8082 |
base[7]= (V1067); |
base[7]= (V1117); |
8083 |
base[8]= (V1065); |
base[8]= (V1115); |
8084 |
base[9]= (base0[1]->c.c_car); |
base[9]= (base0[1]->c.c_car); |
8085 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
8086 |
(void) (*Lnk328)(); |
(void) (*Lnk328)(); |
8087 |
vs_top=sup; |
vs_top=sup; |
8088 |
V1068= vs_base[0]; |
V1118= vs_base[0]; |
8089 |
if(((V1068))==Cnil){ |
if(((V1118))==Cnil){ |
8090 |
goto T2383;} |
goto T2383;} |
8091 |
base[6]= (((V1068))==((V1066))?Ct:Cnil); |
base[6]= (((V1118))==((V1116))?Ct:Cnil); |
8092 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
8093 |
return;} |
return;} |
8094 |
goto T2383; |
goto T2383; |
8095 |
T2383:; |
T2383:; |
8096 |
V1064= CMPcdr((V1064)); |
V1114= CMPcdr((V1114)); |
8097 |
V1065= CMPcar((V1064)); |
V1115= CMPcar((V1114)); |
8098 |
goto T2378;} |
goto T2378;} |
8099 |
} |
} |
8100 |
} |
} |
8105 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8106 |
register object *sup=base+VM135; VC135 |
register object *sup=base+VM135; VC135 |
8107 |
vs_check; |
vs_check; |
8108 |
{object V1071; |
{object V1123; |
8109 |
object V1072; |
object V1124; |
8110 |
object V1073; |
object V1125; |
8111 |
check_arg(3); |
check_arg(3); |
8112 |
V1071=(base[0]); |
V1123=(base[0]); |
8113 |
V1072=(base[1]); |
V1124=(base[1]); |
8114 |
V1073=(base[2]); |
V1125=(base[2]); |
8115 |
vs_top=sup; |
vs_top=sup; |
8116 |
{object V1074; |
{object V1126; |
8117 |
object V1075; |
object V1127; |
8118 |
V1074= (*(LnkLI289))(nth(fix((V1073)),(base0[0]->c.c_car))); |
V1126= (*(LnkLI289))(nth(fix((V1125)),(base0[0]->c.c_car))); |
8119 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
8120 |
goto T2411;} |
goto T2411;} |
8121 |
base[5]= (V1074); |
base[5]= (V1126); |
8122 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
8123 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
8124 |
vs_top=sup; |
vs_top=sup; |
8125 |
V1075= vs_base[0]; |
V1127= vs_base[0]; |
8126 |
goto T2409; |
goto T2409; |
8127 |
goto T2411; |
goto T2411; |
8128 |
T2411:; |
T2411:; |
8129 |
V1075= (*(LnkLI263))((V1074)); |
V1127= (*(LnkLI263))((V1126)); |
8130 |
goto T2409; |
goto T2409; |
8131 |
T2409:; |
T2409:; |
8132 |
{register object x= (V1071),V1078= (V1075); |
V1129 = (V1124); |
8133 |
while(V1078!=Cnil) |
{register object x= (V1123),V1131= (V1127); |
8134 |
if(x==(V1078->c.c_car)){ |
while(V1131!=Cnil) |
8135 |
V1077= V1078; |
if(x==(V1131->c.c_car)){ |
8136 |
|
V1130= V1131; |
8137 |
goto T2417; |
goto T2417; |
8138 |
}else V1078=V1078->c.c_cdr; |
}else V1131=V1131->c.c_cdr; |
8139 |
V1077= Cnil;} |
V1130= Cnil;} |
8140 |
goto T2417; |
goto T2417; |
8141 |
T2417:; |
T2417:; |
8142 |
{register object x= (V1072),V1076= V1077; |
{register object x= V1129,V1128= V1130; |
8143 |
while(V1076!=Cnil) |
while(V1128!=Cnil) |
8144 |
if(x==(V1076->c.c_car)){ |
if(x==(V1128->c.c_car)){ |
8145 |
goto T2416; |
goto T2416; |
8146 |
}else V1076=V1076->c.c_cdr; |
}else V1128=V1128->c.c_cdr; |
8147 |
goto T2415;} |
goto T2415;} |
8148 |
goto T2416; |
goto T2416; |
8149 |
T2416:; |
T2416:; |
8150 |
base[5]= (V1071); |
base[5]= (V1123); |
8151 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
8152 |
return; |
return; |
8153 |
goto T2415; |
goto T2415; |
8154 |
T2415:; |
T2415:; |
8155 |
base[5]= (V1072); |
base[5]= (V1124); |
8156 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
8157 |
return;} |
return;} |
8158 |
} |
} |
8164 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8165 |
register object *sup=base+VM136; VC136 |
register object *sup=base+VM136; VC136 |
8166 |
vs_check; |
vs_check; |
8167 |
{object V1079; |
{object V1132; |
8168 |
object V1080; |
object V1133; |
8169 |
check_arg(2); |
check_arg(2); |
8170 |
V1079=(base[0]); |
V1132=(base[0]); |
8171 |
V1080=(base[1]); |
V1133=(base[1]); |
8172 |
vs_top=sup; |
vs_top=sup; |
8173 |
{register object V1081; |
{register object V1134; |
8174 |
object V1082; |
object V1135; |
8175 |
if(((base0[3]->c.c_car))==Cnil){ |
if(((base0[3]->c.c_car))==Cnil){ |
8176 |
goto T2420;} |
goto T2420;} |
8177 |
V1081= (*(LnkLI263))((V1079)); |
V1134= (*(LnkLI263))((V1132)); |
8178 |
goto T2418; |
goto T2418; |
8179 |
goto T2420; |
goto T2420; |
8180 |
T2420:; |
T2420:; |
8181 |
base[4]= (V1079); |
base[4]= (V1132); |
8182 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8183 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
8184 |
vs_top=sup; |
vs_top=sup; |
8185 |
V1081= vs_base[0]; |
V1134= vs_base[0]; |
8186 |
goto T2418; |
goto T2418; |
8187 |
T2418:; |
T2418:; |
8188 |
V1082= CMPcar((V1081)); |
V1135= CMPcar((V1134)); |
8189 |
goto T2425; |
goto T2425; |
8190 |
T2425:; |
T2425:; |
8191 |
if(!(((V1081))==Cnil)){ |
if(!(((V1134))==Cnil)){ |
8192 |
goto T2426;} |
goto T2426;} |
8193 |
base[4]= VV[137]; |
base[4]= VV[137]; |
8194 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8196 |
return; |
return; |
8197 |
goto T2426; |
goto T2426; |
8198 |
T2426:; |
T2426:; |
8199 |
{object V1083; |
{object V1136; |
8200 |
{register object x= (V1082),V1084= (V1080); |
{register object x= (V1135),V1137= (V1133); |
8201 |
while(V1084!=Cnil) |
while(V1137!=Cnil) |
8202 |
if(EQ(x,V1084->c.c_car->c.c_car) &&V1084->c.c_car != Cnil){ |
if(EQ(x,V1137->c.c_car->c.c_car) &&V1137->c.c_car != Cnil){ |
8203 |
V1083= (V1084->c.c_car); |
V1136= (V1137->c.c_car); |
8204 |
goto T2432; |
goto T2432; |
8205 |
}else V1084=V1084->c.c_cdr; |
}else V1137=V1137->c.c_cdr; |
8206 |
V1083= Cnil;} |
V1136= Cnil;} |
8207 |
goto T2432; |
goto T2432; |
8208 |
T2432:; |
T2432:; |
8209 |
if(((V1083))==Cnil){ |
if(((V1136))==Cnil){ |
8210 |
goto T2431;} |
goto T2431;} |
8211 |
{object V1085; |
{object V1138; |
8212 |
register object V1086; |
register object V1139; |
8213 |
V1085= CMPcdr((V1083)); |
V1138= CMPcdr((V1136)); |
8214 |
if(((base0[3]->c.c_car))==Cnil){ |
if(((base0[3]->c.c_car))==Cnil){ |
8215 |
goto T2438;} |
goto T2438;} |
8216 |
V1086= (*(LnkLI273))((V1085)); |
V1139= (*(LnkLI273))((V1138)); |
8217 |
goto T2436; |
goto T2436; |
8218 |
goto T2438; |
goto T2438; |
8219 |
T2438:; |
T2438:; |
8220 |
base[6]= (V1085); |
base[6]= (V1138); |
8221 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
8222 |
(void) (*Lnk274)(Lclptr274); |
(void) (*Lnk274)(Lclptr274); |
8223 |
vs_top=sup; |
vs_top=sup; |
8224 |
V1086= vs_base[0]; |
V1139= vs_base[0]; |
8225 |
goto T2436; |
goto T2436; |
8226 |
T2436:; |
T2436:; |
8227 |
if(((V1086))!=Cnil){ |
if(((V1139))!=Cnil){ |
8228 |
goto T2441;} |
goto T2441;} |
8229 |
{frame_ptr fr; |
{frame_ptr fr; |
8230 |
fr=frs_sch((base0[6]->c.c_car)); |
fr=frs_sch((base0[6]->c.c_car)); |
8234 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
8235 |
goto T2441; |
goto T2441; |
8236 |
T2441:; |
T2441:; |
8237 |
{object V1088; |
{object V1141; |
8238 |
V1088= (base0[7]->c.c_car); |
V1141= (base0[7]->c.c_car); |
8239 |
base[6]= V1079; |
base[6]= V1132; |
8240 |
base[7]= (V1088); |
base[7]= (V1141); |
8241 |
base[8]= V1086; |
base[8]= V1139; |
8242 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
8243 |
siLhash_set(); |
siLhash_set(); |
8244 |
vs_top=sup;} |
vs_top=sup;} |
8245 |
if(!(type_of((V1086))==t_cons)){ |
if(!(type_of((V1139))==t_cons)){ |
8246 |
goto T2450;} |
goto T2450;} |
8247 |
(base0[4]->c.c_car)= Cnil; |
(base0[4]->c.c_car)= Cnil; |
8248 |
goto T2450; |
goto T2450; |
8249 |
T2450:; |
T2450:; |
8250 |
if(((base0[5]->c.c_car))==Cnil){ |
if(((base0[5]->c.c_car))==Cnil){ |
8251 |
goto T2456;} |
goto T2456;} |
8252 |
if(!(eql((base0[5]->c.c_car),(V1086)))){ |
if(!(eql((base0[5]->c.c_car),(V1139)))){ |
8253 |
goto T2457;} |
goto T2457;} |
8254 |
goto T2456; |
goto T2456; |
8255 |
T2456:; |
T2456:; |
8256 |
(base0[5]->c.c_car)= (V1086); |
(base0[5]->c.c_car)= (V1139); |
8257 |
goto T2455; |
goto T2455; |
8258 |
goto T2457; |
goto T2457; |
8259 |
T2457:; |
T2457:; |
8263 |
(base0[0]->c.c_car)= CMPmake_fixnum((long)(fix((base0[0]->c.c_car)))+(1)); |
(base0[0]->c.c_car)= CMPmake_fixnum((long)(fix((base0[0]->c.c_car)))+(1)); |
8264 |
if(!((fix((base0[0]->c.c_car)))==(1))){ |
if(!((fix((base0[0]->c.c_car)))==(1))){ |
8265 |
goto T2465;} |
goto T2465;} |
8266 |
(base0[2]->c.c_car)= (V1079); |
(base0[2]->c.c_car)= (V1132); |
8267 |
goto T2463; |
goto T2463; |
8268 |
goto T2465; |
goto T2465; |
8269 |
T2465:; |
T2465:; |
8270 |
if(!((fix((base0[0]->c.c_car)))==(2))){ |
if(!((fix((base0[0]->c.c_car)))==(2))){ |
8271 |
goto T2463;} |
goto T2463;} |
8272 |
(base0[1]->c.c_car)= (V1079); |
(base0[1]->c.c_car)= (V1132); |
8273 |
goto T2463; |
goto T2463; |
8274 |
T2463:; |
T2463:; |
8275 |
base[6]= Cnil; |
base[6]= Cnil; |
8277 |
return;}} |
return;}} |
8278 |
goto T2431; |
goto T2431; |
8279 |
T2431:; |
T2431:; |
8280 |
V1081= CMPcdr((V1081)); |
V1134= CMPcdr((V1134)); |
8281 |
V1082= CMPcar((V1081)); |
V1135= CMPcar((V1134)); |
8282 |
goto T2425;} |
goto T2425;} |
8283 |
} |
} |
8284 |
} |
} |
8289 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8290 |
register object *sup=base+VM137; VC137 |
register object *sup=base+VM137; VC137 |
8291 |
vs_check; |
vs_check; |
8292 |
{register object V1090; |
{register object V1143; |
8293 |
object V1091; |
object V1144; |
8294 |
check_arg(2); |
check_arg(2); |
8295 |
V1090=(base[0]); |
V1143=(base[0]); |
8296 |
V1091=(base[1]); |
V1144=(base[1]); |
8297 |
vs_top=sup; |
vs_top=sup; |
8298 |
{object V1092; |
{object V1145; |
8299 |
if(((base0[5]->c.c_car))==Cnil){ |
if(((base0[5]->c.c_car))==Cnil){ |
8300 |
goto T2478;} |
goto T2478;} |
8301 |
V1092= (*(LnkLI263))((V1090)); |
V1145= (*(LnkLI263))((V1143)); |
8302 |
goto T2476; |
goto T2476; |
8303 |
goto T2478; |
goto T2478; |
8304 |
T2478:; |
T2478:; |
8305 |
base[2]= (V1090); |
base[2]= (V1143); |
8306 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8307 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
8308 |
vs_top=sup; |
vs_top=sup; |
8309 |
V1092= vs_base[0]; |
V1145= vs_base[0]; |
8310 |
goto T2476; |
goto T2476; |
8311 |
T2476:; |
T2476:; |
8312 |
{register object x= (base0[1]->c.c_car),V1093= (V1092); |
{register object x= (base0[1]->c.c_car),V1146= (V1145); |
8313 |
while(V1093!=Cnil) |
while(V1146!=Cnil) |
8314 |
if(x==(V1093->c.c_car)){ |
if(x==(V1146->c.c_car)){ |
8315 |
goto T2483; |
goto T2483; |
8316 |
}else V1093=V1093->c.c_cdr; |
}else V1146=V1146->c.c_cdr; |
8317 |
goto T2482;} |
goto T2482;} |
8318 |
goto T2483; |
goto T2483; |
8319 |
T2483:; |
T2483:; |
8320 |
if(((base0[0]->c.c_car))!=Cnil){ |
if(((base0[0]->c.c_car))!=Cnil){ |
8321 |
goto T2486;} |
goto T2486;} |
8322 |
{register object x= (VV[132]->s.s_dbind),V1094= (V1092); |
{register object x= (VV[132]->s.s_dbind),V1147= (V1145); |
8323 |
while(V1094!=Cnil) |
while(V1147!=Cnil) |
8324 |
if(eql(x,V1094->c.c_car)){ |
if(eql(x,V1147->c.c_car)){ |
8325 |
goto T2489; |
goto T2489; |
8326 |
}else V1094=V1094->c.c_cdr; |
}else V1147=V1147->c.c_cdr; |
8327 |
goto T2485;} |
goto T2485;} |
8328 |
goto T2489; |
goto T2489; |
8329 |
T2489:; |
T2489:; |
8331 |
T2486:; |
T2486:; |
8332 |
if(((base0[5]->c.c_car))!=Cnil){ |
if(((base0[5]->c.c_car))!=Cnil){ |
8333 |
goto T2484;} |
goto T2484;} |
8334 |
base[2]= (V1091); |
base[2]= (V1144); |
8335 |
base[3]= (base0[10]->c.c_car); |
base[3]= (base0[10]->c.c_car); |
8336 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8337 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk272)(Lclptr272); |
8348 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
8349 |
goto T2484; |
goto T2484; |
8350 |
T2484:; |
T2484:; |
8351 |
{object V1095; |
{object V1148; |
8352 |
object V1097; |
object V1150; |
8353 |
object V1098; |
object V1151; |
8354 |
V1095= make_cons((base0[1]->c.c_car),(V1091)); |
V1148= make_cons((base0[1]->c.c_car),(V1144)); |
8355 |
V1097= (base0[9]->c.c_car); |
V1150= (base0[9]->c.c_car); |
8356 |
base[4]= V1090; |
V1152 = (V1148); |
8357 |
base[5]= (V1097); |
base[4]= V1143; |
8358 |
|
base[5]= (V1150); |
8359 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
8360 |
Lgethash(); |
Lgethash(); |
8361 |
vs_top=sup; |
vs_top=sup; |
8362 |
V1099= vs_base[0]; |
V1153= vs_base[0]; |
8363 |
V1098= make_cons((V1095),V1099); |
V1151= make_cons(V1152,V1153); |
8364 |
base[4]= V1090; |
base[4]= V1143; |
8365 |
base[5]= (V1097); |
base[5]= (V1150); |
8366 |
base[6]= (V1098); |
base[6]= (V1151); |
8367 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
8368 |
siLhash_set(); |
siLhash_set(); |
8369 |
return;} |
return;} |
8381 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8382 |
register object *sup=base+VM138; VC138 |
register object *sup=base+VM138; VC138 |
8383 |
vs_check; |
vs_check; |
8384 |
{object V1100; |
{object V1154; |
8385 |
check_arg(1); |
check_arg(1); |
8386 |
V1100=(base[0]); |
V1154=(base[0]); |
8387 |
vs_top=sup; |
vs_top=sup; |
8388 |
base[1]= (base0[2]->c.c_car); |
base[1]= (base0[2]->c.c_car); |
8389 |
base[2]= (V1100); |
base[2]= (V1154); |
8390 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8391 |
cclosure_call((base0[1]->c.c_car)); |
cclosure_call((base0[1]->c.c_car)); |
8392 |
return; |
return; |
8399 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8400 |
register object *sup=base+VM139; VC139 |
register object *sup=base+VM139; VC139 |
8401 |
vs_check; |
vs_check; |
8402 |
{object V1101; |
{object V1155; |
8403 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_top-vs_base>1) too_many_arguments(); |
8404 |
if(vs_base>=vs_top){vs_top=sup;goto T2507;} |
if(vs_base>=vs_top){vs_top=sup;goto T2507;} |
8405 |
V1101=(base[0]); |
V1155=(base[0]); |
8406 |
vs_top=sup; |
vs_top=sup; |
8407 |
goto T2508; |
goto T2508; |
8408 |
goto T2507; |
goto T2507; |
8409 |
T2507:; |
T2507:; |
8410 |
V1101= Cnil; |
V1155= Cnil; |
8411 |
goto T2508; |
goto T2508; |
8412 |
T2508:; |
T2508:; |
8413 |
if(!(type_of((base0[1]->c.c_car))==t_cons)){ |
if(!(type_of((base0[1]->c.c_car))==t_cons)){ |
8414 |
goto T2511;} |
goto T2511;} |
8415 |
{object V1102; |
{object V1156; |
8416 |
object V1103; |
object V1157; |
8417 |
object V1104; |
object V1158; |
8418 |
base[1]= (base0[4]->c.c_car); |
base[1]= (base0[4]->c.c_car); |
8419 |
base[2]= (base0[3]->c.c_car); |
base[2]= (base0[3]->c.c_car); |
8420 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8421 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
8422 |
if(vs_base>=vs_top){vs_top=sup;goto T2516;} |
if(vs_base>=vs_top){vs_top=sup;goto T2516;} |
8423 |
V1102= vs_base[0]; |
V1156= vs_base[0]; |
8424 |
vs_base++; |
vs_base++; |
8425 |
if(vs_base>=vs_top){vs_top=sup;goto T2517;} |
if(vs_base>=vs_top){vs_top=sup;goto T2517;} |
8426 |
V1103= vs_base[0]; |
V1157= vs_base[0]; |
8427 |
vs_base++; |
vs_base++; |
8428 |
if(vs_base>=vs_top){vs_top=sup;goto T2518;} |
if(vs_base>=vs_top){vs_top=sup;goto T2518;} |
8429 |
V1104= vs_base[0]; |
V1158= vs_base[0]; |
8430 |
vs_top=sup; |
vs_top=sup; |
8431 |
goto T2519; |
goto T2519; |
8432 |
goto T2516; |
goto T2516; |
8433 |
T2516:; |
T2516:; |
8434 |
V1102= Cnil; |
V1156= Cnil; |
8435 |
goto T2517; |
goto T2517; |
8436 |
T2517:; |
T2517:; |
8437 |
V1103= Cnil; |
V1157= Cnil; |
8438 |
goto T2518; |
goto T2518; |
8439 |
T2518:; |
T2518:; |
8440 |
V1104= Cnil; |
V1158= Cnil; |
8441 |
goto T2519; |
goto T2519; |
8442 |
T2519:; |
T2519:; |
8443 |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1102),(V1103),(V1104))); |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1156),(V1157),(V1158))); |
8444 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8445 |
return;} |
return;} |
8446 |
goto T2511; |
goto T2511; |
8447 |
T2511:; |
T2511:; |
8448 |
{object V1105; |
{object V1159; |
8449 |
object V1106; |
object V1160; |
8450 |
object V1107; |
object V1161; |
8451 |
base[1]= (base0[4]->c.c_car); |
base[1]= (base0[4]->c.c_car); |
8452 |
base[2]= (base0[2]->c.c_car); |
base[2]= (base0[2]->c.c_car); |
8453 |
base[3]= (V1101); |
base[3]= (V1155); |
8454 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
8455 |
(void) (*Lnk182)(); |
(void) (*Lnk182)(); |
8456 |
if(vs_base>=vs_top){vs_top=sup;goto T2524;} |
if(vs_base>=vs_top){vs_top=sup;goto T2524;} |
8457 |
V1105= vs_base[0]; |
V1159= vs_base[0]; |
8458 |
vs_base++; |
vs_base++; |
8459 |
if(vs_base>=vs_top){vs_top=sup;goto T2525;} |
if(vs_base>=vs_top){vs_top=sup;goto T2525;} |
8460 |
V1106= vs_base[0]; |
V1160= vs_base[0]; |
8461 |
vs_base++; |
vs_base++; |
8462 |
if(vs_base>=vs_top){vs_top=sup;goto T2526;} |
if(vs_base>=vs_top){vs_top=sup;goto T2526;} |
8463 |
V1107= vs_base[0]; |
V1161= vs_base[0]; |
8464 |
vs_top=sup; |
vs_top=sup; |
8465 |
goto T2527; |
goto T2527; |
8466 |
goto T2524; |
goto T2524; |
8467 |
T2524:; |
T2524:; |
8468 |
V1105= Cnil; |
V1159= Cnil; |
8469 |
goto T2525; |
goto T2525; |
8470 |
T2525:; |
T2525:; |
8471 |
V1106= Cnil; |
V1160= Cnil; |
8472 |
goto T2526; |
goto T2526; |
8473 |
T2526:; |
T2526:; |
8474 |
V1107= Cnil; |
V1161= Cnil; |
8475 |
goto T2527; |
goto T2527; |
8476 |
T2527:; |
T2527:; |
8477 |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1105),(V1106),(V1107))); |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1159),(V1160),(V1161))); |
8478 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8479 |
return;} |
return;} |
8480 |
} |
} |
8486 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8487 |
register object *sup=base+VM140; VC140 |
register object *sup=base+VM140; VC140 |
8488 |
vs_check; |
vs_check; |
8489 |
{object V1108; |
{object V1162; |
8490 |
object V1109; |
object V1163; |
8491 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
8492 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
8493 |
V1108=(base[0]); |
V1162=(base[0]); |
8494 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
8495 |
if(vs_base>=vs_top){vs_top=sup;goto T2528;} |
if(vs_base>=vs_top){vs_top=sup;goto T2528;} |
8496 |
V1109=(base[1]); |
V1163=(base[1]); |
8497 |
vs_top=sup; |
vs_top=sup; |
8498 |
goto T2529; |
goto T2529; |
8499 |
goto T2528; |
goto T2528; |
8500 |
T2528:; |
T2528:; |
8501 |
V1109= Cnil; |
V1163= Cnil; |
8502 |
goto T2529; |
goto T2529; |
8503 |
T2529:; |
T2529:; |
8504 |
{object V1110; |
{object V1164; |
8505 |
object V1111; |
object V1165; |
8506 |
object V1112; |
object V1166; |
8507 |
base[2]= (base0[3]->c.c_car); |
base[2]= (base0[3]->c.c_car); |
8508 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
8509 |
base[4]= (V1108); |
base[4]= (V1162); |
8510 |
base[5]= (V1109); |
base[5]= (V1163); |
8511 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
8512 |
(void) (*Lnk178)(); |
(void) (*Lnk178)(); |
8513 |
if(vs_base>=vs_top){vs_top=sup;goto T2536;} |
if(vs_base>=vs_top){vs_top=sup;goto T2536;} |
8514 |
V1110= vs_base[0]; |
V1164= vs_base[0]; |
8515 |
vs_base++; |
vs_base++; |
8516 |
if(vs_base>=vs_top){vs_top=sup;goto T2537;} |
if(vs_base>=vs_top){vs_top=sup;goto T2537;} |
8517 |
V1111= vs_base[0]; |
V1165= vs_base[0]; |
8518 |
vs_base++; |
vs_base++; |
8519 |
if(vs_base>=vs_top){vs_top=sup;goto T2538;} |
if(vs_base>=vs_top){vs_top=sup;goto T2538;} |
8520 |
V1112= vs_base[0]; |
V1166= vs_base[0]; |
8521 |
vs_top=sup; |
vs_top=sup; |
8522 |
goto T2539; |
goto T2539; |
8523 |
goto T2536; |
goto T2536; |
8524 |
T2536:; |
T2536:; |
8525 |
V1110= Cnil; |
V1164= Cnil; |
8526 |
goto T2537; |
goto T2537; |
8527 |
T2537:; |
T2537:; |
8528 |
V1111= Cnil; |
V1165= Cnil; |
8529 |
goto T2538; |
goto T2538; |
8530 |
T2538:; |
T2538:; |
8531 |
V1112= Cnil; |
V1166= Cnil; |
8532 |
goto T2539; |
goto T2539; |
8533 |
T2539:; |
T2539:; |
8534 |
base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[3]->c.c_car),(V1110),(V1111),(V1112))); |
base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[3]->c.c_car),(V1164),(V1165),(V1166))); |
8535 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8536 |
return;} |
return;} |
8537 |
} |
} |
8543 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8544 |
register object *sup=base+VM141; VC141 |
register object *sup=base+VM141; VC141 |
8545 |
vs_check; |
vs_check; |
8546 |
{object V1113; |
{object V1167; |
8547 |
check_arg(1); |
check_arg(1); |
8548 |
V1113=(base[0]); |
V1167=(base[0]); |
8549 |
vs_top=sup; |
vs_top=sup; |
8550 |
goto TTL; |
goto TTL; |
8551 |
TTL:; |
TTL:; |
8552 |
{object V1114; |
{object V1168; |
8553 |
V1114= (VFUN_NARGS=3,(*(LnkLI247))(base0[6],base0[9],(base0[11]->c.c_car))); |
V1168= (VFUN_NARGS=3,(*(LnkLI247))(base0[6],base0[9],(base0[11]->c.c_car))); |
8554 |
if(((V1114))==(base0[6])){ |
if(((V1168))==(base0[6])){ |
8555 |
goto T2542;} |
goto T2542;} |
8556 |
base[1]= (V1114); |
base[1]= (V1168); |
8557 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8558 |
{object _funobj = (V1113);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V1167);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
8559 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
8560 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
8561 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
8578 |
vs_top=sup; |
vs_top=sup; |
8579 |
goto TTL; |
goto TTL; |
8580 |
TTL:; |
TTL:; |
8581 |
{object V1115; |
{object V1169; |
8582 |
object V1116; |
object V1170; |
8583 |
object V1117; |
object V1171; |
8584 |
base[0]= (base0[0]->c.c_car); |
base[0]= (base0[0]->c.c_car); |
8585 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
8586 |
(void) (*Lnk184)(); |
(void) (*Lnk184)(); |
8587 |
if(vs_base>=vs_top){vs_top=sup;goto T2547;} |
if(vs_base>=vs_top){vs_top=sup;goto T2547;} |
8588 |
V1115= vs_base[0]; |
V1169= vs_base[0]; |
8589 |
vs_base++; |
vs_base++; |
8590 |
if(vs_base>=vs_top){vs_top=sup;goto T2548;} |
if(vs_base>=vs_top){vs_top=sup;goto T2548;} |
8591 |
V1116= vs_base[0]; |
V1170= vs_base[0]; |
8592 |
vs_base++; |
vs_base++; |
8593 |
if(vs_base>=vs_top){vs_top=sup;goto T2549;} |
if(vs_base>=vs_top){vs_top=sup;goto T2549;} |
8594 |
V1117= vs_base[0]; |
V1171= vs_base[0]; |
8595 |
vs_top=sup; |
vs_top=sup; |
8596 |
goto T2550; |
goto T2550; |
8597 |
goto T2547; |
goto T2547; |
8598 |
T2547:; |
T2547:; |
8599 |
V1115= Cnil; |
V1169= Cnil; |
8600 |
goto T2548; |
goto T2548; |
8601 |
T2548:; |
T2548:; |
8602 |
V1116= Cnil; |
V1170= Cnil; |
8603 |
goto T2549; |
goto T2549; |
8604 |
T2549:; |
T2549:; |
8605 |
V1117= Cnil; |
V1171= Cnil; |
8606 |
goto T2550; |
goto T2550; |
8607 |
T2550:; |
T2550:; |
8608 |
base[0]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1115),(V1116),(V1117))); |
base[0]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1169),(V1170),(V1171))); |
8609 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
8610 |
return;} |
return;} |
8611 |
} |
} |
8616 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8617 |
register object *sup=base+VM143; VC143 |
register object *sup=base+VM143; VC143 |
8618 |
vs_check; |
vs_check; |
8619 |
{object V1118; |
{object V1172; |
8620 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_top-vs_base>1) too_many_arguments(); |
8621 |
if(vs_base>=vs_top){vs_top=sup;goto T2551;} |
if(vs_base>=vs_top){vs_top=sup;goto T2551;} |
8622 |
V1118=(base[0]); |
V1172=(base[0]); |
8623 |
vs_top=sup; |
vs_top=sup; |
8624 |
goto T2552; |
goto T2552; |
8625 |
goto T2551; |
goto T2551; |
8626 |
T2551:; |
T2551:; |
8627 |
V1118= Cnil; |
V1172= Cnil; |
8628 |
goto T2552; |
goto T2552; |
8629 |
T2552:; |
T2552:; |
8630 |
if(!(type_of((base0[11]->c.c_car))==t_cons)){ |
if(!(type_of((base0[11]->c.c_car))==t_cons)){ |
8631 |
goto T2555;} |
goto T2555;} |
8632 |
{object V1119; |
{object V1173; |
8633 |
object V1120; |
object V1174; |
8634 |
object V1121; |
object V1175; |
8635 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8636 |
base[2]= (base0[8]->c.c_car); |
base[2]= (base0[8]->c.c_car); |
8637 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8638 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
8639 |
if(vs_base>=vs_top){vs_top=sup;goto T2560;} |
if(vs_base>=vs_top){vs_top=sup;goto T2560;} |
8640 |
V1119= vs_base[0]; |
V1173= vs_base[0]; |
8641 |
vs_base++; |
vs_base++; |
8642 |
if(vs_base>=vs_top){vs_top=sup;goto T2561;} |
if(vs_base>=vs_top){vs_top=sup;goto T2561;} |
8643 |
V1120= vs_base[0]; |
V1174= vs_base[0]; |
8644 |
vs_base++; |
vs_base++; |
8645 |
if(vs_base>=vs_top){vs_top=sup;goto T2562;} |
if(vs_base>=vs_top){vs_top=sup;goto T2562;} |
8646 |
V1121= vs_base[0]; |
V1175= vs_base[0]; |
8647 |
vs_top=sup; |
vs_top=sup; |
8648 |
goto T2563; |
goto T2563; |
8649 |
goto T2560; |
goto T2560; |
8650 |
T2560:; |
T2560:; |
8651 |
V1119= Cnil; |
V1173= Cnil; |
8652 |
goto T2561; |
goto T2561; |
8653 |
T2561:; |
T2561:; |
8654 |
V1120= Cnil; |
V1174= Cnil; |
8655 |
goto T2562; |
goto T2562; |
8656 |
T2562:; |
T2562:; |
8657 |
V1121= Cnil; |
V1175= Cnil; |
8658 |
goto T2563; |
goto T2563; |
8659 |
T2563:; |
T2563:; |
8660 |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1119),(V1120),(V1121))); |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1173),(V1174),(V1175))); |
8661 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8662 |
return;} |
return;} |
8663 |
goto T2555; |
goto T2555; |
8664 |
T2555:; |
T2555:; |
8665 |
{object V1122; |
{object V1176; |
8666 |
object V1123; |
object V1177; |
8667 |
object V1124; |
object V1178; |
8668 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8669 |
base[2]= (base0[10]->c.c_car); |
base[2]= (base0[10]->c.c_car); |
8670 |
base[3]= (V1118); |
base[3]= (V1172); |
8671 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
8672 |
(void) (*Lnk182)(); |
(void) (*Lnk182)(); |
8673 |
if(vs_base>=vs_top){vs_top=sup;goto T2568;} |
if(vs_base>=vs_top){vs_top=sup;goto T2568;} |
8674 |
V1122= vs_base[0]; |
V1176= vs_base[0]; |
8675 |
vs_base++; |
vs_base++; |
8676 |
if(vs_base>=vs_top){vs_top=sup;goto T2569;} |
if(vs_base>=vs_top){vs_top=sup;goto T2569;} |
8677 |
V1123= vs_base[0]; |
V1177= vs_base[0]; |
8678 |
vs_base++; |
vs_base++; |
8679 |
if(vs_base>=vs_top){vs_top=sup;goto T2570;} |
if(vs_base>=vs_top){vs_top=sup;goto T2570;} |
8680 |
V1124= vs_base[0]; |
V1178= vs_base[0]; |
8681 |
vs_top=sup; |
vs_top=sup; |
8682 |
goto T2571; |
goto T2571; |
8683 |
goto T2568; |
goto T2568; |
8684 |
T2568:; |
T2568:; |
8685 |
V1122= Cnil; |
V1176= Cnil; |
8686 |
goto T2569; |
goto T2569; |
8687 |
T2569:; |
T2569:; |
8688 |
V1123= Cnil; |
V1177= Cnil; |
8689 |
goto T2570; |
goto T2570; |
8690 |
T2570:; |
T2570:; |
8691 |
V1124= Cnil; |
V1178= Cnil; |
8692 |
goto T2571; |
goto T2571; |
8693 |
T2571:; |
T2571:; |
8694 |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1122),(V1123),(V1124))); |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1176),(V1177),(V1178))); |
8695 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8696 |
return;} |
return;} |
8697 |
} |
} |
8703 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8704 |
register object *sup=base+VM144; VC144 |
register object *sup=base+VM144; VC144 |
8705 |
vs_check; |
vs_check; |
8706 |
{object V1125; |
{object V1179; |
8707 |
object V1126; |
object V1180; |
8708 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
8709 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
8710 |
V1125=(base[0]); |
V1179=(base[0]); |
8711 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
8712 |
if(vs_base>=vs_top){vs_top=sup;goto T2572;} |
if(vs_base>=vs_top){vs_top=sup;goto T2572;} |
8713 |
V1126=(base[1]); |
V1180=(base[1]); |
8714 |
vs_top=sup; |
vs_top=sup; |
8715 |
goto T2573; |
goto T2573; |
8716 |
goto T2572; |
goto T2572; |
8717 |
T2572:; |
T2572:; |
8718 |
V1126= Cnil; |
V1180= Cnil; |
8719 |
goto T2573; |
goto T2573; |
8720 |
T2573:; |
T2573:; |
8721 |
{object V1127; |
{object V1181; |
8722 |
object V1128; |
object V1182; |
8723 |
object V1129; |
object V1183; |
8724 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8725 |
base[3]= (base0[10]->c.c_car); |
base[3]= (base0[10]->c.c_car); |
8726 |
base[4]= (V1125); |
base[4]= (V1179); |
8727 |
base[5]= (V1126); |
base[5]= (V1180); |
8728 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
8729 |
(void) (*Lnk178)(); |
(void) (*Lnk178)(); |
8730 |
if(vs_base>=vs_top){vs_top=sup;goto T2580;} |
if(vs_base>=vs_top){vs_top=sup;goto T2580;} |
8731 |
V1127= vs_base[0]; |
V1181= vs_base[0]; |
8732 |
vs_base++; |
vs_base++; |
8733 |
if(vs_base>=vs_top){vs_top=sup;goto T2581;} |
if(vs_base>=vs_top){vs_top=sup;goto T2581;} |
8734 |
V1128= vs_base[0]; |
V1182= vs_base[0]; |
8735 |
vs_base++; |
vs_base++; |
8736 |
if(vs_base>=vs_top){vs_top=sup;goto T2582;} |
if(vs_base>=vs_top){vs_top=sup;goto T2582;} |
8737 |
V1129= vs_base[0]; |
V1183= vs_base[0]; |
8738 |
vs_top=sup; |
vs_top=sup; |
8739 |
goto T2583; |
goto T2583; |
8740 |
goto T2580; |
goto T2580; |
8741 |
T2580:; |
T2580:; |
8742 |
V1127= Cnil; |
V1181= Cnil; |
8743 |
goto T2581; |
goto T2581; |
8744 |
T2581:; |
T2581:; |
8745 |
V1128= Cnil; |
V1182= Cnil; |
8746 |
goto T2582; |
goto T2582; |
8747 |
T2582:; |
T2582:; |
8748 |
V1129= Cnil; |
V1183= Cnil; |
8749 |
goto T2583; |
goto T2583; |
8750 |
T2583:; |
T2583:; |
8751 |
base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1127),(V1128),(V1129))); |
base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1181),(V1182),(V1183))); |
8752 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8753 |
return;} |
return;} |
8754 |
} |
} |
8760 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8761 |
register object *sup=base+VM145; VC145 |
register object *sup=base+VM145; VC145 |
8762 |
vs_check; |
vs_check; |
8763 |
{object V1130; |
{object V1184; |
8764 |
object V1131; |
object V1185; |
8765 |
object V1132; |
object V1186; |
8766 |
check_arg(3); |
check_arg(3); |
8767 |
V1130=(base[0]); |
V1184=(base[0]); |
8768 |
V1131=(base[1]); |
V1185=(base[1]); |
8769 |
V1132=(base[2]); |
V1186=(base[2]); |
8770 |
vs_top=sup; |
vs_top=sup; |
8771 |
goto TTL; |
goto TTL; |
8772 |
TTL:; |
TTL:; |
8774 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8775 |
Lrandom(); |
Lrandom(); |
8776 |
vs_top=sup; |
vs_top=sup; |
8777 |
V1133= vs_base[0]; |
V1187= vs_base[0]; |
8778 |
if(!(number_compare(small_fixnum(0),V1133)==0)){ |
if(!(number_compare(small_fixnum(0),V1187)==0)){ |
8779 |
goto T2584;} |
goto T2584;} |
8780 |
{object V1134; |
{object V1188; |
8781 |
object V1135; |
object V1189; |
8782 |
V1134= (V1132); |
V1188= (V1186); |
8783 |
V1135= (V1131); |
V1189= (V1185); |
8784 |
V1131= (V1134); |
V1185= (V1188); |
8785 |
V1132= (V1135);} |
V1186= (V1189);} |
8786 |
goto T2584; |
goto T2584; |
8787 |
T2584:; |
T2584:; |
8788 |
{object V1136; |
{object V1190; |
8789 |
object V1137; |
object V1191; |
8790 |
object V1138; |
object V1192; |
8791 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
8792 |
base[4]= (base0[10]->c.c_car); |
base[4]= (base0[10]->c.c_car); |
8793 |
base[5]= (V1131); |
base[5]= (V1185); |
8794 |
base[6]= (V1132); |
base[6]= (V1186); |
8795 |
base[7]= (V1130); |
base[7]= (V1184); |
8796 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
8797 |
(void) (*Lnk237)(); |
(void) (*Lnk237)(); |
8798 |
if(vs_base>=vs_top){vs_top=sup;goto T2601;} |
if(vs_base>=vs_top){vs_top=sup;goto T2601;} |
8799 |
V1136= vs_base[0]; |
V1190= vs_base[0]; |
8800 |
vs_base++; |
vs_base++; |
8801 |
if(vs_base>=vs_top){vs_top=sup;goto T2602;} |
if(vs_base>=vs_top){vs_top=sup;goto T2602;} |
8802 |
V1137= vs_base[0]; |
V1191= vs_base[0]; |
8803 |
vs_base++; |
vs_base++; |
8804 |
if(vs_base>=vs_top){vs_top=sup;goto T2603;} |
if(vs_base>=vs_top){vs_top=sup;goto T2603;} |
8805 |
V1138= vs_base[0]; |
V1192= vs_base[0]; |
8806 |
vs_top=sup; |
vs_top=sup; |
8807 |
goto T2604; |
goto T2604; |
8808 |
goto T2601; |
goto T2601; |
8809 |
T2601:; |
T2601:; |
8810 |
V1136= Cnil; |
V1190= Cnil; |
8811 |
goto T2602; |
goto T2602; |
8812 |
T2602:; |
T2602:; |
8813 |
V1137= Cnil; |
V1191= Cnil; |
8814 |
goto T2603; |
goto T2603; |
8815 |
T2603:; |
T2603:; |
8816 |
V1138= Cnil; |
V1192= Cnil; |
8817 |
goto T2604; |
goto T2604; |
8818 |
T2604:; |
T2604:; |
8819 |
base[3]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1136),(V1137),(V1138))); |
base[3]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1190),(V1191),(V1192))); |
8820 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8821 |
return;} |
return;} |
8822 |
} |
} |
8828 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8829 |
register object *sup=base+VM146; VC146 |
register object *sup=base+VM146; VC146 |
8830 |
vs_check; |
vs_check; |
8831 |
{object V1139; |
{object V1193; |
8832 |
check_arg(1); |
check_arg(1); |
8833 |
V1139=(base[0]); |
V1193=(base[0]); |
8834 |
vs_top=sup; |
vs_top=sup; |
8835 |
base[1]= (V1139); |
V1194 = (base0[0]->c.c_car); |
8836 |
|
base[1]= (V1193); |
8837 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8838 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk242)(Lclptr242); |
8839 |
vs_top=sup; |
vs_top=sup; |
8840 |
V1140= vs_base[0]; |
V1195= vs_base[0]; |
8841 |
base[1]= (equal((base0[0]->c.c_car),V1140)?Ct:Cnil); |
base[1]= (equal(V1194,V1195)?Ct:Cnil); |
8842 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8843 |
return; |
return; |
8844 |
} |
} |
8850 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8851 |
register object *sup=base+VM147; VC147 |
register object *sup=base+VM147; VC147 |
8852 |
vs_check; |
vs_check; |
8853 |
{object V1141; |
{object V1196; |
8854 |
check_arg(1); |
check_arg(1); |
8855 |
V1141=(base[0]); |
V1196=(base[0]); |
8856 |
vs_top=sup; |
vs_top=sup; |
8857 |
base[1]= (((V1141))==((VV[125]->s.s_dbind))?Ct:Cnil); |
base[1]= (((V1196))==((VV[125]->s.s_dbind))?Ct:Cnil); |
8858 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8859 |
return; |
return; |
8860 |
} |
} |
8866 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8867 |
register object *sup=base+VM148; VC148 |
register object *sup=base+VM148; VC148 |
8868 |
vs_check; |
vs_check; |
8869 |
{object V1142; |
{object V1197; |
8870 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
8871 |
{object *p=vs_top; |
{object *p=vs_top; |
8872 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
8873 |
V1142=(base[0]); |
V1197=(base[0]); |
8874 |
vs_top=sup; |
vs_top=sup; |
8875 |
base[1]=VV[250]->s.s_gfdef; |
base[1]=VV[250]->s.s_gfdef; |
8876 |
base[2]= (base0[1]->c.c_car); |
base[2]= (base0[1]->c.c_car); |
8877 |
{object V1143; |
{object V1198; |
8878 |
V1143= (V1142); |
V1198= (V1197); |
8879 |
vs_top=base+3; |
vs_top=base+3; |
8880 |
while(V1143!=Cnil) |
while(V1198!=Cnil) |
8881 |
{vs_push((V1143)->c.c_car);V1143=(V1143)->c.c_cdr;} |
{vs_push((V1198)->c.c_car);V1198=(V1198)->c.c_cdr;} |
8882 |
vs_base=base+2;} |
vs_base=base+2;} |
8883 |
(void) (*Lnk250)(Lclptr250); |
(void) (*Lnk250)(Lclptr250); |
8884 |
return; |
return; |
8891 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8892 |
register object *sup=base+VM149; VC149 |
register object *sup=base+VM149; VC149 |
8893 |
vs_check; |
vs_check; |
8894 |
{object V1144; |
{object V1199; |
8895 |
check_arg(1); |
check_arg(1); |
8896 |
V1144=(base[0]); |
V1199=(base[0]); |
8897 |
vs_top=sup; |
vs_top=sup; |
8898 |
if(!(type_of((V1144))==t_cons)){ |
if(!(type_of((V1199))==t_cons)){ |
8899 |
goto T2610;}{object V1145; |
goto T2610;}{object V1200; |
8900 |
V1145= (VV[122]->s.s_dbind); |
V1200= (VV[122]->s.s_dbind); |
8901 |
V1146= (*(LnkLI265))((V1144)); |
V1201= (*(LnkLI265))((V1199)); |
8902 |
base[1]= ((V1145)==(/* INLINE-ARGS */V1146)?Ct:Cnil); |
base[1]= ((V1200)==(/* INLINE-ARGS */V1201)?Ct:Cnil); |
8903 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8904 |
return;} |
return;} |
8905 |
goto T2610; |
goto T2610; |
8906 |
T2610:; |
T2610:; |
8907 |
base[1]= (V1144); |
base[1]= (V1199); |
8908 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8909 |
(void) (*Lnk329)(Lclptr329); |
(void) (*Lnk329)(Lclptr329); |
8910 |
return; |
return; |
8917 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8918 |
register object *sup=base+VM150; VC150 |
register object *sup=base+VM150; VC150 |
8919 |
vs_check; |
vs_check; |
8920 |
{object V1147; |
{object V1202; |
8921 |
check_arg(1); |
check_arg(1); |
8922 |
V1147=(base[0]); |
V1202=(base[0]); |
8923 |
vs_top=sup; |
vs_top=sup; |
8924 |
if(!(type_of((V1147))==t_cons)){ |
if(!(type_of((V1202))==t_cons)){ |
8925 |
goto T2614;}{object V1148; |
goto T2614;}{object V1203; |
8926 |
V1148= (VV[121]->s.s_dbind); |
V1203= (VV[121]->s.s_dbind); |
8927 |
V1149= (*(LnkLI265))((V1147)); |
V1204= (*(LnkLI265))((V1202)); |
8928 |
base[1]= ((V1148)==(/* INLINE-ARGS */V1149)?Ct:Cnil); |
base[1]= ((V1203)==(/* INLINE-ARGS */V1204)?Ct:Cnil); |
8929 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8930 |
return;} |
return;} |
8931 |
goto T2614; |
goto T2614; |
8932 |
T2614:; |
T2614:; |
8933 |
base[1]= (V1147); |
base[1]= (V1202); |
8934 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8935 |
(void) (*Lnk330)(Lclptr330); |
(void) (*Lnk330)(Lclptr330); |
8936 |
return; |
return; |
8943 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8944 |
register object *sup=base+VM151; VC151 |
register object *sup=base+VM151; VC151 |
8945 |
vs_check; |
vs_check; |
8946 |
{object V1150; |
{object V1205; |
8947 |
object V1151; |
object V1206; |
8948 |
check_arg(2); |
check_arg(2); |
8949 |
V1150=(base[0]); |
V1205=(base[0]); |
8950 |
V1151=(base[1]); |
V1206=(base[1]); |
8951 |
vs_top=sup; |
vs_top=sup; |
8952 |
{register object V1152; |
{register object V1207; |
8953 |
object V1153; |
object V1208; |
8954 |
V1152= (*(LnkLI290))((V1151)); |
V1207= (*(LnkLI290))((V1206)); |
8955 |
if(type_of(V1152)==t_structure){ |
if(type_of(V1207)==t_structure){ |
8956 |
goto T2623;} |
goto T2623;} |
8957 |
goto T2621; |
goto T2621; |
8958 |
goto T2623; |
goto T2623; |
8959 |
T2623:; |
T2623:; |
8960 |
if(!(((V1152)->str.str_def)==(VV[104]))){ |
if(!(((V1207)->str.str_def)==(VV[104]))){ |
8961 |
goto T2621;} |
goto T2621;} |
8962 |
V1154= STREF(object,(V1152),4); |
V1209= STREF(object,(V1207),4); |
8963 |
goto T2619; |
goto T2619; |
8964 |
goto T2621; |
goto T2621; |
8965 |
T2621:;{object V1156; |
T2621:;{object V1211; |
8966 |
V1156= (VV[65]->s.s_dbind); |
V1211= (VV[65]->s.s_dbind); |
8967 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
8968 |
base[5]= (V1152); |
base[5]= (V1207); |
8969 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
8970 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
8971 |
vs_top=sup; |
vs_top=sup; |
8972 |
V1157= vs_base[0]; |
V1212= vs_base[0]; |
8973 |
if(!((V1156)==(CMPcar(V1157)))){ |
if(!((V1211)==(CMPcar(V1212)))){ |
8974 |
goto T2626;}} |
goto T2626;}} |
8975 |
V1154= CMPcar(((V1152))->cc.cc_turbo[12]); |
V1209= CMPcar(((V1207))->cc.cc_turbo[12]); |
8976 |
goto T2619; |
goto T2619; |
8977 |
goto T2626; |
goto T2626; |
8978 |
T2626:; |
T2626:; |
8980 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8981 |
Lerror(); |
Lerror(); |
8982 |
vs_top=sup; |
vs_top=sup; |
8983 |
V1154= vs_base[0]; |
V1209= vs_base[0]; |
8984 |
goto T2619; |
goto T2619; |
8985 |
T2619:; |
T2619:; |
8986 |
V1158= (*(LnkLI281))(VV[10],VV[102]); |
V1213= (*(LnkLI281))(VV[10],VV[102]); |
8987 |
V1153= (V1154)->v.v_self[fix(/* INLINE-ARGS */V1158)]; |
V1208= (V1209)->v.v_self[fix(/* INLINE-ARGS */V1213)]; |
8988 |
base[4]= (*(LnkLI331))((V1153),(V1151),(base0[0]->c.c_car),(V1150)); |
base[4]= (*(LnkLI331))((V1208),(V1206),(base0[0]->c.c_car),(V1205)); |
8989 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8990 |
return;} |
return;} |
8991 |
} |
} |
8997 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8998 |
register object *sup=base+VM152; VC152 |
register object *sup=base+VM152; VC152 |
8999 |
vs_check; |
vs_check; |
9000 |
{register object V1159; |
{register object V1214; |
9001 |
check_arg(1); |
check_arg(1); |
9002 |
V1159=(base[0]); |
V1214=(base[0]); |
9003 |
vs_top=sup; |
vs_top=sup; |
9004 |
{register object V1160; |
{register object V1215; |
9005 |
object V1161; |
object V1216; |
9006 |
V1160= (*(LnkLI290))((V1159)); |
V1215= (*(LnkLI290))((V1214)); |
9007 |
if(type_of(V1160)==t_structure){ |
if(type_of(V1215)==t_structure){ |
9008 |
goto T2638;} |
goto T2638;} |
9009 |
goto T2636; |
goto T2636; |
9010 |
goto T2638; |
goto T2638; |
9011 |
T2638:; |
T2638:; |
9012 |
if(!(((V1160)->str.str_def)==(VV[101]))){ |
if(!(((V1215)->str.str_def)==(VV[101]))){ |
9013 |
goto T2636;} |
goto T2636;} |
9014 |
V1162= STREF(object,(V1160),4); |
V1217= STREF(object,(V1215),4); |
9015 |
goto T2634; |
goto T2634; |
9016 |
goto T2636; |
goto T2636; |
9017 |
T2636:;{object V1164; |
T2636:;{object V1219; |
9018 |
V1164= (VV[65]->s.s_dbind); |
V1219= (VV[65]->s.s_dbind); |
9019 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
9020 |
base[4]= (V1160); |
base[4]= (V1215); |
9021 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
9022 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
9023 |
vs_top=sup; |
vs_top=sup; |
9024 |
V1165= vs_base[0]; |
V1220= vs_base[0]; |
9025 |
if(!((V1164)==(CMPcar(V1165)))){ |
if(!((V1219)==(CMPcar(V1220)))){ |
9026 |
goto T2641;}} |
goto T2641;}} |
9027 |
V1162= CMPcar(((V1160))->cc.cc_turbo[12]); |
V1217= CMPcar(((V1215))->cc.cc_turbo[12]); |
9028 |
goto T2634; |
goto T2634; |
9029 |
goto T2641; |
goto T2641; |
9030 |
T2641:; |
T2641:; |
9032 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9033 |
Lerror(); |
Lerror(); |
9034 |
vs_top=sup; |
vs_top=sup; |
9035 |
V1162= vs_base[0]; |
V1217= vs_base[0]; |
9036 |
goto T2634; |
goto T2634; |
9037 |
T2634:; |
T2634:; |
9038 |
V1166= (*(LnkLI281))(VV[10],VV[102]); |
V1221= (*(LnkLI281))(VV[10],VV[102]); |
9039 |
V1161= (V1162)->v.v_self[fix(/* INLINE-ARGS */V1166)]; |
V1216= (V1217)->v.v_self[fix(/* INLINE-ARGS */V1221)]; |
9040 |
if(type_of(V1159)==t_structure){ |
if(type_of(V1214)==t_structure){ |
9041 |
goto T2651;} |
goto T2651;} |
9042 |
goto T2649; |
goto T2649; |
9043 |
goto T2651; |
goto T2651; |
9044 |
T2651:; |
T2651:; |
9045 |
if(!(((V1159)->str.str_def)==(VV[103]))){ |
if(!(((V1214)->str.str_def)==(VV[103]))){ |
9046 |
goto T2649;} |
goto T2649;} |
9047 |
V1167= STREF(object,(V1159),4); |
V1222= STREF(object,(V1214),4); |
9048 |
goto T2647; |
goto T2647; |
9049 |
goto T2649; |
goto T2649; |
9050 |
T2649:;{object V1169; |
T2649:;{object V1224; |
9051 |
V1169= (VV[65]->s.s_dbind); |
V1224= (VV[65]->s.s_dbind); |
9052 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
9053 |
base[4]= (V1159); |
base[4]= (V1214); |
9054 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
9055 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
9056 |
vs_top=sup; |
vs_top=sup; |
9057 |
V1170= vs_base[0]; |
V1225= vs_base[0]; |
9058 |
if(!((V1169)==(CMPcar(V1170)))){ |
if(!((V1224)==(CMPcar(V1225)))){ |
9059 |
goto T2654;}} |
goto T2654;}} |
9060 |
V1167= CMPcar(((V1159))->cc.cc_turbo[12]); |
V1222= CMPcar(((V1214))->cc.cc_turbo[12]); |
9061 |
goto T2647; |
goto T2647; |
9062 |
goto T2654; |
goto T2654; |
9063 |
T2654:; |
T2654:; |
9065 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9066 |
Lerror(); |
Lerror(); |
9067 |
vs_top=sup; |
vs_top=sup; |
9068 |
V1167= vs_base[0]; |
V1222= vs_base[0]; |
9069 |
goto T2647; |
goto T2647; |
9070 |
T2647:; |
T2647:; |
9071 |
V1171= (*(LnkLI281))((V1161),(base0[0]->c.c_car)); |
V1226= (*(LnkLI281))((V1216),(base0[0]->c.c_car)); |
9072 |
base[3]= (V1167)->v.v_self[fix(/* INLINE-ARGS */V1171)]; |
base[3]= (V1222)->v.v_self[fix(/* INLINE-ARGS */V1226)]; |
9073 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9074 |
return;} |
return;} |
9075 |
} |
} |
9081 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9082 |
register object *sup=base+VM153; VC153 |
register object *sup=base+VM153; VC153 |
9083 |
vs_check; |
vs_check; |
9084 |
{object V1172; |
{object V1227; |
9085 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9086 |
{object *p=vs_top; |
{object *p=vs_top; |
9087 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9088 |
V1172=(base[0]); |
V1227=(base[0]); |
9089 |
vs_top=sup; |
vs_top=sup; |
9090 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
9091 |
base[2]= (V1172); |
base[2]= (V1227); |
9092 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9093 |
(void) (*Lnk332)(); |
(void) (*Lnk332)(); |
9094 |
return; |
return; |
9101 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9102 |
register object *sup=base+VM154; VC154 |
register object *sup=base+VM154; VC154 |
9103 |
vs_check; |
vs_check; |
9104 |
{object V1173; |
{object V1228; |
9105 |
object V1174; |
object V1229; |
9106 |
check_arg(2); |
check_arg(2); |
9107 |
V1173=(base[0]); |
V1228=(base[0]); |
9108 |
V1174=(base[1]); |
V1229=(base[1]); |
9109 |
vs_top=sup; |
vs_top=sup; |
9110 |
base[2]= (V1173); |
V1230 = (base0[0]->c.c_car); |
9111 |
|
base[2]= (V1228); |
9112 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9113 |
(void) (*Lnk236)(Lclptr236); |
(void) (*Lnk236)(Lclptr236); |
9114 |
vs_top=sup; |
vs_top=sup; |
9115 |
V1175= vs_base[0]; |
V1231= vs_base[0]; |
9116 |
(base0[0]->c.c_car)= (VFUN_NARGS=4,(*(LnkLI247))((base0[0]->c.c_car),V1175,(V1174),Ct)); |
V1232 = (V1229); |
9117 |
|
(base0[0]->c.c_car)= (VFUN_NARGS=4,(*(LnkLI247))(V1230,V1231,V1232,Ct)); |
9118 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
9119 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9120 |
return; |
return; |
9127 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9128 |
register object *sup=base+VM155; VC155 |
register object *sup=base+VM155; VC155 |
9129 |
vs_check; |
vs_check; |
9130 |
{object V1176; |
{object V1233; |
9131 |
object V1177; |
object V1234; |
9132 |
object V1178; |
object V1235; |
9133 |
object V1179; |
object V1236; |
9134 |
check_arg(4); |
check_arg(4); |
9135 |
V1176=(base[0]); |
V1233=(base[0]); |
9136 |
V1177=(base[1]); |
V1234=(base[1]); |
9137 |
V1178=(base[2]); |
V1235=(base[2]); |
9138 |
V1179=(base[3]); |
V1236=(base[3]); |
9139 |
vs_top=sup; |
vs_top=sup; |
9140 |
{object V1180; |
{object V1237; |
9141 |
object V1181; |
object V1238; |
9142 |
if(!((VV[10])==(CMPcar((V1177))))){ |
if(!((VV[10])==(CMPcar((V1234))))){ |
9143 |
goto T2667;} |
goto T2667;} |
9144 |
{object V1182; |
{object V1239; |
9145 |
object V1183; |
object V1240; |
9146 |
V1182= (*(LnkLI290))(CMPcadr((V1177))); |
V1239= (*(LnkLI290))(CMPcadr((V1234))); |
9147 |
base[8]= (V1182); |
base[8]= (V1239); |
9148 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
9149 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
9150 |
vs_top=sup; |
vs_top=sup; |
9151 |
V1183= vs_base[0]; |
V1240= vs_base[0]; |
9152 |
{register object x= (VV[76]->s.s_dbind),V1184= (V1183); |
{register object x= (VV[76]->s.s_dbind),V1241= (V1240); |
9153 |
while(V1184!=Cnil) |
while(V1241!=Cnil) |
9154 |
if(x==(V1184->c.c_car)){ |
if(x==(V1241->c.c_car)){ |
9155 |
goto T2674; |
goto T2674; |
9156 |
}else V1184=V1184->c.c_cdr; |
}else V1241=V1241->c.c_cdr; |
9157 |
goto T2673;} |
goto T2673;} |
9158 |
goto T2674; |
goto T2674; |
9159 |
T2674:; |
T2674:; |
9160 |
V1180= (VV[77]->s.s_dbind); |
V1237= (VV[77]->s.s_dbind); |
9161 |
goto T2665; |
goto T2665; |
9162 |
goto T2673; |
goto T2673; |
9163 |
T2673:; |
T2673:; |
9164 |
{register object x= (VV[78]->s.s_dbind),V1185= (V1183); |
{register object x= (VV[78]->s.s_dbind),V1242= (V1240); |
9165 |
while(V1185!=Cnil) |
while(V1242!=Cnil) |
9166 |
if(x==(V1185->c.c_car)){ |
if(x==(V1242->c.c_car)){ |
9167 |
goto T2677; |
goto T2677; |
9168 |
}else V1185=V1185->c.c_cdr; |
}else V1242=V1242->c.c_cdr; |
9169 |
goto T2676;} |
goto T2676;} |
9170 |
goto T2677; |
goto T2677; |
9171 |
T2677:; |
T2677:; |
9172 |
V1180= (VV[79]->s.s_dbind); |
V1237= (VV[79]->s.s_dbind); |
9173 |
goto T2665; |
goto T2665; |
9174 |
goto T2676; |
goto T2676; |
9175 |
T2676:; |
T2676:; |
9176 |
V1180= (VV[80]->s.s_dbind); |
V1237= (VV[80]->s.s_dbind); |
9177 |
goto T2665;} |
goto T2665;} |
9178 |
goto T2667; |
goto T2667; |
9179 |
T2667:; |
T2667:; |
9180 |
V1180= small_fixnum(0); |
V1237= small_fixnum(0); |
9181 |
goto T2665; |
goto T2665; |
9182 |
T2665:; |
T2665:; |
9183 |
V1181= number_plus((number_compare((V1178),(V1179))>=0?((V1178)):(V1179)),(V1180)); |
V1238= number_plus((number_compare((V1235),(V1236))>=0?((V1235)):(V1236)),(V1237)); |
9184 |
if(((base0[1]->c.c_car))==Cnil){ |
if(((base0[1]->c.c_car))==Cnil){ |
9185 |
goto T2679;} |
goto T2679;} |
9186 |
if(!(number_compare((base0[1]->c.c_car),(V1181))<=0)){ |
if(!(number_compare((base0[1]->c.c_car),(V1238))<=0)){ |
9187 |
goto T2679;} |
goto T2679;} |
9188 |
{frame_ptr fr; |
{frame_ptr fr; |
9189 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
9190 |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[209]); |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[209]); |
9191 |
base[6]= (V1181); |
base[6]= (V1238); |
9192 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
9193 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
9194 |
goto T2679; |
goto T2679; |
9195 |
T2679:; |
T2679:; |
9196 |
base[6]= (V1181); |
base[6]= (V1238); |
9197 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
9198 |
return;} |
return;} |
9199 |
} |
} |
9205 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9206 |
register object *sup=base+VM156; VC156 |
register object *sup=base+VM156; VC156 |
9207 |
vs_check; |
vs_check; |
9208 |
{object V1186; |
{object V1243; |
9209 |
object V1187; |
object V1244; |
9210 |
check_arg(2); |
check_arg(2); |
9211 |
V1186=(base[0]); |
V1243=(base[0]); |
9212 |
V1187=(base[1]); |
V1244=(base[1]); |
9213 |
vs_top=sup; |
vs_top=sup; |
9214 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
9215 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9223 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9224 |
register object *sup=base+VM157; VC157 |
register object *sup=base+VM157; VC157 |
9225 |
vs_check; |
vs_check; |
9226 |
{object V1188; |
{object V1245; |
9227 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9228 |
{object *p=vs_top; |
{object *p=vs_top; |
9229 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9230 |
V1188=(base[0]); |
V1245=(base[0]); |
9231 |
vs_top=sup; |
vs_top=sup; |
9232 |
base[1]= (base0[1]->c.c_car); |
base[1]= (base0[1]->c.c_car); |
9233 |
base[2]= (V1188); |
base[2]= (V1245); |
9234 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
9235 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
9236 |
(void) (*Lnk333)(); |
(void) (*Lnk333)(); |
9244 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9245 |
register object *sup=base+VM158; VC158 |
register object *sup=base+VM158; VC158 |
9246 |
vs_check; |
vs_check; |
9247 |
{register object V1189; |
{register object V1246; |
9248 |
check_arg(1); |
check_arg(1); |
9249 |
V1189=(base[0]); |
V1246=(base[0]); |
9250 |
vs_top=sup;{object V1190; |
vs_top=sup;{object V1247; |
9251 |
if(((VV[72]->s.s_dbind))==(VV[73])){ |
if(((VV[72]->s.s_dbind))==(VV[73])){ |
9252 |
goto T2690;} |
goto T2690;} |
9253 |
V1190= Cnil; |
V1247= Cnil; |
9254 |
goto T2689; |
goto T2689; |
9255 |
goto T2690; |
goto T2690; |
9256 |
T2690:; |
T2690:; |
9257 |
base[1]= (VV[310]->s.s_gfdef); |
base[1]= (VV[310]->s.s_gfdef); |
9258 |
base[3]= (V1189); |
base[3]= (V1246); |
9259 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9260 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk242)(Lclptr242); |
9261 |
vs_top=sup; |
vs_top=sup; |
9263 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9264 |
(void) (*Lnk200)(); |
(void) (*Lnk200)(); |
9265 |
vs_top=sup; |
vs_top=sup; |
9266 |
V1190= vs_base[0]; |
V1247= vs_base[0]; |
9267 |
goto T2689; |
goto T2689; |
9268 |
T2689:; |
T2689:; |
9269 |
if(V1190==Cnil)goto T2688; |
if(V1247==Cnil)goto T2688; |
9270 |
base[1]= V1190; |
base[1]= V1247; |
9271 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9272 |
return; |
return; |
9273 |
goto T2688; |
goto T2688; |
9274 |
T2688:;} |
T2688:;} |
9275 |
{object V1191; |
{object V1248; |
9276 |
if(((base0[1]->c.c_car))==Cnil){ |
if(((base0[1]->c.c_car))==Cnil){ |
9277 |
goto T2698;}{object V1193; |
goto T2698;}{object V1250; |
9278 |
V1193= CMPcaddr((V1189)); |
V1250= CMPcaddr((V1246)); |
9279 |
if(V1193==Cnil)goto T2700; |
if(V1250==Cnil)goto T2700; |
9280 |
V1192= V1193; |
V1249= V1250; |
9281 |
goto T2696; |
goto T2696; |
9282 |
goto T2700; |
goto T2700; |
9283 |
T2700:;} |
T2700:;} |
9284 |
V1192= CMPcadr((V1189)); |
V1249= CMPcadr((V1246)); |
9285 |
goto T2696; |
goto T2696; |
9286 |
goto T2698; |
goto T2698; |
9287 |
T2698:;{object V1194; |
T2698:;{object V1251; |
9288 |
base[1]= (V1189); |
base[1]= (V1246); |
9289 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9290 |
(void) (*Lnk334)(Lclptr334); |
(void) (*Lnk334)(Lclptr334); |
9291 |
vs_top=sup; |
vs_top=sup; |
9292 |
V1194= vs_base[0]; |
V1251= vs_base[0]; |
9293 |
if(V1194==Cnil)goto T2702; |
if(V1251==Cnil)goto T2702; |
9294 |
V1192= V1194; |
V1249= V1251; |
9295 |
goto T2696; |
goto T2696; |
9296 |
goto T2702; |
goto T2702; |
9297 |
T2702:;} |
T2702:;} |
9298 |
base[1]= (V1189); |
base[1]= (V1246); |
9299 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9300 |
(void) (*Lnk335)(Lclptr335); |
(void) (*Lnk335)(Lclptr335); |
9301 |
vs_top=sup; |
vs_top=sup; |
9302 |
V1192= vs_base[0]; |
V1249= vs_base[0]; |
9303 |
goto T2696; |
goto T2696; |
9304 |
T2696:; |
T2696:; |
9305 |
V1191= (VFUN_NARGS=3,(*(LnkLI249))(V1192,VV[74],(base0[0]->c.c_car))); |
V1252 = (base0[0]->c.c_car); |
9306 |
|
V1248= (VFUN_NARGS=3,(*(LnkLI249))(V1249,VV[74],V1252)); |
9307 |
if(((base0[2]->c.c_car))==Cnil){ |
if(((base0[2]->c.c_car))==Cnil){ |
9308 |
goto T2707;} |
goto T2707;} |
9309 |
if(!(((V1191))==(Ct))){ |
if(!(((V1248))==(Ct))){ |
9310 |
goto T2710;} |
goto T2710;} |
9311 |
V1195= Ct; |
V1253= Ct; |
9312 |
goto T2709; |
goto T2709; |
9313 |
goto T2710; |
goto T2710; |
9314 |
T2710:; |
T2710:; |
9315 |
V1195= (((V1191))==(Cnil)?Ct:Cnil); |
V1253= (((V1248))==(Cnil)?Ct:Cnil); |
9316 |
goto T2709; |
goto T2709; |
9317 |
T2709:; |
T2709:; |
9318 |
base[1]= ((V1195)==Cnil?Ct:Cnil); |
base[1]= ((V1253)==Cnil?Ct:Cnil); |
9319 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9320 |
return; |
return; |
9321 |
goto T2707; |
goto T2707; |
9322 |
T2707:; |
T2707:; |
9323 |
base[1]= (((V1191))==((base0[0]->c.c_car))?Ct:Cnil); |
base[1]= (((V1248))==((base0[0]->c.c_car))?Ct:Cnil); |
9324 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9325 |
return;} |
return;} |
9326 |
} |
} |
9332 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9333 |
register object *sup=base+VM159; VC159 |
register object *sup=base+VM159; VC159 |
9334 |
vs_check; |
vs_check; |
9335 |
{object V1196; |
{object V1254; |
9336 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9337 |
{object *p=vs_top; |
{object *p=vs_top; |
9338 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9339 |
V1196=(base[0]); |
V1254=(base[0]); |
9340 |
vs_top=sup; |
vs_top=sup; |
9341 |
base[1]= (base0[1]->c.c_car); |
base[1]= (base0[1]->c.c_car); |
9342 |
base[2]= (V1196); |
base[2]= (V1254); |
9343 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
9344 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
9345 |
(void) (*Lnk336)(); |
(void) (*Lnk336)(); |
9353 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9354 |
register object *sup=base+VM160; VC160 |
register object *sup=base+VM160; VC160 |
9355 |
vs_check; |
vs_check; |
9356 |
{object V1197; |
{object V1255; |
9357 |
check_arg(1); |
check_arg(1); |
9358 |
V1197=(base[0]); |
V1255=(base[0]); |
9359 |
vs_top=sup; |
vs_top=sup; |
9360 |
{object V1198; |
{object V1256; |
9361 |
if(!(type_of((V1197))==t_cons||((V1197))==Cnil)){ |
if(!(type_of((V1255))==t_cons||((V1255))==Cnil)){ |
9362 |
goto T2717;} |
goto T2717;} |
9363 |
V1198= CMPcaddr((V1197)); |
V1256= CMPcaddr((V1255)); |
9364 |
goto T2715; |
goto T2715; |
9365 |
goto T2717; |
goto T2717; |
9366 |
T2717:; |
T2717:; |
9367 |
base[1]= (V1197); |
base[1]= (V1255); |
9368 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9369 |
(void) (*Lnk334)(Lclptr334); |
(void) (*Lnk334)(Lclptr334); |
9370 |
vs_top=sup; |
vs_top=sup; |
9371 |
V1198= vs_base[0]; |
V1256= vs_base[0]; |
9372 |
goto T2715; |
goto T2715; |
9373 |
T2715:; |
T2715:; |
9374 |
base[1]= (VFUN_NARGS=2,(*(LnkLI249))((V1198),VV[62])); |
base[1]= (VFUN_NARGS=2,(*(LnkLI249))((V1256),VV[62])); |
9375 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9376 |
return;} |
return;} |
9377 |
} |
} |
9383 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9384 |
register object *sup=base+VM161; VC161 |
register object *sup=base+VM161; VC161 |
9385 |
vs_check; |
vs_check; |
9386 |
{object V1199; |
{object V1257; |
9387 |
check_arg(1); |
check_arg(1); |
9388 |
V1199=(base[0]); |
V1257=(base[0]); |
9389 |
vs_top=sup; |
vs_top=sup; |
9390 |
base[1]= (((V1199))==(Ct)?Ct:Cnil); |
base[1]= (((V1257))==(Ct)?Ct:Cnil); |
9391 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9392 |
return; |
return; |
9393 |
} |
} |
9399 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9400 |
register object *sup=base+VM162; VC162 |
register object *sup=base+VM162; VC162 |
9401 |
vs_check; |
vs_check; |
9402 |
{object V1200; |
{object V1258; |
9403 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9404 |
{object *p=vs_top; |
{object *p=vs_top; |
9405 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9406 |
V1200=(base[0]); |
V1258=(base[0]); |
9407 |
vs_top=sup; |
vs_top=sup; |
9408 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
9409 |
base[2]= (V1200); |
base[2]= (V1258); |
9410 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9411 |
(void) (*Lnk94)(); |
(void) (*Lnk94)(); |
9412 |
return; |
return; |
9419 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9420 |
register object *sup=base+VM163; VC163 |
register object *sup=base+VM163; VC163 |
9421 |
vs_check; |
vs_check; |
9422 |
{object V1201; |
{object V1259; |
9423 |
check_arg(1); |
check_arg(1); |
9424 |
V1201=(base[0]); |
V1259=(base[0]); |
9425 |
vs_top=sup; |
vs_top=sup; |
9426 |
base[1]= (((V1201))==(Ct)?Ct:Cnil); |
base[1]= (((V1259))==(Ct)?Ct:Cnil); |
9427 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9428 |
return; |
return; |
9429 |
} |
} |
9435 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9436 |
register object *sup=base+VM164; VC164 |
register object *sup=base+VM164; VC164 |
9437 |
vs_check; |
vs_check; |
9438 |
{object V1202; |
{object V1260; |
9439 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9440 |
{object *p=vs_top; |
{object *p=vs_top; |
9441 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9442 |
V1202=(base[0]); |
V1260=(base[0]); |
9443 |
vs_top=sup; |
vs_top=sup; |
9444 |
base[1]= (base0[1]->c.c_car); |
base[1]= (base0[1]->c.c_car); |
9445 |
base[2]= (V1202); |
base[2]= (V1260); |
9446 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
9447 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
9448 |
(void) (*Lnk337)(); |
(void) (*Lnk337)(); |
9456 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9457 |
register object *sup=base+VM165; VC165 |
register object *sup=base+VM165; VC165 |
9458 |
vs_check; |
vs_check; |
9459 |
{object V1203; |
{object V1261; |
9460 |
check_arg(1); |
check_arg(1); |
9461 |
V1203=(base[0]); |
V1261=(base[0]); |
9462 |
vs_top=sup; |
vs_top=sup; |
9463 |
base[1]= (((V1203))==(Ct)?Ct:Cnil); |
base[1]= (((V1261))==(Ct)?Ct:Cnil); |
9464 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9465 |
return; |
return; |
9466 |
} |
} |
9472 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9473 |
register object *sup=base+VM166; VC166 |
register object *sup=base+VM166; VC166 |
9474 |
vs_check; |
vs_check; |
9475 |
{object V1204; |
{object V1262; |
9476 |
object V1205; |
object V1263; |
9477 |
check_arg(2); |
check_arg(2); |
9478 |
V1204=(base[0]); |
V1262=(base[0]); |
9479 |
V1205=(base[1]); |
V1263=(base[1]); |
9480 |
vs_top=sup; |
vs_top=sup; |
9481 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
9482 |
base[3]= (V1204); |
base[3]= (V1262); |
9483 |
base[4]= (V1205); |
base[4]= (V1263); |
9484 |
base[5]= (base0[1]->c.c_car); |
base[5]= (base0[1]->c.c_car); |
9485 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
9486 |
(void) (*Lnk338)(); |
(void) (*Lnk338)(); |
9494 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9495 |
register object *sup=base+VM167; VC167 |
register object *sup=base+VM167; VC167 |
9496 |
vs_check; |
vs_check; |
9497 |
{object V1206; |
{object V1264; |
9498 |
check_arg(1); |
check_arg(1); |
9499 |
V1206=(base[0]); |
V1264=(base[0]); |
9500 |
vs_top=sup; |
vs_top=sup; |
9501 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
9502 |
base[2]= Cnil; |
base[2]= Cnil; |
9503 |
base[3]= (V1206); |
base[3]= (V1264); |
9504 |
base[4]= (base0[1]->c.c_car); |
base[4]= (base0[1]->c.c_car); |
9505 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
9506 |
(void) (*Lnk338)(); |
(void) (*Lnk338)(); |