244 |
T17:; |
T17:; |
245 |
V32= CMPcar((V29)); |
V32= CMPcar((V29)); |
246 |
V33= CMPcar((V30)); |
V33= CMPcar((V30)); |
247 |
{object V34 = listA(3,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,(*(LnkLI130))(CMPcdr((V29)),CMPcdr((V30)))); |
{object V34 = listA(3,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,(*(LnkLI123))(CMPcdr((V29)),CMPcdr((V30)))); |
248 |
VMR13(V34)} |
VMR13(V34)} |
249 |
return Cnil; |
return Cnil; |
250 |
} |
} |
263 |
goto T20; |
goto T20; |
264 |
T20:; |
T20:; |
265 |
V40= CMPcar((V37)); |
V40= CMPcar((V37)); |
266 |
V41= (*(LnkLI131))(CMPcdr((V37)),(V38)); |
V41= (*(LnkLI124))(CMPcdr((V37)),(V38)); |
267 |
{object V42 = make_cons(/* INLINE-ARGS */V40,/* INLINE-ARGS */V41); |
{object V42 = make_cons(/* INLINE-ARGS */V40,/* INLINE-ARGS */V41); |
268 |
VMR14(V42)} |
VMR14(V42)} |
269 |
return Cnil; |
return Cnil; |
587 |
T154:; |
T154:; |
588 |
if(((V94))!=Cnil){ |
if(((V94))!=Cnil){ |
589 |
goto T155;} |
goto T155;} |
590 |
base[0]=VV[132]->s.s_gfdef; |
base[0]=VV[125]->s.s_gfdef; |
591 |
base[1]= VV[36]; |
base[1]= VV[36]; |
592 |
{object V95; |
{object V95; |
593 |
V95= (V92); |
V95= (V92); |
595 |
while(V95!=Cnil) |
while(V95!=Cnil) |
596 |
{vs_push((V95)->c.c_car);V95=(V95)->c.c_cdr;} |
{vs_push((V95)->c.c_car);V95=(V95)->c.c_cdr;} |
597 |
vs_base=base+1;} |
vs_base=base+1;} |
598 |
(void) (*Lnk132)(); |
(void) (*Lnk125)(); |
599 |
vs_top=sup; |
vs_top=sup; |
600 |
{object V96 = vs_base[0]; |
{object V96 = vs_base[0]; |
601 |
VMR19(V96)} |
VMR19(V96)} |
632 |
V100= (VV[37]->s.s_dbind); |
V100= (VV[37]->s.s_dbind); |
633 |
goto T166; |
goto T166; |
634 |
T166:; |
T166:; |
635 |
base[3]= (VFUN_NARGS=2,(*(LnkLI133))((V98),(V99))); |
base[3]= (VFUN_NARGS=2,(*(LnkLI126))((V98),(V99))); |
636 |
base[4]= (V100); |
base[4]= (V100); |
637 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
638 |
Lintern(); |
Lintern(); |
656 |
V101=V101->c.c_cdr; |
V101=V101->c.c_cdr; |
657 |
{object V102=getf(V101,VV[39],OBJNULL); |
{object V102=getf(V101,VV[39],OBJNULL); |
658 |
if(V102==OBJNULL){ |
if(V102==OBJNULL){ |
659 |
base[4]= (VV[134]->s.s_gfdef);} else { |
base[4]= (VV[127]->s.s_gfdef);} else { |
660 |
base[4]= V102; |
base[4]= V102; |
661 |
}} |
}} |
662 |
{object V103=getf(V101,VV[135],OBJNULL); |
{object V103=getf(V101,VV[128],OBJNULL); |
663 |
if(V103==OBJNULL){ |
if(V103==OBJNULL){ |
664 |
base[5]= base[2];} else { |
base[5]= base[2];} else { |
665 |
base[5]= V103; |
base[5]= V103; |
666 |
}} |
}} |
667 |
check_other_key(V101,2,VV[39],VV[135]);} |
check_other_key(V101,2,VV[39],VV[128]);} |
668 |
{register object V104; |
{register object V104; |
669 |
register object V105; |
register object V105; |
670 |
object V106; |
object V106; |
912 |
object V151; |
object V151; |
913 |
base[5]= base[4]; |
base[5]= base[4]; |
914 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
915 |
(void) (*Lnk136)(); |
(void) (*Lnk129)(); |
916 |
if(vs_base>=vs_top){vs_top=sup;goto T246;} |
if(vs_base>=vs_top){vs_top=sup;goto T246;} |
917 |
V149= vs_base[0]; |
V149= vs_base[0]; |
918 |
vs_base++; |
vs_base++; |
939 |
base[5]= base[2]; |
base[5]= base[2]; |
940 |
base[6]= base[3]; |
base[6]= base[3]; |
941 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
942 |
(void) (*Lnk137)(); |
(void) (*Lnk130)(); |
943 |
if(vs_base>=vs_top){vs_top=sup;goto T253;} |
if(vs_base>=vs_top){vs_top=sup;goto T253;} |
944 |
V152= vs_base[0]; |
V152= vs_base[0]; |
945 |
vs_base++; |
vs_base++; |
990 |
V158= make_cons(/* INLINE-ARGS */V159,Cnil); |
V158= make_cons(/* INLINE-ARGS */V159,Cnil); |
991 |
V157= VV[51]; |
V157= VV[51]; |
992 |
V160 = (V158); |
V160 = (V158); |
993 |
V161= (*(LnkLI138))((V156),(V157)); |
V161= (*(LnkLI131))((V156),(V157)); |
994 |
V162= nreverse(/* INLINE-ARGS */V161); |
V162= nreverse(/* INLINE-ARGS */V161); |
995 |
base[3]= nconc(V160,/* INLINE-ARGS */V162); |
base[3]= nconc(V160,/* INLINE-ARGS */V162); |
996 |
base[5]= Cnil; |
base[5]= Cnil; |
1147 |
goto T335; |
goto T335; |
1148 |
T335:; |
T335:; |
1149 |
V186 = (V167); |
V186 = (V167); |
1150 |
V187= (*(LnkLI138))(V185,V186); |
V187= (*(LnkLI131))(V185,V186); |
1151 |
V181= listA(4,VV[24],/* INLINE-ARGS */V183,V184,nreverse(/* INLINE-ARGS */V187)); |
V181= listA(4,VV[24],/* INLINE-ARGS */V183,V184,nreverse(/* INLINE-ARGS */V187)); |
1152 |
V169= make_cons((V181),(V169));} |
V169= make_cons((V181),(V169));} |
1153 |
if(!(type_of(CMPcdr((V170)))==t_symbol)){ |
if(!(type_of(CMPcdr((V170)))==t_symbol)){ |
1176 |
check_arg(2); |
check_arg(2); |
1177 |
vs_top=sup; |
vs_top=sup; |
1178 |
{object V190=base[0]->c.c_cdr; |
{object V190=base[0]->c.c_cdr; |
1179 |
{object V191=getf(V190,VV[139],OBJNULL); |
{object V191=getf(V190,VV[132],OBJNULL); |
1180 |
if(V191==OBJNULL){ |
if(V191==OBJNULL){ |
1181 |
base[2]= Cnil;} else { |
base[2]= Cnil;} else { |
1182 |
base[2]= V191; |
base[2]= V191; |
1183 |
}} |
}} |
1184 |
check_other_key(V190,1,VV[139]);} |
check_other_key(V190,1,VV[132]);} |
1185 |
V192= list(2,VV[57],base[2]); |
V192= list(2,VV[57],base[2]); |
1186 |
if(base[2]==Cnil){ |
if(base[2]==Cnil){ |
1187 |
V193= Cnil; |
V193= Cnil; |
1222 |
base[6]= base[5]; |
base[6]= base[5]; |
1223 |
base[7]= base[1]; |
base[7]= base[1]; |
1224 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1225 |
(void) (*Lnk136)(); |
(void) (*Lnk129)(); |
1226 |
if(vs_base>=vs_top){vs_top=sup;goto T353;} |
if(vs_base>=vs_top){vs_top=sup;goto T353;} |
1227 |
V196= vs_base[0]; |
V196= vs_base[0]; |
1228 |
vs_base++; |
vs_base++; |
1717 |
T452:;} |
T452:;} |
1718 |
if(((V272))!=Cnil){ |
if(((V272))!=Cnil){ |
1719 |
goto T457;} |
goto T457;} |
1720 |
if(((*(LnkLI140))((V271)))!=Cnil){ |
if(((*(LnkLI133))((V271)))!=Cnil){ |
1721 |
goto T459;} |
goto T459;} |
1722 |
base[0]= VV[83]; |
base[0]= VV[83]; |
1723 |
base[1]= (V271); |
base[1]= (V271); |
1729 |
{object V276; |
{object V276; |
1730 |
object V277; |
object V277; |
1731 |
V276= (VV[82]->s.s_dbind); |
V276= (VV[82]->s.s_dbind); |
1732 |
V278= (VV[141]->s.s_gfdef); |
V278= (VV[134]->s.s_gfdef); |
1733 |
V277= listA(3,Cnil,V278,Cnil); |
V277= listA(3,Cnil,V278,Cnil); |
1734 |
base[1]= V271; |
base[1]= V271; |
1735 |
base[2]= (V276); |
base[2]= (V276); |
1779 |
if((VV[84]->s.s_dbind)==Cnil){ |
if((VV[84]->s.s_dbind)==Cnil){ |
1780 |
V288= Cnil; |
V288= Cnil; |
1781 |
goto T476;} |
goto T476;} |
1782 |
if(((*(LnkLI142))((V283)))!=Cnil){ |
if(((*(LnkLI135))((V283)))!=Cnil){ |
1783 |
goto T477;} |
goto T477;} |
1784 |
V288= Cnil; |
V288= Cnil; |
1785 |
goto T476; |
goto T476; |
1787 |
T477:; |
T477:; |
1788 |
base[0]= (V283); |
base[0]= (V283); |
1789 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1790 |
(void) (*Lnk143)(); |
(void) (*Lnk136)(); |
1791 |
vs_top=sup; |
vs_top=sup; |
1792 |
V288= vs_base[0]; |
V288= vs_base[0]; |
1793 |
goto T476; |
goto T476; |
1803 |
VMR42(V290)} |
VMR42(V290)} |
1804 |
goto T481; |
goto T481; |
1805 |
T481:; |
T481:; |
1806 |
if(((*(LnkLI140))((V283)))==Cnil){ |
if(((*(LnkLI133))((V283)))==Cnil){ |
1807 |
goto T484;} |
goto T484;} |
1808 |
base[0]= VV[85]; |
base[0]= VV[85]; |
1809 |
base[1]= (V283); |
base[1]= (V283); |
1850 |
T491:; |
T491:; |
1851 |
if((CMPcar((V296)))!=Cnil){ |
if((CMPcar((V296)))!=Cnil){ |
1852 |
goto T493;} |
goto T493;} |
1853 |
(void)((VFUN_NARGS=3,(*(LnkLI144))((V295),(V296),(V297)))); |
(void)((VFUN_NARGS=3,(*(LnkLI137))((V295),(V296),(V297)))); |
1854 |
goto T493; |
goto T493; |
1855 |
T493:; |
T493:; |
1856 |
{object V298 = CMPcadr((V296)); |
{object V298 = CMPcadr((V296)); |
1905 |
goto T500; |
goto T500; |
1906 |
T500:; |
T500:; |
1907 |
V307 = (V304); |
V307 = (V304); |
1908 |
V308= (VFUN_NARGS=2,(*(LnkLI145))((V304),(V305))); |
V308= (VFUN_NARGS=2,(*(LnkLI138))((V304),(V305))); |
1909 |
V309 = (V305); |
V309 = (V305); |
1910 |
{object V310 = (VFUN_NARGS=3,(*(LnkLI144))(V307,/* INLINE-ARGS */V308,V309)); |
{object V310 = (VFUN_NARGS=3,(*(LnkLI137))(V307,/* INLINE-ARGS */V308,V309)); |
1911 |
VMR45(V310)} |
VMR45(V310)} |
1912 |
va_end(ap); |
va_end(ap); |
1913 |
return Cnil;} |
return Cnil;} |
1941 |
goto T505; |
goto T505; |
1942 |
T505:; |
T505:; |
1943 |
V315 = (V312); |
V315 = (V312); |
1944 |
V316= (VFUN_NARGS=2,(*(LnkLI145))((V312),(V313))); |
V316= (VFUN_NARGS=2,(*(LnkLI138))((V312),(V313))); |
1945 |
V317 = (V313); |
V317 = (V313); |
1946 |
{object V318 = (VFUN_NARGS=3,(*(LnkLI146))(V315,/* INLINE-ARGS */V316,V317)); |
{object V318 = (VFUN_NARGS=3,(*(LnkLI139))(V315,/* INLINE-ARGS */V316,V317)); |
1947 |
VMR46(V318)} |
VMR46(V318)} |
1948 |
va_end(ap); |
va_end(ap); |
1949 |
return Cnil;} |
return Cnil;} |
1950 |
} |
} |
1951 |
/* local entry for function SETF PCL FIND-CLASS */ |
/* function definition for G2035 */ |
|
|
|
|
static object LI49(V321,V322) |
|
1952 |
|
|
1953 |
register object V321;object V322; |
static void L49() |
1954 |
{ VMB47 VMS47 VMV47 |
{register object *base=vs_base; |
1955 |
|
register object *sup=base+VM47; VC47 |
1956 |
|
vs_check; |
1957 |
|
{register object V319; |
1958 |
|
object V320; |
1959 |
|
check_arg(2); |
1960 |
|
V319=(base[0]); |
1961 |
|
V320=(base[1]); |
1962 |
|
vs_top=sup; |
1963 |
goto TTL; |
goto TTL; |
1964 |
TTL:; |
TTL:; |
1965 |
if(((*(LnkLI140))((V322)))==Cnil){ |
if(((*(LnkLI133))((V320)))==Cnil){ |
1966 |
goto T509;} |
goto T509;} |
1967 |
{object V323; |
{object V321; |
1968 |
V323= (VFUN_NARGS=1,(*(LnkLI145))((V322))); |
V321= (VFUN_NARGS=1,(*(LnkLI138))((V320))); |
1969 |
(V323)->c.c_car = V321; |
(V321)->c.c_car = V319; |
1970 |
if(((VV[87]->s.s_dbind))==(VV[88])){ |
if(((VV[87]->s.s_dbind))==(VV[88])){ |
1971 |
goto T514;} |
goto T514;} |
1972 |
if(!(((VV[87]->s.s_dbind))==(VV[89]))){ |
if(!(((VV[87]->s.s_dbind))==(VV[89]))){ |
1973 |
goto T515;} |
goto T515;} |
1974 |
goto T514; |
goto T514; |
1975 |
T514:; |
T514:; |
1976 |
{object V327; |
{object V325; |
1977 |
base[2]= (V321); |
base[4]= (V319); |
1978 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+4)+1; |
1979 |
(void) (*Lnk147)(Lclptr147); |
(void) (*Lnk140)(Lclptr140); |
1980 |
vs_top=sup; |
vs_top=sup; |
1981 |
base[1]= vs_base[0]; |
base[3]= vs_base[0]; |
1982 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+3)+1; |
1983 |
Lsymbol_function(); |
Lsymbol_function(); |
1984 |
vs_top=sup; |
vs_top=sup; |
1985 |
V327= vs_base[0]; |
V325= vs_base[0]; |
1986 |
(CMPcdr(V323))->c.c_car = (V327); |
(CMPcdr(V321))->c.c_car = (V325); |
1987 |
(void)(CMPcdr(V323));} |
(void)(CMPcdr(V321));} |
1988 |
if(((V321))==Cnil){ |
if(((V319))==Cnil){ |
1989 |
goto T525;} |
goto T525;} |
1990 |
base[0]= (V321); |
base[2]= (V319); |
1991 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+2)+1; |
1992 |
(void) (*Lnk148)(Lclptr148); |
(void) (*Lnk141)(Lclptr141); |
1993 |
vs_top=sup; |
vs_top=sup; |
1994 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1995 |
goto T525;} |
goto T525;} |
1996 |
{register object V328; |
{register object V326; |
1997 |
register object V329; |
register object V327; |
1998 |
V328= CMPcddr((V323)); |
V326= CMPcddr((V321)); |
1999 |
V329= CMPcar((V328)); |
V327= CMPcar((V326)); |
2000 |
goto T533; |
goto T533; |
2001 |
T533:; |
T533:; |
2002 |
if(!(((V328))==Cnil)){ |
if(!(((V326))==Cnil)){ |
2003 |
goto T534;} |
goto T534;} |
2004 |
{object V330 = Cnil; |
base[4]= Cnil; |
2005 |
VMR47(V330)} |
vs_top=(vs_base=base+4)+1; |
2006 |
|
return; |
2007 |
goto T534; |
goto T534; |
2008 |
T534:; |
T534:; |
2009 |
V331= (VFUN_NARGS=4,(*(LnkLI150))((V321),CMPcar((V329)),Cnil,CMPcdr((V329)))); |
V328= (VFUN_NARGS=4,(*(LnkLI143))((V319),CMPcar((V327)),Cnil,CMPcdr((V327)))); |
2010 |
(void)((*(LnkLI149))(/* INLINE-ARGS */V331,VV[90])); |
(void)((*(LnkLI142))(/* INLINE-ARGS */V328,VV[90])); |
2011 |
V328= CMPcdr((V328)); |
V326= CMPcdr((V326)); |
2012 |
V329= CMPcar((V328)); |
V327= CMPcar((V326)); |
2013 |
goto T533;} |
goto T533;} |
2014 |
goto T525; |
goto T525; |
2015 |
T525:; |
T525:; |
2016 |
{object V332 = Cnil; |
base[2]= Cnil; |
2017 |
VMR47(V332)} |
vs_top=(vs_base=base+2)+1; |
2018 |
|
return; |
2019 |
goto T515; |
goto T515; |
2020 |
T515:; |
T515:; |
2021 |
{object V333 = Cnil; |
base[2]= Cnil; |
2022 |
VMR47(V333)}} |
vs_top=(vs_base=base+2)+1; |
2023 |
|
return;} |
2024 |
goto T509; |
goto T509; |
2025 |
T509:; |
T509:; |
2026 |
base[0]= VV[91]; |
base[2]= VV[91]; |
2027 |
base[1]= (V322); |
base[3]= (V320); |
2028 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+2)+2; |
2029 |
Lerror(); |
Lerror(); |
2030 |
vs_top=sup; |
return; |
2031 |
{object V334 = vs_base[0]; |
} |
|
VMR47(V334)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
2032 |
} |
} |
2033 |
/* local entry for function SETF PCL FIND-CLASS-PREDICATE */ |
/* function definition for G2044 */ |
2034 |
|
|
2035 |
static object LI50(V337,V338) |
static void L50() |
2036 |
|
{register object *base=vs_base; |
2037 |
object V337;object V338; |
register object *sup=base+VM48; VC48 |
2038 |
{ VMB48 VMS48 VMV48 |
vs_check; |
2039 |
|
{object V329; |
2040 |
|
object V330; |
2041 |
|
check_arg(2); |
2042 |
|
V329=(base[0]); |
2043 |
|
V330=(base[1]); |
2044 |
|
vs_top=sup; |
2045 |
goto TTL; |
goto TTL; |
2046 |
TTL:; |
TTL:; |
2047 |
if(((*(LnkLI140))((V338)))==Cnil){ |
if(((*(LnkLI133))((V330)))==Cnil){ |
2048 |
goto T547;} |
goto T547;} |
2049 |
{object V339; |
{object V331; |
2050 |
V339= (VFUN_NARGS=1,(*(LnkLI145))((V338))); |
V331= (VFUN_NARGS=1,(*(LnkLI138))((V330))); |
2051 |
(CMPcdr((V339)))->c.c_car = V337; |
(CMPcdr((V331)))->c.c_car = V329; |
2052 |
(void)(CMPcdr((V339))); |
(void)(CMPcdr((V331))); |
2053 |
{object V341 = V337; |
base[3]= V329; |
2054 |
VMR48(V341)}} |
vs_top=(vs_base=base+3)+1; |
2055 |
|
return;} |
2056 |
goto T547; |
goto T547; |
2057 |
T547:; |
T547:; |
2058 |
base[0]= VV[92]; |
base[2]= VV[92]; |
2059 |
base[1]= (V338); |
base[3]= (V330); |
2060 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+2)+2; |
2061 |
Lerror(); |
Lerror(); |
2062 |
vs_top=sup; |
return; |
2063 |
{object V342 = vs_base[0]; |
} |
|
VMR48(V342)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
2064 |
} |
} |
2065 |
/* function definition for FIND-WRAPPER */ |
/* function definition for FIND-WRAPPER */ |
2066 |
|
|
2068 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2069 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM49; VC49 |
2070 |
vs_check; |
vs_check; |
2071 |
{object V343; |
{object V333; |
2072 |
check_arg(1); |
check_arg(1); |
2073 |
V343=(base[0]); |
V333=(base[0]); |
2074 |
vs_top=sup; |
vs_top=sup; |
2075 |
goto TTL; |
goto TTL; |
2076 |
TTL:; |
TTL:; |
2077 |
base[1]= (VFUN_NARGS=1,(*(LnkLI151))((V343))); |
base[1]= (VFUN_NARGS=1,(*(LnkLI144))((V333))); |
2078 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2079 |
(void) (*Lnk152)(Lclptr152); |
(void) (*Lnk145)(Lclptr145); |
2080 |
return; |
return; |
2081 |
} |
} |
2082 |
} |
} |
2088 |
vs_check; |
vs_check; |
2089 |
check_arg(2); |
check_arg(2); |
2090 |
vs_top=sup; |
vs_top=sup; |
2091 |
{object V344=base[0]->c.c_cdr; |
{object V334=base[0]->c.c_cdr; |
2092 |
if(endp(V344))invalid_macro_call(); |
if(endp(V334))invalid_macro_call(); |
2093 |
base[2]= (V344->c.c_car); |
base[2]= (V334->c.c_car); |
2094 |
V344=V344->c.c_cdr; |
V334=V334->c.c_cdr; |
2095 |
base[3]= V344;} |
base[3]= V334;} |
2096 |
V345= list(2,VV[94],base[2]); |
V335= list(2,VV[94],base[2]); |
2097 |
V346= make_cons(/* INLINE-ARGS */V345,Cnil); |
V336= make_cons(/* INLINE-ARGS */V335,Cnil); |
2098 |
base[4]= list(3,VV[93],/* INLINE-ARGS */V346,listA(3,VV[95],VV[96],base[3])); |
base[4]= list(3,VV[93],/* INLINE-ARGS */V336,listA(3,VV[95],VV[96],base[3])); |
2099 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2100 |
return; |
return; |
2101 |
} |
} |
2107 |
vs_check; |
vs_check; |
2108 |
check_arg(2); |
check_arg(2); |
2109 |
vs_top=sup; |
vs_top=sup; |
2110 |
{object V347=base[0]->c.c_cdr; |
{object V337=base[0]->c.c_cdr; |
2111 |
{object V348=getf(V347,VV[153],OBJNULL); |
{object V338=getf(V337,VV[146],OBJNULL); |
2112 |
if(V348==OBJNULL){ |
if(V338==OBJNULL){ |
2113 |
base[2]= small_fixnum(0);} else { |
base[2]= small_fixnum(0);} else { |
2114 |
base[2]= V348; |
base[2]= V338; |
2115 |
}} |
}} |
2116 |
check_other_key(V347,1,VV[153]);} |
check_other_key(V337,1,VV[146]);} |
2117 |
V349= list(2,VV[97],base[2]); |
V339= list(2,VV[97],base[2]); |
2118 |
base[3]= list(3,VV[27],make_cons(/* INLINE-ARGS */V349,VV[98]),VV[99]); |
base[3]= list(3,VV[27],make_cons(/* INLINE-ARGS */V339,VV[98]),VV[99]); |
2119 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2120 |
return; |
return; |
2121 |
} |
} |
2127 |
vs_check; |
vs_check; |
2128 |
check_arg(2); |
check_arg(2); |
2129 |
vs_top=sup; |
vs_top=sup; |
2130 |
{object V350=base[0]->c.c_cdr; |
{object V340=base[0]->c.c_cdr; |
2131 |
if(endp(V350))invalid_macro_call(); |
if(endp(V340))invalid_macro_call(); |
2132 |
base[2]= (V350->c.c_car); |
base[2]= (V340->c.c_car); |
2133 |
V350=V350->c.c_cdr; |
V340=V340->c.c_cdr; |
2134 |
{object V351=getf(V350,VV[154],OBJNULL); |
{object V341=getf(V340,VV[147],OBJNULL); |
2135 |
if(V351==OBJNULL){ |
if(V341==OBJNULL){ |
2136 |
base[3]= (VV[55]->s.s_gfdef);} else { |
base[3]= (VV[55]->s.s_gfdef);} else { |
2137 |
base[3]= V351; |
base[3]= V341; |
2138 |
}} |
}} |
2139 |
check_other_key(V350,1,VV[154]);} |
check_other_key(V340,1,VV[147]);} |
2140 |
V352= list(2,VV[58],base[2]); |
V342= list(2,VV[58],base[2]); |
2141 |
V353= make_cons(/* INLINE-ARGS */V352,Cnil); |
V343= make_cons(/* INLINE-ARGS */V342,Cnil); |
2142 |
base[4]= list(3,VV[24],/* INLINE-ARGS */V353,list(2,VV[100],list(3,VV[101],VV[102],list(4,VV[16],VV[103],VV[104],list(3,VV[105],VV[106],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58]))))))); |
base[4]= list(3,VV[24],/* INLINE-ARGS */V343,list(2,VV[100],list(3,VV[101],VV[102],list(4,VV[16],VV[103],VV[104],list(3,VV[105],VV[106],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58]))))))); |
2143 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2144 |
return; |
return; |
2145 |
} |
} |
2151 |
vs_check; |
vs_check; |
2152 |
check_arg(2); |
check_arg(2); |
2153 |
vs_top=sup; |
vs_top=sup; |
2154 |
{object V354=base[0]->c.c_cdr; |
{object V344=base[0]->c.c_cdr; |
2155 |
if(endp(V354))invalid_macro_call(); |
if(endp(V344))invalid_macro_call(); |
2156 |
base[2]= (V354->c.c_car); |
base[2]= (V344->c.c_car); |
2157 |
V354=V354->c.c_cdr; |
V344=V344->c.c_cdr; |
2158 |
{object V355=getf(V354,VV[154],OBJNULL); |
{object V345=getf(V344,VV[147],OBJNULL); |
2159 |
if(V355==OBJNULL){ |
if(V345==OBJNULL){ |
2160 |
base[3]= (VV[55]->s.s_gfdef);} else { |
base[3]= (VV[55]->s.s_gfdef);} else { |
2161 |
base[3]= V355; |
base[3]= V345; |
2162 |
}} |
}} |
2163 |
check_other_key(V354,1,VV[154]);} |
check_other_key(V344,1,VV[147]);} |
2164 |
V356= list(2,VV[58],base[2]); |
V346= list(2,VV[58],base[2]); |
2165 |
V357= make_cons(/* INLINE-ARGS */V356,Cnil); |
V347= make_cons(/* INLINE-ARGS */V346,Cnil); |
2166 |
base[4]= list(3,VV[24],/* INLINE-ARGS */V357,list(2,VV[100],list(3,VV[101],VV[108],list(3,VV[105],VV[109],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58])))))); |
base[4]= list(3,VV[24],/* INLINE-ARGS */V347,list(2,VV[100],list(3,VV[101],VV[108],list(3,VV[105],VV[109],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58])))))); |
2167 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2168 |
return; |
return; |
2169 |
} |
} |
2175 |
vs_check; |
vs_check; |
2176 |
check_arg(2); |
check_arg(2); |
2177 |
vs_top=sup; |
vs_top=sup; |
2178 |
{object V358=base[0]->c.c_cdr; |
{object V348=base[0]->c.c_cdr; |
2179 |
if(endp(V358))invalid_macro_call(); |
if(endp(V348))invalid_macro_call(); |
2180 |
base[2]= (V358->c.c_car); |
base[2]= (V348->c.c_car); |
2181 |
V358=V358->c.c_cdr; |
V348=V348->c.c_cdr; |
2182 |
base[3]= V358;} |
base[3]= V348;} |
2183 |
base[4]= listA(3,VV[107],base[2],base[3]); |
base[4]= listA(3,VV[107],base[2],base[3]); |
2184 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2185 |
return; |
return; |
2192 |
vs_check; |
vs_check; |
2193 |
check_arg(2); |
check_arg(2); |
2194 |
vs_top=sup; |
vs_top=sup; |
2195 |
{object V359=base[0]->c.c_cdr; |
{object V349=base[0]->c.c_cdr; |
2196 |
if(endp(V359))invalid_macro_call(); |
if(endp(V349))invalid_macro_call(); |
2197 |
base[2]= (V359->c.c_car); |
base[2]= (V349->c.c_car); |
2198 |
V359=V359->c.c_cdr; |
V349=V349->c.c_cdr; |
2199 |
base[3]= V359;} |
base[3]= V349;} |
2200 |
base[4]= listA(3,VV[110],base[2],base[3]); |
base[4]= listA(3,VV[110],base[2],base[3]); |
2201 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2202 |
return; |
return; |
2203 |
} |
} |
2204 |
/* local entry for function GET-SETF-FUNCTION-NAME */ |
/* local entry for function GET-SETF-FUNCTION-NAME */ |
2205 |
|
|
2206 |
static object LI58(V361) |
static object LI58(V351) |
2207 |
|
|
2208 |
register object V361; |
object V351; |
2209 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
2210 |
goto TTL; |
goto TTL; |
2211 |
TTL:;{object V362; |
TTL:; |
2212 |
base[0]= (V361); |
{object V352 = list(2,VV[45],(V351)); |
2213 |
base[1]= (VV[111]->s.s_dbind); |
VMR56(V352)} |
|
vs_top=(vs_base=base+0)+2; |
|
|
Lgethash(); |
|
|
vs_top=sup; |
|
|
V362= vs_base[0]; |
|
|
if(V362==Cnil)goto T557; |
|
|
{object V363 = V362; |
|
|
VMR56(V363)} |
|
|
goto T557; |
|
|
T557:;} |
|
|
{object V365; |
|
|
object V366; |
|
|
V365= (VV[111]->s.s_dbind); |
|
|
{object V367; |
|
|
base[1]= (V361); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
Lsymbol_package(); |
|
|
vs_top=sup; |
|
|
V367= vs_base[0]; |
|
|
if(((V367))==Cnil){ |
|
|
goto T566;} |
|
|
base[2]= Cnil; |
|
|
base[3]= VV[112]; |
|
|
base[5]= (V367); |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
Lpackage_name(); |
|
|
vs_top=sup; |
|
|
base[4]= vs_base[0]; |
|
|
base[5]= symbol_name((V361)); |
|
|
vs_top=(vs_base=base+2)+4; |
|
|
Lformat(); |
|
|
vs_top=sup; |
|
|
base[1]= vs_base[0]; |
|
|
base[2]= (VV[113]->s.s_dbind); |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
Lintern(); |
|
|
vs_top=sup; |
|
|
V366= vs_base[0]; |
|
|
goto T562; |
|
|
goto T566; |
|
|
T566:; |
|
|
base[2]= Cnil; |
|
|
base[3]= VV[114]; |
|
|
base[4]= symbol_name((V361)); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
Lformat(); |
|
|
vs_top=sup; |
|
|
base[1]= vs_base[0]; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
Lmake_symbol(); |
|
|
vs_top=sup; |
|
|
V366= vs_base[0];} |
|
|
goto T562; |
|
|
T562:; |
|
|
base[1]= V361; |
|
|
base[2]= (V365); |
|
|
base[3]= (V366); |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
siLhash_set(); |
|
|
vs_top=sup; |
|
|
{object V368 = vs_base[0]; |
|
|
VMR56(V368)}} |
|
|
base[0]=base[0]; |
|
2214 |
return Cnil; |
return Cnil; |
2215 |
} |
} |
2216 |
/* macro definition for DO-STANDARD-DEFSETF */ |
/* macro definition for DO-STANDARD-DEFSETF */ |
2221 |
vs_check; |
vs_check; |
2222 |
check_arg(2); |
check_arg(2); |
2223 |
vs_top=sup; |
vs_top=sup; |
2224 |
{object V369=base[0]->c.c_cdr; |
{object V353=base[0]->c.c_cdr; |
2225 |
base[2]= V369;} |
base[2]= V353;} |
2226 |
base[3]= list(3,VV[115],VV[116],list(3,VV[117],list(2,VV[118],list(2,VV[42],base[2])),VV[119])); |
base[3]= list(3,VV[111],VV[112],list(3,VV[113],list(2,VV[114],list(2,VV[42],base[2])),VV[115])); |
2227 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2228 |
return; |
return; |
2229 |
} |
} |
2230 |
/* local entry for function DO-STANDARD-DEFSETFS-FOR-DEFCLASS */ |
/* local entry for function DO-STANDARD-DEFSETFS-FOR-DEFCLASS */ |
2231 |
|
|
2232 |
static object LI60(V371) |
static object LI60(V355) |
2233 |
|
|
2234 |
object V371; |
object V355; |
2235 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
2236 |
goto TTL; |
goto TTL; |
2237 |
TTL:; |
TTL:; |
2238 |
{register object V372; |
{register object V356; |
2239 |
register object V373; |
register object V357; |
2240 |
V372= (V371); |
V356= (V355); |
2241 |
V373= CMPcar((V372)); |
V357= CMPcar((V356)); |
2242 |
goto T585; |
goto T560; |
2243 |
T585:; |
T560:; |
2244 |
if(!(((V372))==Cnil)){ |
if(!(((V356))==Cnil)){ |
2245 |
goto T586;} |
goto T561;} |
2246 |
{object V374 = Cnil; |
{object V358 = Cnil; |
2247 |
VMR58(V374)} |
VMR58(V358)} |
2248 |
goto T586; |
goto T561; |
2249 |
T586:; |
T561:; |
2250 |
(void)((*(LnkLI155))((V373))); |
(void)((*(LnkLI148))((V357))); |
2251 |
V372= CMPcdr((V372)); |
V356= CMPcdr((V356)); |
2252 |
V373= CMPcar((V372)); |
V357= CMPcar((V356)); |
2253 |
goto T585;} |
goto T560;} |
2254 |
base[0]=base[0]; |
base[0]=base[0]; |
2255 |
return Cnil; |
return Cnil; |
2256 |
} |
} |
2257 |
/* local entry for function DO-STANDARD-DEFSETF-1 */ |
/* local entry for function DO-STANDARD-DEFSETF-1 */ |
2258 |
|
|
2259 |
static object LI61(V376) |
static object LI61(V360) |
2260 |
|
|
2261 |
register object V376; |
object V360; |
2262 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
2263 |
goto TTL; |
goto TTL; |
2264 |
TTL:; |
TTL:; |
2265 |
if(((*(LnkLI156))((V376)))==Cnil){ |
{object V361 = Cnil; |
2266 |
goto T596;} |
VMR59(V361)} |
|
{object V377 =((V376))->s.s_plist; |
|
|
object ind= VV[120]; |
|
|
while(V377!=Cnil){ |
|
|
if(V377->c.c_car==ind){ |
|
|
if(((V377->c.c_cdr->c.c_car))!=Cnil){ |
|
|
goto T597;} |
|
|
goto T600; |
|
|
}else V377=V377->c.c_cdr->c.c_cdr;}} |
|
|
goto T600; |
|
|
T600:; |
|
|
goto T596; |
|
|
T596:; |
|
|
(void)(sputprop((V376),VV[120],Ct)); |
|
|
base[0]= (*(LnkLI157))((V376)); |
|
|
base[0]=MMcons(base[0],Cnil); |
|
|
{object V378; |
|
|
vs_base=vs_top; |
|
|
Lgensym(); |
|
|
vs_top=sup; |
|
|
V378= vs_base[0]; |
|
|
{object V380; |
|
|
V380= |
|
|
make_cclosure_new(LC66,Cnil,base[0],Cdata); |
|
|
base[2]= V378; |
|
|
base[3]= make_cons(VV[121],(V380)); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
siLfset(); |
|
|
vs_top=sup;} |
|
|
base[1]= list(3,VV[122],(V376),(V378)); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
Leval(); |
|
|
vs_top=sup; |
|
|
{object V381 = vs_base[0]; |
|
|
VMR59(V381)}} |
|
|
goto T597; |
|
|
T597:; |
|
|
{object V382 = Cnil; |
|
|
VMR59(V382)} |
|
|
base[0]=base[0]; |
|
2267 |
return Cnil; |
return Cnil; |
2268 |
} |
} |
2269 |
/* local entry for function SETFBOUNDP */ |
/* local entry for function SETFBOUNDP */ |
2270 |
|
|
2271 |
static object LI62(V384) |
static object LI62(V363) |
2272 |
|
|
2273 |
object V384; |
object V363; |
2274 |
{ VMB60 VMS60 VMV60 |
{ VMB60 VMS60 VMV60 |
2275 |
goto TTL; |
goto TTL; |
2276 |
TTL:;{object V385; |
TTL:;{object V364; |
2277 |
{object V386 =((V384))->s.s_plist; |
{object V365 =((V363))->s.s_plist; |
2278 |
object ind= VV[123]; |
object ind= VV[116]; |
2279 |
while(V386!=Cnil){ |
while(V365!=Cnil){ |
2280 |
if(V386->c.c_car==ind){ |
if(V365->c.c_car==ind){ |
2281 |
V385= (V386->c.c_cdr->c.c_car); |
V364= (V365->c.c_cdr->c.c_car); |
2282 |
goto T611; |
goto T572; |
2283 |
}else V386=V386->c.c_cdr->c.c_cdr;} |
}else V365=V365->c.c_cdr->c.c_cdr;} |
2284 |
V385= Cnil;} |
V364= Cnil;} |
2285 |
goto T611; |
goto T572; |
2286 |
T611:; |
T572:; |
2287 |
if(V385==Cnil)goto T610; |
if(V364==Cnil)goto T571; |
2288 |
{object V387 = V385; |
{object V366 = V364; |
2289 |
VMR60(V387)} |
VMR60(V366)} |
2290 |
goto T610; |
goto T571; |
2291 |
T610:;}{object V388; |
T571:;}{object V367; |
2292 |
{object V389 =((V384))->s.s_plist; |
{object V368 =((V363))->s.s_plist; |
2293 |
object ind= VV[124]; |
object ind= VV[117]; |
2294 |
while(V389!=Cnil){ |
while(V368!=Cnil){ |
2295 |
if(V389->c.c_car==ind){ |
if(V368->c.c_car==ind){ |
2296 |
V388= (V389->c.c_cdr->c.c_car); |
V367= (V368->c.c_cdr->c.c_car); |
2297 |
goto T613; |
goto T574; |
2298 |
}else V389=V389->c.c_cdr->c.c_cdr;} |
}else V368=V368->c.c_cdr->c.c_cdr;} |
2299 |
V388= Cnil;} |
V367= Cnil;} |
2300 |
goto T613; |
goto T574; |
2301 |
T613:; |
T574:; |
2302 |
if(V388==Cnil)goto T612; |
if(V367==Cnil)goto T573; |
2303 |
{object V390 = V388; |
{object V369 = V367; |
2304 |
VMR60(V390)} |
VMR60(V369)} |
2305 |
goto T612; |
goto T573; |
2306 |
T612:;} |
T573:;} |
2307 |
{object V391 =((V384))->s.s_plist; |
{object V370 =((V363))->s.s_plist; |
2308 |
object ind= VV[125]; |
object ind= VV[118]; |
2309 |
while(V391!=Cnil){ |
while(V370!=Cnil){ |
2310 |
if(V391->c.c_car==ind){ |
if(V370->c.c_car==ind){ |
2311 |
{object V392 = (V391->c.c_cdr->c.c_car); |
{object V371 = (V370->c.c_cdr->c.c_car); |
2312 |
VMR60(V392)} |
VMR60(V371)} |
2313 |
}else V391=V391->c.c_cdr->c.c_cdr;} |
}else V370=V370->c.c_cdr->c.c_cdr;} |
2314 |
{object V393 = Cnil; |
{object V372 = Cnil; |
2315 |
VMR60(V393)}} |
VMR60(V372)}} |
2316 |
return Cnil; |
return Cnil; |
2317 |
} |
} |
2318 |
/* macro definition for ORIGINAL-DEFINITION */ |
/* macro definition for ORIGINAL-DEFINITION */ |
2323 |
vs_check; |
vs_check; |
2324 |
check_arg(2); |
check_arg(2); |
2325 |
vs_top=sup; |
vs_top=sup; |
2326 |
{object V394=base[0]->c.c_cdr; |
{object V373=base[0]->c.c_cdr; |
2327 |
if(endp(V394))invalid_macro_call(); |
if(endp(V373))invalid_macro_call(); |
2328 |
base[2]= (V394->c.c_car); |
base[2]= (V373->c.c_car); |
2329 |
V394=V394->c.c_cdr; |
V373=V373->c.c_cdr; |
2330 |
if(!endp(V394))invalid_macro_call();} |
if(!endp(V373))invalid_macro_call();} |
2331 |
base[3]= list(3,VV[126],base[2],VV[127]); |
base[3]= list(3,VV[119],base[2],VV[120]); |
2332 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2333 |
return; |
return; |
2334 |
} |
} |
2335 |
/* local entry for function REDEFINE-FUNCTION */ |
/* local entry for function REDEFINE-FUNCTION */ |
2336 |
|
|
2337 |
static object LI64(V397,V398) |
static object LI64(V376,V377) |
2338 |
|
|
2339 |
register object V397;object V398; |
register object V376;object V377; |
2340 |
{ VMB62 VMS62 VMV62 |
{ VMB62 VMS62 VMV62 |
2341 |
goto TTL; |
goto TTL; |
2342 |
TTL:; |
TTL:; |
2343 |
base[0]= V397; |
base[0]= V376; |
2344 |
base[1]= (VV[128]->s.s_dbind); |
base[1]= (VV[121]->s.s_dbind); |
2345 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2346 |
Ladjoin(); |
Ladjoin(); |
2347 |
vs_top=sup; |
vs_top=sup; |
2348 |
(VV[128]->s.s_dbind)= vs_base[0]; |
(VV[121]->s.s_dbind)= vs_base[0]; |
2349 |
{object V400 =((V397))->s.s_plist; |
{object V379 =((V376))->s.s_plist; |
2350 |
object ind= VV[129]; |
object ind= VV[122]; |
2351 |
while(V400!=Cnil){ |
while(V379!=Cnil){ |
2352 |
if(V400->c.c_car==ind){ |
if(V379->c.c_car==ind){ |
2353 |
if(((V400->c.c_cdr->c.c_car))!=Cnil){ |
if(((V379->c.c_cdr->c.c_car))!=Cnil){ |
2354 |
goto T618;} |
goto T579;} |
2355 |
goto T620; |
goto T581; |
2356 |
}else V400=V400->c.c_cdr->c.c_cdr;}} |
}else V379=V379->c.c_cdr->c.c_cdr;}} |
2357 |
goto T620; |
goto T581; |
2358 |
T620:; |
T581:; |
2359 |
V401 = (V397); |
V380 = (V376); |
2360 |
base[0]= (V397); |
base[0]= (V376); |
2361 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2362 |
Lsymbol_function(); |
Lsymbol_function(); |
2363 |
vs_top=sup; |
vs_top=sup; |
2364 |
V402= vs_base[0]; |
V381= vs_base[0]; |
2365 |
(void)(sputprop(V401,VV[129],V402)); |
(void)(sputprop(V380,VV[122],V381)); |
2366 |
goto T618; |
goto T579; |
2367 |
T618:; |
T579:; |
2368 |
base[0]= (V397); |
base[0]= (V376); |
2369 |
base[2]= (V398); |
base[2]= (V377); |
2370 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2371 |
Lsymbol_function(); |
Lsymbol_function(); |
2372 |
vs_top=sup; |
vs_top=sup; |
2374 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2375 |
siLfset(); |
siLfset(); |
2376 |
vs_top=sup; |
vs_top=sup; |
2377 |
{object V403 = vs_base[0]; |
{object V382 = vs_base[0]; |
2378 |
VMR62(V403)} |
VMR62(V382)} |
2379 |
base[0]=base[0]; |
base[0]=base[0]; |
2380 |
return Cnil; |
return Cnil; |
2381 |
} |
} |
2382 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
2383 |
|
|
|
static void LC66(base0) |
|
|
register object *base0; |
|
|
{ register object *base=vs_base; |
|
|
register object *sup=base+VM63; VC63 |
|
|
vs_check; |
|
|
{object V404; |
|
|
object V405; |
|
|
check_arg(2); |
|
|
V404=(base[0]); |
|
|
V405=(base[1]); |
|
|
vs_top=sup; |
|
|
{object V406; |
|
|
object V407; |
|
|
object V408; |
|
|
base[5]= CMPcdr((V404)); |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
Lbutlast(); |
|
|
vs_top=sup; |
|
|
V406= vs_base[0]; |
|
|
{object V409; |
|
|
object V410= (V406); |
|
|
if(V410==Cnil){ |
|
|
V407= Cnil; |
|
|
goto T628;} |
|
|
base[5]=V409=MMcons(Cnil,Cnil); |
|
|
goto T629; |
|
|
T629:; |
|
|
vs_base=vs_top; |
|
|
Lgensym(); |
|
|
vs_top=sup; |
|
|
V412= vs_base[0]; |
|
|
V413 = (V410->c.c_car); |
|
|
(V409->c.c_car)= list(2,V412,V413); |
|
|
if((V410=MMcdr(V410))==Cnil){ |
|
|
V407= base[5]; |
|
|
goto T628;} |
|
|
V409=MMcdr(V409)=MMcons(Cnil,Cnil); |
|
|
goto T629;} |
|
|
goto T628; |
|
|
T628:; |
|
|
{object V414; |
|
|
object V415= (V407); |
|
|
if(V415==Cnil){ |
|
|
V408= Cnil; |
|
|
goto T632;} |
|
|
base[5]=V414=MMcons(Cnil,Cnil); |
|
|
goto T633; |
|
|
T633:; |
|
|
(V414->c.c_car)= CMPcar((V415->c.c_car)); |
|
|
if((V415=MMcdr(V415))==Cnil){ |
|
|
V408= base[5]; |
|
|
goto T632;} |
|
|
V414=MMcdr(V414)=MMcons(Cnil,Cnil); |
|
|
goto T633;} |
|
|
goto T632; |
|
|
T632:; |
|
|
base[5]= (V404); |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
Llast(); |
|
|
vs_top=sup; |
|
|
V416= vs_base[0]; |
|
|
base[5]= list(3,VV[24],(V407),listA(3,(base0[0]->c.c_car),CMPcar(V416),(V408))); |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
return;} |
|
|
} |
|
|
} |
|
|
/* local function CLOSURE */ |
|
|
|
|
2384 |
static void LC65(base0) |
static void LC65(base0) |
2385 |
register object *base0; |
register object *base0; |
2386 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2387 |
register object *sup=base+VM64; VC64 |
register object *sup=base+VM63; VC63 |
2388 |
vs_check; |
vs_check; |
2389 |
{object V417; |
{object V383; |
2390 |
check_arg(1); |
check_arg(1); |
2391 |
V417=(base[0]); |
V383=(base[0]); |
2392 |
vs_top=sup; |
vs_top=sup; |
2393 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
2394 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2400 |
static void L26(base0) |
static void L26(base0) |
2401 |
register object *base0; |
register object *base0; |
2402 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2403 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM64; VC64 |
2404 |
vs_check; |
vs_check; |
2405 |
{object V418; |
{object V384; |
2406 |
object V419; |
object V385; |
2407 |
object V420; |
object V386; |
2408 |
check_arg(3); |
check_arg(3); |
2409 |
V418=(base[0]); |
V384=(base[0]); |
2410 |
V419=(base[1]); |
V385=(base[1]); |
2411 |
V420=(base[2]); |
V386=(base[2]); |
2412 |
vs_top=sup; |
vs_top=sup; |
2413 |
goto TTL; |
goto TTL; |
2414 |
TTL:; |
TTL:; |
2415 |
{object V421; |
{object V387; |
2416 |
if(!(number_compare(small_fixnum(0),base0[0])==0)){ |
if(!(number_compare(small_fixnum(0),base0[0])==0)){ |
2417 |
goto T639;} |
goto T589;} |
2418 |
if((V418)==Cnil){ |
if((V384)==Cnil){ |
2419 |
V422= Cnil; |
V388= Cnil; |
2420 |
goto T641;} |
goto T591;} |
2421 |
V422= list(3,VV[50],(V418),list(2,VV[22],(V419))); |
V388= list(3,VV[50],(V384),list(2,VV[22],(V385))); |
2422 |
goto T641; |
goto T591; |
2423 |
T641:; |
T591:; |
2424 |
if((V420)==Cnil){ |
if((V386)==Cnil){ |
2425 |
V423= Cnil; |
V389= Cnil; |
2426 |
goto T642;} |
goto T592;} |
2427 |
V423= list(3,VV[50],(V420),list(2,VV[55],(V419))); |
V389= list(3,VV[50],(V386),list(2,VV[55],(V385))); |
2428 |
goto T642; |
goto T592; |
2429 |
T642:; |
T592:; |
2430 |
V421= list(3,VV[44],V422,V423); |
V387= list(3,VV[44],V388,V389); |
2431 |
goto T637; |
goto T587; |
2432 |
goto T639; |
goto T589; |
2433 |
T639:; |
T589:; |
2434 |
if(((V420))!=Cnil){ |
if(((V386))!=Cnil){ |
2435 |
goto T644;} |
goto T594;} |
2436 |
if((V418)==Cnil){ |
if((V384)==Cnil){ |
2437 |
V421= Cnil; |
V387= Cnil; |
2438 |
goto T637;} |
goto T587;} |
2439 |
V424 = (V418); |
V390 = (V384); |
2440 |
V421= list(3,VV[50],V424,(*(LnkLI158))(base0[0],(V419))); |
V387= list(3,VV[50],V390,(*(LnkLI149))(base0[0],(V385))); |
2441 |
goto T637; |
goto T587; |
2442 |
goto T644; |
goto T594; |
2443 |
T644:; |
T594:; |
2444 |
V425 = (V420); |
V391 = (V386); |
2445 |
V426= list(3,VV[50],V425,(*(LnkLI159))(base0[0],(V419))); |
V392= list(3,VV[50],V391,(*(LnkLI150))(base0[0],(V385))); |
2446 |
if((V418)==Cnil){ |
if((V384)==Cnil){ |
2447 |
V427= Cnil; |
V393= Cnil; |
2448 |
goto T646;} |
goto T596;} |
2449 |
V427= list(3,VV[50],(V418),list(2,VV[56],(V420))); |
V393= list(3,VV[50],(V384),list(2,VV[56],(V386))); |
2450 |
goto T646; |
goto T596; |
2451 |
T646:; |
T596:; |
2452 |
V421= list(3,VV[44],/* INLINE-ARGS */V426,V427); |
V387= list(3,VV[44],/* INLINE-ARGS */V392,V393); |
2453 |
goto T637; |
goto T587; |
2454 |
T637:; |
T587:; |
2455 |
base0[0]= small_fixnum(0); |
base0[0]= small_fixnum(0); |
2456 |
base[3]= (V421); |
base[3]= (V387); |
2457 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2458 |
return;} |
return;} |
2459 |
} |
} |
2460 |
} |
} |
2461 |
static object LnkTLI159(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[159],(void **)(void *)&LnkLI159,2,first,ap);va_end(ap);return V1;} /* MAKE-CDXR */ |
static object LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[150],(void **)(void *)&LnkLI150,2,first,ap);va_end(ap);return V1;} /* MAKE-CDXR */ |
2462 |
static object LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,2,first,ap);va_end(ap);return V1;} /* MAKE-CAXR */ |
static object LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,2,first,ap);va_end(ap);return V1;} /* MAKE-CAXR */ |
2463 |
static object LnkTLI157(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[157],(void **)(void *)&LnkLI157,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */ |
static object LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)(void *)&LnkLI148,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */ |
2464 |
static object LnkTLI156(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[156],(void **)(void *)&LnkLI156,1,first,ap);va_end(ap);return V1;} /* SETFBOUNDP */ |
static void LnkT145(ptr) object *ptr;{ call_or_link_closure(VV[145],(void **)(void *)&Lnk145,(void **)(void *)&Lclptr145);} /* CLASS-WRAPPER */ |
2465 |
static object LnkTLI155(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[155],(void **)(void *)&LnkLI155,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */ |
static object LnkTLI144(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[144],(void **)(void *)&LnkLI144,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
2466 |
static void LnkT152(ptr) object *ptr;{ call_or_link_closure(VV[152],(void **)(void *)&Lnk152,(void **)(void *)&Lclptr152);} /* CLASS-WRAPPER */ |
static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[143],(void **)(void *)&LnkLI143,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */ |
2467 |
static object LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[151],(void **)(void *)&LnkLI151,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */ |
2468 |
static object LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[150],(void **)(void *)&LnkLI150,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */ |
static void LnkT141(ptr) object *ptr;{ call_or_link_closure(VV[141],(void **)(void *)&Lnk141,(void **)(void *)&Lclptr141);} /* FORWARD-REFERENCED-CLASS-P */ |
2469 |
static object LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */ |
static void LnkT140(ptr) object *ptr;{ call_or_link_closure(VV[140],(void **)(void *)&Lnk140,(void **)(void *)&Lclptr140);} /* CLASS-PREDICATE-NAME */ |
2470 |
static void LnkT148(ptr) object *ptr;{ call_or_link_closure(VV[148],(void **)(void *)&Lnk148,(void **)(void *)&Lclptr148);} /* FORWARD-REFERENCED-CLASS-P */ |
static object LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[139],(void **)(void *)&LnkLI139,first,ap);va_end(ap);return V1;} /* FIND-CLASS-PREDICATE-FROM-CELL */ |
2471 |
static void LnkT147(ptr) object *ptr;{ call_or_link_closure(VV[147],(void **)(void *)&Lnk147,(void **)(void *)&Lclptr147);} /* CLASS-PREDICATE-NAME */ |
static object LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[138],(void **)(void *)&LnkLI138,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */ |
2472 |
static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[146],(void **)(void *)&LnkLI146,first,ap);va_end(ap);return V1;} /* FIND-CLASS-PREDICATE-FROM-CELL */ |
static object LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[137],(void **)(void *)&LnkLI137,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ |
2473 |
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[145],(void **)(void *)&LnkLI145,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */ |
static void LnkT136(){ call_or_link(VV[136],(void **)(void *)&Lnk136);} /* FIND-STRUCTURE-CLASS */ |
2474 |
static object LnkTLI144(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[144],(void **)(void *)&LnkLI144,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ |
static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */ |
2475 |
static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* FIND-STRUCTURE-CLASS */ |
static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[133],(void **)(void *)&LnkLI133,1,first,ap);va_end(ap);return V1;} /* LEGAL-CLASS-NAME-P */ |
|
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */ |
|
|
static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* LEGAL-CLASS-NAME-P */ |
|
2476 |
static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* DELETE */ |
static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* DELETE */ |
2477 |
static object LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)(void *)&LnkLI138,2,first,ap);va_end(ap);return V1;} /* DESTRUCTURE-INTERNAL */ |
static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[131],(void **)(void *)&LnkLI131,2,first,ap);va_end(ap);return V1;} /* DESTRUCTURE-INTERNAL */ |
2478 |
static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* DESTRUCTURE */ |
static void LnkT130(){ call_or_link(VV[130],(void **)(void *)&Lnk130);} /* DESTRUCTURE */ |
2479 |
static void LnkT136(){ call_or_link(VV[136],(void **)(void *)&Lnk136);} /* EXTRACT-DECLARATIONS */ |
static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* EXTRACT-DECLARATIONS */ |
2480 |
static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[133],(void **)(void *)&LnkLI133,first,ap);va_end(ap);return V1;} /* STRING-APPEND */ |
static object LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[126],(void **)(void *)&LnkLI126,first,ap);va_end(ap);return V1;} /* STRING-APPEND */ |
2481 |
static void LnkT132(){ call_or_link(VV[132],(void **)(void *)&Lnk132);} /* CONCATENATE */ |
static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* CONCATENATE */ |
2482 |
static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[131],(void **)(void *)&LnkLI131,2,first,ap);va_end(ap);return V1;} /* REMTAIL */ |
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,2,first,ap);va_end(ap);return V1;} /* REMTAIL */ |
2483 |
static object LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,2,first,ap);va_end(ap);return V1;} /* MAKE-PLIST */ |
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,2,first,ap);va_end(ap);return V1;} /* MAKE-PLIST */ |
2484 |
|
|
2485 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2486 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |