606 |
V59= vs_base[0]; |
V59= vs_base[0]; |
607 |
if(((V59))==Cnil){ |
if(((V59))==Cnil){ |
608 |
goto T263;} |
goto T263;} |
609 |
V60= (VFUN_NARGS=2,(*(LnkLI92))((V59),Cnil)); |
V60 = (V56); |
610 |
if(!(((V56))==(/* INLINE-ARGS */V60))){ |
V61= (VFUN_NARGS=2,(*(LnkLI92))((V59),Cnil)); |
611 |
|
if(!((V60)==(/* INLINE-ARGS */V61))){ |
612 |
goto T266;} |
goto T266;} |
613 |
base[4]= (V57); |
base[4]= (V57); |
614 |
base[5]= VV[25]; |
base[5]= VV[25]; |
641 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
642 |
(void) (*Lnk93)(Lclptr93); |
(void) (*Lnk93)(Lclptr93); |
643 |
vs_top=sup; |
vs_top=sup; |
644 |
V63= vs_base[0]; |
V64= vs_base[0]; |
645 |
{object V61; |
{object V62; |
646 |
object V62= V63; |
object V63= V64; |
647 |
if(V62==Cnil){ |
if(V63==Cnil){ |
648 |
base[6]= Cnil; |
base[6]= Cnil; |
649 |
goto T278;} |
goto T278;} |
650 |
base[7]=V61=MMcons(Cnil,Cnil); |
base[7]=V62=MMcons(Cnil,Cnil); |
651 |
goto T279; |
goto T279; |
652 |
T279:; |
T279:; |
653 |
base[8]= (V62->c.c_car); |
base[8]= (V63->c.c_car); |
654 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
655 |
L10(base); |
L10(base); |
656 |
vs_top=sup; |
vs_top=sup; |
657 |
(V61->c.c_car)= vs_base[0]; |
(V62->c.c_car)= vs_base[0]; |
658 |
if((V62=MMcdr(V62))==Cnil){ |
if((V63=MMcdr(V63))==Cnil){ |
659 |
base[6]= base[7]; |
base[6]= base[7]; |
660 |
goto T278;} |
goto T278;} |
661 |
V61=MMcdr(V61)=MMcons(Cnil,Cnil); |
V62=MMcdr(V62)=MMcons(Cnil,Cnil); |
662 |
goto T279;} |
goto T279;} |
663 |
goto T278; |
goto T278; |
664 |
T278:; |
T278:; |
666 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
667 |
(void) (*Lnk94)(Lclptr94); |
(void) (*Lnk94)(Lclptr94); |
668 |
vs_top=sup; |
vs_top=sup; |
669 |
V66= vs_base[0]; |
V67= vs_base[0]; |
670 |
{object V64; |
{object V65; |
671 |
object V65= V66; |
object V66= V67; |
672 |
if(V65==Cnil){ |
if(V66==Cnil){ |
673 |
base[7]= Cnil; |
base[7]= Cnil; |
674 |
goto T284;} |
goto T284;} |
675 |
base[8]=V64=MMcons(Cnil,Cnil); |
base[8]=V65=MMcons(Cnil,Cnil); |
676 |
goto T285; |
goto T285; |
677 |
T285:; |
T285:; |
678 |
base[9]= (V65->c.c_car); |
base[9]= (V66->c.c_car); |
679 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
680 |
L10(base); |
L10(base); |
681 |
vs_top=sup; |
vs_top=sup; |
682 |
(V64->c.c_car)= vs_base[0]; |
(V65->c.c_car)= vs_base[0]; |
683 |
if((V65=MMcdr(V65))==Cnil){ |
if((V66=MMcdr(V66))==Cnil){ |
684 |
base[7]= base[8]; |
base[7]= base[8]; |
685 |
goto T284;} |
goto T284;} |
686 |
V64=MMcdr(V64)=MMcons(Cnil,Cnil); |
V65=MMcdr(V65)=MMcons(Cnil,Cnil); |
687 |
goto T285;} |
goto T285;} |
688 |
goto T284; |
goto T284; |
689 |
T284:; |
T284:; |
691 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
692 |
(void) (*Lnk95)(Lclptr95); |
(void) (*Lnk95)(Lclptr95); |
693 |
vs_top=sup; |
vs_top=sup; |
694 |
V69= vs_base[0]; |
V70= vs_base[0]; |
695 |
{object V67; |
{object V68; |
696 |
object V68= V69; |
object V69= V70; |
697 |
if(V68==Cnil){ |
if(V69==Cnil){ |
698 |
base[8]= Cnil; |
base[8]= Cnil; |
699 |
goto T290;} |
goto T290;} |
700 |
base[9]=V67=MMcons(Cnil,Cnil); |
base[9]=V68=MMcons(Cnil,Cnil); |
701 |
goto T291; |
goto T291; |
702 |
T291:; |
T291:; |
703 |
base[10]= (V68->c.c_car); |
base[10]= (V69->c.c_car); |
704 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
705 |
L10(base); |
L10(base); |
706 |
vs_top=sup; |
vs_top=sup; |
707 |
(V67->c.c_car)= vs_base[0]; |
(V68->c.c_car)= vs_base[0]; |
708 |
if((V68=MMcdr(V68))==Cnil){ |
if((V69=MMcdr(V69))==Cnil){ |
709 |
base[8]= base[9]; |
base[8]= base[9]; |
710 |
goto T290;} |
goto T290;} |
711 |
V67=MMcdr(V67)=MMcons(Cnil,Cnil); |
V68=MMcdr(V68)=MMcons(Cnil,Cnil); |
712 |
goto T291;} |
goto T291;} |
713 |
goto T290; |
goto T290; |
714 |
T290:; |
T290:; |
716 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
717 |
(void) (*Lnk96)(Lclptr96); |
(void) (*Lnk96)(Lclptr96); |
718 |
vs_top=sup; |
vs_top=sup; |
719 |
V70= vs_base[0]; |
V71= vs_base[0]; |
720 |
base[9]= CMPmake_fixnum((long)length(V70)); |
base[9]= CMPmake_fixnum((long)length(V71)); |
721 |
vs_top=(vs_base=base+4)+6; |
vs_top=(vs_base=base+4)+6; |
722 |
Lformat(); |
Lformat(); |
723 |
vs_top=sup; |
vs_top=sup; |
747 |
T307:; |
T307:; |
748 |
if(!(type_of((V55))==t_fixnum)){ |
if(!(type_of((V55))==t_fixnum)){ |
749 |
goto T317;} |
goto T317;} |
750 |
{object V72; |
{object V73; |
751 |
if(type_of(V56)==t_structure){ |
if(type_of(V56)==t_structure){ |
752 |
goto T323;} |
goto T323;} |
753 |
goto T321; |
goto T321; |
755 |
T323:; |
T323:; |
756 |
if(!(((V56)->str.str_def)==(VV[29]))){ |
if(!(((V56)->str.str_def)==(VV[29]))){ |
757 |
goto T321;} |
goto T321;} |
758 |
V72= STREF(object,(V56),4); |
V73= STREF(object,(V56),4); |
759 |
goto T319; |
goto T319; |
760 |
goto T321; |
goto T321; |
761 |
T321:;{object V74; |
T321:;{object V75; |
762 |
V74= (VV[19]->s.s_dbind); |
V75= (VV[19]->s.s_dbind); |
763 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
764 |
base[5]= (V56); |
base[5]= (V56); |
765 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
766 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
767 |
vs_top=sup; |
vs_top=sup; |
768 |
V75= vs_base[0]; |
V76= vs_base[0]; |
769 |
if(!((V74)==(CMPcar(V75)))){ |
if(!((V75)==(CMPcar(V76)))){ |
770 |
goto T326;}} |
goto T326;}} |
771 |
V72= CMPcar(((V56))->cc.cc_turbo[12]); |
V73= CMPcar(((V56))->cc.cc_turbo[12]); |
772 |
goto T319; |
goto T319; |
773 |
goto T326; |
goto T326; |
774 |
T326:; |
T326:; |
775 |
V72= Cnil; |
V73= Cnil; |
776 |
goto T319; |
goto T319; |
777 |
T319:; |
T319:; |
778 |
if(((V72))==Cnil){ |
if(((V73))==Cnil){ |
779 |
goto T332;} |
goto T332;} |
780 |
base[4]= ((V72))->v.v_self[fix((V55))]= (V56); |
base[4]= ((V73))->v.v_self[fix((V55))]= (V56); |
781 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
782 |
return; |
return; |
783 |
goto T332; |
goto T332; |
787 |
return;} |
return;} |
788 |
goto T317; |
goto T317; |
789 |
T317:; |
T317:; |
790 |
{register object V76; |
{register object V77; |
791 |
V76= (V55); |
V77= (V55); |
792 |
base[4]= (V76); |
base[4]= (V77); |
793 |
base[5]= VV[20]; |
base[5]= VV[20]; |
794 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
795 |
(void) (*Lnk87)(); |
(void) (*Lnk87)(); |
796 |
vs_top=sup; |
vs_top=sup; |
797 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
798 |
goto T335;} |
goto T335;} |
799 |
{object V77; |
{object V78; |
800 |
object V78; |
object V79; |
801 |
register object V79; |
register object V80; |
802 |
V77= STREF(object,(V55),0); |
V78= STREF(object,(V55),0); |
803 |
V78= list(2,(V56),(V57)); |
V79= list(2,(V56),(V57)); |
804 |
V79= STREF(object,(V55),4); |
V80= STREF(object,(V55),4); |
805 |
if(((V79))==Cnil){ |
if(((V80))==Cnil){ |
806 |
goto T343;} |
goto T343;} |
807 |
if((CMPcdr((V79)))!=Cnil){ |
if((CMPcdr((V80)))!=Cnil){ |
808 |
goto T343;} |
goto T343;} |
809 |
base[4]= (V78); |
base[4]= (V79); |
810 |
base[5]= CMPcar((V79)); |
base[5]= CMPcar((V80)); |
811 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
812 |
{object _funobj = (V77);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V78);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
813 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
814 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
815 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
816 |
return; |
return; |
817 |
goto T343; |
goto T343; |
818 |
T343:; |
T343:; |
819 |
base[4]= (V77); |
base[4]= (V78); |
820 |
base[5]= (V78); |
base[5]= (V79); |
821 |
{object V80; |
{object V81; |
822 |
V80= (V79); |
V81= (V80); |
823 |
vs_top=base+6; |
vs_top=base+6; |
824 |
while(V80!=Cnil) |
while(V81!=Cnil) |
825 |
{vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;} |
{vs_push((V81)->c.c_car);V81=(V81)->c.c_cdr;} |
826 |
vs_base=base+5;} |
vs_base=base+5;} |
827 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
828 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
831 |
return;} |
return;} |
832 |
goto T335; |
goto T335; |
833 |
T335:; |
T335:; |
834 |
base[4]= (V76); |
base[4]= (V77); |
835 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
836 |
Lfunctionp(); |
Lfunctionp(); |
837 |
vs_top=sup; |
vs_top=sup; |
848 |
goto T353; |
goto T353; |
849 |
T353:; |
T353:; |
850 |
base[5]= VV[21]; |
base[5]= VV[21]; |
851 |
base[6]= (V76); |
base[6]= (V77); |
852 |
base[7]= VV[30]; |
base[7]= VV[30]; |
853 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
854 |
(void) (*Lnk90)(); |
(void) (*Lnk90)(); |
872 |
} |
} |
873 |
/* local entry for function DESCRIBE-PACKAGE */ |
/* local entry for function DESCRIBE-PACKAGE */ |
874 |
|
|
875 |
static object LI11(V83,V84) |
static object LI11(V84,V85) |
876 |
|
|
877 |
object V83;object V84; |
object V84;object V85; |
878 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
879 |
goto TTL; |
goto TTL; |
880 |
TTL:; |
TTL:; |
881 |
base[0]= (V83); |
base[0]= (V84); |
882 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
883 |
Lpackagep(); |
Lpackagep(); |
884 |
vs_top=sup; |
vs_top=sup; |
885 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
886 |
goto T363;} |
goto T363;} |
887 |
base[0]= (V83); |
base[0]= (V84); |
888 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
889 |
Lfind_package(); |
Lfind_package(); |
890 |
vs_top=sup; |
vs_top=sup; |
891 |
V83= vs_base[0]; |
V84= vs_base[0]; |
892 |
goto T363; |
goto T363; |
893 |
T363:; |
T363:; |
894 |
base[0]= (V84); |
base[0]= (V85); |
895 |
base[1]= VV[31]; |
base[1]= VV[31]; |
896 |
base[2]= (V83); |
base[2]= (V84); |
897 |
base[4]= (V83); |
base[4]= (V84); |
898 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
899 |
Ltype_of(); |
Ltype_of(); |
900 |
vs_top=sup; |
vs_top=sup; |
902 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
903 |
Lformat(); |
Lformat(); |
904 |
vs_top=sup; |
vs_top=sup; |
905 |
{object V85; |
{object V86; |
906 |
base[0]= (V83); |
base[0]= (V84); |
907 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
908 |
Lpackage_nicknames(); |
Lpackage_nicknames(); |
909 |
vs_top=sup; |
vs_top=sup; |
910 |
V85= vs_base[0]; |
V86= vs_base[0]; |
911 |
if(((V85))==Cnil){ |
if(((V86))==Cnil){ |
912 |
goto T375;} |
goto T375;} |
913 |
base[0]= (V84); |
base[0]= (V85); |
914 |
base[1]= VV[32]; |
base[1]= VV[32]; |
915 |
base[3]= (V85); |
base[3]= (V86); |
916 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
917 |
Lbutlast(); |
Lbutlast(); |
918 |
vs_top=sup; |
vs_top=sup; |
919 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
920 |
base[4]= (V85); |
base[4]= (V86); |
921 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
922 |
Llast(); |
Llast(); |
923 |
vs_top=sup; |
vs_top=sup; |
924 |
V86= vs_base[0]; |
V87= vs_base[0]; |
925 |
base[3]= CMPcar(V86); |
base[3]= CMPcar(V87); |
926 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
927 |
Lformat(); |
Lformat(); |
928 |
vs_top=sup;} |
vs_top=sup;} |
929 |
goto T375; |
goto T375; |
930 |
T375:; |
T375:; |
931 |
{object V87; |
{object V88; |
932 |
object V88; |
object V89; |
|
V87= small_fixnum(0); |
|
933 |
V88= small_fixnum(0); |
V88= small_fixnum(0); |
934 |
{object V89; |
V89= small_fixnum(0); |
935 |
register object V90; |
{object V90; |
936 |
register object V91; |
register object V91; |
937 |
{object V92; |
register object V92; |
938 |
V92= (V83); |
{object V93; |
939 |
base[0]= (V92); |
V93= (V84); |
940 |
|
base[0]= (V93); |
941 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
942 |
Lpackagep(); |
Lpackagep(); |
943 |
vs_top=sup; |
vs_top=sup; |
944 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
945 |
goto T392;} |
goto T392;} |
946 |
base[0]= coerce_to_string((V92)); |
base[0]= coerce_to_string((V93)); |
947 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
948 |
Lfind_package(); |
Lfind_package(); |
949 |
vs_top=sup; |
vs_top=sup; |
950 |
V92= vs_base[0]; |
V93= vs_base[0]; |
951 |
if(((V92))!=Cnil){ |
if(((V93))!=Cnil){ |
952 |
goto T392;} |
goto T392;} |
953 |
base[0]= VV[33]; |
base[0]= VV[33]; |
954 |
base[1]= VV[34]; |
base[1]= VV[34]; |
955 |
base[2]= (V83); |
base[2]= (V84); |
956 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
957 |
(void) (*Lnk97)(); |
(void) (*Lnk97)(); |
958 |
vs_top=sup; |
vs_top=sup; |
959 |
goto T392; |
goto T392; |
960 |
T392:; |
T392:; |
961 |
V89= (V92);} |
V90= (V93);} |
|
V90= Cnil; |
|
962 |
V91= Cnil; |
V91= Cnil; |
963 |
{long V93; |
V92= Cnil; |
964 |
long V94; |
{long V94; |
965 |
base[0]= (V89); |
long V95; |
966 |
|
base[0]= (V90); |
967 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
968 |
(void) (*Lnk98)(); |
(void) (*Lnk98)(); |
969 |
vs_top=sup; |
vs_top=sup; |
970 |
V93= fix(vs_base[0]); |
V94= fix(vs_base[0]); |
971 |
V94= 0; |
V95= 0; |
972 |
goto T407; |
goto T407; |
973 |
T407:; |
T407:; |
974 |
if(!((V94)>=(V93))){ |
if(!((V95)>=(V94))){ |
975 |
goto T410;} |
goto T410;} |
976 |
V90= Cnil; |
V91= Cnil; |
977 |
goto T390; |
goto T390; |
978 |
goto T410; |
goto T410; |
979 |
T410:; |
T410:; |
980 |
base[0]= (V89); |
base[0]= (V90); |
981 |
base[1]= CMPmake_fixnum(V94); |
base[1]= CMPmake_fixnum(V95); |
982 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
983 |
siLpackage_external(); |
siLpackage_external(); |
984 |
vs_top=sup; |
vs_top=sup; |
985 |
V91= vs_base[0]; |
V92= vs_base[0]; |
986 |
goto T408; |
goto T408; |
987 |
T408:; |
T408:; |
988 |
if(((V91))!=Cnil){ |
if(((V92))!=Cnil){ |
989 |
goto T418;} |
goto T418;} |
990 |
goto T409; |
goto T409; |
991 |
goto T418; |
goto T418; |
992 |
T418:; |
T418:; |
993 |
V90= CMPcar((V91)); |
V91= CMPcar((V92)); |
994 |
V88= number_plus((V88),small_fixnum(1)); |
V89= number_plus((V89),small_fixnum(1)); |
995 |
V91= CMPcdr((V91)); |
V92= CMPcdr((V92)); |
996 |
goto T408; |
goto T408; |
997 |
goto T409; |
goto T409; |
998 |
T409:; |
T409:; |
999 |
V94= (long)(V94)+1; |
V95= (long)(V95)+1; |
1000 |
goto T407;}} |
goto T407;}} |
1001 |
goto T390; |
goto T390; |
1002 |
T390:; |
T390:; |
1003 |
{register object V95; |
{register object V96; |
1004 |
object V96; |
object V97; |
1005 |
register object V97; |
register object V98; |
1006 |
{object V98; |
{object V99; |
1007 |
V98= (V83); |
V99= (V84); |
1008 |
base[0]= (V98); |
base[0]= (V99); |
1009 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1010 |
Lpackagep(); |
Lpackagep(); |
1011 |
vs_top=sup; |
vs_top=sup; |
1012 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1013 |
goto T432;} |
goto T432;} |
1014 |
base[0]= coerce_to_string((V98)); |
base[0]= coerce_to_string((V99)); |
1015 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1016 |
Lfind_package(); |
Lfind_package(); |
1017 |
vs_top=sup; |
vs_top=sup; |
1018 |
V98= vs_base[0]; |
V99= vs_base[0]; |
1019 |
if(((V98))!=Cnil){ |
if(((V99))!=Cnil){ |
1020 |
goto T432;} |
goto T432;} |
1021 |
base[0]= VV[33]; |
base[0]= VV[33]; |
1022 |
base[1]= VV[34]; |
base[1]= VV[34]; |
1023 |
base[2]= (V83); |
base[2]= (V84); |
1024 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1025 |
(void) (*Lnk97)(); |
(void) (*Lnk97)(); |
1026 |
vs_top=sup; |
vs_top=sup; |
1027 |
goto T432; |
goto T432; |
1028 |
T432:; |
T432:; |
1029 |
V95= (V98);} |
V96= (V99);} |
|
V96= Cnil; |
|
1030 |
V97= Cnil; |
V97= Cnil; |
1031 |
{object V99; |
V98= Cnil; |
1032 |
register object V100; |
{object V100; |
1033 |
base[2]= (V95); |
register object V101; |
1034 |
|
V102 = (V96); |
1035 |
|
base[2]= (V96); |
1036 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1037 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1038 |
vs_top=sup; |
vs_top=sup; |
1039 |
V101= vs_base[0]; |
V103= vs_base[0]; |
1040 |
V99= make_cons((V95),V101); |
V100= make_cons(V102,V103); |
1041 |
V100= CMPcar((V99)); |
V101= CMPcar((V100)); |
1042 |
goto T448; |
goto T448; |
1043 |
T448:; |
T448:; |
1044 |
if(!(((V99))==Cnil)){ |
if(!(((V100))==Cnil)){ |
1045 |
goto T449;} |
goto T449;} |
1046 |
V96= Cnil; |
V97= Cnil; |
1047 |
goto T430; |
goto T430; |
1048 |
goto T449; |
goto T449; |
1049 |
T449:; |
T449:; |
1050 |
{long V102; |
{long V104; |
1051 |
register long V103; |
register long V105; |
1052 |
base[2]= (V100); |
base[2]= (V101); |
1053 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1054 |
(void) (*Lnk98)(); |
(void) (*Lnk98)(); |
1055 |
if(vs_base>=vs_top){vs_top=sup;goto T458;} |
if(vs_base>=vs_top){vs_top=sup;goto T458;} |
1056 |
V102= fix(vs_base[0]); |
V104= fix(vs_base[0]); |
1057 |
vs_base++; |
vs_base++; |
1058 |
if(vs_base>=vs_top){vs_top=sup;goto T459;} |
if(vs_base>=vs_top){vs_top=sup;goto T459;} |
1059 |
V103= fix(vs_base[0]); |
V105= fix(vs_base[0]); |
1060 |
vs_top=sup; |
vs_top=sup; |
1061 |
goto T460; |
goto T460; |
1062 |
goto T458; |
goto T458; |
1063 |
T458:; |
T458:; |
1064 |
V102= fix(Cnil); |
V104= fix(Cnil); |
1065 |
goto T459; |
goto T459; |
1066 |
T459:; |
T459:; |
1067 |
V103= fix(Cnil); |
V105= fix(Cnil); |
1068 |
goto T460; |
goto T460; |
1069 |
T460:; |
T460:; |
1070 |
if(((V95))==((V100))){ |
if(((V96))==((V101))){ |
1071 |
goto T461;} |
goto T461;} |
1072 |
V103= 0; |
V105= 0; |
1073 |
goto T461; |
goto T461; |
1074 |
T461:; |
T461:; |
1075 |
{long V104; |
{long V106; |
1076 |
register long V105; |
register long V107; |
1077 |
V104= (long)(V103)+(V102); |
V106= (long)(V105)+(V104); |
1078 |
V105= 0; |
V107= 0; |
1079 |
goto T468; |
goto T468; |
1080 |
T468:; |
T468:; |
1081 |
if(!((V105)>=(V104))){ |
if(!((V107)>=(V106))){ |
1082 |
goto T471;} |
goto T471;} |
1083 |
goto T455; |
goto T455; |
1084 |
goto T471; |
goto T471; |
1085 |
T471:; |
T471:; |
1086 |
if(!((V105)<(V103))){ |
if(!((V107)<(V105))){ |
1087 |
goto T476;} |
goto T476;} |
1088 |
base[2]= (V100); |
base[2]= (V101); |
1089 |
base[3]= CMPmake_fixnum(V105); |
base[3]= CMPmake_fixnum(V107); |
1090 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1091 |
siLpackage_internal(); |
siLpackage_internal(); |
1092 |
vs_top=sup; |
vs_top=sup; |
1093 |
V97= vs_base[0]; |
V98= vs_base[0]; |
1094 |
goto T474; |
goto T474; |
1095 |
goto T476; |
goto T476; |
1096 |
T476:; |
T476:; |
1097 |
base[2]= (V100); |
base[2]= (V101); |
1098 |
V106 = CMPmake_fixnum(V105); |
V108 = CMPmake_fixnum(V107); |
1099 |
V107 = CMPmake_fixnum(V103); |
V109 = CMPmake_fixnum(V105); |
1100 |
base[3]= number_minus(V106,V107); |
base[3]= number_minus(V108,V109); |
1101 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1102 |
siLpackage_external(); |
siLpackage_external(); |
1103 |
vs_top=sup; |
vs_top=sup; |
1104 |
V97= vs_base[0]; |
V98= vs_base[0]; |
1105 |
goto T474; |
goto T474; |
1106 |
T474:; |
T474:; |
1107 |
goto T469; |
goto T469; |
1108 |
T469:; |
T469:; |
1109 |
if(((V97))!=Cnil){ |
if(((V98))!=Cnil){ |
1110 |
goto T482;} |
goto T482;} |
1111 |
goto T470; |
goto T470; |
1112 |
goto T482; |
goto T482; |
1113 |
T482:; |
T482:; |
1114 |
V96= CMPcar((V97)); |
V97= CMPcar((V98)); |
1115 |
if(((V100))==((V95))){ |
if(((V101))==((V96))){ |
1116 |
goto T488;} |
goto T488;} |
1117 |
base[3]= symbol_name((V96)); |
base[3]= symbol_name((V97)); |
1118 |
base[4]= (V95); |
base[4]= (V96); |
1119 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1120 |
Lfind_symbol(); |
Lfind_symbol(); |
1121 |
Llist(); |
Llist(); |
1124 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1125 |
Llast(); |
Llast(); |
1126 |
vs_top=sup; |
vs_top=sup; |
1127 |
V108= vs_base[0]; |
V110= vs_base[0]; |
1128 |
if(!((VV[35])==(CMPcar(V108)))){ |
if(!((VV[35])==(CMPcar(V110)))){ |
1129 |
goto T487;} |
goto T487;} |
1130 |
goto T488; |
goto T488; |
1131 |
T488:; |
T488:; |
1132 |
V87= number_plus((V87),small_fixnum(1)); |
V88= number_plus((V88),small_fixnum(1)); |
1133 |
goto T487; |
goto T487; |
1134 |
T487:; |
T487:; |
1135 |
V97= CMPcdr((V97)); |
V98= CMPcdr((V98)); |
1136 |
goto T469; |
goto T469; |
1137 |
goto T470; |
goto T470; |
1138 |
T470:; |
T470:; |
1139 |
V105= (long)(V105)+1; |
V107= (long)(V107)+1; |
1140 |
goto T468;}} |
goto T468;}} |
1141 |
goto T455; |
goto T455; |
1142 |
T455:; |
T455:; |
1143 |
V99= CMPcdr((V99)); |
V100= CMPcdr((V100)); |
1144 |
V100= CMPcar((V99)); |
V101= CMPcar((V100)); |
1145 |
goto T448;}} |
goto T448;}} |
1146 |
goto T430; |
goto T430; |
1147 |
T430:; |
T430:; |
1148 |
V87= number_minus((V87),(V88)); |
V88= number_minus((V88),(V89)); |
1149 |
base[0]= (V84); |
base[0]= (V85); |
1150 |
base[1]= VV[36]; |
base[1]= VV[36]; |
1151 |
base[2]= (V87); |
base[2]= (V88); |
1152 |
base[3]= (V88); |
base[3]= (V89); |
1153 |
base[4]= number_plus((V87),(V88)); |
base[4]= number_plus((V88),(V89)); |
1154 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
1155 |
Lformat(); |
Lformat(); |
1156 |
vs_top=sup;} |
vs_top=sup;} |
1157 |
{object V109; |
{object V111; |
1158 |
base[0]= (V83); |
base[0]= (V84); |
1159 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1160 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1161 |
vs_top=sup; |
vs_top=sup; |
1162 |
V109= vs_base[0]; |
V111= vs_base[0]; |
1163 |
if(((V109))==Cnil){ |
if(((V111))==Cnil){ |
1164 |
goto T516;} |
goto T516;} |
1165 |
base[0]= (V84); |
base[0]= (V85); |
1166 |
base[1]= VV[37]; |
base[1]= VV[37]; |
1167 |
{object V110; |
{object V112; |
1168 |
object V111= (V109); |
object V113= (V111); |
1169 |
if(V111==Cnil){ |
if(V113==Cnil){ |
1170 |
base[2]= Cnil; |
base[2]= Cnil; |
1171 |
goto T523;} |
goto T523;} |
1172 |
base[3]=V110=MMcons(Cnil,Cnil); |
base[3]=V112=MMcons(Cnil,Cnil); |
1173 |
goto T524; |
goto T524; |
1174 |
T524:; |
T524:; |
1175 |
base[4]= (V111->c.c_car); |
base[4]= (V113->c.c_car); |
1176 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1177 |
Lpackage_name(); |
Lpackage_name(); |
1178 |
vs_top=sup; |
vs_top=sup; |
1179 |
(V110->c.c_car)= vs_base[0]; |
(V112->c.c_car)= vs_base[0]; |
1180 |
if((V111=MMcdr(V111))==Cnil){ |
if((V113=MMcdr(V113))==Cnil){ |
1181 |
base[2]= base[3]; |
base[2]= base[3]; |
1182 |
goto T523;} |
goto T523;} |
1183 |
V110=MMcdr(V110)=MMcons(Cnil,Cnil); |
V112=MMcdr(V112)=MMcons(Cnil,Cnil); |
1184 |
goto T524;} |
goto T524;} |
1185 |
goto T523; |
goto T523; |
1186 |
T523:; |
T523:; |
1189 |
vs_top=sup;} |
vs_top=sup;} |
1190 |
goto T516; |
goto T516; |
1191 |
T516:; |
T516:; |
1192 |
{object V112; |
{object V114; |
1193 |
base[0]= (V83); |
base[0]= (V84); |
1194 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1195 |
Lpackage_use_list(); |
Lpackage_use_list(); |
1196 |
vs_top=sup; |
vs_top=sup; |
1197 |
V112= vs_base[0]; |
V114= vs_base[0]; |
1198 |
if(((V112))==Cnil){ |
if(((V114))==Cnil){ |
1199 |
goto T530;} |
goto T530;} |
1200 |
base[0]= (V84); |
base[0]= (V85); |
1201 |
base[1]= VV[38]; |
base[1]= VV[38]; |
1202 |
{object V113; |
{object V115; |
1203 |
object V114= (V112); |
object V116= (V114); |
1204 |
if(V114==Cnil){ |
if(V116==Cnil){ |
1205 |
base[2]= Cnil; |
base[2]= Cnil; |
1206 |
goto T534;} |
goto T534;} |
1207 |
base[3]=V113=MMcons(Cnil,Cnil); |
base[3]=V115=MMcons(Cnil,Cnil); |
1208 |
goto T535; |
goto T535; |
1209 |
T535:; |
T535:; |
1210 |
base[4]= (V114->c.c_car); |
base[4]= (V116->c.c_car); |
1211 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1212 |
Lpackage_name(); |
Lpackage_name(); |
1213 |
vs_top=sup; |
vs_top=sup; |
1214 |
(V113->c.c_car)= vs_base[0]; |
(V115->c.c_car)= vs_base[0]; |
1215 |
if((V114=MMcdr(V114))==Cnil){ |
if((V116=MMcdr(V116))==Cnil){ |
1216 |
base[2]= base[3]; |
base[2]= base[3]; |
1217 |
goto T534;} |
goto T534;} |
1218 |
V113=MMcdr(V113)=MMcons(Cnil,Cnil); |
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
1219 |
goto T535;} |
goto T535;} |
1220 |
goto T534; |
goto T534; |
1221 |
T534:; |
T534:; |
1222 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1223 |
Lformat(); |
Lformat(); |
1224 |
vs_top=sup; |
vs_top=sup; |
1225 |
{object V115 = vs_base[0]; |
{object V117 = vs_base[0]; |
1226 |
VMR8(V115)} |
VMR8(V117)} |
1227 |
goto T530; |
goto T530; |
1228 |
T530:; |
T530:; |
1229 |
{object V116 = Cnil; |
{object V118 = Cnil; |
1230 |
VMR8(V116)}} |
VMR8(V118)}} |
1231 |
base[0]=base[0]; |
base[0]=base[0]; |
1232 |
return Cnil; |
return Cnil; |
1233 |
} |
} |
1244 |
base[0]= VV[39]; |
base[0]= VV[39]; |
1245 |
base[1]= VV[40]; |
base[1]= VV[40]; |
1246 |
base[2]= VV[41]; |
base[2]= VV[41]; |
1247 |
V117= listA(9,VV[42],VV[43],VV[44],Cnil,VV[45],Cnil,VV[46],VV[47],Cnil); |
V119= listA(9,VV[42],VV[43],VV[44],Cnil,VV[45],Cnil,VV[46],VV[47],Cnil); |
1248 |
V118= listA(9,VV[42],VV[48],VV[44],VV[49],VV[45],Cnil,VV[46],VV[50],Cnil); |
V120= listA(9,VV[42],VV[48],VV[44],VV[49],VV[45],Cnil,VV[46],VV[50],Cnil); |
1249 |
base[4]= VV[51]; |
base[4]= VV[51]; |
1250 |
base[5]= (VV[99]->s.s_gfdef); |
base[5]= (VV[99]->s.s_gfdef); |
1251 |
base[6]= VV[42]; |
base[6]= VV[42]; |
1260 |
vs_top=(vs_base=base+4)+11; |
vs_top=(vs_base=base+4)+11; |
1261 |
LlistA(); |
LlistA(); |
1262 |
vs_top=sup; |
vs_top=sup; |
1263 |
V119= vs_base[0]; |
V121= vs_base[0]; |
1264 |
base[3]= list(3,/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119); |
base[3]= list(3,/* INLINE-ARGS */V119,/* INLINE-ARGS */V120,V121); |
1265 |
base[4]= Cnil; |
base[4]= Cnil; |
1266 |
base[5]= VV[56]; |
base[5]= VV[56]; |
1267 |
symlispcall(VV[100],base+0,6); |
symlispcall(VV[100],base+0,6); |
1273 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1274 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
1275 |
vs_check; |
vs_check; |
1276 |
{object V120; |
{object V122; |
1277 |
object V121; |
object V123; |
1278 |
register object V122; |
register object V124; |
1279 |
check_arg(3); |
check_arg(3); |
1280 |
V120=(base[0]); |
V122=(base[0]); |
1281 |
V121=(base[1]); |
V123=(base[1]); |
1282 |
V122=(base[2]); |
V124=(base[2]); |
1283 |
vs_top=sup; |
vs_top=sup; |
1284 |
goto TTL; |
goto TTL; |
1285 |
TTL:; |
TTL:; |
|
{object V124; |
|
|
object V125; |
|
|
V124= CMPcar((V120)); |
|
|
V125= CMPcdr((V120)); |
|
1286 |
{object V126; |
{object V126; |
1287 |
if(type_of(V122)==t_structure){ |
object V127; |
1288 |
|
V126= CMPcar((V122)); |
1289 |
|
V127= CMPcdr((V122)); |
1290 |
|
{object V128; |
1291 |
|
if(type_of(V124)==t_structure){ |
1292 |
goto T566;} |
goto T566;} |
1293 |
goto T564; |
goto T564; |
1294 |
goto T566; |
goto T566; |
1295 |
T566:; |
T566:; |
1296 |
if(!(((V122)->str.str_def)==(VV[57]))){ |
if(!(((V124)->str.str_def)==(VV[57]))){ |
1297 |
goto T564;} |
goto T564;} |
1298 |
V126= STREF(object,(V122),4); |
V128= STREF(object,(V124),4); |
1299 |
goto T562; |
goto T562; |
1300 |
goto T564; |
goto T564; |
1301 |
T564:;{object V128; |
T564:;{object V130; |
1302 |
V128= (VV[19]->s.s_dbind); |
V130= (VV[19]->s.s_dbind); |
1303 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1304 |
base[4]= (V122); |
base[4]= (V124); |
1305 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1306 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
1307 |
vs_top=sup; |
vs_top=sup; |
1308 |
V129= vs_base[0]; |
V131= vs_base[0]; |
1309 |
if(!((V128)==(CMPcar(V129)))){ |
if(!((V130)==(CMPcar(V131)))){ |
1310 |
goto T569;}} |
goto T569;}} |
1311 |
V126= CMPcar(((V122))->cc.cc_turbo[12]); |
V128= CMPcar(((V124))->cc.cc_turbo[12]); |
1312 |
goto T562; |
goto T562; |
1313 |
goto T569; |
goto T569; |
1314 |
T569:; |
T569:; |
1315 |
V126= Cnil; |
V128= Cnil; |
1316 |
goto T562; |
goto T562; |
1317 |
T562:; |
T562:; |
1318 |
{register object V131; |
{register object V133; |
1319 |
V131= ((V124))->v.v_self[1]; |
V133= ((V126))->v.v_self[1]; |
1320 |
if(!(type_of(V131)==t_fixnum)){ |
if(!(type_of(V133)==t_fixnum)){ |
1321 |
goto T581;} |
goto T581;} |
1322 |
V131= ((V126))->v.v_self[fix((V131))]; |
V133= ((V128))->v.v_self[fix((V133))]; |
1323 |
goto T579; |
goto T579; |
1324 |
goto T581; |
goto T581; |
1325 |
T581:; |
T581:; |
1326 |
V131= VV[58]; |
V133= VV[58]; |
1327 |
goto T579; |
goto T579; |
1328 |
T579:; |
T579:; |
1329 |
if(!(((V131))==(VV[58]))){ |
if(!(((V133))==(VV[58]))){ |
1330 |
goto T584;} |
goto T584;} |
1331 |
base[4]= (V122); |
base[4]= (V124); |
1332 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1333 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
1334 |
vs_top=sup; |
vs_top=sup; |
1336 |
goto T576; |
goto T576; |
1337 |
goto T584; |
goto T584; |
1338 |
T584:; |
T584:; |
1339 |
base[3]= (V131);} |
base[3]= (V133);} |
1340 |
goto T576; |
goto T576; |
1341 |
T576:; |
T576:; |
1342 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1350 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1351 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
1352 |
vs_check; |
vs_check; |
1353 |
{object V133; |
{object V135; |
1354 |
object V134; |
object V136; |
1355 |
register object V135; |
register object V137; |
1356 |
check_arg(3); |
check_arg(3); |
1357 |
V133=(base[0]); |
V135=(base[0]); |
1358 |
V134=(base[1]); |
V136=(base[1]); |
1359 |
V135=(base[2]); |
V137=(base[2]); |
1360 |
vs_top=sup; |
vs_top=sup; |
1361 |
goto TTL; |
goto TTL; |
1362 |
TTL:; |
TTL:; |
|
{object V137; |
|
|
object V138; |
|
|
V137= CMPcar((V133)); |
|
|
V138= CMPcdr((V133)); |
|
1363 |
{object V139; |
{object V139; |
1364 |
if(type_of(V135)==t_structure){ |
object V140; |
1365 |
|
V139= CMPcar((V135)); |
1366 |
|
V140= CMPcdr((V135)); |
1367 |
|
{object V141; |
1368 |
|
if(type_of(V137)==t_structure){ |
1369 |
goto T597;} |
goto T597;} |
1370 |
goto T595; |
goto T595; |
1371 |
goto T597; |
goto T597; |
1372 |
T597:; |
T597:; |
1373 |
if(!(((V135)->str.str_def)==(VV[59]))){ |
if(!(((V137)->str.str_def)==(VV[59]))){ |
1374 |
goto T595;} |
goto T595;} |
1375 |
V139= STREF(object,(V135),4); |
V141= STREF(object,(V137),4); |
1376 |
goto T593; |
goto T593; |
1377 |
goto T595; |
goto T595; |
1378 |
T595:;{object V141; |
T595:;{object V143; |
1379 |
V141= (VV[19]->s.s_dbind); |
V143= (VV[19]->s.s_dbind); |
1380 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1381 |
base[4]= (V135); |
base[4]= (V137); |
1382 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1383 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
1384 |
vs_top=sup; |
vs_top=sup; |
1385 |
V142= vs_base[0]; |
V144= vs_base[0]; |
1386 |
if(!((V141)==(CMPcar(V142)))){ |
if(!((V143)==(CMPcar(V144)))){ |
1387 |
goto T600;}} |
goto T600;}} |
1388 |
V139= CMPcar(((V135))->cc.cc_turbo[12]); |
V141= CMPcar(((V137))->cc.cc_turbo[12]); |
1389 |
goto T593; |
goto T593; |
1390 |
goto T600; |
goto T600; |
1391 |
T600:; |
T600:; |
1392 |
V139= Cnil; |
V141= Cnil; |
1393 |
goto T593; |
goto T593; |
1394 |
T593:; |
T593:; |
1395 |
{register object V144; |
{register object V146; |
1396 |
V144= ((V137))->v.v_self[1]; |
V146= ((V139))->v.v_self[1]; |
1397 |
if(!(type_of(V144)==t_fixnum)){ |
if(!(type_of(V146)==t_fixnum)){ |
1398 |
goto T612;} |
goto T612;} |
1399 |
V144= ((V139))->v.v_self[fix((V144))]; |
V146= ((V141))->v.v_self[fix((V146))]; |
1400 |
goto T610; |
goto T610; |
1401 |
goto T612; |
goto T612; |
1402 |
T612:; |
T612:; |
1403 |
V144= VV[58]; |
V146= VV[58]; |
1404 |
goto T610; |
goto T610; |
1405 |
T610:; |
T610:; |
1406 |
if(!(((V144))==(VV[58]))){ |
if(!(((V146))==(VV[58]))){ |
1407 |
goto T615;} |
goto T615;} |
1408 |
base[4]= (V135); |
base[4]= (V137); |
1409 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1410 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
1411 |
vs_top=sup; |
vs_top=sup; |
1413 |
goto T607; |
goto T607; |
1414 |
goto T615; |
goto T615; |
1415 |
T615:; |
T615:; |
1416 |
base[3]= (V144);} |
base[3]= (V146);} |
1417 |
goto T607; |
goto T607; |
1418 |
T607:; |
T607:; |
1419 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1427 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1428 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
1429 |
vs_check; |
vs_check; |
1430 |
{object V146; |
{object V148; |
1431 |
object V147; |
object V149; |
1432 |
register object V148; |
register object V150; |
1433 |
check_arg(3); |
check_arg(3); |
1434 |
V146=(base[0]); |
V148=(base[0]); |
1435 |
V147=(base[1]); |
V149=(base[1]); |
1436 |
V148=(base[2]); |
V150=(base[2]); |
1437 |
vs_top=sup; |
vs_top=sup; |
1438 |
goto TTL; |
goto TTL; |
1439 |
TTL:; |
TTL:; |
|
{object V150; |
|
|
object V151; |
|
|
V150= CMPcar((V146)); |
|
|
V151= CMPcdr((V146)); |
|
1440 |
{object V152; |
{object V152; |
1441 |
if(type_of(V148)==t_structure){ |
object V153; |
1442 |
|
V152= CMPcar((V148)); |
1443 |
|
V153= CMPcdr((V148)); |
1444 |
|
{object V154; |
1445 |
|
if(type_of(V150)==t_structure){ |
1446 |
goto T628;} |
goto T628;} |
1447 |
goto T626; |
goto T626; |
1448 |
goto T628; |
goto T628; |
1449 |
T628:; |
T628:; |
1450 |
if(!(((V148)->str.str_def)==(VV[60]))){ |
if(!(((V150)->str.str_def)==(VV[60]))){ |
1451 |
goto T626;} |
goto T626;} |
1452 |
V152= STREF(object,(V148),4); |
V154= STREF(object,(V150),4); |
1453 |
goto T624; |
goto T624; |
1454 |
goto T626; |
goto T626; |
1455 |
T626:;{object V154; |
T626:;{object V156; |
1456 |
V154= (VV[19]->s.s_dbind); |
V156= (VV[19]->s.s_dbind); |
1457 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1458 |
base[4]= (V148); |
base[4]= (V150); |
1459 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1460 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
1461 |
vs_top=sup; |
vs_top=sup; |
1462 |
V155= vs_base[0]; |
V157= vs_base[0]; |
1463 |
if(!((V154)==(CMPcar(V155)))){ |
if(!((V156)==(CMPcar(V157)))){ |
1464 |
goto T631;}} |
goto T631;}} |
1465 |
V152= CMPcar(((V148))->cc.cc_turbo[12]); |
V154= CMPcar(((V150))->cc.cc_turbo[12]); |
1466 |
goto T624; |
goto T624; |
1467 |
goto T631; |
goto T631; |
1468 |
T631:; |
T631:; |
1469 |
V152= Cnil; |
V154= Cnil; |
1470 |
goto T624; |
goto T624; |
1471 |
T624:; |
T624:; |
1472 |
{register object V157; |
{register object V159; |
1473 |
V157= ((V150))->v.v_self[1]; |
V159= ((V152))->v.v_self[1]; |
1474 |
if(!(type_of(V157)==t_fixnum)){ |
if(!(type_of(V159)==t_fixnum)){ |
1475 |
goto T643;} |
goto T643;} |
1476 |
V157= ((V152))->v.v_self[fix((V157))]; |
V159= ((V154))->v.v_self[fix((V159))]; |
1477 |
goto T641; |
goto T641; |
1478 |
goto T643; |
goto T643; |
1479 |
T643:; |
T643:; |
1480 |
V157= VV[58]; |
V159= VV[58]; |
1481 |
goto T641; |
goto T641; |
1482 |
T641:; |
T641:; |
1483 |
if(!(((V157))==(VV[58]))){ |
if(!(((V159))==(VV[58]))){ |
1484 |
goto T646;} |
goto T646;} |
1485 |
base[4]= (V148); |
base[4]= (V150); |
1486 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1487 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
1488 |
vs_top=sup; |
vs_top=sup; |
1490 |
goto T638; |
goto T638; |
1491 |
goto T646; |
goto T646; |
1492 |
T646:; |
T646:; |
1493 |
base[3]= (V157);} |
base[3]= (V159);} |
1494 |
goto T638; |
goto T638; |
1495 |
T638:; |
T638:; |
1496 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1504 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1505 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
1506 |
vs_check; |
vs_check; |
1507 |
{object V159; |
{object V161; |
1508 |
object V160; |
object V162; |
1509 |
register object V161; |
register object V163; |
1510 |
check_arg(3); |
check_arg(3); |
1511 |
V159=(base[0]); |
V161=(base[0]); |
1512 |
V160=(base[1]); |
V162=(base[1]); |
1513 |
V161=(base[2]); |
V163=(base[2]); |
1514 |
vs_top=sup; |
vs_top=sup; |
1515 |
goto TTL; |
goto TTL; |
1516 |
TTL:; |
TTL:; |
|
{object V163; |
|
|
object V164; |
|
|
V163= CMPcar((V159)); |
|
|
V164= CMPcdr((V159)); |
|
1517 |
{object V165; |
{object V165; |
1518 |
if(type_of(V161)==t_structure){ |
object V166; |
1519 |
|
V165= CMPcar((V161)); |
1520 |
|
V166= CMPcdr((V161)); |
1521 |
|
{object V167; |
1522 |
|
if(type_of(V163)==t_structure){ |
1523 |
goto T659;} |
goto T659;} |
1524 |
goto T657; |
goto T657; |
1525 |
goto T659; |
goto T659; |
1526 |
T659:; |
T659:; |
1527 |
if(!(((V161)->str.str_def)==(VV[61]))){ |
if(!(((V163)->str.str_def)==(VV[61]))){ |
1528 |
goto T657;} |
goto T657;} |
1529 |
V165= STREF(object,(V161),4); |
V167= STREF(object,(V163),4); |
1530 |
goto T655; |
goto T655; |
1531 |
goto T657; |
goto T657; |
1532 |
T657:;{object V167; |
T657:;{object V169; |
1533 |
V167= (VV[19]->s.s_dbind); |
V169= (VV[19]->s.s_dbind); |
1534 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
1535 |
base[4]= (V161); |
base[4]= (V163); |
1536 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1537 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
1538 |
vs_top=sup; |
vs_top=sup; |
1539 |
V168= vs_base[0]; |
V170= vs_base[0]; |
1540 |
if(!((V167)==(CMPcar(V168)))){ |
if(!((V169)==(CMPcar(V170)))){ |
1541 |
goto T662;}} |
goto T662;}} |
1542 |
V165= CMPcar(((V161))->cc.cc_turbo[12]); |
V167= CMPcar(((V163))->cc.cc_turbo[12]); |
1543 |
goto T655; |
goto T655; |
1544 |
goto T662; |
goto T662; |
1545 |
T662:; |
T662:; |
1546 |
V165= Cnil; |
V167= Cnil; |
1547 |
goto T655; |
goto T655; |
1548 |
T655:; |
T655:; |
1549 |
{register object V170; |
{register object V172; |
1550 |
V170= ((V163))->v.v_self[1]; |
V172= ((V165))->v.v_self[1]; |
1551 |
if(!(type_of(V170)==t_fixnum)){ |
if(!(type_of(V172)==t_fixnum)){ |
1552 |
goto T674;} |
goto T674;} |
1553 |
V170= ((V165))->v.v_self[fix((V170))]; |
V172= ((V167))->v.v_self[fix((V172))]; |
1554 |
goto T672; |
goto T672; |
1555 |
goto T674; |
goto T674; |
1556 |
T674:; |
T674:; |
1557 |
V170= VV[58]; |
V172= VV[58]; |
1558 |
goto T672; |
goto T672; |
1559 |
T672:; |
T672:; |
1560 |
if(!(((V170))==(VV[58]))){ |
if(!(((V172))==(VV[58]))){ |
1561 |
goto T677;} |
goto T677;} |
1562 |
base[4]= (V161); |
base[4]= (V163); |
1563 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1564 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
1565 |
vs_top=sup; |
vs_top=sup; |
1567 |
goto T669; |
goto T669; |
1568 |
goto T677; |
goto T677; |
1569 |
T677:; |
T677:; |
1570 |
base[3]= (V170);} |
base[3]= (V172);} |
1571 |
goto T669; |
goto T669; |
1572 |
T669:; |
T669:; |
1573 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1577 |
} |
} |
1578 |
/* local entry for function TRACE-METHOD */ |
/* local entry for function TRACE-METHOD */ |
1579 |
|
|
1580 |
static object LI17(object V172,object first,...) |
static object LI17(object V174,object first,...) |
1581 |
{ |
{ |
1582 |
va_list ap; |
va_list ap; |
1583 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
1584 |
{object V173; |
{object V175; |
1585 |
object V174; |
object V176; |
1586 |
va_start(ap,first); |
va_start(ap,first); |
1587 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1588 |
V173= V172; |
V175= V174; |
1589 |
narg= narg - 1; |
narg= narg - 1; |
1590 |
V175 = list_vector_new(narg,first,ap); |
V177 = list_vector_new(narg,first,ap); |
1591 |
V174= V175; |
V176= V177; |
1592 |
{object V176; |
{object V178; |
1593 |
object V177; |
object V179; |
1594 |
object V178; |
object V180; |
1595 |
base[0]= (V173); |
base[0]= (V175); |
1596 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1597 |
(void) (*Lnk104)(); |
(void) (*Lnk104)(); |
1598 |
if(vs_base>=vs_top){vs_top=sup;goto T682;} |
if(vs_base>=vs_top){vs_top=sup;goto T682;} |
1599 |
V176= vs_base[0]; |
V178= vs_base[0]; |
1600 |
vs_base++; |
vs_base++; |
1601 |
if(vs_base>=vs_top){vs_top=sup;goto T683;} |
if(vs_base>=vs_top){vs_top=sup;goto T683;} |
1602 |
V177= vs_base[0]; |
V179= vs_base[0]; |
1603 |
vs_base++; |
vs_base++; |
1604 |
if(vs_base>=vs_top){vs_top=sup;goto T684;} |
if(vs_base>=vs_top){vs_top=sup;goto T684;} |
1605 |
V178= vs_base[0]; |
V180= vs_base[0]; |
1606 |
vs_top=sup; |
vs_top=sup; |
1607 |
goto T685; |
goto T685; |
1608 |
goto T682; |
goto T682; |
1609 |
T682:; |
T682:; |
1610 |
V176= Cnil; |
V178= Cnil; |
1611 |
goto T683; |
goto T683; |
1612 |
T683:; |
T683:; |
1613 |
V177= Cnil; |
V179= Cnil; |
1614 |
goto T684; |
goto T684; |
1615 |
T684:; |
T684:; |
1616 |
V178= Cnil; |
V180= Cnil; |
1617 |
goto T685; |
goto T685; |
1618 |
T685:; |
T685:; |
1619 |
{object V179; |
{object V181; |
1620 |
object V180; |
object V182; |
1621 |
base[2]= (V177); |
base[2]= (V179); |
1622 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1623 |
(void) (*Lnk86)(Lclptr86); |
(void) (*Lnk86)(Lclptr86); |
1624 |
vs_top=sup; |
vs_top=sup; |
1625 |
V181= vs_base[0]; |
V183= vs_base[0]; |
1626 |
V179= (*(LnkLI105))(V181,(V178),(V174)); |
V184 = (V180); |
1627 |
|
V185 = (V176); |
1628 |
|
V181= (*(LnkLI105))(V183,V184,V185); |
1629 |
base[2]= VV[39]; |
base[2]= VV[39]; |
1630 |
base[3]= VV[62]; |
base[3]= VV[62]; |
1631 |
base[4]= (V177); |
base[4]= (V179); |
1632 |
base[5]= VV[63]; |
base[5]= VV[63]; |
1633 |
base[6]= (V179); |
base[6]= (V181); |
1634 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1635 |
(void) (*Lnk106)(Lclptr106); |
(void) (*Lnk106)(Lclptr106); |
1636 |
vs_top=sup; |
vs_top=sup; |
1637 |
V180= vs_base[0]; |
V182= vs_base[0]; |
1638 |
base[2]= (V176); |
base[2]= (V178); |
1639 |
base[3]= (V177); |
base[3]= (V179); |
1640 |
(void)simple_symlispcall(VV[107],base+2,2); |
(void)simple_symlispcall(VV[107],base+2,2); |
1641 |
base[2]= (V176); |
base[2]= (V178); |
1642 |
base[3]= (V180); |
base[3]= (V182); |
1643 |
(void)simple_symlispcall(VV[108],base+2,2); |
(void)simple_symlispcall(VV[108],base+2,2); |
1644 |
base[2]= V180; |
base[2]= V182; |
1645 |
base[3]= (VV[64]->s.s_dbind); |
base[3]= (VV[64]->s.s_dbind); |
1646 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1647 |
Ladjoin(); |
Ladjoin(); |
1648 |
vs_top=sup; |
vs_top=sup; |
1649 |
(VV[64]->s.s_dbind)= vs_base[0]; |
(VV[64]->s.s_dbind)= vs_base[0]; |
1650 |
{object V183 = (V180); |
{object V187 = (V182); |
1651 |
VMR14(V183)}}} |
VMR14(V187)}}} |
1652 |
va_end(ap); |
va_end(ap); |
1653 |
base[0]=base[0]; |
base[0]=base[0]; |
1654 |
return Cnil;} |
return Cnil;} |
1659 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1660 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
1661 |
vs_check; |
vs_check; |
1662 |
{object V184; |
{object V188; |
1663 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_top-vs_base>1) too_many_arguments(); |
1664 |
if(vs_base>=vs_top){vs_top=sup;goto T705;} |
if(vs_base>=vs_top){vs_top=sup;goto T705;} |
1665 |
V184=(base[0]); |
V188=(base[0]); |
1666 |
vs_top=sup; |
vs_top=sup; |
1667 |
goto T706; |
goto T706; |
1668 |
goto T705; |
goto T705; |
1669 |
T705:; |
T705:; |
1670 |
V184= Cnil; |
V188= Cnil; |
1671 |
goto T706; |
goto T706; |
1672 |
T706:; |
T706:; |
1673 |
if(((V184))==Cnil){ |
if(((V188))==Cnil){ |
1674 |
goto T709;} |
goto T709;} |
1675 |
{object V185; |
{object V189; |
1676 |
object V186; |
object V190; |
1677 |
base[1]= (V184); |
base[1]= (V188); |
1678 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1679 |
(void) (*Lnk104)(); |
(void) (*Lnk104)(); |
1680 |
if(vs_base>=vs_top){vs_top=sup;goto T713;} |
if(vs_base>=vs_top){vs_top=sup;goto T713;} |
1681 |
V185= vs_base[0]; |
V189= vs_base[0]; |
1682 |
vs_base++; |
vs_base++; |
1683 |
if(vs_base>=vs_top){vs_top=sup;goto T714;} |
if(vs_base>=vs_top){vs_top=sup;goto T714;} |
1684 |
V186= vs_base[0]; |
V190= vs_base[0]; |
1685 |
vs_top=sup; |
vs_top=sup; |
1686 |
goto T715; |
goto T715; |
1687 |
goto T713; |
goto T713; |
1688 |
T713:; |
T713:; |
1689 |
V185= Cnil; |
V189= Cnil; |
1690 |
goto T714; |
goto T714; |
1691 |
T714:; |
T714:; |
1692 |
V186= Cnil; |
V190= Cnil; |
1693 |
goto T715; |
goto T715; |
1694 |
T715:; |
T715:; |
1695 |
{register object x= (V186),V187= (VV[64]->s.s_dbind); |
{register object x= (V190),V191= (VV[64]->s.s_dbind); |
1696 |
while(V187!=Cnil) |
while(V191!=Cnil) |
1697 |
if(x==(V187->c.c_car)){ |
if(x==(V191->c.c_car)){ |
1698 |
goto T718; |
goto T718; |
1699 |
}else V187=V187->c.c_cdr; |
}else V191=V191->c.c_cdr; |
1700 |
goto T717;} |
goto T717;} |
1701 |
goto T718; |
goto T718; |
1702 |
T718:; |
T718:; |
1703 |
base[1]= (V186); |
base[1]= (V190); |
1704 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1705 |
L19(base); |
L19(base); |
1706 |
return; |
return; |
1707 |
goto T717; |
goto T717; |
1708 |
T717:; |
T717:; |
1709 |
base[1]= VV[65]; |
base[1]= VV[65]; |
1710 |
base[2]= (V186); |
base[2]= (V190); |
1711 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1712 |
Lerror(); |
Lerror(); |
1713 |
return;} |
return;} |
1714 |
goto T709; |
goto T709; |
1715 |
T709:; |
T709:; |
1716 |
{register object V188; |
{register object V192; |
1717 |
register object V189; |
register object V193; |
1718 |
V188= (VV[64]->s.s_dbind); |
V192= (VV[64]->s.s_dbind); |
1719 |
V189= CMPcar((V188)); |
V193= CMPcar((V192)); |
1720 |
goto T725; |
goto T725; |
1721 |
T725:; |
T725:; |
1722 |
if(!(((V188))==Cnil)){ |
if(!(((V192))==Cnil)){ |
1723 |
goto T726;} |
goto T726;} |
1724 |
base[2]= Cnil; |
base[2]= Cnil; |
1725 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1726 |
return; |
return; |
1727 |
goto T726; |
goto T726; |
1728 |
T726:; |
T726:; |
1729 |
base[2]= (V189); |
base[2]= (V193); |
1730 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1731 |
L19(base); |
L19(base); |
1732 |
vs_top=sup; |
vs_top=sup; |
1733 |
V188= CMPcdr((V188)); |
V192= CMPcdr((V192)); |
1734 |
V189= CMPcar((V188)); |
V193= CMPcar((V192)); |
1735 |
goto T725;} |
goto T725;} |
1736 |
} |
} |
1737 |
} |
} |
1738 |
/* local entry for function TRACE-METHOD-INTERNAL */ |
/* local entry for function TRACE-METHOD-INTERNAL */ |
1739 |
|
|
1740 |
static object LI20(V193,V194,V195) |
static object LI20(V197,V198,V199) |
1741 |
|
|
1742 |
object V193;register object V194;object V195; |
object V197;register object V198;object V199; |
1743 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1744 |
goto TTL; |
goto TTL; |
1745 |
TTL:; |
TTL:; |
1746 |
base[0]= list(2,VV[67],(V194)); |
base[0]= list(2,VV[67],(V198)); |
1747 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1748 |
Leval(); |
Leval(); |
1749 |
vs_top=sup; |
vs_top=sup; |
1750 |
base[0]= (V194); |
base[0]= (V198); |
1751 |
base[1]= (V193); |
base[1]= (V197); |
1752 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1753 |
siLfset(); |
siLfset(); |
1754 |
vs_top=sup; |
vs_top=sup; |
1755 |
base[0]= listA(3,VV[68],(V194),(V195)); |
base[0]= listA(3,VV[68],(V198),(V199)); |
1756 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1757 |
Leval(); |
Leval(); |
1758 |
vs_top=sup; |
vs_top=sup; |
1759 |
base[0]= (V194); |
base[0]= (V198); |
1760 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1761 |
Lsymbol_function(); |
Lsymbol_function(); |
1762 |
vs_top=sup; |
vs_top=sup; |
1763 |
{object V196 = vs_base[0]; |
{object V200 = vs_base[0]; |
1764 |
VMR16(V196)} |
VMR16(V200)} |
1765 |
base[0]=base[0]; |
base[0]=base[0]; |
1766 |
return Cnil; |
return Cnil; |
1767 |
} |
} |
1773 |
vs_check; |
vs_check; |
1774 |
check_arg(2); |
check_arg(2); |
1775 |
vs_top=sup; |
vs_top=sup; |
1776 |
{object V197=base[0]->c.c_cdr; |
{object V201=base[0]->c.c_cdr; |
1777 |
base[2]= V197;} |
base[2]= V201;} |
1778 |
base[3]= list(2,VV[69],list(2,VV[70],base[2])); |
base[3]= list(2,VV[69],list(2,VV[70],base[2])); |
1779 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1780 |
return; |
return; |
1781 |
} |
} |
1782 |
/* local entry for function UNDEFMETHOD-1 */ |
/* local entry for function UNDEFMETHOD-1 */ |
1783 |
|
|
1784 |
static object LI22(V199) |
static object LI22(V203) |
1785 |
|
|
1786 |
object V199; |
object V203; |
1787 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1788 |
goto TTL; |
goto TTL; |
1789 |
TTL:; |
TTL:; |
1790 |
{object V200; |
{object V204; |
1791 |
object V201; |
object V205; |
1792 |
base[0]= (V199); |
base[0]= (V203); |
1793 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1794 |
(void) (*Lnk104)(); |
(void) (*Lnk104)(); |
1795 |
if(vs_base>=vs_top){vs_top=sup;goto T747;} |
if(vs_base>=vs_top){vs_top=sup;goto T747;} |
1796 |
V200= vs_base[0]; |
V204= vs_base[0]; |
1797 |
vs_base++; |
vs_base++; |
1798 |
if(vs_base>=vs_top){vs_top=sup;goto T748;} |
if(vs_base>=vs_top){vs_top=sup;goto T748;} |
1799 |
V201= vs_base[0]; |
V205= vs_base[0]; |
1800 |
vs_top=sup; |
vs_top=sup; |
1801 |
goto T749; |
goto T749; |
1802 |
goto T747; |
goto T747; |
1803 |
T747:; |
T747:; |
1804 |
V200= Cnil; |
V204= Cnil; |
1805 |
goto T748; |
goto T748; |
1806 |
T748:; |
T748:; |
1807 |
V201= Cnil; |
V205= Cnil; |
1808 |
goto T749; |
goto T749; |
1809 |
T749:; |
T749:; |
1810 |
if(((V200))==Cnil){ |
if(((V204))==Cnil){ |
1811 |
goto T751;} |
goto T751;} |
1812 |
if(((V201))==Cnil){ |
if(((V205))==Cnil){ |
1813 |
goto T751;} |
goto T751;} |
1814 |
base[0]= (V200); |
base[0]= (V204); |
1815 |
base[1]= (V201); |
base[1]= (V205); |
1816 |
(void)simple_symlispcall(VV[107],base+0,2); |
(void)simple_symlispcall(VV[107],base+0,2); |
1817 |
{object V202 = (V201); |
{object V206 = (V205); |
1818 |
VMR18(V202)} |
VMR18(V206)} |
1819 |
goto T751; |
goto T751; |
1820 |
T751:; |
T751:; |
1821 |
{object V203 = Cnil; |
{object V207 = Cnil; |
1822 |
VMR18(V203)}} |
VMR18(V207)}} |
1823 |
base[0]=base[0]; |
base[0]=base[0]; |
1824 |
return Cnil; |
return Cnil; |
1825 |
} |
} |
1830 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1831 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1832 |
vs_check; |
vs_check; |
1833 |
{register object V204; |
{register object V208; |
1834 |
check_arg(1); |
check_arg(1); |
1835 |
V204=(base[0]); |
V208=(base[0]); |
1836 |
vs_top=sup; |
vs_top=sup; |
1837 |
goto TTL; |
goto TTL; |
1838 |
TTL:; |
TTL:; |
1839 |
{object V205; |
{object V209; |
1840 |
base[1]= (V204); |
base[1]= (V208); |
1841 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1842 |
(void) (*Lnk109)(Lclptr109); |
(void) (*Lnk109)(Lclptr109); |
1843 |
vs_top=sup; |
vs_top=sup; |
1844 |
V205= vs_base[0]; |
V209= vs_base[0]; |
1845 |
if(((V205))==Cnil){ |
if(((V209))==Cnil){ |
1846 |
goto T761;} |
goto T761;} |
1847 |
base[1]= (V205); |
base[1]= (V209); |
1848 |
base[2]= (V204); |
base[2]= (V208); |
1849 |
(void)simple_symlispcall(VV[107],base+1,2); |
(void)simple_symlispcall(VV[107],base+1,2); |
1850 |
base[1]=(VV[108]->s.s_gfdef); |
base[1]=(VV[108]->s.s_gfdef); |
1851 |
base[2]= (V205); |
base[2]= (V209); |
1852 |
if(!((VV[66])->s.s_gfdef!=OBJNULL)){ |
if(!((VV[66])->s.s_gfdef!=OBJNULL)){ |
1853 |
goto T770;} |
goto T770;} |
1854 |
base[4]= (V204); |
base[4]= (V208); |
1855 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1856 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
1857 |
vs_top=sup; |
vs_top=sup; |
1863 |
goto T768; |
goto T768; |
1864 |
T768:; |
T768:; |
1865 |
(void)simple_lispcall(base+1,2); |
(void)simple_lispcall(base+1,2); |
1866 |
base[1]= (V204); |
base[1]= (V208); |
1867 |
base[2]= (VV[64]->s.s_dbind); |
base[2]= (VV[64]->s.s_dbind); |
1868 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1869 |
(void) (*Lnk112)(); |
(void) (*Lnk112)(); |
1886 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1887 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1888 |
vs_check; |
vs_check; |
1889 |
{object V206; |
{object V210; |
1890 |
check_arg(1); |
check_arg(1); |
1891 |
V206=(base[0]); |
V210=(base[0]); |
1892 |
vs_top=sup; |
vs_top=sup; |
1893 |
goto TTL; |
goto TTL; |
1894 |
TTL:;{object V207; |
TTL:;{object V211; |
1895 |
base[1]= (V206); |
base[1]= (V210); |
1896 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1897 |
(void) (*Lnk91)(Lclptr91); |
(void) (*Lnk91)(Lclptr91); |
1898 |
vs_top=sup; |
vs_top=sup; |
1899 |
V207= vs_base[0]; |
V211= vs_base[0]; |
1900 |
if(V207==Cnil)goto T776; |
if(V211==Cnil)goto T776; |
1901 |
base[1]= V207; |
base[1]= V211; |
1902 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1903 |
return; |
return; |
1904 |
goto T776; |
goto T776; |
1905 |
T776:;} |
T776:;} |
1906 |
base[1]= (V206); |
base[1]= (V210); |
1907 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1908 |
return; |
return; |
1909 |
} |
} |
1915 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1916 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1917 |
vs_check; |
vs_check; |
1918 |
{object V208; |
{object V212; |
1919 |
object V209; |
object V213; |
1920 |
object V210; |
object V214; |
1921 |
object V211; |
object V215; |
1922 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1923 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
1924 |
V208=(base[0]); |
V212=(base[0]); |
1925 |
V209=(base[1]); |
V213=(base[1]); |
1926 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1927 |
if(vs_base>=vs_top){vs_top=sup;goto T779;} |
if(vs_base>=vs_top){vs_top=sup;goto T779;} |
1928 |
V210=(base[2]); |
V214=(base[2]); |
1929 |
V211= Ct; |
V215= Ct; |
1930 |
vs_top=sup; |
vs_top=sup; |
1931 |
goto T780; |
goto T780; |
1932 |
goto T779; |
goto T779; |
1933 |
T779:; |
T779:; |
1934 |
V210= Cnil; |
V214= Cnil; |
1935 |
V211= Cnil; |
V215= Cnil; |
1936 |
goto T780; |
goto T780; |
1937 |
T780:; |
T780:; |
1938 |
if(((V211))==Cnil){ |
if(((V215))==Cnil){ |
1939 |
goto T783;} |
goto T783;} |
1940 |
base[4]= base0[3]; |
base[4]= base0[3]; |
1941 |
base[5]= VV[9]; |
base[5]= VV[9]; |
1942 |
base[6]= (V208); |
base[6]= (V212); |
1943 |
base[7]= (V210); |
base[7]= (V214); |
1944 |
base[8]= number_plus(base0[6],small_fixnum(7)); |
base[8]= number_plus(base0[6],small_fixnum(7)); |
1945 |
base[9]= (V209); |
base[9]= (V213); |
1946 |
vs_top=(vs_base=base+4)+6; |
vs_top=(vs_base=base+4)+6; |
1947 |
Lformat(); |
Lformat(); |
1948 |
return; |
return; |
1950 |
T783:; |
T783:; |
1951 |
base[4]= base0[3]; |
base[4]= base0[3]; |
1952 |
base[5]= VV[10]; |
base[5]= VV[10]; |
1953 |
base[6]= (V208); |
base[6]= (V212); |
1954 |
base[7]= base0[6]; |
base[7]= base0[6]; |
1955 |
base[8]= (V209); |
base[8]= (V213); |
1956 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1957 |
Lformat(); |
Lformat(); |
1958 |
return; |
return; |
1965 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1966 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1967 |
vs_check; |
vs_check; |
1968 |
{object V212; |
{object V216; |
1969 |
check_arg(1); |
check_arg(1); |
1970 |
V212=(base[0]); |
V216=(base[0]); |
1971 |
vs_top=sup; |
vs_top=sup; |
1972 |
goto TTL; |
goto TTL; |
1973 |
TTL:; |
TTL:; |
1974 |
{object V213= symbol_name((V212)); |
{object V217= symbol_name((V216)); |
1975 |
V214 = CMPmake_fixnum((long)(/* INLINE-ARGS */V213)->v.v_fillp); |
V218 = CMPmake_fixnum((long)(/* INLINE-ARGS */V217)->v.v_fillp); |
1976 |
base0[6]= (number_compare(base0[6],V214)>=0?(base0[6]):V214);} |
base0[6]= (number_compare(base0[6],V218)>=0?(base0[6]):V218);} |
1977 |
base[1]= base0[6]; |
base[1]= base0[6]; |
1978 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1979 |
return; |
return; |