455 |
return; |
return; |
456 |
goto T135; |
goto T135; |
457 |
T135:; |
T135:; |
458 |
base[5]= (V116); |
base[5]= ({object _tmp=get(VV[18],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[18])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[18])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
459 |
base[6]= V117; |
base[6]= V116; |
460 |
base[7]= V114; |
base[7]= V117; |
461 |
base[8]= V118; |
base[8]= V114; |
462 |
vs_top=(vs_base=base+5)+4; |
base[9]= V118; |
463 |
(void) (*Lnk53)(Lclptr53); |
vs_top=(vs_base=base+6)+4; |
464 |
|
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
465 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
466 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
467 |
|
else super_funcall_no_event(_funobj);} |
468 |
return;} |
return;} |
469 |
} |
} |
470 |
} |
} |
474 |
{register object *base=vs_base; |
{register object *base=vs_base; |
475 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
476 |
vs_check; |
vs_check; |
477 |
{object V122; |
{object V123; |
478 |
object V123; |
object V124; |
479 |
check_arg(2); |
check_arg(2); |
480 |
V122=(base[0]); |
V123=(base[0]); |
481 |
V123=(base[1]); |
V124=(base[1]); |
482 |
vs_top=sup; |
vs_top=sup; |
483 |
goto TTL; |
goto TTL; |
484 |
TTL:; |
TTL:; |
485 |
{object V124; |
{object V125; |
486 |
object V125; |
object V126; |
487 |
V124= (*(LnkLI51))((V122)); |
V125= (*(LnkLI51))((V123)); |
488 |
V125= (*(LnkLI52))((V124),(V123)); |
V126= (*(LnkLI52))((V125),(V124)); |
489 |
if(((V125))!=Cnil){ |
if(((V126))!=Cnil){ |
490 |
goto T148;} |
goto T149;} |
491 |
base[4]= (V124); |
base[4]= (V125); |
492 |
base[5]= (V122); |
base[5]= (V123); |
493 |
base[6]= (V123); |
base[6]= (V124); |
494 |
base[7]= VV[12]; |
base[7]= VV[12]; |
495 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
496 |
(void) (*Lnk43)(Lclptr43); |
(void) (*Lnk43)(Lclptr43); |
497 |
return; |
return; |
498 |
goto T148; |
goto T149; |
499 |
T148:; |
T149:; |
500 |
base[4]= (V124); |
base[4]= (V125); |
501 |
base[5]= (V122); |
base[5]= (V123); |
502 |
base[6]= (V125); |
base[6]= (V126); |
503 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
504 |
(void) (*Lnk26)(Lclptr26); |
(void) (*Lnk26)(Lclptr26); |
505 |
return;} |
return;} |
511 |
{register object *base=vs_base; |
{register object *base=vs_base; |
512 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
513 |
vs_check; |
vs_check; |
514 |
{object V126; |
{object V127; |
515 |
object V127; |
object V128; |
516 |
check_arg(2); |
check_arg(2); |
517 |
V126=(base[0]); |
V127=(base[0]); |
518 |
V127=(base[1]); |
V128=(base[1]); |
519 |
vs_top=sup; |
vs_top=sup; |
520 |
goto TTL; |
goto TTL; |
521 |
TTL:; |
TTL:; |
522 |
{object V128; |
{object V129; |
523 |
object V129; |
object V130; |
524 |
V128= (*(LnkLI51))((V126)); |
V129= (*(LnkLI51))((V127)); |
525 |
V129= (*(LnkLI52))((V128),(V127)); |
V130= (*(LnkLI52))((V129),(V128)); |
526 |
if(((V129))!=Cnil){ |
if(((V130))!=Cnil){ |
527 |
goto T160;} |
goto T161;} |
528 |
base[4]= (V128); |
base[4]= (V129); |
529 |
base[5]= (V126); |
base[5]= (V127); |
530 |
base[6]= (V127); |
base[6]= (V128); |
531 |
base[7]= VV[13]; |
base[7]= VV[13]; |
532 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
533 |
(void) (*Lnk43)(Lclptr43); |
(void) (*Lnk43)(Lclptr43); |
534 |
return; |
return; |
535 |
goto T160; |
goto T161; |
536 |
T160:; |
T161:; |
537 |
base[4]= (V128); |
base[4]= (V129); |
538 |
base[5]= (V126); |
base[5]= (V127); |
539 |
base[6]= (V129); |
base[6]= (V130); |
540 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
541 |
(void) (*Lnk30)(Lclptr30); |
(void) (*Lnk30)(Lclptr30); |
542 |
return;} |
return;} |
544 |
} |
} |
545 |
/* local entry for function SLOT-EXISTS-P */ |
/* local entry for function SLOT-EXISTS-P */ |
546 |
|
|
547 |
static object LI15(V132,V133) |
static object LI15(V133,V134) |
548 |
|
|
549 |
object V132;object V133; |
object V133;object V134; |
550 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
551 |
goto TTL; |
goto TTL; |
552 |
TTL:; |
TTL:; |
553 |
{object V134; |
{object V135; |
554 |
V134= (*(LnkLI51))((V132)); |
V135= (*(LnkLI51))((V133)); |
555 |
V135= (*(LnkLI52))((V134),(V133)); |
V136= (*(LnkLI52))((V135),(V134)); |
556 |
{object V136 = ((((/* INLINE-ARGS */V135)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V137 = ((((/* INLINE-ARGS */V136)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
557 |
VMR15(V136)}} |
VMR15(V137)}} |
558 |
return Cnil; |
return Cnil; |
559 |
} |
} |
560 |
/* function definition for SLOT-VALUE-OR-DEFAULT */ |
/* function definition for SLOT-VALUE-OR-DEFAULT */ |
563 |
{register object *base=vs_base; |
{register object *base=vs_base; |
564 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
565 |
vs_check; |
vs_check; |
566 |
{object V137; |
{object V138; |
|
object V138; |
|
567 |
object V139; |
object V139; |
568 |
|
object V140; |
569 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
570 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
571 |
V137=(base[0]); |
V138=(base[0]); |
572 |
V138=(base[1]); |
V139=(base[1]); |
573 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
574 |
if(vs_base>=vs_top){vs_top=sup;goto T170;} |
if(vs_base>=vs_top){vs_top=sup;goto T171;} |
575 |
V139=(base[2]); |
V140=(base[2]); |
576 |
vs_top=sup; |
vs_top=sup; |
577 |
goto T171; |
goto T172; |
|
goto T170; |
|
|
T170:; |
|
|
V139= VV[14]; |
|
578 |
goto T171; |
goto T171; |
579 |
T171:; |
T171:; |
580 |
base[3]= (V137); |
V140= VV[14]; |
581 |
base[4]= (V138); |
goto T172; |
582 |
|
T172:; |
583 |
|
base[3]= (V138); |
584 |
|
base[4]= (V139); |
585 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
586 |
(void) (*Lnk12)(); |
(void) (*Lnk12)(); |
587 |
vs_top=sup; |
vs_top=sup; |
588 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
589 |
goto T174;} |
goto T175;} |
590 |
base[3]= (V137); |
base[3]= (V138); |
591 |
base[4]= (V138); |
base[4]= (V139); |
592 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
593 |
(void) (*Lnk9)(); |
(void) (*Lnk9)(); |
594 |
return; |
return; |
595 |
goto T174; |
goto T175; |
596 |
T174:; |
T175:; |
597 |
base[3]= (V139); |
base[3]= (V140); |
598 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
599 |
return; |
return; |
600 |
} |
} |
601 |
} |
} |
602 |
/* local entry for function STANDARD-INSTANCE-ACCESS */ |
/* local entry for function STANDARD-INSTANCE-ACCESS */ |
603 |
|
|
604 |
static object LI17(V142,V143) |
static object LI17(V143,V144) |
605 |
|
|
606 |
object V142;object V143; |
object V143;object V144; |
607 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
608 |
goto TTL; |
goto TTL; |
609 |
TTL:; |
TTL:; |
610 |
{object V144 = (STREF(object,(V142),4))->v.v_self[fix((V143))]; |
{object V145 = (STREF(object,(V143),4))->v.v_self[fix((V144))]; |
611 |
VMR17(V144)} |
VMR17(V145)} |
612 |
return Cnil; |
return Cnil; |
613 |
} |
} |
614 |
/* local entry for function FUNCALLABLE-STANDARD-INSTANCE-ACCESS */ |
/* local entry for function FUNCALLABLE-STANDARD-INSTANCE-ACCESS */ |
615 |
|
|
616 |
static object LI18(V147,V148) |
static object LI18(V148,V149) |
617 |
|
|
618 |
object V147;object V148; |
object V148;object V149; |
619 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
620 |
goto TTL; |
goto TTL; |
621 |
TTL:; |
TTL:; |
622 |
{object V149 = (CMPcar(((V147))->cc.cc_turbo[12]))->v.v_self[fix((V148))]; |
{object V150 = (CMPcar(((V148))->cc.cc_turbo[12]))->v.v_self[fix((V149))]; |
623 |
VMR18(V149)} |
VMR18(V150)} |
624 |
return Cnil; |
return Cnil; |
625 |
} |
} |
626 |
/* function definition for (FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
/* function definition for (FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
629 |
{register object *base=vs_base; |
{register object *base=vs_base; |
630 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
631 |
vs_check; |
vs_check; |
632 |
{object V150; |
{object V151; |
|
object V151; |
|
633 |
object V152; |
object V152; |
634 |
register object V153; |
object V153; |
635 |
register object V154; |
register object V154; |
636 |
|
register object V155; |
637 |
check_arg(5); |
check_arg(5); |
638 |
V150=(base[0]); |
V151=(base[0]); |
639 |
V151=(base[1]); |
V152=(base[1]); |
640 |
V152=(base[2]); |
V153=(base[2]); |
641 |
V153=(base[3]); |
V154=(base[3]); |
642 |
V154=(base[4]); |
V155=(base[4]); |
643 |
vs_top=sup; |
vs_top=sup; |
644 |
goto TTL; |
goto TTL; |
645 |
TTL:; |
TTL:; |
646 |
{register object V156; |
{register object V157; |
647 |
object V157; |
object V158; |
648 |
base[7]= (V154); |
base[7]= (V155); |
649 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
650 |
(void) (*Lnk54)(Lclptr54); |
(void) (*Lnk53)(Lclptr53); |
651 |
vs_top=sup; |
vs_top=sup; |
652 |
V156= vs_base[0]; |
V157= vs_base[0]; |
653 |
{register object V158; |
{register object V159; |
654 |
V158= (V156); |
V159= (V157); |
655 |
if(!(type_of((V158))==t_fixnum)){ |
if(!(type_of((V159))==t_fixnum)){ |
656 |
goto T189;} |
goto T190;} |
657 |
if(type_of(V153)==t_structure){ |
if(type_of(V154)==t_structure){ |
658 |
goto T194;} |
goto T195;} |
659 |
goto T192; |
goto T193; |
660 |
goto T194; |
goto T195; |
661 |
T194:; |
T195:; |
662 |
if(!(((V153)->str.str_def)==(VV[15]))){ |
if(!(((V154)->str.str_def)==(VV[15]))){ |
663 |
goto T192;} |
goto T193;} |
664 |
if((Ct)==((STREF(object,(V153),0))->v.v_self[8])){ |
if((Ct)==((STREF(object,(V154),0))->v.v_self[8])){ |
665 |
goto T196;} |
goto T197;} |
666 |
(void)((*(LnkLI55))((V153))); |
(void)((*(LnkLI54))((V154))); |
667 |
goto T196; |
goto T197; |
668 |
T196:; |
T197:; |
669 |
V157= (STREF(object,(V153),4))->v.v_self[fix((V156))]; |
V158= (STREF(object,(V154),4))->v.v_self[fix((V157))]; |
670 |
goto T187; |
goto T188; |
671 |
goto T192; |
goto T193; |
672 |
T192:;{object V160; |
T193:;{object V161; |
673 |
V160= (VV[5]->s.s_dbind); |
V161= (VV[5]->s.s_dbind); |
674 |
base[7]= small_fixnum(14); |
base[7]= small_fixnum(14); |
675 |
base[8]= (V153); |
base[8]= (V154); |
676 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
677 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
678 |
vs_top=sup; |
vs_top=sup; |
679 |
V161= vs_base[0]; |
V162= vs_base[0]; |
680 |
if(!((V160)==(CMPcar(V161)))){ |
if(!((V161)==(CMPcar(V162)))){ |
681 |
goto T200;}} |
goto T201;}} |
682 |
if((Ct)==((CMPcar(((V153))->cc.cc_turbo[13]))->v.v_self[8])){ |
if((Ct)==((CMPcar(((V154))->cc.cc_turbo[13]))->v.v_self[8])){ |
683 |
goto T205;} |
goto T206;} |
684 |
(void)((*(LnkLI55))((V153))); |
(void)((*(LnkLI54))((V154))); |
685 |
goto T205; |
goto T206; |
686 |
T205:; |
T206:; |
687 |
V157= (CMPcar(((V153))->cc.cc_turbo[12]))->v.v_self[fix((V156))]; |
V158= (CMPcar(((V154))->cc.cc_turbo[12]))->v.v_self[fix((V157))]; |
688 |
goto T187; |
goto T188; |
689 |
goto T200; |
goto T201; |
690 |
T200:; |
T201:; |
691 |
base[7]= VV[16]; |
base[7]= VV[16]; |
692 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
693 |
Lerror(); |
Lerror(); |
694 |
vs_top=sup; |
vs_top=sup; |
695 |
V157= vs_base[0]; |
V158= vs_base[0]; |
696 |
goto T187; |
goto T188; |
697 |
goto T189; |
goto T190; |
698 |
T189:; |
T190:; |
699 |
if(!(type_of((V158))==t_cons)){ |
if(!(type_of((V159))==t_cons)){ |
700 |
goto T210;} |
goto T211;} |
701 |
V157= CMPcdr((V156)); |
V158= CMPcdr((V157)); |
702 |
goto T187; |
goto T188; |
703 |
goto T210; |
goto T211; |
704 |
T210:; |
T211:; |
705 |
base[7]= VV[17]; |
base[7]= VV[17]; |
706 |
base[8]= (V154); |
base[8]= (V155); |
707 |
base[9]= VV[18]; |
base[9]= VV[18]; |
708 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
709 |
Lerror(); |
Lerror(); |
710 |
vs_top=sup; |
vs_top=sup; |
711 |
V157= vs_base[0];} |
V158= vs_base[0];} |
712 |
goto T187; |
goto T188; |
713 |
T187:; |
T188:; |
714 |
if(!(((V157))==((VV[10]->s.s_dbind)))){ |
if(!(((V158))==((VV[10]->s.s_dbind)))){ |
715 |
goto T216;} |
goto T217;} |
716 |
base[7]= (V152); |
base[7]= (V153); |
717 |
base[8]= (V153); |
base[8]= (V154); |
718 |
base[10]= (V154); |
base[10]= (V155); |
719 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
720 |
(void) (*Lnk50)(Lclptr50); |
(void) (*Lnk50)(Lclptr50); |
721 |
vs_top=sup; |
vs_top=sup; |
723 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
724 |
(void) (*Lnk44)(Lclptr44); |
(void) (*Lnk44)(Lclptr44); |
725 |
return; |
return; |
726 |
goto T216; |
goto T217; |
727 |
T216:; |
T217:; |
728 |
base[7]= (V157); |
base[7]= (V158); |
729 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
730 |
return;} |
return;} |
731 |
} |
} |
732 |
} |
} |
733 |
/* local entry for function (FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
/* local entry for function (FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
734 |
|
|
735 |
static object LI20(V168,V169,V170,V171,V172,V173) |
static object LI20(V169,V170,V171,V172,V173,V174) |
736 |
|
|
737 |
object V168;object V169;object V170;object V171;register object V172;object V173; |
object V169;object V170;object V171;object V172;register object V173;object V174; |
738 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
739 |
goto TTL; |
goto TTL; |
740 |
TTL:; |
TTL:; |
741 |
{register object V175; |
{register object V176; |
742 |
base[0]= (V173); |
base[0]= (V174); |
743 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
744 |
(void) (*Lnk54)(Lclptr54); |
(void) (*Lnk53)(Lclptr53); |
745 |
vs_top=sup; |
vs_top=sup; |
746 |
V175= vs_base[0]; |
V176= vs_base[0]; |
747 |
{register object V176; |
{register object V177; |
748 |
V176= (V175); |
V177= (V176); |
749 |
if(!(type_of((V176))==t_fixnum)){ |
if(!(type_of((V177))==t_fixnum)){ |
750 |
goto T230;} |
goto T231;} |
751 |
if(type_of(V172)==t_structure){ |
if(type_of(V173)==t_structure){ |
752 |
goto T235;} |
goto T236;} |
753 |
goto T233; |
goto T234; |
754 |
goto T235; |
goto T236; |
755 |
T235:; |
T236:; |
756 |
if(!(((V172)->str.str_def)==(VV[19]))){ |
if(!(((V173)->str.str_def)==(VV[19]))){ |
757 |
goto T233;} |
goto T234;} |
758 |
if((Ct)==((STREF(object,(V172),0))->v.v_self[8])){ |
if((Ct)==((STREF(object,(V173),0))->v.v_self[8])){ |
759 |
goto T237;} |
goto T238;} |
760 |
(void)((*(LnkLI55))((V172))); |
(void)((*(LnkLI54))((V173))); |
761 |
goto T237; |
goto T238; |
762 |
T237:; |
T238:; |
763 |
{object V178 = (STREF(object,(V172),4))->v.v_self[fix((V175))]= ((V170)); |
{object V179 = (STREF(object,(V173),4))->v.v_self[fix((V176))]= ((V171)); |
764 |
VMR20(V178)} |
VMR20(V179)} |
765 |
goto T233; |
goto T234; |
766 |
T233:;{object V179; |
T234:;{object V180; |
767 |
V179= (VV[5]->s.s_dbind); |
V180= (VV[5]->s.s_dbind); |
768 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
769 |
base[1]= (V172); |
base[1]= (V173); |
770 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
771 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
772 |
vs_top=sup; |
vs_top=sup; |
773 |
V180= vs_base[0]; |
V181= vs_base[0]; |
774 |
if(!((V179)==(CMPcar(V180)))){ |
if(!((V180)==(CMPcar(V181)))){ |
775 |
goto T241;}} |
goto T242;}} |
776 |
if((Ct)==((CMPcar(((V172))->cc.cc_turbo[13]))->v.v_self[8])){ |
if((Ct)==((CMPcar(((V173))->cc.cc_turbo[13]))->v.v_self[8])){ |
777 |
goto T246;} |
goto T247;} |
778 |
(void)((*(LnkLI55))((V172))); |
(void)((*(LnkLI54))((V173))); |
779 |
goto T246; |
goto T247; |
780 |
T246:; |
T247:; |
781 |
{object V181 = (CMPcar(((V172))->cc.cc_turbo[12]))->v.v_self[fix((V175))]= ((V170)); |
{object V182 = (CMPcar(((V173))->cc.cc_turbo[12]))->v.v_self[fix((V176))]= ((V171)); |
782 |
VMR20(V181)} |
VMR20(V182)} |
783 |
goto T241; |
goto T242; |
784 |
T241:; |
T242:; |
785 |
base[0]= VV[20]; |
base[0]= VV[20]; |
786 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
787 |
Lerror(); |
Lerror(); |
788 |
vs_top=sup; |
vs_top=sup; |
789 |
{object V182 = vs_base[0]; |
{object V183 = vs_base[0]; |
790 |
VMR20(V182)} |
VMR20(V183)} |
791 |
goto T230; |
goto T231; |
792 |
T230:; |
T231:; |
793 |
if(!(type_of((V176))==t_cons)){ |
if(!(type_of((V177))==t_cons)){ |
794 |
goto T251;} |
goto T252;} |
795 |
(V175)->c.c_cdr = V170; |
(V176)->c.c_cdr = V171; |
796 |
{object V185 = V170; |
{object V186 = V171; |
797 |
VMR20(V185)} |
VMR20(V186)} |
798 |
goto T251; |
goto T252; |
799 |
T251:; |
T252:; |
800 |
base[0]= VV[21]; |
base[0]= VV[21]; |
801 |
base[1]= (V173); |
base[1]= (V174); |
802 |
base[2]= VV[22]; |
base[2]= VV[22]; |
803 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
804 |
Lerror(); |
Lerror(); |
805 |
vs_top=sup; |
vs_top=sup; |
806 |
{object V186 = vs_base[0]; |
{object V187 = vs_base[0]; |
807 |
VMR20(V186)}}} |
VMR20(V187)}}} |
808 |
base[0]=base[0]; |
base[0]=base[0]; |
809 |
return Cnil; |
return Cnil; |
810 |
} |
} |
811 |
/* local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
/* local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
812 |
|
|
813 |
static object LI21(V192,V193,V194,V195,V196) |
static object LI21(V193,V194,V195,V196,V197) |
814 |
|
|
815 |
object V192;object V193;object V194;register object V195;object V196; |
object V193;object V194;object V195;register object V196;object V197; |
816 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
817 |
goto TTL; |
goto TTL; |
818 |
TTL:; |
TTL:; |
819 |
{register object V198; |
{register object V199; |
820 |
object V199; |
object V200; |
821 |
base[2]= (V196); |
base[2]= (V197); |
822 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
823 |
(void) (*Lnk54)(Lclptr54); |
(void) (*Lnk53)(Lclptr53); |
824 |
vs_top=sup; |
vs_top=sup; |
825 |
V198= vs_base[0]; |
V199= vs_base[0]; |
826 |
{register object V200; |
{register object V201; |
827 |
V200= (V198); |
V201= (V199); |
828 |
if(!(type_of((V200))==t_fixnum)){ |
if(!(type_of((V201))==t_fixnum)){ |
829 |
goto T266;} |
goto T267;} |
830 |
if(type_of(V195)==t_structure){ |
if(type_of(V196)==t_structure){ |
831 |
goto T271;} |
goto T272;} |
832 |
goto T269; |
goto T270; |
833 |
goto T271; |
goto T272; |
834 |
T271:; |
T272:; |
835 |
if(!(((V195)->str.str_def)==(VV[23]))){ |
if(!(((V196)->str.str_def)==(VV[23]))){ |
836 |
goto T269;} |
goto T270;} |
837 |
if((Ct)==((STREF(object,(V195),0))->v.v_self[8])){ |
if((Ct)==((STREF(object,(V196),0))->v.v_self[8])){ |
838 |
goto T273;} |
goto T274;} |
839 |
(void)((*(LnkLI55))((V195))); |
(void)((*(LnkLI54))((V196))); |
840 |
goto T273; |
goto T274; |
841 |
T273:; |
T274:; |
842 |
V199= (STREF(object,(V195),4))->v.v_self[fix((V198))]; |
V200= (STREF(object,(V196),4))->v.v_self[fix((V199))]; |
843 |
goto T264; |
goto T265; |
844 |
goto T269; |
goto T270; |
845 |
T269:;{object V202; |
T270:;{object V203; |
846 |
V202= (VV[5]->s.s_dbind); |
V203= (VV[5]->s.s_dbind); |
847 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
848 |
base[3]= (V195); |
base[3]= (V196); |
849 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
850 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
851 |
vs_top=sup; |
vs_top=sup; |
852 |
V203= vs_base[0]; |
V204= vs_base[0]; |
853 |
if(!((V202)==(CMPcar(V203)))){ |
if(!((V203)==(CMPcar(V204)))){ |
854 |
goto T277;}} |
goto T278;}} |
855 |
if((Ct)==((CMPcar(((V195))->cc.cc_turbo[13]))->v.v_self[8])){ |
if((Ct)==((CMPcar(((V196))->cc.cc_turbo[13]))->v.v_self[8])){ |
856 |
goto T282;} |
goto T283;} |
857 |
(void)((*(LnkLI55))((V195))); |
(void)((*(LnkLI54))((V196))); |
858 |
goto T282; |
goto T283; |
859 |
T282:; |
T283:; |
860 |
V199= (CMPcar(((V195))->cc.cc_turbo[12]))->v.v_self[fix((V198))]; |
V200= (CMPcar(((V196))->cc.cc_turbo[12]))->v.v_self[fix((V199))]; |
861 |
goto T264; |
goto T265; |
862 |
goto T277; |
goto T278; |
863 |
T277:; |
T278:; |
864 |
base[2]= VV[24]; |
base[2]= VV[24]; |
865 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
866 |
Lerror(); |
Lerror(); |
867 |
vs_top=sup; |
vs_top=sup; |
868 |
V199= vs_base[0]; |
V200= vs_base[0]; |
869 |
goto T264; |
goto T265; |
870 |
goto T266; |
goto T267; |
871 |
T266:; |
T267:; |
872 |
if(!(type_of((V200))==t_cons)){ |
if(!(type_of((V201))==t_cons)){ |
873 |
goto T287;} |
goto T288;} |
874 |
V199= CMPcdr((V198)); |
V200= CMPcdr((V199)); |
875 |
goto T264; |
goto T265; |
876 |
goto T287; |
goto T288; |
877 |
T287:; |
T288:; |
878 |
base[2]= VV[25]; |
base[2]= VV[25]; |
879 |
base[3]= (V196); |
base[3]= (V197); |
880 |
base[4]= VV[26]; |
base[4]= VV[26]; |
881 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
882 |
Lerror(); |
Lerror(); |
883 |
vs_top=sup; |
vs_top=sup; |
884 |
V199= vs_base[0];} |
V200= vs_base[0];} |
885 |
goto T264; |
goto T265; |
886 |
T264:; |
T265:; |
887 |
{object V204 = (((((V199))==((VV[10]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V205 = (((((V200))==((VV[10]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil); |
888 |
VMR21(V204)}} |
VMR21(V205)}} |
889 |
base[0]=base[0]; |
base[0]=base[0]; |
890 |
return Cnil; |
return Cnil; |
891 |
} |
} |
892 |
/* local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
/* local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
893 |
|
|
894 |
static object LI22(V210,V211,V212,V213,V214) |
static object LI22(V211,V212,V213,V214,V215) |
895 |
|
|
896 |
object V210;object V211;object V212;register object V213;object V214; |
object V211;object V212;object V213;register object V214;object V215; |
897 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
898 |
goto TTL; |
goto TTL; |
899 |
TTL:; |
TTL:; |
900 |
{register object V216; |
{register object V217; |
901 |
base[0]= (V214); |
base[0]= (V215); |
902 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
903 |
(void) (*Lnk54)(Lclptr54); |
(void) (*Lnk53)(Lclptr53); |
904 |
vs_top=sup; |
vs_top=sup; |
905 |
V216= vs_base[0]; |
V217= vs_base[0]; |
906 |
{register object V217; |
{register object V218; |
907 |
V217= (V216); |
V218= (V217); |
908 |
if(!(type_of((V217))==t_fixnum)){ |
if(!(type_of((V218))==t_fixnum)){ |
909 |
goto T301;} |
goto T302;} |
910 |
if(type_of(V213)==t_structure){ |
if(type_of(V214)==t_structure){ |
911 |
goto T306;} |
goto T307;} |
912 |
goto T304; |
goto T305; |
913 |
goto T306; |
goto T307; |
914 |
T306:; |
T307:; |
915 |
if(!(((V213)->str.str_def)==(VV[27]))){ |
if(!(((V214)->str.str_def)==(VV[27]))){ |
916 |
goto T304;} |
goto T305;} |
917 |
if((Ct)==((STREF(object,(V213),0))->v.v_self[8])){ |
if((Ct)==((STREF(object,(V214),0))->v.v_self[8])){ |
918 |
goto T308;} |
goto T309;} |
919 |
(void)((*(LnkLI55))((V213))); |
(void)((*(LnkLI54))((V214))); |
920 |
goto T308; |
goto T309; |
921 |
T308:; |
T309:; |
922 |
(void)((STREF(object,(V213),4))->v.v_self[fix((V216))]= ((VV[10]->s.s_dbind))); |
(void)((STREF(object,(V214),4))->v.v_self[fix((V217))]= ((VV[10]->s.s_dbind))); |
923 |
goto T297; |
goto T298; |
924 |
goto T304; |
goto T305; |
925 |
T304:;{object V219; |
T305:;{object V220; |
926 |
V219= (VV[5]->s.s_dbind); |
V220= (VV[5]->s.s_dbind); |
927 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
928 |
base[1]= (V213); |
base[1]= (V214); |
929 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
930 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
931 |
vs_top=sup; |
vs_top=sup; |
932 |
V220= vs_base[0]; |
V221= vs_base[0]; |
933 |
if(!((V219)==(CMPcar(V220)))){ |
if(!((V220)==(CMPcar(V221)))){ |
934 |
goto T312;}} |
goto T313;}} |
935 |
if((Ct)==((CMPcar(((V213))->cc.cc_turbo[13]))->v.v_self[8])){ |
if((Ct)==((CMPcar(((V214))->cc.cc_turbo[13]))->v.v_self[8])){ |
936 |
goto T317;} |
goto T318;} |
937 |
(void)((*(LnkLI55))((V213))); |
(void)((*(LnkLI54))((V214))); |
938 |
goto T317; |
goto T318; |
939 |
T317:; |
T318:; |
940 |
(void)((CMPcar(((V213))->cc.cc_turbo[12]))->v.v_self[fix((V216))]= ((VV[10]->s.s_dbind))); |
(void)((CMPcar(((V214))->cc.cc_turbo[12]))->v.v_self[fix((V217))]= ((VV[10]->s.s_dbind))); |
941 |
goto T297; |
goto T298; |
942 |
goto T312; |
goto T313; |
943 |
T312:; |
T313:; |
944 |
base[0]= VV[28]; |
base[0]= VV[28]; |
945 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
946 |
Lerror(); |
Lerror(); |
947 |
vs_top=sup; |
vs_top=sup; |
948 |
goto T297; |
goto T298; |
949 |
goto T301; |
goto T302; |
950 |
T301:; |
T302:; |
951 |
if(!(type_of((V217))==t_cons)){ |
if(!(type_of((V218))==t_cons)){ |
952 |
goto T322;} |
goto T323;} |
953 |
{object V222; |
{object V223; |
954 |
V222= (VV[10]->s.s_dbind); |
V223= (VV[10]->s.s_dbind); |
955 |
(V216)->c.c_cdr = (V222); |
(V217)->c.c_cdr = (V223); |
956 |
goto T297;} |
goto T298;} |
957 |
goto T322; |
goto T323; |
958 |
T322:; |
T323:; |
959 |
base[0]= VV[29]; |
base[0]= VV[29]; |
960 |
base[1]= (V214); |
base[1]= (V215); |
961 |
base[2]= VV[30]; |
base[2]= VV[30]; |
962 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
963 |
Lerror(); |
Lerror(); |
964 |
vs_top=sup;}} |
vs_top=sup;}} |
965 |
goto T297; |
goto T298; |
966 |
T297:; |
T298:; |
967 |
{object V223 = Cnil; |
{object V224 = Cnil; |
968 |
VMR22(V223)} |
VMR22(V224)} |
969 |
base[0]=base[0]; |
base[0]=base[0]; |
970 |
return Cnil; |
return Cnil; |
971 |
} |
} |
975 |
{register object *base=vs_base; |
{register object *base=vs_base; |
976 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
977 |
vs_check; |
vs_check; |
978 |
{object V224; |
{object V225; |
|
object V225; |
|
979 |
object V226; |
object V226; |
980 |
object V227; |
object V227; |
981 |
object V228; |
object V228; |
982 |
|
object V229; |
983 |
check_arg(5); |
check_arg(5); |
984 |
V224=(base[0]); |
V225=(base[0]); |
985 |
V225=(base[1]); |
V226=(base[1]); |
986 |
V226=(base[2]); |
V227=(base[2]); |
987 |
V227=(base[3]); |
V228=(base[3]); |
988 |
V228=(base[4]); |
V229=(base[4]); |
989 |
vs_top=sup; |
vs_top=sup; |
990 |
goto TTL; |
goto TTL; |
991 |
TTL:; |
TTL:; |
992 |
{object V230; |
{object V231; |
993 |
object V231; |
object V232; |
994 |
base[7]= (V228); |
base[7]= (V229); |
995 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
996 |
(void) (*Lnk56)(Lclptr56); |
(void) (*Lnk55)(Lclptr55); |
997 |
vs_top=sup; |
vs_top=sup; |
998 |
V230= vs_base[0]; |
V231= vs_base[0]; |
999 |
V231= ( |
V232= ( |
1000 |
(type_of((V230)) == t_sfun ?(*(((V230))->sfn.sfn_self)): |
(type_of((V231)) == t_sfun ?(*(((V231))->sfn.sfn_self)): |
1001 |
(fcall.argd=1,type_of((V230))==t_vfun) ? |
(fcall.argd=1,type_of((V231))==t_vfun) ? |
1002 |
(*(((V230))->sfn.sfn_self)): |
(*(((V231))->sfn.sfn_self)): |
1003 |
(fcall.fun=((V230)),fcalln))((V227))); |
(fcall.fun=((V231)),fcalln))((V228))); |
1004 |
if(!(((V231))==((VV[10]->s.s_dbind)))){ |
if(!(((V232))==((VV[10]->s.s_dbind)))){ |
1005 |
goto T338;} |
goto T339;} |
1006 |
base[7]= (V226); |
base[7]= (V227); |
1007 |
base[8]= (V227); |
base[8]= (V228); |
1008 |
base[10]= (V228); |
base[10]= (V229); |
1009 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1010 |
(void) (*Lnk50)(Lclptr50); |
(void) (*Lnk50)(Lclptr50); |
1011 |
vs_top=sup; |
vs_top=sup; |
1013 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1014 |
(void) (*Lnk44)(Lclptr44); |
(void) (*Lnk44)(Lclptr44); |
1015 |
return; |
return; |
1016 |
goto T338; |
goto T339; |
1017 |
T338:; |
T339:; |
1018 |
base[7]= (V231); |
base[7]= (V232); |
1019 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1020 |
return;} |
return;} |
1021 |
} |
} |
1026 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1027 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
1028 |
vs_check; |
vs_check; |
1029 |
{object V232; |
{object V233; |
|
object V233; |
|
1030 |
object V234; |
object V234; |
1031 |
object V235; |
object V235; |
1032 |
object V236; |
object V236; |
1033 |
object V237; |
object V237; |
1034 |
|
object V238; |
1035 |
check_arg(6); |
check_arg(6); |
1036 |
V232=(base[0]); |
V233=(base[0]); |
1037 |
V233=(base[1]); |
V234=(base[1]); |
1038 |
V234=(base[2]); |
V235=(base[2]); |
1039 |
V235=(base[3]); |
V236=(base[3]); |
1040 |
V236=(base[4]); |
V237=(base[4]); |
1041 |
V237=(base[5]); |
V238=(base[5]); |
1042 |
vs_top=sup; |
vs_top=sup; |
1043 |
goto TTL; |
goto TTL; |
1044 |
TTL:; |
TTL:; |
1045 |
{object V239; |
{object V240; |
1046 |
base[6]= (V237); |
base[6]= (V238); |
1047 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1048 |
(void) (*Lnk57)(Lclptr57); |
(void) (*Lnk56)(Lclptr56); |
1049 |
vs_top=sup; |
vs_top=sup; |
1050 |
V239= vs_base[0]; |
V240= vs_base[0]; |
1051 |
base[6]= (V234); |
base[6]= (V235); |
1052 |
base[7]= (V236); |
base[7]= (V237); |
1053 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1054 |
{object _funobj = (V239);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V240);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1055 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1056 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1057 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1060 |
} |
} |
1061 |
/* local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) */ |
/* local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) */ |
1062 |
|
|
1063 |
static object LI25(V245,V246,V247,V248,V249) |
static object LI25(V246,V247,V248,V249,V250) |
1064 |
|
|
1065 |
object V245;object V246;object V247;object V248;object V249; |
object V246;object V247;object V248;object V249;object V250; |
1066 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1067 |
goto TTL; |
goto TTL; |
1068 |
TTL:; |
TTL:; |
1069 |
{object V251 = Ct; |
{object V252 = Ct; |
1070 |
VMR25(V251)} |
VMR25(V252)} |
1071 |
return Cnil; |
return Cnil; |
1072 |
} |
} |
1073 |
/* local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) */ |
/* local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) */ |
1074 |
|
|
1075 |
static object LI26(V257,V258,V259,V260,V261) |
static object LI26(V258,V259,V260,V261,V262) |
1076 |
|
|
1077 |
object V257;object V258;object V259;object V260;object V261; |
object V258;object V259;object V260;object V261;object V262; |
1078 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1079 |
goto TTL; |
goto TTL; |
1080 |
TTL:; |
TTL:; |
1082 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1083 |
Lerror(); |
Lerror(); |
1084 |
vs_top=sup; |
vs_top=sup; |
1085 |
{object V263 = vs_base[0]; |
{object V264 = vs_base[0]; |
1086 |
VMR26(V263)} |
VMR26(V264)} |
1087 |
base[0]=base[0]; |
base[0]=base[0]; |
1088 |
return Cnil; |
return Cnil; |
1089 |
} |
} |
1090 |
/* local entry for function (FAST-METHOD SLOT-MISSING (T T T T)) */ |
/* local entry for function (FAST-METHOD SLOT-MISSING (T T T T)) */ |
1091 |
|
|
1092 |
static object LI27(V271,V272,V273,V274,V275,V276,V277) |
static object LI27(V272,V273,V274,V275,V276,V277,V278) |
1093 |
|
|
1094 |
object V271;object V272;object V273;object V274;object V275;object V276;object V277; |
object V272;object V273;object V274;object V275;object V276;object V277;object V278; |
1095 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1096 |
goto TTL; |
goto TTL; |
1097 |
TTL:; |
TTL:; |
1098 |
{register object V278; |
{register object V279; |
1099 |
object V279; |
object V280; |
1100 |
V278= (V277); |
V279= (V278); |
1101 |
if(((V278))==Cnil){ |
if(((V279))==Cnil){ |
1102 |
goto T369;} |
goto T370;} |
1103 |
{object V280; |
{object V281; |
1104 |
V280= CMPcar((V278)); |
V281= CMPcar((V279)); |
1105 |
V278= CMPcdr((V278)); |
V279= CMPcdr((V279)); |
1106 |
V279= (V280); |
V280= (V281); |
1107 |
goto T367;} |
goto T368;} |
1108 |
goto T369; |
goto T370; |
1109 |
T369:; |
T370:; |
1110 |
V279= Cnil; |
V280= Cnil; |
1111 |
goto T367; |
goto T368; |
1112 |
T367:; |
T368:; |
1113 |
base[1]= VV[32]; |
base[1]= VV[32]; |
1114 |
{object V281= (V276); |
{object V282= (V277); |
1115 |
if((V281!= VV[9]))goto T377; |
if((V282!= VV[9]))goto T378; |
1116 |
base[2]= VV[33]; |
base[2]= VV[33]; |
|
goto T376; |
|
1117 |
goto T377; |
goto T377; |
1118 |
T377:; |
goto T378; |
1119 |
if((V281!= VV[11]))goto T378; |
T378:; |
1120 |
|
if((V282!= VV[11]))goto T379; |
1121 |
base[3]= Cnil; |
base[3]= Cnil; |
1122 |
base[4]= VV[34]; |
base[4]= VV[34]; |
1123 |
base[5]= (V279); |
base[5]= (V280); |
1124 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1125 |
Lformat(); |
Lformat(); |
1126 |
vs_top=sup; |
vs_top=sup; |
1127 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
1128 |
goto T376; |
goto T377; |
1129 |
goto T378; |
goto T379; |
1130 |
T378:; |
T379:; |
1131 |
if((V281!= VV[12]))goto T382; |
if((V282!= VV[12]))goto T383; |
1132 |
base[2]= VV[35]; |
base[2]= VV[35]; |
1133 |
goto T376; |
goto T377; |
|
goto T382; |
|
|
T382:; |
|
|
if((V281!= VV[13]))goto T383; |
|
|
base[2]= VV[36]; |
|
|
goto T376; |
|
1134 |
goto T383; |
goto T383; |
1135 |
T383:; |
T383:; |
1136 |
FEerror("The ECASE key value ~s is illegal.",1,V281); |
if((V282!= VV[13]))goto T384; |
1137 |
|
base[2]= VV[36]; |
1138 |
|
goto T377; |
1139 |
|
goto T384; |
1140 |
|
T384:; |
1141 |
|
FEerror("The ECASE key value ~s is illegal.",1,V282); |
1142 |
base[2]= Cnil; |
base[2]= Cnil; |
1143 |
goto T376;} |
goto T377;} |
1144 |
goto T376; |
goto T377; |
1145 |
T376:; |
T377:; |
1146 |
base[3]= (V275); |
base[3]= (V276); |
1147 |
base[4]= (V274); |
base[4]= (V275); |
1148 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1149 |
Lerror(); |
Lerror(); |
1150 |
vs_top=sup; |
vs_top=sup; |
1151 |
{object V282 = vs_base[0]; |
{object V283 = vs_base[0]; |
1152 |
VMR27(V282)}} |
VMR27(V283)}} |
1153 |
base[0]=base[0]; |
base[0]=base[0]; |
1154 |
return Cnil; |
return Cnil; |
1155 |
} |
} |
1156 |
/* local entry for function (FAST-METHOD SLOT-UNBOUND (T T T)) */ |
/* local entry for function (FAST-METHOD SLOT-UNBOUND (T T T)) */ |
1157 |
|
|
1158 |
static object LI28(V288,V289,V290,V291,V292) |
static object LI28(V289,V290,V291,V292,V293) |
1159 |
|
|
1160 |
object V288;object V289;object V290;object V291;object V292; |
object V289;object V290;object V291;object V292;object V293; |
1161 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1162 |
goto TTL; |
goto TTL; |
1163 |
TTL:; |
TTL:; |
1164 |
base[0]= VV[37]; |
base[0]= VV[37]; |
1165 |
base[1]= (V292); |
base[1]= (V293); |
1166 |
base[2]= (V291); |
base[2]= (V292); |
1167 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1168 |
Lerror(); |
Lerror(); |
1169 |
vs_top=sup; |
vs_top=sup; |
1170 |
{object V294 = vs_base[0]; |
{object V295 = vs_base[0]; |
1171 |
VMR28(V294)} |
VMR28(V295)} |
1172 |
base[0]=base[0]; |
base[0]=base[0]; |
1173 |
return Cnil; |
return Cnil; |
1174 |
} |
} |
1178 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1179 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM29; VC29 |
1180 |
vs_check; |
vs_check; |
1181 |
{object V295; |
{object V296; |
1182 |
object V296; |
object V297; |
1183 |
check_arg(2); |
check_arg(2); |
1184 |
V295=(base[0]); |
V296=(base[0]); |
1185 |
V296=(base[1]); |
V297=(base[1]); |
1186 |
vs_top=sup; |
vs_top=sup; |
1187 |
goto TTL; |
goto TTL; |
1188 |
TTL:; |
TTL:; |
1189 |
base[2]= (*(LnkLI51))((V295)); |
base[2]= (*(LnkLI51))((V296)); |
1190 |
base[3]= (V295); |
base[3]= (V296); |
1191 |
{register object V297; |
{register object V298; |
1192 |
V297= (V296); |
V298= (V297); |
1193 |
if(!(type_of((V297))==t_fixnum)){ |
if(!(type_of((V298))==t_fixnum)){ |
1194 |
goto T396;} |
goto T397;} |
1195 |
V298= (*(LnkLI58))((V295)); |
V299= (*(LnkLI57))((V296)); |
1196 |
base[4]= nth(fix((V296)),(/* INLINE-ARGS */V298)->v.v_self[9]); |
base[4]= nth(fix((V297)),(/* INLINE-ARGS */V299)->v.v_self[9]); |
1197 |
goto T394; |
goto T395; |
1198 |
goto T396; |
goto T397; |
1199 |
T396:; |
T397:; |
1200 |
if(!(type_of((V297))==t_cons)){ |
if(!(type_of((V298))==t_cons)){ |
1201 |
goto T399;} |
goto T400;} |
1202 |
base[4]= CMPcar((V296)); |
base[4]= CMPcar((V297)); |
1203 |
goto T394; |
goto T395; |
1204 |
goto T399; |
goto T400; |
1205 |
T399:; |
T400:; |
1206 |
base[6]= VV[38]; |
base[6]= VV[38]; |
1207 |
base[7]= (V297); |
base[7]= (V298); |
1208 |
base[8]= VV[39]; |
base[8]= VV[39]; |
1209 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1210 |
(void) (*Lnk59)(); |
(void) (*Lnk58)(); |
1211 |
vs_top=sup; |
vs_top=sup; |
1212 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1213 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1214 |
Lerror(); |
Lerror(); |
1215 |
vs_top=sup; |
vs_top=sup; |
1216 |
base[4]= vs_base[0];} |
base[4]= vs_base[0];} |
1217 |
goto T394; |
goto T395; |
1218 |
T394:; |
T395:; |
1219 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1220 |
(void) (*Lnk44)(Lclptr44); |
(void) (*Lnk44)(Lclptr44); |
1221 |
return; |
return; |
1223 |
} |
} |
1224 |
/* local entry for function (FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS)) */ |
/* local entry for function (FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS)) */ |
1225 |
|
|
1226 |
static object LI30(V303,V304,V305,V306) |
static object LI30(V304,V305,V306,V307) |
1227 |
|
|
1228 |
object V303;object V304;register object V305;object V306; |
object V304;object V305;register object V306;object V307; |
1229 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1230 |
goto TTL; |
goto TTL; |
1231 |
TTL:; |
TTL:; |
1232 |
base[0]= (V305); |
base[0]= (V306); |
1233 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1234 |
(void) (*Lnk60)(Lclptr60); |
(void) (*Lnk59)(Lclptr59); |
1235 |
vs_top=sup; |
vs_top=sup; |
1236 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1237 |
goto T408;} |
goto T409;} |
1238 |
base[0]= (V305); |
base[0]= (V306); |
1239 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1240 |
(void) (*Lnk61)(Lclptr61); |
(void) (*Lnk60)(Lclptr60); |
1241 |
vs_top=sup; |
vs_top=sup; |
1242 |
goto T408; |
goto T409; |
1243 |
T408:; |
T409:; |
1244 |
base[0]= (V305); |
base[0]= (V306); |
1245 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1246 |
(void) (*Lnk45)(Lclptr45); |
(void) (*Lnk45)(Lclptr45); |
1247 |
vs_top=sup; |
vs_top=sup; |
1248 |
V309= vs_base[0]; |
V310= vs_base[0]; |
1249 |
{object V310 = (VFUN_NARGS=1,(*(LnkLI2))(V309)); |
{object V311 = (VFUN_NARGS=1,(*(LnkLI2))(V310)); |
1250 |
VMR30(V310)} |
VMR30(V311)} |
1251 |
base[0]=base[0]; |
base[0]=base[0]; |
1252 |
return Cnil; |
return Cnil; |
1253 |
} |
} |
1257 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1258 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
1259 |
vs_check; |
vs_check; |
1260 |
{object V311; |
{object V312; |
|
object V312; |
|
1261 |
object V313; |
object V313; |
1262 |
object V314; |
object V314; |
1263 |
|
object V315; |
1264 |
check_arg(4); |
check_arg(4); |
1265 |
V311=(base[0]); |
V312=(base[0]); |
1266 |
V312=(base[1]); |
V313=(base[1]); |
1267 |
V313=(base[2]); |
V314=(base[2]); |
1268 |
V314=(base[3]); |
V315=(base[3]); |
1269 |
vs_top=sup; |
vs_top=sup; |
1270 |
goto TTL; |
goto TTL; |
1271 |
TTL:; |
TTL:; |
1272 |
{object V317; |
{object V318; |
1273 |
base[4]= (V313); |
base[4]= (V314); |
1274 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1275 |
(void) (*Lnk62)(Lclptr62); |
(void) (*Lnk61)(Lclptr61); |
1276 |
vs_top=sup; |
vs_top=sup; |
1277 |
V317= vs_base[0]; |
V318= vs_base[0]; |
1278 |
if(((V317))==Cnil){ |
if(((V318))==Cnil){ |
1279 |
goto T421;} |
goto T422;} |
1280 |
vs_base=vs_top; |
vs_base=vs_top; |
1281 |
{object _funobj = (V317);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V318);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1282 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1283 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1284 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1285 |
return; |
return; |
1286 |
goto T421; |
goto T422; |
1287 |
T421:; |
T422:; |
1288 |
base[4]= VV[40]; |
base[4]= VV[40]; |
1289 |
base[6]= (V313); |
base[6]= (V314); |
1290 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1291 |
(void) (*Lnk63)(Lclptr63); |
(void) (*Lnk62)(Lclptr62); |
1292 |
vs_top=sup; |
vs_top=sup; |
1293 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1294 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1296 |
return;} |
return;} |
1297 |
} |
} |
1298 |
} |
} |
1299 |
static void LnkT63(ptr) object *ptr;{ call_or_link_closure(VV[63],(void **)(void *)&Lnk63,(void **)(void *)&Lclptr63);} /* CLASS-NAME */ |
static void LnkT62(ptr) object *ptr;{ call_or_link_closure(VV[62],(void **)(void *)&Lnk62,(void **)(void *)&Lclptr62);} /* CLASS-NAME */ |
1300 |
static void LnkT62(ptr) object *ptr;{ call_or_link_closure(VV[62],(void **)(void *)&Lnk62,(void **)(void *)&Lclptr62);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */ |
static void LnkT61(ptr) object *ptr;{ call_or_link_closure(VV[61],(void **)(void *)&Lnk61,(void **)(void *)&Lclptr61);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */ |
1301 |
static object LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[2],(void **)(void *)&LnkLI2,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */ |
static object LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[2],(void **)(void *)&LnkLI2,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */ |
1302 |
static void LnkT61(ptr) object *ptr;{ call_or_link_closure(VV[61],(void **)(void *)&Lnk61,(void **)(void *)&Lclptr61);} /* FINALIZE-INHERITANCE */ |
static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* FINALIZE-INHERITANCE */ |
1303 |
static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* CLASS-FINALIZED-P */ |
static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)(void *)&Lnk59,(void **)(void *)&Lclptr59);} /* CLASS-FINALIZED-P */ |
1304 |
static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* TYPECASE-ERROR-STRING */ |
static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* TYPECASE-ERROR-STRING */ |
1305 |
static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
1306 |
static void LnkT57(ptr) object *ptr;{ call_or_link_closure(VV[57],(void **)(void *)&Lnk57,(void **)(void *)&Lclptr57);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */ |
static void LnkT56(ptr) object *ptr;{ call_or_link_closure(VV[56],(void **)(void *)&Lnk56,(void **)(void *)&Lclptr56);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */ |
1307 |
static void LnkT56(ptr) object *ptr;{ call_or_link_closure(VV[56],(void **)(void *)&Lnk56,(void **)(void *)&Lclptr56);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */ |
static void LnkT55(ptr) object *ptr;{ call_or_link_closure(VV[55],(void **)(void *)&Lnk55,(void **)(void *)&Lclptr55);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */ |
1308 |
static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */ |
static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */ |
1309 |
static void LnkT54(ptr) object *ptr;{ call_or_link_closure(VV[54],(void **)(void *)&Lnk54,(void **)(void *)&Lclptr54);} /* SLOT-DEFINITION-LOCATION */ |
static void LnkT53(ptr) object *ptr;{ call_or_link_closure(VV[53],(void **)(void *)&Lnk53,(void **)(void *)&Lclptr53);} /* SLOT-DEFINITION-LOCATION */ |
1310 |
static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* SLOT-VALUE */ |
static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* SLOT-VALUE */ |
1311 |
static void LnkT12(){ call_or_link(VV[12],(void **)(void *)&Lnk12);} /* SLOT-BOUNDP */ |
static void LnkT12(){ call_or_link(VV[12],(void **)(void *)&Lnk12);} /* SLOT-BOUNDP */ |
1312 |
static void LnkT30(ptr) object *ptr;{ call_or_link_closure(VV[30],(void **)(void *)&Lnk30,(void **)(void *)&Lclptr30);} /* SLOT-MAKUNBOUND-USING-CLASS */ |
static void LnkT30(ptr) object *ptr;{ call_or_link_closure(VV[30],(void **)(void *)&Lnk30,(void **)(void *)&Lclptr30);} /* SLOT-MAKUNBOUND-USING-CLASS */ |
1313 |
static void LnkT26(ptr) object *ptr;{ call_or_link_closure(VV[26],(void **)(void *)&Lnk26,(void **)(void *)&Lclptr26);} /* SLOT-BOUNDP-USING-CLASS */ |
static void LnkT26(ptr) object *ptr;{ call_or_link_closure(VV[26],(void **)(void *)&Lnk26,(void **)(void *)&Lclptr26);} /* SLOT-BOUNDP-USING-CLASS */ |
|
static void LnkT53(ptr) object *ptr;{ call_or_link_closure(VV[53],(void **)(void *)&Lnk53,(void **)(void *)&Lclptr53);} /* SETF PCL SLOT-VALUE-USING-CLASS */ |
|
1314 |
static void LnkT18(ptr) object *ptr;{ call_or_link_closure(VV[18],(void **)(void *)&Lnk18,(void **)(void *)&Lclptr18);} /* SLOT-VALUE-USING-CLASS */ |
static void LnkT18(ptr) object *ptr;{ call_or_link_closure(VV[18],(void **)(void *)&Lnk18,(void **)(void *)&Lclptr18);} /* SLOT-VALUE-USING-CLASS */ |
1315 |
static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */ |
static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */ |
1316 |
static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |