322 |
(void) (*Lnk103)(Lclptr103); |
(void) (*Lnk103)(Lclptr103); |
323 |
vs_top=sup; |
vs_top=sup; |
324 |
V57= vs_base[0]; |
V57= vs_base[0]; |
325 |
{object V58 = list(3,VV[7],V57,(V35)); |
V58 = (V35); |
326 |
|
{object V59 = list(3,VV[7],V57,V58); |
327 |
bds_unwind1; |
bds_unwind1; |
328 |
bds_unwind1; |
bds_unwind1; |
329 |
bds_unwind1; |
bds_unwind1; |
330 |
bds_unwind1; |
bds_unwind1; |
331 |
VMR4(V58)} |
VMR4(V59)} |
332 |
goto T90; |
goto T90; |
333 |
T90:; |
T90:; |
334 |
if(!(((VV[9]->s.s_dbind))==(VV[19]))){ |
if(!(((VV[9]->s.s_dbind))==(VV[19]))){ |
335 |
goto T96;} |
goto T96;} |
336 |
{register object x= VV[31],V59= (VV[10]->s.s_dbind); |
{register object x= VV[31],V60= (VV[10]->s.s_dbind); |
337 |
while(V59!=Cnil) |
while(V60!=Cnil) |
338 |
if(eql(x,V59->c.c_car)){ |
if(eql(x,V60->c.c_car)){ |
339 |
goto T96; |
goto T96; |
340 |
}else V59=V59->c.c_cdr;} |
}else V60=V60->c.c_cdr;} |
341 |
(void)((*(LnkLI104))((V18))); |
(void)((*(LnkLI104))((V18))); |
342 |
goto T96; |
goto T96; |
343 |
T96:; |
T96:; |
344 |
{object V60 = (V35); |
{object V61 = (V35); |
345 |
bds_unwind1; |
bds_unwind1; |
346 |
bds_unwind1; |
bds_unwind1; |
347 |
bds_unwind1; |
bds_unwind1; |
348 |
bds_unwind1; |
bds_unwind1; |
349 |
VMR4(V60)}}}} |
VMR4(V61)}}}} |
350 |
base[0]=base[0]; |
base[0]=base[0]; |
351 |
return Cnil; |
return Cnil; |
352 |
} |
} |
353 |
/* local entry for function MAKE-INITFUNCTION */ |
/* local entry for function MAKE-INITFUNCTION */ |
354 |
|
|
355 |
static object LI9(V62) |
static object LI9(V63) |
356 |
|
|
357 |
register object V62; |
register object V63; |
358 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
359 |
goto TTL; |
goto TTL; |
360 |
TTL:; |
TTL:; |
361 |
if(((V62))==(Ct)){ |
if(((V63))==(Ct)){ |
362 |
goto T101;} |
goto T101;} |
363 |
if(!(equal((V62),VV[32]))){ |
if(!(equal((V63),VV[32]))){ |
364 |
goto T102;} |
goto T102;} |
365 |
goto T101; |
goto T101; |
366 |
T101:; |
T101:; |
367 |
{object V63 = VV[33]; |
{object V64 = VV[33]; |
368 |
VMR5(V63)} |
VMR5(V64)} |
369 |
goto T102; |
goto T102; |
370 |
T102:; |
T102:; |
371 |
if(((V62))==(Cnil)){ |
if(((V63))==(Cnil)){ |
372 |
goto T106;} |
goto T106;} |
373 |
if(!(equal((V62),VV[34]))){ |
if(!(equal((V63),VV[34]))){ |
374 |
goto T107;} |
goto T107;} |
375 |
goto T106; |
goto T106; |
376 |
T106:; |
T106:; |
377 |
{object V64 = VV[35]; |
{object V65 = VV[35]; |
378 |
VMR5(V64)} |
VMR5(V65)} |
379 |
goto T107; |
goto T107; |
380 |
T107:; |
T107:; |
381 |
if(eql((V62),small_fixnum(0))){ |
if(eql((V63),small_fixnum(0))){ |
382 |
goto T111;} |
goto T111;} |
383 |
if(!(equal((V62),VV[36]))){ |
if(!(equal((V63),VV[36]))){ |
384 |
goto T112;} |
goto T112;} |
385 |
goto T111; |
goto T111; |
386 |
T111:; |
T111:; |
387 |
{object V65 = VV[37]; |
{object V66 = VV[37]; |
388 |
VMR5(V65)} |
VMR5(V66)} |
389 |
goto T112; |
goto T112; |
390 |
T112:; |
T112:; |
391 |
{register object V66; |
{register object V67; |
392 |
{register object x= (V62),V67= (VV[18]->s.s_dbind); |
{register object x= (V63),V68= (VV[18]->s.s_dbind); |
393 |
while(V67!=Cnil) |
while(V68!=Cnil) |
394 |
if(equal(x,V67->c.c_car->c.c_car) &&V67->c.c_car != Cnil){ |
if(equal(x,V68->c.c_car->c.c_car) &&V68->c.c_car != Cnil){ |
395 |
V66= (V67->c.c_car); |
V67= (V68->c.c_car); |
396 |
goto T116; |
goto T116; |
397 |
}else V67=V67->c.c_cdr; |
}else V68=V68->c.c_cdr; |
398 |
V66= Cnil;} |
V67= Cnil;} |
399 |
goto T116; |
goto T116; |
400 |
T116:; |
T116:; |
401 |
if(((V66))!=Cnil){ |
if(((V67))!=Cnil){ |
402 |
goto T117;} |
goto T117;} |
403 |
|
V69 = (V63); |
404 |
vs_base=vs_top; |
vs_base=vs_top; |
405 |
Lgensym(); |
Lgensym(); |
406 |
vs_top=sup; |
vs_top=sup; |
407 |
V68= vs_base[0]; |
V70= vs_base[0]; |
408 |
V66= list(3,(V62),V68,list(2,VV[38],list(3,VV[39],Cnil,(V62)))); |
V67= list(3,V69,V70,list(2,VV[38],list(3,VV[39],Cnil,(V63)))); |
409 |
(VV[18]->s.s_dbind)= make_cons(V66,(VV[18]->s.s_dbind)); |
(VV[18]->s.s_dbind)= make_cons(V67,(VV[18]->s.s_dbind)); |
410 |
goto T117; |
goto T117; |
411 |
T117:; |
T117:; |
412 |
{object V70 = CMPcadr((V66)); |
{object V72 = CMPcadr((V67)); |
413 |
VMR5(V70)}} |
VMR5(V72)}} |
414 |
base[0]=base[0]; |
base[0]=base[0]; |
415 |
return Cnil; |
return Cnil; |
416 |
} |
} |
417 |
/* local entry for function CANONICALIZE-SLOT-SPECIFICATION */ |
/* local entry for function CANONICALIZE-SLOT-SPECIFICATION */ |
418 |
|
|
419 |
static object LI10(V73,V74) |
static object LI10(V75,V76) |
420 |
|
|
421 |
object V73;register object V74; |
object V75;register object V76; |
422 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
423 |
goto TTL; |
goto TTL; |
424 |
TTL:; |
TTL:; |
425 |
if(!(type_of((V74))==t_symbol)){ |
if(!(type_of((V76))==t_symbol)){ |
426 |
goto T125;} |
goto T125;} |
427 |
if((type_of((V74))==t_symbol&&((V74))->s.s_hpack==keyword_package)){ |
if((type_of((V76))==t_symbol&&((V76))->s.s_hpack==keyword_package)){ |
428 |
goto T125;} |
goto T125;} |
429 |
{register object x= (V74),V75= VV[40]; |
{register object x= (V76),V77= VV[40]; |
430 |
while(V75!=Cnil) |
while(V77!=Cnil) |
431 |
if(x==(V75->c.c_car)){ |
if(x==(V77->c.c_car)){ |
432 |
goto T125; |
goto T125; |
433 |
}else V75=V75->c.c_cdr;} |
}else V77=V77->c.c_cdr;} |
434 |
{object V76 = list(2,VV[28],list(2,VV[41],(V74))); |
{object V78 = list(2,VV[28],list(2,VV[41],(V76))); |
435 |
VMR6(V76)} |
VMR6(V78)} |
436 |
goto T125; |
goto T125; |
437 |
T125:; |
T125:; |
438 |
if(type_of((V74))==t_cons){ |
if(type_of((V76))==t_cons){ |
439 |
goto T132;} |
goto T132;} |
440 |
base[0]= VV[42]; |
base[0]= VV[42]; |
441 |
base[1]= (V74); |
base[1]= (V76); |
442 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
443 |
Lerror(); |
Lerror(); |
444 |
vs_top=sup; |
vs_top=sup; |
445 |
{object V77 = vs_base[0]; |
{object V79 = vs_base[0]; |
446 |
VMR6(V77)} |
VMR6(V79)} |
447 |
goto T132; |
goto T132; |
448 |
T132:; |
T132:; |
449 |
if((CMPcdr((V74)))!=Cnil){ |
if((CMPcdr((V76)))!=Cnil){ |
450 |
goto T137;} |
goto T137;} |
451 |
{object V78 = list(2,VV[28],list(2,VV[41],CMPcar((V74)))); |
{object V80 = list(2,VV[28],list(2,VV[41],CMPcar((V76)))); |
452 |
VMR6(V78)} |
VMR6(V80)} |
453 |
goto T137; |
goto T137; |
454 |
T137:; |
T137:; |
455 |
if((CMPcddr((V74)))!=Cnil){ |
if((CMPcddr((V76)))!=Cnil){ |
456 |
goto T140;} |
goto T140;} |
457 |
base[0]= VV[43]; |
base[0]= VV[43]; |
458 |
base[1]= (V73); |
base[1]= (V75); |
459 |
base[2]= (V74); |
base[2]= (V76); |
460 |
base[3]= list(3,CMPcar((V74)),VV[44],CMPcadr((V74))); |
base[3]= list(3,CMPcar((V76)),VV[44],CMPcadr((V76))); |
461 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
462 |
Lerror(); |
Lerror(); |
463 |
vs_top=sup; |
vs_top=sup; |
464 |
{object V79 = vs_base[0]; |
{object V81 = vs_base[0]; |
465 |
VMR6(V79)} |
VMR6(V81)} |
466 |
goto T140; |
goto T140; |
467 |
T140:; |
T140:; |
468 |
{object V80; |
{object V82; |
|
register object V81; |
|
|
register object V82; |
|
469 |
register object V83; |
register object V83; |
470 |
object V84; |
register object V84; |
471 |
object V85; |
register object V85; |
472 |
{object V86; |
object V86; |
473 |
V86= CMPcar((V74)); |
object V87; |
474 |
V74= CMPcdr((V74)); |
{object V88; |
475 |
V80= (V86);} |
V88= CMPcar((V76)); |
476 |
V81= Cnil; |
V76= CMPcdr((V76)); |
477 |
V82= Cnil; |
V82= (V88);} |
478 |
V83= Cnil; |
V83= Cnil; |
479 |
V84= make_cons(Cnil,Cnil); |
V84= Cnil; |
480 |
base[3]= (V74); |
V85= Cnil; |
481 |
|
V86= make_cons(Cnil,Cnil); |
482 |
|
base[3]= (V76); |
483 |
base[4]= VV[44]; |
base[4]= VV[44]; |
484 |
base[5]= (V84); |
base[5]= (V86); |
485 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
486 |
Lgetf(); |
Lgetf(); |
487 |
vs_top=sup; |
vs_top=sup; |
488 |
V85= vs_base[0]; |
V87= vs_base[0]; |
489 |
{register object V87; |
{register object V89; |
490 |
object V88; |
object V90; |
491 |
register object V89; |
register object V91; |
492 |
V87= (V74); |
V89= (V76); |
493 |
V88= Cnil; |
V90= Cnil; |
494 |
V89= Cnil; |
V91= Cnil; |
495 |
goto T160; |
goto T160; |
496 |
T160:; |
T160:; |
497 |
if(((V87))!=Cnil){ |
if(((V89))!=Cnil){ |
498 |
goto T162;} |
goto T162;} |
499 |
goto T158; |
goto T158; |
500 |
goto T162; |
goto T162; |
501 |
T162:; |
T162:; |
502 |
{object V90; |
{object V92; |
503 |
V90= CMPcar((V87)); |
V92= CMPcar((V89)); |
504 |
V87= CMPcdr((V87)); |
V89= CMPcdr((V89)); |
505 |
V88= (V90);} |
V90= (V92);} |
506 |
if(((V87))!=Cnil){ |
if(((V89))!=Cnil){ |
507 |
goto T170;} |
goto T170;} |
508 |
base[3]= VV[45]; |
base[3]= VV[45]; |
509 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
511 |
vs_top=sup; |
vs_top=sup; |
512 |
goto T170; |
goto T170; |
513 |
T170:; |
T170:; |
514 |
{object V91; |
{object V93; |
515 |
V91= CMPcar((V87)); |
V93= CMPcar((V89)); |
516 |
V87= CMPcdr((V87)); |
V89= CMPcdr((V89)); |
517 |
V89= (V91);} |
V91= (V93);} |
518 |
{object V92= (V88); |
{object V94= (V90); |
519 |
if((V92!= VV[47]))goto T179; |
if((V94!= VV[47]))goto T179; |
520 |
(VV[17]->s.s_dbind)= make_cons(V89,(VV[17]->s.s_dbind)); |
(VV[17]->s.s_dbind)= make_cons(V91,(VV[17]->s.s_dbind)); |
521 |
V81= make_cons(V89,(V81)); |
V83= make_cons(V91,(V83)); |
522 |
{object V95; |
{object V97; |
523 |
V95= list(2,VV[46],(V89)); |
V97= list(2,VV[46],(V91)); |
524 |
V82= make_cons((V95),(V82)); |
V84= make_cons((V97),(V84)); |
525 |
goto T161;} |
goto T161;} |
526 |
goto T179; |
goto T179; |
527 |
T179:; |
T179:; |
528 |
if((V92!= VV[48]))goto T186; |
if((V94!= VV[48]))goto T186; |
529 |
V81= make_cons(V89,(V81)); |
V83= make_cons(V91,(V83)); |
530 |
goto T161; |
goto T161; |
531 |
goto T186; |
goto T186; |
532 |
T186:; |
T186:; |
533 |
if((V92!= VV[49]))goto T188; |
if((V94!= VV[49]))goto T188; |
534 |
V82= make_cons(V89,(V82)); |
V84= make_cons(V91,(V84)); |
535 |
goto T161; |
goto T161; |
536 |
goto T188; |
goto T188; |
537 |
T188:; |
T188:; |
538 |
if((V92!= VV[50]))goto T190; |
if((V94!= VV[50]))goto T190; |
539 |
V83= make_cons(V89,(V83)); |
V85= make_cons(V91,(V85)); |
540 |
goto T161; |
goto T161; |
541 |
goto T190; |
goto T190; |
542 |
T190:;} |
T190:;} |
547 |
T158:; |
T158:; |
548 |
goto T195; |
goto T195; |
549 |
T195:; |
T195:; |
550 |
{object V99; |
{object V101; |
551 |
object V100; |
object V102; |
552 |
base[3]= (V74); |
base[3]= (V76); |
553 |
base[4]= VV[47]; |
base[4]= VV[47]; |
554 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
555 |
siLrem_f(); |
siLrem_f(); |
556 |
if(vs_base>=vs_top){vs_top=sup;goto T202;} |
if(vs_base>=vs_top){vs_top=sup;goto T202;} |
557 |
V99= vs_base[0]; |
V101= vs_base[0]; |
558 |
vs_base++; |
vs_base++; |
559 |
if(vs_base>=vs_top){vs_top=sup;goto T203;} |
if(vs_base>=vs_top){vs_top=sup;goto T203;} |
560 |
V100= vs_base[0]; |
V102= vs_base[0]; |
561 |
vs_top=sup; |
vs_top=sup; |
562 |
goto T204; |
goto T204; |
563 |
goto T202; |
goto T202; |
564 |
T202:; |
T202:; |
565 |
V99= Cnil; |
V101= Cnil; |
566 |
goto T203; |
goto T203; |
567 |
T203:; |
T203:; |
568 |
V100= Cnil; |
V102= Cnil; |
569 |
goto T204; |
goto T204; |
570 |
T204:; |
T204:; |
571 |
V74= (V99); |
V76= (V101); |
572 |
if(((V100))!=Cnil){ |
if(((V102))!=Cnil){ |
573 |
goto T196;}} |
goto T196;}} |
574 |
goto T193; |
goto T193; |
575 |
goto T196; |
goto T196; |
579 |
T193:; |
T193:; |
580 |
goto T210; |
goto T210; |
581 |
T210:; |
T210:; |
582 |
{object V101; |
{object V103; |
583 |
object V102; |
object V104; |
584 |
base[3]= (V74); |
base[3]= (V76); |
585 |
base[4]= VV[48]; |
base[4]= VV[48]; |
586 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
587 |
siLrem_f(); |
siLrem_f(); |
588 |
if(vs_base>=vs_top){vs_top=sup;goto T217;} |
if(vs_base>=vs_top){vs_top=sup;goto T217;} |
589 |
V101= vs_base[0]; |
V103= vs_base[0]; |
590 |
vs_base++; |
vs_base++; |
591 |
if(vs_base>=vs_top){vs_top=sup;goto T218;} |
if(vs_base>=vs_top){vs_top=sup;goto T218;} |
592 |
V102= vs_base[0]; |
V104= vs_base[0]; |
593 |
vs_top=sup; |
vs_top=sup; |
594 |
goto T219; |
goto T219; |
595 |
goto T217; |
goto T217; |
596 |
T217:; |
T217:; |
597 |
V101= Cnil; |
V103= Cnil; |
598 |
goto T218; |
goto T218; |
599 |
T218:; |
T218:; |
600 |
V102= Cnil; |
V104= Cnil; |
601 |
goto T219; |
goto T219; |
602 |
T219:; |
T219:; |
603 |
V74= (V101); |
V76= (V103); |
604 |
if(((V102))!=Cnil){ |
if(((V104))!=Cnil){ |
605 |
goto T211;}} |
goto T211;}} |
606 |
goto T208; |
goto T208; |
607 |
goto T211; |
goto T211; |
611 |
T208:; |
T208:; |
612 |
goto T225; |
goto T225; |
613 |
T225:; |
T225:; |
614 |
{object V103; |
{object V105; |
615 |
object V104; |
object V106; |
616 |
base[3]= (V74); |
base[3]= (V76); |
617 |
base[4]= VV[49]; |
base[4]= VV[49]; |
618 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
619 |
siLrem_f(); |
siLrem_f(); |
620 |
if(vs_base>=vs_top){vs_top=sup;goto T232;} |
if(vs_base>=vs_top){vs_top=sup;goto T232;} |
621 |
V103= vs_base[0]; |
V105= vs_base[0]; |
622 |
vs_base++; |
vs_base++; |
623 |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
624 |
V104= vs_base[0]; |
V106= vs_base[0]; |
625 |
vs_top=sup; |
vs_top=sup; |
626 |
goto T234; |
goto T234; |
627 |
goto T232; |
goto T232; |
628 |
T232:; |
T232:; |
629 |
V103= Cnil; |
V105= Cnil; |
630 |
goto T233; |
goto T233; |
631 |
T233:; |
T233:; |
632 |
V104= Cnil; |
V106= Cnil; |
633 |
goto T234; |
goto T234; |
634 |
T234:; |
T234:; |
635 |
V74= (V103); |
V76= (V105); |
636 |
if(((V104))!=Cnil){ |
if(((V106))!=Cnil){ |
637 |
goto T226;}} |
goto T226;}} |
638 |
goto T223; |
goto T223; |
639 |
goto T226; |
goto T226; |
643 |
T223:; |
T223:; |
644 |
goto T240; |
goto T240; |
645 |
T240:; |
T240:; |
646 |
{object V105; |
{object V107; |
647 |
object V106; |
object V108; |
648 |
base[3]= (V74); |
base[3]= (V76); |
649 |
base[4]= VV[50]; |
base[4]= VV[50]; |
650 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
651 |
siLrem_f(); |
siLrem_f(); |
652 |
if(vs_base>=vs_top){vs_top=sup;goto T247;} |
if(vs_base>=vs_top){vs_top=sup;goto T247;} |
653 |
V105= vs_base[0]; |
V107= vs_base[0]; |
654 |
vs_base++; |
vs_base++; |
655 |
if(vs_base>=vs_top){vs_top=sup;goto T248;} |
if(vs_base>=vs_top){vs_top=sup;goto T248;} |
656 |
V106= vs_base[0]; |
V108= vs_base[0]; |
657 |
vs_top=sup; |
vs_top=sup; |
658 |
goto T249; |
goto T249; |
659 |
goto T247; |
goto T247; |
660 |
T247:; |
T247:; |
661 |
V105= Cnil; |
V107= Cnil; |
662 |
goto T248; |
goto T248; |
663 |
T248:; |
T248:; |
664 |
V106= Cnil; |
V108= Cnil; |
665 |
goto T249; |
goto T249; |
666 |
T249:; |
T249:; |
667 |
V74= (V105); |
V76= (V107); |
668 |
if(((V106))!=Cnil){ |
if(((V108))!=Cnil){ |
669 |
goto T241;}} |
goto T241;}} |
670 |
goto T238; |
goto T238; |
671 |
goto T241; |
goto T241; |
673 |
goto T240; |
goto T240; |
674 |
goto T238; |
goto T238; |
675 |
T238:; |
T238:; |
676 |
(VV[15]->s.s_dbind)= append((V82),(VV[15]->s.s_dbind)); |
(VV[15]->s.s_dbind)= append((V84),(VV[15]->s.s_dbind)); |
677 |
(VV[16]->s.s_dbind)= append((V81),(VV[16]->s.s_dbind)); |
(VV[16]->s.s_dbind)= append((V83),(VV[16]->s.s_dbind)); |
|
V107= list(2,VV[28],(V80)); |
|
|
V108= list(2,VV[28],(V81)); |
|
678 |
V109= list(2,VV[28],(V82)); |
V109= list(2,VV[28],(V82)); |
679 |
V110= list(2,VV[28],(V83)); |
V110= list(2,VV[28],(V83)); |
680 |
V74= list(9,VV[41],/* INLINE-ARGS */V107,VV[51],/* INLINE-ARGS */V108,VV[52],/* INLINE-ARGS */V109,VV[53],/* INLINE-ARGS */V110,list(2,VV[28],(V74))); |
V111= list(2,VV[28],(V84)); |
681 |
if(!(((V85))==((V84)))){ |
V112= list(2,VV[28],(V85)); |
682 |
|
V76= list(9,VV[41],/* INLINE-ARGS */V109,VV[51],/* INLINE-ARGS */V110,VV[52],/* INLINE-ARGS */V111,VV[53],/* INLINE-ARGS */V112,list(2,VV[28],(V76))); |
683 |
|
if(!(((V87))==((V86)))){ |
684 |
goto T260;} |
goto T260;} |
685 |
{object V111 = make_cons(VV[54],(V74)); |
{object V113 = make_cons(VV[54],(V76)); |
686 |
VMR6(V111)} |
VMR6(V113)} |
687 |
goto T260; |
goto T260; |
688 |
T260:; |
T260:; |
689 |
V112= (*(LnkLI105))((V85)); |
V114= (*(LnkLI105))((V87)); |
690 |
{object V113 = listA(4,VV[54],VV[55],/* INLINE-ARGS */V112,(V74)); |
V115 = (V76); |
691 |
VMR6(V113)}} |
{object V116 = listA(4,VV[54],VV[55],/* INLINE-ARGS */V114,V115); |
692 |
|
VMR6(V116)}} |
693 |
base[0]=base[0]; |
base[0]=base[0]; |
694 |
return Cnil; |
return Cnil; |
695 |
} |
} |
696 |
/* local entry for function CANONICALIZE-DEFCLASS-OPTION */ |
/* local entry for function CANONICALIZE-DEFCLASS-OPTION */ |
697 |
|
|
698 |
static object LI11(V116,V117) |
static object LI11(V119,V120) |
699 |
|
|
700 |
object V116;object V117; |
object V119;object V120; |
701 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
702 |
goto TTL; |
goto TTL; |
703 |
TTL:; |
TTL:; |
704 |
{object V118= CMPcar((V117)); |
{object V121= CMPcar((V120)); |
705 |
if((V118!= VV[106]))goto T262; |
if((V121!= VV[106]))goto T262; |
706 |
{register object V119; |
{register object V122; |
707 |
V119= Cnil; |
V122= Cnil; |
708 |
{register object V120; |
{register object V123; |
709 |
register object V121; |
register object V124; |
710 |
register object V122; |
register object V125; |
711 |
V122= CMPcdr((V117)); |
V125= CMPcdr((V120)); |
712 |
V120= Cnil; |
V123= Cnil; |
713 |
V121= Cnil; |
V124= Cnil; |
714 |
goto T266; |
goto T266; |
715 |
T266:; |
T266:; |
716 |
if(((V122))!=Cnil){ |
if(((V125))!=Cnil){ |
717 |
goto T268;} |
goto T268;} |
718 |
goto T264; |
goto T264; |
719 |
goto T268; |
goto T268; |
720 |
T268:; |
T268:; |
721 |
{register object V123; |
{register object V126; |
722 |
V123= CMPcar((V122)); |
V126= CMPcar((V125)); |
723 |
V122= CMPcdr((V122)); |
V125= CMPcdr((V125)); |
724 |
V120= (V123);} |
V123= (V126);} |
725 |
{register object V124; |
{register object V127; |
726 |
V124= CMPcar((V122)); |
V127= CMPcar((V125)); |
727 |
V122= CMPcdr((V122)); |
V125= CMPcdr((V125)); |
728 |
V121= (V124);} |
V124= (V127);} |
729 |
{register object V125; |
{register object V128; |
730 |
V126= list(2,VV[28],(V120)); |
V129= list(2,VV[28],(V123)); |
731 |
V127= (*(LnkLI105))((V121)); |
V130= (*(LnkLI105))((V124)); |
732 |
V125= list(4,VV[29],/* INLINE-ARGS */V126,/* INLINE-ARGS */V127,list(2,VV[28],(V121))); |
V128= list(4,VV[29],/* INLINE-ARGS */V129,/* INLINE-ARGS */V130,list(2,VV[28],(V124))); |
733 |
V119= make_cons((V125),(V119));} |
V122= make_cons((V128),(V122));} |
734 |
goto T266; |
goto T266; |
735 |
goto T264; |
goto T264; |
736 |
T264:; |
T264:; |
737 |
V128= nreverse((V119)); |
V131= nreverse((V122)); |
738 |
{object V129 = list(2,VV[56],make_cons(VV[29],/* INLINE-ARGS */V128)); |
{object V132 = list(2,VV[56],make_cons(VV[29],/* INLINE-ARGS */V131)); |
739 |
VMR7(V129)}}} |
VMR7(V132)}}} |
740 |
goto T262; |
goto T262; |
741 |
T262:; |
T262:; |
742 |
V130= list(2,VV[28],CMPcar((V117))); |
V133= list(2,VV[28],CMPcar((V120))); |
743 |
{object V131 = list(2,/* INLINE-ARGS */V130,list(2,VV[28],CMPcdr((V117)))); |
{object V134 = list(2,/* INLINE-ARGS */V133,list(2,VV[28],CMPcdr((V120)))); |
744 |
VMR7(V131)}} |
VMR7(V134)}} |
745 |
base[0]=base[0]; |
base[0]=base[0]; |
746 |
return Cnil; |
return Cnil; |
747 |
} |
} |
748 |
/* local entry for function EARLY-CLASS-DEFINITION */ |
/* local entry for function EARLY-CLASS-DEFINITION */ |
749 |
|
|
750 |
static object LI12(V133) |
static object LI12(V136) |
751 |
|
|
752 |
object V133; |
object V136; |
753 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
754 |
goto TTL; |
goto TTL; |
755 |
TTL:;{object V134; |
TTL:;{object V137; |
756 |
base[0]= (V133); |
base[0]= (V136); |
757 |
base[1]= (VV[57]->s.s_dbind); |
base[1]= (VV[57]->s.s_dbind); |
758 |
base[2]= VV[58]; |
base[2]= VV[58]; |
759 |
base[3]= (VV[107]->s.s_gfdef); |
base[3]= (VV[107]->s.s_gfdef); |
760 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
761 |
(void) (*Lnk108)(); |
(void) (*Lnk108)(); |
762 |
vs_top=sup; |
vs_top=sup; |
763 |
V134= vs_base[0]; |
V137= vs_base[0]; |
764 |
if(V134==Cnil)goto T284; |
if(V137==Cnil)goto T284; |
765 |
{object V135 = V134; |
{object V138 = V137; |
766 |
VMR8(V135)} |
VMR8(V138)} |
767 |
goto T284; |
goto T284; |
768 |
T284:;} |
T284:;} |
769 |
base[0]= VV[59]; |
base[0]= VV[59]; |
770 |
base[1]= (V133); |
base[1]= (V136); |
771 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
772 |
Lerror(); |
Lerror(); |
773 |
vs_top=sup; |
vs_top=sup; |
774 |
{object V136 = vs_base[0]; |
{object V139 = vs_base[0]; |
775 |
VMR8(V136)} |
VMR8(V139)} |
776 |
base[0]=base[0]; |
base[0]=base[0]; |
777 |
return Cnil; |
return Cnil; |
778 |
} |
} |
779 |
/* local entry for function MAKE-EARLY-CLASS-DEFINITION */ |
/* local entry for function MAKE-EARLY-CLASS-DEFINITION */ |
780 |
|
|
781 |
static object LI13(V143,V144,V145,V146,V147,V148) |
static object LI13(V146,V147,V148,V149,V150,V151) |
782 |
|
|
783 |
object V143;object V144;object V145;object V146;object V147;object V148; |
object V146;object V147;object V148;object V149;object V150;object V151; |
784 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
785 |
goto TTL; |
goto TTL; |
786 |
TTL:; |
TTL:; |
787 |
{object V149 = list(7,VV[60],(V143),(V144),(V145),(V146),(V147),(V148)); |
{object V152 = list(7,VV[60],(V146),(V147),(V148),(V149),(V150),(V151)); |
788 |
VMR9(V149)} |
VMR9(V152)} |
789 |
return Cnil; |
return Cnil; |
790 |
} |
} |
791 |
/* local entry for function ECD-CLASS-NAME */ |
/* local entry for function ECD-CLASS-NAME */ |
792 |
|
|
793 |
static object LI14(V151) |
static object LI14(V154) |
794 |
|
|
795 |
object V151; |
object V154; |
796 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
797 |
goto TTL; |
goto TTL; |
798 |
TTL:; |
TTL:; |
799 |
{object V152 = CMPcadr((V151)); |
{object V155 = CMPcadr((V154)); |
800 |
VMR10(V152)} |
VMR10(V155)} |
801 |
return Cnil; |
return Cnil; |
802 |
} |
} |
803 |
/* local entry for function ECD-SOURCE */ |
/* local entry for function ECD-SOURCE */ |
804 |
|
|
805 |
static object LI15(V154) |
static object LI15(V157) |
806 |
|
|
807 |
object V154; |
object V157; |
808 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
809 |
goto TTL; |
goto TTL; |
810 |
TTL:; |
TTL:; |
811 |
{object V155 = CMPcaddr((V154)); |
{object V158 = CMPcaddr((V157)); |
812 |
VMR11(V155)} |
VMR11(V158)} |
813 |
return Cnil; |
return Cnil; |
814 |
} |
} |
815 |
/* local entry for function ECD-METACLASS */ |
/* local entry for function ECD-METACLASS */ |
816 |
|
|
817 |
static object LI16(V157) |
static object LI16(V160) |
818 |
|
|
819 |
object V157; |
object V160; |
820 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
821 |
goto TTL; |
goto TTL; |
822 |
TTL:; |
TTL:; |
823 |
{object V158 = CMPcadddr((V157)); |
{object V161 = CMPcadddr((V160)); |
824 |
VMR12(V158)} |
VMR12(V161)} |
825 |
return Cnil; |
return Cnil; |
826 |
} |
} |
827 |
/* local entry for function ECD-SUPERCLASS-NAMES */ |
/* local entry for function ECD-SUPERCLASS-NAMES */ |
828 |
|
|
829 |
static object LI17(V160) |
static object LI17(V163) |
830 |
|
|
831 |
object V160; |
object V163; |
832 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
833 |
goto TTL; |
goto TTL; |
834 |
TTL:; |
TTL:; |
835 |
{object V161 = CMPcar(CMPcddddr((V160))); |
{object V164 = CMPcar(CMPcddddr((V163))); |
836 |
VMR13(V161)} |
VMR13(V164)} |
837 |
return Cnil; |
return Cnil; |
838 |
} |
} |
839 |
/* local entry for function ECD-CANONICAL-SLOTS */ |
/* local entry for function ECD-CANONICAL-SLOTS */ |
840 |
|
|
841 |
static object LI18(V163) |
static object LI18(V166) |
842 |
|
|
843 |
object V163; |
object V166; |
844 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
845 |
goto TTL; |
goto TTL; |
846 |
TTL:; |
TTL:; |
847 |
{object V164 = CMPcadr(CMPcddddr((V163))); |
{object V167 = CMPcadr(CMPcddddr((V166))); |
848 |
VMR14(V164)} |
VMR14(V167)} |
849 |
return Cnil; |
return Cnil; |
850 |
} |
} |
851 |
/* local entry for function ECD-OTHER-INITARGS */ |
/* local entry for function ECD-OTHER-INITARGS */ |
852 |
|
|
853 |
static object LI19(V166) |
static object LI19(V169) |
854 |
|
|
855 |
object V166; |
object V169; |
856 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
857 |
goto TTL; |
goto TTL; |
858 |
TTL:; |
TTL:; |
859 |
{object V167 = CMPcaddr(CMPcddddr((V166))); |
{object V170 = CMPcaddr(CMPcddddr((V169))); |
860 |
VMR15(V167)} |
VMR15(V170)} |
861 |
return Cnil; |
return Cnil; |
862 |
} |
} |
863 |
/* local entry for function CANONICAL-SLOT-NAME */ |
/* local entry for function CANONICAL-SLOT-NAME */ |
864 |
|
|
865 |
static object LI20(V169) |
static object LI20(V172) |
866 |
|
|
867 |
object V169; |
object V172; |
868 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
869 |
goto TTL; |
goto TTL; |
870 |
TTL:; |
TTL:; |
871 |
base[0]= (V169); |
base[0]= (V172); |
872 |
base[1]= VV[41]; |
base[1]= VV[41]; |
873 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
874 |
Lgetf(); |
Lgetf(); |
875 |
vs_top=sup; |
vs_top=sup; |
876 |
{object V170 = vs_base[0]; |
{object V173 = vs_base[0]; |
877 |
VMR16(V170)} |
VMR16(V173)} |
878 |
base[0]=base[0]; |
base[0]=base[0]; |
879 |
return Cnil; |
return Cnil; |
880 |
} |
} |
881 |
/* local entry for function EARLY-CLASS-SLOTS */ |
/* local entry for function EARLY-CLASS-SLOTS */ |
882 |
|
|
883 |
static object LI21(V172) |
static object LI21(V175) |
884 |
|
|
885 |
object V172; |
object V175; |
886 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
887 |
goto TTL; |
goto TTL; |
888 |
TTL:;{object V174; |
TTL:;{object V177; |
889 |
{register object x= (V172),V175= (VV[61]->s.s_dbind); |
{register object x= (V175),V178= (VV[61]->s.s_dbind); |
890 |
while(V175!=Cnil) |
while(V178!=Cnil) |
891 |
if(eql(x,V175->c.c_car->c.c_car) &&V175->c.c_car != Cnil){ |
if(eql(x,V178->c.c_car->c.c_car) &&V178->c.c_car != Cnil){ |
892 |
V174= (V175->c.c_car); |
V177= (V178->c.c_car); |
893 |
goto T296; |
goto T296; |
894 |
}else V175=V175->c.c_cdr; |
}else V178=V178->c.c_cdr; |
895 |
V174= Cnil;} |
V177= Cnil;} |
896 |
goto T296; |
goto T296; |
897 |
T296:; |
T296:; |
898 |
if(V174==Cnil)goto T295; |
if(V177==Cnil)goto T295; |
899 |
V173= V174; |
V176= V177; |
900 |
goto T294; |
goto T294; |
901 |
goto T295; |
goto T295; |
902 |
T295:;} |
T295:;} |
903 |
{object V176; |
{object V179; |
904 |
base[1]= (V172); |
V180 = (V175); |
905 |
|
base[1]= (V175); |
906 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
907 |
(void) (*Lnk109)(); |
(void) (*Lnk109)(); |
908 |
vs_top=sup; |
vs_top=sup; |
909 |
V180= vs_base[0]; |
V184= vs_base[0]; |
910 |
{object V178; |
{object V182; |
911 |
object V179= V180; |
object V183= V184; |
912 |
if(V179==Cnil){ |
if(V183==Cnil){ |
913 |
V177= Cnil; |
V181= Cnil; |
914 |
goto T298;} |
goto T298;} |
915 |
base[0]=V178=MMcons(Cnil,Cnil); |
base[0]=V182=MMcons(Cnil,Cnil); |
916 |
goto T299; |
goto T299; |
917 |
T299:; |
T299:; |
918 |
(V178->c.c_car)= (*(LnkLI110))((V179->c.c_car)); |
(V182->c.c_car)= (*(LnkLI110))((V183->c.c_car)); |
919 |
if((V179=MMcdr(V179))==Cnil){ |
if((V183=MMcdr(V183))==Cnil){ |
920 |
V177= base[0]; |
V181= base[0]; |
921 |
goto T298;} |
goto T298;} |
922 |
V178=MMcdr(V178)=MMcons(Cnil,Cnil); |
V182=MMcdr(V182)=MMcons(Cnil,Cnil); |
923 |
goto T299;} |
goto T299;} |
924 |
goto T298; |
goto T298; |
925 |
T298:; |
T298:; |
926 |
V176= make_cons((V172),V177); |
V179= make_cons(V180,V181); |
927 |
(VV[61]->s.s_dbind)= make_cons(V176,(VV[61]->s.s_dbind)); |
(VV[61]->s.s_dbind)= make_cons(V179,(VV[61]->s.s_dbind)); |
928 |
V173= (V176);} |
V176= (V179);} |
929 |
goto T294; |
goto T294; |
930 |
T294:; |
T294:; |
931 |
{object V182 = CMPcdr(V173); |
{object V186 = CMPcdr(V176); |
932 |
VMR17(V182)} |
VMR17(V186)} |
933 |
base[0]=base[0]; |
base[0]=base[0]; |
934 |
return Cnil; |
return Cnil; |
935 |
} |
} |
936 |
/* local entry for function EARLY-CLASS-SIZE */ |
/* local entry for function EARLY-CLASS-SIZE */ |
937 |
|
|
938 |
static object LI22(V184) |
static object LI22(V188) |
939 |
|
|
940 |
object V184; |
object V188; |
941 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
942 |
goto TTL; |
goto TTL; |
943 |
TTL:; |
TTL:; |
944 |
V185= (*(LnkLI111))((V184)); |
V189= (*(LnkLI111))((V188)); |
945 |
{long V186 = (long)length(/* INLINE-ARGS */V185); |
{long V190 = (long)length(/* INLINE-ARGS */V189); |
946 |
VMR18((object)V186)} |
VMR18((object)V190)} |
947 |
} |
} |
948 |
/* function definition for EARLY-COLLECT-INHERITANCE */ |
/* function definition for EARLY-COLLECT-INHERITANCE */ |
949 |
|
|
951 |
{register object *base=vs_base; |
{register object *base=vs_base; |
952 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
953 |
vs_check; |
vs_check; |
954 |
{register object V187; |
{register object V191; |
955 |
check_arg(1); |
check_arg(1); |
956 |
V187=(base[0]); |
V191=(base[0]); |
957 |
vs_top=sup; |
vs_top=sup; |
958 |
goto TTL; |
goto TTL; |
959 |
TTL:; |
TTL:; |
960 |
{object V188; |
{object V192; |
961 |
V188= (*(LnkLI112))((V187)); |
V192= (*(LnkLI112))((V191)); |
962 |
base[1]= (*(LnkLI113))((V188)); |
base[1]= (*(LnkLI113))((V192)); |
963 |
base[2]= (V188); |
base[2]= (V192); |
964 |
base[3]= (*(LnkLI114))((V188)); |
base[3]= (*(LnkLI114))((V192)); |
965 |
{register object V189; |
{register object V193; |
966 |
register object V190; |
register object V194; |
967 |
V189= Cnil; |
V193= Cnil; |
968 |
V190= Cnil; |
V194= Cnil; |
969 |
{register object V191; |
{register object V195; |
970 |
register object V192; |
register object V196; |
971 |
V191= (VV[57]->s.s_dbind); |
V195= (VV[57]->s.s_dbind); |
972 |
V192= CMPcar((V191)); |
V196= CMPcar((V195)); |
973 |
goto T316; |
goto T316; |
974 |
T316:; |
T316:; |
975 |
if(!(((V191))==Cnil)){ |
if(!(((V195))==Cnil)){ |
976 |
goto T317;} |
goto T317;} |
977 |
goto T312; |
goto T312; |
978 |
goto T317; |
goto T317; |
979 |
T317:; |
T317:; |
980 |
V194= (*(LnkLI115))((V192)); |
V198 = (V191); |
981 |
{register object x= (V187),V193= /* INLINE-ARGS */V194; |
V199= (*(LnkLI115))((V196)); |
982 |
while(V193!=Cnil) |
{register object x= V198,V197= /* INLINE-ARGS */V199; |
983 |
if(x==(V193->c.c_car)){ |
while(V197!=Cnil) |
984 |
|
if(x==(V197->c.c_car)){ |
985 |
goto T323; |
goto T323; |
986 |
}else V193=V193->c.c_cdr; |
}else V197=V197->c.c_cdr; |
987 |
goto T321;} |
goto T321;} |
988 |
goto T323; |
goto T323; |
989 |
T323:; |
T323:; |
990 |
{register object V195; |
{register object V200; |
991 |
V195= (*(LnkLI107))((V192)); |
V200= (*(LnkLI107))((V196)); |
992 |
if(((V189))!=Cnil){ |
if(((V193))!=Cnil){ |
993 |
goto T326;} |
goto T326;} |
994 |
V190= make_cons((V195),Cnil); |
V194= make_cons((V200),Cnil); |
995 |
V189= (V190); |
V193= (V194); |
996 |
goto T321; |
goto T321; |
997 |
goto T326; |
goto T326; |
998 |
T326:; |
T326:; |
999 |
V197= make_cons((V195),Cnil); |
V202= make_cons((V200),Cnil); |
1000 |
((V190))->c.c_cdr = /* INLINE-ARGS */V197; |
((V194))->c.c_cdr = /* INLINE-ARGS */V202; |
1001 |
V196= (V190); |
V201= (V194); |
1002 |
V190= CMPcdr(V196);} |
V194= CMPcdr(V201);} |
1003 |
goto T321; |
goto T321; |
1004 |
T321:; |
T321:; |
1005 |
V191= CMPcdr((V191)); |
V195= CMPcdr((V195)); |
1006 |
V192= CMPcar((V191)); |
V196= CMPcar((V195)); |
1007 |
goto T316;} |
goto T316;} |
1008 |
goto T312; |
goto T312; |
1009 |
T312:; |
T312:; |
1010 |
base[4]= (V189);} |
base[4]= (V193);} |
1011 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1012 |
return;} |
return;} |
1013 |
} |
} |
1014 |
} |
} |
1015 |
/* local entry for function EARLY-COLLECT-SLOTS */ |
/* local entry for function EARLY-COLLECT-SLOTS */ |
1016 |
|
|
1017 |
static object LI24(V199) |
static object LI24(V204) |
1018 |
|
|
1019 |
object V199; |
object V204; |
1020 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1021 |
goto TTL; |
goto TTL; |
1022 |
TTL:; |
TTL:; |
1023 |
{object V200; |
{object V205; |
1024 |
object V201; |
object V206; |
1025 |
register object V202; |
register object V207; |
1026 |
{object V203; |
{object V208; |
1027 |
object V204= (V199); |
object V209= (V204); |
1028 |
if(V204==Cnil){ |
if(V209==Cnil){ |
1029 |
V200= Cnil; |
V205= Cnil; |
1030 |
goto T337;} |
goto T337;} |
1031 |
base[3]=V203=MMcons(Cnil,Cnil); |
base[3]=V208=MMcons(Cnil,Cnil); |
1032 |
goto T338; |
goto T338; |
1033 |
T338:; |
T338:; |
1034 |
(V203->c.c_car)= (*(LnkLI60))((V204->c.c_car)); |
(V208->c.c_car)= (*(LnkLI60))((V209->c.c_car)); |
1035 |
if((V204=MMcdr(V204))==Cnil){ |
if((V209=MMcdr(V209))==Cnil){ |
1036 |
V200= base[3]; |
V205= base[3]; |
1037 |
goto T337;} |
goto T337;} |
1038 |
V203=MMcdr(V203)=MMcons(Cnil,Cnil); |
V208=MMcdr(V208)=MMcons(Cnil,Cnil); |
1039 |
goto T338;} |
goto T338;} |
1040 |
goto T337; |
goto T337; |
1041 |
T337:; |
T337:; |
1042 |
{object V205; |
{object V210; |
1043 |
object V206= (V200); |
object V211= (V205); |
1044 |
if(V206==Cnil){ |
if(V211==Cnil){ |
1045 |
V201= Cnil; |
V206= Cnil; |
1046 |
goto T340;} |
goto T340;} |
1047 |
base[3]=V205=MMcons(Cnil,Cnil); |
base[3]=V210=MMcons(Cnil,Cnil); |
1048 |
goto T341; |
goto T341; |
1049 |
T341:; |
T341:; |
1050 |
(V205->c.c_car)= (*(LnkLI116))((V206->c.c_car)); |
(V210->c.c_car)= (*(LnkLI116))((V211->c.c_car)); |
1051 |
if((V206=MMcdr(V206))==Cnil){ |
if((V211=MMcdr(V211))==Cnil){ |
1052 |
V201= base[3]; |
V206= base[3]; |
1053 |
goto T340;} |
goto T340;} |
1054 |
V205=MMcdr(V205)=MMcons(Cnil,Cnil); |
V210=MMcdr(V210)=MMcons(Cnil,Cnil); |
1055 |
goto T341;} |
goto T341;} |
1056 |
goto T340; |
goto T340; |
1057 |
T340:; |
T340:; |
1058 |
{object V207; |
{object V212; |
1059 |
V207= reverse((V201)); |
V212= reverse((V206)); |
1060 |
vs_top=base+3; |
vs_top=base+3; |
1061 |
while(V207!=Cnil) |
while(V212!=Cnil) |
1062 |
{vs_push((V207)->c.c_car);V207=(V207)->c.c_cdr;} |
{vs_push((V212)->c.c_car);V212=(V212)->c.c_cdr;} |
1063 |
vs_base=base+3;} |
vs_base=base+3;} |
1064 |
Lappend(); |
Lappend(); |
1065 |
vs_top=sup; |
vs_top=sup; |
1066 |
V202= vs_base[0]; |
V207= vs_base[0]; |
1067 |
{register object V208; |
{register object V213; |
1068 |
register object V209; |
register object V214; |
1069 |
V208= (V202); |
V213= (V207); |
1070 |
V209= CMPcar((V208)); |
V214= CMPcar((V213)); |
1071 |
goto T349; |
goto T349; |
1072 |
T349:; |
T349:; |
1073 |
if(!(((V208))==Cnil)){ |
if(!(((V213))==Cnil)){ |
1074 |
goto T350;} |
goto T350;} |
1075 |
goto T345; |
goto T345; |
1076 |
goto T350; |
goto T350; |
1077 |
T350:; |
T350:; |
1078 |
{register object V210; |
{register object V215; |
1079 |
V210= (*(LnkLI110))((V209)); |
V215= (*(LnkLI110))((V214)); |
1080 |
{register object V211; |
{register object V216; |
1081 |
register object V212; |
register object V217; |
1082 |
{register object x= (V209),V214= (V202); |
{register object x= (V214),V219= (V207); |
1083 |
while(V214!=Cnil) |
while(V219!=Cnil) |
1084 |
if(x==(V214->c.c_car)){ |
if(x==(V219->c.c_car)){ |
1085 |
V213= V214; |
V218= V219; |
1086 |
goto T357; |
goto T357; |
1087 |
}else V214=V214->c.c_cdr; |
}else V219=V219->c.c_cdr; |
1088 |
V213= Cnil;} |
V218= Cnil;} |
1089 |
goto T357; |
goto T357; |
1090 |
T357:; |
T357:; |
1091 |
V211= CMPcdr(V213); |
V216= CMPcdr(V218); |
1092 |
V212= CMPcar((V211)); |
V217= CMPcar((V216)); |
1093 |
goto T360; |
goto T360; |
1094 |
T360:; |
T360:; |
1095 |
if(!(((V211))==Cnil)){ |
if(!(((V216))==Cnil)){ |
1096 |
goto T361;} |
goto T361;} |
1097 |
goto T354; |
goto T354; |
1098 |
goto T361; |
goto T361; |
1099 |
T361:; |
T361:; |
1100 |
V215= (*(LnkLI110))((V212)); |
V220 = (V215); |
1101 |
if(!(((V210))==(/* INLINE-ARGS */V215))){ |
V221= (*(LnkLI110))((V217)); |
1102 |
|
if(!((V220)==(/* INLINE-ARGS */V221))){ |
1103 |
goto T365;} |
goto T365;} |
1104 |
base[6]= VV[62]; |
base[6]= VV[62]; |
1105 |
base[7]= (V210); |
base[7]= (V215); |
1106 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1107 |
Lerror(); |
Lerror(); |
1108 |
vs_top=sup; |
vs_top=sup; |
1109 |
goto T365; |
goto T365; |
1110 |
T365:; |
T365:; |
1111 |
V211= CMPcdr((V211)); |
V216= CMPcdr((V216)); |
1112 |
V212= CMPcar((V211)); |
V217= CMPcar((V216)); |
1113 |
goto T360;}} |
goto T360;}} |
1114 |
goto T354; |
goto T354; |
1115 |
T354:; |
T354:; |
1116 |
V208= CMPcdr((V208)); |
V213= CMPcdr((V213)); |
1117 |
V209= CMPcar((V208)); |
V214= CMPcar((V213)); |
1118 |
goto T349;} |
goto T349;} |
1119 |
goto T345; |
goto T345; |
1120 |
T345:; |
T345:; |
1121 |
{object V216 = (V202); |
{object V222 = (V207); |
1122 |
VMR20(V216)}} |
VMR20(V222)}} |
1123 |
base[0]=base[0]; |
base[0]=base[0]; |
1124 |
return Cnil; |
return Cnil; |
1125 |
} |
} |
1126 |
/* local entry for function EARLY-COLLECT-CPL */ |
/* local entry for function EARLY-COLLECT-CPL */ |
1127 |
|
|
1128 |
static object LI25(V218) |
static object LI25(V224) |
1129 |
|
|
1130 |
object V218; |
object V224; |
1131 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1132 |
goto TTL; |
goto TTL; |
1133 |
TTL:; |
TTL:; |
1134 |
base[1]= (V218); |
base[1]= (V224); |
1135 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1136 |
L26(base); |
L26(base); |
1137 |
vs_top=sup; |
vs_top=sup; |
1143 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
1144 |
(void) (*Lnk118)(); |
(void) (*Lnk118)(); |
1145 |
vs_top=sup; |
vs_top=sup; |
1146 |
{object V219 = vs_base[0]; |
{object V225 = vs_base[0]; |
1147 |
VMR21(V219)} |
VMR21(V225)} |
1148 |
base[0]=base[0]; |
base[0]=base[0]; |
1149 |
return Cnil; |
return Cnil; |
1150 |
} |
} |
1151 |
/* local entry for function EARLY-COLLECT-DEFAULT-INITARGS */ |
/* local entry for function EARLY-COLLECT-DEFAULT-INITARGS */ |
1152 |
|
|
1153 |
static object LI27(V221) |
static object LI27(V227) |
1154 |
|
|
1155 |
object V221; |
object V227; |
1156 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
1157 |
goto TTL; |
goto TTL; |
1158 |
TTL:; |
TTL:; |
1159 |
{register object V222; |
{register object V228; |
1160 |
V222= Cnil; |
V228= Cnil; |
1161 |
{register object V223; |
{register object V229; |
1162 |
object V224; |
object V230; |
1163 |
V223= (V221); |
V229= (V227); |
1164 |
V224= CMPcar((V223)); |
V230= CMPcar((V229)); |
1165 |
goto T390; |
goto T390; |
1166 |
T390:; |
T390:; |
1167 |
if(!(((V223))==Cnil)){ |
if(!(((V229))==Cnil)){ |
1168 |
goto T391;} |
goto T391;} |
1169 |
goto T386; |
goto T386; |
1170 |
goto T391; |
goto T391; |
1171 |
T391:; |
T391:; |
1172 |
{object V225; |
{object V231; |
1173 |
register object V226; |
register object V232; |
1174 |
V225= (*(LnkLI60))((V224)); |
V231= (*(LnkLI60))((V230)); |
1175 |
V226= (*(LnkLI119))((V225)); |
V232= (*(LnkLI119))((V231)); |
1176 |
goto T399; |
goto T399; |
1177 |
T399:; |
T399:; |
1178 |
if(((V226))!=Cnil){ |
if(((V232))!=Cnil){ |
1179 |
goto T401;} |
goto T401;} |
1180 |
goto T395; |
goto T395; |
1181 |
goto T401; |
goto T401; |
1182 |
T401:; |
T401:; |
1183 |
{register object V227; |
{register object V233; |
1184 |
{register object V228; |
{register object V234; |
1185 |
V228= CMPcar((V226)); |
V234= CMPcar((V232)); |
1186 |
V226= CMPcdr((V226)); |
V232= CMPcdr((V232)); |
1187 |
V227= (V228);} |
V233= (V234);} |
1188 |
if(((V227))==(VV[65])){ |
if(((V233))==(VV[65])){ |
1189 |
goto T404;} |
goto T404;} |
1190 |
base[3]= VV[66]; |
base[3]= VV[66]; |
1191 |
base[4]= (V227); |
base[4]= (V233); |
1192 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1193 |
Lerror(); |
Lerror(); |
1194 |
vs_top=sup;} |
vs_top=sup;} |
1195 |
goto T404; |
goto T404; |
1196 |
T404:; |
T404:; |
1197 |
{register object V230; |
{register object V236; |
1198 |
V230= CMPcar((V226)); |
V236= CMPcar((V232)); |
1199 |
V226= CMPcdr((V226)); |
V232= CMPcdr((V232)); |
1200 |
V229= (V230);} |
V235= (V236);} |
1201 |
V231= reverse(V229); |
V237= reverse(V235); |
1202 |
V222= nconc((V222),/* INLINE-ARGS */V231); |
V228= nconc((V228),/* INLINE-ARGS */V237); |
1203 |
goto T399;} |
goto T399;} |
1204 |
goto T395; |
goto T395; |
1205 |
T395:; |
T395:; |
1206 |
V223= CMPcdr((V223)); |
V229= CMPcdr((V229)); |
1207 |
V224= CMPcar((V223)); |
V230= CMPcar((V229)); |
1208 |
goto T390;} |
goto T390;} |
1209 |
goto T386; |
goto T386; |
1210 |
T386:; |
T386:; |
1211 |
{object V232 = reverse((V222)); |
{object V238 = reverse((V228)); |
1212 |
VMR22(V232)}} |
VMR22(V238)}} |
1213 |
base[0]=base[0]; |
base[0]=base[0]; |
1214 |
return Cnil; |
return Cnil; |
1215 |
} |
} |
1216 |
/* local entry for function BOOTSTRAP-SLOT-INDEX */ |
/* local entry for function BOOTSTRAP-SLOT-INDEX */ |
1217 |
|
|
1218 |
static object LI28(V235,V236) |
static object LI28(V241,V242) |
1219 |
|
|
1220 |
object V235;object V236; |
object V241;object V242; |
1221 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1222 |
goto TTL; |
goto TTL; |
1223 |
TTL:;{object V237; |
TTL:;{object V243; |
1224 |
base[0]= (V236); |
base[0]= (V242); |
1225 |
base[1]= (*(LnkLI111))((V235)); |
base[1]= (*(LnkLI111))((V241)); |
1226 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1227 |
(void) (*Lnk120)(); |
(void) (*Lnk120)(); |
1228 |
vs_top=sup; |
vs_top=sup; |
1229 |
V237= vs_base[0]; |
V243= vs_base[0]; |
1230 |
if(V237==Cnil)goto T424; |
if(V243==Cnil)goto T424; |
1231 |
{object V238 = V237; |
{object V244 = V243; |
1232 |
VMR23(V238)} |
VMR23(V244)} |
1233 |
goto T424; |
goto T424; |
1234 |
T424:;} |
T424:;} |
1235 |
base[0]= VV[67]; |
base[0]= VV[67]; |
1236 |
base[1]= (V236); |
base[1]= (V242); |
1237 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1238 |
Lerror(); |
Lerror(); |
1239 |
vs_top=sup; |
vs_top=sup; |
1240 |
{object V239 = vs_base[0]; |
{object V245 = vs_base[0]; |
1241 |
VMR23(V239)} |
VMR23(V245)} |
1242 |
base[0]=base[0]; |
base[0]=base[0]; |
1243 |
return Cnil; |
return Cnil; |
1244 |
} |
} |
1250 |
vs_check; |
vs_check; |
1251 |
check_arg(2); |
check_arg(2); |
1252 |
vs_top=sup; |
vs_top=sup; |
1253 |
{object V240=base[0]->c.c_cdr; |
{object V246=base[0]->c.c_cdr; |
1254 |
if(endp(V240))invalid_macro_call(); |
if(endp(V246))invalid_macro_call(); |
1255 |
base[2]= (V240->c.c_car); |
base[2]= (V246->c.c_car); |
1256 |
V240=V240->c.c_cdr; |
V246=V246->c.c_cdr; |
1257 |
if(endp(V240))invalid_macro_call(); |
if(endp(V246))invalid_macro_call(); |
1258 |
base[3]= (V240->c.c_car); |
base[3]= (V246->c.c_car); |
1259 |
V240=V240->c.c_cdr; |
V246=V246->c.c_cdr; |
1260 |
if(endp(V240))invalid_macro_call(); |
if(endp(V246))invalid_macro_call(); |
1261 |
base[4]= (V240->c.c_car); |
base[4]= (V246->c.c_car); |
1262 |
V240=V240->c.c_cdr; |
V246=V246->c.c_cdr; |
1263 |
if(!endp(V240))invalid_macro_call();} |
if(!endp(V246))invalid_macro_call();} |
1264 |
V241= list(2,VV[69],base[3]); |
V247= list(2,VV[69],base[3]); |
1265 |
base[5]= list(3,VV[68],/* INLINE-ARGS */V241,list(3,VV[70],base[2],base[4])); |
base[5]= list(3,VV[68],/* INLINE-ARGS */V247,list(3,VV[70],base[2],base[4])); |
1266 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1267 |
return; |
return; |
1268 |
} |
} |
1269 |
/* local entry for function BOOTSTRAP-SET-SLOT */ |
/* local entry for function BOOTSTRAP-SET-SLOT */ |
1270 |
|
|
1271 |
static object LI30(V246,V247,V248,V249) |
static object LI30(V252,V253,V254,V255) |
1272 |
|
|
1273 |
object V246;register object V247;object V248;object V249; |
object V252;register object V253;object V254;object V255; |
1274 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1275 |
goto TTL; |
goto TTL; |
1276 |
TTL:; |
TTL:; |
1277 |
if(type_of(V247)==t_structure){ |
if(type_of(V253)==t_structure){ |
1278 |
goto T434;} |
goto T434;} |
1279 |
goto T432; |
goto T432; |
1280 |
goto T434; |
goto T434; |
1281 |
T434:; |
T434:; |
1282 |
if(!(((V247)->str.str_def)==(VV[71]))){ |
if(!(((V253)->str.str_def)==(VV[71]))){ |
1283 |
goto T432;} |
goto T432;} |
1284 |
V250= STREF(object,(V247),4); |
V256= STREF(object,(V253),4); |
1285 |
goto T430; |
goto T430; |
1286 |
goto T432; |
goto T432; |
1287 |
T432:;{object V252; |
T432:;{object V258; |
1288 |
V252= (VV[73]->s.s_dbind); |
V258= (VV[73]->s.s_dbind); |
1289 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1290 |
base[1]= (V247); |
base[1]= (V253); |
1291 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1292 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
1293 |
vs_top=sup; |
vs_top=sup; |
1294 |
V253= vs_base[0]; |
V259= vs_base[0]; |
1295 |
if(!((V252)==(CMPcar(V253)))){ |
if(!((V258)==(CMPcar(V259)))){ |
1296 |
goto T437;}} |
goto T437;}} |
1297 |
V250= CMPcar(((V247))->cc.cc_turbo[12]); |
V256= CMPcar(((V253))->cc.cc_turbo[12]); |
1298 |
goto T430; |
goto T430; |
1299 |
goto T437; |
goto T437; |
1300 |
T437:; |
T437:; |
1302 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1303 |
Lerror(); |
Lerror(); |
1304 |
vs_top=sup; |
vs_top=sup; |
1305 |
V250= vs_base[0]; |
V256= vs_base[0]; |
1306 |
goto T430; |
goto T430; |
1307 |
T430:; |
T430:; |
1308 |
V254= (*(LnkLI70))((V246),(V248)); |
V260= (*(LnkLI70))((V252),(V254)); |
1309 |
{object V255 = ((V250)->v.v_self[fix(/* INLINE-ARGS */V254)]=((V249))); |
V261 = (V255); |
1310 |
VMR25(V255)} |
{object V262 = ((V256)->v.v_self[fix(/* INLINE-ARGS */V260)]=(V261)); |
1311 |
|
VMR25(V262)} |
1312 |
base[0]=base[0]; |
base[0]=base[0]; |
1313 |
return Cnil; |
return Cnil; |
1314 |
} |
} |
1315 |
/* local entry for function EARLY-CLASS-NAME */ |
/* local entry for function EARLY-CLASS-NAME */ |
1316 |
|
|
1317 |
static object LI31(V257) |
static object LI31(V264) |
1318 |
|
|
1319 |
register object V257; |
register object V264; |
1320 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1321 |
goto TTL; |
goto TTL; |
1322 |
TTL:; |
TTL:; |
1323 |
if(type_of(V257)==t_structure){ |
if(type_of(V264)==t_structure){ |
1324 |
goto T447;} |
goto T447;} |
1325 |
goto T445; |
goto T445; |
1326 |
goto T447; |
goto T447; |
1327 |
T447:; |
T447:; |
1328 |
if(!(((V257)->str.str_def)==(VV[75]))){ |
if(!(((V264)->str.str_def)==(VV[75]))){ |
1329 |
goto T445;} |
goto T445;} |
1330 |
V258= STREF(object,(V257),4); |
V265= STREF(object,(V264),4); |
1331 |
goto T443; |
goto T443; |
1332 |
goto T445; |
goto T445; |
1333 |
T445:;{object V260; |
T445:;{object V267; |
1334 |
V260= (VV[73]->s.s_dbind); |
V267= (VV[73]->s.s_dbind); |
1335 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1336 |
base[1]= (V257); |
base[1]= (V264); |
1337 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1338 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
1339 |
vs_top=sup; |
vs_top=sup; |
1340 |
V261= vs_base[0]; |
V268= vs_base[0]; |
1341 |
if(!((V260)==(CMPcar(V261)))){ |
if(!((V267)==(CMPcar(V268)))){ |
1342 |
goto T450;}} |
goto T450;}} |
1343 |
V258= CMPcar(((V257))->cc.cc_turbo[12]); |
V265= CMPcar(((V264))->cc.cc_turbo[12]); |
1344 |
goto T443; |
goto T443; |
1345 |
goto T450; |
goto T450; |
1346 |
T450:; |
T450:; |
1348 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1349 |
Lerror(); |
Lerror(); |
1350 |
vs_top=sup; |
vs_top=sup; |
1351 |
V258= vs_base[0]; |
V265= vs_base[0]; |
1352 |
goto T443; |
goto T443; |
1353 |
T443:; |
T443:; |
1354 |
V262= (*(LnkLI70))(VV[76],VV[77]); |
V269= (*(LnkLI70))(VV[76],VV[77]); |
1355 |
{object V263 = (V258)->v.v_self[fix(/* INLINE-ARGS */V262)]; |
{object V270 = (V265)->v.v_self[fix(/* INLINE-ARGS */V269)]; |
1356 |
VMR26(V263)} |
VMR26(V270)} |
1357 |
base[0]=base[0]; |
base[0]=base[0]; |
1358 |
return Cnil; |
return Cnil; |
1359 |
} |
} |
1360 |
/* local entry for function EARLY-CLASS-PRECEDENCE-LIST */ |
/* local entry for function EARLY-CLASS-PRECEDENCE-LIST */ |
1361 |
|
|
1362 |
static object LI32(V265) |
static object LI32(V272) |
1363 |
|
|
1364 |
register object V265; |
register object V272; |
1365 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1366 |
goto TTL; |
goto TTL; |
1367 |
TTL:; |
TTL:; |
1368 |
if(type_of(V265)==t_structure){ |
if(type_of(V272)==t_structure){ |
1369 |
goto T460;} |
goto T460;} |
1370 |
goto T458; |
goto T458; |
1371 |
goto T460; |
goto T460; |
1372 |
T460:; |
T460:; |
1373 |
if(!(((V265)->str.str_def)==(VV[78]))){ |
if(!(((V272)->str.str_def)==(VV[78]))){ |
1374 |
goto T458;} |
goto T458;} |
1375 |
V266= STREF(object,(V265),4); |
V273= STREF(object,(V272),4); |
1376 |
goto T456; |
goto T456; |
1377 |
goto T458; |
goto T458; |
1378 |
T458:;{object V268; |
T458:;{object V275; |
1379 |
V268= (VV[73]->s.s_dbind); |
V275= (VV[73]->s.s_dbind); |
1380 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1381 |
base[1]= (V265); |
base[1]= (V272); |
1382 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1383 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
1384 |
vs_top=sup; |
vs_top=sup; |
1385 |
V269= vs_base[0]; |
V276= vs_base[0]; |
1386 |
if(!((V268)==(CMPcar(V269)))){ |
if(!((V275)==(CMPcar(V276)))){ |
1387 |
goto T463;}} |
goto T463;}} |
1388 |
V266= CMPcar(((V265))->cc.cc_turbo[12]); |
V273= CMPcar(((V272))->cc.cc_turbo[12]); |
1389 |
goto T456; |
goto T456; |
1390 |
goto T463; |
goto T463; |
1391 |
T463:; |
T463:; |
1393 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1394 |
Lerror(); |
Lerror(); |
1395 |
vs_top=sup; |
vs_top=sup; |
1396 |
V266= vs_base[0]; |
V273= vs_base[0]; |
1397 |
goto T456; |
goto T456; |
1398 |
T456:; |
T456:; |
1399 |
V270= (*(LnkLI70))(VV[79],VV[80]); |
V277= (*(LnkLI70))(VV[79],VV[80]); |
1400 |
{object V271 = (V266)->v.v_self[fix(/* INLINE-ARGS */V270)]; |
{object V278 = (V273)->v.v_self[fix(/* INLINE-ARGS */V277)]; |
1401 |
VMR27(V271)} |
VMR27(V278)} |
1402 |
base[0]=base[0]; |
base[0]=base[0]; |
1403 |
return Cnil; |
return Cnil; |
1404 |
} |
} |
1405 |
/* local entry for function EARLY-CLASS-NAME-OF */ |
/* local entry for function EARLY-CLASS-NAME-OF */ |
1406 |
|
|
1407 |
static object LI33(V273) |
static object LI33(V280) |
1408 |
|
|
1409 |
object V273; |
object V280; |
1410 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1411 |
goto TTL; |
goto TTL; |
1412 |
TTL:; |
TTL:; |
1413 |
V274= (*(LnkLI124))((V273)); |
V281= (*(LnkLI124))((V280)); |
1414 |
{object V275 = (*(LnkLI123))(/* INLINE-ARGS */V274); |
{object V282 = (*(LnkLI123))(/* INLINE-ARGS */V281); |
1415 |
VMR28(V275)} |
VMR28(V282)} |
1416 |
return Cnil; |
return Cnil; |
1417 |
} |
} |
1418 |
/* local entry for function EARLY-CLASS-SLOTDS */ |
/* local entry for function EARLY-CLASS-SLOTDS */ |
1419 |
|
|
1420 |
static object LI34(V277) |
static object LI34(V284) |
1421 |
|
|
1422 |
register object V277; |
register object V284; |
1423 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1424 |
goto TTL; |
goto TTL; |
1425 |
TTL:; |
TTL:; |
1426 |
if(type_of(V277)==t_structure){ |
if(type_of(V284)==t_structure){ |
1427 |
goto T473;} |
goto T473;} |
1428 |
goto T471; |
goto T471; |
1429 |
goto T473; |
goto T473; |
1430 |
T473:; |
T473:; |
1431 |
if(!(((V277)->str.str_def)==(VV[81]))){ |
if(!(((V284)->str.str_def)==(VV[81]))){ |
1432 |
goto T471;} |
goto T471;} |
1433 |
V278= STREF(object,(V277),4); |
V285= STREF(object,(V284),4); |
1434 |
goto T469; |
goto T469; |
1435 |
goto T471; |
goto T471; |
1436 |
T471:;{object V280; |
T471:;{object V287; |
1437 |
V280= (VV[73]->s.s_dbind); |
V287= (VV[73]->s.s_dbind); |
1438 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1439 |
base[1]= (V277); |
base[1]= (V284); |
1440 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1441 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
1442 |
vs_top=sup; |
vs_top=sup; |
1443 |
V281= vs_base[0]; |
V288= vs_base[0]; |
1444 |
if(!((V280)==(CMPcar(V281)))){ |
if(!((V287)==(CMPcar(V288)))){ |
1445 |
goto T476;}} |
goto T476;}} |
1446 |
V278= CMPcar(((V277))->cc.cc_turbo[12]); |
V285= CMPcar(((V284))->cc.cc_turbo[12]); |
1447 |
goto T469; |
goto T469; |
1448 |
goto T476; |
goto T476; |
1449 |
T476:; |
T476:; |
1451 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1452 |
Lerror(); |
Lerror(); |
1453 |
vs_top=sup; |
vs_top=sup; |
1454 |
V278= vs_base[0]; |
V285= vs_base[0]; |
1455 |
goto T469; |
goto T469; |
1456 |
T469:; |
T469:; |
1457 |
V282= (*(LnkLI70))(VV[82],VV[83]); |
V289= (*(LnkLI70))(VV[82],VV[83]); |
1458 |
{object V283 = (V278)->v.v_self[fix(/* INLINE-ARGS */V282)]; |
{object V290 = (V285)->v.v_self[fix(/* INLINE-ARGS */V289)]; |
1459 |
VMR29(V283)} |
VMR29(V290)} |
1460 |
base[0]=base[0]; |
base[0]=base[0]; |
1461 |
return Cnil; |
return Cnil; |
1462 |
} |
} |
1463 |
/* local entry for function EARLY-SLOT-DEFINITION-NAME */ |
/* local entry for function EARLY-SLOT-DEFINITION-NAME */ |
1464 |
|
|
1465 |
static object LI35(V285) |
static object LI35(V292) |
1466 |
|
|
1467 |
register object V285; |
register object V292; |
1468 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1469 |
goto TTL; |
goto TTL; |
1470 |
TTL:; |
TTL:; |
1471 |
if(type_of(V285)==t_structure){ |
if(type_of(V292)==t_structure){ |
1472 |
goto T486;} |
goto T486;} |
1473 |
goto T484; |
goto T484; |
1474 |
goto T486; |
goto T486; |
1475 |
T486:; |
T486:; |
1476 |
if(!(((V285)->str.str_def)==(VV[84]))){ |
if(!(((V292)->str.str_def)==(VV[84]))){ |
1477 |
goto T484;} |
goto T484;} |
1478 |
V286= STREF(object,(V285),4); |
V293= STREF(object,(V292),4); |
1479 |
goto T482; |
goto T482; |
1480 |
goto T484; |
goto T484; |
1481 |
T484:;{object V288; |
T484:;{object V295; |
1482 |
V288= (VV[73]->s.s_dbind); |
V295= (VV[73]->s.s_dbind); |
1483 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1484 |
base[1]= (V285); |
base[1]= (V292); |
1485 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1486 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
1487 |
vs_top=sup; |
vs_top=sup; |
1488 |
V289= vs_base[0]; |
V296= vs_base[0]; |
1489 |
if(!((V288)==(CMPcar(V289)))){ |
if(!((V295)==(CMPcar(V296)))){ |
1490 |
goto T489;}} |
goto T489;}} |
1491 |
V286= CMPcar(((V285))->cc.cc_turbo[12]); |
V293= CMPcar(((V292))->cc.cc_turbo[12]); |
1492 |
goto T482; |
goto T482; |
1493 |
goto T489; |
goto T489; |
1494 |
T489:; |
T489:; |
1496 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1497 |
Lerror(); |
Lerror(); |
1498 |
vs_top=sup; |
vs_top=sup; |
1499 |
V286= vs_base[0]; |
V293= vs_base[0]; |
1500 |
goto T482; |
goto T482; |
1501 |
T482:; |
T482:; |
1502 |
V290= (*(LnkLI70))(VV[85],VV[77]); |
V297= (*(LnkLI70))(VV[85],VV[77]); |
1503 |
{object V291 = (V286)->v.v_self[fix(/* INLINE-ARGS */V290)]; |
{object V298 = (V293)->v.v_self[fix(/* INLINE-ARGS */V297)]; |
1504 |
VMR30(V291)} |
VMR30(V298)} |
1505 |
base[0]=base[0]; |
base[0]=base[0]; |
1506 |
return Cnil; |
return Cnil; |
1507 |
} |
} |
1508 |
/* local entry for function EARLY-SLOT-DEFINITION-LOCATION */ |
/* local entry for function EARLY-SLOT-DEFINITION-LOCATION */ |
1509 |
|
|
1510 |
static object LI36(V293) |
static object LI36(V300) |
1511 |
|
|
1512 |
register object V293; |
register object V300; |
1513 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1514 |
goto TTL; |
goto TTL; |
1515 |
TTL:; |
TTL:; |
1516 |
if(type_of(V293)==t_structure){ |
if(type_of(V300)==t_structure){ |
1517 |
goto T499;} |
goto T499;} |
1518 |
goto T497; |
goto T497; |
1519 |
goto T499; |
goto T499; |
1520 |
T499:; |
T499:; |
1521 |
if(!(((V293)->str.str_def)==(VV[86]))){ |
if(!(((V300)->str.str_def)==(VV[86]))){ |
1522 |
goto T497;} |
goto T497;} |
1523 |
V294= STREF(object,(V293),4); |
V301= STREF(object,(V300),4); |
1524 |
goto T495; |
goto T495; |
1525 |
goto T497; |
goto T497; |
1526 |
T497:;{object V296; |
T497:;{object V303; |
1527 |
V296= (VV[73]->s.s_dbind); |
V303= (VV[73]->s.s_dbind); |
1528 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1529 |
base[1]= (V293); |
base[1]= (V300); |
1530 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1531 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
1532 |
vs_top=sup; |
vs_top=sup; |
1533 |
V297= vs_base[0]; |
V304= vs_base[0]; |
1534 |
if(!((V296)==(CMPcar(V297)))){ |
if(!((V303)==(CMPcar(V304)))){ |
1535 |
goto T502;}} |
goto T502;}} |
1536 |
V294= CMPcar(((V293))->cc.cc_turbo[12]); |
V301= CMPcar(((V300))->cc.cc_turbo[12]); |
1537 |
goto T495; |
goto T495; |
1538 |
goto T502; |
goto T502; |
1539 |
T502:; |
T502:; |
1541 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1542 |
Lerror(); |
Lerror(); |
1543 |
vs_top=sup; |
vs_top=sup; |
1544 |
V294= vs_base[0]; |
V301= vs_base[0]; |
1545 |
goto T495; |
goto T495; |
1546 |
T495:; |
T495:; |
1547 |
V298= (*(LnkLI70))(VV[85],VV[87]); |
V305= (*(LnkLI70))(VV[85],VV[87]); |
1548 |
{object V299 = (V294)->v.v_self[fix(/* INLINE-ARGS */V298)]; |
{object V306 = (V301)->v.v_self[fix(/* INLINE-ARGS */V305)]; |
1549 |
VMR31(V299)} |
VMR31(V306)} |
1550 |
base[0]=base[0]; |
base[0]=base[0]; |
1551 |
return Cnil; |
return Cnil; |
1552 |
} |
} |
1553 |
/* local entry for function EARLY-ACCESSOR-METHOD-SLOT-NAME */ |
/* local entry for function EARLY-ACCESSOR-METHOD-SLOT-NAME */ |
1554 |
|
|
1555 |
static object LI37(V301) |
static object LI37(V308) |
1556 |
|
|
1557 |
register object V301; |
register object V308; |
1558 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1559 |
goto TTL; |
goto TTL; |
1560 |
TTL:; |
TTL:; |
1561 |
if(type_of(V301)==t_structure){ |
if(type_of(V308)==t_structure){ |
1562 |
goto T512;} |
goto T512;} |
1563 |
goto T510; |
goto T510; |
1564 |
goto T512; |
goto T512; |
1565 |
T512:; |
T512:; |
1566 |
if(!(((V301)->str.str_def)==(VV[88]))){ |
if(!(((V308)->str.str_def)==(VV[88]))){ |
1567 |
goto T510;} |
goto T510;} |
1568 |
V302= STREF(object,(V301),4); |
V309= STREF(object,(V308),4); |
1569 |
goto T508; |
goto T508; |
1570 |
goto T510; |
goto T510; |
1571 |
T510:;{object V304; |
T510:;{object V311; |
1572 |
V304= (VV[73]->s.s_dbind); |
V311= (VV[73]->s.s_dbind); |
1573 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1574 |
base[1]= (V301); |
base[1]= (V308); |
1575 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1576 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
1577 |
vs_top=sup; |
vs_top=sup; |
1578 |
V305= vs_base[0]; |
V312= vs_base[0]; |
1579 |
if(!((V304)==(CMPcar(V305)))){ |
if(!((V311)==(CMPcar(V312)))){ |
1580 |
goto T515;}} |
goto T515;}} |
1581 |
V302= CMPcar(((V301))->cc.cc_turbo[12]); |
V309= CMPcar(((V308))->cc.cc_turbo[12]); |
1582 |
goto T508; |
goto T508; |
1583 |
goto T515; |
goto T515; |
1584 |
T515:; |
T515:; |
1586 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1587 |
Lerror(); |
Lerror(); |
1588 |
vs_top=sup; |
vs_top=sup; |
1589 |
V302= vs_base[0]; |
V309= vs_base[0]; |
1590 |
goto T508; |
goto T508; |
1591 |
T508:; |
T508:; |
1592 |
V306= (*(LnkLI70))(VV[89],VV[90]); |
V313= (*(LnkLI70))(VV[89],VV[90]); |
1593 |
{object V307 = (V302)->v.v_self[fix(/* INLINE-ARGS */V306)]; |
{object V314 = (V309)->v.v_self[fix(/* INLINE-ARGS */V313)]; |
1594 |
VMR32(V307)} |
VMR32(V314)} |
1595 |
base[0]=base[0]; |
base[0]=base[0]; |
1596 |
return Cnil; |
return Cnil; |
1597 |
} |
} |
1598 |
/* local entry for function EARLY-CLASS-DIRECT-SUBCLASSES */ |
/* local entry for function EARLY-CLASS-DIRECT-SUBCLASSES */ |
1599 |
|
|
1600 |
static object LI38(V309) |
static object LI38(V316) |
1601 |
|
|
1602 |
register object V309; |
register object V316; |
1603 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1604 |
goto TTL; |
goto TTL; |
1605 |
TTL:; |
TTL:; |
1606 |
if(type_of(V309)==t_structure){ |
if(type_of(V316)==t_structure){ |
1607 |
goto T525;} |
goto T525;} |
1608 |
goto T523; |
goto T523; |
1609 |
goto T525; |
goto T525; |
1610 |
T525:; |
T525:; |
1611 |
if(!(((V309)->str.str_def)==(VV[91]))){ |
if(!(((V316)->str.str_def)==(VV[91]))){ |
1612 |
goto T523;} |
goto T523;} |
1613 |
V310= STREF(object,(V309),4); |
V317= STREF(object,(V316),4); |
1614 |
goto T521; |
goto T521; |
1615 |
goto T523; |
goto T523; |
1616 |
T523:;{object V312; |
T523:;{object V319; |
1617 |
V312= (VV[73]->s.s_dbind); |
V319= (VV[73]->s.s_dbind); |
1618 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1619 |
base[1]= (V309); |
base[1]= (V316); |
1620 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1621 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
1622 |
vs_top=sup; |
vs_top=sup; |
1623 |
V313= vs_base[0]; |
V320= vs_base[0]; |
1624 |
if(!((V312)==(CMPcar(V313)))){ |
if(!((V319)==(CMPcar(V320)))){ |
1625 |
goto T528;}} |
goto T528;}} |
1626 |
V310= CMPcar(((V309))->cc.cc_turbo[12]); |
V317= CMPcar(((V316))->cc.cc_turbo[12]); |
1627 |
goto T521; |
goto T521; |
1628 |
goto T528; |
goto T528; |
1629 |
T528:; |
T528:; |
1631 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1632 |
Lerror(); |
Lerror(); |
1633 |
vs_top=sup; |
vs_top=sup; |
1634 |
V310= vs_base[0]; |
V317= vs_base[0]; |
1635 |
goto T521; |
goto T521; |
1636 |
T521:; |
T521:; |
1637 |
V314= (*(LnkLI70))(VV[76],VV[92]); |
V321= (*(LnkLI70))(VV[76],VV[92]); |
1638 |
{object V315 = (V310)->v.v_self[fix(/* INLINE-ARGS */V314)]; |
{object V322 = (V317)->v.v_self[fix(/* INLINE-ARGS */V321)]; |
1639 |
VMR33(V315)} |
VMR33(V322)} |
1640 |
base[0]=base[0]; |
base[0]=base[0]; |
1641 |
return Cnil; |
return Cnil; |
1642 |
} |
} |
1643 |
/* local entry for function LOAD-DEFCLASS */ |
/* local entry for function LOAD-DEFCLASS */ |
1644 |
|
|
1645 |
static object LI39(V322,V323,V324,V325,V326,V327) |
static object LI39(V329,V330,V331,V332,V333,V334) |
1646 |
|
|
1647 |
object V322;object V323;object V324;object V325;object V326;object V327; |
object V329;object V330;object V331;object V332;object V333;object V334; |
1648 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
1649 |
goto TTL; |
goto TTL; |
1650 |
TTL:; |
TTL:; |
1651 |
base[0]= (V324); |
base[0]= (V331); |
1652 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1653 |
Lcopy_tree(); |
Lcopy_tree(); |
1654 |
vs_top=sup; |
vs_top=sup; |
1655 |
V324= vs_base[0]; |
V331= vs_base[0]; |
1656 |
base[0]= (V325); |
base[0]= (V332); |
1657 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1658 |
Lcopy_tree(); |
Lcopy_tree(); |
1659 |
vs_top=sup; |
vs_top=sup; |
1660 |
V325= vs_base[0]; |
V332= vs_base[0]; |
1661 |
base[0]= (V326); |
base[0]= (V333); |
1662 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1663 |
Lcopy_tree(); |
Lcopy_tree(); |
1664 |
vs_top=sup; |
vs_top=sup; |
1665 |
V326= vs_base[0]; |
V333= vs_base[0]; |
1666 |
(void)((*(LnkLI100))((V327))); |
(void)((*(LnkLI100))((V334))); |
1667 |
if(!(((V323))==(VV[11]))){ |
if(!(((V330))==(VV[11]))){ |
1668 |
goto T544;} |
goto T544;} |
1669 |
(void)((*(LnkLI104))((V322))); |
(void)((*(LnkLI104))((V329))); |
1670 |
goto T544; |
goto T544; |
1671 |
T544:; |
T544:; |
1672 |
{object V328; |
{object V335; |
1673 |
object V329; |
object V336; |
1674 |
|
V337 = (V329); |
1675 |
vs_base=vs_top; |
vs_base=vs_top; |
1676 |
(void) (*Lnk126)(); |
(void) (*Lnk126)(); |
1677 |
vs_top=sup; |
vs_top=sup; |
1678 |
V330= vs_base[0]; |
V338= vs_base[0]; |
1679 |
V328= (*(LnkLI125))((V322),V330,(V323),(V324),(V325),(V326)); |
V339 = (V330); |
1680 |
base[0]= (V322); |
V340 = (V331); |
1681 |
|
V341 = (V332); |
1682 |
|
V342 = (V333); |
1683 |
|
V335= (*(LnkLI125))(V337,V338,V339,V340,V341,V342); |
1684 |
|
base[0]= (V329); |
1685 |
base[1]= (VV[57]->s.s_dbind); |
base[1]= (VV[57]->s.s_dbind); |
1686 |
base[2]= VV[58]; |
base[2]= VV[58]; |
1687 |
base[3]= (VV[107]->s.s_gfdef); |
base[3]= (VV[107]->s.s_gfdef); |
1688 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1689 |
(void) (*Lnk108)(); |
(void) (*Lnk108)(); |
1690 |
vs_top=sup; |
vs_top=sup; |
1691 |
V329= vs_base[0]; |
V336= vs_base[0]; |
1692 |
base[0]= (V329); |
V343 = (V335); |
1693 |
|
base[0]= (V336); |
1694 |
base[1]= (VV[57]->s.s_dbind); |
base[1]= (VV[57]->s.s_dbind); |
1695 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1696 |
(void) (*Lnk95)(); |
(void) (*Lnk95)(); |
1697 |
vs_top=sup; |
vs_top=sup; |
1698 |
V331= vs_base[0]; |
V344= vs_base[0]; |
1699 |
(VV[57]->s.s_dbind)= make_cons((V328),V331); |
(VV[57]->s.s_dbind)= make_cons(V343,V344); |
1700 |
{object V332 = (V328); |
{object V345 = (V335); |
1701 |
VMR34(V332)}} |
VMR34(V345)}} |
1702 |
base[0]=base[0]; |
base[0]=base[0]; |
1703 |
return Cnil; |
return Cnil; |
1704 |
} |
} |
1709 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1710 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
1711 |
vs_check; |
vs_check; |
1712 |
{object V333; |
{object V346; |
1713 |
check_arg(1); |
check_arg(1); |
1714 |
V333=(base[0]); |
V346=(base[0]); |
1715 |
vs_top=sup; |
vs_top=sup; |
1716 |
goto TTL; |
goto TTL; |
1717 |
TTL:; |
TTL:; |
1718 |
{object V334; |
{object V347; |
1719 |
object V335; |
object V348; |
1720 |
V334= (*(LnkLI60))((V333)); |
V347= (*(LnkLI60))((V346)); |
1721 |
V335= (*(LnkLI115))((V334)); |
V348= (*(LnkLI115))((V347)); |
1722 |
{object V337; |
V349 = (V346); |
1723 |
{object V338; |
{object V351; |
1724 |
object V339= (V335); |
{object V352; |
1725 |
if(V339==Cnil){ |
object V353= (V348); |
1726 |
V337= Cnil; |
if(V353==Cnil){ |
1727 |
|
V351= Cnil; |
1728 |
goto T562;} |
goto T562;} |
1729 |
base[3]=V338=MMcons(Cnil,Cnil); |
base[3]=V352=MMcons(Cnil,Cnil); |
1730 |
goto T563; |
goto T563; |
1731 |
T563:; |
T563:; |
1732 |
(V338->c.c_car)= (*(LnkLI112))((V339->c.c_car)); |
(V352->c.c_car)= (*(LnkLI112))((V353->c.c_car)); |
1733 |
if((V339=MMcdr(V339))==Cnil){ |
if((V353=MMcdr(V353))==Cnil){ |
1734 |
V337= base[3]; |
V351= base[3]; |
1735 |
goto T562;} |
goto T562;} |
1736 |
V338=MMcdr(V338)=MMcons(Cnil,Cnil); |
V352=MMcdr(V352)=MMcons(Cnil,Cnil); |
1737 |
goto T563;} |
goto T563;} |
1738 |
goto T562; |
goto T562; |
1739 |
T562:; |
T562:; |
1740 |
vs_top=base+3; |
vs_top=base+3; |
1741 |
while(V337!=Cnil) |
while(V351!=Cnil) |
1742 |
{vs_push((V337)->c.c_car);V337=(V337)->c.c_cdr;} |
{vs_push((V351)->c.c_car);V351=(V351)->c.c_cdr;} |
1743 |
vs_base=base+3;} |
vs_base=base+3;} |
1744 |
Lappend(); |
Lappend(); |
1745 |
vs_top=sup; |
vs_top=sup; |
1746 |
V336= vs_base[0]; |
V350= vs_base[0]; |
1747 |
base[3]= make_cons((V333),V336); |
base[3]= make_cons(V349,V350); |
1748 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1749 |
return;} |
return;} |
1750 |
} |
} |
1756 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1757 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
1758 |
vs_check; |
vs_check; |
1759 |
{register object V340; |
{register object V354; |
1760 |
check_arg(1); |
check_arg(1); |
1761 |
V340=(base[0]); |
V354=(base[0]); |
1762 |
vs_top=sup; |
vs_top=sup; |
1763 |
goto TTL; |
goto TTL; |
1764 |
TTL:; |
TTL:; |
1765 |
if(((V340))==Cnil){ |
if(((V354))==Cnil){ |
1766 |
goto T566;} |
goto T566;} |
1767 |
base[1]= CMPcdr((V340)); |
base[1]= CMPcdr((V354)); |
1768 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1769 |
L6(base0); |
L6(base0); |
1770 |
vs_top=sup; |
vs_top=sup; |
1771 |
{object V341= CMPcar((V340)); |
{object V355= CMPcar((V354)); |
1772 |
if(!(type_of(V341)==t_cons||(V341)==Cnil)){ |
if(!(type_of(V355)==t_cons||(V355)==Cnil)){ |
1773 |
goto T571;}} |
goto T571;}} |
1774 |
if(!((CMPcaar((V340)))==(VV[7]))){ |
if(!((CMPcaar((V354)))==(VV[7]))){ |
1775 |
goto T571;} |
goto T571;} |
1776 |
V340= CMPcdar((V340)); |
V354= CMPcdar((V354)); |
1777 |
goto TTL; |
goto TTL; |
1778 |
return; |
return; |
1779 |
goto T571; |
goto T571; |
1780 |
T571:; |
T571:; |
1781 |
{object V342; |
{object V356; |
1782 |
V342= CMPcar((V340)); |
V356= CMPcar((V354)); |
1783 |
base0[0]= make_cons((V342),base0[0]); |
base0[0]= make_cons((V356),base0[0]); |
1784 |
base[2]= base0[0]; |
base[2]= base0[0]; |
1785 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1786 |
return;} |
return;} |
1804 |
TTL:; |
TTL:; |
1805 |
if(!(type_of(base0[0])==t_cons||(base0[0])==Cnil)){ |
if(!(type_of(base0[0])==t_cons||(base0[0])==Cnil)){ |
1806 |
goto T580;} |
goto T580;} |
1807 |
{register object x= CMPcar(base0[0]),V343= VV[4]; |
{register object x= CMPcar(base0[0]),V357= VV[4]; |
1808 |
while(V343!=Cnil) |
while(V357!=Cnil) |
1809 |
if(x==(V343->c.c_car)){ |
if(x==(V357->c.c_car)){ |
1810 |
goto T583; |
goto T583; |
1811 |
}else V343=V343->c.c_cdr; |
}else V357=V357->c.c_cdr; |
1812 |
goto T580;} |
goto T580;} |
1813 |
goto T583; |
goto T583; |
1814 |
T583:; |
T583:; |