51 |
base[1]= coerce_to_string((V13)); |
base[1]= coerce_to_string((V13)); |
52 |
base[2]= coerce_to_string((V18)); |
base[2]= coerce_to_string((V18)); |
53 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
54 |
(void) (*Lnk109)(); |
(void) (*Lnk107)(); |
55 |
vs_top=sup; |
vs_top=sup; |
56 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
57 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
87 |
goto T16; |
goto T16; |
88 |
T16:; |
T16:; |
89 |
V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10)); |
V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10)); |
90 |
(void)((VFUN_NARGS=2,(*(LnkLI110))((V24),/* INLINE-ARGS */V28))); |
(void)((VFUN_NARGS=2,(*(LnkLI108))((V24),/* INLINE-ARGS */V28))); |
91 |
goto T15; |
goto T15; |
92 |
T15:; |
T15:; |
93 |
if(((V25))!=Cnil){ |
if(((V25))!=Cnil){ |
97 |
base[2]= VV[4]; |
base[2]= VV[4]; |
98 |
base[3]= (V20); |
base[3]= (V20); |
99 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
100 |
(void) (*Lnk111)(); |
(void) (*Lnk109)(); |
101 |
vs_top=sup; |
vs_top=sup; |
102 |
if((V17)!=Cnil){ |
if((V17)!=Cnil){ |
103 |
goto T18;}{object V29; |
goto T18;}{object V29; |
182 |
base[0]= (V16); |
base[0]= (V16); |
183 |
base[1]= car((V34)); |
base[1]= car((V34)); |
184 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
185 |
(void) (*Lnk112)(); |
(void) (*Lnk110)(); |
186 |
vs_top=sup; |
vs_top=sup; |
187 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
188 |
goto T57;} |
goto T57;} |
448 |
goto T160;} |
goto T160;} |
449 |
goto T161; |
goto T161; |
450 |
T161:; |
T161:; |
451 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI111))()); |
452 |
goto T160; |
goto T160; |
453 |
T160:; |
T160:; |
454 |
V59= make_cons(car((V66)),(V59)); |
V59= make_cons(car((V66)),(V59)); |
507 |
T153:; |
T153:; |
508 |
if((car((V66)))==(VV[12])){ |
if((car((V66)))==(VV[12])){ |
509 |
goto T186;} |
goto T186;} |
510 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI111))()); |
511 |
goto T186; |
goto T186; |
512 |
T186:; |
T186:; |
513 |
V58= make_cons(VV[12],(V58)); |
V58= make_cons(VV[12],(V58)); |
541 |
goto T201; |
goto T201; |
542 |
goto T209; |
goto T209; |
543 |
T209:; |
T209:; |
544 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI111))()); |
545 |
goto T201; |
goto T201; |
546 |
T201:; |
T201:; |
547 |
V80= cdr((V80)); |
V80= cdr((V80)); |
615 |
base[0]= (V67); |
base[0]= (V67); |
616 |
base[1]= (V49); |
base[1]= (V49); |
617 |
base[2]= VV[16]; |
base[2]= VV[16]; |
618 |
base[3]= VV[114]; |
base[3]= VV[112]; |
619 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
620 |
Lmember(); |
Lmember(); |
621 |
vs_top=sup; |
vs_top=sup; |
633 |
goto T257;} |
goto T257;} |
634 |
if(type_of(car((V66)))==t_symbol){ |
if(type_of(car((V66)))==t_symbol){ |
635 |
goto T259;} |
goto T259;} |
636 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI111))()); |
637 |
goto T259; |
goto T259; |
638 |
T259:; |
T259:; |
639 |
V59= make_cons(car((V66)),(V59)); |
V59= make_cons(car((V66)),(V59)); |
642 |
T257:; |
T257:; |
643 |
if(type_of(caar((V66)))==t_symbol){ |
if(type_of(caar((V66)))==t_symbol){ |
644 |
goto T264;} |
goto T264;} |
645 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI111))()); |
646 |
goto T255; |
goto T255; |
647 |
goto T264; |
goto T264; |
648 |
T264:; |
T264:; |
658 |
T267:; |
T267:; |
659 |
if(type_of(caddar((V66)))==t_symbol){ |
if(type_of(caddar((V66)))==t_symbol){ |
660 |
goto T273;} |
goto T273;} |
661 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI111))()); |
662 |
goto T255; |
goto T255; |
663 |
goto T273; |
goto T273; |
664 |
T273:; |
T273:; |
665 |
if(endp_prop(cdddar((V66)))){ |
if(endp_prop(cdddar((V66)))){ |
666 |
goto T276;} |
goto T276;} |
667 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI111))()); |
668 |
goto T255; |
goto T255; |
669 |
goto T276; |
goto T276; |
670 |
T276:; |
T276:; |
681 |
T125:; |
T125:; |
682 |
if(type_of(car((V57)))==t_symbol){ |
if(type_of(car((V57)))==t_symbol){ |
683 |
goto T284;} |
goto T284;} |
684 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI111))()); |
685 |
goto T284; |
goto T284; |
686 |
T284:; |
T284:; |
687 |
V58= make_cons(car((V57)),(V58)); |
V58= make_cons(car((V57)),(V58)); |
809 |
VMR4(V108)} |
VMR4(V108)} |
810 |
goto T338; |
goto T338; |
811 |
T338:; |
T338:; |
812 |
V109= list(3,VV[38],(V102),VV[39]); |
V109= list(2,list(3,VV[38],(V102),VV[39]),VV[40]); |
813 |
base[0]= cdr(symbol_value(VV[40])); |
{object V110 = list(4,VV[3],(V99),VV[36],listA(4,VV[37],/* INLINE-ARGS */V109,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V98))))),VV[44])); |
814 |
vs_top=(vs_base=base+0)+1; |
VMR4(V110)} |
|
(void) (*Lnk115)(); |
|
|
vs_top=sup; |
|
|
V110= vs_base[0]; |
|
|
V111= list(2,/* INLINE-ARGS */V109,V110); |
|
|
V112= make_cons(VV[42],Cnil); |
|
|
V113= make_cons(VV[43],Cnil); |
|
|
V114= list(2,VV[41],list(3,VV[25],/* INLINE-ARGS */V112,list(3,VV[29],/* INLINE-ARGS */V113,list(2,VV[11],(V98))))); |
|
|
{object V115 = list(4,VV[3],(V99),VV[36],list(5,VV[37],/* INLINE-ARGS */V111,/* INLINE-ARGS */V114,VV[44],list(3,VV[45],make_cons(VV[42],Cnil),VV[46]))); |
|
|
VMR4(V115)} |
|
815 |
goto T331; |
goto T331; |
816 |
T331:; |
T331:; |
817 |
{object V116; |
{object V111; |
818 |
base[0]= VV[47]; |
base[0]= VV[45]; |
819 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
820 |
Lerror(); |
Lerror(); |
821 |
vs_top=sup; |
vs_top=sup; |
822 |
V116= vs_base[0]; |
V111= vs_base[0]; |
823 |
if(((V116))==Cnil){ |
if(((V111))==Cnil){ |
824 |
goto T345;} |
goto T343;} |
825 |
{object V117 = (V116); |
{object V112 = (V111); |
826 |
VMR4(V117)} |
VMR4(V112)} |
827 |
goto T345; |
goto T343; |
828 |
T345:; |
T343:; |
829 |
{object V118 = Cnil; |
{object V113 = Cnil; |
830 |
VMR4(V118)}}} |
VMR4(V113)}}} |
831 |
base[0]=base[0]; |
base[0]=base[0]; |
832 |
return Cnil; |
return Cnil; |
833 |
} |
} |
834 |
/* local entry for function PARSE-SLOT-DESCRIPTION */ |
/* local entry for function PARSE-SLOT-DESCRIPTION */ |
835 |
|
|
836 |
static object LI5(V121,V122) |
static object LI5(V116,V117) |
837 |
|
|
838 |
register object V121;object V122; |
register object V116;object V117; |
839 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
840 |
goto TTL; |
goto TTL; |
841 |
TTL:; |
TTL:; |
842 |
{object V123; |
{object V118; |
843 |
object V124; |
object V119; |
844 |
register object V125; |
register object V120; |
845 |
register object V126; |
register object V121; |
846 |
|
V118= Cnil; |
847 |
|
V119= Cnil; |
848 |
|
V120= Cnil; |
849 |
|
V121= Cnil; |
850 |
|
if(!(type_of((V116))!=t_cons)){ |
851 |
|
goto T347;} |
852 |
|
V118= (V116); |
853 |
|
goto T345; |
854 |
|
goto T347; |
855 |
|
T347:; |
856 |
|
if(!(endp_prop(cdr((V116))))){ |
857 |
|
goto T351;} |
858 |
|
V118= car((V116)); |
859 |
|
goto T345; |
860 |
|
goto T351; |
861 |
|
T351:; |
862 |
|
V118= car((V116)); |
863 |
|
V119= cadr((V116)); |
864 |
|
{register object V122; |
865 |
|
register object V123; |
866 |
|
register object V124; |
867 |
|
V122= cddr((V116)); |
868 |
V123= Cnil; |
V123= Cnil; |
869 |
V124= Cnil; |
V124= Cnil; |
870 |
V125= Cnil; |
goto T360; |
871 |
V126= Cnil; |
T360:; |
872 |
if(!(type_of((V121))!=t_cons)){ |
if(!(endp_prop((V122)))){ |
873 |
goto T349;} |
goto T361;} |
874 |
V123= (V121); |
goto T345; |
875 |
goto T347; |
goto T361; |
876 |
goto T349; |
T361:; |
877 |
T349:; |
V123= car((V122)); |
878 |
if(!(endp_prop(cdr((V121))))){ |
if(!(endp_prop(cdr((V122))))){ |
879 |
goto T353;} |
goto T367;} |
880 |
V123= car((V121)); |
base[0]= VV[46]; |
881 |
goto T347; |
base[1]= (V122); |
|
goto T353; |
|
|
T353:; |
|
|
V123= car((V121)); |
|
|
V124= cadr((V121)); |
|
|
{register object V127; |
|
|
register object V128; |
|
|
register object V129; |
|
|
V127= cddr((V121)); |
|
|
V128= Cnil; |
|
|
V129= Cnil; |
|
|
goto T362; |
|
|
T362:; |
|
|
if(!(endp_prop((V127)))){ |
|
|
goto T363;} |
|
|
goto T347; |
|
|
goto T363; |
|
|
T363:; |
|
|
V128= car((V127)); |
|
|
if(!(endp_prop(cdr((V127))))){ |
|
|
goto T369;} |
|
|
base[0]= VV[48]; |
|
|
base[1]= (V127); |
|
882 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
883 |
Lerror(); |
Lerror(); |
884 |
vs_top=sup; |
vs_top=sup; |
885 |
goto T369; |
goto T367; |
886 |
T369:; |
T367:; |
887 |
V129= cadr((V127)); |
V124= cadr((V122)); |
888 |
{object V130= (V128); |
{object V125= (V123); |
889 |
if((V130!= VV[77]))goto T377; |
if((V125!= VV[75]))goto T375; |
890 |
V125= (V129); |
V120= (V124); |
891 |
goto T376; |
goto T374; |
892 |
|
goto T375; |
893 |
|
T375:; |
894 |
|
if((V125!= VV[113]))goto T377; |
895 |
|
V121= (V124); |
896 |
|
goto T374; |
897 |
goto T377; |
goto T377; |
898 |
T377:; |
T377:; |
899 |
if((V130!= VV[116]))goto T379; |
base[0]= VV[47]; |
900 |
V126= (V129); |
base[1]= (V122); |
|
goto T376; |
|
|
goto T379; |
|
|
T379:; |
|
|
base[0]= VV[49]; |
|
|
base[1]= (V127); |
|
901 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
902 |
Lerror(); |
Lerror(); |
903 |
vs_top=sup;} |
vs_top=sup;} |
904 |
goto T376; |
goto T374; |
905 |
T376:; |
T374:; |
906 |
V127= cddr((V127)); |
V122= cddr((V122)); |
907 |
goto T362;} |
goto T360;} |
908 |
goto T347; |
goto T345; |
909 |
T347:; |
T345:; |
910 |
{object V131 = list(5,(V123),(V124),(V125),(V126),(V122)); |
{object V126 = list(5,(V118),(V119),(V120),(V121),(V117)); |
911 |
VMR5(V131)}} |
VMR5(V126)}} |
912 |
base[0]=base[0]; |
base[0]=base[0]; |
913 |
return Cnil; |
return Cnil; |
914 |
} |
} |
915 |
/* local entry for function OVERWRITE-SLOT-DESCRIPTIONS */ |
/* local entry for function OVERWRITE-SLOT-DESCRIPTIONS */ |
916 |
|
|
917 |
static object LI6(V134,V135) |
static object LI6(V129,V130) |
918 |
|
|
919 |
object V134;register object V135; |
object V129;register object V130; |
920 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
921 |
goto TTL; |
goto TTL; |
922 |
TTL:; |
TTL:; |
923 |
if(((V135))!=Cnil){ |
if(((V130))!=Cnil){ |
924 |
goto T387;} |
goto T385;} |
925 |
{object V136 = Cnil; |
{object V131 = Cnil; |
926 |
VMR6(V136)} |
VMR6(V131)} |
927 |
goto T387; |
goto T385; |
928 |
T387:; |
T385:; |
929 |
{register object V137; |
{register object V132; |
930 |
base[0]= caar((V135)); |
base[0]= caar((V130)); |
931 |
base[1]= (V134); |
base[1]= (V129); |
932 |
base[2]= VV[16]; |
base[2]= VV[16]; |
933 |
base[3]= symbol_function(VV[43]); |
base[3]= symbol_function(VV[114]); |
934 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
935 |
Lmember(); |
Lmember(); |
936 |
vs_top=sup; |
vs_top=sup; |
937 |
V137= vs_base[0]; |
V132= vs_base[0]; |
938 |
if(((V137))==Cnil){ |
if(((V132))==Cnil){ |
939 |
|
goto T393;} |
940 |
|
if((cadddr(car((V132))))!=Cnil){ |
941 |
|
goto T395;} |
942 |
|
if((cadddr(car((V130))))==Cnil){ |
943 |
goto T395;} |
goto T395;} |
944 |
if((cadddr(car((V137))))!=Cnil){ |
base[0]= VV[48]; |
945 |
goto T397;} |
base[1]= (V132); |
|
if((cadddr(car((V135))))==Cnil){ |
|
|
goto T397;} |
|
|
base[0]= VV[50]; |
|
|
base[1]= (V137); |
|
946 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
947 |
Lerror(); |
Lerror(); |
948 |
vs_top=sup; |
vs_top=sup; |
949 |
goto T397; |
goto T395; |
950 |
T397:; |
T395:; |
951 |
{object V138; |
{object V133; |
952 |
object V139; |
object V134; |
953 |
V138= car((V137)); |
V133= car((V132)); |
954 |
V139= (*(LnkLI117))(caddr(car((V137)))); |
V134= (*(LnkLI115))(caddr(car((V132)))); |
955 |
if(type_of(cddr((V138)))!=t_cons)FEwrong_type_argument(Scons,cddr((V138))); |
if(type_of(cddr((V133)))!=t_cons)FEwrong_type_argument(Scons,cddr((V133))); |
956 |
(cddr((V138)))->c.c_car = (V139); |
(cddr((V133)))->c.c_car = (V134); |
957 |
(void)(cddr((V138)));}{object V141; |
(void)(cddr((V133)));}{object V136; |
958 |
V141= caddr(car((V137))); |
V136= caddr(car((V132))); |
959 |
if(V141==Cnil)goto T412; |
if(V136==Cnil)goto T410; |
960 |
V140= V141; |
V135= V136; |
961 |
goto T411; |
goto T409; |
962 |
|
goto T410; |
963 |
|
T410:;} |
964 |
|
V135= Ct; |
965 |
|
goto T409; |
966 |
|
T409:; |
967 |
|
V137= (*(LnkLI116))(V135);{object V139; |
968 |
|
V139= caddr(car((V130))); |
969 |
|
if(V139==Cnil)goto T413; |
970 |
|
V138= V139; |
971 |
|
goto T412; |
972 |
|
goto T413; |
973 |
|
T413:;} |
974 |
|
V138= Ct; |
975 |
goto T412; |
goto T412; |
976 |
T412:;} |
T412:; |
977 |
V140= Ct; |
V140= (*(LnkLI116))(V138); |
978 |
goto T411; |
if(equal(/* INLINE-ARGS */V137,/* INLINE-ARGS */V140)){ |
979 |
T411:; |
goto T406;} |
980 |
V142= (*(LnkLI118))(V140);{object V144; |
base[0]= VV[49]; |
981 |
V144= caddr(car((V135))); |
base[1]= car((V132)); |
|
if(V144==Cnil)goto T415; |
|
|
V143= V144; |
|
|
goto T414; |
|
|
goto T415; |
|
|
T415:;} |
|
|
V143= Ct; |
|
|
goto T414; |
|
|
T414:; |
|
|
V145= (*(LnkLI118))(V143); |
|
|
if(equal(/* INLINE-ARGS */V142,/* INLINE-ARGS */V145)){ |
|
|
goto T408;} |
|
|
base[0]= VV[51]; |
|
|
base[1]= car((V137)); |
|
982 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
983 |
Lerror(); |
Lerror(); |
984 |
vs_top=sup; |
vs_top=sup; |
985 |
goto T408; |
goto T406; |
986 |
T408:; |
T406:; |
987 |
V146= list(5,caar((V137)),cadar((V137)),caddar((V137)),cadddr(car((V137))),car(cddddr(car((V135))))); |
V141= list(5,caar((V132)),cadar((V132)),caddar((V132)),cadddr(car((V132))),car(cddddr(car((V130))))); |
988 |
V147= (*(LnkLI119))((V134),cdr((V135))); |
V142= (*(LnkLI117))((V129),cdr((V130))); |
989 |
{object V148 = make_cons(/* INLINE-ARGS */V146,/* INLINE-ARGS */V147); |
{object V143 = make_cons(/* INLINE-ARGS */V141,/* INLINE-ARGS */V142); |
990 |
VMR6(V148)} |
VMR6(V143)} |
991 |
goto T395; |
goto T393; |
992 |
T395:; |
T393:; |
993 |
V149= car((V135)); |
V144= car((V130)); |
994 |
V150= (*(LnkLI119))((V134),cdr((V135))); |
V145= (*(LnkLI117))((V129),cdr((V130))); |
995 |
{object V151 = make_cons(/* INLINE-ARGS */V149,/* INLINE-ARGS */V150); |
{object V146 = make_cons(/* INLINE-ARGS */V144,/* INLINE-ARGS */V145); |
996 |
VMR6(V151)}} |
VMR6(V146)}} |
997 |
base[0]=base[0]; |
base[0]=base[0]; |
998 |
return Cnil; |
return Cnil; |
999 |
} |
} |
1000 |
/* local entry for function MAKE-T-TYPE */ |
/* local entry for function MAKE-T-TYPE */ |
1001 |
|
|
1002 |
static object LI7(V155,V156,V157) |
static object LI7(V150,V151,V152) |
1003 |
|
|
1004 |
object V155;object V156;object V157; |
object V150;object V151;object V152; |
1005 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
1006 |
goto TTL; |
goto TTL; |
1007 |
TTL:; |
TTL:; |
1008 |
{object V158; |
{object V153; |
1009 |
V158= Cnil; |
V153= Cnil; |
1010 |
{register object V159; |
{register object V154; |
1011 |
V159= (VFUN_NARGS=5,(*(LnkLI120))((V155),VV[52],VV[53],VV[54],Ct)); |
V154= (VFUN_NARGS=5,(*(LnkLI118))((V150),VV[50],VV[51],VV[52],Ct)); |
1012 |
if(((V156))==Cnil){ |
if(((V151))==Cnil){ |
1013 |
goto T421;} |
goto T419;} |
1014 |
{object V160; |
{object V155; |
1015 |
object V161; |
object V156; |
1016 |
V160= get((V156),VV[55],Cnil); |
V155= get((V151),VV[53],Cnil); |
1017 |
V161= Cnil; |
V156= Cnil; |
1018 |
if((V160)!=Cnil){ |
if((V155)!=Cnil){ |
1019 |
goto T425;} |
goto T423;} |
1020 |
base[0]= VV[56]; |
base[0]= VV[54]; |
1021 |
base[1]= (V156); |
base[1]= (V151); |
1022 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1023 |
Lerror(); |
Lerror(); |
1024 |
vs_top=sup; |
vs_top=sup; |
1025 |
goto T425; |
goto T423; |
1026 |
T425:; |
T423:; |
1027 |
V161= structure_ref((V160),VV[55],2); |
V156= structure_ref((V155),VV[53],2); |
1028 |
{object V162; |
{object V157; |
1029 |
register object V163; |
register object V158; |
1030 |
V164 = make_fixnum((long)length((V161))); |
V159 = make_fixnum((long)length((V156))); |
1031 |
V162= (number_compare((V155),V164)<=0?((V155)):V164); |
V157= (number_compare((V150),V159)<=0?((V150)):V159); |
1032 |
V163= small_fixnum(0); |
V158= small_fixnum(0); |
1033 |
goto T433; |
goto T431; |
1034 |
T433:; |
T431:; |
1035 |
if(!(number_compare((V163),(V162))>=0)){ |
if(!(number_compare((V158),(V157))>=0)){ |
1036 |
goto T434;} |
goto T432;} |
1037 |
goto T421; |
goto T419; |
1038 |
goto T434; |
goto T432; |
1039 |
T434:; |
T432:; |
1040 |
V165= aref1((V161),fixint((V163))); |
V160= aref1((V156),fixint((V158))); |
1041 |
(void)(aset1((V159),fixint((V163)),/* INLINE-ARGS */V165)); |
(void)(aset1((V154),fixint((V158)),/* INLINE-ARGS */V160)); |
1042 |
V163= one_plus((V163)); |
V158= one_plus((V158)); |
1043 |
goto T433;}} |
goto T431;}} |
1044 |
goto T421; |
goto T419; |
1045 |
T421:; |
T419:; |
1046 |
{register object V166; |
{register object V161; |
1047 |
register object V167; |
register object V162; |
1048 |
V166= (V157); |
V161= (V152); |
1049 |
V167= car((V166)); |
V162= car((V161)); |
1050 |
goto T446; |
goto T444; |
1051 |
T446:; |
T444:; |
1052 |
if(!(endp_prop((V166)))){ |
if(!(endp_prop((V161)))){ |
1053 |
goto T447;} |
goto T445;} |
1054 |
goto T442; |
goto T440; |
1055 |
goto T447; |
goto T445; |
1056 |
T447:; |
T445:; |
1057 |
V158= car(cddddr((V167))); |
V153= car(cddddr((V162))); |
1058 |
{register object V168; |
{register object V163; |
1059 |
V168= caddr((V167)); |
V163= caddr((V162)); |
1060 |
base[1]= (V168); |
base[1]= (V163); |
1061 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1062 |
(void) (*Lnk121)(); |
(void) (*Lnk119)(); |
1063 |
vs_top=sup; |
vs_top=sup; |
1064 |
V169= vs_base[0]; |
V164= vs_base[0]; |
1065 |
if(!(number_compare(V169,symbol_value(VV[57]))<=0)){ |
if(!(number_compare(V164,symbol_value(VV[55]))<=0)){ |
1066 |
goto T453;} |
goto T451;} |
1067 |
base[1]= (V168); |
base[1]= (V163); |
1068 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1069 |
(void) (*Lnk122)(); |
(void) (*Lnk120)(); |
1070 |
vs_top=sup; |
vs_top=sup; |
1071 |
V170= vs_base[0]; |
V165= vs_base[0]; |
1072 |
(void)(aset1((V159),fixint((V158)),V170));} |
(void)(aset1((V154),fixint((V153)),V165));} |
1073 |
goto T453; |
goto T451; |
1074 |
T453:; |
T451:; |
1075 |
V166= cdr((V166)); |
V161= cdr((V161)); |
1076 |
V167= car((V166)); |
V162= car((V161)); |
1077 |
goto T446;} |
goto T444;} |
1078 |
goto T442; |
goto T440; |
1079 |
T442:; |
T440:; |
1080 |
V171 = make_fixnum((long)length(symbol_value(VV[58]))); |
V166 = make_fixnum((long)length(symbol_value(VV[56]))); |
1081 |
if(!(number_compare((V155),V171)<0)){ |
if(!(number_compare((V150),V166)<0)){ |
1082 |
goto T467;} |
goto T465;} |
1083 |
{register object V173; |
{register object V168; |
1084 |
V173= small_fixnum(0); |
V168= small_fixnum(0); |
1085 |
goto T472; |
goto T470; |
1086 |
T472:; |
T470:; |
1087 |
if(!(number_compare((V173),V155)>=0)){ |
if(!(number_compare((V168),V150)>=0)){ |
1088 |
goto T473;} |
goto T471;} |
1089 |
goto T469; |
goto T467; |
1090 |
goto T473; |
goto T471; |
1091 |
T473:; |
T471:; |
1092 |
{long V174= fix(aref1((V159),fixint((V173)))); |
{long V169= fix(aref1((V154),fixint((V168)))); |
1093 |
if((/* INLINE-ARGS */V174)==(0)){ |
if((/* INLINE-ARGS */V169)==(0)){ |
1094 |
goto T477;}} |
goto T475;}} |
1095 |
{object V175 = (V159); |
{object V170 = (V154); |
1096 |
VMR7(V175)} |
VMR7(V170)} |
1097 |
goto T477; |
goto T475; |
1098 |
T477:; |
T475:; |
1099 |
V173= one_plus((V173)); |
V168= one_plus((V168)); |
1100 |
goto T472;} |
goto T470;} |
|
goto T469; |
|
|
T469:; |
|
|
{object V176 = symbol_value(VV[58]); |
|
|
VMR7(V176)} |
|
1101 |
goto T467; |
goto T467; |
1102 |
T467:; |
T467:; |
1103 |
{object V177 = (V159); |
{object V171 = symbol_value(VV[56]); |
1104 |
VMR7(V177)}}} |
VMR7(V171)} |
1105 |
|
goto T465; |
1106 |
|
T465:; |
1107 |
|
{object V172 = (V154); |
1108 |
|
VMR7(V172)}}} |
1109 |
base[0]=base[0]; |
base[0]=base[0]; |
1110 |
return Cnil; |
return Cnil; |
1111 |
} |
} |
1112 |
/* local entry for function ROUND-UP */ |
/* local entry for function ROUND-UP */ |
1113 |
|
|
1114 |
static object LI8(V180,V181) |
static object LI8(V175,V176) |
1115 |
|
|
1116 |
long V180;long V181; |
long V175;long V176; |
1117 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
1118 |
goto TTL; |
goto TTL; |
1119 |
TTL:; |
TTL:; |
1120 |
base[0]= make_fixnum(V180); |
base[0]= make_fixnum(V175); |
1121 |
base[1]= make_fixnum(V181); |
base[1]= make_fixnum(V176); |
1122 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1123 |
Lceiling(); |
Lceiling(); |
1124 |
vs_top=sup; |
vs_top=sup; |
1125 |
V180= fix(vs_base[0]); |
V175= fix(vs_base[0]); |
1126 |
{long V182 = (long)(V180)*(V181); |
{long V177 = (long)(V175)*(V176); |
1127 |
VMR8((object)V182)} |
VMR8((object)V177)} |
1128 |
base[0]=base[0]; |
base[0]=base[0]; |
1129 |
} |
} |
1130 |
/* local entry for function GET-SLOT-POS */ |
/* local entry for function GET-SLOT-POS */ |
1131 |
|
|
1132 |
static object LI9(V186,V187,V188) |
static object LI9(V181,V182,V183) |
1133 |
|
|
1134 |
object V186;object V187;object V188; |
object V181;object V182;object V183; |
1135 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
1136 |
goto TTL; |
goto TTL; |
1137 |
TTL:; |
TTL:; |
1138 |
{register object V189; |
{register object V184; |
1139 |
object V190; |
object V185; |
1140 |
object V191; |
object V186; |
1141 |
V189= Cnil; |
V184= Cnil; |
1142 |
V190= Cnil; |
V185= Cnil; |
1143 |
V191= Cnil; |
V186= Cnil; |
1144 |
{register object V192; |
{register object V187; |
1145 |
register object V193; |
register object V188; |
1146 |
V192= (V188); |
V187= (V183); |
1147 |
V193= car((V192)); |
V188= car((V187)); |
1148 |
goto T495; |
goto T493; |
1149 |
T495:; |
T493:; |
1150 |
if(!(endp_prop((V192)))){ |
if(!(endp_prop((V187)))){ |
1151 |
goto T496;} |
goto T494;} |
1152 |
goto T491; |
goto T489; |
1153 |
goto T496; |
goto T494; |
1154 |
T496:; |
T494:; |
1155 |
if(((V193))==Cnil){ |
if(((V188))==Cnil){ |
1156 |
goto T500;} |
goto T498;} |
1157 |
if((car((V193)))==Cnil){ |
if((car((V188)))==Cnil){ |
1158 |
goto T500;} |
goto T498;} |
1159 |
V189= (*(LnkLI117))(caddr((V193))); |
V184= (*(LnkLI115))(caddr((V188))); |
1160 |
if(type_of(cddr(V193))!=t_cons)FEwrong_type_argument(Scons,cddr(V193)); |
if(type_of(cddr(V188))!=t_cons)FEwrong_type_argument(Scons,cddr(V188)); |
1161 |
(cddr(V193))->c.c_car = V189; |
(cddr(V188))->c.c_car = V184; |
1162 |
(void)(cddr(V193)); |
(void)(cddr(V188)); |
1163 |
{register object V196; |
{register object V191; |
1164 |
V196= cadr((V193)); |
V191= cadr((V188)); |
1165 |
base[1]= (V196); |
base[1]= (V191); |
1166 |
base[2]= (V189); |
base[2]= (V184); |
1167 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1168 |
(void) (*Lnk123)(); |
(void) (*Lnk121)(); |
1169 |
vs_top=sup; |
vs_top=sup; |
1170 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1171 |
goto T509;} |
goto T507;} |
1172 |
if(!(type_of((V196))==t_symbol)){ |
if(!(type_of((V191))==t_symbol)){ |
1173 |
goto T515;} |
goto T513;} |
1174 |
base[1]= (V196); |
base[1]= (V191); |
1175 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1176 |
Lconstantp(); |
Lconstantp(); |
1177 |
vs_top=sup; |
vs_top=sup; |
1178 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1179 |
goto T515;} |
goto T513;} |
1180 |
base[1]= (V196); |
base[1]= (V191); |
1181 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1182 |
Lsymbol_value(); |
Lsymbol_value(); |
1183 |
vs_top=sup; |
vs_top=sup; |
1184 |
V196= vs_base[0]; |
V191= vs_base[0]; |
1185 |
goto T515; |
goto T513; |
1186 |
T515:; |
T513:; |
1187 |
base[1]= (V196); |
base[1]= (V191); |
1188 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1189 |
Lconstantp(); |
Lconstantp(); |
1190 |
vs_top=sup; |
vs_top=sup; |
1191 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1192 |
goto T523;} |
goto T521;} |
1193 |
goto T509; |
goto T507; |
1194 |
goto T523; |
goto T521; |
1195 |
T523:; |
T521:; |
1196 |
{object V198; |
{object V193; |
1197 |
V198= (*(LnkLI124))((V196),(V189)); |
V193= (*(LnkLI122))((V191),(V184)); |
1198 |
if(type_of(cdr(V193))!=t_cons)FEwrong_type_argument(Scons,cdr(V193)); |
if(type_of(cdr(V188))!=t_cons)FEwrong_type_argument(Scons,cdr(V188)); |
1199 |
(cdr(V193))->c.c_car = (V198); |
(cdr(V188))->c.c_car = (V193); |
1200 |
(void)(cdr(V193));}} |
(void)(cdr(V188));}} |
1201 |
goto T509; |
goto T507; |
1202 |
T509:; |
T507:; |
1203 |
{register object x= (V189),V199= VV[60]; |
{register object x= (V184),V194= VV[58]; |
1204 |
while(!endp(V199)) |
while(!endp(V194)) |
1205 |
if(x==(V199->c.c_car)){ |
if(x==(V194->c.c_car)){ |
1206 |
goto T529; |
goto T527; |
1207 |
}else V199=V199->c.c_cdr; |
}else V194=V194->c.c_cdr; |
1208 |
goto T500;} |
goto T498;} |
1209 |
goto T529; |
goto T527; |
1210 |
T529:; |
T527:; |
1211 |
V190= Ct; |
V185= Ct; |
1212 |
goto T500; |
goto T498; |
1213 |
T500:; |
T498:; |
1214 |
V192= cdr((V192)); |
V187= cdr((V187)); |
1215 |
V193= car((V192)); |
V188= car((V187)); |
1216 |
goto T495;} |
goto T493;} |
1217 |
goto T491; |
goto T489; |
1218 |
T491:; |
T489:; |
1219 |
{object V200; |
{object V195; |
1220 |
if(((V190))==Cnil){ |
if(((V185))==Cnil){ |
1221 |
|
goto T535;} |
1222 |
|
V195= Cnil; |
1223 |
|
goto T534; |
1224 |
|
goto T535; |
1225 |
|
T535:; |
1226 |
|
V196 = make_fixnum((long)length(symbol_value(VV[57]))); |
1227 |
|
if(number_compare((V181),V196)<0){ |
1228 |
goto T537;} |
goto T537;} |
1229 |
V200= Cnil; |
V195= Cnil; |
1230 |
goto T536; |
goto T534; |
1231 |
goto T537; |
goto T537; |
1232 |
T537:; |
T537:;{object V197; |
1233 |
V201 = make_fixnum((long)length(symbol_value(VV[59]))); |
V197= symbol_value(VV[57]); |
|
if(number_compare((V186),V201)<0){ |
|
|
goto T539;} |
|
|
V200= Cnil; |
|
|
goto T536; |
|
|
goto T539; |
|
|
T539:;{object V202; |
|
|
V202= symbol_value(VV[59]); |
|
1234 |
base[0]= Ct; |
base[0]= Ct; |
1235 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1236 |
(void) (*Lnk125)(); |
(void) (*Lnk123)(); |
1237 |
vs_top=sup; |
vs_top=sup; |
1238 |
V203= vs_base[0]; |
V198= vs_base[0]; |
1239 |
V200= list(3,V202,number_times((V186),V203),Cnil);} |
V195= list(3,V197,number_times((V181),V198),Cnil);} |
1240 |
goto T536; |
goto T534; |
1241 |
T536:; |
T534:; |
1242 |
if(((V200))==Cnil){ |
if(((V195))==Cnil){ |
1243 |
goto T544;} |
goto T542;} |
1244 |
{object V204 = (V200); |
{object V199 = (V195); |
1245 |
VMR9(V204)} |
VMR9(V199)} |
1246 |
goto T544; |
goto T542; |
1247 |
T544:; |
T542:; |
1248 |
{object V205; |
{object V200; |
1249 |
register long V206; |
register long V201; |
1250 |
long V207; |
long V202; |
1251 |
long V208; |
long V203; |
1252 |
object V209; |
object V204; |
1253 |
long V210; |
long V205; |
1254 |
V205= (VFUN_NARGS=5,(*(LnkLI120))((V186),VV[52],VV[61],VV[54],Ct)); |
V200= (VFUN_NARGS=5,(*(LnkLI118))((V181),VV[50],VV[59],VV[52],Ct)); |
1255 |
V206= 0; |
V201= 0; |
1256 |
V207= 0; |
V202= 0; |
1257 |
V208= 0; |
V203= 0; |
1258 |
V210= 0; |
V205= 0; |
1259 |
V209= Cnil; |
V204= Cnil; |
1260 |
{register object V211; |
{register object V206; |
1261 |
register object V212; |
register object V207; |
1262 |
V211= (V188); |
V206= (V183); |
1263 |
V212= car((V211)); |
V207= car((V206)); |
1264 |
goto T555; |
goto T553; |
1265 |
T555:; |
T553:; |
1266 |
if(!(endp_prop((V211)))){ |
if(!(endp_prop((V206)))){ |
1267 |
goto T556;} |
goto T554;} |
1268 |
goto T551; |
goto T549; |
1269 |
goto T556; |
goto T554; |
1270 |
T556:; |
T554:; |
1271 |
V209= caddr((V212)); |
V204= caddr((V207)); |
1272 |
base[1]= (V209); |
base[1]= (V204); |
1273 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1274 |
(void) (*Lnk121)(); |
(void) (*Lnk119)(); |
1275 |
vs_top=sup; |
vs_top=sup; |
1276 |
V208= fix(vs_base[0]); |
V203= fix(vs_base[0]); |
1277 |
V213 = make_fixnum(V208); |
V208 = make_fixnum(V203); |
1278 |
if(number_compare(V213,symbol_value(VV[57]))<=0){ |
if(number_compare(V208,symbol_value(VV[55]))<=0){ |
1279 |
goto T565;} |
goto T563;} |
1280 |
V209= Ct; |
V204= Ct; |
1281 |
if(type_of(cddr(V212))!=t_cons)FEwrong_type_argument(Scons,cddr(V212)); |
if(type_of(cddr(V207))!=t_cons)FEwrong_type_argument(Scons,cddr(V207)); |
1282 |
(cddr(V212))->c.c_car = Ct; |
(cddr(V207))->c.c_car = Ct; |
1283 |
(void)(cddr(V212)); |
(void)(cddr(V207)); |
1284 |
V208= fix(symbol_value(VV[57])); |
V203= fix(symbol_value(VV[55])); |
1285 |
V212= nconc((V212),VV[62]); |
V207= nconc((V207),VV[60]); |
1286 |
goto T565; |
goto T563; |
1287 |
T565:; |
T563:; |
1288 |
V210= (long)(*(LnkLI126))(V206,V208); |
V205= (long)(*(LnkLI124))(V201,V203); |
1289 |
if(!((V206)==(V210))){ |
if(!((V201)==(V205))){ |
1290 |
goto T578;} |
goto T576;} |
1291 |
goto T577; |
goto T575; |
1292 |
goto T578; |
goto T576; |
1293 |
T578:; |
T576:; |
1294 |
V191= Ct; |
V186= Ct; |
1295 |
goto T577; |
goto T575; |
1296 |
T577:; |
T575:; |
1297 |
V206= V210; |
V201= V205; |
1298 |
V216 = make_fixnum(V206); |
V211 = make_fixnum(V201); |
1299 |
(void)(aset1((V205),V207,V216)); |
(void)(aset1((V200),V202,V211)); |
1300 |
V217 = make_fixnum(V206); |
V212 = make_fixnum(V201); |
1301 |
base[1]= (V209); |
base[1]= (V204); |
1302 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1303 |
(void) (*Lnk125)(); |
(void) (*Lnk123)(); |
1304 |
vs_top=sup; |
vs_top=sup; |
1305 |
V218= vs_base[0]; |
V213= vs_base[0]; |
1306 |
V206= fix(number_plus(V217,V218)); |
V201= fix(number_plus(V212,V213)); |
1307 |
V207= (long)(V207)+(1); |
V202= (long)(V202)+(1); |
1308 |
V211= cdr((V211)); |
V206= cdr((V206)); |
1309 |
V212= car((V211)); |
V207= car((V206)); |
1310 |
goto T555;} |
goto T553;} |
1311 |
goto T551; |
goto T549; |
1312 |
T551:; |
T549:; |
1313 |
base[0]= Ct; |
base[0]= Ct; |
1314 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1315 |
(void) (*Lnk125)(); |
(void) (*Lnk123)(); |
1316 |
vs_top=sup; |
vs_top=sup; |
1317 |
V219= vs_base[0]; |
V214= vs_base[0]; |
1318 |
V220 = make_fixnum((long)(*(LnkLI126))(V206,fix(V219))); |
V215 = make_fixnum((long)(*(LnkLI124))(V201,fix(V214))); |
1319 |
{object V221 = list(3,(V205),V220,(V191)); |
{object V216 = list(3,(V200),V215,(V186)); |
1320 |
VMR9(V221)}}}} |
VMR9(V216)}}}} |
1321 |
base[0]=base[0]; |
base[0]=base[0]; |
1322 |
return Cnil; |
return Cnil; |
1323 |
} |
} |
1324 |
/* local entry for function DEFINE-STRUCTURE */ |
/* local entry for function DEFINE-STRUCTURE */ |
1325 |
|
|
1326 |
static object LI10(V233,V232,V231,V230,V229,V228,V227,V226,V225,V224,V223,V222,va_alist) |
static object LI10(V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218,V217,va_alist) |
1327 |
object V233,V232,V231,V230,V229,V228,V227,V226,V225,V224,V223,V222; |
object V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218,V217; |
1328 |
va_dcl |
va_dcl |
1329 |
{ |
{ |
1330 |
va_list ap; |
va_list ap; |
1331 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
1332 |
{object V234; |
{object V229; |
1333 |
|
register object V230; |
1334 |
|
object V231; |
1335 |
|
object V232; |
1336 |
|
object V233; |
1337 |
|
object V234; |
1338 |
register object V235; |
register object V235; |
1339 |
object V236; |
object V236; |
1340 |
object V237; |
object V237; |
1341 |
object V238; |
object V238; |
1342 |
object V239; |
object V239; |
1343 |
register object V240; |
object V240; |
1344 |
object V241; |
register object V241; |
|
object V242; |
|
|
object V243; |
|
|
object V244; |
|
|
object V245; |
|
|
register object V246; |
|
1345 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1346 |
va_start(ap); |
va_start(ap); |
1347 |
if(narg <12) too_few_arguments(); |
if(narg <12) too_few_arguments(); |
1348 |
Vcs[0]=MMcons(V233,Cnil); |
Vcs[0]=MMcons(V228,Cnil); |
1349 |
V234= V232; |
V229= V227; |
1350 |
V235= V231; |
V230= V226; |
1351 |
V236= V230; |
V231= V225; |
1352 |
V237= V229; |
V232= V224; |
1353 |
V238= V228; |
V233= V223; |
1354 |
V239= V227; |
V234= V222; |
1355 |
V240= V226; |
V235= V221; |
1356 |
V241= V225; |
V236= V220; |
1357 |
V242= V224; |
V237= V219; |
1358 |
V243= V223; |
V238= V218; |
1359 |
V244= V222; |
V239= V217; |
1360 |
narg = narg - 12; |
narg = narg - 12; |
1361 |
if (narg <= 0) goto T597; |
if (narg <= 0) goto T595; |
1362 |
else { |
else { |
1363 |
V245= va_arg(ap,object);} |
V240= va_arg(ap,object);} |
1364 |
if (--narg <= 0) goto T598; |
if (--narg <= 0) goto T596; |
1365 |
else { |
else { |
1366 |
V246= va_arg(ap,object);} |
V241= va_arg(ap,object);} |
1367 |
--narg; goto T599; |
--narg; goto T597; |
1368 |
|
goto T595; |
1369 |
|
T595:; |
1370 |
|
V240= Cnil; |
1371 |
|
goto T596; |
1372 |
|
T596:; |
1373 |
|
V241= Cnil; |
1374 |
goto T597; |
goto T597; |
1375 |
T597:; |
T597:; |
1376 |
V245= Cnil; |
{object V242; |
1377 |
goto T598; |
object V243; |
1378 |
T598:; |
V242= Cnil; |
1379 |
V246= Cnil; |
V243= Cnil; |
1380 |
goto T599; |
if(type_of((V230))==t_cons){ |
1381 |
T599:; |
goto T603;} |
1382 |
{object V247; |
goto T602; |
1383 |
object V248; |
goto T603; |
1384 |
V247= Cnil; |
T603:; |
1385 |
V248= Cnil; |
if((car((V230)))==(VV[19])){ |
|
if(type_of((V235))==t_cons){ |
|
1386 |
goto T605;} |
goto T605;} |
1387 |
goto T604; |
goto T602; |
1388 |
goto T605; |
goto T605; |
1389 |
T605:; |
T605:; |
1390 |
if((car((V235)))==(VV[19])){ |
V230= VV[19]; |
1391 |
goto T607;} |
goto T602; |
1392 |
goto T604; |
T602:; |
1393 |
goto T607; |
V243= make_fixnum((long)length((V232))); |
1394 |
T607:; |
{register object V244; |
1395 |
V235= VV[19]; |
register object V245; |
1396 |
goto T604; |
V244= (V232); |
1397 |
T604:; |
V245= car((V244)); |
1398 |
V248= make_fixnum((long)length((V237))); |
goto T614; |
1399 |
{register object V249; |
T614:; |
1400 |
register object V250; |
if(!(endp_prop((V244)))){ |
1401 |
V249= (V237); |
goto T615;} |
1402 |
V250= car((V249)); |
goto T610; |
1403 |
goto T616; |
goto T615; |
1404 |
T616:; |
T615:; |
1405 |
if(!(endp_prop((V249)))){ |
if((V245)==Cnil){ |
1406 |
goto T617;} |
goto T619;} |
1407 |
goto T612; |
if((car((V245)))!=Cnil){ |
1408 |
goto T617; |
goto T620;} |
1409 |
T617:; |
goto T619; |
1410 |
if((V250)==Cnil){ |
goto T620; |
1411 |
goto T621;} |
T620:; |
|
if((car((V250)))!=Cnil){ |
|
|
goto T622;} |
|
|
goto T621; |
|
|
goto T622; |
|
|
T622:; |
|
1412 |
base[1]= (Vcs[0]->c.c_car); |
base[1]= (Vcs[0]->c.c_car); |
1413 |
base[2]= (V234); |
base[2]= (V229); |
1414 |
base[3]= (V235); |
base[3]= (V230); |
1415 |
base[4]= (V236); |
base[4]= (V231); |
1416 |
base[5]= (V240); |
base[5]= (V235); |
1417 |
base[6]= (V246); |
base[6]= (V241); |
1418 |
{object V251; |
{object V246; |
1419 |
V251= (V250); |
V246= (V245); |
1420 |
vs_top=base+7; |
vs_top=base+7; |
1421 |
while(!endp(V251)) |
while(!endp(V246)) |
1422 |
{vs_push(car(V251));V251=cdr(V251);} |
{vs_push(car(V246));V246=cdr(V246);} |
1423 |
vs_base=base+1;} |
vs_base=base+1;} |
1424 |
(void) (*Lnk127)(); |
(void) (*Lnk125)(); |
1425 |
vs_top=sup; |
vs_top=sup; |
1426 |
goto T621; |
goto T619; |
1427 |
T621:; |
T619:; |
1428 |
V249= cdr((V249)); |
V244= cdr((V244)); |
1429 |
V250= car((V249)); |
V245= car((V244)); |
1430 |
goto T616;} |
goto T614;} |
1431 |
goto T612; |
goto T610; |
1432 |
T612:; |
T610:; |
1433 |
if(((V238))==Cnil){ |
if(((V233))==Cnil){ |
1434 |
goto T636;} |
goto T634;} |
1435 |
if(((V246))!=Cnil){ |
if(((V241))!=Cnil){ |
1436 |
goto T636;} |
goto T634;} |
1437 |
base[0]= (V238); |
base[0]= (V233); |
1438 |
{object V252= (V235); |
{object V247= (V230); |
1439 |
if((V252!= Cnil))goto T643; |
if((V247!= Cnil))goto T641; |
1440 |
|
base[1]= symbol_function(VV[126]); |
1441 |
|
goto T640; |
1442 |
|
goto T641; |
1443 |
|
T641:; |
1444 |
|
if((V247!= VV[20]))goto T642; |
1445 |
|
base[1]= symbol_function(VV[127]); |
1446 |
|
goto T640; |
1447 |
|
goto T642; |
1448 |
|
T642:; |
1449 |
|
if((V247!= VV[19]))goto T643; |
1450 |
base[1]= symbol_function(VV[128]); |
base[1]= symbol_function(VV[128]); |
1451 |
goto T642; |
goto T640; |
1452 |
goto T643; |
goto T643; |
1453 |
T643:; |
T643:; |
1454 |
if((V252!= VV[20]))goto T644; |
FEerror("The ECASE key value ~s is illegal.",1,V247); |
|
base[1]= symbol_function(VV[129]); |
|
|
goto T642; |
|
|
goto T644; |
|
|
T644:; |
|
|
if((V252!= VV[19]))goto T645; |
|
|
base[1]= symbol_function(VV[130]); |
|
|
goto T642; |
|
|
goto T645; |
|
|
T645:; |
|
|
FEerror("The ECASE key value ~s is illegal.",1,V252); |
|
1455 |
base[1]= Cnil; |
base[1]= Cnil; |
1456 |
goto T642;} |
goto T640;} |
1457 |
goto T642; |
goto T640; |
1458 |
T642:; |
T640:; |
1459 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1460 |
siLfset(); |
siLfset(); |
1461 |
vs_top=sup; |
vs_top=sup; |
1462 |
goto T636; |
goto T634; |
1463 |
T636:; |
T634:; |
1464 |
if(((V235))!=Cnil){ |
if(((V230))!=Cnil){ |
1465 |
goto T648;} |
goto T646;} |
1466 |
if(!(((Vcs[0]->c.c_car))==(VV[55]))){ |
if(!(((Vcs[0]->c.c_car))==(VV[53]))){ |
1467 |
goto T648;} |
goto T646;} |
1468 |
base[1]= Ct; |
base[1]= Ct; |
1469 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1470 |
(void) (*Lnk125)(); |
(void) (*Lnk123)(); |
1471 |
vs_top=sup; |
vs_top=sup; |
1472 |
V253= vs_base[0]; |
V248= vs_base[0]; |
1473 |
V254= number_times((V248),V253); |
V249= number_times((V243),V248); |
1474 |
base[0]= (VFUN_NARGS=5,(*(LnkLI120))(/* INLINE-ARGS */V254,VV[52],VV[63],VV[54],Ct)); |
base[0]= (VFUN_NARGS=5,(*(LnkLI118))(/* INLINE-ARGS */V249,VV[50],VV[61],VV[52],Ct)); |
1475 |
base[1]= (*(LnkLI131))((V248),Cnil,(V237)); |
base[1]= (*(LnkLI129))((V243),Cnil,(V232)); |
1476 |
base[2]= symbol_value(VV[59]); |
base[2]= symbol_value(VV[57]); |
1477 |
base[3]= (V237); |
base[3]= (V232); |
1478 |
base[4]= Ct; |
base[4]= Ct; |
1479 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
1480 |
(void) (*Lnk132)(); |
(void) (*Lnk130)(); |
1481 |
vs_top=sup; |
vs_top=sup; |
1482 |
V247= vs_base[0]; |
V242= vs_base[0]; |
1483 |
goto T646; |
goto T644; |
1484 |
goto T648; |
goto T646; |
1485 |
T648:; |
T646:; |
1486 |
{object V255; |
{object V250; |
1487 |
object V256; |
object V251; |
1488 |
object V257; |
object V252; |
1489 |
object V258; |
object V253; |
1490 |
if((V240)==Cnil){ |
if((V235)==Cnil){ |
1491 |
V258= Cnil; |
V253= Cnil; |
1492 |
goto T660;} |
goto T658;} |
1493 |
V258= get((V240),VV[55],Cnil); |
V253= get((V235),VV[53],Cnil); |
1494 |
goto T660; |
goto T658; |
1495 |
T660:; |
T658:; |
1496 |
V255= Cnil; |
V250= Cnil; |
1497 |
V256= small_fixnum(0); |
V251= small_fixnum(0); |
1498 |
V257= Cnil; |
V252= Cnil; |
1499 |
if(((V258))==Cnil){ |
if(((V253))==Cnil){ |
1500 |
goto T661;} |
goto T659;} |
1501 |
if((structure_ref((V258),VV[55],11))==Cnil){ |
if((structure_ref((V253),VV[53],11))==Cnil){ |
1502 |
goto T664;} |
goto T662;} |
1503 |
if((structure_ref((V258),VV[55],3))==Cnil){ |
if((structure_ref((V253),VV[53],3))==Cnil){ |
1504 |
goto T665;} |
goto T663;} |
1505 |
{object V259; |
{object V254; |
1506 |
V259= get((Vcs[0]->c.c_car),VV[55],Cnil); |
V254= get((Vcs[0]->c.c_car),VV[53],Cnil); |
1507 |
if((V259)==Cnil){ |
if((V254)==Cnil){ |
1508 |
goto T670;} |
goto T668;} |
1509 |
V260= structure_ref((V259),VV[55],4); |
V255= structure_ref((V254),VV[53],4); |
1510 |
if((/* INLINE-ARGS */V260)==((V258))){ |
if((/* INLINE-ARGS */V255)==((V253))){ |
1511 |
goto T664;}} |
goto T662;}} |
1512 |
goto T670; |
goto T668; |
1513 |
T670:; |
T668:; |
1514 |
goto T665; |
goto T663; |
1515 |
T665:; |
T663:; |
1516 |
(void)((VFUN_NARGS=2,(*(LnkLI133))(VV[64],(V240)))); |
(void)((VFUN_NARGS=2,(*(LnkLI131))(VV[62],(V235)))); |
1517 |
goto T664; |
goto T662; |
1518 |
T664:; |
T662:; |
1519 |
{object V262; |
{object V257; |
1520 |
base[1]= (Vcs[0]->c.c_car); |
base[1]= (Vcs[0]->c.c_car); |
1521 |
base[2]= structure_ref(V258,VV[55],3); |
base[2]= structure_ref(V253,VV[53],3); |
1522 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1523 |
Ladjoin(); |
Ladjoin(); |
1524 |
vs_top=sup; |
vs_top=sup; |
1525 |
V262= vs_base[0]; |
V257= vs_base[0]; |
1526 |
(void)(structure_set(V258,VV[55],3,(V262)));} |
(void)(structure_set(V253,VV[53],3,(V257)));} |
1527 |
goto T661; |
goto T659; |
1528 |
T661:; |
T659:; |
1529 |
if(((V235))!=Cnil){ |
if(((V230))!=Cnil){ |
1530 |
goto T675;} |
goto T673;} |
1531 |
V255= (*(LnkLI134))((V248),(V240),(V237)); |
V250= (*(LnkLI132))((V243),(V235),(V232)); |
1532 |
V256= cadr((V255)); |
V251= cadr((V250)); |
1533 |
V257= caddr((V255)); |
V252= caddr((V250)); |
1534 |
V255= car((V255)); |
V250= car((V250)); |
1535 |
goto T675; |
goto T673; |
1536 |
T675:; |
T673:; |
1537 |
if(((V235))==Cnil){ |
if(((V230))==Cnil){ |
1538 |
goto T687;} |
goto T685;} |
1539 |
V263= Cnil; |
V258= Cnil; |
1540 |
goto T686; |
goto T684; |
1541 |
goto T687; |
goto T685; |
1542 |
T687:; |
T685:; |
1543 |
V263= (*(LnkLI131))((V248),(V240),(V237)); |
V258= (*(LnkLI129))((V243),(V235),(V232)); |
1544 |
goto T686; |
goto T684; |
1545 |
T686:; |
T684:; |
1546 |
V247= (VFUN_NARGS=32,(*(LnkLI135))(VV[65],(Vcs[0]->c.c_car),VV[66],(V248),VV[67],V263,VV[68],(V255),VV[69],(V256),VV[70],(V257),VV[71],(V239),VV[72],(V258),VV[73],(V241),VV[74],(V237),VV[75],(V242),VV[76],(V243),VV[77],(V235),VV[78],(V236),VV[79],(V245),VV[80],(V234)));} |
V242= (VFUN_NARGS=32,(*(LnkLI133))(VV[63],(Vcs[0]->c.c_car),VV[64],(V243),VV[65],V258,VV[66],(V250),VV[67],(V251),VV[68],(V252),VV[69],(V234),VV[70],(V253),VV[71],(V236),VV[72],(V232),VV[73],(V237),VV[74],(V238),VV[75],(V230),VV[76],(V231),VV[77],(V240),VV[78],(V229)));} |
1547 |
goto T646; |
goto T644; |
1548 |
T646:; |
T644:; |
1549 |
{object V264; |
{object V259; |
1550 |
V264= get((Vcs[0]->c.c_car),VV[55],Cnil); |
V259= get((Vcs[0]->c.c_car),VV[53],Cnil); |
1551 |
if(!(((Vcs[0]->c.c_car))==(VV[55]))){ |
if(!(((Vcs[0]->c.c_car))==(VV[53]))){ |
|
goto T693;} |
|
|
if(((V264))==Cnil){ |
|
|
goto T695;} |
|
|
(void)((VFUN_NARGS=1,(*(LnkLI133))(VV[81]))); |
|
|
goto T695; |
|
|
T695:; |
|
|
if((V264)!=Cnil){ |
|
1552 |
goto T691;} |
goto T691;} |
1553 |
(void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247))); |
if(((V259))==Cnil){ |
1554 |
goto T691; |
goto T693;} |
1555 |
|
(void)((VFUN_NARGS=1,(*(LnkLI131))(VV[79]))); |
1556 |
goto T693; |
goto T693; |
1557 |
T693:; |
T693:; |
1558 |
if(((V264))==Cnil){ |
if((V259)!=Cnil){ |
1559 |
|
goto T689;} |
1560 |
|
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V242))); |
1561 |
|
goto T689; |
1562 |
|
goto T691; |
1563 |
|
T691:; |
1564 |
|
if(((V259))==Cnil){ |
1565 |
|
goto T697;} |
1566 |
|
(void)((*(LnkLI134))((V259),(V242),(Vcs[0]->c.c_car))); |
1567 |
|
goto T689; |
1568 |
|
goto T697; |
1569 |
|
T697:; |
1570 |
|
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V242))); |
1571 |
|
goto T689; |
1572 |
|
T689:; |
1573 |
|
if(((V240))==Cnil){ |
1574 |
goto T699;} |
goto T699;} |
1575 |
(void)((*(LnkLI136))((V264),(V247),(Vcs[0]->c.c_car))); |
(void)(sputprop((Vcs[0]->c.c_car),VV[80],(V240))); |
|
goto T691; |
|
1576 |
goto T699; |
goto T699; |
1577 |
T699:; |
T699:; |
1578 |
(void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247))); |
if(((V230))!=Cnil){ |
1579 |
goto T691; |
goto T687;} |
1580 |
T691:; |
if(((V239))==Cnil){ |
1581 |
if(((V245))==Cnil){ |
goto T687;} |
1582 |
goto T701;} |
base[0]= (V239); |
|
(void)(sputprop((Vcs[0]->c.c_car),VV[82],(V245))); |
|
|
goto T701; |
|
|
T701:; |
|
|
if(((V235))!=Cnil){ |
|
|
goto T689;} |
|
|
if(((V244))==Cnil){ |
|
|
goto T689;} |
|
|
base[0]= (V244); |
|
1583 |
base[1]= VV[3]; |
base[1]= VV[3]; |
1584 |
base[2]= VV[83]; |
base[2]= VV[81]; |
1585 |
base[3]= Ct; |
base[3]= Ct; |
1586 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1587 |
(void) (*Lnk111)(); |
(void) (*Lnk109)(); |
1588 |
vs_top=sup; |
vs_top=sup; |
1589 |
if((V246)!=Cnil){ |
if((V241)!=Cnil){ |
1590 |
goto T713;} |
goto T711;} |
1591 |
base[0]= (V244); |
base[0]= (V239); |
1592 |
base[1]= |
base[1]= |
1593 |
make_cclosure_new(LC20,Cnil,Vcs[0],Cdata); |
make_cclosure_new(LC20,Cnil,Vcs[0],Cdata); |
1594 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1595 |
siLfset(); |
siLfset(); |
1596 |
vs_top=sup; |
vs_top=sup; |
1597 |
goto T713; |
goto T711; |
1598 |
T713:; |
T711:; |
1599 |
(void)(sputprop((V244),VV[84],VV[85])); |
(void)(sputprop((V239),VV[82],VV[83])); |
1600 |
(void)(sputprop((V244),VV[86],(Vcs[0]->c.c_car)));} |
(void)(sputprop((V239),VV[84],(Vcs[0]->c.c_car)));} |
1601 |
goto T689; |
goto T687; |
1602 |
T689:; |
T687:; |
1603 |
{object V265 = Cnil; |
{object V260 = Cnil; |
1604 |
VMR10(V265)}} |
VMR10(V260)}} |
1605 |
va_end(ap); |
va_end(ap); |
1606 |
base[0]=base[0]; |
base[0]=base[0]; |
1607 |
return Cnil;} |
return Cnil;} |
1614 |
vs_reserve(VM11); |
vs_reserve(VM11); |
1615 |
check_arg(2); |
check_arg(2); |
1616 |
vs_top=sup; |
vs_top=sup; |
1617 |
{object V266=base[0]->c.c_cdr; |
{object V261=base[0]->c.c_cdr; |
1618 |
if(endp(V266))invalid_macro_call(); |
if(endp(V261))invalid_macro_call(); |
1619 |
base[2]= (V266->c.c_car); |
base[2]= (V261->c.c_car); |
1620 |
V266=V266->c.c_cdr; |
V261=V261->c.c_cdr; |
1621 |
base[3]= V266;} |
base[3]= V261;} |
1622 |
{register object V267; |
{register object V262; |
1623 |
object V268; |
object V263; |
1624 |
|
register object V264; |
1625 |
|
register object V265; |
1626 |
|
register object V266; |
1627 |
|
register object V267; |
1628 |
|
register object V268; |
1629 |
register object V269; |
register object V269; |
1630 |
register object V270; |
register object V270; |
1631 |
register object V271; |
register object V271; |
1634 |
register object V274; |
register object V274; |
1635 |
register object V275; |
register object V275; |
1636 |
register object V276; |
register object V276; |
1637 |
register object V277; |
object V277; |
1638 |
register object V278; |
object V278; |
1639 |
register object V279; |
register object V279; |
1640 |
register object V280; |
V262= base[3]; |
1641 |
register object V281; |
V263= Cnil; |
1642 |
object V282; |
V264= Cnil; |
1643 |
object V283; |
V265= Cnil; |
1644 |
register object V284; |
V266= Cnil; |
1645 |
V267= base[3]; |
V267= Cnil; |
1646 |
V268= Cnil; |
V268= Cnil; |
1647 |
V269= Cnil; |
V269= Cnil; |
1648 |
V270= Cnil; |
V270= Cnil; |
1655 |
V277= Cnil; |
V277= Cnil; |
1656 |
V278= Cnil; |
V278= Cnil; |
1657 |
V279= Cnil; |
V279= Cnil; |
|
V280= Cnil; |
|
|
V281= Cnil; |
|
|
V282= Cnil; |
|
|
V283= Cnil; |
|
|
V284= Cnil; |
|
1658 |
if(!(type_of(base[2])==t_cons)){ |
if(!(type_of(base[2])==t_cons)){ |
1659 |
goto T717;} |
goto T715;} |
1660 |
V268= cdr(base[2]); |
V263= cdr(base[2]); |
1661 |
base[2]= car(base[2]); |
base[2]= car(base[2]); |
1662 |
goto T717; |
goto T715; |
1663 |
T717:; |
T715:; |
1664 |
base[4]= coerce_to_string(base[2]); |
base[4]= coerce_to_string(base[2]); |
1665 |
base[5]= VV[87]; |
base[5]= VV[85]; |
1666 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1667 |
(void) (*Lnk109)(); |
(void) (*Lnk107)(); |
1668 |
vs_top=sup; |
vs_top=sup; |
1669 |
V269= vs_base[0]; |
V264= vs_base[0]; |
1670 |
base[5]= VV[88]; |
base[5]= VV[86]; |
1671 |
base[6]= coerce_to_string(base[2]); |
base[6]= coerce_to_string(base[2]); |
1672 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1673 |
(void) (*Lnk109)(); |
(void) (*Lnk107)(); |
1674 |
vs_top=sup; |
vs_top=sup; |
1675 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1676 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1677 |
Lintern(); |
Lintern(); |
1678 |
vs_top=sup; |
vs_top=sup; |
1679 |
V271= vs_base[0]; |
V266= vs_base[0]; |
1680 |
base[5]= VV[89]; |
base[5]= VV[87]; |
1681 |
base[6]= coerce_to_string(base[2]); |
base[6]= coerce_to_string(base[2]); |
1682 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1683 |
(void) (*Lnk109)(); |
(void) (*Lnk107)(); |
1684 |
vs_top=sup; |
vs_top=sup; |
1685 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1686 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1687 |
Lintern(); |
Lintern(); |
1688 |
vs_top=sup; |
vs_top=sup; |
1689 |
V273= vs_base[0]; |
V268= vs_base[0]; |
1690 |
base[5]= coerce_to_string(base[2]); |
base[5]= coerce_to_string(base[2]); |
1691 |
base[6]= VV[90]; |
base[6]= VV[88]; |
1692 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1693 |
(void) (*Lnk109)(); |
(void) (*Lnk107)(); |
1694 |
vs_top=sup; |
vs_top=sup; |
1695 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1696 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1697 |
Lintern(); |
Lintern(); |
1698 |
vs_top=sup; |
vs_top=sup; |
1699 |
V274= vs_base[0]; |
V269= vs_base[0]; |
1700 |
{register object V285; |
{register object V280; |
1701 |
register object V286; |
register object V281; |
1702 |
register object V287; |
register object V282; |
1703 |
V285= (V268); |
V280= (V263); |
1704 |
V286= Cnil; |
V281= Cnil; |
1705 |
V287= Cnil; |
V282= Cnil; |
1706 |
goto T744; |
goto T742; |
1707 |
T744:; |
T742:; |
1708 |
if(!(endp_prop((V285)))){ |
if(!(endp_prop((V280)))){ |
1709 |
goto T745;} |
goto T743;} |
1710 |
goto T742; |
goto T740; |
1711 |
goto T745; |
goto T743; |
1712 |
T745:; |
T743:; |
1713 |
if(!(type_of(car((V285)))==t_cons)){ |
if(!(type_of(car((V280)))==t_cons)){ |
1714 |
goto T751;} |
goto T749;} |
1715 |
if(endp_prop(cdar((V285)))){ |
if(endp_prop(cdar((V280)))){ |
1716 |
goto T751;} |
goto T749;} |
1717 |
V286= caar((V285)); |
V281= caar((V280)); |
1718 |
V287= cadar((V285)); |
V282= cadar((V280)); |
1719 |
{object V288= (V286); |
{object V283= (V281); |
1720 |
if((V288!= VV[80]))goto T759; |
if((V283!= VV[78]))goto T757; |
1721 |
if(((V287))!=Cnil){ |
if(((V282))!=Cnil){ |
1722 |
goto T761;} |
goto T759;} |
1723 |
V269= VV[91]; |
V264= VV[89]; |
1724 |
goto T749; |
goto T747; |
|
goto T761; |
|
|
T761:; |
|
|
V269= (V287); |
|
|
goto T749; |
|
1725 |
goto T759; |
goto T759; |
1726 |
T759:; |
T759:; |
1727 |
if((V288!= VV[137]))goto T765; |
V264= (V282); |
1728 |
if(((V287))!=Cnil){ |
goto T747; |
1729 |
goto T767;} |
goto T757; |
1730 |
V272= Ct; |
T757:; |
1731 |
goto T749; |
if((V283!= VV[135]))goto T763; |
1732 |
goto T767; |
if(((V282))!=Cnil){ |
1733 |
T767:; |
goto T765;} |
1734 |
if(!(endp_prop(cddar((V285))))){ |
V267= Ct; |
1735 |
goto T771;} |
goto T747; |
|
V270= make_cons((V287),(V270)); |
|
|
goto T749; |
|
|
goto T771; |
|
|
T771:; |
|
|
V270= make_cons(cdar((V285)),(V270)); |
|
|
goto T749; |
|
1736 |
goto T765; |
goto T765; |
1737 |
T765:; |
T765:; |
1738 |
if((V288!= VV[138]))goto T775; |
if(!(endp_prop(cddar((V280))))){ |
1739 |
V273= (V287); |
goto T769;} |
1740 |
goto T749; |
V265= make_cons((V282),(V265)); |
1741 |
|
goto T747; |
1742 |
|
goto T769; |
1743 |
|
T769:; |
1744 |
|
V265= make_cons(cdar((V280)),(V265)); |
1745 |
|
goto T747; |
1746 |
|
goto T763; |
1747 |
|
T763:; |
1748 |
|
if((V283!= VV[136]))goto T773; |
1749 |
|
V268= (V282); |
1750 |
|
goto T747; |
1751 |
|
goto T773; |
1752 |
|
T773:; |
1753 |
|
if((V283!= VV[52]))goto T775; |
1754 |
|
V279= (V282); |
1755 |
|
goto T747; |
1756 |
goto T775; |
goto T775; |
1757 |
T775:; |
T775:; |
1758 |
if((V288!= VV[54]))goto T777; |
if((V283!= VV[137]))goto T777; |
1759 |
V284= (V287); |
V269= (V282); |
1760 |
goto T749; |
V270= Ct; |
1761 |
|
goto T747; |
1762 |
goto T777; |
goto T777; |
1763 |
T777:; |
T777:; |
1764 |
if((V288!= VV[139]))goto T779; |
if((V283!= VV[138]))goto T781; |
1765 |
V274= (V287); |
V271= cdar((V280)); |
1766 |
V275= Ct; |
if((get((V282),VV[53],Cnil))!=Cnil){ |
1767 |
goto T749; |
goto T747;} |
1768 |
goto T779; |
base[4]= VV[90]; |
1769 |
T779:; |
base[5]= (V282); |
|
if((V288!= VV[140]))goto T783; |
|
|
V276= cdar((V285)); |
|
|
if((get((V287),VV[55],Cnil))!=Cnil){ |
|
|
goto T749;} |
|
|
base[4]= VV[92]; |
|
|
base[5]= (V287); |
|
1770 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1771 |
Lerror(); |
Lerror(); |
1772 |
vs_top=sup; |
vs_top=sup; |
1773 |
goto T749; |
goto T747; |
1774 |
goto T783; |
goto T781; |
1775 |
T783:; |
T781:; |
1776 |
if((V288!= VV[73]))goto T790; |
if((V283!= VV[71]))goto T788; |
1777 |
if(type_of((V287))==t_cons){ |
if(type_of((V282))==t_cons){ |
1778 |
|
goto T790;} |
1779 |
|
goto T789; |
1780 |
|
goto T790; |
1781 |
|
T790:; |
1782 |
|
if((car((V282)))==(VV[91])){ |
1783 |
goto T792;} |
goto T792;} |
1784 |
goto T791; |
goto T789; |
1785 |
goto T792; |
goto T792; |
1786 |
T792:; |
T792:; |
1787 |
if((car((V287)))==(VV[93])){ |
V282= cadr((V282)); |
1788 |
goto T794;} |
goto T789; |
1789 |
goto T791; |
T789:; |
1790 |
goto T794; |
V272= (V282); |
1791 |
T794:; |
goto T747; |
1792 |
V287= cadr((V287)); |
goto T788; |
1793 |
goto T791; |
T788:; |
1794 |
T791:; |
if((V283!= VV[75]))goto T796; |
1795 |
V277= (V287); |
V273= (V282); |
1796 |
goto T749; |
goto T747; |
1797 |
goto T790; |
goto T796; |
1798 |
T790:; |
T796:; |
1799 |
if((V288!= VV[77]))goto T798; |
if((V283!= VV[139]))goto T798; |
1800 |
V278= (V287); |
V275= (V282); |
1801 |
goto T749; |
goto T747; |
1802 |
goto T798; |
goto T798; |
1803 |
T798:; |
T798:; |
1804 |
if((V288!= VV[141]))goto T800; |
base[4]= VV[92]; |
1805 |
V280= (V287); |
base[5]= (V281); |
|
goto T749; |
|
|
goto T800; |
|
|
T800:; |
|
|
base[4]= VV[94]; |
|
|
base[5]= (V286); |
|
1806 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1807 |
Lerror(); |
Lerror(); |
1808 |
vs_top=sup; |
vs_top=sup; |
1809 |
goto T749;} |
goto T747;} |
1810 |
goto T751; |
goto T749; |
1811 |
T751:; |
T749:; |
1812 |
if(!(type_of(car((V285)))==t_cons)){ |
if(!(type_of(car((V280)))==t_cons)){ |
1813 |
goto T806;} |
goto T804;} |
1814 |
V286= caar((V285)); |
V281= caar((V280)); |
1815 |
goto T804; |
goto T802; |
|
goto T806; |
|
|
T806:; |
|
|
V286= car((V285)); |
|
1816 |
goto T804; |
goto T804; |
1817 |
T804:; |
T804:; |
1818 |
{object V289= (V286); |
V281= car((V280)); |
1819 |
if((V289!= VV[137]))goto T810; |
goto T802; |
1820 |
V270= make_cons((V271),(V270)); |
T802:; |
1821 |
goto T749; |
{object V284= (V281); |
1822 |
|
if((V284!= VV[135]))goto T808; |
1823 |
|
V265= make_cons((V266),(V265)); |
1824 |
|
goto T747; |
1825 |
|
goto T808; |
1826 |
|
T808:; |
1827 |
|
if((V284!= VV[78]) |
1828 |
|
&& (V284!= VV[136]) |
1829 |
|
&& (V284!= VV[137]) |
1830 |
|
&& (V284!= VV[71]))goto T810; |
1831 |
|
goto T747; |
1832 |
goto T810; |
goto T810; |
1833 |
T810:; |
T810:; |
1834 |
if((V289!= VV[80]) |
if((V284!= VV[76]))goto T811; |
1835 |
&& (V289!= VV[138]) |
V274= Ct; |
1836 |
&& (V289!= VV[139]) |
goto T747; |
1837 |
&& (V289!= VV[73]))goto T812; |
goto T811; |
1838 |
goto T749; |
T811:; |
1839 |
goto T812; |
base[4]= VV[93]; |
1840 |
T812:; |
base[5]= (V281); |
|
if((V289!= VV[78]))goto T813; |
|
|
V279= Ct; |
|
|
goto T749; |
|
|
goto T813; |
|
|
T813:; |
|
|
base[4]= VV[95]; |
|
|
base[5]= (V286); |
|
1841 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1842 |
Lerror(); |
Lerror(); |
1843 |
vs_top=sup;} |
vs_top=sup;} |
1844 |
goto T749; |
goto T747; |
1845 |
T749:; |
T747:; |
1846 |
V285= cdr((V285)); |
V280= cdr((V280)); |
1847 |
goto T744;} |
goto T742;} |
1848 |
goto T742; |
goto T740; |
1849 |
T742:; |
T740:; |
1850 |
base[4]= coerce_to_string((V269)); |
base[4]= coerce_to_string((V264)); |
1851 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1852 |
Lintern(); |
Lintern(); |
1853 |
vs_top=sup; |
vs_top=sup; |
1854 |
V269= vs_base[0]; |
V264= vs_base[0]; |
1855 |
if((V276)==Cnil){ |
if((V271)==Cnil){ |
1856 |
goto T823;} |
goto T821;} |
1857 |
if(((V277))==Cnil){ |
if(((V272))==Cnil){ |
1858 |
goto T824;} |
goto T822;} |
1859 |
goto T823; |
goto T821; |
1860 |
goto T824; |
goto T822; |
1861 |
T824:; |
T822:; |
1862 |
V290= get(car((V276)),VV[55],Cnil); |
V285= get(car((V271)),VV[53],Cnil); |
1863 |
V277= structure_ref(V290,VV[55],6); |
V272= structure_ref(V285,VV[53],6); |
1864 |
goto T823; |
goto T821; |
1865 |
T823:; |
T821:; |
1866 |
if(endp_prop((V267))){ |
if(endp_prop((V262))){ |
1867 |
goto T828;} |
goto T826;} |
1868 |
if(!(type_of(car((V267)))==t_string)){ |
if(!(type_of(car((V262)))==t_string)){ |
1869 |
goto T828;} |
goto T826;} |
1870 |
V283= car((V267)); |
V278= car((V262)); |
1871 |
V267= cdr((V267)); |
V262= cdr((V262)); |
1872 |
goto T828; |
goto T826; |
1873 |
T828:; |
T826:; |
1874 |
if(((V276))==Cnil){ |
if(((V271))==Cnil){ |
1875 |
goto T836;} |
goto T834;} |
1876 |
V291= get(car((V276)),VV[55],Cnil); |
V286= get(car((V271)),VV[53],Cnil); |
1877 |
V292= structure_ref(V291,VV[55],16); |
V287= structure_ref(V286,VV[53],16); |
1878 |
if(equal((V278),/* INLINE-ARGS */V292)){ |
if(equal((V273),/* INLINE-ARGS */V287)){ |
1879 |
goto T836;} |
goto T834;} |
1880 |
base[4]= VV[96]; |
base[4]= VV[94]; |
1881 |
base[5]= car((V276)); |
base[5]= car((V271)); |
1882 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1883 |
Lerror(); |
Lerror(); |
1884 |
vs_top=sup; |
vs_top=sup; |
1885 |
goto T836; |
goto T834; |
1886 |
T836:; |
T834:; |
1887 |
if(((V276))!=Cnil){ |
if(((V271))!=Cnil){ |
1888 |
goto T846;} |
goto T844;} |
1889 |
V281= small_fixnum(0); |
V276= small_fixnum(0); |
1890 |
goto T844; |
goto T842; |
|
goto T846; |
|
|
T846:; |
|
|
V293= get(car((V276)),VV[55],Cnil); |
|
|
V281= structure_ref(V293,VV[55],14); |
|
1891 |
goto T844; |
goto T844; |
1892 |
T844:; |
T844:; |
1893 |
if(((V278))==Cnil){ |
V288= get(car((V271)),VV[53],Cnil); |
1894 |
goto T851;} |
V276= structure_ref(V288,VV[53],14); |
1895 |
if(((V280))==Cnil){ |
goto T842; |
1896 |
goto T851;} |
T842:; |
1897 |
V281= number_plus((V281),(V280)); |
if(((V273))==Cnil){ |
1898 |
goto T851; |
goto T849;} |
1899 |
T851:; |
if(((V275))==Cnil){ |
1900 |
if(((V278))==Cnil){ |
goto T849;} |
1901 |
goto T857;} |
V276= number_plus((V276),(V275)); |
1902 |
if(((V279))==Cnil){ |
goto T849; |
1903 |
goto T857;} |
T849:; |
1904 |
V282= (V281); |
if(((V273))==Cnil){ |
1905 |
V281= one_plus((V281)); |
goto T855;} |
1906 |
goto T857; |
if(((V274))==Cnil){ |
1907 |
T857:; |
goto T855;} |
1908 |
{register object V294; |
V277= (V276); |
1909 |
register object V295; |
V276= one_plus((V276)); |
1910 |
V294= (V267); |
goto T855; |
1911 |
V295= Cnil; |
T855:; |
1912 |
goto T867; |
{register object V289; |
1913 |
T867:; |
register object V290; |
1914 |
if(!(endp_prop((V294)))){ |
V289= (V262); |
1915 |
goto T868;} |
V290= Cnil; |
|
V267= nreverse((V295)); |
|
|
goto T865; |
|
|
goto T868; |
|
|
T868:; |
|
|
V296= (*(LnkLI142))(car((V294)),(V281)); |
|
|
V295= make_cons(/* INLINE-ARGS */V296,(V295)); |
|
|
V281= one_plus((V281)); |
|
|
V294= cdr((V294)); |
|
|
goto T867;} |
|
1916 |
goto T865; |
goto T865; |
1917 |
T865:; |
T865:; |
1918 |
if(((V278))==Cnil){ |
if(!(endp_prop((V289)))){ |
1919 |
goto T880;} |
goto T866;} |
1920 |
if(((V279))==Cnil){ |
V262= nreverse((V290)); |
1921 |
goto T880;} |
goto T863; |
1922 |
V297= list(2,Cnil,base[2]); |
goto T866; |
1923 |
V267= make_cons(/* INLINE-ARGS */V297,(V267)); |
T866:; |
1924 |
goto T880; |
V291= (*(LnkLI140))(car((V289)),(V276)); |
1925 |
T880:; |
V290= make_cons(/* INLINE-ARGS */V291,(V290)); |
1926 |
if(((V278))==Cnil){ |
V276= one_plus((V276)); |
1927 |
goto T886;} |
V289= cdr((V289)); |
1928 |
if(((V280))==Cnil){ |
goto T865;} |
1929 |
goto T886;} |
goto T863; |
1930 |
base[4]= (V280); |
T863:; |
1931 |
|
if(((V273))==Cnil){ |
1932 |
|
goto T878;} |
1933 |
|
if(((V274))==Cnil){ |
1934 |
|
goto T878;} |
1935 |
|
V292= list(2,Cnil,base[2]); |
1936 |
|
V262= make_cons(/* INLINE-ARGS */V292,(V262)); |
1937 |
|
goto T878; |
1938 |
|
T878:; |
1939 |
|
if(((V273))==Cnil){ |
1940 |
|
goto T884;} |
1941 |
|
if(((V275))==Cnil){ |
1942 |
|
goto T884;} |
1943 |
|
base[4]= (V275); |
1944 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1945 |
Lmake_list(); |
Lmake_list(); |
1946 |
vs_top=sup; |
vs_top=sup; |
1947 |
V298= vs_base[0]; |
V293= vs_base[0]; |
1948 |
V267= append(V298,(V267)); |
V262= append(V293,(V262)); |
1949 |
goto T886; |
goto T884; |
1950 |
T886:; |
T884:; |
1951 |
{object V299; |
{object V294; |
1952 |
V299= (((V276))==Cnil?Ct:Cnil); |
V294= (((V271))==Cnil?Ct:Cnil); |
1953 |
if(((V299))==Cnil){ |
if(((V294))==Cnil){ |
1954 |
goto T897;} |
goto T895;} |
1955 |
goto T894; |
goto T892; |
1956 |
goto T897; |
goto T895; |
1957 |
T897:; |
T895:; |
1958 |
if(!(endp_prop(cdr((V276))))){ |
if(!(endp_prop(cdr((V271))))){ |
1959 |
goto T900;} |
goto T898;} |
1960 |
V300= get(car((V276)),VV[55],Cnil); |
V295= get(car((V271)),VV[53],Cnil); |
1961 |
V301= structure_ref(V300,VV[55],7); |
V296= structure_ref(V295,VV[53],7); |
1962 |
V267= append(/* INLINE-ARGS */V301,(V267)); |
V262= append(/* INLINE-ARGS */V296,(V262)); |
1963 |
goto T894; |
goto T892; |
1964 |
goto T900; |
goto T898; |
1965 |
T900:; |
T898:; |
1966 |
{object V303; |
{object V298; |
1967 |
object V304= cdr((V276)); |
object V299= cdr((V271)); |
1968 |
if(endp(V304)){ |
if(endp(V299)){ |
1969 |
V302= Cnil; |
V297= Cnil; |
1970 |
goto T905;} |
goto T903;} |
1971 |
base[4]=V303=MMcons(Cnil,Cnil); |
base[4]=V298=MMcons(Cnil,Cnil); |
1972 |
goto T906; |
goto T904; |
1973 |
T906:; |
T904:; |
1974 |
(V303->c.c_car)= (*(LnkLI142))((V304->c.c_car),small_fixnum(0)); |
(V298->c.c_car)= (*(LnkLI140))((V299->c.c_car),small_fixnum(0)); |
1975 |
V304=MMcdr(V304); |
V299=MMcdr(V299); |
1976 |
if(endp(V304)){ |
if(endp(V299)){ |
1977 |
V302= base[4]; |
V297= base[4]; |
1978 |
goto T905;} |
goto T903;} |
1979 |
V303=MMcdr(V303)=MMcons(Cnil,Cnil); |
V298=MMcdr(V298)=MMcons(Cnil,Cnil); |
1980 |
goto T906;} |
goto T904;} |
1981 |
goto T905; |
goto T903; |
1982 |
T905:; |
T903:; |
1983 |
V306= get(car((V276)),VV[55],Cnil); |
V301= get(car((V271)),VV[53],Cnil); |
1984 |
V307= structure_ref(V306,VV[55],7); |
V302= structure_ref(V301,VV[53],7); |
1985 |
V308= (*(LnkLI119))(V302,/* INLINE-ARGS */V307); |
V303= (*(LnkLI117))(V297,/* INLINE-ARGS */V302); |
1986 |
V267= append(/* INLINE-ARGS */V308,(V267));} |
V262= append(/* INLINE-ARGS */V303,(V262));} |
1987 |
goto T894; |
goto T892; |
1988 |
T894:; |
T892:; |
1989 |
if(((V272))==Cnil){ |
if(((V267))==Cnil){ |
|
goto T911;} |
|
|
if(((V270))==Cnil){ |
|
1990 |
goto T909;} |
goto T909;} |
1991 |
base[4]= VV[97]; |
if(((V265))==Cnil){ |
1992 |
|
goto T907;} |
1993 |
|
base[4]= VV[95]; |
1994 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1995 |
Lerror(); |
Lerror(); |
1996 |
vs_top=sup; |
vs_top=sup; |
1997 |
goto T909; |
goto T907; |
|
goto T911; |
|
|
T911:; |
|
|
if(((V270))!=Cnil){ |
|
|
goto T909;} |
|
|
V270= make_cons((V271),Cnil); |
|
1998 |
goto T909; |
goto T909; |
1999 |
T909:;{object V309; |
T909:; |
2000 |
{object V312; |
if(((V265))!=Cnil){ |
2001 |
object V313= (V270); |
goto T907;} |
2002 |
if(endp(V313)){ |
V265= make_cons((V266),Cnil); |
2003 |
V311= Cnil; |
goto T907; |
2004 |
goto T922;} |
T907:;{object V304; |
2005 |
base[4]=V312=MMcons(Cnil,Cnil); |
{object V307; |
2006 |
goto T923; |
object V308= (V265); |
2007 |
T923:; |
if(endp(V308)){ |
2008 |
base[5]= (V313->c.c_car); |
V306= Cnil; |
2009 |
|
goto T920;} |
2010 |
|
base[4]=V307=MMcons(Cnil,Cnil); |
2011 |
|
goto T921; |
2012 |
|
T921:; |
2013 |
|
base[5]= (V308->c.c_car); |
2014 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2015 |
Lsymbolp(); |
Lsymbolp(); |
2016 |
vs_top=sup; |
vs_top=sup; |
2017 |
(V312->c.c_car)= vs_base[0]; |
(V307->c.c_car)= vs_base[0]; |
2018 |
V313=MMcdr(V313); |
V308=MMcdr(V308); |
2019 |
if(endp(V313)){ |
if(endp(V308)){ |
2020 |
V311= base[4]; |
V306= base[4]; |
2021 |
goto T922;} |
goto T920;} |
2022 |
V312=MMcdr(V312)=MMcons(Cnil,Cnil); |
V307=MMcdr(V307)=MMcons(Cnil,Cnil); |
2023 |
goto T923;} |
goto T921;} |
|
goto T922; |
|
|
T922:; |
|
|
{register object x= Ct,V310= V311; |
|
|
while(!endp(V310)) |
|
|
if(eql(x,V310->c.c_car)){ |
|
|
V309= V310; |
|
|
goto T921; |
|
|
}else V310=V310->c.c_cdr; |
|
|
V309= Cnil;} |
|
|
goto T921; |
|
|
T921:; |
|
|
if(V309==Cnil)goto T920; |
|
|
goto T919; |
|
2024 |
goto T920; |
goto T920; |
2025 |
T920:;} |
T920:; |
2026 |
base[5]= VV[98]; |
{register object x= Ct,V305= V306; |
2027 |
base[6]= (V271); |
while(!endp(V305)) |
2028 |
|
if(eql(x,V305->c.c_car)){ |
2029 |
|
V304= V305; |
2030 |
|
goto T919; |
2031 |
|
}else V305=V305->c.c_cdr; |
2032 |
|
V304= Cnil;} |
2033 |
|
goto T919; |
2034 |
|
T919:; |
2035 |
|
if(V304==Cnil)goto T918; |
2036 |
|
goto T917; |
2037 |
|
goto T918; |
2038 |
|
T918:;} |
2039 |
|
base[5]= VV[96]; |
2040 |
|
base[6]= (V266); |
2041 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2042 |
(void) (*Lnk109)(); |
(void) (*Lnk107)(); |
2043 |
vs_top=sup; |
vs_top=sup; |
2044 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2045 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2046 |
Lintern(); |
Lintern(); |
2047 |
vs_top=sup; |
vs_top=sup; |
2048 |
V314= vs_base[0]; |
V309= vs_base[0]; |
2049 |
V270= make_cons(V314,(V270)); |
V265= make_cons(V309,(V265)); |
2050 |
goto T919; |
goto T917; |
2051 |
T919:; |
T917:; |
2052 |
if(((V278))==Cnil){ |
if(((V273))==Cnil){ |
2053 |
goto T931;} |
goto T929;} |
2054 |
if(((V279))!=Cnil){ |
if(((V274))!=Cnil){ |
2055 |
goto T931;} |
goto T929;} |
2056 |
if(((V275))==Cnil){ |
if(((V270))==Cnil){ |
2057 |
goto T936;} |
goto T934;} |
2058 |
base[4]= VV[99]; |
base[4]= VV[97]; |
2059 |
base[5]= (V274); |
base[5]= (V269); |
2060 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2061 |
Lerror(); |
Lerror(); |
2062 |
vs_top=sup; |
vs_top=sup; |
2063 |
goto T936; |
goto T934; |
2064 |
T936:; |
T934:; |
2065 |
V274= Cnil; |
V269= Cnil; |
2066 |
goto T931; |
goto T929; |
2067 |
T931:; |
T929:; |
2068 |
if(((V276))==Cnil){ |
if(((V271))==Cnil){ |
2069 |
goto T942;} |
goto T940;} |
2070 |
V276= car((V276)); |
V271= car((V271)); |
2071 |
goto T942; |
goto T940; |
2072 |
T942:; |
T940:; |
2073 |
if(((V277))==Cnil){ |
if(((V272))==Cnil){ |
2074 |
goto T946;} |
goto T944;} |
2075 |
if(((V278))==Cnil){ |
if(((V273))==Cnil){ |
2076 |
goto T946;} |
goto T944;} |
2077 |
base[4]= VV[100]; |
base[4]= VV[98]; |
2078 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2079 |
Lerror(); |
Lerror(); |
2080 |
vs_top=sup; |
vs_top=sup; |
2081 |
goto T946; |
goto T944; |
2082 |
T946:; |
T944:; |
2083 |
base[4]= VV[102]; |
base[4]= VV[100]; |
2084 |
base[5]= list(2,VV[11],base[2]); |
base[5]= list(2,VV[11],base[2]); |
2085 |
base[6]= list(2,VV[11],(V269)); |
base[6]= list(2,VV[11],(V264)); |
2086 |
base[7]= list(2,VV[11],(V278)); |
base[7]= list(2,VV[11],(V273)); |
2087 |
base[8]= list(2,VV[11],(V279)); |
base[8]= list(2,VV[11],(V274)); |
2088 |
base[9]= list(2,VV[11],(V267)); |
base[9]= list(2,VV[11],(V262)); |
2089 |
base[10]= list(2,VV[11],(V273)); |
base[10]= list(2,VV[11],(V268)); |
2090 |
base[11]= list(2,VV[11],(V284)); |
base[11]= list(2,VV[11],(V279)); |
2091 |
base[12]= list(2,VV[11],(V276)); |
base[12]= list(2,VV[11],(V271)); |
2092 |
base[13]= list(2,VV[11],(V277)); |
base[13]= list(2,VV[11],(V272)); |
2093 |
base[14]= list(2,VV[11],(V270)); |
base[14]= list(2,VV[11],(V265)); |
2094 |
base[15]= list(2,VV[11],(V281)); |
base[15]= list(2,VV[11],(V276)); |
2095 |
base[16]= list(2,VV[11],(V274)); |
base[16]= list(2,VV[11],(V269)); |
2096 |
base[17]= list(2,VV[11],(V283)); |
base[17]= list(2,VV[11],(V278)); |
2097 |
vs_top=(vs_base=base+4)+14; |
vs_top=(vs_base=base+4)+14; |
2098 |
Llist(); |
Llist(); |
2099 |
vs_top=sup; |
vs_top=sup; |
2100 |
V315= vs_base[0]; |
V310= vs_base[0]; |
2101 |
{object V317; |
{object V312; |
2102 |
object V318= (V270); |
object V313= (V265); |
2103 |
if(endp(V318)){ |
if(endp(V313)){ |
2104 |
base[4]= Cnil; |
base[4]= Cnil; |
2105 |
goto T968;} |
goto T966;} |
2106 |
base[5]=V317=MMcons(Cnil,Cnil); |
base[5]=V312=MMcons(Cnil,Cnil); |
2107 |
goto T969; |
goto T967; |
2108 |
T969:; |
T967:; |
2109 |
(V317->c.c_car)= (*(LnkLI143))(base[2],(V318->c.c_car),(V278),(V279),(V267)); |
(V312->c.c_car)= (*(LnkLI141))(base[2],(V313->c.c_car),(V273),(V274),(V262)); |
2110 |
V318=MMcdr(V318); |
V313=MMcdr(V313); |
2111 |
if(endp(V318)){ |
if(endp(V313)){ |
2112 |
base[4]= base[5]; |
base[4]= base[5]; |
2113 |
goto T968;} |
goto T966;} |
2114 |
V317=MMcdr(V317)=MMcons(Cnil,Cnil); |
V312=MMcdr(V312)=MMcons(Cnil,Cnil); |
2115 |
goto T969;} |
goto T967;} |
2116 |
goto T968; |
goto T966; |
2117 |
T968:; |
T966:; |
2118 |
if(((V278))==Cnil){ |
if(((V273))==Cnil){ |
2119 |
goto T973;} |
goto T971;} |
2120 |
if(((V274))==Cnil){ |
if(((V269))==Cnil){ |
2121 |
goto T973;} |
goto T971;} |
2122 |
V320= (*(LnkLI144))(base[2],(V274),(V278),(V279),(V282)); |
V315= (*(LnkLI142))(base[2],(V269),(V273),(V274),(V277)); |
2123 |
base[5]= make_cons(/* INLINE-ARGS */V320,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V315,Cnil); |
2124 |
goto T971; |
goto T969; |
|
goto T973; |
|
|
T973:; |
|
|
base[5]= Cnil; |
|
2125 |
goto T971; |
goto T971; |
2126 |
T971:; |
T971:; |
2127 |
V321= list(2,VV[11],base[2]); |
base[5]= Cnil; |
2128 |
base[6]= make_cons(/* INLINE-ARGS */V321,Cnil); |
goto T969; |
2129 |
|
T969:; |
2130 |
|
V316= list(2,VV[11],base[2]); |
2131 |
|
base[6]= make_cons(/* INLINE-ARGS */V316,Cnil); |
2132 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2133 |
Lappend(); |
Lappend(); |
2134 |
vs_top=sup; |
vs_top=sup; |
2135 |
V316= vs_base[0]; |
V311= vs_base[0]; |
2136 |
base[4]= listA(3,VV[101],V315,V316); |
base[4]= listA(3,VV[99],V310,V311); |
2137 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2138 |
return;} |
return;} |
2139 |
} |
} |
2144 |
{ |
{ |
2145 |
va_list ap; |
va_list ap; |
2146 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
2147 |
{object V322; |
{object V317; |
2148 |
|
object V318; |
2149 |
|
object V319; |
2150 |
|
object V320; |
2151 |
|
object V321; |
2152 |
|
object V322; |
2153 |
object V323; |
object V323; |
2154 |
object V324; |
object V324; |
2155 |
object V325; |
object V325; |
2162 |
object V332; |
object V332; |
2163 |
object V333; |
object V333; |
2164 |
object V334; |
object V334; |
|
object V335; |
|
|
object V336; |
|
|
object V337; |
|
|
object V338; |
|
|
object V339; |
|
2165 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2166 |
va_start(ap); |
va_start(ap); |
2167 |
narg= narg - 0; |
narg= narg - 0; |
2168 |
{ |
{ |
2169 |
parse_key_new(narg,Vcs +0,(struct key *)&LI12key,ap); |
parse_key_new(narg,Vcs +0,(struct key *)&LI12key,ap); |
2170 |
V322=(Vcs[0]); |
V317=(Vcs[0]); |
2171 |
V323=(Vcs[1]); |
V318=(Vcs[1]); |
2172 |
V324=(Vcs[2]); |
V319=(Vcs[2]); |
2173 |
V325=(Vcs[3]); |
V320=(Vcs[3]); |
2174 |
V326=(Vcs[4]); |
V321=(Vcs[4]); |
2175 |
V327=(Vcs[5]); |
V322=(Vcs[5]); |
2176 |
V328=(Vcs[6]); |
V323=(Vcs[6]); |
2177 |
V329=(Vcs[7]); |
V324=(Vcs[7]); |
2178 |
V330=(Vcs[8]); |
V325=(Vcs[8]); |
2179 |
V331=(Vcs[9]); |
V326=(Vcs[9]); |
2180 |
V332=(Vcs[10]); |
V327=(Vcs[10]); |
2181 |
V333=(Vcs[11]); |
V328=(Vcs[11]); |
2182 |
V334=(Vcs[12]); |
V329=(Vcs[12]); |
2183 |
V335=(Vcs[13]); |
V330=(Vcs[13]); |
2184 |
V336=(Vcs[14]); |
V331=(Vcs[14]); |
2185 |
V337=(Vcs[15]); |
V332=(Vcs[15]); |
2186 |
V338=(Vcs[16]); |
V333=(Vcs[16]); |
2187 |
V339=(Vcs[17]); |
V334=(Vcs[17]); |
2188 |
base[0]= VV[55]; |
base[0]= VV[53]; |
2189 |
base[1]= (V322); |
base[1]= (V317); |
2190 |
base[2]= (V323); |
base[2]= (V318); |
2191 |
base[3]= (V324); |
base[3]= (V319); |
2192 |
base[4]= (V325); |
base[4]= (V320); |
2193 |
base[5]= (V326); |
base[5]= (V321); |
2194 |
base[6]= (V327); |
base[6]= (V322); |
2195 |
base[7]= (V328); |
base[7]= (V323); |
2196 |
base[8]= (V329); |
base[8]= (V324); |
2197 |
base[9]= (V330); |
base[9]= (V325); |
2198 |
base[10]= (V331); |
base[10]= (V326); |
2199 |
base[11]= (V332); |
base[11]= (V327); |
2200 |
base[12]= (V333); |
base[12]= (V328); |
2201 |
base[13]= (V334); |
base[13]= (V329); |
2202 |
base[14]= (V335); |
base[14]= (V330); |
2203 |
base[15]= (V336); |
base[15]= (V331); |
2204 |
base[16]= (V337); |
base[16]= (V332); |
2205 |
base[17]= (V338); |
base[17]= (V333); |
2206 |
base[18]= (V339); |
base[18]= (V334); |
2207 |
vs_top=(vs_base=base+0)+19; |
vs_top=(vs_base=base+0)+19; |
2208 |
siLmake_structure(); |
siLmake_structure(); |
2209 |
vs_top=sup; |
vs_top=sup; |
2210 |
{object V340 = vs_base[0]; |
{object V335 = vs_base[0]; |
2211 |
VMR12(V340)} |
VMR12(V335)} |
2212 |
va_end(ap); |
va_end(ap); |
2213 |
base[0]=base[0]; |
base[0]=base[0]; |
2214 |
return Cnil;} |
return Cnil;} |
2215 |
}} |
}} |
2216 |
/* local entry for function CHECK-S-DATA */ |
/* local entry for function CHECK-S-DATA */ |
2217 |
|
|
2218 |
static object LI13(V344,V345,V346) |
static object LI13(V339,V340,V341) |
2219 |
|
|
2220 |
register object V344;register object V345;object V346; |
register object V339;register object V340;object V341; |
2221 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
2222 |
goto TTL; |
goto TTL; |
2223 |
TTL:; |
TTL:; |
2224 |
if((structure_ref((V344),VV[55],3))==Cnil){ |
if((structure_ref((V339),VV[53],3))==Cnil){ |
2225 |
goto T997;} |
goto T995;} |
2226 |
V347= structure_ref((V344),VV[55],3); |
V342= structure_ref((V339),VV[53],3); |
2227 |
(void)(structure_set((V345),VV[55],3,/* INLINE-ARGS */V347)); |
(void)(structure_set((V340),VV[53],3,/* INLINE-ARGS */V342)); |
2228 |
goto T997; |
goto T995; |
2229 |
T997:; |
T995:; |
2230 |
if((structure_ref((V344),VV[55],11))==Cnil){ |
if((structure_ref((V339),VV[53],11))==Cnil){ |
2231 |
goto T1000;} |
goto T998;} |
2232 |
(void)(structure_set((V345),VV[55],11,Ct)); |
(void)(structure_set((V340),VV[53],11,Ct)); |
2233 |
goto T1000; |
goto T998; |
2234 |
T1000:; |
T998:; |
2235 |
if(equalp((V345),(V344))){ |
if(equalp((V340),(V339))){ |
2236 |
goto T1004;} |
goto T1002;} |
2237 |
(void)((VFUN_NARGS=2,(*(LnkLI133))(VV[103],(V346)))); |
(void)((VFUN_NARGS=2,(*(LnkLI131))(VV[101],(V341)))); |
2238 |
{object V348 = sputprop((V346),VV[55],(V345)); |
{object V343 = sputprop((V341),VV[53],(V340)); |
2239 |
VMR13(V348)} |
VMR13(V343)} |
2240 |
goto T1004; |
goto T1002; |
2241 |
T1004:; |
T1002:; |
2242 |
{object V349 = Cnil; |
{object V344 = Cnil; |
2243 |
VMR13(V349)} |
VMR13(V344)} |
2244 |
return Cnil; |
return Cnil; |
2245 |
} |
} |
2246 |
/* local entry for function FREEZE-DEFSTRUCT */ |
/* local entry for function FREEZE-DEFSTRUCT */ |
2247 |
|
|
2248 |
static object LI14(V351) |
static object LI14(V346) |
2249 |
|
|
2250 |
object V351; |
object V346; |
2251 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
2252 |
goto TTL; |
goto TTL; |
2253 |
TTL:; |
TTL:; |
2254 |
{object V352; |
{object V347; |
2255 |
if(type_of((V351))==t_symbol){ |
if(type_of((V346))==t_symbol){ |
2256 |
goto T1008;} |
goto T1006;} |
2257 |
V352= Cnil; |
V347= Cnil; |
2258 |
goto T1007; |
goto T1005; |
2259 |
goto T1008; |
goto T1006; |
2260 |
T1008:; |
T1006:; |
2261 |
V352= get((V351),VV[55],Cnil); |
V347= get((V346),VV[53],Cnil); |
2262 |
goto T1007; |
goto T1005; |
2263 |
T1007:; |
T1005:; |
2264 |
if(((V352))==Cnil){ |
if(((V347))==Cnil){ |
2265 |
goto T1011;} |
goto T1009;} |
2266 |
{object V353 = structure_set((V352),VV[55],11,Ct); |
{object V348 = structure_set((V347),VV[53],11,Ct); |
2267 |
VMR14(V353)} |
VMR14(V348)} |
2268 |
goto T1011; |
goto T1009; |
2269 |
T1011:; |
T1009:; |
2270 |
{object V354 = Cnil; |
{object V349 = Cnil; |
2271 |
VMR14(V354)}} |
VMR14(V349)}} |
2272 |
return Cnil; |
return Cnil; |
2273 |
} |
} |
2274 |
/* function definition for SHARP-S-READER */ |
/* function definition for SHARP-S-READER */ |
2277 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2278 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
2279 |
vs_reserve(VM15); |
vs_reserve(VM15); |
2280 |
{object V355; |
{object V350; |
2281 |
object V356; |
object V351; |
2282 |
object V357; |
object V352; |
2283 |
check_arg(3); |
check_arg(3); |
2284 |
V355=(base[0]); |
V350=(base[0]); |
2285 |
V356=(base[1]); |
V351=(base[1]); |
2286 |
V357=(base[2]); |
V352=(base[2]); |
2287 |
vs_top=sup; |
vs_top=sup; |
2288 |
goto TTL; |
goto TTL; |
2289 |
TTL:; |
TTL:; |
2290 |
if(((V357))==Cnil){ |
if(((V352))==Cnil){ |
2291 |
goto T1013;} |
goto T1011;} |
2292 |
if((symbol_value(VV[104]))!=Cnil){ |
if((symbol_value(VV[102]))!=Cnil){ |
2293 |
goto T1013;} |
goto T1011;} |
2294 |
base[3]= VV[105]; |
base[3]= VV[103]; |
2295 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2296 |
Lerror(); |
Lerror(); |
2297 |
vs_top=sup; |
vs_top=sup; |
2298 |
goto T1013; |
goto T1011; |
2299 |
T1013:; |
T1011:; |
2300 |
{register object V358; |
{register object V353; |
2301 |
register object V359; |
register object V354; |
2302 |
{object V360; |
{object V355; |
2303 |
base[5]= (V355); |
base[5]= (V350); |
2304 |
base[6]= Ct; |
base[6]= Ct; |
2305 |
base[7]= Cnil; |
base[7]= Cnil; |
2306 |
base[8]= Ct; |
base[8]= Ct; |
2307 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2308 |
Lread(); |
Lread(); |
2309 |
vs_top=sup; |
vs_top=sup; |
2310 |
V360= vs_base[0]; |
V355= vs_base[0]; |
2311 |
if((symbol_value(VV[104]))==Cnil){ |
if((symbol_value(VV[102]))==Cnil){ |
2312 |
goto T1025;} |
goto T1023;} |
2313 |
base[5]= Cnil; |
base[5]= Cnil; |
2314 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2315 |
return; |
return; |
2316 |
goto T1025; |
goto T1023; |
2317 |
T1025:; |
T1023:; |
2318 |
V358= (V360);}{object V361; |
V353= (V355);}{object V356; |
2319 |
V361= get(car((V358)),VV[55],Cnil); |
V356= get(car((V353)),VV[53],Cnil); |
2320 |
if(V361==Cnil)goto T1029; |
if(V356==Cnil)goto T1027; |
2321 |
V359= V361; |
V354= V356; |
2322 |
goto T1028; |
goto T1026; |
2323 |
goto T1029; |
goto T1027; |
2324 |
T1029:;} |
T1027:;} |
2325 |
base[5]= VV[106]; |
base[5]= VV[104]; |
2326 |
base[6]= car((V358)); |
base[6]= car((V353)); |
2327 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2328 |
Lerror(); |
Lerror(); |
2329 |
vs_top=sup; |
vs_top=sup; |
2330 |
V359= vs_base[0]; |
V354= vs_base[0]; |
2331 |
goto T1028; |
goto T1026; |
2332 |
T1028:; |
T1026:; |
2333 |
{register object V362; |
{register object V357; |
2334 |
V362= cdr((V358)); |
V357= cdr((V353)); |
2335 |
goto T1035; |
goto T1033; |
2336 |
T1035:; |
T1033:; |
2337 |
if(!(endp_prop((V362)))){ |
if(!(endp_prop((V357)))){ |
2338 |
goto T1036;} |
goto T1034;} |
2339 |
{register object V363; |
{register object V358; |
2340 |
V363= structure_ref((V359),VV[55],13); |
V358= structure_ref((V354),VV[53],13); |
2341 |
goto T1041; |
goto T1039; |
2342 |
T1041:; |
T1039:; |
2343 |
if(!(endp_prop((V363)))){ |
if(!(endp_prop((V358)))){ |
2344 |
goto T1042;} |
goto T1040;} |
2345 |
base[5]= VV[107]; |
base[5]= VV[105]; |
2346 |
base[6]= car((V358)); |
base[6]= car((V353)); |
2347 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2348 |
Lerror(); |
Lerror(); |
2349 |
return; |
return; |
2350 |
goto T1042; |
goto T1040; |
2351 |
T1042:; |
T1040:; |
2352 |
if(!(type_of(car((V363)))==t_symbol)){ |
if(!(type_of(car((V358)))==t_symbol)){ |
2353 |
goto T1048;} |
goto T1046;} |
2354 |
base[5]= car((V363)); |
base[5]= car((V358)); |
2355 |
{object V364; |
{object V359; |
2356 |
V364= cdr((V358)); |
V359= cdr((V353)); |
2357 |
vs_top=base+6; |
vs_top=base+6; |
2358 |
while(!endp(V364)) |
while(!endp(V359)) |
2359 |
{vs_push(car(V364));V364=cdr(V364);} |
{vs_push(car(V359));V359=cdr(V359);} |
2360 |
vs_base=base+6;} |
vs_base=base+6;} |
2361 |
super_funcall_no_event(base[5]); |
super_funcall_no_event(base[5]); |
2362 |
return; |
return; |
2363 |
goto T1048; |
goto T1046; |
2364 |
T1048:; |
T1046:; |
2365 |
V363= cdr((V363)); |
V358= cdr((V358)); |
2366 |
goto T1041;} |
goto T1039;} |
2367 |
goto T1036; |
goto T1034; |
2368 |
T1036:; |
T1034:; |
2369 |
base[5]= coerce_to_string(car((V362))); |
base[5]= coerce_to_string(car((V357))); |
2370 |
base[6]= VV[108]; |
base[6]= VV[106]; |
2371 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2372 |
Lintern(); |
Lintern(); |
2373 |
vs_top=sup; |
vs_top=sup; |
2374 |
V365= vs_base[0]; |
V360= vs_base[0]; |
2375 |
if(type_of((V362))!=t_cons)FEwrong_type_argument(Scons,(V362)); |
if(type_of((V357))!=t_cons)FEwrong_type_argument(Scons,(V357)); |
2376 |
((V362))->c.c_car = V365; |
((V357))->c.c_car = V360; |
2377 |
V362= cddr((V362)); |
V357= cddr((V357)); |
2378 |
goto T1035;}} |
goto T1033;}} |
2379 |
} |
} |
2380 |
} |
} |
2381 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
2385 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2386 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
2387 |
vs_reserve(VM16); |
vs_reserve(VM16); |
2388 |
{object V366; |
{object V361; |
2389 |
check_arg(1); |
check_arg(1); |
2390 |
V366=(base[0]); |
V361=(base[0]); |
2391 |
vs_top=sup; |
vs_top=sup; |
2392 |
base[1]= (V366); |
base[1]= (V361); |
2393 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
2394 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2395 |
(void) (*Lnk148)(); |
(void) (*Lnk146)(); |
2396 |
return; |
return; |
2397 |
} |
} |
2398 |
} |
} |
2403 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2404 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
2405 |
vs_reserve(VM17); |
vs_reserve(VM17); |
2406 |
{object V367; |
{object V362; |
2407 |
check_arg(1); |
check_arg(1); |
2408 |
V367=(base[0]); |
V362=(base[0]); |
2409 |
vs_top=sup; |
vs_top=sup; |
2410 |
if(!(type_of((V367))==t_cons)){ |
if(!(type_of((V362))==t_cons)){ |
2411 |
goto T1067;} |
goto T1065;} |
2412 |
base[1]= car((V367)); |
base[1]= car((V362)); |
2413 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2414 |
return; |
return; |
2415 |
goto T1067; |
goto T1065; |
2416 |
T1067:; |
T1065:; |
2417 |
base[1]= Cnil; |
base[1]= Cnil; |
2418 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2419 |
return; |
return; |
2426 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2427 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
2428 |
vs_reserve(VM18); |
vs_reserve(VM18); |
2429 |
{object V368; |
{object V363; |
2430 |
check_arg(1); |
check_arg(1); |
2431 |
V368=(base[0]); |
V363=(base[0]); |
2432 |
vs_top=sup; |
vs_top=sup; |
2433 |
base[1]= aref1((V368),fixint((base0[0]->c.c_car))); |
base[1]= aref1((V363),fixint((base0[0]->c.c_car))); |
2434 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2435 |
return; |
return; |
2436 |
} |
} |
2442 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2443 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
2444 |
vs_reserve(VM19); |
vs_reserve(VM19); |
2445 |
{object V369; |
{object V364; |
2446 |
check_arg(1); |
check_arg(1); |
2447 |
V369=(base[0]); |
V364=(base[0]); |
2448 |
vs_top=sup; |
vs_top=sup; |
2449 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
2450 |
base[2]= (V369); |
base[2]= (V364); |
2451 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2452 |
siLlist_nth(); |
siLlist_nth(); |
2453 |
return; |
return; |
2460 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2461 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
2462 |
vs_reserve(VM20); |
vs_reserve(VM20); |
2463 |
{object V370; |
{object V365; |
2464 |
check_arg(1); |
check_arg(1); |
2465 |
V370=(base[0]); |
V365=(base[0]); |
2466 |
vs_top=sup; |
vs_top=sup; |
2467 |
if(!(type_of((V370))==t_structure)){ |
if(!(type_of((V365))==t_structure)){ |
2468 |
goto T1072;} |
goto T1070;} |
2469 |
goto T1071; |
goto T1069; |
2470 |
goto T1072; |
goto T1070; |
2471 |
T1072:; |
T1070:; |
2472 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2473 |
base[2]= (V370); |
base[2]= (V365); |
2474 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2475 |
Lerror(); |
Lerror(); |
2476 |
vs_top=sup; |
vs_top=sup; |
2477 |
goto T1071; |
goto T1069; |
2478 |
T1071:; |
T1069:; |
2479 |
base[1]= (V370); |
base[1]= (V365); |
2480 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
2481 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2482 |
(void) (*Lnk149)(); |
(void) (*Lnk147)(); |
2483 |
return; |
return; |
2484 |
} |
} |
2485 |
} |
} |
2486 |
static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* STRUCTURE-REF1 */ |
static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* STRUCTURE-REF1 */ |
2487 |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* STRUCTURE-SUBTYPE-P */ |
2488 |
static object LnkTLI144(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[144],(void **)&LnkLI144,5,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */ |
static object LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,5,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */ |
2489 |
static object LnkTLI143(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[143],(void **)&LnkLI143,5,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */ |
static object LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,5,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */ |
2490 |
static object LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,2,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */ |
static object LnkTLI140(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[140],(void **)&LnkLI140,2,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */ |
2491 |
static object LnkTLI136(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[136],(void **)&LnkLI136,3,ap);va_end(ap);return V1;} /* CHECK-S-DATA */ |
static object LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,3,ap);va_end(ap);return V1;} /* CHECK-S-DATA */ |
2492 |
static object LnkTLI135(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[135],(void **)&LnkLI135,ap);va_end(ap);return V1;} /* MAKE-S-DATA */ |
static object LnkTLI133(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[133],(void **)&LnkLI133,ap);va_end(ap);return V1;} /* MAKE-S-DATA */ |
2493 |
static object LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,3,ap);va_end(ap);return V1;} /* GET-SLOT-POS */ |
static object LnkTLI132(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[132],(void **)&LnkLI132,3,ap);va_end(ap);return V1;} /* GET-SLOT-POS */ |
2494 |
static object LnkTLI133(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[133],(void **)&LnkLI133,ap);va_end(ap);return V1;} /* WARN */ |
static object LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[131],(void **)&LnkLI131,ap);va_end(ap);return V1;} /* WARN */ |
2495 |
static void LnkT132(){ call_or_link(VV[132],(void **)&Lnk132);} /* MAKE-S-DATA-STRUCTURE */ |
static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* MAKE-S-DATA-STRUCTURE */ |
2496 |
static object LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[131],(void **)&LnkLI131,3,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */ |
static object LnkTLI129(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[129],(void **)&LnkLI129,3,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */ |
2497 |
static void LnkT127(){ call_or_link(VV[127],(void **)&Lnk127);} /* MAKE-ACCESS-FUNCTION */ |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* MAKE-ACCESS-FUNCTION */ |
2498 |
static object LnkTLI126(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[126],(void **)&LnkLI126,20738,ap);va_end(ap);return V1;} /* ROUND-UP */ |
static object LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,20738,ap);va_end(ap);return V1;} /* ROUND-UP */ |
2499 |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* SIZE-OF */ |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* SIZE-OF */ |
2500 |
static object LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,2,ap);va_end(ap);return V1;} /* COERCE */ |
static object LnkTLI122(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[122],(void **)&LnkLI122,2,ap);va_end(ap);return V1;} /* COERCE */ |
2501 |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* TYPEP */ |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* TYPEP */ |
2502 |
static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* AET-TYPE */ |
static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* AET-TYPE */ |
2503 |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ALIGNMENT */ |
static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ALIGNMENT */ |
2504 |
static object LnkTLI120(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[120],(void **)&LnkLI120,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
static object LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[118],(void **)&LnkLI118,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
2505 |
static object LnkTLI119(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[119],(void **)&LnkLI119,2,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */ |
static object LnkTLI117(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[117],(void **)&LnkLI117,2,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */ |
2506 |
static object LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[118],(void **)&LnkLI118,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
static object LnkTLI116(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[116],(void **)&LnkLI116,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
2507 |
static object LnkTLI117(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[117],(void **)&LnkLI117,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI115(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[115],(void **)&LnkLI115,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
2508 |
static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* X */ |
static object LnkTLI111(){return call_proc0(VV[111],(void **)&LnkLI111);} /* ILLEGAL-BOA */ |
2509 |
static object LnkTLI113(){return call_proc0(VV[113],(void **)&LnkLI113);} /* ILLEGAL-BOA */ |
static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* SUBTYPEP */ |
2510 |
static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* SUBTYPEP */ |
static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* RECORD-FN */ |
2511 |
static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* RECORD-FN */ |
static object LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[108],(void **)&LnkLI108,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
2512 |
static object LnkTLI110(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[110],(void **)&LnkLI110,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* STRING-CONCATENATE */ |
|
static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* STRING-CONCATENATE */ |
|
2513 |
|
|
2514 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2515 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |